Code: Select all
object window,%1
property mousedown,%1,down
property mouseup,%1,up
create %1
down:
console print,'mouse down\n'
ret
up:
console print,'mouse up\n'
ret
Code: Select all
object window,%1
property mousedown,%1,down
property mouseup,%1,up
create %1
down:
console print,'mouse down\n'
ret
up:
console print,'mouse up\n'
ret
Code: Select all
goto main
input:
console print,'input text: '
mov %0,''
loop:
console getch,%1
if %1,KEY_ENTER
= end_func
sym %1,%1
add %0,%1
console print,%1
goto loop
end_func:
console print,'\n'
ret
main:
call input
console print,'Text: '
console print,%0
Code: Select all
a=1;
text = 'this ';
if(a==1)
{
text=text+'work';
}
print(text);
Code: Select all
goto main
PRINT:
console print,%10
mov %0,0
ret
main:
mov %51,1
mov %52,'this '
cmp %51,1
!= IF_BLOK_0
mov %52,%52
add %52,'work'
IF_BLOK_0:
mov %10,%52
call PRINT
Code: Select all
loop
{
print(char(getch()));
}
Code: Select all
goto main
GETCH:
console getch,%0
ret
CHAR:
sym %0,%10
ret
PRINT:
console print,%10
ret
main:
LOOP_BLOK_1:
call GETCH
mov %10,%0
call CHAR
mov %10,%0
call PRINT
goto LOOP_BLOK_1
Code: Select all
function sum(a,b)
{
return a+b;
}
a=sum('Hello ','World!!!');
print(a);
Code: Select all
Hello World!!!
Code: Select all
function input()
{
ret = '';
loop
{
code = getch();
if(code==13)
{
return ret;
}
s=char(code);
print(code+'->'+s+',');
ret = ret+s;
}
}
print("\ntext:"+input());
Code: Select all
goto main
FUNCTION_GETCH:
console getch,%0
ret
FUNCTION_CHAR:
sym %0,%10
ret
FUNCTION_PRINT:
console print,%10
ret
FUNCTION_INPUT:
mov %51,''
LOOP_BLOK_1:
call FUNCTION_GETCH
mov %52,%0
cmp %52,13
!= IF_BLOK_2
mov %0,%51
ret
IF_BLOK_2:
mov %10,%52
call FUNCTION_CHAR
mov %53,%0
mov %10,%52
add %10,'->'
add %10,%53
add %10,','
call FUNCTION_PRINT
mov %51,%51
add %51,%53
goto LOOP_BLOK_1
ret
main:
call FUNCTION_INPUT
mov %10,"\ntext:"
add %10,%0
call FUNCTION_PRINT
Code: Select all
function input()
{
ret='';
print('Input: ');
loop
{
s=getch();
if(s==13)
{
return ret;
}
s=char(s);
print(s);
ret=ret+s;
}
}
loop
{
print("\n"+input()+"\n");
}
Code: Select all
dll_load("/sys/lib/console.obj");
c_init = dll_import('con_init');
c_printf = dll_import('con_printf');
c_init(-1,-1,-1,-1,'test');
c_printf('%s->%d','This integer:',123);
Code: Select all
This integer:->123
На php, все самописно, говорят что php медленно работает, но если лексемы переводить в массив и склеивать через implode, то скорость будет очень быстрая. Специально писал на php, чтобы можно было потом на бесплатный хостинг поставитьSerge wrote:pavelyakov
А парсер языка на чём написан ?
Code: Select all
a=object(window); // определить объект как окно
a.left = 0;
a.top = 0;
a.width = 300;
a.height = 400;
create(a); // создать окно
Code: Select all
<window name='obj' onmousedown=func1 onmouseup=func2></window>
function func1()
{
print('down');
}
function func2()
{
print('up');
}
Users browsing this forum: No registered users and 8 guests