Changeset 114 for trunk/SRC/Utilities


Ignore:
Timestamp:
06/19/06 16:14:56 (18 years ago)
Author:
smasson
Message:

new compilation options (compile_opt idl2, strictarrsubs) in each routine

Location:
trunk/SRC/Utilities
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/Utilities/def_myuniquetmpdir.pro

    r97 r114  
    1515;- 
    1616PRO def_myuniquetmpdir 
     17; 
     18  compile_opt idl2, strictarrsubs 
     19; 
    1720@cm_general 
    1821; 

  • trunk/SRC/Utilities/demomode_compatibility.pro

    r97 r114  
    44;- 
    55PRO demomode_compatibility 
     6; 
     7  compile_opt idl2, strictarrsubs 
     8; 
    69 
    710; 

  • trunk/SRC/Utilities/find.pro

    r97 r114  
    9595               , LOOKALLDIR = LOOKALLDIR, _extra = ex 
    9696; define where we look for the file 
     97; 
     98  compile_opt idl2, strictarrsubs 
     99; 
    97100  CASE 1 OF 
    98101    keyword_set(lookalldir):BEGIN  

  • trunk/SRC/Utilities/isadirectory.pro

    r97 r114  
    3737FUNCTION isadirectory, directoryin, TITLE = title, IODIRECTORY = iodirectory, _extra = ex 
    3838; 
     39; 
     40  compile_opt idl2, strictarrsubs 
     41; 
    3942  CASE 1 OF 
    4043    (size(directoryin, /type))[0] EQ 7:directory = directoryin 

  • trunk/SRC/Utilities/isafile.pro

    r97 r114  
    6060                  , ONLYNC = onlync, _extra = ex 
    6161;------------------------------------------------------------ 
     62; 
     63  compile_opt idl2, strictarrsubs 
     64; 
    6265  CASE 1 OF 
    6366    (size(filein, /type))[0] EQ 7:fileout = filein 
    64     keyword_set(filename):fileout = filename 
     67    keyword_set(filename):fileout = filename[0] 
    6568    ELSE:fileout = 'file that is not existing' 
    6669  ENDCASE 

  • trunk/SRC/Utilities/protype.pro

    r97 r114  
    3333FUNCTION protype, file 
    3434; 
     35; 
     36  compile_opt idl2, strictarrsubs 
     37; 
    3538  filepro = (find(file[0], /onlypro, /firstfound))[0] 
    3639  if filepro EQ 'NOT FOUND' then return, -1 
Note: See TracChangeset for help on using the changeset viewer.