1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
function write_abg(system_name,bonds,connections,n_vector_bonds);
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.10 2004/08/09 14:47:28 gawthrop
## Changed arg to args to avoid strange octave bug
##
## Revision 1.9 2001/04/15 21:15:41 geraint
## Added interface definition rep: _ICD.(txt|c|cc|m).
##
## Revision 1.8 1999/10/18 22:41:41 peterg
|
>
>
>
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
function write_abg(system_name,bonds,connections,n_vector_bonds);
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.11 2004/09/12 22:27:27 geraint
## Appended 't' to fopen mode string to open in text mode.
##
## Revision 1.10 2004/08/09 14:47:28 gawthrop
## Changed arg to args to avoid strange octave bug
##
## Revision 1.9 2001/04/15 21:15:41 geraint
## Added interface definition rep: _ICD.(txt|c|cc|m).
##
## Revision 1.8 1999/10/18 22:41:41 peterg
|
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
|
fprintf(fid,"\n");
endfor;
fprintf(fid," ];\n");
fprintf(fid,"\n# Aliases \n");
fprintf(fid,"# A double underscore __ represents a comma \n");
eval(["alias = ", system_name, "_alias;"]);
if is_struct(alias)
for [val,key] = alias
fprintf(fid,"%s.alias.%s = \"%s\";\n", system_name,key,val);
endfor
endif
fprintf(fid,"\n# Interface Definition\n");
eval(["icd = ",system_name, "_icd;"]);
if is_struct(icd)
for [val,key] = icd
fprintf(fid,"%s.icd.%s = \"%s\";\n",system_name,key,val);
endfor
endif
fclose(fid);
|
|
|
|
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
|
fprintf(fid,"\n");
endfor;
fprintf(fid," ];\n");
fprintf(fid,"\n# Aliases \n");
fprintf(fid,"# A double underscore __ represents a comma \n");
eval(["alias = ", system_name, "_alias;"]);
if isstruct(alias)
for [val,key] = alias
fprintf(fid,"%s.alias.%s = \"%s\";\n", system_name,key,val);
endfor
endif
fprintf(fid,"\n# Interface Definition\n");
eval(["icd = ",system_name, "_icd;"]);
if isstruct(icd)
for [val,key] = icd
fprintf(fid,"%s.icd.%s = \"%s\";\n",system_name,key,val);
endfor
endif
fclose(fid);
|