Changeset 11 for trunk/ToBeReviewed/UTILITAIRE/oups.pro

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:

• trunk/ToBeReviewed/UTILITAIRE/oups.pro (moved) (moved from trunk/UTILITAIRE/oups.pro) (2 diffs)

trunk/ToBeReviewed/UTILITAIRE/oups.pro

@@ -32 +32 @@
  journal
 ; on recupere le journal sous la forme d''un vecteur de string:
-   vectjournal = getfile(homedir+'idlsave.pro')
+   vectjournal = getfile(myuniquetmpdir+'idlsave.pro')
 ; on coupe la derniere ligne qui est oups
    vectjournal = vectjournal[0:n_elements(vectjournal)-2 ]
@@ -68 +68 @@
  ELSE vectjournal[n_elements(vectjournal)-1] = '' 
 ; on reecrit idlsave.pro
-putfile, homedir+'idlsave.pro', vectjournal
+putfile, myuniquetmpdir+'idlsave.pro', vectjournal
 ; on compile puis applique idlsave
-cd, homedir
+cd,  current = curdir
+cd, myuniquetmpdir
 @idlsave   
+cd, curdir
 ; le journal vient d'etre reouvert, et on y met les elements de
 ; vectjournal 
 for i = 0, n_elements(vectjournal)-1 DO $
-printf, !journal, vectjournal[i]
+journal, vectjournal[i]