Subversion Repositories Kolibri OS

Rev

Rev 7566 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7566 Rev 7567
Line 53... Line 53...
53 
 
 53 
 
54 
	loop()
 54 
	loop()
55 
	{
 55 
	{
Line 56... Line 56...
56 
		s = DSBYTE[code];
 56 
		s = DSBYTE[code];
57
57
58 
		while(s == ' ')
 58 
		while (s == ' ') || (s == 9)
59 
		{
 59 
		{
60 
			code++;
 60 
			code++;
61 
			s = DSBYTE[code];
 61 
			s = DSBYTE[code];
Line 182... Line 182...
182 
		}
 182 
		}
183 
	}
 183 
	}
184 
	else
184 
	else
185 
	{
 185 
	{
186 
		consoleInit();
 186 
		consoleInit();
187 
		con_printf stdcall ("Lisp interpreter v1.3");
 187 
		con_printf stdcall ("Lisp interpreter v1.4\r\n");
188 
		while(maxLoop)
 188 
		while(maxLoop)
189 
		{
 189 
		{
190 
			con_printf stdcall ("\r\n\r\nEnter code: ");
 190 
			con_printf stdcall ("\r\n$ ");
191 
			con_gets stdcall(buffer, bufferSize);
 191 
			con_gets stdcall(buffer, bufferSize);
192 
			code = EAX;
 192 
			code = EAX;
193 
			code = txt;
 193 
			//code = txt;
194 
			con_printf stdcall ("Output: ");
 194 
			con_printf stdcall ("Output: ");
195 
			evalLisp();
 195 
			evalLisp();
196 
			maxLoop--;
 196 
			maxLoop--;
197 
		}
 197 
		}
198 
	}
 198 
	}