Ignore:
Timestamp:
Dec 9, 2016, 10:06:20 AM (4 years ago)
Author:
Herwig Bauernfeind
Message:

GUITools: All changes that have built over time.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/guitools/shared/nlv.vrs

    r924 r990  
    3131        when settings.!nlv8dot3 = 0 then filestem = filestem||'_'
    3232        when translate(filestem) = "EVFSGUI" then filestem = "evfsi_"
    33         otherwise filestem = SUBSTR( filestem, 1, 5 )||'_'
     33        otherwise filestem = strip(SUBSTR( filestem, 1, 5 ))||'_'
    3434    end
    3535    say '  NLV filestem   = "'filestem'"'
     
    6060    Suffix  = arg(3)
    6161    PathVar = arg(4)
    62     say time()" NLVSearch() started"
    6362    NLVSrchDone = 0
    6463    NLVFile = ""
     
    6766        say '  NLV 'Suffix' file   = "'filestem||nlv'.'Suffix'"'
    6867        select
     68            when VRFileExists(execdir'\'filestem||nlv'.'Suffix) then do
     69                say "  Attempt1: NLV "Suffix" file found directly!"
     70                NLVFile = strip(execdir'\'filestem||nlv'.'Suffix,'L','\')
     71                NLVSrchDone = 1
     72            end
    6973            when VRFileExists(srchRoot'\'SubDir'\'filestem||nlv'.'Suffix) then do
    70                 say "  NLV "Suffix" file found directly!"
     74                say "  Attempt2: NLV "Suffix" file found directly!"
    7175                NLVFile = strip(srchRoot'\'SubDir'\'filestem||nlv'.'Suffix,'L','\')
     76                NLVSrchDone = 1
     77            end
     78            when SysSearchPath(PathVar, filestem||nlv'.'Suffix) \= '' then do
     79                execDir = VRParseFileName(SysSearchPath(PathVar, filestem||nlv'.'Suffix),"DP")
     80                say "  Attempt3: NLV "Suffix" file found via "PathVar
     81                NLVFile = strip(execdir'\'filestem||nlv'.'Suffix,'L','\')
    7282                NLVSrchDone = 1
    7383            end
     
    7585                ok = SysFileTree(UnixRoot||'\usr\share\os2\'filestem||nlv'.'Suffix,nlvmsg.,'FOS')
    7686                if nlvmsg.0 = 1 then do
    77                     say "  Found  NLV "Suffix" file in rpm/yum subdirectory"
     87                    say "  Attempt4: Found  NLV "Suffix" file in rpm/yum subdirectory"
    7888                    NLVFile = VRParseFilename(nlvmsg.1,"DPN")'.'Suffix
    7989                    say "  Adding NLV "Suffix" path to "PathVar
     
    8292                    NLVSrchDone = 1
    8393                end
    84                 else say "  NLV "Suffix" file NOT in rpm/yum subdirectory."
     94                else say "  NLV "Suffix" file NOT in rpm/yum "UnixRoot||'\usr\share\os2\'filestem||nlv'.'Suffix"subdirectory."
    8595            end
    86             when SysSearchPath(PathVar, filestem||nlv'.'Suffix) \= '' then do
    87                 execDir = VRParseFileName(SysSearchPath(PathVar, filestem||nlv'.'Suffix),"DP")
    88                 say "  NLV "Suffix" file found via "PathVar
    89                 NLVFile = strip(execdir'\'filestem||nlv'.'Suffix,'L','\')
    90                 NLVSrchDone = 1
    91             end
     96           
    9297            otherwise do
    9398                say "  Searching subdirectories"
Note: See TracChangeset for help on using the changeset viewer.