vishapoberon/oberonbyexample
1
0
Fork 0
mirror of https://github.com/vishapoberon/oberonbyexample.git synced 2026-04-05 21:02:25 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

unix style command line arguments by calling traditional oberon

Browse source 
functions; -- noch
This commit is contained in:
norayr 2017-05-15 19:46:45 +04:00
commit 734202143e
1 changed files with 63 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

63
arguments/unixstyle_oberon_traditional/partest.Mod Normal file
View file

@ -0,0 +1,63 @@
MODULE partest;
IMPORT Oberon, Texts;
CONST
argStr0 = "str"; (* we only have two types of args, one string and one int *)
argInt0 = "int"; (* i. e. -str somestring -int somenumber *)
VAR
W: Texts.Writer; (* for console output *)
S: Texts.Scanner; T: Texts.Text;
BEGIN
Texts.OpenWriter(W);
Texts.WriteString(W, "hello, world, let's see which arguments do we get"); Texts.WriteLn(W);
(* open arguments scanner *)
Texts.OpenScanner(S, Oberon.Par.text, Oberon.Par.pos);
WHILE ~S.eot DO
Texts.Scan(S);
IF S.class = Texts.Char THEN (* do we get '-' sign ? *)
IF S.c = "-" THEN
Texts.Scan(S);
IF S.class = Texts.Name THEN (* we got the key *)
Texts.WriteString(W, "key: "); Texts.WriteString(W, S.s); Texts.WriteLn(W);
(* now get the value *)
IF S.s = argStr0 THEN
Texts.Scan(S);
IF S.class = Texts.Name THEN
Texts.WriteString(W, "value: "); Texts.WriteString (W, S.s); Texts.WriteLn(W); Texts.Append(Oberon.Log, W.buf);
ELSE
Texts.WriteString(W, "string expected"); Texts.WriteLn(W);
Texts.Append(Oberon.Log, W.buf);
HALT(1);
END;
ELSIF S.s = argInt0 THEN
Texts.Scan(S);
IF S.class = Texts.Int THEN
Texts.WriteString(W, "value: "); Texts.WriteInt (W, S.i, 0); Texts.WriteLn(W); Texts.Append(Oberon.Log, W.buf);
ELSE
Texts.WriteString(W, "integer expected"); Texts.WriteLn(W);
Texts.Append(Oberon.Log, W.buf);
HALT(1);
END;
END;
ELSE
(* we were expecting characters after the '-' sign *)
Texts.WriteString(W, "key name expected"); Texts. WriteLn(W);
Texts.Append(Oberon.Log, W.buf);
HALT(1);
END;
END
ELSE
Texts.WriteString(W, "key option must start with '-' sign "); Texts.WriteLn(W);
HALT(1);
END; (* if got '-' *)
Oberon.Par.pos := Texts.Pos(S);
Texts.Append(Oberon.Log, W.buf)
END; (* while *)
END partest.