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

Restore showdef lookup of installed library modules.

Browse source
This commit is contained in:
David Brown 2016-11-15 23:40:26 +00:00
parent 65db905f0b
commit 240885d841
1 changed files with 23 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,8 +1,9 @@
MODULE BrowserCmd; (* RC 29.10.93 *) (* object model 4.12.93, command line version jt 4.4.95 *) MODULE BrowserCmd; (* RC 29.10.93 *) (* object model 4.12.93, command line version jt 4.4.95 *)
IMPORT IMPORT
OPM, OPS, OPT, OPV, Texts, Out, Oberon, Platform, SYSTEM; OPM, OPS, OPT, OPV,
Texts, Strings, Files, Out,
Oberon, Platform, SYSTEM, Configuration;
CONST CONST
OptionChar = "-"; OptionChar = "-";
@ -275,13 +276,29 @@ MODULE BrowserCmd; (* RC 29.10.93 *) (* object model 4.12.93, command line ver
WModule(name, Oberon.Log); WModule(name, Oberon.Log);
OPT.Close; OPT.Close;
ELSE ELSE
Texts.WriteString(W, "showdef - Display module's public interface."); Texts.WriteLn(W); Ws("showdef - Display module's public interface."); Wln;
Texts.WriteString(W, "Usage: showdef module"); Texts.WriteLn(W); Wln;
Texts.WriteString(W, "Note: module.sym must be in the current directory."); Texts.WriteLn(W); Ws("Usage: showdef module"); Wln;
Wln;
Ws("Any path and/or filename extension are stripped from the module name,"); Wln;
Ws("and the module is found the same way as it is found by the compiler."); Wln;
Wln;
Ws("Thus the module .sym file must be in the current directory, or module"); Wln;
Ws("must be the name of one of the library modules installed with the compiler."); Wln;
Texts.Append(Oberon.Log, W.buf) Texts.Append(Oberon.Log, W.buf)
END END
END ShowDef; END ShowDef;
PROCEDURE SetPath;
VAR path: ARRAY 256 OF CHAR;
BEGIN BEGIN
Texts.OpenWriter(W); ShowDef COPY(Configuration.installdir, path);
Strings.Append("/2/sym", path);
Files.SetSearchPath(path)
END SetPath;
BEGIN
Texts.OpenWriter(W);
SetPath;
ShowDef
END BrowserCmd. END BrowserCmd.