-
Notifications
You must be signed in to change notification settings - Fork 12
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
1 parent
7b183f5
commit 0eb80b7
Showing
1 changed file
with
176 additions
and
0 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,176 @@ | ||
Programma geheugen: 200.000.000. | ||
|
||
☞ tijdstip ≔ Moment nieuw. | ||
☞ tijd ≔ tijdstip tijd ruw. | ||
☞ datum ≔ “jaartal-maandnummer-dagnummer uur:minuut” | ||
jaartal: tijdstip jaar ruw, | ||
maandnummer: tijdstip maand, | ||
dagnummer: tijdstip dag, | ||
uur: tijdstip uur, | ||
minuut: tijdstip minuut. | ||
|
||
☞ ontwerp ≔ Bestand nieuw: “template.html”, lezen. | ||
☞ handleiding ≔ Lijst nieuw. | ||
☞ broncode ≔ “”. | ||
|
||
Programma opdrachtregel: “rm server/mdocs/*/*.html”. | ||
|
||
broncode toevoegen: (Bestand nieuw: “../plugins/media/media.c”, lezen). | ||
|
||
☞ talen ≔ Reeks nieuw. | ||
☞ blokken ≔ broncode opsplitsen: “@def”. | ||
blokken afschuiven. | ||
☞ totaal ≔ blokken aantal. | ||
|
||
|
||
Tekst bij: “html” doen: { | ||
|
||
☞ html ≔ ⛏ tekst kopieer. | ||
html vervang: “&” door: “&”. | ||
html vervang: “"” door: “"”. | ||
html vervang: “<” door: “<”. | ||
html vervang: “>” door: “>”. | ||
html vervang: “↵” door: “<br>”. | ||
↲ html. | ||
}. | ||
|
||
Bestand reeks: “../plugins/media/i18nsel”, elk: { :nummer :taalinformatie | ||
☞ taal ≔ taalinformatie bestand. | ||
taal = “..” of: taal = “.”, doorgaan. | ||
handleiding zet: (Reeks nieuw) bij: taal. | ||
talen toevoegen: taal. | ||
}. | ||
|
||
talen sorteren: { :a :b ↲ a > b. }. | ||
|
||
blokken elk: { :nummer :blok | ||
|
||
✎ schrijf: ( | ||
“Bezig met blok: 🠶bloknummer van: 🠶totaal.↵” | ||
🠶bloknummer: nummer, | ||
🠶totaal: totaal | ||
). | ||
|
||
☞ blokinhoud ≔ blok opsplitsen: “*/”, eerste. | ||
|
||
blokinhoud | ||
vervang: “↵ *” door: “↵”, | ||
vervang: “ *↵” door: “↵”. | ||
|
||
☞ blokdelen ≔ blokinhoud opsplitsen: “@example”. | ||
☞ definitie ≔ blokdelen eerste verwijder omliggende spaties. | ||
☞ voorbeeld ≔ blokdelen laatste verwijder omliggende spaties. | ||
☞ resultaat ≔ “”. | ||
☞ resultaat? ≔ voorbeeld bevat: “@result”. | ||
|
||
(blokdelen aantal < 2) doorgaan. | ||
|
||
resultaat? ja: { | ||
voorbeeld ≔ voorbeeld opsplitsen: “@result”. | ||
resultaat ≔ voorbeeld laatste. | ||
voorbeeld ≔ voorbeeld eerste. | ||
}. | ||
|
||
☞ definitiebestand ≔ Bestand nieuw: “/tmp/def.ctr”. | ||
☞ codebestand ≔ Bestand nieuw: “/tmp/code.ctr”. | ||
|
||
definitiebestand schrijf: definitie. | ||
codebestand schrijf: voorbeeld. | ||
|
||
talen elk: { :nummer :taalinformatie | ||
|
||
☞ taal ≔ taalinformatie bestand. | ||
|
||
☞ commando ≔ | ||
“../bin/Linux/ctren -t ../plugins/media/dict/en🠶taal.dict /tmp/def.ctr 2>/dev/null”. | ||
commando 🠶taal: taal. | ||
|
||
☞ vertaalde definitie ≔ Programma opdrachtregel: commando. | ||
commando ≔ | ||
“../bin/Linux/ctren -t ../plugins/media/dict/en🠶taal.dict /tmp/code.ctr 1>/tmp/run.ctr 2>/dev/null”. | ||
commando 🠶taal: taal. | ||
Programma opdrachtregel: commando. | ||
|
||
commando ≔ “cp -R ../dist/Linux/ISO/🠶taal/mods /tmp/mods”. | ||
commando 🠶taal: taal. | ||
Programma opdrachtregel: commando. | ||
|
||
|
||
☞ vertaalde code ≔ Bestand nieuw: “/tmp/run.ctr”, lezen. | ||
|
||
resultaat? nee: { | ||
commando ≔ “cp ../bin/Linux/ctr🠶taal /tmp/ctr ; cd /tmp ; ./ctr /tmp/run.ctr 2>/tmp/err.log”. | ||
commando 🠶taal: taal. | ||
resultaat ≔ Programma opdrachtregel: commando. | ||
}. | ||
|
||
commando ≔ “echo "🠶code" | sha1sum”. | ||
commando 🠶code: ( taal + vertaalde definitie ). | ||
☞ link ≔ Programma opdrachtregel: commando, opsplitsen: “ ”, eerste. | ||
|
||
☞ hoofdstuk ≔ Reeks nieuw | ||
• vertaalde definitie | ||
• vertaalde code | ||
• resultaat | ||
• link. | ||
☞ x ≔ handleiding bij: taal, toevoegen: hoofdstuk. | ||
}. | ||
}. | ||
|
||
☞ taalregister ≔ “”. | ||
talen elk: { :nummer :taal | ||
|
||
☞ eerste hoofdstuk ≔ handleiding bij: taal, eerste. | ||
☞ link ≔ eerste hoofdstuk laatste. | ||
☞ regel ≔ “<li><a href="/mdocs/🠶taal/🠶link.html" >🠶taal</a></li>”. | ||
|
||
regel | ||
🠶taal: taal, | ||
🠶link: link. | ||
|
||
taalregister toevoegen: regel. | ||
☞ commando ≔ | ||
“mkdir -p server/docs/🠶taal”. | ||
commando 🠶taal: taal. | ||
|
||
Programma opdrachtregel: commando. | ||
}. | ||
|
||
handleiding elk: { :taal :hoofdstukken | ||
|
||
☞ inhoudsopgave ≔ “”. | ||
hoofdstukken elk: { :nummer :onderdelen | ||
|
||
☞ link ≔ onderdelen laatste. | ||
☞ titel ≔ onderdelen eerste. | ||
☞ regel ≔ “<li><a href="/mdocs/🠶taal/🠶link.html" >🠶titel</a></li>”. | ||
regel | ||
🠶taal: taal, | ||
🠶link: link, | ||
🠶titel: titel. | ||
inhoudsopgave toevoegen: regel. | ||
}. | ||
|
||
hoofdstukken elk: { :nummer :onderdelen | ||
|
||
☞ document ≔ ontwerp kopieer. | ||
document | ||
🠶datum: datum, | ||
🠶tijd: tijd, | ||
🠶taalregister: taalregister, | ||
🠶taal: taal, | ||
🠶titeltaal: taal kopieer hoofdletters, | ||
🠶hoofdstuk: onderdelen eerste html, | ||
🠶voorbeeld: (onderdelen positie: 2) html, | ||
🠶resultaat: (onderdelen positie: 3) html, | ||
🠶inhoudsopgave: inhoudsopgave. | ||
|
||
☞ bestandslocatie ≔ “server/mdocs/🠶taal/🠶link.html”. | ||
bestandslocatie | ||
🠶taal: taal, | ||
🠶link: onderdelen laatste. | ||
|
||
✎ schrijf: bestandslocatie, stop. | ||
Bestand nieuw: bestandslocatie, schrijf: document. | ||
}. | ||
}. |