DataMuseum.dk

top - metrics - download

    Length: 3200 (0xc80)
    Types: TextFile
    Names: »AUXFN.H«

└─⟦d3d1d07f5⟧ Bits:30009789/_.ft.Ibm2.50006621.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »AUXFN.H« 

TextFile

iswhite(c)
char	c;
æ
	return c==0 øø c==' ' øø c=='Øt' øø c==',';
å

/*
	Some string functions
*/


islower(c)
char c;
æ
	return c>='a' && c<='z';
å

isdecimal(c)
char c;
æ
	return c>='0' && c<='9';
å

strcpy(to,from)
char	*to, *from;
æ
	do
	æ
		*to++ = *from;
	å while(*from++);
å


strlen(s)
	char * s;
æ
	char *x;

	for(x=s;*x++;);
	return x-s-1;
å


/* in assembly language:
streq(str1,str2)
	char str1ÆÅ,str2ÆÅ;
æ
	char * q1;
	char * p2;

	q1 = str1;
	p2 = str2;
	while(*p2)
		if(*q1++!=*p2++) return 0;
	return p2-str2;
å
*/

putdec(n)
	int n;
æ
	int j;

	/* special case not considered */
	if(n<0)
	æ	outbyte('-');
		n=-n;
	å
	if(j=n/10)
		putdec(j);
	outbyte(n%10+'0');
å

isnumeric(c,radix)
	char	c;
	int	radix;
æ
	c = toup(c);
	if(radix <= 10)
		return c>='0' && c<='0'+(radix-1);
	else
		return (c>='0'&&c<='9') øø (c>='A'&&c<='A'+(radix-11));
å

outbyte(c)
	char c;
æ
	putchar(c);
/*	or...		*/
/*	putc(c,fd);	*/
å
sprintf()
æ
	puts("Invalid function callØrØn");
	exit();
å
#define _NUMSIZE 20

putnum(i)
int	i;
æ
	char	tÆ10Å;

	itoa(i,t);
	puts(t);
å

itoa(n,s)
int	n;
char	sÆÅ;
æ
	int	i, sign;

	if((sign = n) < 0)
		n = -n;
	i = 0;
	do
	æ
		sÆi++Å = n % 10 + '0';
	å while((n /= 10) > 0);
	if(sign < 0)
		sÆi++Å = '-';
	sÆiÅ = 0;
	reverse(s);
å

reverse(s)
char	sÆÅ;
æ
	char	c;
	int	i, j;

	i = 0;
	j = strlen(s) - 1;
	for(; i < j;)
	æ
		c = sÆiÅ;
		sÆi++Å = sÆjÅ;
		sÆj--Å = c;
	å
å

atoi(n)
char *n;
æ
	int val; 
	char c;
	int sign;
	val=0;
	sign=1;
	while ((c = *n) == 'Øt' øø c== ' ' øø c=='+') ++n;
	if (c== '-') æsign = -1; n++;å
	while (  isdigit(c = *n++)) val = val * 10 + c - '0';
	return sign*val;
å

strcat(s1,s2)
char *s1, *s2;
æ
	char *temp; temp=s1;
	while(*s1) s1++;
	do *s1++ = *s2; while (*s2++);
	return temp;
å

strcmp(s,t)
char sÆÅ, tÆÅ;
æ
	int i;
	i = 0;
	while (sÆiÅ == tÆiÅ)
		if (sÆi++Å == 'Ø0')
			return 0;
	return sÆiÅ - tÆiÅ;
å


isalpha(c)
char c;
æ
	return isupper(c) øø islower(c);
å

isupper(c)
char c;
æ
	return c>='A' && c<='Z';
å


isdigit(c)
char c;
æ
	return c>='0' && c<='9';
å

isspace(c)
char c;
æ
	return c==' ' øø c=='Øt' øø c=='Øn';
å

toup(cc)
	char	cc;
æ
	register char c;

	if((c=cc) >= 'a' && c <= 'z')
		return c-' ';
	return c;
å

tolower(c)
char c;
æ
	if(isupper(c))
		return c+32;
	else
		return c;
å

initw(var,string)
int *var;
char *string;
æ
	int n;
	while ((n = getval(&string)) != -32760) *var++ = n;
å

initb(var,string)
char *var, *string;
æ
	int n;
	while ((n = getval(&string)) != -32760) *var++ = n;
å

getval(strptr)
char *strptr;
æ
	char	*s1;
	int n;
	if(!*(s1 = *strptr)) return -32760;
	n = atoi(*strptr);
	while (*(s1 = *strptr) && *(s1 = (*strptr)++) != ',');
	return n;
å

abs(n)
int	n;
æ
	if(n < 0)
		return -n;
	else
		return n;
å


puts(p1)
char *p1;
æ

	for(;*p1;)æ
		putchar(*p1);
		if(*p1==10) putchar(13); /* ie crlf */
		p1++;
	å
å
«eof»