Changeset 9111 for trunk/tools

Timestamp:

Aug 24, 2002, 6:36:04 AM (23 years ago)

Author:

bird

Message:

NoValue signal handler. Respect BUILD_VERBOSE and BUILD_QUIET. Fixed an old typo.

File:

• trunk/tools/bin/BldLevelInf.cmd (modified) (13 diffs)

trunk/tools/bin/BldLevelInf.cmd

@@ -1 @@
-/* $Id: BldLevelInf.cmd,v 1.5 2001-01-26 21:33:13 phaller Exp $
+/* $Id: BldLevelInf.cmd,v 1.6 2002-08-24 04:36:04 bird Exp $
  *
  * Adds a Description string to the given .def-file.
@@ -5 +5 @@
  *
  */
+
+signal on novalue name NoValueHandler
 
 if RxFuncQuery('SysLoadFuncs') = 1 then
@@ -31 +33 @@
 
 /*
+ * Config stuff.
+ */
+iVerbose        = 1;                    /* 0, 1 or 2. */
+if (getenv("BUILD_QUIET") <> '') then
+    iVerbose    = 0;
+else if (getenv("BUILD_VERBOSE") <> '') then
+    iVerbose    = 2;
+sGlobals = 'iVerbose'
+
+/*
  * Parse parameters.
  */
@@ -109 +121 @@
                 sVendor         = sValue;
 
-            when (ch = 'R') then /* Vendor */
-                sDescription    = ReadDescription(sValue, sDefFile);
+            when (ch = 'R') then /* Description */
+                sDescription    = ReadDescription(sValue, sDefFileIn);
 
             when (ch = 'P') then /* Fixpak version */
@@ -188 +200 @@
  */
 rc = UpdateDefFile(sDefFileIn, sDefFileOut, sDescription);
+if (rc = 0 & iVerbose >= 1) then
+    say 'BldLevelInf: Applied build info to '''sDefFileOut'''.';
 exit(rc);
 
@@ -194 +208 @@
  * Display script syntax.
  */
-syntax: procedure
+syntax: procedure expose (sGlobals);
     say 'Syntax: MakeDesc.cmd [options] <deffile in> <deffile out> [options]'
     say '   <deffile>   Defitionfile which will have an DESCRIPTION appended.'
@@ -227 +241 @@
  * @remark  Write only code... - let's hope it works.
  */
-LookupDefine: procedure
+LookupDefine: procedure expose (sGlobals);
     parse arg '#'sDefine'='sMacro','sIncludeFile
 
@@ -338 +352 @@
             call stream sIncludeFile, 'c', 'close';
             sValue = substr(sLine, 2, iLastQuote - 2);
-            say 'Found 'sMacro'='sValue;
+            if (iVerbose >= 2) then
+                say 'Found 'sMacro'='sValue;
             return sValue;
         end
@@ -375 +390 @@
 
             call stream sIncludeFile, 'c', 'close';
-            say 'Found 'sMacro'='sValue;
+            if (iVerbose >= 2) then
+                say 'Found 'sMacro'='sValue;
             return sValue;
         end
@@ -395 +411 @@
  * @author  knut st. osmundsen (knut.stange.osmundsen@mynd.no)
  */
-ReadDescription: procedure;
+ReadDescription: procedure expose (sGlobals);
     parse arg sDefFile, sDefFile2
 
@@ -449 +465 @@
         call stream sDefFile, 'c', 'close';
         sValue = substr(sLine, 2, iEnd - 2);
-        say 'Found Description:' sValue;
+        if (iVerbose >= 2) then
+            say 'Found Description:' sValue;
         return sValue;
     end
@@ -470 +487 @@
  * @author  knut st. osmundsen (knut.stange.osmundsen@mynd.no)
  */
-UpdateDefFile: procedure;
+UpdateDefFile: procedure expose (sGlobals);
     parse arg sDefFileIn, sDefFileOut, sDescription
 
@@ -566 +583 @@
     return 0;
 
+
+/**
+ * Get environment variable value.
+ * @returns Environment variable value if set.
+ *          '' if not set.
+ * @param   sVar    Variable name.
+ */
+getenv: procedure
+parse arg sVar
+return value(sVar,,'OS2ENVIRONMENT');
+
+
+/**
+ * No value handler
+ */
+NoValueHandler:
+    say 'NoValueHandler: line 'SIGL;
+return 0;
+