Category : OS/2 Files
Archive : EMXTST8F.ZIP
Filename : TIMETEST.C
Output of file : TIMETEST.C contained in archive : EMXTST8F.ZIP
#include
#include
#include
#include
#include
#include
#include
#include
#include
static char *pmode (int m)
{
static char buf[16], *p;
int i, n;
switch (m & S_IFMT)
{
case S_IFREG:
buf[0] = ' ';
break;
case S_IFDIR:
buf[0] = 'd';
break;
default:
buf[0] = '?';
break;
}
p = buf+1; n = m & 0777;
for (i = 0; i < 3; ++i)
{
*p++ = (n & S_IREAD ? 'r' : '-');
*p++ = (n & S_IWRITE ? 'w' : '-');
*p++ = (n & S_IEXEC ? 'x' : '-');
n <<= 3;
}
buf[10] = 0;
return (buf);
}
int main (int argc, char *argv[])
{
time_t t;
time_t zero;
int c, i, fmt_flag, inp_flag, sleep_sec, sleep_millisec;
struct stat s;
struct tm *tm_p;
char fs[16], fmt[256], buf[256], *p;
size_t size;
fmt_flag = 0; inp_flag = 0; sleep_sec = -1; sleep_millisec = -1;
while ((c = getopt (argc, argv, "fim:s:")) != EOF)
switch (c)
{
case 'f':
fmt_flag = 1;
break;
case 'i':
inp_flag = 1;
break;
case 'm':
sleep_millisec = atoi (optarg);
break;
case 's':
sleep_sec = atoi (optarg);
break;
}
for (i = optind; i < argc; ++i)
{
if (isascii (argv[i][0]) && isalpha (argv[i][0])
&& argv[i][1] == ':' && argv[i][2] == 0)
{
if (_filesys (argv[i], fs, sizeof (fs)) != 0)
perror (argv[i]);
else
printf ("File-system driver=%s\n", fs);
}
else if (stat (argv[i], &s) == 0)
{
printf ("%s:\n", argv[i]);
printf (" dev=%d ino=%d mode=0%o \"%s\" nlink=%d\n",
(int)s.st_dev, (int)s.st_ino, (int)s.st_mode,
pmode ((int)s.st_mode), (int)s.st_nlink);
printf (" uid=%d gid=%d rdev=%d size=%d\n",
(int)s.st_uid, (int)s.st_gid, (int)s.st_rdev,
(int)s.st_size);
printf (" atime=%s", ctime (&s.st_atime));
printf (" mtime=%s", ctime (&s.st_mtime));
printf (" ctime=%s", ctime (&s.st_ctime));
printf (" attr=0x%.2x\n", s.st_attr);
}
else
perror (argv[i]);
}
if (sleep_sec >= 0)
sleep (sleep_sec);
if (sleep_millisec >= 0)
_sleep2 (sleep_millisec);
zero = 0;
time (&t);
printf ("timezone = %ld\n", timezone);
printf ("daylight = %d\n", daylight);
printf ("tzname[0] = %s\n", tzname[0]);
printf ("tzname[1] = %s\n", tzname[1]);
printf ("time = %ld\n", (long)t);
printf ("clock = %ld\n", (long)clock ());
tm_p = gmtime (&zero);
printf ("epoch: %s", asctime (tm_p));
tm_p = gmtime (&t);
printf ("GMT: %s", asctime (tm_p));
printf ("ctime = %s", ctime (&t));
if (inp_flag)
{
printf ("Time: ");
if (fgets (buf, sizeof (buf), stdin) == NULL)
return (0);
t = strtoul (buf, NULL, 10);
printf ("ctime = %s", ctime (&t));
}
if (fmt_flag)
{
tm_p = localtime (&t);
for (;;)
{
printf ("Format: ");
if (fgets (fmt, sizeof (fmt), stdin) == NULL)
return (0);
p = strchr (fmt, '\n');
if (p != NULL) *p = 0;
size = strftime (buf, sizeof (buf), fmt, tm_p);
if (size == 0)
printf ("Error!\n");
else
printf ("%d: |%s|\n", (int)size, buf);
}
}
return (0);
}
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/