;+ ; Contains the read_ant_list function ; and supporting procedures ; ; :Author: ; Baptiste Cecconi ; ; :History: ; 2005/01/19: Created ; ; 2005/01/19: Last Edit ;- ; PRO data_ant_list__define tmp={data_ant_list, ant_name:'ant', ant_file:'file'} return end ;+ ; read_ant_list is a function that <behavior desc here> ; ; :Returns: ; <return desc here> ; ; :Params: ; ant_file: in, required, type=sometype ; A parameter named ant_file ;- function read_ant_list, ant_file strline='' ant_list_tmp={data_ant_list} ant_list=ant_list_tmp openr, lun, ant_file, /get_lun readf, lun, strline while strmid(strline, 0, 1) eq "#" do readf, lun, strline while strmid(strline, 0, 4) ne "#end" do begin strline_tmp=strsplit(strline, ':', /extract) ant_list_tmp.ant_name=strline_tmp(0) ant_list_tmp.ant_file=strline_tmp(1) ant_list=[ant_list, ant_list_tmp] readf, lun, strline endwhile close, lun free_lun, lun return, ant_list[1:*] end