Changeset 6a6dccc in git


Ignore:
Timestamp:
Jul 2, 1997, 6:44:17 PM (27 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
Children:
b182edc0a08ed317e024336ca2822ed7b57bf61b
Parents:
52810913e91e34d44e466f459d28b0a87d286a5a
Message:
* hannes: cleanup in some texts
   polys.h polys0.cc
   modification to dld code
   iparith.cc ipassign.cc ipid.cc ipshell.h sing_dld.cc tesths.cc sing_dld.h


git-svn-id: file:///usr/local/Singular/svn/trunk@483 2c84dea3-7e68-4137-9b89-c4e89433aadc
Location:
Singular
Files:
1 added
8 edited

Legend:

Unmodified
Added
Removed
  • Singular/iparith.cc

    r528109 r6a6dccc  
    3939#include "ipconv.h"
    4040#include "ipprint.h"
     41#include "sing_dld.h"
    4142#include "attrib.h"
    4243#include "silink.h"
     
    19641965,{jjPROC,      '(',            ANY_TYPE/*set by p*/,PROC_CMD, DEF_CMD PROFILER}
    19651966#ifdef HAVE_DLD
    1966 ,{jjBIN,       '(',            ANY_TYPE/*set by p*/,BIN_CMD, DEF_CMD PROFILER}
     1967,{jjBIN,       '(',            ANY_TYPE/*set by p*/,BINARY_CMD, DEF_CMD PROFILER}
    19671968#endif
    19681969,{jjMAP,       '(',            ANY_TYPE/*set by p*/,MAP_CMD, DEF_CMD PROFILER}
  • Singular/ipassign.cc

    r528109 r6a6dccc  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ipassign.cc,v 1.14 1997-07-01 15:41:49 Singular Exp $ */
     4/* $Id: ipassign.cc,v 1.15 1997-07-02 16:44:10 Singular Exp $ */
    55
    66/*
     
    477477,{jiA_LINK,     LINK_CMD,       STRING_CMD }
    478478,{jiA_LINK,     LINK_CMD,       LINK_CMD }
    479 ,{jiA_STRING,   BINARY_CMD,     STRING_CMD }
    480479,{NULL,         0,              0 }
    481480};
  • Singular/ipid.cc

    r528109 r6a6dccc  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ipid.cc,v 1.5 1997-06-17 09:44:26 Singular Exp $ */
     4/* $Id: ipid.cc,v 1.6 1997-07-02 16:44:11 Singular Exp $ */
    55
    66/*
     
    9898        break;
    9999      case STRING_CMD:
    100       #ifdef HAVE_DLD
    101       case BINARY_CMD:
    102       #endif
    103100        IDSTRING(h) = mstrdup("");
    104101        break;
     
    107104        IDLIST(h)->Init();
    108105        break;
     106      case BINARY_CMD:
     107        WerrorS("`binary` objects cannot be declared");
     108        Free(ADDRESS(h),sizeof(idrec));
     109        return NULL;
    109110    //the types with the standard init: set the struct to zero
    110111      case LINK_CMD:
  • Singular/ipshell.h

    r528109 r6a6dccc  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
    6 /* $Id: ipshell.h,v 1.6 1997-05-20 08:52:07 Singular Exp $ */
     6/* $Id: ipshell.h,v 1.7 1997-07-02 16:44:12 Singular Exp $ */
    77/*
    88* ABSTRACT
     
    9595  short cnt;
    9696  int   t;
    97 #endif   
     97#endif
    9898};
    9999
     
    149149BOOLEAN setOption(leftv res, leftv v);
    150150/* ================================================================== */
    151 // from sing_dld.cc:
    152 #ifdef HAVE_DLD
    153   sleftv * iiMake_binary(idhdl pn, sleftv* sl);
    154   BOOLEAN dlLoad(char * fn, char *pn, proc1 &p);
    155   #ifdef linux
    156     #ifdef __ELF__
    157       #define dlInit(A)
    158     #else
    159       void    dlInit(const char *thisfile);
    160     #endif
    161   #else
    162     #define dlInit(A)
    163   #endif
    164 #endif
    165151#endif
    166152
  • Singular/polys.h

    r528109 r6a6dccc  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
    6 /* $Id: polys.h,v 1.3 1997-04-09 12:20:06 Singular Exp $ */
     6/* $Id: polys.h,v 1.4 1997-07-02 16:44:12 Singular Exp $ */
    77/*
    88* ABSTRACT - all basic methods to manipulate polynomials
     
    4040extern BOOLEAN  pMixedOrder;
    4141extern poly     ppNoether;
    42 extern int      pVectorOut;
     42extern BOOLEAN  pVectorOut;
    4343
    4444#ifdef DRING
  • Singular/polys0.cc

    r528109 r6a6dccc  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: polys0.cc,v 1.4 1997-04-12 16:04:43 Singular Exp $ */
     4/* $Id: polys0.cc,v 1.5 1997-07-02 16:44:14 Singular Exp $ */
    55
    66/*
     
    1818#include "polys.h"
    1919
    20 int pVectorOut=TRUE;
     20BOOLEAN pVectorOut=TRUE;
    2121/*2
    2222* writes a monomial (p),
  • Singular/sing_dld.cc

    r528109 r6a6dccc  
    22*  Computer Algebra System SINGULAR      *
    33*****************************************/
    4 /* $Id: sing_dld.cc,v 1.3 1997-04-02 15:07:51 Singular Exp $ */
     4/* $Id: sing_dld.cc,v 1.4 1997-07-02 16:44:16 Singular Exp $ */
    55
    66/*
     
    4242#endif
    4343
    44 BOOLEAN dlLoad(const char * fn, const char *pn, proc1 &p)
     44BOOLEAN dlLoad(const char * fn, const char *pn)
    4545{
     46  typedef void (*PROC)(void);
     47  PROC p1;
    4648  #ifdef linux
    4749  #ifdef __ELF__
     
    5052  if (h!=NULL)
    5153  {
    52     p1=(proc1)dlsym(h,pn);
     54    p1=(PROC)dlsym(h,pn);
    5355    char *s;
    5456    if((s=dlerror())==NULL)
    5557    {
     58      p1();
    5659      return FALSE;
    5760    }
     
    7881    if (dld_function_executable_p(pn))
    7982    {
    80       p = (proc1) dld_get_func (pn);
     83      p1 = (PROC) dld_get_func (pn);
     84      p1();
    8185      return FALSE;
    8286    }
     
    9296  shl_t hdl=shl_load(fn,
    9397          BIND_IMMEDIATE|BIND_NOSTART|BIND_NONFATAL|BIND_VERBOSE,0L);
    94   int i=shl_findsym(&hdl,pn,TYPE_PROCEDURE,&p);
     98  int i=shl_findsym(&hdl,pn,TYPE_PROCEDURE,&p1);
    9599  if (i==0)
     100  {
     101    p1();
    96102    return FALSE;
     103  } 
    97104  else
    98105  {
  • Singular/tesths.cc

    r528109 r6a6dccc  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: tesths.cc,v 1.20 1997-07-01 15:41:55 Singular Exp $ */
     4/* $Id: tesths.cc,v 1.21 1997-07-02 16:44:17 Singular Exp $ */
    55
    66/*
     
    2121#include "tok.h"
    2222#include "ipshell.h"
     23#include "sing_dld.h"
    2324#include "febase.h"
    2425#include "cntrlc.h"
     
    270271  }
    271272  slStandardInit();
    272 #ifdef HAVE_DLD
    273273  dlInit(thisfile);
    274 #endif
    275274  myynest=0;
    276275  /* if script is given */
Note: See TracChangeset for help on using the changeset viewer.