Pascal in  the dutch language.
lazarus / 62-General

----------------------------------------------------------------------
Thaddy · 2017-05-15 07:58

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][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i //
nederpascal.inc{$macro on}{$define voor := for}{$define tot :=
to}{$define schrijf := write}{$define gebruikt := uses}{$define einde
:= end}{$define programma := program}{$define doe := do}{$define heel
:= integer}{$define en:= and}{$define reeks := array}{$define breek
:=break}{$define gegeven := case}{$define verder :=continue}{$define
anders := else}{$define onwaar := false}{$define waar := true}{$define
bestand := file}{$define functie := function}{$define ganaar :=
goto}{$define indien := if}{$define implementatie :=
implementation}{$define nul := nil}{$define niet := not}{$define van
:= of}{$define tekenreeks := string}{$define herhaal :=
repeat}{$define groep := set}{$define dan := then}{$define sectie :=
unit}{$define zolang := while}{$define met := with}{$define totdat :=
until}{$define als := as} {$define klasse := class}{$define gooiweg :=
dispose}{$define probeer := try}{$define eigenschap :=
property}{$define zelf := self}{$define nieuw := new}{$define
uitzondering := except}{$define tenslotte := finally}{$define verhef
:= raise}{$define bibliotheek := library}{$define prive :=
private}{$define afgeschermd := protected}{$define openbaar :=
public}{$define lees := read}{$define aanmaken := create}{$define
strikt := strict}{$define vrijgeven:= free}{$define Toelichting :=
//}{$define leesregel := readln}{$define schrijfregel :=
writeln} Code: Pascal  [Select][+][-]window.onload = function(){var x1
= document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i {$I
nederpascal.inc}programma mooi;Toelichting: Pascal in het
Nederlands{$mode objfpc}Gebruikt crt;type  TMijnKlasse =
Klasse(TObject)  strikt prive    Fp:heel;  openbaar    Eigenschap
p:heel lees fp schrijf fp;  einde;    var   i : heel;  m:
TMijnKlasse;Begin  m:= TMijnKlasse.Aanmaken;  probeer    voor i := 0
tot 9 doe    indien i div 2 = heel(onwaar) dan      schrijf(i); 
tenslotte    m.vrijgeven;  einde;Einde.
If there is sufficient interest I will write a small editor for it...

Other native language Pascal's are welcome...

----------------------------------------------------------------------
balazsszekely · 2017-05-15 08:33

This is funny.

----------------------------------------------------------------------
Graeme · 2017-05-15 08:55

Quote from: Thaddy on May 15, 2017, 09:58:04 amI 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 · 2017-05-15 08:56

Quote from: Graeme on May 15, 2017, 10:55:00 amWow, I never knew that
was even possible. An interesting experiment.
Feel free to add Afrikaans..

----------------------------------------------------------------------
Graeme · 2017-05-15 09:07

Quote from: Thaddy on May 15, 2017, 10:56:39 amFeel 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 · 2017-05-15 10:38

An even more complete grammar:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i
//nederpascal.inc{$macro on}{$define als := if}{$define
zoals:=as}{$define assembler:=assembler}{$define
breekaf:=break}{$define inzake:=case}{$define gegeven := case}{$define
klasse:=class}{$define vervolg:=continue}{$define
standaard:=default}{$define gooiweg:=dispose}{$define
deeldoor:=div}{$define doe:=do}{$define dalendtot:=downto}{$define
anders:=else}{$define einde:=end}{$define
uitzondering:=except}{$define uitweg:=exit}{$define
exporteert:=exports}{$define buitenaf:=external}{$define
onwaar:=false}{$define bestand:=file}{$define
finalizatie:=finalization}{$define tenslotte:=finally}{$define
voor:=for}{$define vooruit:=forward}{$define
functie:=function}{$define generiek:=generic}{$define
ganaar:=goto}{$define indien:=if}{$define
implementatie:=implementation}{$define index:=index}{$define
erft:=inherited}{$define initializatie:=initialization}{$define
inlijn:=inline}{$define is:=is}{$define bibliotheek:=library}{$define
lokaal:=local}{$define naam:=name}{$define nieuw:=new}{$define
nul:=nil}{$define niet:=not}{$define van:=of}{$define op:=on}{$define
ofwel:=or}{$define uit:=out}{$define overschrijf:=override}{$define
opeengepakt:=packed}{$define pascal:=pascal}{$define
prive:=private}{$define programma:=program}{$define
eigenschap:=property}{$define afgeschermd:=protected}{$define
openbaar:=public}{$define gepubliceerd:=published}{$define
verhef:=raise}{$define lees:=read}{$define register:=register}{$define
herintroduceer:=reintroduce}{$define herhaal:=repeat}{$define
zelf:=self}{$define groep:=set}{$define snl:=shl}  //schuif naar
links{$define snr:=shr}  //schuif naar rechts{$define
specializeer:=specialize}{$define tekenreeks:=string}{$define
dan:=then}{$define tot:=to}{$define waar:=true}{$define
probeer:=try}{$define sectie:=unit}{$define totaan:=until}{$define
gebruikt:=uses}{$define virtueel:=virtual}{$define
zolang:=while}{$define met:=with}{$define schrijf:=write}{$define
toelichting := //}{$define commentaar := //}{$define aanmaken :=
create}{$define opheffen := free}{$define heel := integer}{$define
gebroken := single}{$define leesregel := readln}{$define schrijfregel
:= writeln}{$define schrijfrgl := writeln}{$define leesrgl :=
readln}{$define resultaat := result}{$define tekst := text}{$define
overweeg := assert}{$define kentoe := assign}{$define herschrijf :=
rewrite} //{$define asm:=asm}//{$define
interface:=interface}//{$define record:=record}

----------------------------------------------------------------------
MaartenW · 2017-05-15 13:28

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

----------------------------------------------------------------------
mischi · 2017-05-15 16:03

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 · 2017-05-15 16:50

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 · 2017-05-15 20:05

This is funny and it works 

Here in german:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i {$macro
on}{$define programm := program}{$define anfang := begin}{$define ende
:= end}{$define von := for }{$define bis := to}{$define solange :=
while}{$define tue := do}{$define verkleinere := dec}{$define ganzzahl
:= integer}{$define Schreibln := writeln}{$define leseln :=
readln} programm Project1;var i: ganzzahl;anfang  von i:=1 bis 10 tue 
  schreibln(i);   schreibln(':)');   solange i>0 tue anfang   
schreibln(i);    verkleinere(i);   ende;   schreibln('Zum beenden
[enter] drücken');   leseln;ende.

----------------------------------------------------------------------
jc99 · 2017-05-15 22:37

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

----------------------------------------------------------------------
BeniBela · 2017-05-15 23:00

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 · 2017-05-16 04:30

Quote from: jc99 on May 16, 2017, 12:37:19 amNext 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 · 2017-05-16 14:09

Quote from: Thaddy on May 16, 2017, 06:30:01 am- 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.