source: trunk/SRC/ToBeReviewed/STRING/putfile.pro @ 142

;-------------------------------------------------------------
;+
;
; @file_comments
; Write a text file from a string array.
; 
; @categories
;
; INPUTS:
; @param FILE {in}{required}
; = text file name.
;
; @param S {in}{required}
; = string array.
;
; @keyword ERROR
; =err  error flag: 0=ok, 1=invalid string array.
; 
; @history
;       R. Sterner, 20 Mar, 1990
;       R. Sterner,  4 Nov, 1992 --- allowed scalar strings.
;
; Copyright (C) 1990, Johns Hopkins University/Applied Physics Laboratory
; This software may be used, copied, or redistributed as long as it is not
; sold and this copyright notice is reproduced on each copy made.  This
; routine is provided as is without any express or implied warranties
; whatsoever.  Other limitations apply as described in the file disclaimer.txt.
;
; @version
; $Id$
;
;-
;-------------------------------------------------------------
 
        pro putfile, file, s, error=err, help=hlp
;
  compile_opt idl2, strictarrsubs
;
 
        if (n_params(0) lt 1) or keyword_set(hlp) then begin
          print,' Write a text file from a string array.'
          print,' putfile, f, s'
          print,'   f = text file name.      in'
          print,'   s = string array.        in'
          print,' Keywords:'
          print,'   ERROR=err  error flag: 0=ok, 1=invalid string array.'
          return
        endif
;
        if lmgr(/demo) then begin
           print, 'you are in Demo mode. It is impossible to write a file'
           return
        endif
; 
        if size(s, /type) ne 7 then begin
          print,' Error in putfile: argument must be a string array.'
          err = 1
          return
        endif
 
        get_lun, lun
        openw, lun, file
 
        for i = 0, n_elements(s)-1 do begin
          t = s[i]
          if t eq '' then t = ' '
          printf, lun, t
        endfor
 
        close, lun
        free_lun, lun
        err = 0
        return
 
        end