mirror of
https://github.com/vishapoberon/oberonbyexample.git
synced 2026-04-05 21:02:25 +00:00
26 lines
419 B
Modula-2
26 lines
419 B
Modula-2
MODULE obe;
|
|
|
|
IMPORT
|
|
Files,
|
|
Platform,
|
|
Out;
|
|
|
|
PROCEDURE CheckDirectories;
|
|
BEGIN
|
|
END CheckDirectories;
|
|
|
|
PROCEDURE GenIndex;
|
|
CONST
|
|
templpath = "../templates/index.html";
|
|
outputpath = "../public/index.html";
|
|
examplespath = "../examples.txt";
|
|
VAR
|
|
outputfd, templfd, examplesfd: Files.File;
|
|
outputrd, templrd, examplesrd: Files.Rider;
|
|
BEGIN
|
|
END GenIndex;
|
|
|
|
BEGIN
|
|
CheckDirectories;
|
|
GenIndex;
|
|
END obe.
|