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

added OptionChar to Oberon.Mod; -- noch

Browse source 
Former-commit-id: 0d5e6da7dc
This commit is contained in:
norayr 2015-07-01 15:56:47 +04:00
parent d04bc11849
commit 2d94e27d49
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/lib/v4_compat/Oberon.Mod
View file

@ -3,7 +3,6 @@ MODULE Oberon;
(* this version should not have dependency on graphics -- noch *) (* this version should not have dependency on graphics -- noch *)
IMPORT Kernel, Texts, Args; IMPORT Kernel, Texts, Args;
TYPE TYPE
ParList* = POINTER TO ParRec; ParList* = POINTER TO ParRec;
@ -20,6 +19,7 @@ MODULE Oberon;
Log*: Texts.Text; Log*: Texts.Text;
Par*: ParList; (*actual parameters*) Par*: ParList; (*actual parameters*)
W : Texts.Writer; W : Texts.Writer;
OptionChar*: CHAR;
(*clocks*) (*clocks*)
PROCEDURE GetClock* (VAR t, d: LONGINT); PROCEDURE GetClock* (VAR t, d: LONGINT);
@ -57,6 +57,7 @@ BEGIN
NEW(Par); NEW(Par);
NEW(Par.text); NEW(Par.text);
Par.pos := 0; Par.pos := 0;
OptionChar := '-';
Texts.Open(Par.text, ""); Texts.Open(Par.text, "");
PopulateParams; PopulateParams;
END Oberon. END Oberon.