source: trunk/STRING/getfile.pro @ 2

;-------------------------------------------------------------
;+
; NAME:
;       GETFILE
; PURPOSE:
;       Read a text file into a string array.
; CATEGORY:
; CALLING SEQUENCE:
;       s = getfile(f)
; INPUTS:
;       f = text file name.      in
; KEYWORD PARAMETERS:
;       Keywords:
;         ERROR=err  error flag: 0=ok, 1=file not opened,
;           2=no lines in file.
;         /QUIET means give no error message.
; OUTPUTS:
;       s = string array.        out
; COMMON BLOCKS:
; NOTES:
; MODIFICATION HISTORY:
;       R. Sterner, 20 Mar, 1990
;
;       S. Masson (smasson@lodyc.jussieu.fr) 13 Mar, 2000
;       search te file in the all !path directories (use find.pro)
;
; 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.
;-
;-------------------------------------------------------------
 
        function getfile, filein, error=err, help=hlp, quiet=quiet
 
        if (n_params(0) lt 1) or keyword_set(hlp) then begin
          print,' Read a text file into a string array.'
          print,' s = getfile(f)'
          print,'   f = text file name.      in'
          print,'   s = string array.        out'
          print,' Keywords:'
          print,'   ERROR=err  error flag: 0=ok, 1=file not opened,'
          print,'     2=no lines in file.'
          print,'   /QUIET means give no error message.'
          return, -1
        endif
;
        file = find(filein)
        file = file[0]
        if file EQ 'NOT FOUND' then begin
           print, ' Error in getfile: File '+filein+' not fouond.'
           return, -1
        endif
        
; 
        get_lun, lun
        on_ioerror, err
        openr, lun, file
 
        s = [' ']
        t = ''
 
        while not eof(lun) do begin
          readf, lun, t
          s = [s,t]
        endwhile
 
        close, lun
        free_lun, lun
        if n_elements(s) eq 1 then begin
          if not keyword_set(quiet) then print,' No lines in file.'
          err = 2
          return,-1
        endif
 
        err = 0
        return, s(1:*)
 
err:    if !err eq -168 then begin
          if not keyword_set(quiet) then print,' Non-standard text file format.'
          free_lun, lun
          return, s(1:*)
        endif
        if not keyword_set(quiet) then print,$
          ' Error in getfile: File '+file+' not opened.'
        free_lun, lun
        err = 1
        return, -1
 
        end