Changeset a9f7ae in git


Ignore:
Timestamp:
Nov 9, 1998, 4:39:44 PM (26 years ago)
Author:
Olaf Bachmann <obachman@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'c7af8613769b29c741d6c338945669719f1fc4f8')
Children:
4d9c27b8cc8f7cb2ea5b047ea7902615b87191a2
Parents:
db48346598cb23c710233d2eba4c0d60e9f98ad2
Message:
* removed c files


git-svn-id: file:///usr/local/Singular/svn/trunk@2648 2c84dea3-7e68-4137-9b89-c4e89433aadc
Location:
MP/MPT
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • MP/MPT/MPT.h

    rdb48346 ra9f7ae  
    183183  MPT_ViolatedAssumption,
    184184  MPT_NotExternalData,
     185  MPT_WrongApIntFormat,
    185186  MPT_MaxError
    186187} MPT_Errors;
     
    203204   as functions. This way, we can easily set a breakpoints there. */
    204205extern MPT_Status_t MPT_SetError(MPT_Status_t error);
    205 extern void MPT_ClearError();
     206extern MPT_Status_t MPT_ClearError();
    206207extern void MPT_Assume(MP_Boolean_t value);
    207208#else
     
    267268 ***************************************************************/
    268269
    269 extern void MPT_InitCpyApInt(MPT_Arg_t *dest, MPT_Arg_t src);
    270 extern void MPT_InitCpyApReal(MPT_Arg_t *dest, MPT_Arg_t src);
    271 extern void MPT_DeleteApInt(MPT_Arg_t arg);
    272 extern void MPT_DeleteApReal(MPT_Arg_t arg);
    273 extern MPT_Status_t MPT_GetApInt(MP_Link_pt link, MPT_Arg_t *arg);
    274 extern MPT_Status_t MPT_GetApReal(MP_Link_pt link, MPT_Arg_t *arg);
    275 extern MPT_Status_t MPT_PutApInt(MP_Link_pt link, MPT_Arg_t arg);
    276 extern MPT_Status_t MPT_PutApReal(MP_Link_pt link, MPT_Arg_t arg);
     270extern MPT_Status_t MPT_Init(MP_Env_pt env);
     271extern int  MPT_GetApIntFormat();
     272extern void (*MPT_InitCopyApInt)(MPT_Arg_t *dest, MPT_Arg_t src);
     273extern void (*MPT_DeleteApInt)(MPT_Arg_t apint);
     274extern void MPT_InitCopyApReal(MPT_Arg_t *dest, MPT_Arg_t src);
     275extern void MPT_DeleteApReal(MPT_Arg_t apreal);
     276MPT_Status_t MPT_GetApInt(MP_Link_pt link, MPT_Arg_t *arg);
     277MPT_Status_t MPT_PutApInt(MP_Link_pt link, MPT_Arg_t arg);
     278MPT_Status_t MPT_GetApReal(MP_Link_pt link, MPT_Arg_t *apreal);
     279MPT_Status_t MPT_PutApReal(MP_Link_pt link, MPT_Arg_t arg);
    277280
    278281/***************************************************************
     
    281284 *
    282285 ***************************************************************/
    283 
    284 extern MPT_Annot_pt MPT_FindAnnot(MPT_Node_pt node, MP_DictTag_t dict,
    285                                   MP_AnnotType_t atype);
    286 extern MPT_Tree_pt MPT_GetProtoTypespec(MPT_Node_pt node);
     286inline MP_Boolean_t MPT_IsNode(MPT_Node_pt node,
     287                               MP_NodeType_t type,
     288                               MP_DictTag_t dict)
     289{
     290  return (node->type == type && node->dict == dict);
     291}
     292
     293inline MP_Boolean_t MPT_IsNode(MPT_Node_pt node,
     294                               MP_NodeType_t type,
     295                               MP_DictTag_t dict,
     296                               MP_Common_t  cvalue)
     297{
     298  return (node->type == type && node->dict == dict &&
     299          MP_COMMON_T(node->nvalue) == cvalue);
     300}
     301
     302inline MP_Boolean_t MPT_IsNode(MPT_Node_pt node,
     303                               MP_NodeType_t type,
     304                               MP_DictTag_t dict,
     305                               MP_Common_t  cvalue,
     306                               MP_NumChild_t nc)
     307{
     308  return (node->type == type && node->dict == dict &&
     309           MP_COMMON_T(node->nvalue) == cvalue && node->numchild == nc);
     310}
     311
     312inline MPT_Annot_pt MPT_Annot(MPT_Node_pt node, MP_DictTag_t dict,
     313                              MP_AnnotType_t atype)
     314/* Searches for annot of type atype and dicionary tag dict in annots
     315   attached to node. If one is found, then the first one is
     316   returned, otherwise, NULL is returned */
     317{
     318  MP_NumAnnot_t numannot;
     319  MP_Uint32_t i;
     320  MPT_Annot_pt *annots, an;
     321
     322  MPT_Assume(node != NULL);
     323
     324  numannot = node->numannot;
     325  if (numannot == 0) return NULL;
     326
     327  annots = node->annots;
     328  MPT_Assume(annots != NULL);
     329
     330  for (i=0; i<numannot; i++)
     331  {
     332    an = annots[i];
     333    if (an->type == atype && an->dict == dict) return an;
     334  }
     335
     336  return NULL;
     337}
     338
     339inline MPT_Tree_pt MPT_AnnotValue(MPT_Node_pt node, MP_DictTag_t dict,
     340                                  MP_AnnotType_t atype)
     341{
     342  MPT_Annot_pt annot = MPT_Annot(node, dict, atype);
     343  if (annot != NULL && annot->value != NULL)
     344    return annot->value;
     345  return NULL;
     346}
     347
     348#define MPT_ProtoAnnotValue(node) \
     349  MPT_AnnotValue(node, MP_ProtoDict, MP_AnnotProtoPrototype)
    287350
    288351extern void MPT_MoveAnnots(MPT_Node_pt from, MPT_Node_pt to);
  • MP/MPT/Makefile.in

    rdb48346 ra9f7ae  
    4646##
    4747
    48 SRCS = MPT_Tree.c MPT_Error.c MPT_ExternalData.c MPT_Misc.c \
    49        MPT_ApNumber.c MPT_Get.c MPT_Put.c MPT_TreeManips.c \
    50        MPT_PolyManips.c MPT_PutPoly.c MPT_GetPoly.c
     48SRCS = MPT_Tree.cc MPT_Error.cc MPT_ExternalData.cc MPT_Misc.cc \
     49       MPT_ApNumber.cc MPT_Get.cc MPT_Put.cc MPT_TreeManips.cc \
     50       MPT_PolyManips.cc MPT_PutPoly.cc MPT_GetPoly.cc \
     51       GP_IsOk.cc MPT_GP.cc
     52
    5153OBJS = MPT_Tree.o MPT_Error.o MPT_ExternalData.o MPT_Misc.o \
    5254       MPT_ApNumber.o MPT_Get.o MPT_Put.o MPT_TreeManips.o \
    53        MPT_PolyManips.o MPT_PutPoly.o MPT_GetPoly.o
     55       MPT_PolyManips.o MPT_PutPoly.o MPT_GetPoly.o \
     56       GP_IsOk.o MPT_GP.o
    5457
    55 DISTFILES = ${SRCS} MPT.h Makefile.in
     58DISTFILES = ${SRCS} MPT.h Makefile.in GP.h MPT_GP.h
    5659
    5760.SUFFIXES:
    58 .SUFFIXES: .c .o
    59 .c.o: ${mp_srcdir}/MP.h ${mp_srcdir}/MP_Config.h
     61.SUFFIXES: .cc .o
     62
     63.cc.o: ${mp_srcdir}/MP.h ${mp_srcdir}/MP_Config.h MPT.h
    6064        $(CC) $(CFLAGS) $(CPPFLAGS) $(DEFS) -c $<
    6165
     66
    6267all: libMPT.a ${mp_srcdir}/MP.h ${mp_srcdir}/MP_Config.h Makefile
     68
     69GP_IsOk.o MPT_GP.o: MPT_GP.h GP.h
    6370
    6471libMPT.a:  $(OBJS) ${mp_srcdir}/MP.h ${mp_srcdir}/MP_Config.h MPT.h Makefile
     
    99106
    100107TAGS:
    101         etags *.c *.h
     108        etags *.cc *.h
    102109
    103110dist:
     
    109116        $(CC) -MM $(CPPFLAGS) $(DEFS) $(SRCS) >> Makefile
    110117
    111 test: test.c
    112         $(CC) $(CFLAGS) $(CPPFLAGS) $(DEFS) test.c -o test -L$(libdir) -lMPT -lMP -lgmp
     118test: test.cc
     119        $(CC) $(CFLAGS) $(CPPFLAGS) $(DEFS) test.cc -o test -L$(libdir) -lMPT -lMP -lgmp
Note: See TracChangeset for help on using the changeset viewer.