/* SCOTT.C Scott Layson's personal miscellaneous-function
library
This code is in the public domain.
Created from functions in STDLIB?.C 81.10.29 Gyro
*/
#include "bdscio.h"
/* This deletes elements in the array <ary>, which consists of
<len> elements of <eltsize> bytes; elements from <dello>
through <delhi> - 1 are deleted. */
arydel (ary, len, eltsize, dello, delhi)
char *ary;
int len, eltsize, dello, delhi;
{
movmem (ary + delhi * eltsize,
ary + dello * eltsize,
(len - delhi) * eltsize);
}
match (s1, s2) /* case-independent null-term compare */
char *s1, *s2;
{
do if (toupper (*s1) != toupper (*s2)) return (FALSE);
while ((s1++, *s2++));
return (TRUE);
}
upcase (str) /* convert a string to upper case */
char *str;
{
for (;*str; ++str) *str = toupper (*str);
}
/* The version of this in STDLIB2.C is bugous!!! */
int
fscanf(iobuf,format)
char *format;
struct _buf *iobuf;
{
char text[MAXLINE];
if (!fgets(text,iobuf)) return /* 0 NO!!! */ -1;
return _scn(text,&format);
}
/* This is the standard one, except: if the character after "%s" in the format
string is a '%', the %s breaks on any whitespace. */
int
_scn(line,fmt)
char *line, **fmt;
{
char sf, c, base, n, *sptr, *format, matchchar;
int sign, val, **args;
format = *fmt++; /* fmt first points to the format string */
args = fmt; /* now it points to the arg list */
n = 0;
while (c = *format++) {
_igs (&line);
if (!*line) return n; /* if end of input string, return */
if (isspace(c)) continue; /* skip white space in format string */
if (c != '%') { /* if not %, must match text */
if (c != _igs(&line)) return n;
else line++;
}
else { /* process conversion */
sign = 1;
base = 10;
sf = 0;
if ((c = *format++) == '*') {
sf++; /* if "*" given, supress assignment */
c = *format++;
}
switch (toupper(c)) {
case 'X': base = 16;
goto doval;
case 'O': base = 8;
goto doval;
case 'D': if (_igs(&line) == '-') {
sign = -1;
line++;
}
doval: case 'U': val = 0;
if (_bc(_igs(&line),base) == ERROR)
return n;
while ((c = _bc(*line++,base)) != 255)
val = val * base + c;
line--;
break;
case 'S': _igs(&line);
sptr = *args;
if (*format != '%') matchchar = *format++;
else matchchar = '\0';
while (c = *line++) {
if (matchchar ? c == matchchar : isspace (c)) break;
if (!sf) *sptr++ = c;
}
if (!sf) {
n++;
*sptr = '\0';
args++;
}
continue;
case 'C': if (!sf) {
poke(*args++, *line);
n++;
}
line++;
continue;
default: return n;
}
if (!sf) {
**args++ = val * sign;
n++;
}
}}
return n;
}
/* This one doesn't leave a trailing newline on the end. It also doesn't
care about CRs at all. */
char *
fgets(s,iobuf)
char *s;
struct _buf *iobuf;
{
int count, c;
char *cptr;
count = (MAXLINE - 1);
cptr = s;
if ((c = getc(iobuf)) == CPMEOF || c == EOF) return NULL;
do {
if (c == '\r') continue;
if (c == '\n') break;
*cptr++ = c;
}
while (--count && (c = getc(iobuf)) != EOF && c != CPMEOF);
if (c == CPMEOF) ungetc(c,iobuf); /* push back control-Z */
*cptr = '\0';
return s;
}
/* End of SCOTT.C */
