1 /* Names v2.01 Copyright 1995 by Michael Harvey */
11 #define strncasecmp(d,s,n) strnicmp(d,s,n)
16 "PRE","MID","SUF","NOUN","NADJ","ADJ"
19 char * strlwr(char *buf
)
20 /* "string-lower": convert string to lower case */
25 if (*p
>='A' && *p
<='Z')
31 int findmode(char * buf
)
34 for (i
=0; i
<NONE
; i
++)
36 if (strncasecmp(buf
,label
[i
],strlen(label
[i
])) == 0)
39 dprint1("* findmode: unknown directive \"#%s\"\n",buf
);
43 void addelem(int mode
, char * buf
)
47 if (mode
<0 || mode
>=NONE
)
49 dprint("* addelem: bad mode (%d)\n",mode
);
53 if (siz
[mode
] < DATASIZ
)
55 dprint3(" addelem(%s)\n",buf
);
59 dprint("* addelem: strdup() failed\n");
63 data
[mode
][siz
[mode
]] = p
;
67 else dprint("* addelem: array full\n");
70 void readdata(FILE *inFile
)
78 while (fgets(buf
, BUF
, inFile
) != NULL
)
80 dprint3(" readdata: \"%s\"",buf
);
84 /* find end of string */
87 /* p now points to '\0' */
88 /* find last character */
90 while (p
>buf
&& isspace(*p
))
92 /* now we're on the last character */
93 if (!isspace(*p
)) p
++;
99 mode
= findmode(buf
+1);
104 else { dprint("Null FILE pointer in readdata()"); }