Run lang/basic/lib through clang-format.

lang/basic/lib/abs.c

@@ -7,9 +7,9 @@
 
 long _abl(long i)
 {
-	return( i>=0?i:-i);
+	return (i >= 0 ? i : -i);
 }
 double _abr(double f)
 {
-	return( f>=0.0?f: -f);
+	return (f >= 0.0 ? f : -f);
 }

lang/basic/lib/asc.c

@@ -4,7 +4,7 @@
 
 int _asc(String* str)
 {
-	if(str==0 || str->strval==0)
+	if (str == 0 || str->strval == 0)
 		error(3);
-	return( *str->strval);
+	return (*str->strval);
 }

lang/basic/lib/asrt.c

@@ -3,7 +3,8 @@
 
 void asrt(int b)
 {
-	if(!b){
+	if (!b)
+	{
 		printf("ASSERTION ERROR\n");
 		abort();
 	}

lang/basic/lib/atn.c

@@ -10,4 +10,3 @@
 #include <math.h>
 
 double _atn(double x) { return atan(x); }
-

lang/basic/lib/chr.c

@@ -2,15 +2,15 @@
 
 /* $Id$ */
 
-String *_chr(int i)
+String* _chr(int i)
 {
-	String	*s;
+	String* s;
-	char	buf[2];
+	char buf[2];
 
-	if( i<0 || i>127)
+	if (i < 0 || i > 127)
 		error(3);
-	buf[0]=i;
+	buf[0] = i;
-	buf[1]=0;
+	buf[1] = 0;
-	s= _newstr(buf);
+	s = _newstr(buf);
-	return(s);
+	return (s);
 }

lang/basic/lib/conversion.c

@@ -3,36 +3,42 @@
 int _cint(double f)
 {
 	int r;
-	if( f<-32768 || f>32767) error(4);
+	if (f < -32768 || f > 32767)
-	if(f<0)
+		error(4);
-		r= f-0.5;
+	if (f < 0)
-	else	r= f+0.5;
+		r = f - 0.5;
-	return(r);
+	else
+		r = f + 0.5;
+	return (r);
 }
 
 double _trunc(double f)
 {
 	long d;
-	d=f;
+	d = f;
-	f=d;
+	f = d;
-	return( f );
+	return (f);
 }
 
 double _fcint(double f)
 {
 	long r;
-	if(f<0){
+	if (f < 0)
-		r= -f;
+	{
-		r= -r -1;
+		r = -f;
-	}else	r= f;
+		r = -r - 1;
-	f=r;
+	}
-	return(f);
+	else
+		r = f;
+	f = r;
+	return (f);
 }
 int _fix(double f)
 {
 	int r;
 
-	if( f<-32768.0 || f>32767.0) error(4);
+	if (f < -32768.0 || f > 32767.0)
-	r= _sgn(f) * _fcint((f>0.0? f : -f));
+		error(4);
-	return(r);
+	r = _sgn(f) * _fcint((f > 0.0 ? f : -f));
+	return (r);
 }

lang/basic/lib/error.c

@@ -7,57 +7,58 @@ int _erlsym;
 /* error takes an error value in the range of 0-255 */
 /* and generates a trap */
 
-char *errortable[255]={
+char* errortable[255] = {
-/* 0  */	"",
+	/* 0  */ "",
-/* 1  */	"RETURN without GOSUB",
+	/* 1  */ "RETURN without GOSUB",
-/* 2  */	"Out of data",
+	/* 2  */ "Out of data",
-/* 3  */	"Illegal function call",
+	/* 3  */ "Illegal function call",
-/* 4  */	"Overflow",
+	/* 4  */ "Overflow",
-/* 5  */	"Out of memory",
+	/* 5  */ "Out of memory",
-/*  6 */	"Undefined line ",
+	/*  6 */ "Undefined line ",
-/*  7 */	"Subscript out of range",
+	/*  7 */ "Subscript out of range",
-/*  8 */	"Redimensioned array",
+	/*  8 */ "Redimensioned array",
-/*  9 */	"Division by zero",
+	/*  9 */ "Division by zero",
-/* 10 */	"Illegal indirect",
+	/* 10 */ "Illegal indirect",
-/* 11 */	"Type mismatch",
+	/* 11 */ "Type mismatch",
-/* 12 */	"Out of string space",
+	/* 12 */ "Out of string space",
-/* 13 */	"String too long",
+	/* 13 */ "String too long",
-/* 14 */	"String formula too complex",
+	/* 14 */ "String formula too complex",
-/* 15 */	"Can't continue",
+	/* 15 */ "Can't continue",
-/* 16 */	"Undefined user function",
+	/* 16 */ "Undefined user function",
-/* 17 */	"No resume",
+	/* 17 */ "No resume",
-/* 18 */	"Resume without error",
+	/* 18 */ "Resume without error",
-/* 19 */	"Unprintable error",
+	/* 19 */ "Unprintable error",
-/* 20 */	"Missing operand",
+	/* 20 */ "Missing operand",
-/* 21 */	"Line buffer overflow",
+	/* 21 */ "Line buffer overflow",
-/* 22 */	"FOR without NEXT",
+	/* 22 */ "FOR without NEXT",
-/* 23 */	"WHILE without WEND",
+	/* 23 */ "WHILE without WEND",
-/* 24 */	"WEND without WHILE",
+	/* 24 */ "WEND without WHILE",
-/* 25 */	"Field overflow",
+	/* 25 */ "Field overflow",
-/* 26 */	"Internal error",
+	/* 26 */ "Internal error",
-/* 27 */	"Bad file number",
+	/* 27 */ "Bad file number",
-/* 28 */	"File not found",
+	/* 28 */ "File not found",
-/* 29 */	"Bad file mode",
+	/* 29 */ "Bad file mode",
-/* 30 */	"File already open",
+	/* 30 */ "File already open",
-/* 31 */	"Disk IO error",
+	/* 31 */ "Disk IO error",
-/* 32 */	"File already exists",
+	/* 32 */ "File already exists",
-/* 33 */	"Disk full",
+	/* 33 */ "Disk full",
-/* 34 */	"Input past end",
+	/* 34 */ "Input past end",
-/* 35 */	"Bad record number",
+	/* 35 */ "Bad record number",
-/* 36 */	"Bad file name",
+	/* 36 */ "Bad file name",
-/* 37 */	"Direct statement in file",
+	/* 37 */ "Direct statement in file",
-/* 38 */	"Too many files",
+	/* 38 */ "Too many files",
-/* 39 */	"File not open",
+	/* 39 */ "File not open",
-/* 40 */	"Syntax error in data",
+	/* 40 */ "Syntax error in data",
-0
+	0
 };
 
 void error(int index)
 {
 	_setline();
-	if( index<0 || index >40 )
+	if (index < 0 || index > 40)
-		printf("LINE %d:ERROR %d: Unprintable error\n",_erlsym,index);
+		printf("LINE %d:ERROR %d: Unprintable error\n", _erlsym, index);
-	else 	printf("LINE %d:ERROR %d: %s\n",_erlsym,index,errortable[index]);
+	else
-	_errsym= index;
+		printf("LINE %d:ERROR %d: %s\n", _erlsym, index, errortable[index]);
+	_errsym = index;
 	_trap();
 }

lang/basic/lib/file.c

@@ -4,7 +4,7 @@
 
 /* $Id$ */
 
-Filedesc	_fdtable[16];
+Filedesc _fdtable[16];
 /* BASIC file descriptor table */
 /* Channel assignment:
    -1		terminal IO
@@ -12,119 +12,122 @@ Filedesc	_fdtable[16];
     1-15	user files
 */
 
-
+int _chann = -1;
-
+FILE* _chanrd = stdin;
-int	_chann		= -1;
+FILE* _chanwr = stdout;
-FILE	*_chanrd	= stdin;
-FILE	*_chanwr	= stdout;
 
 void _setchan(int index)
 {
 #ifdef DEBUG
-	printf("setchannel %d\n",index);
+	printf("setchannel %d\n", index);
 #endif
 	fflush(_chanwr);
-	if( index == -1)
+	if (index == -1)
 	{
-		_chann= -1;
+		_chann = -1;
-		_chanrd= stdin;
+		_chanrd = stdin;
-		_chanwr= stdout;
+		_chanwr = stdout;
 		return;
 	}
-	if( index<0 || index>15)
+	if (index < 0 || index > 15)
 		error(27);
-	_chann=index;
+	_chann = index;
-	_chanrd= _chanwr= _fdtable[index].fd;
+	_chanrd = _chanwr = _fdtable[index].fd;
 }
 
 void _asschn(void)
 {
 #ifdef DEBUG
-	printf("_asschn %d\n",_chann);
+	printf("_asschn %d\n", _chann);
 #endif
-	if( _chann == -1) return;
+	if (_chann == -1)
+		return;
 #ifdef DEBUG
 	printf(" file %d\n", _fdtable[_chann].fd);
 #endif
-	if( _chann<0 || _chann>15)
+	if (_chann < 0 || _chann > 15)
 		error(27);
-	if( _fdtable[_chann].fd== 0)
+	if (_fdtable[_chann].fd == 0)
 		error(39);
-	if( feof( _fdtable[_chann].fd))
+	if (feof(_fdtable[_chann].fd))
 		error(2);
 }
 
 void _clochn(int nr)
 {
-	if( nr<1 || nr >15 || _fdtable[nr].fd==0) error(3);
+	if (nr < 1 || nr > 15 || _fdtable[nr].fd == 0)
+		error(3);
 	fclose(_fdtable[nr].fd);
-	_fdtable[nr].fd=0; _fdtable[nr].fname=0;
+	_fdtable[nr].fd = 0;
+	_fdtable[nr].fname = 0;
 }
 
 void _opnchn(int reclen, String* fname, String* mode)
 {
 	/* channel has been set */
-	FILE *f;
+	FILE* f;
 	int m;
 
 #ifdef DEBUG
-	printf("open %d %s %s \n",reclen,mode->strval,fname->strval);
+	printf("open %d %s %s \n", reclen, mode->strval, fname->strval);
 #endif
 	/* check for opened/closed file */
-	if(_fdtable[_chann].fd)
+	if (_fdtable[_chann].fd)
 		error(30);
-	switch(*mode->strval)
+	switch (*mode->strval)
 	{
 		case 'O':
 		case 'o':
-			if( (f=fopen(fname->strval,"w")) == NULL)
+			if ((f = fopen(fname->strval, "w")) == NULL)
 				error(28);
-			m= OMODE;
+			m = OMODE;
 			break;
 		case 'I':
 		case 'i':
-			if( (f=fopen(fname->strval,"r")) == NULL)
+			if ((f = fopen(fname->strval, "r")) == NULL)
 				error(28);
-			m= IMODE;
+			m = IMODE;
 			break;
 		case 'r':
 		case 'R':
-			if( (f=fopen(fname->strval,"a")) == NULL)
+			if ((f = fopen(fname->strval, "a")) == NULL)
 				error(28);
-			m= RMODE;
+			m = RMODE;
 			break;
 		default:
-			printf("file mode %s\n",mode->strval);
+			printf("file mode %s\n", mode->strval);
 			error(29);
 	}
-	_chanwr= _chanrd= _fdtable[_chann].fd= f;
+	_chanwr = _chanrd = _fdtable[_chann].fd = f;
-	_fdtable[_chann].fname= fname->strval;
+	_fdtable[_chann].fname = fname->strval;
-	_fdtable[_chann].reclength= reclen;
+	_fdtable[_chann].reclength = reclen;
-	_fdtable[_chann].mode= m;
+	_fdtable[_chann].mode = m;
 #ifdef DEBUG
-	printf("file descr %d\n",f);
+	printf("file descr %d\n", f);
 #endif
 }
 
 int _ioeof(int channel)
 {
-	FILE *fd;
+	FILE* fd;
 	char c;
-	if( channel<0 || channel >15) error(3);
+	if (channel < 0 || channel > 15)
-	fd= _fdtable[channel].fd;
-	if( fd==0)
 		error(3);
-	c=fgetc(fd);
+	fd = _fdtable[channel].fd;
-	if( feof(_fdtable[channel].fd) ) return(-1);
+	if (fd == 0)
-	ungetc(c,fd);
+		error(3);
-	return(0);
+	c = fgetc(fd);
+	if (feof(_fdtable[channel].fd))
+		return (-1);
+	ungetc(c, fd);
+	return (0);
 }
 
 void _close(void)
 {
 	/* close all open files */
 	int i;
-	for(i=1;i<16;i++)
+	for (i = 1; i < 16; i++)
-	if( _fdtable[i].fd)
+		if (_fdtable[i].fd)
-		_clochn(i);
+			_clochn(i);
 }

lang/basic/lib/io.c

@@ -8,80 +8,102 @@
 
 #define MAXWIDTH 255
 
-int	_width = 75, _pos=0, _zonewidth=15;
+int _width = 75, _pos = 0, _zonewidth = 15;
 
 void _out(char* str)
 {
 	int pos;
 
-	if( _chann== -1) pos= _pos;
+	if (_chann == -1)
-	else pos= _fdtable[_chann].pos;
+		pos = _pos;
-	while( *str) 
+	else
+		pos = _fdtable[_chann].pos;
+	while (*str)
 	{
-		if( pos>= _width){ _outnl(); pos=0;}
+		if (pos >= _width)
+		{
+			_outnl();
+			pos = 0;
+		}
 		fputc(*str++, _chanwr);
 		pos++;
 	}
-	if( _chann== -1) _pos=pos;
+	if (_chann == -1)
-	else _fdtable[_chann].pos= pos;
+		_pos = pos;
+	else
+		_fdtable[_chann].pos = pos;
 }
 
 void _outnl(void)
 {
-	fputc('\n',_chanwr);
+	fputc('\n', _chanwr);
-	if( _chann == -1)
+	if (_chann == -1)
-		_pos=0;
+		_pos = 0;
 	else
-		_fdtable[_chann].pos=0;
+		_fdtable[_chann].pos = 0;
 }
 void _zone(void)
 {
 	/* go to next zone */
 	int pos;
-	if( _chann == -1)
+	if (_chann == -1)
-		pos= _pos;
+		pos = _pos;
-	else pos= _fdtable[_chann].pos;
+	else
-	do{
+		pos = _fdtable[_chann].pos;
-		fputc(' ',_chanwr);
+	do
+	{
+		fputc(' ', _chanwr);
 		pos++;
-		if( pos==_width)
+		if (pos == _width)
 		{
 			_outnl();
-			pos=0;
+			pos = 0;
 			break;
 		}
-	} while( pos % _zonewidth != 0);
+	} while (pos % _zonewidth != 0);
-	if( _chann== -1) _pos=pos;
+	if (_chann == -1)
-	else _fdtable[_chann].pos= pos;
+		_pos = pos;
+	else
+		_fdtable[_chann].pos = pos;
 }
 void _in(char* buf)
 {
-	register int holder ;
+	register int holder;
-	char *c;
+	char* c;
 	int pos;
-	if( _chann == -1)
+	if (_chann == -1)
 	{
-		pos= _pos;
+		pos = _pos;
-	}else pos= _fdtable[_chann].pos;
-	c= buf;
-	while( (holder = fgetc(_chanrd)) != EOF && holder != '\n'){
-		*c= holder ;
-		if( _chann == -1) putchar(holder);
-		c++; pos++;
 	}
-	*c= 0;
+	else
-	if( _chann== -1) 
+		pos = _fdtable[_chann].pos;
+	c = buf;
+	while ((holder = fgetc(_chanrd)) != EOF && holder != '\n')
 	{
-		_pos=pos;
+		*c = holder;
-	} else _fdtable[_chann].pos= pos;
+		if (_chann == -1)
+			putchar(holder);
+		c++;
+		pos++;
+	}
+	*c = 0;
+	if (_chann == -1)
+	{
+		_pos = pos;
+	}
+	else
+		_fdtable[_chann].pos = pos;
 }
 void _tab(int x)
 {
-	if( x> _width) error(3);
+	if (x > _width)
-	if( x< _pos) _outnl();
+		error(3);
-	_spc(x-_pos);
+	if (x < _pos)
+		_outnl();
+	_spc(x - _pos);
 }
 void _spc(int x)
 {
-	while(x-->0) _out(" ");
+	while (x-- > 0)
+		_out(" ");
 }

lang/basic/lib/mki.c

@@ -2,29 +2,29 @@
 
 /* $Id$ */
 
-String *_mki(long i)
+String* _mki(long i)
 {
-	char *buffer ="    ";
+	char* buffer = "    ";
-	String *s;
+	String* s;
 
-	s= _newstr(buffer);
+	s = _newstr(buffer);
-	* ( (long *)s->strval ) = i ;
+	*((long*)s->strval) = i;
-	return(s);
+	return (s);
 }
-String *_mkd(double d)
+String* _mkd(double d)
 {
-	char *buffer ="        ";
+	char* buffer = "        ";
-	String *s;
+	String* s;
 
-	s= _newstr(buffer);
+	s = _newstr(buffer);
-	* ( (double *)s->strval ) = d ;
+	*((double*)s->strval) = d;
-	return(s);
+	return (s);
 }
 long _cvi(String* s)
 {
-	return *( (long *) s->strval) ;
+	return *((long*)s->strval);
 }
 double _cvd(String* s)
 {
-	return *( (double *) s->strval) ;
+	return *((double*)s->strval);
 }

lang/basic/lib/oct.c

@@ -4,25 +4,25 @@
 
 /* $Id$ */
 
-String *_oct(int i)
+String* _oct(int i)
 {
 	char buffer[30];
-	sprintf(buffer,"%o",i);
+	sprintf(buffer, "%o", i);
-	return( (String *)_newstr(buffer));
+	return ((String*)_newstr(buffer));
 }
 
-String *_hex(int i)
+String* _hex(int i)
 {
 	char buffer[30];
 
-	sprintf(buffer,"%x",i);
+	sprintf(buffer, "%x", i);
-	return( (String *)_newstr(buffer));
+	return ((String*)_newstr(buffer));
 }
 
-String *_nstr(double f)
+String* _nstr(double f)
 {
 	char buffer[80];
 
 	_str(f, buffer);
-	return (String *) _newstr(buffer);
+	return (String*)_newstr(buffer);
 }

lang/basic/lib/peek.c

@@ -5,20 +5,20 @@ int peek(int addr)
 	/* this can not work properly for machines in which the 
 	   POINTERSIZE differs from the integer size
 	*/
-	char	*p;
+	char* p;
 	int i;
 
-	p= (char *)addr;
+	p = (char*)addr;
-	i= *p;
+	i = *p;
 #ifdef DEBUG
-	printf("peek %d = %d\n",addr,i);
+	printf("peek %d = %d\n", addr, i);
 #endif
-	return(i);
+	return (i);
 }
 
 void _poke(int i, int j)
 {
-	char *p;
+	char* p;
-	p= (char *) i;
+	p = (char*)i;
-	*p=j;
+	*p = j;
 }

lang/basic/lib/power.c

@@ -1,4 +1,3 @@
 #include <math.h>
 
 double _power(double x, double y) { return pow(x, y); }
-

lang/basic/lib/print.c

@@ -20,57 +20,71 @@ void _nl(void)
 }
 void _prinum(int i)
 {
-	char	buffer[40];
+	char buffer[40];
 
 	_asschn();
-	if(i>=0) 
+	if (i >= 0)
-		sprintf(buffer," %d ",i);
+		sprintf(buffer, " %d ", i);
-	else	sprintf(buffer,"-%d ",-i);
+	else
+		sprintf(buffer, "-%d ", -i);
 	_out(buffer);
 }
 void _str(double f, char* buffer)
 {
-	register char *c = buffer;
+	register char* c = buffer;
 	int eformat = 0;
-	if( f>=0){
+	if (f >= 0)
-		if( f> 1.0e8) {
+	{
-			eformat = 1;
+		if (f > 1.0e8)
-			sprintf(buffer," %e",f);
-		}
-		else sprintf(buffer," %f",f);
-		c++;
-	}else {
-		if(-f> 1.0e8) {
-			eformat = 1;
-			sprintf(buffer,"-%e",-f);
-		}
-		else sprintf(buffer,"-%f",-f);
-	}
-	if (! eformat) {
-		for( ; *c && *c!= ' ';c++) ;
-		c--;
-		while( c>buffer && *c== '0')
 		{
-			*c= 0;c--;
+			eformat = 1;
+			sprintf(buffer, " %e", f);
 		}
-		if( *c=='.') *c=0;
+		else
+			sprintf(buffer, " %f", f);
+		c++;
+	}
+	else
+	{
+		if (-f > 1.0e8)
+		{
+			eformat = 1;
+			sprintf(buffer, "-%e", -f);
+		}
+		else
+			sprintf(buffer, "-%f", -f);
+	}
+	if (!eformat)
+	{
+		for (; *c && *c != ' '; c++)
+			;
+		c--;
+		while (c > buffer && *c == '0')
+		{
+			*c = 0;
+			c--;
+		}
+		if (*c == '.')
+			*c = 0;
 	}
 }
 void _prfnum(double f)
 {
 	/* BASIC strings trailing zeroes */
-	char	buffer[100];
+	char buffer[100];
-	char	*c;
+	char* c;
 
 	_asschn();
-	c= buffer;
+	c = buffer;
-	_str(f,c);
+	_str(f, c);
-	strcat(buffer," ");
+	strcat(buffer, " ");
 	_out(buffer);
 }
 void _prstr(String* str)
 {
 	_asschn();
-	if( str==0)	_out("<null>");
+	if (str == 0)
-	else		_out(str->strval);
+		_out("<null>");
+	else
+		_out(str->strval);
 }

lang/basic/lib/random.c

@@ -20,12 +20,13 @@ void _setrand(int i)
 }
 double _rnd(double d)
 {
-	double f; f= (int) rand();
+	double f;
-	return(f/
+	f = (int)rand();
+	return (f /
 #if EM_WSIZE == 4
-		2147483647.0
+	    2147483647.0
 #else
-		32767.0
+	    32767.0
 #endif
-	);
+	    );
 }

