Changeset 11 for trunk/Obsolete


Ignore:
Timestamp:
04/27/06 11:05:35 (18 years ago)
Author:
pinsard
Message:

upgrade of UTILITAIRE/Utilities according to cerbere.lodyc.jussieu.fr: /usr/home/smasson/SAXO_RD/ : files

File:
1 moved

Legend:

Unmodified
Added
Removed

  • trunk/Obsolete/cp.pro

    r9 r11  
    66; 
    77; PURPOSE: copy files 
     8;       obsolete, file_copy should be used instead... 
    89; 
    9 ; CATEGORY: commande unix 
    10 ; 
    11 ; CALLING SEQUENCE: cp, filenamein, filenameout 
    12 ;  
    13 ; INPUTS:filenamein, filenameout: 2 strings. 
    14 ; 
    15 ; KEYWORD PARAMETERS: 
    16 ; 
    17 ; OUTPUTS: 
    18 ; 
    19 ; COMMON BLOCKS: 
    20 ; 
    21 ; SIDE EFFECTS: 
    22 ; 
    23 ; RESTRICTIONS: 
    24 ; 
    25 ; EXAMPLE: 
    26 ; 
    27 ; MODIFICATION HISTORY:Sebastien Masson (smasson@lodyc.jussieu.fr) 
     10; MODIFICATION HISTORY: 
     11; June 2005: Sebastien Masson => obsolete routine  
    2812; 
    2913;- 
    … …  
    3115;------------------------------------------------------------ 
    3216;------------------------------------------------------------ 
    33 PRO cp, filenamein, filenameout 
    34 ; 
    35    if size(filenamein, /type) NE 7 then begin 
    36       rien = report('filenamein must be a string') 
    37       return 
    38    endif 
    39    if size(filenameout, /type) NE 7 then begin 
    40       rien = report('filenameout must be a string') 
    41       return 
    42    endif 
    43 ; 
    44    thisOS = strupcase(strmid(!version.os_family, 0, 3)) 
    45    if thisOS eq 'MAC' or thisOS eq 'WIN' then begin 
    46       text = getfile(filenamein) 
    47       putfile, filenameout, text 
    48    ENDIF ELSE spawn, 'cp '+filenamein+' '+filenameout 
    49  
    50    return 
    51 end 
     17PRO cp, filenamein, filenameout, _extra = ex 
     18  file_copy, filenamein, filenameout, _extra = ex 
     19  RETURN 
     20END 
Note: See TracChangeset for help on using the changeset viewer.