Changeset 11 for trunk/ToBeReviewed/UTILITAIRE/report.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/report.pro (moved) (moved from trunk/UTILITAIRE/report.pro) (3 diffs)

trunk/ToBeReviewed/UTILITAIRE/report.pro

@@ -18 +18 @@
 ; array element is displayed as a separate line of text.
 ;
-; KEYWORD PARAMETERS: ceux dialog_message.pro et message.pro avec en +
+; KEYWORD PARAMETERS: 
+;         SIMPLE: activate to print only the message without the name
+;             and the line of the routine (defined by calling routine_name)
+;
+; ceux dialog_message.pro et message.pro avec en +
 ; PARENT qui fait la meme chose que DIALOG_PARENT de dialog_message.pro
 ;
@@ -55 +59 @@
 ;------------------------------------------------------------
 ;------------------------------------------------------------
-FUNCTION report, text, DEFAULT_NO = default_no, PARENT = parent, QUESTION = question, _extra = ex
+FUNCTION report, text, DEFAULT_NO = default_no, PARENT = parent, QUESTION = question, SIMPLE = simple, _extra = ex
    res = -1                     ;
-; on separe le text en differentes lignes (separees par !C) si ce
+; on separe le texte en differentes lignes (separees par !C) si ce
 ; n''est pas deja fait...
    if n_elements(text) EQ 1 then text = str_sep(text, '!C', /trim)
@@ -89 +93 @@
       endif ELSE BEGIN
 ; si on ne pose pas de question on fait juste un print
+        IF keyword_set(simple) THEN prefix = '' ELSE prefix = '% '+routine_name(1)+': '
          if n_elements(text) GT 1 THEN $
-          for i = 0, n_elements(text)-2 do print,'% '+routine_name(1)+': '+text[i] 
-         print, '% '+routine_name(1)+': '+text[n_elements(text)-1]
+          for i = 0, n_elements(text)-2 do print, prefix+text[i] 
+         print, prefix+text[n_elements(text)-1]
       ENDELSE
    ENDELSE