vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 19:12:25 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

improved risc crosscompiler, added example and readme.

Browse source 
Former-commit-id: c2b91243e9
This commit is contained in:
Norayr Chilingarian 2014-09-15 22:14:08 +04:00
parent 97860bae19
commit fce731a17d
12 changed files with 298 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/voc07R/Oberon.Mod
View file

@ -1,5 +1,12 @@
MODULE Oberon;
(* this module emulates Oberon.Log and Oberon.Par in order to pass agruments to Oberon programs, as it's in Oberon environment;
it creates Oberon.Par from command line arguments;
procedure Dump dumps Oberon.Log to standard output.
-- noch *)
(* Files are commented out, because it's not necessary for work, but can be very useful for debug. See WriteTextToFile procedure; -- noch *)
IMPORT Args, Strings, Texts := CompatTexts, (*Files := CompatFiles,*) Out := Console;
VAR Log*: Texts.Text;
@ -34,6 +41,7 @@ BEGIN
WHILE i < Args.argc DO
Args.Get(i, opt);
Strings.Append(opt, opts);(* Strings.Append (" ", opts);*)
(* ORP calls Texts.Scan, which returns filename, and nextCh would be set to " " if we append here " ". However after that ORP will check nextCh, and if it finds that nextCh is not "/" it's not gonna parse options. That's why Strings.Append is commented out; -- noch *)
INC(i)
END;