Changeset 45d13f1 in git


Ignore:
Timestamp:
Apr 30, 2013, 12:58:11 PM (10 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')
Children:
7b7f57814442137d3a1ecedc04d3a2efe5baf5c5
Parents:
9f9dd43ae70c6fefcee2255f30e3cb98f9c50ace
Message:
fix: libparse (re-adding iiInitSingularProcinfo to utils.cc)
Location:
Singular
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • Singular/extra.cc

    r9f9dd4 r45d13f1  
    457457            TEST_FOR("ndebug")
    458458          #endif
    459             ;
     459            {};
    460460          return FALSE;
    461461          #undef TEST_FOR

  • Singular/utils.cc

    r9f9dd4 r45d13f1  
     1#ifdef STANDALONE_PARSER
    12#include "config.h"
    23#include <kernel/mod2.h>
    … …  
    1718extern int texinfo_out;
    1819
    19 int category_out;
     20extern int category_out;
    2021
    2122extern int found_version, found_info, found_oldhelp, found_proc_in_proc;
    … …  
    119120}
    120121/*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
     122procinfo *iiInitSingularProcinfo(procinfo* pi, const char *libname,
     123                                 const char *procname, int line, long pos,
     124                                 BOOLEAN pstatic /*= FALSE*/)
     125{
     126  pi->libname = (char *)malloc(strlen(libname)+1);
     127  memcpy(pi->libname, libname, strlen(libname));
     128  *(pi->libname+strlen(libname)) = '\0';
     129
     130  pi->procname = (char *)malloc(strlen(procname)+1);
     131  strcpy(pi->procname, procname/*, strlen(procname)*/);
     132  pi->language = LANG_SINGULAR;
     133  pi->ref = 1;
     134  pi->is_static = pstatic;
     135  pi->data.s.proc_start = pos;
     136  pi->data.s.def_end    = 0L;
     137  pi->data.s.help_start = 0L;
     138  pi->data.s.body_start = 0L;
     139  pi->data.s.body_end   = 0L;
     140  pi->data.s.example_start = 0L;
     141  pi->data.s.proc_lineno = line;
     142  pi->data.s.body_lineno = 0;
     143  pi->data.s.example_lineno = 0;
     144  pi->data.s.body = NULL;
     145  pi->data.s.help_chksum = 0;
     146  return(pi);
     147}
    121148
    122149/*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
    … …  
    221248
    222249/*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
     250#endif
Note: See TracChangeset for help on using the changeset viewer.