kolibrios-gitea/programs/cmm/lisp/stdcall.h
pavelyakov 0cb21a159b New lisp for KolibriOS
git-svn-id: svn://kolibrios.org@7562 a494cfbc-eb01-0410-851d-a64ba20cac60
2018-12-04 22:34:36 +00:00

24 lines
354 B
C

dword StdCall(dword count, name, args)
{
dword tmp = 0;
if(!strcmp(name, "print"))
{
consoleInit();
con_printf stdcall (DSDWORD[args]);
}
else if(!strcmp(name, "input"))
{
}
else if(!strcmp(name, "str"))
{
tmp = malloc(15);
itoa_(tmp,DSDWORD[args]);
return tmp;
}
else if(!strcmp(name, "exit"))
{
ExitProcess();
}
return 0;
}