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

Fix Platform initialisation, move common Arg handling code from Platfrom to Modules.

Browse source
This commit is contained in:
David Brown 2016-12-01 18:08:08 +00:00
parent aed9134e99
commit 299b0636ad
9 changed files with 99 additions and 162 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/tools/browser/BrowserCmd.Mod
View file

@ -3,7 +3,7 @@ MODULE BrowserCmd; (* RC 29.10.93 *) (* object model 4.12.93, command line ver
IMPORT
OPM, OPS, OPT, OPV,
Texts, Strings, Files, Out,
Oberon, Platform, SYSTEM, Configuration;
Oberon, Modules, SYSTEM, Configuration;
CONST
OptionChar = "-";
@ -265,13 +265,13 @@ MODULE BrowserCmd; (* RC 29.10.93 *) (* object model 4.12.93, command line ver
PROCEDURE ShowDef*;
VAR S, vname, name: OPS.Name;
BEGIN
option := 0X; Platform.GetArg(1, S);
IF Platform.ArgCount > 2 THEN
IF S[0] = OptionChar THEN option := S[1]; Platform.GetArg(2, S)
ELSE Platform.GetArg(2, vname); option := vname[1]
option := 0X; Modules.GetArg(1, S);
IF Modules.ArgCount > 2 THEN
IF S[0] = OptionChar THEN option := S[1]; Modules.GetArg(2, S)
ELSE Modules.GetArg(2, vname); option := vname[1]
END
END;
IF Platform.ArgCount >= 2 THEN
IF Modules.ArgCount >= 2 THEN
Ident(S, name);
OPT.Init(name, {}); OPT.SelfName := "AvoidErr154";
WModule(name, Oberon.Log);