Pascal in the dutch language.

[Thaddy]

I made this Pascal derived language up after Bart started his poll on the Lazarus IDE translation in Dutch.
After my comment there I decided to - almost - finish the language, it also compiles!
Comments and improvements are welcome:

Code: Pascal  [Select][+][-]

1. // nederpascal.inc
2. {$macro on}
3. {$define voor := for}{$define tot := to}{$define schrijf := write}{$define gebruikt := uses}{$define einde := end}{$define programma := program}{$define doe := do}{$define heel := integer}
4. {$define en:= and}{$define reeks := array}{$define breek :=break}{$define gegeven := case}{$define verder :=continue}{$define anders := else}{$define onwaar := false}{$define waar := true}
5. {$define bestand := file}{$define functie := function}{$define ganaar := goto}{$define indien := if}{$define implementatie := implementation}{$define nul := nil}{$define niet := not}
6. {$define van := of}{$define tekenreeks := string}{$define herhaal := repeat}{$define groep := set}{$define dan := then}{$define sectie := unit}{$define zolang := while}{$define met := with}
7. {$define totdat := until}{$define als := as} {$define klasse := class}{$define gooiweg := dispose}{$define probeer := try}{$define eigenschap := property}{$define zelf := self}
8. {$define nieuw := new}{$define uitzondering := except}{$define tenslotte := finally}{$define verhef := raise}{$define bibliotheek := library}{$define prive := private}
9. {$define afgeschermd := protected}{$define openbaar := public}{$define lees := read}{$define aanmaken := create}{$define strikt := strict}{$define vrijgeven:= free}
10. {$define Toelichting := //}{$define leesregel := readln}{$define schrijfregel := writeln}
11.  

Code: Pascal  [Select][+][-]

1. {$I nederpascal.inc}
2. programma mooi;
3. Toelichting: Pascal in het Nederlands
4. {$mode objfpc}
5. Gebruikt crt;
6. type
7.   TMijnKlasse = Klasse(TObject)
8.   strikt prive
9.     Fp:heel;
10.   openbaar
11.     Eigenschap p:heel lees fp schrijf fp;
12.   einde;  
13.  
14. var
15.   i : heel;
16.   m: TMijnKlasse;
17. Begin
18.   m:= TMijnKlasse.Aanmaken;
19.   probeer
20.     voor i := 0 tot 9 doe
21.     indien i div 2 = heel(onwaar) dan
22.       schrijf(i);
23.   tenslotte
24.     m.vrijgeven;
25.   einde;
26. Einde.

If there is sufficient interest I will write a small editor for it...

Other native language Pascal's are welcome...

[balazsszekely]

  This is funny.

[Graeme]

I made this Pascal derived language up after Bart started his poll on the Lazarus IDE translation in Dutch.

Wow, I never knew that was even possible. An interesting experiment.

[Thaddy]

Wow, I never knew that was even possible. An interesting experiment.

Feel free to add Afrikaans..

[Graeme]

Feel free to add Afrikaans..

As tempting as it sounds, my productivity would then take a serious nose dive!  Years ago I started the Afrikaans translation for Lazarus IDE (even some pages in the Lazarus wiki) - because at the time I had to do it for two of our products. The terminology was just so alien to me, because all my life computers only spoke English to me.

As a contractor (freelance developer), I can also say that recently I worked with a Belgium company. The Object Pascal syntax was obviously in English, but the code comments, method names and identifiers were all in Dutch. Even with my Afrikaans knowledge, I found it extremely difficult. Often I couldn't figure out the context of code, and Google Translate wasn't much help. My productivity suffered badly. It took me by surprise, but now I know what to ask in my next interview if I have foreign clients.

[Thaddy]

An even more complete grammar:

Code: Pascal  [Select][+][-]

1. //nederpascal.inc
2. {$macro on}
3. {$define als := if}
4. {$define zoals:=as}
5. {$define assembler:=assembler}
6. {$define breekaf:=break}
7. {$define inzake:=case}
8. {$define gegeven := case}
9. {$define klasse:=class}
10. {$define vervolg:=continue}
11. {$define standaard:=default}
12. {$define gooiweg:=dispose}
13. {$define deeldoor:=div}
14. {$define doe:=do}
15. {$define dalendtot:=downto}
16. {$define anders:=else}
17. {$define einde:=end}
18. {$define uitzondering:=except}
19. {$define uitweg:=exit}
20. {$define exporteert:=exports}
21. {$define buitenaf:=external}
22. {$define onwaar:=false}
23. {$define bestand:=file}
24. {$define finalizatie:=finalization}
25. {$define tenslotte:=finally}
26. {$define voor:=for}
27. {$define vooruit:=forward}
28. {$define functie:=function}
29. {$define generiek:=generic}
30. {$define ganaar:=goto}
31. {$define indien:=if}
32. {$define implementatie:=implementation}
33. {$define index:=index}
34. {$define erft:=inherited}
35. {$define initializatie:=initialization}
36. {$define inlijn:=inline}
37. {$define is:=is}
38. {$define bibliotheek:=library}
39. {$define lokaal:=local}
40. {$define naam:=name}
41. {$define nieuw:=new}
42. {$define nul:=nil}
43. {$define niet:=not}
44. {$define van:=of}
45. {$define op:=on}
46. {$define ofwel:=or}
47. {$define uit:=out}
48. {$define overschrijf:=override}
49. {$define opeengepakt:=packed}
50. {$define pascal:=pascal}
51. {$define prive:=private}
52. {$define programma:=program}
53. {$define eigenschap:=property}
54. {$define afgeschermd:=protected}
55. {$define openbaar:=public}
56. {$define gepubliceerd:=published}
57. {$define verhef:=raise}
58. {$define lees:=read}
59. {$define register:=register}
60. {$define herintroduceer:=reintroduce}
61. {$define herhaal:=repeat}
62. {$define zelf:=self}
63. {$define groep:=set}
64. {$define snl:=shl}  //schuif naar links
65. {$define snr:=shr}  //schuif naar rechts
66. {$define specializeer:=specialize}
67. {$define tekenreeks:=string}
68. {$define dan:=then}
69. {$define tot:=to}
70. {$define waar:=true}
71. {$define probeer:=try}
72. {$define sectie:=unit}
73. {$define totaan:=until}
74. {$define gebruikt:=uses}
75. {$define virtueel:=virtual}
76. {$define zolang:=while}
77. {$define met:=with}
78. {$define schrijf:=write}
79. {$define toelichting := //}
80. {$define commentaar := //}
81. {$define aanmaken := create}
82. {$define opheffen := free}
83. {$define heel := integer}
84. {$define gebroken := single}
85. {$define leesregel := readln}
86. {$define schrijfregel := writeln}
87. {$define schrijfrgl := writeln}
88. {$define leesrgl := readln}
89. {$define resultaat := result}
90. {$define tekst := text}
91. {$define overweeg := assert}
92. {$define kentoe := assign}
93. {$define herschrijf := rewrite}
94.  
95. //{$define asm:=asm}
96. //{$define interface:=interface}
97. //{$define record:=record}
98.  

[MaartenW]

Prachtige aanpak  !
Zo kan ik mijn moeder / oma / vriendin / leesclubje uitleggen wat programmeren inhoud!

[mischi]

I reminds me to the time, when i had to write some spreadsheet formulas in German Excel. As other posters said: productivity made a nose dive. Not as bad, but same direction for non-english identifiers of variables, functions, ...

[jc99]

It also reminds me when I patched the command.com/msdos.sys (from dos) into Kommand.Kom /mdose.kst with
.Exe -> .Aus (ausführbar)
.com -> .Kom (Kommando)
.bat -> .atx (Ausf. Textdatei)
.sys -> .kst (Kiste, schwarz)
I managed to get the whole thing booting a PC, was fun but not very compatible though ...
Greetings from Germany   

[SunyD]

This is funny and it works 

Here in german:

Code: Pascal  [Select][+][-]

1. {$macro on}
2. {$define programm := program}
3. {$define anfang := begin}
4. {$define ende := end}
5. {$define von := for }
6. {$define bis := to}
7. {$define solange := while}
8. {$define tue := do}
9. {$define verkleinere := dec}
10. {$define ganzzahl := integer}
11. {$define Schreibln := writeln}
12. {$define leseln := readln}
13.  
14. programm Project1;
15. var i: ganzzahl;
16. anfang
17.   von i:=1 bis 10 tue
18.     schreibln(i);
19.  
20.   schreibln(':)');
21.  
22.   solange i>0 tue anfang
23.     schreibln(i);
24.     verkleinere(i);
25.    ende;
26.    schreibln('Zum beenden [enter] drücken');
27.    leseln;
28. ende.
29.  

[jc99]

Next thing to do is a IMOFPCC, an International most obfuscated free pascal coding contest ... like the IOCCC see http://ioccc.org/

[BeniBela]

That looks great.

Too bad the macros cannot take arguments, e.g. to change the order of things. e.g to replace "write 1+2+3 in a" with "a := 1 + 2 + 3"

[Thaddy]

Next thing to do is a IMOFPCC, an International most obfuscated free pascal coding contest ... like the IOCCC see http://ioccc.org/

That can easily be done:
- Last Dutch grammar was partially machine generated from Pascal Keyword list
- By now I also have a Pas2Nederpas utility that can basically translate to any grammar that substitutes from the normal Pascal List.
- It is common knowledge that English speaking countries refer to Dutch as Chinese.

[jc99]

- It is common knowledge that English speaking countries refer to Dutch as Chinese.

Not only Dutch any other language even AE except Chinese, that they refer to Japanese.