Changeset 361 for branches/guitools-2.0/shared/nlv.vrs

Timestamp:

Jan 6, 2010, 3:01:57 PM (16 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: EVFSGUI basics for printer support

File:

• branches/guitools-2.0/shared/nlv.vrs (modified) (2 diffs)

branches/guitools-2.0/shared/nlv.vrs

@@ -12 +12 @@
     execPath = VRGet("Application", "Program")
     if execPath = "" then parse source . . execPath
-    execDir  = VRParseFileName( execPath, "DP")
+    execDir  = translate(VRParseFileName( execPath, "DP"))
+    parse var execDir srchroot '\BIN'
+
     say '  NLV execDir    = "'execDir'"'
+    say '  NLV srchroot   = "'srchRoot'"'
 
     filestem = VRParseFileName( execPath, "N")'_'
@@ -19 +22 @@
     say '  NLV filestem   = "'filestem'"'
 
-    /* First, figure out what language/message file to use.
-     */
+    /* First, figure out what language/message file to use */
     Syslang = TRANSLATE( VALUE('LANG',,'OS2ENVIRONMENT'))
     SELECT
-        WHEN Syslang == 'ZH_TW' THEN nlv = 'tw'
-        WHEN Syslang == 'ZH_CN' THEN nlv = 'cx'
+        WHEN Syslang == 'ZH_TW' THEN nlv = 'TW'
+        WHEN Syslang == 'ZH_CN' THEN nlv = 'CX'
         OTHERWISE PARSE VAR Syslang nlv '_' .
     END
 
-    /* Find the language file */
-    select
-        when STREAM( execDir'\'filestem||nlv'.msg', 'C', 'QUERY EXISTS') \= '' then do
-            say "  Found NLV file directly!"
-            settings.!messages = strip(execdir'\'filestem||nlv'.msg','L','\')
-            settings.!helpfile = strip(execdir'\'filestem||nlv'.hlp','L','\')
-        end
-        when SysSearchPath('DPATH', filestem||nlv'.msg') \= '' THEN DO
-            execDir = VRParseFileName(SysSearchPath('DPATH', filestem||nlv'.msg'),"DP")
-            say "  Found NLV file via DPATH"
-            settings.!messages = strip(execdir'\'filestem||nlv'.msg','L','\')
-            settings.!helpfile = strip(execdir'\'filestem||nlv'.hlp','L','\')
-        end
-        otherwise do
-            /* Added by Herwig Bauernfeind */
-            say "  Searching subdirectories"
-            ok = SysFileTree(execDir'\'filestem||nlv'.msg',nlvmsg.,'FOS')
-            if nlvmsg.0 = 1 then do
-                say "  Found NLV file in subdirectory"
-                settings.!messages = VRParseFilename(nlvmsg.1,"DPN")'.msg'
-                settings.!helpfile = VRParseFilename(nlvmsg.1,"DPN")'.hlp'
-                say "  Adding NLV file path to DPATH"
-                OldDPATH = value("DPATH",,"OS2ENVIRONMENT")
-                ok = value("DPATH",VRParseFilename(nlvmsg.1,"DP")';'OldDPATH,"OS2ENVIRONMENT")
-                say "  DPATH="value("DPATH",,"OS2ENVIRONMENT")
-            /* End addition by Herwig Bauernfeind */
-            end
-            else do
-                say "  Fallback to English"
-                if STREAM( execDir'\'filestem||'en.msg', 'C', 'QUERY EXISTS') = '' then do
-                    say "  Found English via DPATH"
-                    execDir = VRParseFileName(SysSearchPath('DPATH', filestem||'en.msg'),"DP")
-                end
-                settings.!messages = strip(execDir'\'filestem||'en.msg','L','\')
-                settings.!helpfile = strip(execDir'\'filestem||'en.hlp','L','\')
-            end
-        end
-    end
+    /* Find the messagefile and helpfile */
+    settings.!messages = NLVsearch(nlv,'LANG','MSG','DPATH')
+    settings.!helpfile = NLVsearch(nlv,'HELP','HLP','HELP')
 
-    /* In case the message file exists but not the help file */
-    if STREAM( settings.!helpfile , 'C', 'QUERY EXISTS') = "" then do
-        settings.!helpfile =  strip(execDir'\'filestem||'en.hlp','L','\')
-    end
-
-    IF options.!debug == 1 THEN SAY '  NLVMessageFile = "'settings.!messages'"'
-    IF options.!debug == 1 THEN SAY '  NLVHelpFile    = "'settings.!helpfile'"'
+    IF options.!debug == 1 THEN SAY '  NLV MessageFile = "'settings.!messages'"'
+    IF options.!debug == 1 THEN SAY '  NLV HelpFile    = "'settings.!helpfile'"'
 
     IF options.!debug == 1 THEN SAY time()' NLVSetup() done'
 RETURN
+
+/*:VRX         NLVSearch
+*/
+NLVSearch: procedure expose filestem execdir srchroot
+    nlv     = arg(1)
+    SubDir  = arg(2)
+    Suffix  = arg(3)
+    PathVar = arg(4)
+    say time()" NLVSearch() started"
+    NLVSrchDone = 0
+    NLVFile = ""
+    do until NLVSrchDone = 1
+        say '  NLV 'Suffix' file   = "'filestem||nlv'.'Suffix'"'
+        select
+            when VRFileExists(srchRoot'\'SubDir'\'filestem||nlv'.'Suffix) then do
+                say "  NLV "Suffix" file found directly!"
+                NLVFile = strip(srchRoot'\'SubDir'\'filestem||nlv'.'Suffix,'L','\')
+                NLVSrchDone = 1
+            end
+            when SysSearchPath(PathVar, filestem||nlv'.'Suffix) \= '' then do
+                execDir = VRParseFileName(SysSearchPath(PathVar, filestem||nlv'.'Suffix),"DP")
+                say "  NLV "Suffix" file found via "PathVar
+                NLVFile = strip(execdir'\'filestem||nlv'.'Suffix,'L','\')
+                NLVSrchDone = 1
+            end
+            otherwise do
+                say "  Searching subdirectories"
+                ok = SysFileTree(srchRoot'\'filestem||nlv'.'Suffix,nlvmsg.,'FOS')
+                if nlvmsg.0 = 1 then do
+                    say "  Found  NLV "Suffix" file in subdirectory"
+                    settings.!messages = VRParseFilename(nlvmsg.1,"DPN")'.msg'
+                    say "  Adding NLV "Suffix" path to "PathVar
+                    OldPathVar = value(PathVar,,"OS2ENVIRONMENT")
+                    ok = value(PathVar,VRParseFilename(nlvmsg.1,"DP")';'OldPathVar,"OS2ENVIRONMENT")
+                    NLVSrchDone = 1
+                end
+                else say "  NLV "Suffix" file not found in subdirectories!"
+            end
+        end
+        if NLVSrchDone = 0 then do /* Fallback to English */
+            if nlv = "EN" then NLVSrchDone = 1 /* We give up and leave */
+            else do
+                say "  NLV "Suffix" File not found, falling back to EN."
+                nlv = "EN"
+            end
+        end
+    end    
+    say time()' NLVSearch() done, returning "'NLVFile'"'
+return NLVFile
 
 /*:VRX         NLVGetMessage