void OCatCmd_Cat (void)
{
CHAR path[128];
INTEGER i;
Texts_Text T = NIL;
Texts_Reader R;
CHAR ch;
BOOLEAN tab;
CHAR buf[1024];
INTEGER bufpos;
struct Cat__1 _s;
_s.buf = (void*)buf;
_s.bufpos = &bufpos;
_s.lnk = Cat__1_s;
Cat__1_s = &_s;
path[0] = 0x00;
__NEW(T, Texts_TextDesc);
Args_Get(1, (void*)path, 128);
if (__STRCMP(path, "-t") == 0) {
tab = 1;
i = 2;
Args_Get(2, (void*)path, 128);
} else {
tab = 0;
i = 1;
}
while (path[0] != 0x00) {
if (Files_Old(path, 128) != NIL) {
Texts_Open(T, path, 128);
Texts_OpenReader(&R, Texts_Reader__typ, T, 0);
Texts_Read(&R, Texts_Reader__typ, &ch);
bufpos = 0;
while (!R.eot) {
if (ch >= ' ') {
ConsoleChar__2(ch);
} else if (ch == 0x09) {
if (tab) {
ConsoleChar__2(ch);
} else {
ConsoleChar__2(' ');
ConsoleChar__2(' ');
}
} else if (ch == 0x0d) {
ConsoleChar__2(0x0a);
}
Texts_Read(&R, Texts_Reader__typ, &ch);
}
buf[__X(bufpos, 1024)] = 0x00;
Console_String(buf, 1024);
} else {
Console_String((CHAR*)"OCat: cannot open ", 19);
Console_String(path, 128);
Console_Ln();
}
i += 1;
path[0] = 0x00;
Args_Get(i, (void*)path, 128);
}
Cat__1_s = _s.lnk;
}
static void WatsonCmd_ShowDef (void)
{
CmdlnTexts_Text T = NIL;
CHAR mod[32];
__MOVE("Watson0", mod, 8);
__NEW(T, CmdlnTexts_TextDesc);
CmdlnTexts_Open(T, (CHAR*)"", (LONGINT)1);
Watson0_ShowDef((void*)mod, 32, T);
}
