Changeset 229 for trunk/SRC/Utilities/createpro.pro

Timestamp:

03/16/07 15:13:14 (17 years ago)

Author:

smasson

Message:

bugfix in path usage (continuation)

File:

• trunk/SRC/Utilities/createpro.pro (modified) (1 diff)

trunk/SRC/Utilities/createpro.pro

@@ -79 +79 @@
    putfile, filename, ['pro ' + shortfilename + kwdlist $
                        , 'compile_opt idl2, hidden, strictarrsubs', command, 'return', 'end']
+; is dirname in !path?
+   cd, current = here
+   pathlist = [here, strsplit(!path, path_sep(/search_path),/extract)]
+   inpath = total((file_search(dirname))[0] EQ pathlist)
+   IF inpath EQ 0 THEN !path = !path + path_sep(/search_path) + inpath
 ; update the list of .pro and .sav in !PATH
    path_cache, /rebuild