https://wiki-pnb.eri.ucsb.edu/index.php?action=history&feed=atom&title=Read_struc.m 2026-05-22T19:19:35Z Revision history for this page on the wiki MediaWiki 1.34.0 https://wiki-pnb.eri.ucsb.edu/index.php?title=Read_struc.m&diff=214&oldid=prev 2010-08-05T23:53:13Z

<p>Created page with &#039;&lt;pre&gt; %READ_STRUC2.M %SRW 11/98,09/99 %Returns an empty structure in parfile not found. %Reads data into a structure from a file with, % 1) Field name lines begin with a #,##,##…&#039;</p> <p><b>New page</b></p><div>&lt;pre&gt;<br /> %READ_STRUC2.M<br /> %SRW 11/98,09/99<br /> %Returns an empty structure in parfile not found.<br /> %Reads data into a structure from a file with,<br /> % 1) Field name lines begin with a #,##,###, etc.<br /> % 3) Data lines must include ' ' for strings, and [],{} for arrays and <br /> % can go across lines without contiuation marks (...).<br /> % 3) #@ means put into all elements of that field<br /> % 4) % are comments<br /> % 5) If there are no (')'s or ([)'s in an entry, i.e. a block of text,<br /> % then a padded string array of lines is returned for that field.<br /> <br /> function [mystruc,struc_list]=read_struc3(filename)<br /> if (isempty(find(filename=='/')) &amp;...<br /> isempty(find(filename=='\'))),<br /> file=fullfile(pwd,filename);<br /> else<br /> file=filename;<br /> end<br /> struc_name='mystruc';<br /> fid=fopen(file,'r+');<br /> %keyboard<br /> str1=[];<br /> struc_list=[];<br /> while fid~=-1<br /> oline=fgetl(fid);<br /> % allow for comments following %'s<br /> eline=findstr(oline,'%');<br /> if ~isempty(eline),<br /> oline=oline(1:eline-1);<br /> end<br /> if isempty(oline),<br /> %do nothing, go to next line<br /> elseif oline(1)=='#' | oline==-1,<br /> if oline(1)=='#',<br /> struc_field=oline(2:size(parse(oline,1),2));<br /> struc_number=parse(oline,2);<br /> if ~isempty(struc_number),<br /> if struc_number(1)=='@';<br /> struc_number=0; %copy to all strucures in the array<br /> end<br /> end<br /> end<br /> if ~isempty(str1), <br /> str1;<br /> %substitute for any macros, define in top level of structure<br /> while ~isempty(find(str1=='$')),<br /> mac_ind=find(str1=='$');<br /> mac_name=str1((mac_ind(1)+1):(mac_ind(2)-1));<br /> mac_val=eval([struc_name '.' mac_name]);<br /> mac_name=['$' mac_name '$'];<br /> if ~ischar(mac_val),<br /> mac_val=num2str(mac_val);<br /> end<br /> str1=strrep(str1,mac_name,mac_val);<br /> end % while<br /> while ~isempty(findstr('$',str)),<br /> mac_ind=findstr('$',str);<br /> mac_name=str((mac_ind(1)+1):(mac_ind(2)-1));<br /> mac_val=eval([struc_name '.' mac_name]);<br /> mac_name=['$' mac_name '$'];<br /> if ~ischar(mac_val),<br /> mac_val=num2str(mac_val);<br /> end<br /> str=strrep(str,mac_name,mac_val);<br /> end % while<br /> struc_list=strvcat(struc_list, ...<br /> parse(str1(find(str1=='.')+1:find(str1=='=')),1));<br /> if ~isempty(findstr(str,'''')) | ~isempty(findstr(str,'[')) |...<br /> ~isempty(findstr(str,'{')),<br /> <br /> eval([str1 str ';'])<br /> else<br /> eval([str1 'char(cstr);'])<br /> end<br /> if oline == -1,<br /> fclose(fid);<br /> return<br /> end<br /> <br /> end<br /> str1=[struc_name '.' struc_field ' = '];<br /> str=[];<br /> cstr={};<br /> %still need to add @ option to copy to all structures<br /> % $$$ if struc_number&gt;0,<br /> % $$$ str=[struc_name '(' struc_number ')' '.' struc_field ' = '];<br /> % $$$ else<br /> % $$$ str=[struc_name '.' struc_field ' = '];<br /> % $$$ end<br /> else<br /> str=[str oline];<br /> if ~isempty(oline),<br /> cstr=[cstr; {oline}];<br /> end<br /> end<br /> end<br /> eval([struc_name '= []' ';'])<br /> return<br /> &lt;/pre&gt;<br /> <br /> &lt;big&gt;[[read_struc]]&lt;big&gt;</div>

128.111.101.185