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

Last change on this file since 97 was 84, checked in by dkearney, 17 years ago
  1. added "install" target to make file for copying files over to /opt/rappture
  2. added targets for python to build and install the units module
  3. added fortran stub functions for library and units.

RpLibraryF_test.f compiles, just with warnings, because i'm still working on it.

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