Apple-2gs-SW
/
dict
mirror of https://github.com/ksherlock/dict.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

-d flag to print debug info.

This commit is contained in:
Kelvin Sherlock 2019-07-07 16:32:31 -04:00
parent 32625e9a00
commit 3c0a26e412
1 changed files with 34 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
main.c
View File

@ -19,6 +19,9 @@
#define BusyFlag ((byte *)0xE100FFl)
unsigned d_flag = 0;
// startup/shutdown flags.
enum {
kLoaded = 1,
@ -96,6 +99,8 @@ void ShutDownTCP(int flags, Boolean force, displayPtr fx) {
pascal void DisplayCallback(const char *message) {
unsigned length;
if (!d_flag) return;
// message is a p-string.
length = message ? message[0] : 0;
if (!length)
@ -115,7 +120,7 @@ int ConnectLoop(char *host, Word port, Connection *connection) {
qtick = GetTick() + 30 * 60;
while (!ConnectionPoll(connection)) {
if (GetTick() >= qtick) {
fprintf(stderr, "Connection timed out.\n");
fputs("Connection timed out.\n", stderr);
IncBusy();
TCPIPAbortTCP(connection->ipid);
@ -167,7 +172,7 @@ int ReadLineSync(word ipid) {
if (terr)
return -1;
if (GetTick() >= qtick) {
fprintf(stderr, "Read timed out.\n");
fputs("Read timed out.\n", stderr);
return -1;
}
}
@ -178,7 +183,7 @@ int ReadLineSync(word ipid) {
if (!rlr.rlrIsDataFlag) {
if (GetTick() >= qtick) {
fprintf(stderr, "Read timed out.\n");
fputs("Read timed out.\n", stderr);
return -1;
}
TCPIPPoll();
@ -194,7 +199,7 @@ int ReadLineSync(word ipid) {
int status(void) {
unsigned x;
if (sscanf(buffer, "%u", &x) == 1) {
fprintf(stderr, "status: %d\n", x);
if (d_flag) fprintf(stderr, "status: %d\n", x);
return x;
}
return -1;
@ -317,11 +322,11 @@ int define(Word ipid, const char *term, const char *dict) {
return -1;
case 550:
fprintf(stdout, "Invalid database.\n");
fputs("Invalid database.\n", stderr);
return -1;
case 552:
fprintf(stdout, "No match.\n");
fputs("No match.\n", stderr);
return 0;
case 150:
@ -336,13 +341,31 @@ int main(int argc, char **argv) {
int ok;
word terr;
--argc;
++argv;
d_flag = 0;
for (; argc; --argc, ++argv) {
unsigned char c = **argv;
if (c != '-') break;
if (!strcmp(*argv, "-d")) {
d_flag = 1;
continue;
}
}
if (argc < 1) {
fputs("Usage: dict [-d] word...\n", stderr);
exit(1);
}
mf = StartUpTCP(DisplayCallback);
if (argc < 1)
exit(1);
if (mf < 0) {
fprintf(stderr, "Marinetti 3.0b11 or greater is required.\n");
fputs("Marinetti 3.0b11 or greater is required.\n", stderr);
exit(1);
}
@ -353,7 +376,7 @@ int main(int argc, char **argv) {
ok = client(connection.ipid);
if (ok == 0) {
for (i = 1; i < argc; ++i) {
for (i = 0; i < argc; ++i) {
ok = define(connection.ipid, argv[i], NULL);
if (ok < 0)
break;