source: git/Singular/iplib.cc @ 6af0cf6

spielwiese
Last change on this file since 6af0cf6 was 6af0cf6, checked in by Anne Frühbis-Krüger <anne@…>, 23 years ago
*anne: Changes for PowerMacintosh-darwin git-svn-id: file:///usr/local/Singular/svn/trunk@5638 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 33.2 KB
Line 
1/****************************************
2*  Computer Algebra System SINGULAR     *
3****************************************/
4/* $Id: iplib.cc,v 1.88 2001-09-19 14:16:40 anne Exp $ */
5/*
6* ABSTRACT: interpreter: LIB and help
7*/
8
9//#include <stdlib.h>
10#include <stdio.h>
11#include <string.h>
12#include <ctype.h>
13#include <sys/stat.h>
14
15#include "mod2.h"
16#include "tok.h"
17#include "ipid.h"
18#include "omalloc.h"
19#include "febase.h"
20#include "ring.h"
21#include "subexpr.h"
22#include "ipshell.h"
23#include "lists.h"
24
25BOOLEAN load_modules(char *newlib, char *fullname, BOOLEAN tellerror);
26
27#ifdef HAVE_LIBPARSER
28#  include "libparse.h"
29#else /* HAVE_LIBPARSER */
30   procinfo *iiInitSingularProcinfo(procinfov pi, char *libname,
31                                    char *procname, int line, long pos,
32                                    BOOLEAN pstatic = FALSE);
33#endif /* HAVE_LIBPARSER */
34#define NS_LRING namespaceroot->next->currRing
35
36#include "mod_raw.h"
37
38static char *iiConvName(const char *p);
39#ifdef HAVE_LIBPARSER
40void yylprestart (FILE *input_file );
41int current_pos(int i=0);
42extern int yylp_errno;
43extern int yylplineno;
44extern char *yylp_errlist[];
45void print_init();
46libstackv library_stack;
47#endif
48
49//int IsCmd(char *n, int tok);
50char mytolower(char c);
51
52/*2
53* return TRUE if the libray libname is already loaded
54*/
55BOOLEAN iiGetLibStatus(char *lib)
56{
57  idhdl hl;
58
59#ifndef HAVE_NAMESPACES
60  char *p;
61
62  hl = IDROOT->get("LIB", 0);
63  if (hl == NULL || (p=strstr(IDSTRING(hl), lib)) == NULL) return FALSE;
64  if ((p!=IDSTRING(hl)) && (*(p-1)!=',')) return FALSE;
65
66  return TRUE;
67#else
68  char *plib = iiConvName(lib);
69  hl = namespaceroot->get(plib,0, TRUE);
70  if((hl==NULL) ||(IDTYP(hl)!=PACKAGE_CMD))
71  {
72    omFree(plib);
73    return FALSE;
74  } 
75  omFree(plib);
76  return TRUE;
77#endif
78}
79
80/*2
81* find the library of an proc:
82*  => return (pi->libname)
83*/
84char * iiGetLibName(procinfov pi)
85{
86  return pi->libname;
87}
88
89/*2
90* given a line 'proc[ ]+{name}[ \t]*'
91* return a pointer to name and set the end of '\0'
92* changes the input!
93* returns: e: pointer to 'end of name'
94*          ct: changed char at the end of s
95*/
96char* iiProcName(char *buf, char & ct, char* &e)
97{
98  char *s=buf+5;
99  while (*s==' ') s++;
100  e=s+1;
101  while ((*e>' ') && (*e!='(')) e++;
102  ct=*e;
103  *e='\0';
104  return s;
105}
106
107/*2
108* given a line with args, return the argstr
109*/
110char * iiProcArgs(char *e,BOOLEAN withParenth)
111{
112  while ((*e==' ') || (*e=='\t') || (*e=='(')) e++;
113  if (*e<' ')
114  {
115    if (withParenth)
116    {
117      // no argument list, allow list #
118      return omStrDup("parameter list #;");
119    }
120    else
121    {
122      // empty list
123      return omStrDup("");
124    }
125  }
126  BOOLEAN in_args;
127  BOOLEAN args_found;
128  char *s;
129  char *argstr=(char *)omAlloc(127); // see ../omalloc/omTables.inc
130  int argstrlen=127;
131  *argstr='\0';
132  do
133  {
134    args_found=FALSE;
135    s=e; // set s to the starting point of the arg
136         // and search for the end
137    while ((*e!=',')&&(*e!=')')&&(*e!='\0'))
138    {
139      args_found=args_found || (*e>' ');
140      e++;
141    }
142    in_args=(*e==',');
143    if (args_found)
144    {
145      *e='\0';
146      // check for space:
147      if ((int)strlen(argstr)+12 /* parameter + ;*/ +(int)strlen(s)>= argstrlen)
148      {
149        argstrlen*=2;
150        char *a=(char *)omAlloc( argstrlen);
151        strcpy(a,argstr);
152        omFree((ADDRESS)argstr);
153        argstr=a;
154      }
155      // copy the result to argstr
156      strcat(argstr,"parameter ");
157      strcat(argstr,s);
158      strcat(argstr,"; ");
159      e++; // e was pointing to ','
160    }
161  } while (in_args);
162  return argstr;
163}
164
165/*2
166* locate `procname` in lib `libname` and find the part `part`:
167*  part=0: help, between, but excluding the line "proc ..." and "{...":
168*    => return
169*  part=1: body, between "{ ..." and "}", including the 1. line, w/o "{"
170*    => set pi->data.s.body, return NULL
171*  part=2: example, between, but excluding the line "exapmle {..." and "}":
172*    => return
173*/
174char* iiGetLibProcBuffer(procinfo *pi, int part )
175{
176  char buf[256], *s = NULL, *p;
177  long procbuflen;
178
179  FILE * fp = feFopen( pi->libname, "rb", NULL, TRUE );
180  if (fp==NULL)
181  {
182    return NULL;
183  }
184
185  fseek(fp, pi->data.s.proc_start, SEEK_SET);
186  if(part==0)
187  { // load help string
188    int i, offset=0;
189    long head = pi->data.s.def_end - pi->data.s.proc_start;
190    procbuflen = pi->data.s.help_end - pi->data.s.help_start;
191    if (procbuflen<5)
192      return NULL; // help part does not exist
193    //Print("Help=%ld-%ld=%d\n", pi->data.s.body_start,
194    //    pi->data.s.proc_start, procbuflen);
195    s = (char *)omAlloc(procbuflen+head+3);
196    myfread(s, head, 1, fp);
197    s[head] = '\n';
198    fseek(fp, pi->data.s.help_start, SEEK_SET);
199    myfread(s+head+1, procbuflen, 1, fp);
200    s[procbuflen+head+1] = '\n';
201    s[procbuflen+head+2] = '\0';
202    offset=0;
203    for(i=0;i<=procbuflen+head+2; i++)
204    {
205      if(s[i]=='\\' &&
206         (s[i+1]=='"' || s[i+1]=='{' || s[i+1]=='}' || s[i+1]=='\\'))
207      {
208        i++;
209        offset++;
210      }
211      if(offset>0) s[i-offset] = s[i];
212    }
213    return(s);
214  }
215  else if(part==1)
216  { // load proc part - must exist
217    procbuflen = pi->data.s.def_end - pi->data.s.proc_start;
218    //fgets(buf, sizeof(buf), fp);
219    myfread( buf, procbuflen, 1, fp);
220    char ct;
221    char *e;
222    s=iiProcName(buf,ct,e);
223    char *argstr=NULL;
224    *e=ct;
225    argstr=iiProcArgs(e,TRUE);
226
227    assume(pi->data.s.body_end > pi->data.s.body_start);
228
229    procbuflen = pi->data.s.body_end - pi->data.s.body_start;
230    pi->data.s.body = (char *)omAlloc( strlen(argstr)+procbuflen+15+
231                                      strlen(pi->libname) );
232    //Print("Body=%ld-%ld=%d\n", pi->data.s.body_end,
233    //    pi->data.s.body_start, procbuflen);
234    assume(pi->data.s.body != NULL);
235    fseek(fp, pi->data.s.body_start, SEEK_SET);
236    strcpy(pi->data.s.body,argstr);
237    myfread( pi->data.s.body+strlen(argstr), procbuflen, 1, fp);
238    procbuflen+=strlen(argstr);
239    omFree(argstr);
240    fclose( fp );
241    pi->data.s.body[procbuflen] = '\0';
242    strcat( pi->data.s.body+procbuflen, "\n;return();\n\n" );
243    strcat( pi->data.s.body+procbuflen+13,pi->libname);
244    s=strchr(pi->data.s.body,'{');
245    if (s!=NULL) *s=' ';
246    return NULL;
247  }
248  else if(part==2)
249  { // example
250    if ( pi->data.s.example_lineno == 0)
251      return NULL; // example part does not exist
252    // load example
253    fseek(fp, pi->data.s.example_start, SEEK_SET);
254    fgets(buf, sizeof(buf), fp); // skip line with "example"
255    procbuflen = pi->data.s.proc_end - pi->data.s.example_start - strlen(buf);
256    //Print("Example=%ld-%ld=%d\n", pi->data.s.proc_end,
257    //  pi->data.s.example_start, procbuflen);
258    s = (char *)omAlloc(procbuflen+14);
259    myfread(s, procbuflen, 1, fp);
260    s[procbuflen] = '\0';
261    strcat(s+procbuflen-3, "\n;return();\n\n" );
262    p=strchr(s,'{');
263    if (p!=NULL) *p=' ';
264    return(s);
265  }
266  return NULL;
267}
268
269/*2
270* start a proc
271* parameters are built as exprlist
272* TODO:interrupt
273* return FALSE on success, TRUE if an error occurs
274*/
275BOOLEAN iiPStart(idhdl pn, sleftv  * v)
276{
277  char * str;
278  BOOLEAN err=FALSE;
279  int old_echo=si_echo;
280  char save_flags=0;
281  procinfov pi=NULL;
282
283  /* init febase ======================================== */
284  /* we do not enter this case if filename != NULL !! */
285  if (pn!=NULL)
286  {
287    pi = IDPROC(pn);
288    if(pi!=NULL)
289    {
290      save_flags=pi->trace_flag;
291      if( pi->data.s.body==NULL )
292      {
293        iiGetLibProcBuffer(pi);
294        if (pi->data.s.body==NULL) return TRUE;
295      }
296      newBuffer( omStrDup(pi->data.s.body), BT_proc,
297                 pi, pi->data.s.body_lineno-(v!=NULL) );
298    }
299  }
300  /* generate argument list ======================================*/
301  if (v!=NULL)
302  {
303    iiCurrArgs=(leftv)omAllocBin(sleftv_bin);
304    memcpy(iiCurrArgs,v,sizeof(sleftv));
305    memset(v,0,sizeof(sleftv));
306  }
307  else
308  {
309    iiCurrArgs=NULL;
310  }
311  /* start interpreter ======================================*/
312  myynest++;
313  err=yyparse();
314  if (sLastPrinted.rtyp!=0)
315  {
316    sLastPrinted.CleanUp();
317  }
318  //Print("kill locals for %s (level %d)\n",IDID(pn),myynest);
319  killlocals(myynest);
320  //Print("end kill locals for %s (%d)\n",IDID(pn),myynest);
321  myynest--;
322  si_echo=old_echo;
323  if (pi!=NULL)
324    pi->trace_flag=save_flags;
325  return err;
326}
327
328#ifdef USE_IILOCALRING
329ring    *iiLocalRing
330#ifdef TEST
331                    =NULL
332#endif
333                   ;
334#endif
335sleftv  *iiRETURNEXPR
336#ifdef TEST
337                    =NULL
338#endif
339                   ;
340int     iiRETURNEXPR_len=0;
341
342#ifdef RDEBUG
343static void iiShowLevRings()
344{
345#ifdef USE_IILOCALRING
346  int i;
347  for (i=1;i<=myynest;i++)
348  {
349    Print("lev %d:",i);
350    if (iiLocalRing[i]==NULL) PrintS("NULL");
351    else                      Print("%d",iiLocalRing[i]);
352    PrintLn();
353  }
354#endif
355  {
356    namehdl nshdl;
357    for(nshdl=namespaceroot; nshdl->isroot != TRUE; nshdl = nshdl->next)
358    {
359      Print("%d lev %d:",nshdl->lev, nshdl->myynest);
360      if (nshdl->currRing==NULL) PrintS("NULL");
361      else                       Print("%d",nshdl->currRing);
362      PrintLn();
363    }
364    Print("%d lev %d:",nshdl->lev, nshdl->myynest);
365    if (nshdl->currRing==NULL) PrintS("NULL");
366    else                       Print("%d",nshdl->currRing);
367    PrintLn();
368  }
369  if (currRing==NULL) PrintS("curr:NULL\n");
370  else                Print ("curr:%x\n",currRing);
371}
372#endif
373
374static void iiCheckNest()
375{
376  if (myynest >= iiRETURNEXPR_len-1)
377  {
378    iiRETURNEXPR=(sleftv *)omreallocSize(iiRETURNEXPR,
379                                   iiRETURNEXPR_len*sizeof(sleftv),
380                                   (iiRETURNEXPR_len+16)*sizeof(sleftv));
381    omMarkAsStaticAddr(iiRETURNEXPR);
382#ifdef USE_IILOCALRING
383    iiLocalRing=(ring *)omreallocSize(iiLocalRing,
384                                   iiRETURNEXPR_len*sizeof(ring),
385                                   (iiRETURNEXPR_len+16)*sizeof(ring));
386#endif
387    iiRETURNEXPR_len+=16;
388  }
389}
390#ifdef HAVE_NAMESPACES
391sleftv * iiMake_proc(idhdl pn, sleftv* slpn, sleftv* sl)
392#else /* HAVE_NAMESPACES */
393sleftv * iiMake_proc(idhdl pn, sleftv* sl)
394#endif /* HAVE_NAMESPACES */
395{
396  int err;
397  procinfov pi = IDPROC(pn);
398  char *plib = iiConvName(pi->libname);
399#ifdef HAVE_NAMESPACES
400//  printf("iiMake_proc: %s %s cur=%s\n", pi->libname, plib, namespaceroot->name);
401  idhdl ns = namespaceroot->get(plib,0, TRUE);
402  if((ns==NULL) && (slpn!=NULL) && (slpn->packhdl != NULL)) ns=slpn->packhdl;
403  if(pi->is_static)
404  {
405    if((ns==NULL)
406    || (strcmp(plib, namespaceroot->name)!= 0))
407    {
408      Werror("'%s::%s()' is a local procedure and cannot be accessed by an user.",
409             plib, pi->procname);
410      omFree(plib);
411      return NULL;
412    }
413  }
414  omFree((ADDRESS)plib);
415  if(ns != NULL)
416  {
417    namespaceroot->push(IDPACKAGE(ns), IDID(ns), myynest+1);
418    //printf("iiMake_proc: namespace found.\n");
419  }
420  else
421  {
422    namespaceroot->push(namespaceroot->root->pack, "Top", myynest+1);
423    //printf("iiMake_proc: staying in TOP-LEVEL\n");
424  }
425#else /* HAVE_NAMESPACES */
426  if(pi->is_static && myynest==0)
427  {
428    Werror("'%s::%s()' is a local procedure and cannot be accessed by an user.",
429           pi->libname, pi->procname);
430    omFree((ADDRESS)plib);
431    return NULL;
432  }
433  namespaceroot->push(NULL, plib, myynest+1);
434  omFree((ADDRESS)plib);
435#endif /* HAVE_NAMESPACES */
436  iiCheckNest();
437#ifdef USE_IILOCALRING
438  iiLocalRing[myynest]=currRing;
439#endif
440  iiRETURNEXPR[myynest+1].Init();
441  if ((traceit&TRACE_SHOW_PROC)
442  || (pi->trace_flag&TRACE_SHOW_PROC))
443  {
444    if (traceit&TRACE_SHOW_LINENO) PrintLn();
445    Print("entering%-*.*s %s (level %d)\n",myynest*2,myynest*2," ",IDID(pn),myynest);
446  }
447#ifdef RDEBUG
448  if (traceit&TRACE_SHOW_RINGS) iiShowLevRings();
449#endif
450  switch (pi->language)
451  {
452      default:
453      case LANG_NONE:
454                 err=TRUE;
455                 break;
456
457    case LANG_SINGULAR:
458                 err=iiPStart(pn,sl);
459                 break;
460    case LANG_C:
461                 leftv res = (leftv)omAlloc0Bin(sleftv_bin);
462                 err = (pi->data.o.function)(res, sl);
463                 iiRETURNEXPR[myynest+1].Copy(res);
464                 omFreeBin((ADDRESS)res,  sleftv_bin);
465                 break;
466  }
467  if ((traceit&TRACE_SHOW_PROC)
468  || (pi->trace_flag&TRACE_SHOW_PROC))
469  {
470    if (traceit&TRACE_SHOW_LINENO) PrintLn();
471    Print("leaving %-*.*s %s (level %d)\n",myynest*2,myynest*2," ",IDID(pn),myynest);
472  }
473#ifdef RDEBUG
474  if (traceit&TRACE_SHOW_RINGS) iiShowLevRings();
475#endif
476  if (err)
477  {
478    iiRETURNEXPR[myynest+1].CleanUp();
479    //iiRETURNEXPR[myynest+1].Init(); //done by CleanUp
480  }
481#ifdef USE_IILOCALRING
482  if(namespaceroot->next->currRing != iiLocalRing[myynest]) printf("iiMake_proc: 1 ring not saved\n");
483  if (iiLocalRing[myynest] != currRing)
484  {
485    if (((iiRETURNEXPR[myynest+1].Typ()>BEGIN_RING)
486      && (iiRETURNEXPR[myynest+1].Typ()<END_RING))
487    || ((iiRETURNEXPR[myynest+1].Typ()==LIST_CMD)
488      && (lRingDependend((lists)iiRETURNEXPR[myynest+1].Data()))))
489    {
490      //idhdl hn;
491      char *n;
492      char *o;
493      if (iiLocalRing[myynest]!=NULL) o=rFindHdl(iiLocalRing[myynest],NULL, NULL)->id;
494      else                            o="none";
495      if (currRing!=NULL)             n=rFindHdl(currRing,NULL, NULL)->id;
496      else                            n="none";
497      Werror("ring change during procedure call: %s -> %s",o,n);
498      iiRETURNEXPR[myynest+1].CleanUp();
499      err=TRUE;
500    }
501    if (iiLocalRing[myynest]!=NULL)
502    {
503      rSetHdl(rFindHdl(iiLocalRing[myynest],NULL, NULL));
504      iiLocalRing[myynest]=NULL;
505      namespaceroot->next->currRing = NULL;
506    }
507    else
508    { currRingHdl=NULL; currRing=NULL; }
509  }
510#else /* USE_IILOCALRING */
511  if (NS_LRING != currRing)
512  {
513    if (((iiRETURNEXPR[myynest+1].Typ()>BEGIN_RING)
514      && (iiRETURNEXPR[myynest+1].Typ()<END_RING))
515    || ((iiRETURNEXPR[myynest+1].Typ()==LIST_CMD)
516      && (lRingDependend((lists)iiRETURNEXPR[myynest+1].Data()))))
517    {
518      char *n;
519      char *o;
520      if (NS_LRING!=NULL) o=rFindHdl(NS_LRING,NULL, NULL)->id;
521      else                            o="none";
522      if (currRing!=NULL)             n=rFindHdl(currRing,NULL, NULL)->id;
523      else                            n="none";
524      Werror("ring change during procedure call: %s -> %s",o,n);
525      iiRETURNEXPR[myynest+1].CleanUp();
526      err=TRUE;
527    }
528    if (NS_LRING!=NULL)
529    {
530      rSetHdl(rFindHdl(NS_LRING,NULL, NULL));
531      NS_LRING=NULL;
532    }
533    else
534    { currRingHdl=NULL; currRing=NULL; }
535  }
536#endif /* USE_IILOCALRING */
537  if (iiCurrArgs!=NULL)
538  {
539    if (!err) Warn("too many arguments for %s",IDID(pn));
540    iiCurrArgs->CleanUp();
541    omFreeBin((ADDRESS)iiCurrArgs, sleftv_bin);
542    iiCurrArgs=NULL;
543  }
544  namespaceroot->pop(TRUE);
545  if (err)
546    return NULL;
547  return &iiRETURNEXPR[myynest+1];
548}
549
550/*2
551* start an example (as a proc),
552* destroys the string 'example'
553*/
554BOOLEAN iiEStart(char* example, procinfo *pi)
555{
556  BOOLEAN err;
557  int old_echo=si_echo;
558#ifdef HAVE_NAMESPACES
559  char *plib = iiConvName(pi->libname);
560  idhdl ns = namespaceroot->get(plib,0, TRUE);
561  omFree((ADDRESS)plib);
562#endif /* HAVE_NAMESPACES */
563
564  newBuffer( example, BT_example, pi,
565             (pi != NULL ? pi->data.s.example_lineno: 0));
566
567  iiCheckNest();
568#ifdef HAVE_NAMESPACES
569  if(ns != NULL)  namespaceroot->push(IDPACKAGE(ns), IDID(ns), myynest+1);
570  else            namespaceroot->push(namespaceroot->root->pack, "Top", myynest+1);
571#else /* HAVE_NAMESPACES */
572  namespaceroot->push(NULL, "", myynest+1);
573#endif /* HAVE_NAMESPACES */
574#ifdef USE_IILOCALRING
575  iiLocalRing[myynest]=currRing;
576#endif
577  if (traceit&TRACE_SHOW_PROC)
578  {
579    if (traceit&TRACE_SHOW_LINENO) printf("\n");
580    printf("entering example (level %d)\n",myynest);
581  }
582  myynest++;
583  err=yyparse();
584  if (sLastPrinted.rtyp!=0)
585  {
586    sLastPrinted.CleanUp();
587    //memset(&sLastPrinted,0,sizeof(sleftv)); //done by CleanUp
588  }
589  killlocals(myynest);
590  myynest--;
591  si_echo=old_echo;
592  if (traceit&TRACE_SHOW_PROC)
593  {
594    if (traceit&TRACE_SHOW_LINENO) printf("\n");
595    printf("leaving  -example- (level %d)\n",myynest);
596  }
597#ifdef USE_IILOCALRING
598  if (iiLocalRing[myynest] != currRing)
599  {
600    if (iiLocalRing[myynest]!=NULL)
601    {
602      rSetHdl(rFindHdl(iiLocalRing[myynest],NULL, NULL));
603      iiLocalRing[myynest]=NULL;
604    }
605    else
606    {
607      currRingHdl=NULL;
608      currRing=NULL;
609    }
610  }
611#else /* USE_IILOCALRING */
612  if (NS_LRING != currRing)
613  {
614    if (NS_LRING!=NULL)
615    {
616      rSetHdl(rFindHdl(NS_LRING,NULL, NULL));
617      NS_LRING=NULL;
618    }
619    else
620    {
621      currRingHdl=NULL;
622      currRing=NULL;
623    }
624  }
625#endif /* USE_IILOCALRING */
626  namespaceroot->pop(TRUE);
627  return err;
628}
629
630/*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
631static BOOLEAN iiLoadLIB(FILE *fp, char *libnamebuf, char *newlib,
632                         idhdl pl, BOOLEAN autoexport, BOOLEAN tellerror);
633
634BOOLEAN iiTryLoadLib(leftv v, char *id)
635{
636  BOOLEAN LoadResult = TRUE;
637#ifdef HAVE_NAMESPACES
638  char libnamebuf[128];
639  char *libname = (char *)omAlloc(strlen(id)+5);
640  char *suffix[] = { "", ".lib", ".so", ".sl", NULL };
641  int i = 0;
642  FILE *fp;
643  package pack;
644  idhdl packhdl;
645  lib_types LT;
646
647  for(i=0; suffix[i] != NULL; i++)
648  {
649    sprintf(libname, "%s%s", id, suffix[i]);
650    *libname = mytolower(*libname);
651    if((LT = type_of_LIB(libname, libnamebuf)) > LT_NOTFOUND)
652    {
653      char *s=omStrDup(libname);
654      char libnamebuf[256];
655
656      if (LT==LT_SINGULAR)
657        LoadResult = iiLibCmd(s, FALSE);
658      else if ((LT==LT_ELF) || (LT==LT_HPUX))
659        LoadResult = load_modules(s,libnamebuf,FALSE);
660      if(!LoadResult )
661      {
662        v->name = iiConvName(libname);
663        break;
664      }
665    }
666  }
667  omFree(libname);
668#else /* HAVE_NAMESPACES */
669#endif /* HAVE_NAMESPACES */
670  return LoadResult;
671}
672
673BOOLEAN iiReLoadLib(idhdl packhdl)
674{
675  BOOLEAN LoadResult = TRUE;
676#ifdef HAVE_NAMESPACES
677  char libnamebuf[128];
678  package pack = IDPACKAGE(packhdl);
679
680  if(pack->language == LANG_NONE) return FALSE;
681
682  FILE * fp = feFopen( pack->libname, "r", libnamebuf, FALSE);
683  if (fp==NULL)
684  {
685    return TRUE;
686  }
687  namespaceroot->push(IDPACKAGE(packhdl), IDID(packhdl));
688  LoadResult = iiLoadLIB(fp, libnamebuf, IDPACKAGE(packhdl)->libname,
689                         packhdl, FALSE, FALSE);
690  namespaceroot->pop();
691#else /* HAVE_NAMESPACES */
692#endif /* HAVE_NAMESPACES */
693  return LoadResult;
694}
695
696/*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
697/* check, if library lib has already been loaded
698   if yes, writes filename of lib into where and returns TRUE,
699      no, returns FALSE
700*/
701BOOLEAN iiLocateLib(const char* lib, char* where)
702{
703  idhdl hl;
704
705#ifndef HAVE_NAMESPACES
706  char *p;
707
708  hl = IDROOT->get("LIB", 0);
709  if (hl == NULL || (p=strstr(IDSTRING(hl), lib)) == NULL) return FALSE;
710  if ((p!=IDSTRING(hl)) && (*(p-1)!=',')) return FALSE;
711
712  if (strstr(IDSTRING(hl), ",") == NULL)
713  {
714    strcpy(where, IDSTRING(hl));
715  }
716  else
717  {
718    char* tmp = omStrDup(IDSTRING(hl));
719    char* tok = strtok(tmp, ",");
720    do
721    {
722      if (strstr(tok, lib) != NULL) break;
723      tok = strtok(NULL, ",");
724    }
725    while (tok != NULL);
726    assume(tok != NULL);
727    strcpy(where, tok);
728    omFree(tmp);
729  }
730#else
731  char *plib = iiConvName(lib);
732  hl = namespaceroot->get(plib,0, TRUE);
733  if((hl==NULL) ||(IDTYP(hl)!=PACKAGE_CMD))
734  {
735    omFree(plib);
736    return FALSE;
737  } 
738  strcpy(where,IDPACKAGE(hl)->libname);
739  omFree(plib);
740#endif
741  return TRUE;
742}
743
744#ifdef HAVE_NAMESPACES
745BOOLEAN iiLibCmd( char *newlib, BOOLEAN autoexport, BOOLEAN tellerror )
746#else /* HAVE_NAMESPACES */
747BOOLEAN iiLibCmd( char *newlib, BOOLEAN tellerror )
748#endif /* HAVE_NAMESPACES */
749{
750  char buf[256];
751  char libnamebuf[128];
752  idhdl h;
753  BOOLEAN LoadResult = TRUE;
754#ifdef HAVE_NAMESPACES
755  idhdl pl;
756#else
757  idhdl hl;
758#endif /* HAVE_NAMESPACES */
759  int lines = 1;
760  long pos = 0L;
761  procinfov pi;
762#ifdef HAVE_NAMESPACES
763  char *plib = iiConvName(newlib);
764#endif /* HAVE_NAMESPACES */
765  FILE * fp = feFopen( newlib, "r", libnamebuf, tellerror );
766  if (fp==NULL)
767  {
768    return TRUE;
769  }
770#ifdef HAVE_NAMESPACES
771  int token = 0;
772
773  if(IsCmd(plib, token))
774  {
775    Werror("'%s' is resered identifier\n", plib);
776    fclose(fp);
777    return TRUE;
778  }
779#else /* HAVE_NAMESPACES */
780  hl = idroot->get("LIB",0);
781  if (hl==NULL)
782  {
783    hl = enterid( omStrDup("LIB"),0, STRING_CMD, &idroot, FALSE );
784    IDSTRING(hl) = omStrDup(newlib);
785  }
786  else
787  {
788#ifdef TEST
789    if (IDSTRING(hl) != NULL)
790#endif
791    {
792      char *s = (char *)omAlloc( strlen(newlib) + strlen(IDSTRING(hl)) + 2 );
793      strcpy(s,IDSTRING(hl));
794      BOOLEAN f=FALSE;
795      if(strchr(s,',')==NULL)
796      {
797        if (strcmp(s,newlib)==0)
798          f=TRUE;
799      }
800      else
801      {
802        char *p=strtok(s,",");
803        do
804        {
805          if(strcmp(p,newlib)==0)
806          {
807            f=TRUE;
808            break;
809          }
810          p=strtok(NULL,",");
811        } while (p!=NULL);
812      }
813      if (f)
814        omFree((ADDRESS)s);
815      else
816      {
817        sprintf( s, "%s,%s", IDSTRING(hl), newlib);
818        omFree((ADDRESS)IDSTRING(hl));
819        IDSTRING(hl) = s;
820      }
821    }
822#ifdef TEST
823    else
824    {
825      PrintS("## empty LIB string\n");
826      IDSTRING(hl) = omStrDup(newlib);
827    }
828#endif
829  }
830#endif /* HAVE_NAMESPACES */
831#ifdef HAVE_TCL
832  if (tclmode)
833  {
834    PrintTCLS('L',newlib);
835  }
836#endif
837#ifdef HAVE_NAMESPACES
838  pl = namespaceroot->get(plib,0, TRUE);
839  if (pl==NULL)
840  {
841    pl = enterid( omStrDup(plib),0, PACKAGE_CMD,
842                  &NSROOT(namespaceroot->root), TRUE );
843    IDPACKAGE(pl)->language = LANG_SINGULAR;
844    IDPACKAGE(pl)->libname=omStrDup(newlib);
845  }
846  else
847  {
848    if(IDTYP(pl)!=PACKAGE_CMD)
849    {
850      Warn("not of typ package.");
851      fclose(fp);
852      return TRUE;
853    }
854  }
855  namespaceroot->push(IDPACKAGE(pl), IDID(pl));
856  LoadResult = iiLoadLIB(fp, libnamebuf, newlib, pl, autoexport, tellerror);
857#else /* HAVE_NAMESPACES */
858  LoadResult = iiLoadLIB(fp, libnamebuf, newlib, NULL, FALSE, tellerror);
859#endif /* HAVE_NAMESPACES */
860
861#ifdef HAVE_NAMESPACES
862  if(!LoadResult) IDPACKAGE(pl)->loaded = TRUE;
863  namespaceroot->pop();
864#endif /* HAVE_NAMESPACES */
865
866  omFree((ADDRESS)newlib);
867#ifdef HAVE_NAMESPACES
868  omFree((ADDRESS)plib);
869#endif /* HAVE_LIBPARSER */
870 return LoadResult;
871}
872
873/*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
874#ifndef HAVE_NAMESPACES
875static void iiCleanProcs(idhdl &root)
876{
877  idhdl prev=NULL;
878  loop
879  {
880    if (root==NULL) return;
881    if (IDTYP(root)==PROC_CMD)
882    {
883      procinfo *pi=(procinfo*)IDDATA(root);
884      if ((pi->language == LANG_SINGULAR)
885      && (pi->data.s.body_start == 0L))
886      {
887        // procinfo data incorrect:
888        // - no proc body can start at the beginning of the file
889        killhdl(root);
890        if (prev==NULL)
891          root=idroot;
892        else
893        {
894          root=prev;
895          prev=NULL;
896        }
897        continue;
898      }
899    }
900    prev=root;
901    root=IDNEXT(root);
902  }
903}
904#endif
905/*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
906static BOOLEAN iiLoadLIB(FILE *fp, char *libnamebuf, char*newlib,
907             idhdl pl, BOOLEAN autoexport, BOOLEAN tellerror)
908{
909  char buf[256];
910  extern FILE *yylpin;
911  libstackv ls_start = library_stack;
912  lib_style_types lib_style;
913
914  yylpin = fp;
915  #if YYLPDEBUG > 1
916  print_init();
917  #endif
918  extern int lpverbose;
919  if (BVERBOSE(V_DEBUG_LIB)) lpverbose=1;
920  else lpverbose=0;
921  #ifdef HAVE_NAMESPACES
922    yylplex(newlib, libnamebuf, &lib_style, pl, autoexport);
923  #else /* HAVE_NAMESPACES */
924    yylplex(newlib, libnamebuf, &lib_style);
925  #endif /* HAVE_NAMESPACES */
926  if(yylp_errno)
927  {
928    Werror("Library %s: ERROR occured: in line %d, %d.", newlib, yylplineno,
929         current_pos(0));
930    if(yylp_errno==YYLP_BAD_CHAR)
931    {
932      Werror(yylp_errlist[yylp_errno], *text_buffer, yylplineno);
933      omFree((ADDRESS)text_buffer);
934      text_buffer=NULL;
935    }
936    else
937      Werror(yylp_errlist[yylp_errno], yylplineno);
938    Werror("Cannot load library,... aborting.");
939    reinit_yylp();
940    fclose( yylpin );
941    #ifndef HAVE_NAMESPACES
942    iiCleanProcs(idroot);
943    #endif /* HAVE_NAMESPACES */
944    return TRUE;
945  }
946  #ifdef HAVE_NAMESPACES
947  if (BVERBOSE(V_LOAD_LIB))
948  {
949    idhdl versionhdl  = namespaceroot->get("version",0);
950    if(versionhdl != NULL)
951      Print( "// ** loaded %s %s\n", libnamebuf, IDSTRING(versionhdl));
952    else
953      Print( "// ** loaded %s\n", libnamebuf);
954  }
955  #else /* HAVE_NAMESPACES */
956  if (BVERBOSE(V_LOAD_LIB))
957    Print( "// ** loaded %s %s\n", libnamebuf, text_buffer);
958  #endif /* HAVE_NAMESPACES */
959  if( (lib_style == OLD_LIBSTYLE) && (BVERBOSE(V_LOAD_LIB)))
960  {
961    Warn( "library %s has old format. This format is still accepted,", newlib);
962    Warn( "but for functionality you may wish to change to the new");
963    Warn( "format. Please refer to the manual for further information.");
964  }
965  reinit_yylp();
966  fclose( yylpin );
967  fp = NULL;
968
969#ifdef HAVE_NAMESPACES
970  namespaceroot->pop();
971#endif /* HAVE_NAMESPACES */
972  {
973    libstackv ls;
974    for(ls = library_stack; (ls != NULL) && (ls != ls_start); )
975    {
976      if(ls->to_be_done)
977      {
978        ls->to_be_done=FALSE;
979#ifdef HAVE_NAMESPACES
980        iiLibCmd(ls->get(), autoexport);
981#else /* HAVE_NAMESPACES */
982        iiLibCmd(ls->get());
983#endif /* HAVE_NAMESPACES */
984        ls = ls->pop(newlib);
985      }
986    }
987#if 0
988    PrintS("--------------------\n");
989    for(ls = library_stack; ls != NULL; ls = ls->next)
990    {
991      Print("%s: LIB-stack:(%d), %s %s\n", newlib, ls->cnt, ls->get(),
992        ls->to_be_done ? "not loaded" : "loaded");
993    }
994    PrintS("--------------------\n");
995#endif
996  }
997
998  if(fp != NULL) fclose(fp);
999  return FALSE;
1000}
1001
1002
1003/*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
1004procinfo *iiInitSingularProcinfo(procinfov pi, char *libname, char *procname,
1005                                 int line, long pos, BOOLEAN pstatic)
1006{
1007  pi->libname = omStrDup(libname);
1008
1009  if( strcmp(procname,"_init")==0)
1010  {
1011    pi->procname = iiConvName(libname);
1012  }
1013  else
1014    pi->procname = omStrDup(procname);
1015  pi->language = LANG_SINGULAR;
1016  pi->ref = 1;
1017  pi->is_static = pstatic;
1018  pi->data.s.proc_start = pos;
1019  pi->data.s.def_end    = 0L;
1020  pi->data.s.help_start = 0L;
1021  pi->data.s.help_end   = 0L;
1022  pi->data.s.body_start = 0L;
1023  pi->data.s.body_end   = 0L;
1024  pi->data.s.example_start = 0L;
1025  pi->data.s.proc_lineno = line;
1026  pi->data.s.body_lineno = 0;
1027  pi->data.s.example_lineno = 0;
1028  pi->data.s.body = NULL;
1029  pi->data.s.help_chksum = 0;
1030  return(pi);
1031}
1032
1033#ifdef HAVE_DYNAMIC_LOADING
1034/*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
1035int iiAddCproc(char *libname, char *procname, BOOLEAN pstatic,
1036               BOOLEAN(*func)(leftv res, leftv v))
1037{
1038  procinfov pi;
1039  idhdl h;
1040
1041  h = enterid(omStrDup(procname),0, PROC_CMD, &IDROOT, TRUE);
1042  if ( h!= NULL )
1043  {
1044    pi = IDPROC(h);
1045    pi->libname = omStrDup(libname);
1046    pi->procname = omStrDup(procname);
1047    pi->language = LANG_C;
1048    pi->ref = 1;
1049    pi->is_static = pstatic;
1050    pi->data.o.function = func;
1051    return(1);
1052  }
1053  else
1054  {
1055    PrintS("iiAddCproc: failed.\n");
1056  }
1057  return(0);
1058}
1059
1060/*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
1061BOOLEAN load_modules(char *newlib, char *fullname, BOOLEAN tellerror)
1062{
1063  int iiAddCproc(char *libname, char *procname, BOOLEAN pstatic,
1064                 BOOLEAN(*func)(leftv res, leftv v));
1065  typedef int (*fktn_t)(int(*iiAddCproc)(char *libname, char *procname,
1066                               BOOLEAN pstatic,
1067                               BOOLEAN(*func)(leftv res, leftv v)));
1068  fktn_t fktn;
1069  idhdl pl;
1070  char *plib = iiConvName(newlib);
1071  BOOLEAN RET=TRUE;
1072  int token;
1073  char FullName[256];
1074
1075  if( *fullname != '/' &&  *fullname != '.' )
1076    sprintf(FullName, "./%s", newlib);
1077  else strcpy(FullName, fullname);
1078
1079
1080  if(IsCmd(plib, token))
1081  {
1082    Werror("'%s' is resered identifier\n", plib);
1083    goto load_modules_end;
1084  }
1085#ifdef HAVE_NAMESPACES
1086  pl = namespaceroot->get(plib,0, TRUE);
1087#else
1088  pl = IDROOT->get(plib,0);
1089#endif
1090  if (pl==NULL)
1091  {
1092#ifdef HAVE_NAMESPACES
1093    pl = enterid( omStrDup(plib),0, PACKAGE_CMD,
1094                  &NSROOT(namespaceroot->root), TRUE );
1095#else
1096    pl = enterid( omStrDup(plib),0, PACKAGE_CMD, &IDROOT,
1097                  TRUE );
1098#endif
1099    IDPACKAGE(pl)->language = LANG_C;
1100    IDPACKAGE(pl)->libname=omStrDup(newlib);
1101  }
1102  else
1103  {
1104    if(IDTYP(pl)!=PACKAGE_CMD)
1105    {
1106      Warn("not of typ package.");
1107      goto load_modules_end;
1108    }
1109  }
1110  namespaceroot->push(IDPACKAGE(pl), IDID(pl));
1111
1112  if((IDPACKAGE(pl)->handle=dynl_open(FullName))==(void *)NULL)
1113  {
1114    Werror("dynl_open failed:%s", dynl_error());
1115    Werror("%s not found", newlib);
1116    goto load_modules_end;
1117  }
1118  else
1119  {
1120    fktn = (fktn_t)dynl_sym(IDPACKAGE(pl)->handle, "mod_init");
1121    if( fktn!= NULL) (*fktn)(iiAddCproc);
1122    else Werror("mod_init: %s\n", dynl_error());
1123    if (BVERBOSE(V_LOAD_LIB)) Print( "// ** loaded %s \n", fullname);
1124  }
1125  RET=FALSE;
1126
1127  load_modules_end:
1128  namespaceroot->pop();
1129  return RET;
1130
1131}
1132#endif /* HAVE_DYNAMIC_LOADING */
1133
1134/*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
1135char mytoupper(char c)
1136{
1137  if(c>=97 && c<=(97+26)) c-=32;
1138  return(c);
1139}
1140
1141char mytolower(char c)
1142{
1143  if(c>=65 && c<=(65+26)) c+=32;
1144  return(c);
1145}
1146
1147/*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
1148//#if defined(WINNT)
1149//#  define  FS_SEP '\\'
1150//#elif defined(macintosh)
1151//#  define FS_SEP ','
1152//#else
1153//#  define FS_SEP '/'
1154//#endif
1155
1156static char *iiConvName(const char *libname)
1157{
1158  char *tmpname = omStrDup(libname);
1159  char *p = strrchr(tmpname, DIR_SEP);
1160  char *r;
1161  if(p==NULL) p = tmpname;
1162  else p++;
1163  r = strchr(p, '.');
1164  if( r!= NULL) *r = '\0';
1165  r = omStrDup(p);
1166  *r = mytoupper(*r);
1167  // printf("iiConvName: '%s' '%s' => '%s'\n", libname, tmpname, r);
1168  omFree((ADDRESS)tmpname);
1169
1170  return(r);
1171}
1172
1173/*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
1174void piShowProcList()
1175{
1176  idhdl h;
1177#ifdef HAVE_NAMESPACES
1178  idhdl pl;
1179#endif /* HAVE_NAMESPACES */
1180  procinfo *proc;
1181  char *name;
1182
1183  Print( "%-15s  %20s      %s,%s  %s,%s   %s,%s\n", "Library", "function",
1184         "line", "start", "line", "body", "line", "example");
1185#ifdef HAVE_NAMESPACES
1186//  for(pl = IDROOT; pl != NULL; pl = IDNEXT(pl))
1187//{
1188    for(pl = NSROOT(namespaceroot->root); pl != NULL; pl = IDNEXT(pl))
1189    {
1190    if(IDTYP(pl) == PACKAGE_CMD)
1191    {
1192      for(h = IDPACKAGE(pl)->idroot; h != NULL; h = IDNEXT(h))
1193#else /* HAVE_NAMESPACES */
1194  for(h = IDROOT; h != NULL; h = IDNEXT(h))
1195#endif /* HAVE_NAMESPACES */
1196  {
1197    if(IDTYP(h) == PROC_CMD)
1198    {
1199      proc = IDPROC(h);
1200      if(strcmp(proc->procname, IDID(h))!=0)
1201      {
1202        name = (char *)omAlloc(strlen(IDID(h))+strlen(proc->procname)+4);
1203        sprintf(name, "%s -> %s", IDID(h), proc->procname);
1204        Print( "%d %-15s  %20s ", proc->is_static ? 1 : 0, proc->libname, name);
1205        omFree((ADDRESS)name);
1206      }
1207      else
1208        Print( "%d %-15s  %20s ", proc->is_static ? 1 : 0, proc->libname,
1209               proc->procname);
1210      if(proc->language==LANG_SINGULAR)
1211        Print("line %4d,%-5ld  %4d,%-5ld  %4d,%-5ld\n",
1212              proc->data.s.proc_lineno, proc->data.s.proc_start,
1213              proc->data.s.body_lineno, proc->data.s.body_start,
1214              proc->data.s.example_lineno, proc->data.s.example_start);
1215      else if(proc->language==LANG_C)
1216        Print("type: object\n");
1217#ifdef HAVE_NAMESPACES
1218          }
1219      }
1220#endif /* HAVE_NAMESPACES */
1221    }
1222  }
1223}
1224
1225/*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
1226//char *iiLineNo(char *procname, int lineno)
1227//{
1228//  char buf[256];
1229//  idhdl pn = ggetid(procname);
1230//  procinfo *pi = IDPROC(pn);
1231//
1232//  sprintf(buf, "%s %3d\0", procname, lineno);
1233//  //sprintf(buf, "%s::%s %3d\0", pi->libname, pi->procname,
1234//  //  lineno + pi->data.s.body_lineno);
1235//  return(buf);
1236//}
1237/*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
1238#ifdef HAVE_LIBPARSER
1239void libstack::push(char *p, char *libname)
1240{
1241  libstackv lp;
1242  if( !iiGetLibStatus(libname))
1243  {
1244    for(lp = this;lp!=NULL;lp=lp->next)
1245    {
1246      if(strcmp(lp->get(), libname)==0) break;
1247    }
1248    if(lp==NULL)
1249    {
1250      libstackv ls = (libstack *)omAlloc0Bin(libstack_bin);
1251      ls->next = this;
1252      ls->libname = omStrDup(libname);
1253      ls->to_be_done = TRUE;
1254      if(this != NULL) ls->cnt = this->cnt+1; else ls->cnt = 0;
1255      library_stack = ls;
1256    }
1257  }
1258}
1259
1260libstackv libstack::pop(char *p)
1261{
1262  libstackv ls = this;
1263  //omFree((ADDRESS)ls->libname);
1264  library_stack = ls->next;
1265  omFreeBin((ADDRESS)ls,  libstack_bin);
1266  return(library_stack);
1267}
1268
1269#endif /* HAVE_LIBPARSER */
1270/*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
1271#ifndef HOWMANY
1272# define HOWMANY 8192           /* how much of the file to look at */
1273#endif
1274
1275lib_types type_of_LIB(char *newlib, char *libnamebuf)
1276{
1277  char        buf[HOWMANY+1];        /* one extra for terminating '\0' */
1278  struct stat sb;
1279  int nbytes = 0;
1280  int ret;
1281  lib_types LT=LT_NONE;
1282
1283  FILE * fp = feFopen( newlib, "r", libnamebuf, FALSE );
1284  ret = stat(libnamebuf, &sb);
1285
1286  if (fp==NULL)
1287  {
1288    return LT_NOTFOUND;
1289  }
1290  if((sb.st_mode & S_IFMT) != S_IFREG)
1291  {
1292    goto lib_type_end;
1293  }
1294  if ((nbytes = fread((char *)buf, sizeof(char), HOWMANY, fp)) == -1)
1295  {
1296    goto lib_type_end;
1297    /*NOTREACHED*/
1298  }
1299  if (nbytes == 0)
1300    goto lib_type_end;
1301  else
1302  {
1303    buf[nbytes++] = '\0';        /* null-terminate it */
1304  }
1305  if( (strncmp(buf, "\177ELF\01\01\01", 7)==0) && buf[16]=='\03')
1306  {
1307    LT = LT_ELF;
1308    // omFree(newlib);
1309    newlib = omStrDup(libnamebuf);
1310    goto lib_type_end;
1311  }
1312  if( (strncmp(buf, "\02\020\01\016\05\022@", 7)==0))
1313  {
1314    LT = LT_HPUX;
1315    omFree(newlib);
1316    newlib = omStrDup(libnamebuf);
1317    goto lib_type_end;
1318  }
1319  if(isprint(buf[0]) || buf[0]=='\n')
1320  { LT = LT_SINGULAR; goto lib_type_end; }
1321
1322  lib_type_end:
1323  fclose(fp);
1324  return LT;
1325}
1326/*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
Note: See TracBrowser for help on using the repository browser.