163 lines
4.9 KiB
Forth
Executable file
163 lines
4.9 KiB
Forth
Executable file
#!/usr/bin/env retro
|
|
|
|
# Overview
|
|
|
|
Toki Pona is a very small constructed language. This is
|
|
a quick and dirty tool to provide a (very) rough translation
|
|
to English.
|
|
|
|
A couple of resources:
|
|
|
|
* http://tokipona.org
|
|
* http://tokipona.net/tp/janpije/index.php
|
|
|
|
# The Code
|
|
|
|
~~~
|
|
:translate
|
|
'a [ '[emphasis] ] s:case
|
|
'akesi [ 'lizard ] s:case
|
|
'ala [ 'no ] s:case
|
|
'alasa [ 'hunt ] s:case
|
|
'ale [ 'all ] s:case
|
|
'anpa [ 'low ] s:case
|
|
'ante [ 'different ] s:case
|
|
'anu [ 'or ] s:case
|
|
'awen [ 'keep ] s:case
|
|
'e [ '[object] ] s:case
|
|
'en [ 'and ] s:case
|
|
'esun [ 'shop ] s:case
|
|
'ijo [ 'thing ] s:case
|
|
'ike [ 'bad ] s:case
|
|
'ilo [ 'tool ] s:case
|
|
'insa [ 'inside ] s:case
|
|
'jaki [ 'dirty ] s:case
|
|
'jan [ 'person ] s:case
|
|
'jelo [ 'yellow ] s:case
|
|
'jo [ 'have ] s:case
|
|
'kala [ 'fish ] s:case
|
|
'kalama [ 'sound ] s:case
|
|
'kama [ 'come ] s:case
|
|
'kasi [ 'plant ] s:case
|
|
'ken [ 'can ] s:case
|
|
'kepeken [ 'use ] s:case
|
|
'kili [ 'fruit ] s:case
|
|
'kiwen [ 'rock ] s:case
|
|
'ko [ 'paste ] s:case
|
|
'kon [ 'air ] s:case
|
|
'kule [ 'color ] s:case
|
|
'kulupu [ 'group ] s:case
|
|
'kute [ 'hear ] s:case
|
|
'la [ '[context] ] s:case
|
|
'lape [ 'sleep ] s:case
|
|
'laso [ 'green ] s:case
|
|
'lawa [ 'head ] s:case
|
|
'len [ 'cloth ] s:case
|
|
'lete [ 'cold ] s:case
|
|
'li [ '[predicate] ] s:case
|
|
'lili [ 'small ] s:case
|
|
'linja [ 'line ] s:case
|
|
'lipu [ 'paper ] s:case
|
|
'loje [ 'red ] s:case
|
|
'lon [ 'at ] s:case
|
|
'luka [ 'hand ] s:case
|
|
'lukin [ 'see ] s:case
|
|
'lupa [ 'hole ] s:case
|
|
'ma [ 'land ] s:case
|
|
'mama [ 'parent ] s:case
|
|
'mani [ 'money ] s:case
|
|
'meli [ 'woman ] s:case
|
|
'mi [ 'me ] s:case
|
|
'mije [ 'man ] s:case
|
|
'moku [ 'eat ] s:case
|
|
'moli [ 'dead ] s:case
|
|
'monsi [ 'back ] s:case
|
|
'mu [ '[meow] ] s:case
|
|
'mun [ 'moon ] s:case
|
|
'musi [ 'play ] s:case
|
|
'mute [ 'many ] s:case
|
|
'nanpa [ 'number ] s:case
|
|
'nasa [ 'strange ] s:case
|
|
'nasin [ 'way ] s:case
|
|
'nena [ 'mountain ] s:case
|
|
'ni [ 'this ] s:case
|
|
'nimi [ 'name ] s:case
|
|
'noka [ 'foot ] s:case
|
|
'o [ '[command] ] s:case
|
|
'olin [ 'love ] s:case
|
|
'ona [ 'it ] s:case
|
|
'open [ 'open ] s:case
|
|
'pakala [ 'break ] s:case
|
|
'pali [ 'do ] s:case
|
|
'palisa [ 'stick ] s:case
|
|
'pan [ 'food ] s:case
|
|
'pana [ 'give ] s:case
|
|
'pi [ 'of ] s:case
|
|
'pilin [ 'feel ] s:case
|
|
'pimeja [ 'black ] s:case
|
|
'pini [ 'end ] s:case
|
|
'pipi [ 'bug ] s:case
|
|
'poka [ 'near ] s:case
|
|
'poki [ 'container ] s:case
|
|
'pona [ 'good ] s:case
|
|
'pu [ 'book ] s:case
|
|
'sama [ 'same ] s:case
|
|
'seli [ 'fire ] s:case
|
|
'selo [ 'skin ] s:case
|
|
'seme [ 'what ] s:case
|
|
'sewi [ 'high ] s:case
|
|
'sijelo [ 'form ] s:case
|
|
'sike [ 'circle ] s:case
|
|
'sin [ 'new ] s:case
|
|
'sina [ 'you ] s:case
|
|
'sinpin [ 'face ] s:case
|
|
'sitelen [ 'picture ] s:case
|
|
'sona [ 'know ] s:case
|
|
'soweli [ 'animal ] s:case
|
|
'suli [ 'big ] s:case
|
|
'suno [ 'sun ] s:case
|
|
'supa [ 'table ] s:case
|
|
'suwi [ 'sweet ] s:case
|
|
'tan [ 'from ] s:case
|
|
'taso [ 'but ] s:case
|
|
'tawa [ 'to ] s:case
|
|
'telo [ 'water ] s:case
|
|
'tenpo [ 'time ] s:case
|
|
'toki [ 'talk ] s:case
|
|
'tomo [ 'house ] s:case
|
|
'tu [ 'two ] s:case
|
|
'unpa [ 'sex ] s:case
|
|
'uta [ 'mouth ] s:case
|
|
'utala [ 'fight ] s:case
|
|
'walo [ 'while ] s:case
|
|
'wan [ 'one ] s:case
|
|
'waso [ 'bird ] s:case
|
|
'wawa [ 'strong ] s:case
|
|
'weka [ 'away ] s:case
|
|
'wile [ 'want ] s:case ;
|
|
~~~
|
|
|
|
|
|
~~~
|
|
{{
|
|
'Fenced var
|
|
:toggle-fence @Fenced not !Fenced ;
|
|
:fenced? (-f) @Fenced ;
|
|
:handle-line (s-)
|
|
fenced? [ over call ] [ drop ] choose ;
|
|
---reveal---
|
|
:unu (sq-)
|
|
swap [ dup '~~~ s:eq?
|
|
[ drop toggle-fence ]
|
|
[ handle-line ] choose
|
|
] file:for-each-line drop ;
|
|
}}
|
|
~~~
|
|
|
|
~~~
|
|
:clean [ [ c:letter? ] [ c:whitespace? ] bi or ] s:filter ;
|
|
:original dup s:put nl tab ;
|
|
:tokens ASCII:SPACE s:tokenize ;
|
|
:convert [ translate s:put sp ] a:for-each nl ;
|
|
#0 script:get-argument [ s:to-lower clean original tokens convert ] unu
|
|
~~~
|