[unix-history] / ind.b

main $(
   extrn read, write;
   auto i, c, state, line 100;

loop:
   state = i = 0;
loop1:
   c = read();
   if(c==4) return;
   if(c==':' & state==0) state = 2;
   if((c<'0' ^ c>'9'&c<'a' ^ c>'z') & state==0) state = 1;
   line[i] = c;
   i = i+1;
   if(c!=012) goto loop1;
   if(state==2 ^ i==1) goto noi;
   write('  ');
   write(' ');
noi:
   i = 0;
loop3:
   c = line[i];
   write(c);
   i = i+1;
   if(c!=012) goto loop3;
   goto loop;
$)
Commit	Line	Data
69f28986 KT	1	main $(
	2	extrn read, write;
	3	auto i, c, state, line 100;
	4
	5	loop:
	6	state = i = 0;
	7	loop1:
	8	c = read();
	9	if(c==4) return;
	10	if(c==':' & state==0) state = 2;
	11	if((c<'0' ^ c>'9'&c<'a' ^ c>'z') & state==0) state = 1;
	12	line[i] = c;
	13	i = i+1;
	14	if(c!=012) goto loop1;
	15	if(state==2 ^ i==1) goto noi;
	16	write(' ');
	17	write(' ');
	18	noi:
	19	i = 0;
	20	loop3:
	21	c = line[i];
	22	write(c);
	23	i = i+1;
	24	if(c!=012) goto loop3;
	25	goto loop;
	26	$)