view release on metacpan or  search on metacpan

unzip-6.0/flexos/flexos.c  view on Meta::CPAN

              z_utime.mtime));
            t = localtime(&(z_utime.mtime));
        } else
            t = (struct tm *)NULL;
        if (t != (struct tm *)NULL) {
            if (t->tm_year < 80) {
                df.df_modyear = 1980;
                df.df_modmonth = 1;
                df.df_modday = 1;
                df.df_modhr = 0;
                df.df_modmin = 0;
                df.df_modsec = 0;
            } else {
                df.df_modyear = t->tm_year + 1900;
                df.df_modmonth = t->tm_mon + 1;
                df.df_modday = t->tm_mday;
                df.df_modhr = t->tm_hour;
                df.df_modmin = t->tm_min;
                df.df_modsec = t->tm_sec;
            }
        } else
#endif /* ?USE_EF_UX_TIME */
        {
            zt._t.ztime = (ush)(G.lrec.last_mod_dos_datetime) & 0xffff;
            zt._d.zdate = (ush)(G.lrec.last_mod_dos_datetime >> 16);

            df.df_modyear = 1980 + zt._d._df.zd_yr;
            df.df_modmonth = zt._d._df.zd_mo;
            df.df_modday = zt._d._df.zd_dy;
            df.df_modhr = zt._t._tf.zt_hr;
            df.df_modmin = zt._t._tf.zt_mi;
            df.df_modsec = zt._t._tf.zt_se << 1;
        }
    }

/*---------------------------------------------------------------------------
    Fill in the file attributes.
  ---------------------------------------------------------------------------*/

    df.df_attr1 = (UBYTE)G.pInfo->file_attr;

/*---------------------------------------------------------------------------
    Now we try to set the attributes & date/time.
  ---------------------------------------------------------------------------*/

    if (s_set(T_FILE, fnum, &df, DSKFSIZE) < 0)
        Info(slide, 0x201, ((char *)slide,
          "warning:  cannot set info for %s\n", FnFilter1(G.filename)));

    s_close(0, fnum);
} /* end function close_outfile() */

#ifndef SFX

/*************************/
/* Function dateformat() */
/*************************/

int dateformat()
{
    return DF_DMY;   /* default for systems without locale info */
}

/************************/
/*  Function version()  */
/************************/

void version(__G)
    __GDEF
{
    int len;

    len = sprintf((char *)slide, LoadFarString(CompiledWith),
            "MetaWare High C",
            "",
            "FlexOS",
            " (16-bit, big)",

#ifdef __DATE__
      " on ", __DATE__
#else
      "", ""
#endif
    );

    (*G.message)((zvoid *)&G, slide, (ulg)len, 0);
}

#endif /* !SFX */

/************************/
/*  Function _wildarg() */
/************************/

/* This prevents the PORTLIB startup code from preforming argument globbing */

_wildarg() {}