source: trunk/src/core/RpLibraryFStubs.c @ 2408

Last change on this file since 2408 was 2408, checked in by dkearney, 13 years ago

adding a getFile function for rappture library and fortran bindings so fortran users no longer need to know the length of a string a user provides them as input, before compile time. they can now just dump the string into a file, and read the file as they are probably already used to doing. also fixed a bug in teh Rappture::Buffer dump function where it would correctly open a file pointer, but failed the check to see if the file pointer was opened.
File size: 19.7 KB
Line 
1/*
2 * ----------------------------------------------------------------------
3 *  INTERFACE: Fortran Rappture Library Stub Functions
4 *
5 * ======================================================================
6 *  AUTHOR:  Derrick Kearney, Purdue University
7 *  Copyright (c) 2004-2007  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
240void
241rp_lib_get_str_ (       int* handle,
242                        char* path,
243                        char* retText,
244                        int path_len,
245                        int retText_len ) {
246
247    return rp_lib_get_str(handle,path,retText,path_len,retText_len);
248}
249
250void
251rp_lib_get_str__ (      int* handle,
252                        char* path,
253                        char* retText,
254                        int path_len,
255                        int retText_len ) {
256
257    return rp_lib_get_str(handle,path,retText,path_len,retText_len);
258}
259
260void
261RP_LIB_GET_STR  (       int* handle,
262                        char* path,
263                        char* retText,
264                        int path_len,
265                        int retText_len ) {
266
267    return rp_lib_get_str(handle,path,retText,path_len,retText_len);
268}
269
270double
271rp_lib_get_double_ (    int* handle,
272                        char* path,
273                        int path_len) {
274
275    return rp_lib_get_double(handle,path,path_len);
276}
277
278double
279rp_lib_get_double__ (    int* handle,
280                        char* path,
281                        int path_len) {
282
283    return rp_lib_get_double(handle,path,path_len);
284}
285
286double
287RP_LIB_GET_DOUBLE (    int* handle,
288                        char* path,
289                        int path_len) {
290
291    return rp_lib_get_double(handle,path,path_len);
292}
293
294int
295rp_lib_get_integer_ (   int* handle,
296                        char* path,
297                        int path_len) {
298
299    return rp_lib_get_integer(handle,path,path_len);
300}
301
302int
303rp_lib_get_integer__ (  int* handle,
304                        char* path,
305                        int path_len) {
306
307    return rp_lib_get_integer(handle,path,path_len);
308}
309
310int
311RP_LIB_GET_INTEGER (    int* handle,
312                        char* path,
313                        int path_len) {
314
315    return rp_lib_get_integer(handle,path,path_len);
316}
317
318int
319rp_lib_get_boolean_ (   int* handle,
320                        char* path,
321                        int path_len) {
322
323    return rp_lib_get_boolean(handle,path,path_len);
324}
325
326int
327rp_lib_get_boolean__ (  int* handle,
328                        char* path,
329                        int path_len) {
330
331    return rp_lib_get_boolean(handle,path,path_len);
332}
333
334int
335RP_LIB_GET_BOOLEAN (    int* handle,
336                        char* path,
337                        int path_len) {
338
339    return rp_lib_get_boolean(handle,path,path_len);
340}
341
342int rp_lib_get_file_ (  int* handle,
343                        char* path,
344                        char* fileName,
345                        int path_len,
346                        int fileName_len) {
347
348    return rp_lib_get_file(handle,path,fileName,path_len,fileName_len);
349}
350
351int rp_lib_get_file__ ( int* handle,
352                        char* path,
353                        char* fileName,
354                        int path_len,
355                        int fileName_len) {
356
357    return rp_lib_get_file(handle,path,fileName,path_len,fileName_len);
358}
359
360int RP_LIB_GET_FILE (   int* handle,
361                        char* path,
362                        char* fileName,
363                        int path_len,
364                        int fileName_len) {
365
366    return rp_lib_get_file(handle,path,fileName,path_len,fileName_len);
367}
368
369void
370rp_lib_put_str_ (       int* handle,
371                        char* path,
372                        char* value,
373                        int* append,
374                        int path_len,
375                        int value_len ) {
376
377    rp_lib_put_str(handle,path,value,append,path_len,value_len);
378    return;
379}
380
381void
382rp_lib_put_str__ (      int* handle,
383                        char* path,
384                        char* value,
385                        int* append,
386                        int path_len,
387                        int value_len ) {
388
389    rp_lib_put_str(handle,path,value,append,path_len,value_len);
390    return;
391}
392
393void
394RP_LIB_PUT_STR (       int* handle,
395                        char* path,
396                        char* value,
397                        int* append,
398                        int path_len,
399                        int value_len ) {
400
401    rp_lib_put_str(handle,path,value,append,path_len,value_len);
402    return;
403}
404
405void
406rp_lib_put_id_str_ (    int* handle,
407                        char* path,
408                        char* value,
409                        char* id,
410                        int* append,
411                        int path_len,
412                        int value_len,
413                        int id_len ) {
414
415    rp_lib_put_id_str(handle,path,value,id,append,path_len,value_len,id_len);
416    return;
417}
418
419void
420rp_lib_put_id_str__ (    int* handle,
421                        char* path,
422                        char* value,
423                        char* id,
424                        int* append,
425                        int path_len,
426                        int value_len,
427                        int id_len ) {
428
429    rp_lib_put_id_str(handle,path,value,id,append,path_len,value_len,id_len);
430    return;
431}
432
433void
434RP_LIB_PUT_ID_STR (    int* handle,
435                        char* path,
436                        char* value,
437                        char* id,
438                        int* append,
439                        int path_len,
440                        int value_len,
441                        int id_len ) {
442
443    rp_lib_put_id_str(handle,path,value,id,append,path_len,value_len,id_len);
444    return;
445}
446
447void
448rp_lib_put_data_ (      int* handle,
449                        char* path,
450                        char* bytes,
451                        int* nbytes,
452                        int* append,
453                        int path_len,
454                        int bytes_len ) {
455
456    rp_lib_put_data(handle,path,bytes,nbytes,append,path_len,bytes_len);
457    return;
458}
459
460void
461rp_lib_put_data__ (     int* handle,
462                        char* path,
463                        char* bytes,
464                        int* nbytes,
465                        int* append,
466                        int path_len,
467                        int bytes_len ) {
468
469    rp_lib_put_data(handle,path,bytes,nbytes,append,path_len,bytes_len);
470    return;
471}
472
473void
474RP_LIB_PUT_DATA (       int* handle,
475                        char* path,
476                        char* bytes,
477                        int* nbytes,
478                        int* append,
479                        int path_len,
480                        int bytes_len ) {
481
482    rp_lib_put_data(handle,path,bytes,nbytes,append,path_len,bytes_len);
483    return;
484}
485
486void
487rp_lib_put_file_ (      int* handle,
488                        char* path,
489                        char* fileName,
490                        int* compress,
491                        int* append,
492                        int path_len,
493                        int fileName_len ) {
494
495    rp_lib_put_file(handle,path,fileName,compress,append,path_len,fileName_len);
496    return;
497}
498
499void
500rp_lib_put_file__ (     int* handle,
501                        char* path,
502                        char* fileName,
503                        int* compress,
504                        int* append,
505                        int path_len,
506                        int fileName_len ) {
507
508    rp_lib_put_file(handle,path,fileName,compress,append,path_len,fileName_len);
509    return;
510}
511
512void
513RP_LIB_PUT_FILE (       int* handle,
514                        char* path,
515                        char* fileName,
516                        int* compress,
517                        int* append,
518                        int path_len,
519                        int fileName_len ) {
520
521    rp_lib_put_file(handle,path,fileName,compress,append,path_len,fileName_len);
522    return;
523}
524
525/*
526 * rp_lib_put_obj still needs to be written
527 * keep these stub functions around
528void
529rp_lib_put_obj_ (       int* handle,
530                        char* path,
531                        int* valHandle,
532                        int* append,
533                        int path_len ) {
534
535    return rp_lib_put_obj(handle,path,valHandle,append,path_len);
536}
537
538void
539rp_lib_put_obj__ (       int* handle,
540                        char* path,
541                        int* valHandle,
542                        int* append,
543                        int path_len ) {
544
545    return rp_lib_put_obj(handle,path,valHandle,append,path_len);
546}
547
548void
549RP_LIB_PUT_OBJ (       int* handle,
550                        char* path,
551                        int* valHandle,
552                        int* append,
553                        int path_len ) {
554
555    return rp_lib_put_obj(handle,path,valHandle,append,path_len);
556}
557*/
558
559/*
560 * rp_lib_put_id_obj still needs to be written
561 * keep these stub functions around
562void
563rp_lib_put_id_obj_ (    int* handle,
564                        char* path,
565                        int* valHandle,
566                        char* id,
567                        int* append,
568                        int path_len,
569                        int id_len ) {
570
571    return rp_lib_put_id_obj(handle,path,valHandle,id,append,path_len,id_len);
572}
573
574void
575rp_lib_put_id_obj__ (    int* handle,
576                        char* path,
577                        int* valHandle,
578                        char* id,
579                        int* append,
580                        int path_len,
581                        int id_len ) {
582
583    return rp_lib_put_id_obj(handle,path,valHandle,id,append,path_len,id_len);
584}
585
586void
587RP_LIB_PUT_ID_OBJ (    int* handle,
588                        char* path,
589                        int* valHandle,
590                        char* id,
591                        int* append,
592                        int path_len,
593                        int id_len ) {
594
595    return rp_lib_put_id_obj(handle,path,valHandle,id,append,path_len,id_len);
596}
597*/
598
599/*
600 * rp_lib_remove still needs to be written
601 * keep these stub functions around
602int
603rp_lib_remove_ (        int* handle,
604                        char* path,
605                        int path_len) {
606
607    return rp_lib_remove(handle,path,path_len);
608}
609
610int
611rp_lib_remove__ (        int* handle,
612                        char* path,
613                        int path_len) {
614
615    return rp_lib_remove(handle,path,path_len);
616}
617
618int
619RP_LIB_REMOVE  (        int* handle,
620                        char* path,
621                        int path_len) {
622
623    return rp_lib_remove(handle,path,path_len);
624}
625*/
626
627/*
628 * rp_lib_xml_len still needs to be written
629 * keep these stub functions around
630int
631rp_lib_xml_len_(        int* handle) {
632    return rp_lib_xml_len(handle);
633}
634
635int
636rp_lib_xml_len__(        int* handle) {
637    return rp_lib_xml_len(handle);
638}
639
640int
641RP_LIB_XML_LEN (        int* handle) {
642    return rp_lib_xml_len(handle);
643}
644*/
645
646void
647rp_lib_xml_(            int* handle,
648                        char* retText,
649                        int retText_len) {
650    return rp_lib_xml(handle,retText,retText_len);
651}
652
653void
654rp_lib_xml__(            int* handle,
655                        char* retText,
656                        int retText_len) {
657    return rp_lib_xml(handle,retText,retText_len);
658}
659
660void
661RP_LIB_XML (            int* handle,
662                        char* retText,
663                        int retText_len) {
664    return rp_lib_xml(handle,retText,retText_len);
665}
666
667int
668rp_lib_write_xml_(      int* handle,
669                        char* outFile,
670                        int outFile_len) {
671    return rp_lib_write_xml (handle,outFile,outFile_len);
672}
673
674int
675rp_lib_write_xml__(      int* handle,
676                        char* outFile,
677                        int outFile_len) {
678    return rp_lib_write_xml (handle,outFile,outFile_len);
679}
680
681int
682RP_LIB_WRITE_XML(      int* handle,
683                        char* outFile,
684                        int outFile_len) {
685    return rp_lib_write_xml (handle,outFile,outFile_len);
686}
687
688void
689rp_lib_node_comp_ (     int* handle,
690                        char* retText,
691                        int retText_len) {
692    return rp_lib_node_comp (handle,retText,retText_len);
693}
694
695void
696rp_lib_node_comp__ (     int* handle,
697                        char* retText,
698                        int retText_len) {
699    return rp_lib_node_comp (handle,retText,retText_len);
700}
701
702void
703RP_LIB_NODE_COMP (     int* handle,
704                        char* retText,
705                        int retText_len) {
706    return rp_lib_node_comp (handle,retText,retText_len);
707}
708
709void
710rp_lib_node_type_ (     int* handle,
711                        char* retText,
712                        int retText_len) {
713    return rp_lib_node_type (handle,retText,retText_len);
714}
715
716void
717rp_lib_node_type__ (     int* handle,
718                        char* retText,
719                        int retText_len) {
720    return rp_lib_node_type (handle,retText,retText_len);
721}
722
723void
724RP_LIB_NODE_TYPE (      int* handle,
725                        char* retText,
726                        int retText_len) {
727    return rp_lib_node_type (handle,retText,retText_len);
728}
729
730void
731rp_lib_node_id_ (       int* handle,
732                        char* retText,
733                        int retText_len) {
734    return rp_lib_node_id(handle,retText,retText_len);
735}
736
737void
738rp_lib_node_id__ (       int* handle,
739                        char* retText,
740                        int retText_len) {
741    return rp_lib_node_id(handle,retText,retText_len);
742}
743
744void
745RP_LIB_NODE_ID (        int* handle,
746                        char* retText,
747                        int retText_len) {
748    return rp_lib_node_id(handle,retText,retText_len);
749}
750
751void
752rp_result_(             int* handle ) {
753    return rp_result(handle);
754}
755
756void
757rp_result__(             int* handle ) {
758    return rp_result(handle);
759}
760
761void
762RP_RESULT (             int* handle ) {
763    return rp_result(handle);
764}
765
766
767/**********************************************************/
768/**********************************************************/
769
770#ifdef __cplusplus
771    }
772#endif
Note: See TracBrowser for help on using the repository browser.