Subversion Repositories Kolibri OS

Rev

Rev 7566 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7566 Rev 7567
Line 1... Line 1...
1 
/* Lisp functions */
 1 
/* Lisp functions */
- 
 
 2 
:dword std_exit()
- 
 
 3 
{
- 
 
 4 
	con_exit stdcall (1);
- 
 
 5 
	ExitProcess();
- 
 
 6 
}
- 
 
 7 
 
2 
:dword std_set(dword count, args)
 8 
:dword std_set(dword count, args)
3 
{
 9 
{
4 
	dword name = 0;
 10 
	dword name = 0;
5 
	dword value = 0;
 11 
	dword value = 0;
6 
	WHILE(count > 0)
 12 
	WHILE(count > 0)
Line 101... Line 107...
101 
	/* String functions */
 107 
	/* String functions */
102 
	functions.set("str", #std_str);
 108 
	functions.set("str", #std_str);
Line 103... Line 109...
103
109
104 
	/* System functions */
 110 
	/* System functions */
Line 105... Line 111...
105 
	functions.set("exit", #ExitProcess);
 111 
	functions.set("exit", #std_exit);
106
112
107 
	/* Math functions */
 113 
	/* Math functions */