lang/basic/lib/read.c

@@ -7,7 +7,7 @@
 void _readln(void)
 {
 	register int c;
-	while( (c=fgetc(_chanrd)) != EOF && c!= '\n')
+	while ((c = fgetc(_chanrd)) != EOF && c != '\n')
 		;
 }
 
@@ -17,32 +17,39 @@ void readskip(void)
 #ifdef DEBUG
 	printf("readskip\n");
 #endif
-	while( (c=fgetc(_chanrd)) != EOF && c!= ',' && c!= '\n')
+	while ((c = fgetc(_chanrd)) != EOF && c != ',' && c != '\n')
 		;
 }
 void _readint(int* addr)
 {
 	int i;
-	char	buf[1024];
+	char buf[1024];
 
 #ifdef DEBUG
-	printf("read int from %d\n",_chann);
+	printf("read int from %d\n", _chann);
 #endif
 	_asschn();
-	if( fscanf(_chanrd,"%d",&i) != 1)
+	if (fscanf(_chanrd, "%d", &i) != 1)
 	{
-		if( ferror(_chanrd)) error(29);
+		if (ferror(_chanrd))
-		if( feof(_chanrd)) error(2);
+			error(29);
-		if( _chann == -1)
+		if (feof(_chanrd))
+			error(2);
+		if (_chann == -1)
 		{
-			_asschn();	/* may be closed by now */
+			_asschn(); /* may be closed by now */
-			fgets(buf,1024,_chanrd);
+			fgets(buf, 1024, _chanrd);
 			printf("?Redo ");
 			_readint(addr);
 			return;
 		}
 		error(40);
-	}else  { readskip(); *addr=i;}
+	}
+	else
+	{
+		readskip();
+		*addr = i;
+	}
 }
 void _readflt(double* addr)
 {
@@ -50,66 +57,77 @@ void _readflt(double* addr)
 	char buf[1024];
 
 #ifdef DEBUG
-	printf("read flt from %d\n",_chann);
+	printf("read flt from %d\n", _chann);
 #endif
 	_asschn();
-	if( fscanf(_chanrd,"%lf",&f) != 1)
+	if (fscanf(_chanrd, "%lf", &f) != 1)
 	{
-		if( ferror(_chanrd)) error(29);
+		if (ferror(_chanrd))
-		if( feof(_chanrd)) error(2);
+			error(29);
-		if( _chann == -1)
+		if (feof(_chanrd))
+			error(2);
+		if (_chann == -1)
 		{
-			fgets(buf,1024,_chanrd);
+			fgets(buf, 1024, _chanrd);
 			printf("?Redo ");
 			_readflt(addr);
 			return;
 		}
 		error(40);
-	}else  { readskip(); *addr=f;}
+	}
+	else
+	{
+		readskip();
+		*addr = f;
+	}
 }
 void _readstr(String** s)
 {
 	char buffer[1024];
-	register int kar ;
+	register int kar;
-	char *c;
+	char* c;
 
 #ifdef DEBUG
-	printf("read str from %d\n",_chann);
+	printf("read str from %d\n", _chann);
 #endif
 	_asschn();
-	c= buffer;
+	c = buffer;
-	kar= fgetc(_chanrd); 
+	kar = fgetc(_chanrd);
-	while(isspace(kar) && kar!= EOF) 
+	while (isspace(kar) && kar != EOF)
-		kar= fgetc(_chanrd);
+		kar = fgetc(_chanrd);
-	*c=kar ;
+	*c = kar;
-	if( kar== '"')
+	if (kar == '"')
 	{
-		/* read quoted string */
+/* read quoted string */
 #ifdef DEBUG
 		printf("qouted string\n");
 #endif
-		while ( (kar= fgetc(_chanrd)) != EOF && kar!='"' ) *c++ = kar ;
+		while ((kar = fgetc(_chanrd)) != EOF && kar != '"')
-		ungetc(kar,_chanrd);
+			*c++ = kar;
-		*c=0;
+		ungetc(kar, _chanrd);
-	}else
+		*c = 0;
-	if( isalpha(*c))
+	}
+	else if (isalpha(*c))
 	{
 		/* read normal string */
 		c++;
 #ifdef DEBUG
 		printf("non-qouted string\n");
 #endif
-		while( (kar= fgetc(_chanrd)) != ',' && kar!= EOF &&
+		while ((kar = fgetc(_chanrd)) != ',' && kar != EOF && !isspace(kar) && kar != '\n')
-		       !isspace(kar) && kar!='\n') 
+			*c++ = kar;
-		       *c++= kar ;
+		ungetc(kar, _chanrd);
-		ungetc(kar,_chanrd);
+		*c = 0;
-		*c=0;
+	}
-	}else{
+	else
-		if( ferror(_chanrd)) error(29);
+	{
-		if( feof(_chanrd)) error(2);
+		if (ferror(_chanrd))
-		if( _chann == -1)
+			error(29);
+		if (feof(_chanrd))
+			error(2);
+		if (_chann == -1)
 		{
-			fgets(buffer,1024,_chanrd);
+			fgets(buffer, 1024, _chanrd);
 			printf("?Redo ");
 			_rdline(s);
 			return;
@@ -117,12 +135,12 @@ void _readstr(String** s)
 		error(40);
 	}
 #ifdef DEBUG
-	printf("string read: %s\n",buffer);
+	printf("string read: %s\n", buffer);
 #endif
 	readskip();
 	/* save value read */
 	_decstr(*s);
-	*s= (String *) _newstr(buffer);
+	*s = (String*)_newstr(buffer);
 }
 
 extern int _seektab[];
@@ -133,30 +151,31 @@ void _restore(int line)
 	char buffer[1024];
 
 #ifdef DEBUG
-	printf("seek to %d",line);
+	printf("seek to %d", line);
 #endif
-	fseek(_chanrd,0l,0);
+	fseek(_chanrd, 0l, 0);
-	if( line)
+	if (line)
 	{
 		/* search number of lines to skip */
-		for(nr=0; _seektab[nr] && _seektab[nr]< line; nr+=2) 
+		for (nr = 0; _seektab[nr] && _seektab[nr] < line; nr += 2)
 #ifdef DEBUG
-		printf("test %d %d\n",_seektab[nr], _seektab[nr+1]);
+			printf("test %d %d\n", _seektab[nr], _seektab[nr + 1]);
 #endif
 		;
 		nr /= 2;
 #ifdef DEBUG
-		printf(" %d lines to skip\n",nr);
+		printf(" %d lines to skip\n", nr);
 #endif
-		while(nr-- >0 ) fgets(buffer,1024,_chanrd);
+		while (nr-- > 0)
+			fgets(buffer, 1024, _chanrd);
 	}
 }
 void _rdline(String** s)
 {
 	char buffer[1024];
-	if( fgets(buffer,1024,_chanrd) == 0)
+	if (fgets(buffer, 1024, _chanrd) == 0)
 	{
-		if( _chann == -1)
+		if (_chann == -1)
 		{
 			printf("?Redo ");
 			_rdline(s);
@@ -165,5 +184,5 @@ void _rdline(String** s)
 		error(40);
 	}
 	_decstr(*s);
-	*s= (String *) _newstr(buffer);
+	*s = (String*)_newstr(buffer);
 }

lang/basic/lib/return.c

@@ -1,28 +1,29 @@
 /* $Id$ */
 
-#define MAXNESTING	1000
+#define MAXNESTING 1000
 
 int _gotable[MAXNESTING];
-int topstk=0;
+int topstk = 0;
 
 void _gosub(int x)
 {
-	/* administer gosub */
+/* administer gosub */
 #ifdef DEBUG
-	printf("store %d in %d\n",x,topstk);
+	printf("store %d in %d\n", x, topstk);
 #endif
-	if( topstk== MAXNESTING)	error(26);
+	if (topstk == MAXNESTING)
-	_gotable[topstk]= x;
+		error(26);
+	_gotable[topstk] = x;
 	topstk++;
 }
 int _retstmt(void)
 {
-	/* make sure that a return label index is on top
+/* make sure that a return label index is on top
 	  of the stack */
 #ifdef DEBUG
-	printf("return to %d %d\n",_gotable[topstk-1],topstk-1);
+	printf("return to %d %d\n", _gotable[topstk - 1], topstk - 1);
 #endif
-	  if( topstk==0 || topstk==MAXNESTING) 
+	if (topstk == 0 || topstk == MAXNESTING)
 		error(1);
-	  return( _gotable[--topstk]);
+	return (_gotable[--topstk]);
 }

lang/basic/lib/salloc.c

@@ -1,16 +1,19 @@
 #include <stdlib.h>
 
-char * salloc(unsigned length)
+char* salloc(unsigned length)
 {
-	char *c, *s;
+	char* c, *s;
-	c= malloc(length);
+	c = malloc(length);
-	if( !c ) error(5);
+	if (!c)
-	for(s=c;s<c+length;s++) *s = 0;
+		error(5);
-	return(c);
+	for (s = c; s < c + length; s++)
+		*s = 0;
+	return (c);
 }
 
 void sfree(char* c)
 {
-	if( !c ) return;
+	if (!c)
+		return;
 	free(c);
 }

lang/basic/lib/sgn.c

@@ -2,13 +2,16 @@
 
 int _sgn(double v)
 {
-	if( v>0) return(1);
+	if (v > 0)
-	if( v<0) return(-1);
+		return (1);
-	return(0);
+	if (v < 0)
+		return (-1);
+	return (0);
 }
 
 int _forsgn(double v)
 {
-	if (v >= 0) return 1;
+	if (v >= 0)
+		return 1;
 	return -1;
 }

lang/basic/lib/sin.c

@@ -13,4 +13,3 @@
 double _sin(double x) { return sin(x); }
 double _cos(double x) { return cos(x); }
 double _tan(double x) { return tan(x); }
-

lang/basic/lib/sqt.c

@@ -11,4 +11,3 @@
 #include <math.h>
 
 double _sqt(double x) { return sqrt(x); }
-

lang/basic/lib/string.c

@@ -4,26 +4,30 @@
 
 /* $Id$ */
 
-#define ok(X)	if( X ==0) return;
+#define ok(X)   \
-#define okr(X)	if( X ==0) return(0);
+	if (X == 0) \
+		return;
+#define okr(X)  \
+	if (X == 0) \
+		return (0);
 
-extern char *salloc() ;
+extern char* salloc();
 
 int _length(String* str)
 {
 	okr(str);
-	return(str->strlength);
+	return (str->strlength);
 }
-String *_newstr(char* str)
+String* _newstr(char* str)
 {
-	String *s;
+	String* s;
 	okr(str);
-	s= (String *) salloc(sizeof(String));
+	s = (String*)salloc(sizeof(String));
-	s->strcount=1;
+	s->strcount = 1;
-	s->strlength= strlen(str);
+	s->strlength = strlen(str);
-	s->strval= salloc(s->strlength+1);
+	s->strval = salloc(s->strlength + 1);
-	strcpy(s->strval,str);
+	strcpy(s->strval, str);
-	return(s);
+	return (s);
 }
 void _incstr(String* src)
 {
@@ -35,9 +39,11 @@ void _decstr(String* str)
 {
 	ok(str);
 	/* Strings in ROM are initialized with this count */
-	if ( str->strcount==9999 ) return ;
+	if (str->strcount == 9999)
+		return;
 	str->strcount--;
-	if(str->strcount<=0) _delstr(str);
+	if (str->strcount <= 0)
+		_delstr(str);
 }
 void _strcpy(String* dst, String* src)
 {
@@ -51,116 +57,130 @@ void _delstr(String* src)
 {
 	ok(src);
 	sfree(src->strval);
-	sfree((char *)src);
+	sfree((char*)src);
 }
-String *_concat(String* s1,String* s2)
+String* _concat(String* s1, String* s2)
 {
-	String *s;
+	String* s;
 	int length;
-	okr(s1); okr(s2);
+	okr(s1);
-	s= (String *) salloc(sizeof(String));
+	okr(s2);
-	s->strlength= _length(s1)+_length(s2);
+	s = (String*)salloc(sizeof(String));
-	s->strval= salloc(s->strlength+1);
+	s->strlength = _length(s1) + _length(s2);
+	s->strval = salloc(s->strlength + 1);
 	s->strcount = 1;
-	strcpy(s->strval,s2->strval);
+	strcpy(s->strval, s2->strval);
-	strcat(s->strval,s1->strval);
+	strcat(s->strval, s1->strval);
-	return(s);
+	return (s);
 }
-int _strcomp(String* s1,String* s2)
+int _strcomp(String* s1, String* s2)
 {
-	okr(s1);okr(s2);
+	okr(s1);
-	return(strcmp(s2->strval,s1->strval));
+	okr(s2);
+	return (strcmp(s2->strval, s1->strval));
 }
 
-String *_left(int size, String* s)
+String* _left(int size, String* s)
 {
-	String *ns;
+	String* ns;
 	int i;
 
 	okr(s);
-	if( size <0 || size >s->strlength) error(3);
+	if (size < 0 || size > s->strlength)
-	ns= (String *) salloc(sizeof(String));
+		error(3);
-	ns->strval= salloc(size+1);
+	ns = (String*)salloc(sizeof(String));
-	ns->strcount=1;
+	ns->strval = salloc(size + 1);
-	for(i=0; i<size && s->strval[i];i++)
+	ns->strcount = 1;
-		ns->strval[i]= s->strval[i];
+	for (i = 0; i < size && s->strval[i]; i++)
-	ns->strval[i]=0;
+		ns->strval[i] = s->strval[i];
-	ns->strlength= i;
+	ns->strval[i] = 0;
-	return(ns);
+	ns->strlength = i;
+	return (ns);
 }
 
-String *_space(int d)
+String* _space(int d)
 {
-	String *s;
+	String* s;
-	int i,len;
+	int i, len;
 
-	len= d;
+	len = d;
-	s= (String *) salloc(sizeof(String));
+	s = (String*)salloc(sizeof(String));
-	s->strlength= len;
+	s->strlength = len;
-	s->strcount=1;
+	s->strcount = 1;
-	s->strval= salloc(len+1);
+	s->strval = salloc(len + 1);
-	for(i=0;i<len;i++)
+	for (i = 0; i < len; i++)
-		s->strval[i]= ' ';
+		s->strval[i] = ' ';
-	s->strval[i]=0;
+	s->strval[i] = 0;
-	return(s);
+	return (s);
 }
 
-String *_strascii(void)
+String* _strascii(void)
 {
 }
-String *_string(double f, double d)
+String* _string(double f, double d)
 {
-	int i,j;
+	int i, j;
-	String *s;
+	String* s;
 
-	i=d;j=f;
+	i = d;
-	if( i<0  || i>MAXSTRING) error(3);
+	j = f;
-	s= (String *) salloc(sizeof(String));
+	if (i < 0 || i > MAXSTRING)
-	s->strlength= i;
+		error(3);
-	s->strcount=1;
+	s = (String*)salloc(sizeof(String));
-	s->strval= salloc(i+1);
+	s->strlength = i;
-	s->strval[i--]=0;
+	s->strcount = 1;
-	for(; i>=0;i--)
+	s->strval = salloc(i + 1);
-		s->strval[i]= j;
+	s->strval[i--] = 0;
-	return(s);
+	for (; i >= 0; i--)
+		s->strval[i] = j;
+	return (s);
 }
 void _midstmt(String* s2, int i1, int i2, String* s)
 {
 	int l;
 
 	/*printf("mid called %d %d %s %s\n",i1,i2,s->strval, s2->strval);*/
-	if (i2 < 0 || i1 < -1) error(3);
+	if (i2 < 0 || i1 < -1)
-	if( s->strlength<i2 || s2->strlength < i1) error(3);	/* source string too short */
+		error(3);
-	if( i1== -1) i1= s2->strlength;
+	if (s->strlength < i2 || s2->strlength < i1)
-	l= s->strlength - i2+1;
+		error(3); /* source string too short */
-	if( i1>l ) i1=l;
+	if (i1 == -1)
-	strncpy(s->strval+i2-1,s2->strval,i1);
+		i1 = s2->strlength;
+	l = s->strlength - i2 + 1;
+	if (i1 > l)
+		i1 = l;
+	strncpy(s->strval + i2 - 1, s2->strval, i1);
 }
-String *_mid(int i1, int i2, String* s)
+String* _mid(int i1, int i2, String* s)
 {
 	int l;
-	String *s2;
+	String* s2;
 
-/*	printf("mid fcn called %d %d %s\n",i1,i2,s->strval);*/
+	/*	printf("mid fcn called %d %d %s\n",i1,i2,s->strval);*/
-	if (i2 < 0 || i1 < -1) return(s2);	/* or error? */
+	if (i2 < 0 || i1 < -1)
-	if( i1 == -1) i1= s->strlength;
+		return (s2); /* or error? */
-	s2= _newstr(s->strval);
+	if (i1 == -1)
-	s2->strval[0]=0;
+		i1 = s->strlength;
-	if( s->strlength<i2) return(s2);	/* source string too short */
+	s2 = _newstr(s->strval);
-	l= s->strlength - i2+1;
+	s2->strval[0] = 0;
-	if( i1>l ) i1=l;
+	if (s->strlength < i2)
-	strncpy(s2->strval,s->strval+i2-1,i1);
+		return (s2); /* source string too short */
-	s2->strval[i1]=0;
+	l = s->strlength - i2 + 1;
-	return(s2);
+	if (i1 > l)
+		i1 = l;
+	strncpy(s2->strval, s->strval + i2 - 1, i1);
+	s2->strval[i1] = 0;
+	return (s2);
 }
 
-String *_right(int length, String* str)
+String* _right(int length, String* str)
 {
-	String *s;
+	String* s;
 	int i;
 
-	i= _length(str)-length;
+	i = _length(str) - length;
-	if(i<0) i=0;
+	if (i < 0)
-	s= _newstr(str->strval+i);
+		i = 0;
-	return(s);
+	s = _newstr(str->strval + i);
+	return (s);
 }

lang/basic/lib/swap.c

@@ -5,23 +5,23 @@
 void _intswap(int* i1, int* i2)
 {
 	int i3;
-	i3= *i1;
+	i3 = *i1;
-	*i1= *i2;
+	*i1 = *i2;
-	*i2=i3;
+	*i2 = i3;
 }
 
 void _fltswap(double* i1, double* i2)
 {
 	double i3;
-	i3= *i1;
+	i3 = *i1;
-	*i1= *i2;
+	*i1 = *i2;
-	*i2=i3;
+	*i2 = i3;
 }
 
 void _strswap(String** s1, String** s2)
 {
-	String *s;
+	String* s;
-	s= *s1;
+	s = *s1;
-	*s1= *s2;
+	*s1 = *s2;
 	*s2 = s;
 }

lang/basic/lib/trace.c

@@ -2,5 +2,5 @@
 
 void _trace(int i)
 {
-printf("[%d]",i);
+	printf("[%d]", i);
 }

lang/basic/lib/trap.c

@@ -10,24 +10,24 @@
 /* $Id$ */
 
 /* Trap handling */
-int	_trpline;	/* BASIC return label */
+int _trpline; /* BASIC return label */
-jmp_buf	trpbuf;
+jmp_buf trpbuf;
 
 void _trpset(int nr)
 {
 	/*debug  printf("trap set to %d\n",nr);*/
-	_trpline=nr;
+	_trpline = nr;
 }
 void _trpfatal(int i)
 {
-	extern int _errsym,_erlsym;
+	extern int _errsym, _erlsym;
 
-	_errsym= i;
+	_errsym = i;
 	_setline();
-	if( _trpline == 0)
+	if (_trpline == 0)
-		printf("LINE %d: FATAL ERROR: trap %d\n",_erlsym,i);
+		printf("LINE %d: FATAL ERROR: trap %d\n", _erlsym, i);
 #ifdef DEBUG
-	printf("trap occurred %d return %d\n",i,_trpline);
+	printf("trap occurred %d return %d\n", i, _trpline);
 #endif
 	_trap();
 }
@@ -37,22 +37,22 @@ void _ini_trp(void)
 	/* initialize trap routines */
 	int i;
 
-	for(i=0;i<NSIG;i++)
+	for (i = 0; i < NSIG; i++)
-		signal(i,_trpfatal);
+		signal(i, _trpfatal);
 }
 
-
 void _settrap(int nr)
 {
-	_trpline=nr;
+	_trpline = nr;
 }
 void _trap(void)
 {
 	int line;
 
-	if( _trpline==0) exit(-1);
+	if (_trpline == 0)
-	line=_trpline;
+		exit(-1);
-	_trpline=0;		/* should be reset by user */
+	line = _trpline;
+	_trpline = 0; /* should be reset by user */
 	_ini_trp();
-	longjmp(trpbuf,line);
+	longjmp(trpbuf, line);
 }

lang/basic/lib/write.c

@@ -7,26 +7,32 @@
 
 void _wrnl(void)
 {
-	if( fputc('\n',_chanwr) == EOF) error(29);
+	if (fputc('\n', _chanwr) == EOF)
+		error(29);
 }
 void _wrcomma(void)
 {
-	if( fputc(',',_chanwr) == EOF) error(29);
+	if (fputc(',', _chanwr) == EOF)
+		error(29);
 }
 void _wrint(int i)
 {
-	if(i>0) 
+	if (i > 0)
-		if( fputc(' ',_chanwr)==EOF) error(29);
+		if (fputc(' ', _chanwr) == EOF)
-	fprintf(_chanwr,"%d",i);
+			error(29);
-	if( ferror(_chanwr) ) error(29);
+	fprintf(_chanwr, "%d", i);
+	if (ferror(_chanwr))
+		error(29);
 }
 void _wrflt(double f)
 {
-	fprintf(_chanwr,"%f",f);
+	fprintf(_chanwr, "%f", f);
-	if( ferror(_chanwr) ) error(29);
+	if (ferror(_chanwr))
+		error(29);
 }
 void _wrstr(String* s)
 {
-	fprintf(_chanwr,"\"%s\"",s->strval);
+	fprintf(_chanwr, "\"%s\"", s->strval);
-	if( ferror(_chanwr) ) error(29);
+	if (ferror(_chanwr))
+		error(29);
 }