Changeset fe72e1 in git
 Timestamp:
 Aug 14, 2011, 6:25:19 PM (12 years ago)
 Branches:
 (u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')
 Children:
 5938a0cae7da34f17a09979e3cb7b08d08028cd9
 Parents:
 8d033e23e4d262eb3fb96d000b1f8b2253f44bd1
 gitauthor:
 Oleksandr Motsak <motsak@mathematik.unikl.de>20110814 18:25:19+02:00
 gitcommitter:
 Mohamed Barakat <mohamed.barakat@rwthaachen.de>20111109 16:12:20+01:00
 Location:
 Singular
 Files:

 2 edited
Legend:
 Unmodified
 Added
 Removed

Singular/iplib.cc
r8d033e2 rfe72e1 948 948 } 949 949 950 #if 0 951 // TODO!? 952 procinfo *iiInitSingularProcinfo(procinfo* pi, const char *libname, 953 const char *procname, int line, long pos, 954 BOOLEAN pstatic /*= FALSE*/) 955 { 956 pi>libname = (char *)malloc(strlen(libname)+1); 957 memcpy(pi>libname, libname, strlen(libname)); 958 *(pi>libname+strlen(libname)) = '\0'; 959 960 pi>procname = (char *)malloc(strlen(procname)+1); 961 strcpy(pi>procname, procname/*, strlen(procname)*/); 962 pi>language = LANG_SINGULAR; 963 pi>ref = 1; 964 pi>is_static = pstatic; 965 pi>data.s.proc_start = pos; 966 pi>data.s.def_end = 0L; 967 pi>data.s.help_start = 0L; 968 pi>data.s.body_start = 0L; 969 pi>data.s.body_end = 0L; 970 pi>data.s.example_start = 0L; 971 pi>data.s.proc_lineno = line; 972 pi>data.s.body_lineno = 0; 973 pi>data.s.example_lineno = 0; 974 pi>data.s.body = NULL; 975 pi>data.s.help_chksum = 0; 976 return(pi); 977 } 978 #endif 979 950 980 /************************************/ 951 981 int iiAddCproc(char *libname, char *procname, BOOLEAN pstatic, 
Singular/utils.cc
r8d033e2 rfe72e1 113 113 } 114 114 /************************************/ 115 116 procinfo *iiInitSingularProcinfo(procinfo* pi, const char *libname,117 const char *procname, int line, long pos,118 BOOLEAN pstatic /*= FALSE*/)119 {120 pi>libname = (char *)malloc(strlen(libname)+1);121 memcpy(pi>libname, libname, strlen(libname));122 *(pi>libname+strlen(libname)) = '\0';123 124 pi>procname = (char *)malloc(strlen(procname)+1);125 strcpy(pi>procname, procname/*, strlen(procname)*/);126 pi>language = LANG_SINGULAR;127 pi>ref = 1;128 pi>is_static = pstatic;129 pi>data.s.proc_start = pos;130 pi>data.s.def_end = 0L;131 pi>data.s.help_start = 0L;132 pi>data.s.body_start = 0L;133 pi>data.s.body_end = 0L;134 pi>data.s.example_start = 0L;135 pi>data.s.proc_lineno = line;136 pi>data.s.body_lineno = 0;137 pi>data.s.example_lineno = 0;138 pi>data.s.body = NULL;139 pi>data.s.help_chksum = 0;140 return(pi);141 }142 115 143 116 /************************************/
Note: See TracChangeset
for help on using the changeset viewer.