Quantcast
Channel: Jason Andrews Blog
Viewing all articles
Browse latest Browse all 33813

RE: path name wildcard syntax

$
0
0
Emmett, I don't think Allegro allows any wildcards in their library paths :( However, I wrote the following in my allegro.ilinit this morning which resolves that issue by expanding * wildcard into actual sub-directory folder entries: procedure( MyTriggerOpen( t_open) let( (TmpStr TmpPath NewPath) foreach(Directory parseString((axlGetVariable "PSMPATH")) if(nindex(Directory "*") then (TmpStr = substring(axlOSSlash(Directory) 1 strlen(Directory) - 2)) when(isDir(TmpStr) foreach(subdir getDirFiles(TmpStr) unless(nindex(subdir ".") (TmpPath = strcat(TmpStr "/" subdir)) when(isDir(TmpPath) if(NewPath then (NewPath = strcat(NewPath " " TmpPath)) else (NewPath = TmpPath) ) ) ) ) ) else if(NewPath then (NewPath = strcat(NewPath " " Directory)) else (NewPath = Directory) ) ) ) axlSetVariable("PSMPATH" NewPath) t ) ) axlTriggerSet('open 'MyTriggerOpen)

Viewing all articles
Browse latest Browse all 33813

Trending Articles