Changeset 243 for trunk/SRC/Utilities


Ignore:
Timestamp:
04/12/07 10:52:32 (17 years ago)
Author:
smasson
Message:

small bugfixes

Location:
trunk/SRC/Utilities
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/Utilities/createfunc.pro

    r242 r243  
    6868   cd, current = here 
    6969   pathlist = [here, strsplit(!path, path_sep(/search_path),/extract)] 
    70    inpath = total((file_search(dirname))[0] EQ pathlist) 
    71    IF inpath EQ 0 THEN !path = !path + path_sep(/search_path) + inpath 
     70   inpath = total((file_search(dirname, /fully_qualify_path))[0] EQ pathlist) 
     71   IF inpath EQ 0 THEN !path = dirname + path_sep(/search_path) + !path 
    7272; update the list of .pro and .sav in !PATH 
    7373   path_cache, /rebuild 

  • trunk/SRC/Utilities/createpro.pro

    r242 r243  
    7878   cd, current = here 
    7979   pathlist = [here, strsplit(!path, path_sep(/search_path),/extract)] 
    80    inpath = total((file_search(dirname))[0] EQ pathlist) 
    81    IF inpath EQ 0 THEN !path = !path + path_sep(/search_path) + inpath 
     80   inpath = total((file_search(dirname, /fully_qualify_path))[0] EQ pathlist) 
     81   IF inpath EQ 0 THEN !path = dirname + path_sep(/search_path) + !path 
    8282; update the list of .pro and .sav in !PATH 
    8383   path_cache, /rebuild 

  • trunk/SRC/Utilities/isadirectory.pro

    r237 r243  
    6565  ENDIF 
    6666; 
    67   directory = file_search(directory, /mark_directory) 
     67  directory = file_search(directory, /mark_directory, /test_directory, /fully_qualify_path) 
    6868  IF n_elements(directory) EQ 1 THEN RETURN, directory[0] $ 
    6969  ELSE RETURN, directory 
Note: See TracChangeset for help on using the changeset viewer.