mirror of
https://bitbucket.org/grumdrig/pq-web.git
synced 2026-09-29 00:34:00 -06:00
39 lines
541 B
Sed
Executable File
39 lines
541 B
Sed
Executable File
#!/usr/bin/sed -f
|
|
|
|
# Convert Pascal syntax to Javascript
|
|
|
|
s,{,/*,g
|
|
s,},*/,g
|
|
s/ = / == /g
|
|
s/:=/=/g
|
|
s/procedure/function/g
|
|
s/begin/{/
|
|
s/end;/}/g
|
|
s/end/}/g
|
|
|
|
s/not/!/g
|
|
s/ and / \&\& /g
|
|
s/ or / || /g
|
|
s/<>/!=/g
|
|
s/ mod / % /g
|
|
|
|
s/if /if (/g
|
|
s/ then/)/g
|
|
|
|
s/while /while (/g
|
|
s/for /for (/g
|
|
s/with /with (/g
|
|
s/ do/)/
|
|
|
|
s/case /switch (/g
|
|
/\Wcase\W/ s/ of/) {/g
|
|
|
|
s/Result =/return/g
|
|
|
|
/^function / s/): [A-Za-z][A-Za-z]*;/)/
|
|
/^function / s/: [A-Za-z][A-Za-z]*;/()/
|
|
#/^function / s/: [A-Za-z][A-Za-z]*//g
|
|
|
|
/\Wfor\W/ s/ to /; i <= /
|
|
/\Wfor\W/ s/)/; ++i)/
|