Recent

Author Topic: Pascal in the dutch language.  (Read 7783 times)

Thaddy

  • Hero Member
  • *****
  • Posts: 14197
  • Probably until I exterminate Putin.
Pascal in the dutch language.
« on: May 15, 2017, 09:58:04 am »
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... :-* %) :D
« Last Edit: May 15, 2017, 07:40:27 pm by Thaddy »
Specialize a type, not a var.

balazsszekely

  • Guest
Re: Pascal in the dutch language.
« Reply #1 on: May 15, 2017, 10:33:04 am »
 :D This is funny.

Graeme

  • Hero Member
  • *****
  • Posts: 1428
    • Graeme on the web
Re: Pascal in the dutch language.
« Reply #2 on: May 15, 2017, 10:55:00 am »
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. :)
--
fpGUI Toolkit - a cross-platform GUI toolkit using Free Pascal
http://fpgui.sourceforge.net/

Thaddy

  • Hero Member
  • *****
  • Posts: 14197
  • Probably until I exterminate Putin.
Re: Pascal in the dutch language.
« Reply #3 on: May 15, 2017, 10:56:39 am »
Wow, I never knew that was even possible. An interesting experiment. :)
Feel free to add Afrikaans.. 8-)
Specialize a type, not a var.

Graeme

  • Hero Member
  • *****
  • Posts: 1428
    • Graeme on the web
Re: Pascal in the dutch language.
« Reply #4 on: May 15, 2017, 11:07:15 am »
Feel free to add Afrikaans.. 8-)
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.
--
fpGUI Toolkit - a cross-platform GUI toolkit using Free Pascal
http://fpgui.sourceforge.net/

Thaddy

  • Hero Member
  • *****
  • Posts: 14197
  • Probably until I exterminate Putin.
Re: Pascal in the dutch language.
« Reply #5 on: May 15, 2017, 12:38:34 pm »
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.  
« Last Edit: May 15, 2017, 07:41:06 pm by Thaddy »
Specialize a type, not a var.

MaartenW

  • New member
  • *
  • Posts: 9
Re: Pascal in the dutch language.
« Reply #6 on: May 15, 2017, 03:28:46 pm »
Prachtige aanpak  8) !
Zo kan ik mijn moeder / oma / vriendin / leesclubje uitleggen wat programmeren inhoud!

mischi

  • Full Member
  • ***
  • Posts: 170
Re: Pascal in the dutch language.
« Reply #7 on: May 15, 2017, 06:03:58 pm »
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

  • Hero Member
  • *****
  • Posts: 553
    • My private Site
Re: Pascal in the dutch language.
« Reply #8 on: May 15, 2017, 06:50:36 pm »
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   
OS: Win XP x64, Win 7, Win 7 x64, Win 10, Win 10 x64, Suse Linux 13.2
Laz: 1.4 - 1.8.4, 2.0
https://github.com/joecare99/public
'~|    /''
,_|oe \_,are
If you want to do something for the environment: Twitter: #reduceCO2 or
https://www.betterplace.me/klimawandel-stoppen-co-ueber-preis-reduzieren

SunyD

  • Guest
Re: Pascal in the dutch language.
« Reply #9 on: May 15, 2017, 10:05:39 pm »
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

  • Hero Member
  • *****
  • Posts: 553
    • My private Site
Re: Pascal in the dutch language.
« Reply #10 on: May 16, 2017, 12:37:19 am »
Next thing to do is a IMOFPCC, an International most obfuscated free pascal coding contest ... like the IOCCC see http://ioccc.org/ ;)
OS: Win XP x64, Win 7, Win 7 x64, Win 10, Win 10 x64, Suse Linux 13.2
Laz: 1.4 - 1.8.4, 2.0
https://github.com/joecare99/public
'~|    /''
,_|oe \_,are
If you want to do something for the environment: Twitter: #reduceCO2 or
https://www.betterplace.me/klimawandel-stoppen-co-ueber-preis-reduzieren

BeniBela

  • Hero Member
  • *****
  • Posts: 905
    • homepage
Re: Pascal in the dutch language.
« Reply #11 on: May 16, 2017, 01:00:50 am »
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

  • Hero Member
  • *****
  • Posts: 14197
  • Probably until I exterminate Putin.
Re: Pascal in the dutch language.
« Reply #12 on: May 16, 2017, 06:30:01 am »
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.
Specialize a type, not a var.

jc99

  • Hero Member
  • *****
  • Posts: 553
    • My private Site
Re: Pascal in the dutch language.
« Reply #13 on: May 16, 2017, 04:09:55 pm »
- 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. ;)
OS: Win XP x64, Win 7, Win 7 x64, Win 10, Win 10 x64, Suse Linux 13.2
Laz: 1.4 - 1.8.4, 2.0
https://github.com/joecare99/public
'~|    /''
,_|oe \_,are
If you want to do something for the environment: Twitter: #reduceCO2 or
https://www.betterplace.me/klimawandel-stoppen-co-ueber-preis-reduzieren

 

TinyPortal © 2005-2018