Changeset 3181

Timestamp:

Oct 10, 2018, 7:19:07 PM (6 years ago)

Author:

Andreas Schnellbacher

Message:

• Changed automatically appended name part 'Keys' to lowercase for better listing of e.g. cuakeys.ex in .NEPMD_INFO.

File:

• trunk/src/netlabs/macros/keys.e (modified) (8 diffs)

trunk/src/netlabs/macros/keys.e ¶

@@ -1154 +1154 @@
 
    -- Parse keyset definition list and get resolved list of KeysetCmds.
-   -- Keyset command defs have 'Keys' appended. In the following, the
-   -- term 'keyset cmd' means the command without 'Keys'. The same applies
-   -- for the array vars, were the string without 'Keys' is used, too.
+   -- Keyset command defs have 'keys' appended. In the following, the
+   -- term 'keyset cmd' means the command without 'keys'. The same applies
+   -- for the array vars, were the string without 'keys' is used, too.
    KeysetCmds = ''
    do w = 1 to words( List)
@@ -1225 +1225 @@
          -- Add keyset name to array var for this keyset cmd
          AddAVar( 'keysetcmd.'ThisKeyset, Name)
-         -- Execute keyset cmd (with 'Keys' appended)
-         ThisKeyset'Keys'
+         -- Execute keyset cmd (with 'keys' appended)
+         ThisKeyset'keys'
       enddo
 
@@ -1246 +1246 @@
    do once = 1 to 1
       -- Check if Keyset cmd exists
-      if isadefc( ThisKeyset'Keys') then
+      if isadefc( ThisKeyset'keys') then
          fIsDefined = 1
          leave
@@ -1252 +1252 @@
 
       -- Check if .EX file exists
-      findfile ExFile, ThisKeyset'Keys.ex', 'EPMPATH'
+      findfile ExFile, ThisKeyset'keys.ex', 'EPMPATH'
       if rc then
          leave
@@ -1258 +1258 @@
 
       -- Check if .EX file is linked
-      linkedrc = linked( ThisKeyset'Keys.ex')
+      linkedrc = linked( ThisKeyset'keys.ex')
       if linkedrc >= 0  then
          leave
@@ -1264 +1264 @@
 
       -- Link .EX file
-      'Link quiet' ThisKeyset'Keys'
+      'Link quiet' ThisKeyset'keys'
       --dprintf( 'KeysetCmdExists: Keyset "'ThisKeyset'Keys" linked, rc = 'rc)
 
@@ -1273 +1273 @@
 
       -- Check if Keyset cmd exists
-      if isadefc( ThisKeyset'Keys') then
+      if isadefc( ThisKeyset'keys') then
          fIsDefined = 1
          leave
@@ -1458 +1458 @@
       ThisKeyset = word( KeysetCmds, k)
 
-      -- Execute keyset cmd (with 'Keys' appended). This calls a set of DefKey
+      -- Execute keyset cmd (with 'keys' appended). This calls a set of DefKey
       -- procs.
-      ThisKeyset'Keys'
+      ThisKeyset'keys'
    enddo
    --dprintf( 'SetKeyset2: Switch keyset, keyset cmds executed: 'Name' = 'KeysetCmds)