Changeset 229


Ignore:
Timestamp:
03/16/07 15:13:14 (17 years ago)
Author:
smasson
Message:

bugfix in path usage (continuation)

Location:
trunk/SRC
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/ToBeReviewed/POSTSCRIPT/ps.pro

    r165 r229  
    8888; We rewrite idlsave.pro 
    8989   putfile, myuniquetmpdir+'idlsave.pro', vectjournal 
     90; update the list of .pro and .sav in !PATH 
     91   path_cache, /rebuild 
    9092; apply idlsave 
    91    cd,  current = curdir 
    92    cd, myuniquetmpdir 
    9393@idlsave    
    94    cd, curdir 
    9594; We reopen the journal and we put in it all elements of vectjournal but the 2 first and the 3 last line. 
    9695journal, myuniquetmpdir+'idlsave.pro' 

  • trunk/SRC/ToBeReviewed/UTILITAIRE/oups.pro

    r157 r229  
    6565 ELSE vectjournal[n_elements(vectjournal)-1] = ''  
    6666; we rewrite idlsave.pro 
    67 putfile, myuniquetmpdir+'idlsave.pro', vectjournal 
    68 ; we compile, then we apply idlsave 
    69 cd,  current = curdir 
    70 cd, myuniquetmpdir 
     67 putfile, myuniquetmpdir+'idlsave.pro', vectjournal 
     68; update the list of .pro and .sav in !PATH 
     69 path_cache, /rebuild 
     70; apply idlsave 
    7171@idlsave    
    72 cd, curdir 
    7372; the journal has just been reopened, and we put elements of vectjournal in it.  
    7473for i = 0, n_elements(vectjournal)-1 DO $ 

  • trunk/SRC/ToBeReviewed/UTILITAIRE/vzoom.pro

    r157 r229  
    7070; 
    7171; we rewrite idlsave.pro 
    72 putfile, myuniquetmpdir+'idlsave.pro', vectjournal 
     72  putfile, myuniquetmpdir+'idlsave.pro', vectjournal 
     73; update the list of .pro and .sav in !PATH 
     74   path_cache, /rebuild 
    7375; apply idlsave 
    74    cd,  current = curdir 
    75    cd, myuniquetmpdir 
    7676@idlsave    
    77    cd, curdir 
    7877; the journal has just been reopened, and we put in elements of vectjournal.  
    7978for i = 0, n_elements(vectjournal)-1 DO $ 

  • trunk/SRC/Utilities/createfunc.pro

    r224 r229  
    6969                       , 'return, res' $ 
    7070                       , 'end'] 
    71 ; go in dirname directory 
    72    cd, dirname, current = old_dir 
     71; is dirname in !path? 
     72   cd, current = here 
     73   pathlist = [here, strsplit(!path, path_sep(/search_path),/extract)] 
     74   inpath = total((file_search(dirname))[0] EQ pathlist) 
     75   IF inpath EQ 0 THEN !path = !path + path_sep(/search_path) + inpath 
     76; update the list of .pro and .sav in !PATH 
     77   path_cache, /rebuild 
    7378; compile it 
    7479   resolve_routine, shortfilename, /is_function 
    75    cd, old_dir 
    7680; execute it 
    7781   res = call_function(shortfilename, _EXTRA = ex) 

  • trunk/SRC/Utilities/createpro.pro

    r227 r229  
    7979   putfile, filename, ['pro ' + shortfilename + kwdlist $ 
    8080                       , 'compile_opt idl2, hidden, strictarrsubs', command, 'return', 'end'] 
     81; is dirname in !path? 
     82   cd, current = here 
     83   pathlist = [here, strsplit(!path, path_sep(/search_path),/extract)] 
     84   inpath = total((file_search(dirname))[0] EQ pathlist) 
     85   IF inpath EQ 0 THEN !path = !path + path_sep(/search_path) + inpath 
    8186; update the list of .pro and .sav in !PATH 
    8287   path_cache, /rebuild 

  • trunk/SRC/buildinit.pro

    r223 r229  
    488488; define the !path 
    489489  init = [init, '!path = expand_path(''+'' + '''+myIDL+''') $' $ 
    490           , '      + '':'' + expand_path(''+'' + '''+saxodir+''') $' $ 
    491           , '      + '':'' + expand_path(''+'' + !dir)'] 
     490          , '      + path_sep(/search_path) + expand_path(''+'' + '''+saxodir+''') $' $ 
     491          , '      + path_sep(/search_path) + expand_path(''+'' + !dir)'] 
    492492; 
    493493; should we keep the compatibility with the old version? 
Note: See TracChangeset for help on using the changeset viewer.