28 lines
613 B
Plaintext
28 lines
613 B
Plaintext
// NEX 4
|
|
|
|
here 'nex language' is [do {
|
|
here 'language' is [create new language]
|
|
|
|
return 'language'
|
|
}]
|
|
|
|
here (nex (expressions)) means [
|
|
do (expressions) in 'nex language'
|
|
]
|
|
|
|
(interpret 'input') means {
|
|
here: 'previous character' is [nothing]
|
|
iterate over [pattern match all "." in 'input' as {'this character'}] {
|
|
if ['previous character' is something] {
|
|
|
|
}
|
|
now: 'previous character' is 'this character';
|
|
}
|
|
}
|
|
|
|
loop (until 'termination') {
|
|
choose from [read console] as 'input' {
|
|
('input' matches "end") does { now: termination };
|
|
everything else does { interpret 'input' };
|
|
}
|
|
} |