KolibriOS/kolibrios
12
4
Fork 12
Code Issues 78 Pull Requests 5 Projects Releases Activity

Lisp v1.4 new version

Browse Source 
git-svn-id: svn://kolibrios.org@7567 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
pavelyakov 2018-12-27 11:27:01 +00:00
parent 5831d02aa5
commit 396f192799
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
programs/cmm/lisp/lisp.c
View File

@ -55,7 +55,7 @@ dword evalLisp()
{
s = DSBYTE[code];
while(s == ' ')
while (s == ' ') || (s == 9)
{
code++;
s = DSBYTE[code];
@ -184,13 +184,13 @@ void main()
else
{
consoleInit();
con_printf stdcall ("Lisp interpreter v1.3");
con_printf stdcall ("Lisp interpreter v1.4\r\n");
while(maxLoop)
{
con_printf stdcall ("\r\n\r\nEnter code: ");
con_printf stdcall ("\r\n$ ");
con_gets stdcall(buffer, bufferSize);
code = EAX;
code = txt;
//code = txt;
con_printf stdcall ("Output: ");
evalLisp();
maxLoop--;

8
programs/cmm/lisp/stdcall.h
View File

@ -1,5 +1,11 @@
/* Lisp functions */
:dword std_exit()
{
con_exit stdcall (1);
ExitProcess();
}
:dword std_set(dword count, args)
{
dword name = 0;
@ -103,7 +109,7 @@ void Init()
functions.set("str", #std_str);
/* System functions */
functions.set("exit", #ExitProcess);
functions.set("exit", #std_exit);
/* Math functions */
functions.set("+", #std_add);