source: trunk/src/fortran/RpLibraryFStubs.c @ 119

Last change on this file since 119 was 119, checked in by dkearney, 19 years ago
  1. added doxygen headers to some fortran RpLibrary? bindings
  2. cleaned up app-fermi/fortran example
  3. removed rp_add_presets(...) function from api
  4. minor logic changes to RpUnits.cc.
File size: 15.1 KB
Line 
1/*
2 * ----------------------------------------------------------------------
3 *  INTERFACE: Fortran Rappture Library Stub Functions
4 *
5 * ======================================================================
6 *  AUTHOR:  Derrick Kearney, Purdue University
7 *  Copyright (c) 2004-2005  Purdue Research Foundation
8 *
9 *  See the file "license.terms" for information on usage and
10 *  redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
11 * ======================================================================
12 */
13#ifdef __cplusplus
14    extern "C" {
15#endif
16
17
18/**********************************************************/
19
20int
21rp_lib_ ( const char* filePath, int filePath_len ) {
22    return rp_lib (filePath,filePath_len);
23}
24
25int
26rp_lib__ ( const char* filePath, int filePath_len ) {
27    return rp_lib (filePath,filePath_len);
28}
29
30int
31RP_LIB( const char* filePath, int filePath_len ) {
32    return rp_lib (filePath,filePath_len);
33}
34
35void
36rp_lib_element_comp_ ( int* handle,
37                       char* path,
38                       char* retText,
39                       int path_len,
40                       int retText_len ) {
41
42    return rp_lib_element_comp(handle,path,retText,path_len,retText_len);
43}
44
45void
46rp_lib_element_comp__ ( int* handle,
47                       char* path,
48                       char* retText,
49                       int path_len,
50                       int retText_len ) {
51
52    return rp_lib_element_comp(handle,path,retText,path_len,retText_len);
53}
54
55void
56RP_LIB_ELEMENT_COMP ( int* handle,
57                       char* path,
58                       char* retText,
59                       int path_len,
60                       int retText_len ) {
61
62    return rp_lib_element_comp(handle,path,retText,path_len,retText_len);
63}
64
65void
66rp_lib_element_id_ (   int* handle,
67                       char* path,
68                       char* retText,
69                       int path_len,
70                       int retText_len ) {
71
72    return rp_lib_element_id(handle,path,retText,path_len,retText_len);
73}
74
75void
76rp_lib_element_id__ (   int* handle,
77                       char* path,
78                       char* retText,
79                       int path_len,
80                       int retText_len ) {
81
82    return rp_lib_element_id(handle,path,retText,path_len,retText_len);
83}
84
85void
86RP_LIB_ELEMENT_ID (   int* handle,
87                       char* path,
88                       char* retText,
89                       int path_len,
90                       int retText_len ) {
91
92    return rp_lib_element_id(handle,path,retText,path_len,retText_len);
93}
94
95void
96rp_lib_element_type_ ( int* handle,
97                       char* path,
98                       char* retText,
99                       int path_len,
100                       int retText_len ) {
101
102    return rp_lib_element_type(handle,path,retText,path_len,retText_len);
103}
104
105void
106rp_lib_element_type__ ( int* handle,
107                       char* path,
108                       char* retText,
109                       int path_len,
110                       int retText_len ) {
111
112    return rp_lib_element_type(handle,path,retText,path_len,retText_len);
113}
114
115void
116RP_LIB_ELEMENT_TYPE  ( int* handle,
117                       char* path,
118                       char* retText,
119                       int path_len,
120                       int retText_len ) {
121
122    return rp_lib_element_type(handle,path,retText,path_len,retText_len);
123}
124
125int
126rp_lib_element_obj_ (   int* handle,
127                        char* path,
128                        int path_len ) {
129
130    return rp_lib_element_obj(handle,path,path_len);
131}
132
133int
134rp_lib_element_obj__ (   int* handle,
135                        char* path,
136                        int path_len ) {
137
138    return rp_lib_element_obj(handle,path,path_len);
139}
140
141int
142RP_LIB_ELEMENT_OBJ  (   int* handle,
143                        char* path,
144                        int path_len ) {
145
146    return rp_lib_element_obj(handle,path,path_len);
147}
148
149/*
150 * rp_lib_child_num still needs to be written
151 * keep these stub functions around
152int
153rp_lib_child_num_ (     int* handle,
154                        char* path,
155                        int* childHandle,
156                        int path_len) {
157
158    return rp_lib_child_num(handle,path,childHandle,path_len);
159}
160
161int
162rp_lib_child_num__ (     int* handle,
163                        char* path,
164                        int* childHandle,
165                        int path_len) {
166
167    return rp_lib_child_num(handle,path,childHandle,path_len);
168}
169
170int
171RP_LIB_CHILD_NUM (     int* handle,
172                        char* path,
173                        int* childHandle,
174                        int path_len) {
175
176    return rp_lib_child_num(handle,path,childHandle,path_len);
177}
178*/
179
180int
181rp_lib_children_ (     int* handle, /* integer handle of library */
182                       char* path, /* search path of the xml */
183                       int* childHandle, /*int handle of last returned child*/
184                       int path_len  /*length of the search path buffer*/
185                 ) {
186
187    return rp_lib_children(handle,path,childHandle,path_len);
188}
189
190int
191rp_lib_children__ (     int* handle, /* integer handle of library */
192                       char* path, /* search path of the xml */
193                       int* childHandle, /*int handle of last returned child*/
194                       int path_len  /*length of the search path buffer*/
195                 ) {
196
197    return rp_lib_children(handle,path,childHandle,path_len);
198}
199
200int
201RP_LIB_CHILDREN (     int* handle, /* integer handle of library */
202                       char* path, /* search path of the xml */
203                       int* childHandle, /*int handle of last returned child*/
204                       int path_len  /*length of the search path buffer*/
205                 ) {
206
207    return rp_lib_children(handle,path,childHandle,path_len);
208}
209
210void
211rp_lib_get_ (           int* handle,
212                        char* path,
213                        char* retText,
214                        int path_len,
215                        int retText_len ) {
216
217    return rp_lib_get(handle,path,retText,path_len,retText_len);
218}
219
220void
221rp_lib_get__ (           int* handle,
222                        char* path,
223                        char* retText,
224                        int path_len,
225                        int retText_len ) {
226
227    return rp_lib_get(handle,path,retText,path_len,retText_len);
228}
229
230void
231RP_LIB_GET  (           int* handle,
232                        char* path,
233                        char* retText,
234                        int path_len,
235                        int retText_len ) {
236
237    return rp_lib_get(handle,path,retText,path_len,retText_len);
238}
239
240double
241rp_lib_get_double_ (    int* handle,
242                        char* path,
243                        int path_len) {
244
245    return rp_lib_get_double(handle,path,path_len);
246}
247
248double
249rp_lib_get_double__ (    int* handle,
250                        char* path,
251                        int path_len) {
252
253    return rp_lib_get_double(handle,path,path_len);
254}
255
256double
257RP_LIB_GET_DOUBLE (    int* handle,
258                        char* path,
259                        int path_len) {
260
261    return rp_lib_get_double(handle,path,path_len);
262}
263
264void
265rp_lib_put_str_ (       int* handle,
266                        char* path,
267                        char* value,
268                        int* append,
269                        int path_len,
270                        int value_len ) {
271
272    return rp_lib_put_str(handle,path,value,append,path_len,value_len);
273}
274
275void
276rp_lib_put_str__ (       int* handle,
277                        char* path,
278                        char* value,
279                        int* append,
280                        int path_len,
281                        int value_len ) {
282
283    return rp_lib_put_str(handle,path,value,append,path_len,value_len);
284}
285
286void
287RP_LIB_PUT_STR (       int* handle,
288                        char* path,
289                        char* value,
290                        int* append,
291                        int path_len,
292                        int value_len ) {
293
294    return rp_lib_put_str(handle,path,value,append,path_len,value_len);
295}
296
297void
298rp_lib_put_id_str_ (    int* handle,
299                        char* path,
300                        char* value,
301                        char* id,
302                        int* append,
303                        int path_len,
304                        int value_len,
305                        int id_len ) {
306
307    return rp_lib_put_id_str( handle, path, value,id,append,
308                              path_len,value_len,id_len);
309}
310
311void
312rp_lib_put_id_str__ (    int* handle,
313                        char* path,
314                        char* value,
315                        char* id,
316                        int* append,
317                        int path_len,
318                        int value_len,
319                        int id_len ) {
320
321    return rp_lib_put_id_str( handle, path, value,id,append,
322                              path_len,value_len,id_len);
323}
324
325void
326RP_LIB_PUT_ID_STR (    int* handle,
327                        char* path,
328                        char* value,
329                        char* id,
330                        int* append,
331                        int path_len,
332                        int value_len,
333                        int id_len ) {
334
335    return rp_lib_put_id_str( handle, path, value,id,append,
336                              path_len,value_len,id_len);
337}
338
339/*
340 * rp_lib_put_obj still needs to be written
341 * keep these stub functions around
342void
343rp_lib_put_obj_ (       int* handle,
344                        char* path,
345                        int* valHandle,
346                        int* append,
347                        int path_len ) {
348
349    return rp_lib_put_obj(handle,path,valHandle,append,path_len);
350}
351
352void
353rp_lib_put_obj__ (       int* handle,
354                        char* path,
355                        int* valHandle,
356                        int* append,
357                        int path_len ) {
358
359    return rp_lib_put_obj(handle,path,valHandle,append,path_len);
360}
361
362void
363RP_LIB_PUT_OBJ (       int* handle,
364                        char* path,
365                        int* valHandle,
366                        int* append,
367                        int path_len ) {
368
369    return rp_lib_put_obj(handle,path,valHandle,append,path_len);
370}
371*/
372
373/*
374 * rp_lib_put_id_obj still needs to be written
375 * keep these stub functions around
376void
377rp_lib_put_id_obj_ (    int* handle,
378                        char* path,
379                        int* valHandle,
380                        char* id,
381                        int* append,
382                        int path_len,
383                        int id_len ) {
384
385    return rp_lib_put_id_obj(handle,path,valHandle,id,append,path_len,id_len);
386}
387
388void
389rp_lib_put_id_obj__ (    int* handle,
390                        char* path,
391                        int* valHandle,
392                        char* id,
393                        int* append,
394                        int path_len,
395                        int id_len ) {
396
397    return rp_lib_put_id_obj(handle,path,valHandle,id,append,path_len,id_len);
398}
399
400void
401RP_LIB_PUT_ID_OBJ (    int* handle,
402                        char* path,
403                        int* valHandle,
404                        char* id,
405                        int* append,
406                        int path_len,
407                        int id_len ) {
408
409    return rp_lib_put_id_obj(handle,path,valHandle,id,append,path_len,id_len);
410}
411*/
412
413/*
414 * rp_lib_remove still needs to be written
415 * keep these stub functions around
416int
417rp_lib_remove_ (        int* handle,
418                        char* path,
419                        int path_len) {
420
421    return rp_lib_remove(handle,path,path_len);
422}
423
424int
425rp_lib_remove__ (        int* handle,
426                        char* path,
427                        int path_len) {
428
429    return rp_lib_remove(handle,path,path_len);
430}
431
432int
433RP_LIB_REMOVE  (        int* handle,
434                        char* path,
435                        int path_len) {
436
437    return rp_lib_remove(handle,path,path_len);
438}
439*/
440
441/*
442 * rp_lib_xml_len still needs to be written
443 * keep these stub functions around
444int
445rp_lib_xml_len_(        int* handle) {
446    return rp_lib_xml_len(handle);
447}
448
449int
450rp_lib_xml_len__(        int* handle) {
451    return rp_lib_xml_len(handle);
452}
453
454int
455RP_LIB_XML_LEN (        int* handle) {
456    return rp_lib_xml_len(handle);
457}
458*/
459
460void
461rp_lib_xml_(            int* handle,
462                        char* retText,
463                        int retText_len) {
464    return rp_lib_xml(handle,retText,retText_len);
465}
466
467void
468rp_lib_xml__(            int* handle,
469                        char* retText,
470                        int retText_len) {
471    return rp_lib_xml(handle,retText,retText_len);
472}
473
474void
475RP_LIB_XML (            int* handle,
476                        char* retText,
477                        int retText_len) {
478    return rp_lib_xml(handle,retText,retText_len);
479}
480
481int
482rp_lib_write_xml_(      int* handle,
483                        char* outFile,
484                        int outFile_len) {
485    return rp_lib_write_xml (handle,outFile,outFile_len);
486}
487
488int
489rp_lib_write_xml__(      int* handle,
490                        char* outFile,
491                        int outFile_len) {
492    return rp_lib_write_xml (handle,outFile,outFile_len);
493}
494
495int
496RP_LIB_WRITE_XML(      int* handle,
497                        char* outFile,
498                        int outFile_len) {
499    return rp_lib_write_xml (handle,outFile,outFile_len);
500}
501
502void
503rp_lib_node_comp_ (     int* handle,
504                        char* retText,
505                        int retText_len) {
506    return rp_lib_node_comp (handle,retText,retText_len);
507}
508
509void
510rp_lib_node_comp__ (     int* handle,
511                        char* retText,
512                        int retText_len) {
513    return rp_lib_node_comp (handle,retText,retText_len);
514}
515
516void
517RP_LIB_NODE_COMP (     int* handle,
518                        char* retText,
519                        int retText_len) {
520    return rp_lib_node_comp (handle,retText,retText_len);
521}
522
523void
524rp_lib_node_type_ (     int* handle,
525                        char* retText,
526                        int retText_len) {
527    return rp_lib_node_type (handle,retText,retText_len);
528}
529
530void
531rp_lib_node_type__ (     int* handle,
532                        char* retText,
533                        int retText_len) {
534    return rp_lib_node_type (handle,retText,retText_len);
535}
536
537void
538RP_LIB_NODE_TYPE (      int* handle,
539                        char* retText,
540                        int retText_len) {
541    return rp_lib_node_type (handle,retText,retText_len);
542}
543
544void
545rp_lib_node_id_ (       int* handle,
546                        char* retText,
547                        int retText_len) {
548    return rp_lib_node_id(handle,retText,retText_len);
549}
550
551void
552rp_lib_node_id__ (       int* handle,
553                        char* retText,
554                        int retText_len) {
555    return rp_lib_node_id(handle,retText,retText_len);
556}
557
558void
559RP_LIB_NODE_ID (        int* handle,
560                        char* retText,
561                        int retText_len) {
562    return rp_lib_node_id(handle,retText,retText_len);
563}
564
565void
566rp_result_(             int* handle ) {
567    return rp_result(handle);
568}
569
570void
571rp_result__(             int* handle ) {
572    return rp_result(handle);
573}
574
575void
576RP_RESULT (             int* handle ) {
577    return rp_result(handle);
578}
579
580
581/**********************************************************/
582/**********************************************************/
583
584#ifdef __cplusplus
585    }
586#endif
Note: See TracBrowser for help on using the repository browser.