1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
/**********************************************************************
*
* C Source: type.c
* Instance: idc_rads_2
* Description: DOS type Emulation
* %created_by: smscm %
* %date_created: Fri Apr 20 19:05:34 2001 %
*
**********************************************************************/
#ifndef lint
static char *_csrc = "@(#) %filespec: type.c~1 % (%full_filespec: type.c~1:csrc:idc_rads#3 %)";
#endif
#include <stdio.h>
#include <nwfattr.h>
#include "clibstuf.h"
void main (int argc, char** argv)
{
FILE* pfile = NULL;
int k;
int thechar;
char* defaultDir;
fnInitGpfGlobals();
SetCurrentNameSpace(NWOS2_NAME_SPACE);
defaultDir = (char *)getenv("PERL_ROOT");
if (!defaultDir || (strlen(defaultDir) == 0))
defaultDir = "sys:\\perl\\scripts";
chdir(defaultDir);
k = 1;
while (k < argc)
{
// open the next file and print it out
pfile = fopen(argv[k],"r");
if (pfile)
{
while ((thechar = getc(pfile)) != EOF)
{
if (thechar != 0x0d)
printf("%c",thechar);
}
fclose (pfile);
}
k++;
}
}
|
