source: trunk/src/fortran/rappture_fortran.c @ 21

Last change on this file since 21 was 21, checked in by dkearney, 19 years ago

created Makefile for compiling rappture libraries.
created README which starts to outline how to compile a rappture library
adjusted #include lines in most .h,.c,.cc files and added Include path

searched to the makefile.

files changed listed below:
M include/core/RpUnits.h
M include/core/RpDict.h
M include/cee/rappture_interface.h
A src/python/PyRpUnits_setup.py
M src/core/RpUnits.cc
M src/fortran/RpUnits_fortran.c
M src/fortran/rappture_fortran.c
M src/cee/rappture_interface.c
M src/cee/RpUnitsCInterface.cc
A src/README
A src/Makefile
File size: 38.3 KB
Line 
1#include "rappture_interface.h"
2#include "RpDict.h"
3#include <string.h>
4
5/*
6// rappture-fortran api
7*/
8
9#ifdef COMPNAME_ADD1UNDERSCORE
10#   define rp_init                 rp_init_
11#   define rp_lib                  rp_lib_
12#   define rp_lib_element_comp     rp_lib_element_comp_
13#   define rp_lib_element_id       rp_lib_element_id_
14#   define rp_lib_element_type     rp_lib_element_type_
15#   define rp_lib_element_str      rp_lib_element_str_
16#   define rp_lib_element_obj      rp_lib_element_obj_
17#   define rp_lib_child_num        rp_lib_child_num_
18#   define rp_lib_child_comp       rp_lib_child_comp_
19#   define rp_lib_child_id         rp_lib_child_id_
20#   define rp_lib_child_type       rp_lib_child_type_
21#   define rp_lib_child_str        rp_lib_child_str_
22#   define rp_lib_child_obj        rp_lib_child_obj_
23#   define rp_lib_get              rp_lib_get_
24#   define rp_lib_get_double       rp_lib_get_double_
25#   define rp_lib_put_str          rp_lib_put_str_
26#   define rp_lib_put_id_str       rp_lib_put_id_str_
27#   define rp_lib_put_obj          rp_lib_put_obj_
28#   define rp_lib_put_id_obj       rp_lib_put_id_obj_
29#   define rp_lib_remove           rp_lib_remove_
30#   define rp_lib_xml_len          rp_lib_xml_len_
31#   define rp_lib_write_xml        rp_lib_write_xml_
32#   define rp_lib_xml              rp_lib_xml_
33#   define rp_quit                 rp_quit_
34#elif defined(COMPNAME_ADD2UNDERSCORE)
35#   define rp_init                 rp_init__
36#   define rp_lib                  rp_lib__
37#   define rp_lib_element_comp     rp_lib_element_comp__
38#   define rp_lib_element_id       rp_lib_element_id__
39#   define rp_lib_element_type     rp_lib_element_type__
40#   define rp_lib_element_str      rp_lib_element_str__
41#   define rp_lib_element_obj      rp_lib_element_obj__
42#   define rp_lib_child_num        rp_lib_child_num__
43#   define rp_lib_child_comp       rp_lib_child_comp__
44#   define rp_lib_child_id         rp_lib_child_id__
45#   define rp_lib_child_type       rp_lib_child_type__
46#   define rp_lib_child_str        rp_lib_child_str__
47#   define rp_lib_child_obj        rp_lib_child_obj__
48#   define rp_lib_get              rp_lib_get__
49#   define rp_lib_get_double       rp_lib_get_double__
50#   define rp_lib_put_str          rp_lib_put_str__
51#   define rp_lib_put_id_str       rp_lib_put_id_str__
52#   define rp_lib_put_obj          rp_lib_put_obj__
53#   define rp_lib_put_id_obj       rp_lib_put_id_obj__
54#   define rp_lib_remove           rp_lib_remove__
55#   define rp_lib_xml_len          rp_lib_xml_len__
56#   define rp_lib_write_xml        rp_lib_write_xml__
57#   define rp_lib_xml              rp_lib_xml__
58#   define rp_quit                 rp_quit__
59#elif defined(COMPNAME_NOCHANGE)
60#   define rp_init                 rp_init
61#   define rp_lib                  rp_lib
62#   define rp_lib_element_comp     rp_lib_element_comp
63#   define rp_lib_element_id       rp_lib_element_id
64#   define rp_lib_element_type     rp_lib_element_type
65#   define rp_lib_element_str      rp_lib_element_str
66#   define rp_lib_element_obj      rp_lib_element_obj
67#   define rp_lib_child_num        rp_lib_child_num
68#   define rp_lib_child_comp       rp_lib_child_comp
69#   define rp_lib_child_id         rp_lib_child_id
70#   define rp_lib_child_type       rp_lib_child_type
71#   define rp_lib_child_str        rp_lib_child_str
72#   define rp_lib_child_obj        rp_lib_child_obj
73#   define rp_lib_get              rp_lib_get
74#   define rp_lib_get_double       rp_lib_get_double
75#   define rp_lib_put_str          rp_lib_put_str
76#   define rp_lib_put_id_str       rp_lib_put_id_str
77#   define rp_lib_put_obj          rp_lib_put_obj
78#   define rp_lib_put_id_obj       rp_lib_put_id_obj
79#   define rp_lib_remove           rp_lib_remove
80#   define rp_lib_xml_len          rp_lib_xml_len
81#   define rp_lib_write_xml        rp_lib_write_xml
82#   define rp_lib_xml              rp_lib_xml
83#   define rp_quit                 rp_quit
84#elif defined(COMPNAME_UPPERCASE)
85#   define rp_init                 RP_INIT
86#   define rp_lib                  RP_LIB
87#   define rp_lib_element_comp     RP_LIB_ELEMENT_COMP
88#   define rp_lib_element_id       RP_LIB_ELEMENT_ID
89#   define rp_lib_element_type     RP_LIB_ELEMENT_TYPE
90#   define rp_lib_element_str      RP_LIB_ELEMENT_STR
91#   define rp_lib_element_obj      RP_LIB_ELEMENT_OBJ
92#   define rp_lib_child_num        RP_LIB_CHILD_NUM
93#   define rp_lib_child_comp       RP_LIB_CHILD_COMP
94#   define rp_lib_child_id         RP_LIB_CHILD_ID
95#   define rp_lib_child_type       RP_LIB_CHILD_TYPE
96#   define rp_lib_child_str        RP_LIB_CHILD_STR
97#   define rp_lib_child_obj        RP_LIB_CHILD_OBJ
98#   define rp_lib_get              RP_LIB_GET
99#   define rp_lib_get_double       RP_LIB_GET_DOUBLE
100#   define rp_lib_put_str          RP_LIB_PUT_STR
101#   define rp_lib_put_id_str       RP_LIB_PUT_ID_STR
102#   define rp_lib_put_obj          RP_LIB_PUT_OBJ
103#   define rp_lib_put_id_obj       RP_LIB_PUT_ID_OBJ
104#   define rp_lib_remove           RP_LIB_REMOVE
105#   define rp_lib_xml_len          RP_LIB_XML_LEN
106#   define rp_lib_write_xml        RP_LIB_WRITE_XML
107#   define rp_lib_xml              RP_LIB_XML
108#   define rp_quit                 RP_QUIT
109#endif
110
111
112extern "C"
113void rp_init();
114
115extern "C"
116int rp_lib(const char* filePath, int filePath_len);
117
118extern "C"
119void rp_lib_element_comp( int* handle,
120                            char* path,
121                            char* retText,
122                            int path_len,
123                            int retText_len );
124
125extern "C"
126void rp_lib_element_id(   int* handle,
127                            char* path,
128                            char* retText,
129                            int path_len,
130                            int retText_len );
131
132extern "C"
133void rp_lib_element_type( int* handle,
134                            char* path,
135                            char* retText,
136                            int path_len,
137                            int retText_len );
138
139extern "C"
140void rp_lib_element_str(  int* handle,
141                            char* path,
142                            char* flavor,
143                            char* retText,
144                            int path_len,
145                            int flavor_len,
146                            int retText_len );
147
148extern "C"
149int rp_lib_element_obj(   int* handle,
150                            char* path,
151                            int path_len );
152
153extern "C"
154int rp_lib_child_num(    int* handle,
155                            char* path,
156                            int path_len);
157
158extern "C"
159int rp_lib_child_comp(   int* handle,    /* integer handle of library */
160                            char* path,     /* DOM path of requested object */
161                            char* type,     /* specific name of element */
162                            int* childNum,  /* child number for iteration */
163                            char* retText,  /* buffer to store return text */
164                            int path_len,   /* length of path */
165                            int type_len,   /* length of type */
166                            int retText_len /* length of return text buffer */
167                       );
168
169extern "C"
170int rp_lib_child_id(     int* handle,    /* integer handle of library */
171                            char* path,     /* DOM path of requested object */
172                            char* type,     /* specific name of element */
173                            int* childNum,  /* child number for iteration */
174                            char* retText,  /* buffer to store return text */
175                            int path_len,   /* length of path */
176                            int type_len,   /* length of type */
177                            int retText_len /* length of return text buffer */
178                       );
179
180extern "C"
181int rp_lib_child_type(   int* handle,    /* integer handle of library */
182                            char* path,     /* DOM path of requested object */
183                            char* type,     /* specific name of element */
184                            int* childNum,  /* child number for iteration */
185                            char* retText,  /* buffer to store return text */
186                            int path_len,   /* length of path */
187                            int type_len,   /* length of type */
188                            int retText_len /* length of return text buffer */
189                       );
190
191extern "C"
192int rp_lib_child_str(    int* handle,    /* integer handle of library */
193                            char* path,     /* DOM path of requested object */
194                            char* flavor,   /* information you want returned*/
195                            char* type,     /* specific name of element */
196                            int* childNum,  /* child number for iteration */
197                            char* retText,  /* buffer to store return text */
198                            int path_len,   /* length of path */
199                            int flavor_len, /* length of flavor */
200                            int type_len,   /* length of type */
201                            int retText_len /* length of return text buffer */
202                       );
203
204extern "C"
205int rp_lib_child_obj(    int* handle,
206                            char* path,
207                            char* type,
208                            int path_len,
209                            int type_len
210                          );
211
212extern "C"
213void rp_lib_get(          int* handle,
214                            char* path,
215                            char* retText,
216                            int path_len,
217                            int retText_len );
218
219extern "C"
220double rp_lib_get_double( int* handle,
221                            char* path,
222                            int path_len);
223
224extern "C"
225void rp_lib_put_str(     int* handle,
226                            char* path,
227                            char* value,
228                            int* append,
229                            int path_len,
230                            int value_len );
231
232extern "C"
233void rp_lib_put_id_str(  int* handle,
234                            char* path,
235                            char* value,
236                            char* id,
237                            int* append,
238                            int path_len,
239                            int value_len,
240                            int id_len );
241
242extern "C"
243void rp_lib_put_obj(     int* handle,
244                            char* path,
245                            int* valHandle,
246                            int* append,
247                            int path_len );
248
249extern "C"
250void rp_lib_put_id_obj(  int* handle,
251                            char* path,
252                            int* valHandle,
253                            char* id,
254                            int* append,
255                            int path_len,
256                            int id_len );
257
258extern "C"
259int rp_lib_remove(       int* handle,
260                            char* path,
261                            int path_len);
262
263extern "C"
264int rp_lib_xml_len(      int* handle);
265
266extern "C"
267void rp_lib_xml(         int* handle,
268                            char* retText,
269                            int retText_len);
270
271extern "C"
272int rp_lib_write_xml(     int* handle,
273                            char* outFile,
274                            int outFile_len);
275extern "C"
276void rp_quit();
277
278
279/**********************************************************/
280
281/**********************************************************/
282
283// private member functions
284int storeNode(PyObject* node);
285int objType( char* flavor);
286
287int storeObject(PyObject* objectName);
288PyObject* getObject(int objKey);
289char* null_terminate(char* inStr, int len);
290
291// global vars
292// dictionary to hold the python objects that
293// cannot be sent to fortran
294
295#define DICT_TEMPLATE <int,PyObject*>
296RpDict DICT_TEMPLATE fortObjDict;
297int rapptureStarted = 0;
298
299void rp_init() {
300    //
301    PyObject* rpClass = NULL;
302    int retVal = 0;
303   
304    // initialize the interpreter
305    Py_Initialize();
306    rpClass = importRappture();
307
308    if (rpClass) {
309        // store the handle in the dictionary
310        retVal = storeObject(rpClass);
311        rapptureStarted = 1;
312    }
313}
314
315int rp_lib(const char* filePath, int filePath_len)
316{
317    PyObject* lib = NULL;
318    PyObject* rpClass = NULL;
319    int handle = -1;
320    char* inFilePath = NULL;
321
322    if (!rapptureStarted) {
323        rp_init();
324    }
325
326
327    inFilePath = null_terminate((char*)filePath, filePath_len);
328   
329    // error checking to make sure inText is valid???
330   
331    // grab the rappture class from the dictionary
332    rpClass = getObject(0);
333
334    if (rpClass) {
335        // create a RapptureIO object and store in dictionary
336        lib = createRapptureObj(rpClass, inFilePath);
337
338        if (lib) {
339            handle = storeObject(lib);
340        }
341    }
342
343    if (inFilePath) {
344        free(inFilePath);
345        inFilePath = NULL;
346    }
347
348    return handle;
349}
350
351int rp_lib_element_obj(int* handle,     /* integer handle of library */
352                          char* path,     /* null terminated path */
353                          int path_len
354                        )
355{
356    int newObjHandle = -1;
357
358    const char* flavor = "object";
359    char* inPath = NULL;
360
361    PyObject* lib = NULL;
362    PyObject* retObj = NULL;
363
364    inPath = null_terminate(path,path_len);
365
366    // error checking to make sure inText is valid???
367
368    if (fortObjDict.size() > 0) {
369        if ((handle) && (*handle != 0)) {
370            lib = getObject(*handle);
371            if (lib) {
372                retObj = (PyObject*) rpElement(lib, inPath, flavor);
373               
374                if (retObj) {
375
376                    newObjHandle = storeObject(retObj);
377                    // Py_DECREF(retObj);
378                }
379            }
380        }
381    }
382
383    if (inPath) {
384        free(inPath);
385        inPath = NULL;
386    }
387
388    return newObjHandle;
389}
390
391void rp_lib_element_comp( int* handle, /* integer handle of library */
392                            char* path,      /* null terminated path */
393                            char* retText,   /* return buffer for fortran*/
394                            int path_len,
395                            int retText_len /* length of return text buffer */
396                          )
397{
398    char* inPath = NULL;
399
400    inPath = null_terminate(path,path_len);
401    if (path_len) {
402        path_len = strlen(inPath) + 1;
403    }
404    else {
405        path_len = 0;
406    }
407
408    // error checking to make sure inText is valid???
409
410    rp_lib_element_str(handle,inPath,"component",retText,path_len,10,retText_len);
411   
412    if (inPath) {
413        free(inPath);
414        inPath = NULL;
415    }
416
417}
418
419void rp_lib_element_id(   int* handle, /* integer handle of library */
420                            char* path,      /* null terminated path */
421                            char* retText,   /* return buffer for fortran*/
422                            int path_len,
423                            int retText_len /* length of return text buffer */
424                        )
425{
426    char* inPath = NULL;
427    inPath = null_terminate(path,path_len);
428    if (inPath) {
429        path_len = strlen(inPath) + 1;
430    }
431    else {
432        path_len = 0;
433    }
434
435    rp_lib_element_str(handle,inPath,"id",retText,path_len,3,retText_len);
436    if (inPath) {
437        free(inPath);
438        inPath = NULL;
439    }
440
441
442}
443
444void rp_lib_element_type( int* handle, /* integer handle of library */
445                            char* path,      /* null terminated path */
446                            char* retText,   /* return buffer for fortran*/
447                            int path_len,
448                            int retText_len /* length of return text buffer */
449                          )
450{
451    char* inPath = NULL;
452    inPath = null_terminate(path,path_len);
453    if (inPath) {
454        path_len = strlen(inPath) + 1;
455    }
456    else {
457        path_len = 0;
458    }
459    rp_lib_element_str(handle,path,"type",retText,path_len,5,retText_len);
460    if (inPath) {
461        free(inPath);
462        inPath = NULL;
463    }
464
465
466}
467
468void rp_lib_element_str(  int* handle, /* integer handle of library */
469                            char* path,      /* null terminated path */
470                            char* flavor,    /* null terminated flavor */
471                            char* retText,   /* return buffer for fortran*/
472                            int path_len,
473                            int flavor_len,
474                            int retText_len /* length of return text buffer */
475                        )
476{
477    int length_in = 0;
478    int length_out = 0;
479    int i = 0;
480    const char* xmlText = NULL;
481
482    PyObject* lib = NULL;
483   
484    char* retObj = NULL;
485   
486    char* inPath = NULL;
487    char* inFlavor = NULL;
488
489    inPath = null_terminate(path,path_len);
490    inFlavor = null_terminate(flavor,flavor_len);
491
492    if (rapptureStarted) {
493        if ((handle) && (*handle != 0)) {
494            lib = getObject(*handle);
495
496            if (lib) {
497                if(objType(inFlavor) == 1) {
498
499                    retObj = (char*) rpElement(lib, inPath, inFlavor);
500                    if (retObj) {
501                        xmlText = retObj;
502                   
503                        length_in = strlen(xmlText);
504                        length_out = retText_len;
505
506                        strncpy(retText, xmlText, length_out);
507
508                        // fortran-ify the string
509                        if (length_in < length_out) {
510                              for (i = length_in; i < length_out; i++) {
511                                  retText[i] = ' ';
512                              }
513                        }
514                        *(retText+length_out-1) = ' ';
515
516                    }
517                    else {
518                       
519                    }
520                }
521
522            }
523        }
524    }
525   
526    if (inPath) {
527        free(inPath);
528        inPath = NULL;
529    }
530
531    if (inFlavor) {
532        free(inFlavor);
533        inFlavor = NULL;
534    }
535
536}
537
538int rp_lib_child_num( int* handle,
539                         char* path,
540                         int path_len
541                       )
542{
543    int numChildren = 0;
544
545    PyObject* lib = NULL;
546    PyObject* list = NULL;
547    char* inPath = NULL;
548
549    inPath = null_terminate(path,path_len);
550   
551    if (rapptureStarted) {
552        if ((handle) && (*handle != 0)) {
553            lib = getObject(*handle);
554
555            if (lib) {
556                list = rpChildren_f(lib, inPath, "type");
557                if (list) {
558                    numChildren = PyList_Size(list);
559                    Py_DECREF(list);
560                }
561                else {
562                   
563                }
564            }
565        }
566    }
567
568    if (inPath) {
569        free(inPath);
570        inPath = NULL;
571    }
572
573    return numChildren;
574
575}
576
577
578int rp_lib_child_comp (   int* handle,    /* integer handle of library */
579                            char* path,     /* DOM path of requested object */
580                            char* type,     /* specific name of element */
581                            int* childNum,  /* child number for iteration */
582                            char* retText,  /* buffer to store return text */
583                            int path_len,   /* length of path */
584                            int type_len,   /* length of type */
585                            int retText_len /* length of return text buffer */
586                       )
587{
588    int retVal = 0;
589
590    char* inPath = NULL;
591    char* inType = NULL;
592
593    inPath = null_terminate(path,path_len);
594    inType = null_terminate(type,type_len);
595
596    if (inPath) {
597        path_len = strlen(inPath) + 1;
598    }
599    else {
600        path_len = 0;
601    }
602
603    if (inType) {
604        type_len = strlen(inType) + 1;
605    }
606    else {
607        type_len = 0;
608    }
609
610    retVal = rp_lib_child_str( handle,
611                                 inPath,
612                                 "component",
613                                 inType,
614                                 childNum,
615                                 retText,
616                                 path_len,
617                                 10,
618                                 type_len,
619                                 retText_len
620                               );
621
622    if (inPath) {
623        free(inPath);
624        inPath = NULL;
625    }
626
627    if (inType) {
628        free(inType);
629        inType = NULL;
630    }
631
632    return retVal;
633}
634
635int rp_lib_child_id(   int* handle,    /* integer handle of library */
636                          char* path,     /* DOM path of requested object */
637                          char* type,     /* specific name of element */
638                          int* childNum,  /* child number for iteration */
639                          char* retText,  /* buffer to store return text */
640                          int path_len,   /* length of path */
641                          int type_len,   /* length of type */
642                          int retText_len /* length of return text buffer */
643                       )
644{
645    int retVal = 0;
646    char* inPath = NULL;
647    char* inType = NULL;
648
649    inPath = null_terminate(path,path_len);
650    inType = null_terminate(type,type_len);
651
652    if (inPath) {
653        path_len = strlen(inPath) + 1;
654    }
655    else {
656        path_len = 0;
657    }
658
659    if (inType) {
660        type_len = strlen(inType) + 1;
661    }
662    else {
663        type_len = 0;
664    }
665
666    retVal = rp_lib_child_str( handle,
667                                 inPath,
668                                 "id",
669                                 inType,
670                                 childNum,
671                                 retText,
672                                 path_len,
673                                 3,
674                                 type_len,
675                                 retText_len
676                               );
677
678    if (inPath) {
679        free(inPath);
680        inPath = NULL;
681    }
682
683    if (inType) {
684        free(inType);
685        inType = NULL;
686    }
687
688    return retVal;
689}
690
691int rp_lib_child_type (   int* handle,    /* integer handle of library */
692                            char* path,     /* DOM path of requested object */
693                            char* type,     /* specific name of element */
694                            int* childNum,  /* child number for iteration */
695                            char* retText,  /* buffer to store return text */
696                            int path_len,   /* length of path */
697                            int type_len,   /* length of type */
698                            int retText_len /* length of return text buffer */
699                       )
700{
701    int retVal = 0;
702    char* inPath = NULL;
703    char* inType = NULL;
704
705    inPath = null_terminate(path,path_len);
706    inType = null_terminate(type,type_len);
707
708    if (inPath) {
709        path_len = strlen(inPath) + 1;
710    }
711    else {
712        path_len = 0;
713    }
714
715    if (inType) {
716        type_len = strlen(inType) + 1;
717    }
718    else {
719        type_len = 0;
720    }
721
722    retVal = rp_lib_child_str( handle,
723                                 inPath,
724                                 "type",
725                                 inType,
726                                 childNum,
727                                 retText,
728                                 path_len,
729                                 5,
730                                 type_len,
731                                 retText_len
732                               );
733
734    if (inPath) {
735        free(inPath);
736        inPath = NULL;
737    }
738
739    if (inType) {
740        free(inType);
741        inType = NULL;
742    }
743
744    return retVal;
745}
746
747int rp_lib_child_str (    int* handle,    /* integer handle of library */
748                            char* path,     /* DOM path of requested object */
749                            char* flavor,   /* information you want returned*/
750                            char* type,     /* specific name of element */
751                            int* childNum,  /* child number for iteration */
752                            char* retText,  /* buffer to store return text */
753                            int path_len,   /* length of path */
754                            int flavor_len, /* length of flavor */
755                            int type_len,   /* length of type */
756                            int retText_len /* length of return text buffer */
757                       )
758{
759    int retVal = 0;
760    int i = 0;
761    int length_in = 0;
762
763    PyObject* lib = NULL;
764    PyObject* list = NULL;
765    PyObject* list_item = NULL;
766   
767    char* xmlChild = NULL;
768    char* inPath = NULL;
769    char* inType = NULL;
770    char* inFlavor = NULL;
771   
772    inPath = null_terminate(path,path_len);
773    inFlavor = null_terminate(flavor,flavor_len);
774    inType = null_terminate(type,type_len);
775
776    if (rapptureStarted) {
777        if ((handle) && (*handle != 0)) {
778            lib = getObject(*handle);
779            if (lib) {
780                if(objType(inFlavor) == 1) {
781
782                    list = rpChildren_f(lib, inPath, inFlavor);
783                    if (list) {
784                        retVal = PyList_Size(list);
785                        // check to make sure our node index is within bounds
786                        if (((*childNum)-1) < retVal) {
787                            // get the requested node
788                            list_item = PyList_GetItem(list,(*childNum)-1);
789                            // make node string, borrowed object
790                            xmlChild = PyString_AsString(list_item);
791                            Py_DECREF(list);
792                            // printf("xmlChild = :%s:\n",xmlChild);
793                            if (xmlChild) {
794                                strncpy(retText, xmlChild, retText_len);
795                                length_in = strlen(xmlChild);
796
797                                // fortran-ify the string
798                                if (length_in < retText_len) {
799                                      for (i = length_in; i < retText_len; i++) {
800                                          retText[i] = ' ';
801                                      }
802                                }
803                                // *(retText+retText_len-1) = ' ';
804                            }
805                        }
806                    }
807                    else {
808                       
809                    }
810                }
811            }
812        }
813    }
814
815    if (inPath) {
816        free(inPath);
817        inPath = NULL;
818    }
819
820    if (inFlavor) {
821        free(inFlavor);
822        inFlavor = NULL;
823    }
824
825    if (inType) {
826        free(inType);
827        inType = NULL;
828    }
829
830
831    return retVal;
832}
833
834 int rp_lib_child_obj ( int* handle,
835                            char* path,
836                            char* type,
837                            int path_len,
838                            int type_len
839                          )
840{
841    int newObjHandle = -1;
842
843    PyObject* lib = NULL;
844    PyObject* list = NULL;
845   
846    char* inPath = NULL;
847    char* inType = NULL;
848
849    inPath = null_terminate(path,path_len);
850    inType = null_terminate(type,type_len);
851
852    if (rapptureStarted) {
853        if ((handle) && (*handle != 0)) {
854            lib = getObject(*handle);
855           
856            if (lib) {
857                list = rpChildren_f(lib, inPath, "object");
858                if (list) {
859                    // store the whole list,
860                    // need to make a way to read the nodes
861                    newObjHandle = storeObject(list);
862                    // Py_DECREF(list);
863                }
864                else {
865                   
866                }
867            }
868        }
869    }
870
871    if (inPath) {
872        free(inPath);
873        inPath = NULL;
874    }
875
876    if (inType) {
877        free(inType);
878        inType = NULL;
879    }
880
881    return newObjHandle;
882
883}
884
885
886void rp_lib_get( int* handle, /* integer handle of library */
887                   char* path,      /* null terminated path */
888                   char* retText,   /* return text buffer for fortran*/
889                   int path_len,
890                   int retText_len /* length of return text buffer */
891                 )
892{
893    int length_in = 0;
894    int length_out = 0;
895    int i = 0;
896    const char* xmlText = NULL;
897
898    PyObject* lib = NULL;
899   
900    char* inPath = NULL;
901
902    inPath = null_terminate(path,path_len);
903
904    if (rapptureStarted) {
905        if ((handle) && (*handle != 0)) {
906            lib = getObject(*handle);
907           
908            if (lib) {
909                // retObj is a borrowed object
910                // whose contents must not be modified
911                xmlText = rpGet(lib, inPath);
912               
913                if (xmlText) {
914
915                    length_in = strlen(xmlText);
916                    length_out = retText_len;
917
918                    strncpy(retText, xmlText, length_out);
919
920                    // fortran-ify the string
921                    if (length_in < length_out) {
922                          for (i = length_in; i < length_out; i++) {
923                              retText[i] = ' ';
924                          }
925                    }
926                    *(retText+length_out-1) = ' ';
927                }
928
929            }
930        }
931    }
932
933    if (inPath) {
934        free(inPath);
935        inPath = NULL;
936    }
937
938}
939
940double rp_lib_get_double( int* handle,   /* integer handle of library */
941                            char* path,    /* null terminated path */
942                            int path_len
943                          )
944{
945    double retVal = 0.0;
946    const char* xmlText = NULL;
947
948    PyObject* lib = NULL;
949   
950    char* inPath = NULL;
951
952    inPath = null_terminate(path,path_len);
953
954    path_len = strlen(inPath) + 1;
955
956    if (rapptureStarted) {
957        if ((handle) && (*handle != 0)) {
958            lib = getObject(*handle);
959           
960            if (lib) {
961                // retObj is a borrowed object
962                // whose contents must not be modified
963                xmlText = rpGet(lib, inPath);
964               
965                if (xmlText) {
966                    retVal = atof(xmlText);
967                }
968
969            }
970        }
971    }
972
973    if (inPath) {
974        free(inPath);
975        inPath = NULL;
976    }
977
978    return retVal;
979}
980
981
982void rp_lib_put_str( int* handle,
983                        char* path,
984                        char* value,
985                        int* append,
986                        int path_len,
987                        int value_len
988                      )
989{
990    char* inPath = NULL;
991    char* inValue = NULL;
992
993    inPath = null_terminate(path,path_len);
994    inValue = null_terminate(value,value_len);
995
996
997    if (inPath) {
998        path_len = strlen(inPath) + 1;
999    }
1000    else {
1001        path_len = 0;
1002    }
1003
1004    if (inValue){
1005        value_len = strlen(inValue) + 1;
1006    }
1007    else {
1008        value_len = 0;
1009    }
1010
1011    rp_lib_put_id_str(handle,inPath,inValue,NULL,append,path_len,value_len,0);
1012
1013    if (inPath) {
1014        free(inPath);
1015        inPath = NULL;
1016    }
1017
1018    if (inValue) {
1019        free(inValue);
1020        inValue = NULL;
1021    }
1022}
1023
1024
1025void rp_lib_put_id_str ( int* handle,
1026                        char* path,
1027                        char* value,
1028                        char* id,
1029                        int* append,
1030                        int path_len,
1031                        int value_len,
1032                        int id_len
1033                      )
1034{
1035    PyObject* lib = NULL;
1036   
1037    char* inPath = NULL;
1038    char* inValue = NULL;
1039    char* inId = NULL;
1040
1041    inPath = null_terminate(path,path_len);
1042    inValue = null_terminate(value,value_len);
1043    inId = null_terminate(id,id_len);
1044
1045    if (rapptureStarted) {
1046        if ((handle) && (*handle != 0)) {
1047            lib = getObject(*handle);
1048           
1049            if (lib) {
1050                rpPut(lib, inPath, inValue, inId, *append);
1051            }
1052        }
1053    }
1054
1055    if (inPath) {
1056        free(inPath);
1057        inPath = NULL;
1058    }
1059
1060    if (inValue) {
1061        free(inValue);
1062        inValue = NULL;
1063    }
1064
1065    if (inId) {
1066        free(inId);
1067        inId = NULL;
1068    }
1069
1070}
1071
1072void rp_lib_put_obj( int* handle,
1073                        char* path,
1074                        int* valHandle,
1075                        int* append,
1076                        int path_len
1077                      )
1078{
1079    char* inPath = NULL;
1080
1081    inPath = null_terminate(path,path_len);
1082
1083    if (inPath) {
1084        path_len = strlen(inPath) + 1;
1085    }
1086
1087    rp_lib_put_id_obj(handle,inPath,valHandle,NULL,append,path_len,0);
1088
1089    if (inPath) {
1090        free(inPath);
1091        inPath = NULL;
1092    }
1093
1094}
1095
1096void rp_lib_put_id_obj ( int* handle,
1097                        char* path,
1098                        int* valHandle,
1099                        char* id,
1100                        int* append,
1101                        int path_len,
1102                        int id_len
1103                      )
1104{
1105    PyObject* lib = NULL;
1106    PyObject* value = NULL;
1107   
1108    char* inPath = NULL;
1109    char* inId = NULL;
1110
1111    inPath = null_terminate(path,path_len);
1112    inId = null_terminate(id,id_len);
1113
1114    if (rapptureStarted) {
1115        if ((handle) && (*handle != 0)) {
1116            lib = getObject(*handle);
1117            value = getObject(*valHandle);
1118           
1119            if (lib && value) {
1120                // retObj is a borrowed object
1121                // whose contents must not be modified
1122                rpPutObj(lib, inPath, value, inId, *append);
1123            }
1124        }
1125    }
1126
1127    if (inPath) {
1128        free(inPath);
1129        inPath = NULL;
1130    }
1131
1132    if (inId) {
1133        free(inId);
1134        inId = NULL;
1135    }
1136
1137}
1138
1139int rp_lib_remove (int* handle, char* path, int path_len)
1140{
1141    int newObjHandle = -1;
1142
1143    PyObject* lib = NULL;
1144    PyObject* removedObj = NULL;
1145   
1146    char* inPath = NULL;
1147
1148    inPath = null_terminate(path,path_len);
1149
1150    if (rapptureStarted) {
1151        if ((handle) && (*handle != 0)) {
1152            lib = getObject(*handle);
1153
1154            if (lib) {
1155                removedObj = rpRemove(lib, inPath);
1156               
1157                if (removedObj) {
1158                    newObjHandle = storeObject(removedObj);
1159                    // Py_DECREF(removedObj);
1160                }
1161
1162            }
1163        }
1164    }
1165   
1166    if (inPath) {
1167        free(inPath);
1168        inPath = NULL;
1169    }
1170
1171    return newObjHandle;
1172}
1173
1174int rp_lib_xml_len (int* handle)
1175{
1176    int length = -1;
1177    const char* xmlText = NULL;
1178
1179    PyObject* lib = NULL;
1180
1181    if (rapptureStarted) {
1182        if ((handle) && (*handle != 0)) {
1183            lib = getObject(*handle);
1184
1185            if (lib) {
1186                // dont modify xmlText, borrowed pointer
1187                xmlText = rpXml(lib);
1188
1189                if (xmlText) {
1190                    length = strlen(xmlText) + 1;
1191                    // printf("len = :%d:\n",length);
1192                }
1193            }
1194        }
1195    }
1196    return length;
1197}
1198
1199void  rp_lib_xml(int* handle, char* retText, int retText_len)
1200{
1201    int length_in = 0;
1202    int length_out = 0;
1203    int i = 0;
1204    const char* xmlText = NULL;
1205
1206    PyObject* lib = NULL;
1207   
1208    if (rapptureStarted) {
1209        if ((handle) && (*handle != 0)) {
1210            lib = getObject(*handle);
1211
1212            if (lib) {
1213                xmlText = rpXml(lib);
1214               
1215                length_in = strlen(xmlText);
1216                length_out = retText_len;
1217
1218                strncpy(retText, xmlText, length_out);
1219
1220                // fortran-ify the string
1221                if (length_in < length_out) {
1222                      for (i = length_in; i < length_out; i++) {
1223                          retText[i] = ' ';
1224                      }
1225                }
1226                *(retText+length_out-1) = ' ';
1227            }
1228        }
1229    }
1230}
1231
1232int rp_lib_write_xml(int* handle, char* outFile, int outFile_len)
1233{
1234    int retVal = 0;
1235    PyObject* lib = NULL;
1236    FILE* outFH = NULL;
1237    char* inOutFile = NULL;
1238    const char* xmlText = NULL;
1239
1240    inOutFile = null_terminate(outFile, outFile_len);
1241
1242    if (inOutFile && (inOutFile != "") ) {
1243        outFH = fopen(inOutFile, "w");
1244    }
1245
1246    if (outFH && rapptureStarted) {
1247        if ((handle) && (*handle != 0)) {
1248            lib = getObject(*handle);
1249
1250            if (lib) {
1251                xmlText = rpXml(lib);
1252                retVal = fputs(xmlText,outFH);
1253            }
1254        }
1255    }
1256
1257    if (outFH) {
1258        fclose(outFH);
1259        outFH = NULL;
1260    }
1261
1262    if (inOutFile) {
1263        free(inOutFile);
1264        inOutFile = NULL;
1265    }
1266
1267    return retVal;
1268}
1269
1270void rp_quit()
1271{
1272
1273    // clean up python's memory
1274    // shut down the python interpreter
1275    // clean up the dictionary
1276
1277    RpDictEntry DICT_TEMPLATE *hPtr;
1278    // RpDictIterator DICT_TEMPLATE iter((RpDict&)*this);                     
1279    RpDictIterator DICT_TEMPLATE iter(fortObjDict);
1280   
1281    hPtr = iter.first();                                                     
1282   
1283    while (hPtr) {
1284        Py_DECREF(*(hPtr->getValue()));
1285        hPtr->erase();
1286        hPtr = iter.next();                                                   
1287    }
1288
1289    if (fortObjDict.size()) {
1290        // probably want to change the warning sometime
1291        // printf("\nWARNING: internal dictionary is not empty..deleting\n");
1292    }
1293
1294    rapptureStarted = 0;
1295    // Py_Finalize();
1296}
1297
1298int objType( char* flavor)
1299{
1300    if (flavor == NULL) {
1301        // return a PyObject*
1302        return 0;
1303    }
1304    else if((*flavor == 'o')&&(strncmp(flavor,"object", 6)==0)){
1305        // return a PyObject*
1306        return 0;
1307    }
1308    else if (
1309      ((*flavor == 't')&&(strncmp(flavor,"type", 4) == 0))
1310    ||((*flavor == 'i')&&(strncmp(flavor,"id", 2) == 0))
1311    ||((*flavor == 'c')&&(strncmp(flavor,"component", 9) == 0)))
1312    {
1313        // return a char*
1314        // convert the result to c style strings
1315        return 1;
1316    }
1317    else {
1318        // unrecognized format
1319        return -1;
1320    }
1321}
1322
1323int storeObject(PyObject* objectName) {
1324
1325    int retVal = -1;
1326    int dictKey = fortObjDict.size();
1327    int newEntry = 0;
1328
1329    if (objectName) {
1330        // dictionary returns a reference to the inserted value
1331        // no error checking to make sure it was successful in entering
1332        // the new entry.
1333        fortObjDict.set(dictKey,objectName, &newEntry);
1334    }
1335   
1336    retVal = dictKey;
1337    return retVal;
1338}
1339
1340PyObject* getObject(int objKey) {
1341
1342    PyObject* retVal = *(fortObjDict.find(objKey).getValue());
1343
1344    if (retVal == *(fortObjDict.getNullEntry().getValue())) {
1345        retVal = NULL;
1346    }
1347
1348   return retVal;
1349
1350}
1351
1352/* fix buffer overflow possibility*/
1353char* null_terminate(char* inStr, int len)
1354{
1355    int retVal = 0;
1356    char* newStr = NULL;
1357    char* current = NULL;
1358
1359    if (inStr) {
1360
1361        current = inStr+len-1;
1362
1363        while ((len > 0) && (isspace(*(current)))) {
1364            // dont strip off newlines
1365
1366            if ( (*(current) == '\f')
1367              || (*(current) == '\n')
1368              || (*(current) == '\r')
1369              || (*(current) == '\t')
1370              || (*(current) == '\v') )
1371            {
1372                break;
1373            }
1374
1375            if (--len) {
1376                current--;
1377            }
1378        }
1379
1380        newStr = (char*) calloc(len+1,(sizeof(char)));
1381        strncpy(newStr,inStr,len);
1382        *(newStr+len) = '\0';
1383
1384        retVal++;
1385    }
1386
1387    // return retVal;
1388
1389    return newStr;
1390}
Note: See TracBrowser for help on using the repository browser.