oberon07: update sources

git-svn-id: svn://kolibrios.org@9579 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/develop/oberon07/doc/x86_64.txt

@@ -28,6 +28,7 @@ UTF-8 с BOM-сигнатурой.
       -lower разрешить ключевые слова и встроенные идентификаторы в
       нижнем регистре
       -def <имя> задать символ условной компиляции
+      -uses вывести список импортированных модулей
 
       параметр -nochk задается в виде строки из символов:
       "p" - указатели

programs/develop/oberon07/source/Compiler.ob07

@@ -136,6 +136,9 @@ BEGIN
         ELSIF param = "-pic" THEN
             options.pic := TRUE
 
+        ELSIF param = "-uses" THEN
+            options.uses := TRUE
+
         ELSIF param = "-def" THEN
             INC(i);
             UTILS.GetArg(i, param);
@@ -192,6 +195,7 @@ BEGIN
     options.version := 65536;
     options.pic := FALSE;
     options.lower := FALSE;
+    options.uses := FALSE;
     options.checking := ST.chkALL;
 
     PATHS.GetCurrentDirectory(app_path);
@@ -245,6 +249,7 @@ BEGIN
         C.StringLn("  -ram <size>           set size of RAM in bytes (MSP430) or Kbytes (STM32)"); C.Ln;
         C.StringLn("  -rom <size>           set size of ROM in bytes (MSP430) or Kbytes (STM32)"); C.Ln;
         C.StringLn("  -tab <width>          set width for tabs"); C.Ln;
+        C.StringLn("  -uses                 list imported modules"); C.Ln;
         UTILS.Exit(0)
     END;
 

programs/develop/oberon07/source/PARS.ob07

@@ -1225,6 +1225,7 @@ VAR
     endmod:   BOOLEAN;
     errlabel: INTEGER;
     errno:    INTEGER;
+    ident:    PROG.IDENT;
 
 BEGIN
     ASSERT(parser # NIL);
@@ -1253,11 +1254,22 @@ BEGIN
     CONSOLE.String("compiling ");
     CONSOLE.String("("); CONSOLE.Int(modules); CONSOLE.String(") ");
     CONSOLE.String(unit.name.s);
-    IF parser.unit.sysimport THEN
+    IF unit.sysimport THEN
         CONSOLE.String(" (SYSTEM)")
     END;
     CONSOLE.Ln;
 
+    IF PROG.program.options.uses THEN
+        ident := unit.idents.first(PROG.IDENT);
+        WHILE ident # NIL DO
+            IF (ident.typ = PROG.idMODULE) & (ident.unit # PROG.program.sysunit) THEN
+                CONSOLE.String("    "); CONSOLE.String(ident.unit.fname); CONSOLE.Ln
+            END;
+            ident := ident.next(PROG.IDENT)
+        END;
+        CONSOLE.Ln
+    END;
+
     IF TARGETS.CPU IN {TARGETS.cpuX86, TARGETS.cpuAMD64} THEN
         IL.fname(parser.fname)
     END;

programs/develop/oberon07/source/PROG.ob07

@@ -72,7 +72,7 @@ TYPE
     OPTIONS* = RECORD
 
         version*, stack*, ram*, rom*, tab*: INTEGER;
-        pic*, lower*: BOOLEAN;
+        pic*, lower*, uses*: BOOLEAN;
         checking*: SET
 
     END;

programs/develop/oberon07/source/UTILS.ob07

@@ -23,8 +23,8 @@ CONST
     max32* =  2147483647;
 
     vMajor* = 1;
-    vMinor* = 53;
-    Date* = "26-aug-2021";
+    vMinor* = 54;
+    Date* = "20-dec-2021";
 
     FILE_EXT* = ".ob07";
     RTL_NAME* = "RTL";