Changeset dcafdb in git


Ignore:
Timestamp:
Apr 1, 1999, 12:09:53 AM (25 years ago)
Author:
Kai Krüger <krueger@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '648d28f488f6ff08f5607ff229b9ad9e4a5b93c2')
Children:
5f89ebcfc3931375fa6e2ad6e495331a4064a4e3
Parents:
6c87725945caa48b135d716568d9cf8b968ba527
Message:
Changes needed for new version of modgen


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

Legend:

Unmodified
Added
Removed
  • modules/kernel/kernel.mod

    r6c8772 rdcafdb  
    11/*
    2  *  $Id: kernel.mod,v 1.1 1998-11-19 15:49:22 krueger Exp $
     2 *  $Id: kernel.mod,v 1.2 1999-03-31 22:09:53 krueger Exp $
    33 *
    44 *  Test mod fuer modgen
    55 */
    66module="kernel";
    7 version="$Id: kernel.mod,v 1.1 1998-11-19 15:49:22 krueger Exp $";
     7version="$Id: kernel.mod,v 1.2 1999-03-31 22:09:53 krueger Exp $";
    88info="
    99LIBRARY: kernel.lib  PROCEDURES OF GENERAL TYPE WRITEN IN C
     
    1616/*cxxsource = sscanf.cc*/
    1717
    18 proc proclist=kProclist;
     18proc proclist {
     19 function=piShowProcList;
     20};
    1921
    20 proc nn(string)=iiKernelMiscNN;
     22proc ideal toid(ideal) {
     23function=toid;
     24}
     25
     26/*
     27proc string nn(string) {
     28  function=iiKernelMiscNN;
     29};
     30*/
    2131
    2232/*proc sscanf(string, string) = IOsscanf; */
  • modules/pcv/pcv.mod

    r6c8772 rdcafdb  
    11module="pcv";
    22
    3 version="$Id: pcv.mod,v 1.2 1999-02-11 11:39:29 mschulze Exp $";
     3version="$Id: pcv.mod,v 1.3 1999-03-31 22:08:13 krueger Exp $";
    44info="
    55LIBRARY: pcv.so  CONVERSION BETWEEN POLYS AND COEF VECTORS
     
    1616cxxsource = pcv/pcv.cc
    1717
    18 proc MinDeg(poly) = pcvMinDeg;
    19 proc MaxDeg(poly) = pcvMaxDeg;
    20 proc P2CV(list,int,int) = pcvP2CV;
    21 proc CV2P(list,int,int) = pcvCV2P;
    22 proc Dim(int,int) = pcvDim;
    23 proc Basis(int,int) = pcvBasis;
     18proc int MinDeg(poly) {
     19   function=pcvMinDeg;
     20}
     21
     22proc int MaxDeg(poly) {
     23   function=pcvMaxDeg;
     24}
     25
     26proc list P2CV(list,int,int) {
     27C={
     28  /* check if current RingHandle is set */
     29  if(currRingHdl == NULL)
     30  {
     31    WerrorS("no ring active");
     32    return TRUE;
     33  }
     34};
     35function=pcvP2CV;
     36}
     37
     38proc list CV2P(list,int,int)
     39{
     40C={  /* check if current RingHandle is set */
     41  if(currRingHdl == NULL)
     42  {
     43    WerrorS("no ring active");
     44    return TRUE;
     45  }
     46};
     47function=pcvCV2P;}
     48
     49proc int Dim(int,int)
     50{
     51C = {
     52  /* check if current RingHandle is set */
     53  if(currRingHdl == NULL)
     54  {
     55    WerrorS("no ring active");
     56    return TRUE;
     57  }
     58};
     59function=pcvDim;
     60
     61}
     62
     63proc list Basis(int,int)
     64{
     65C = {
     66  /* check if current RingHandle is set */
     67  if(currRingHdl == NULL)
     68  {
     69    WerrorS("no ring active");
     70    return TRUE;
     71  }
     72};
     73function=pcvBasis;}
     74
Note: See TracChangeset for help on using the changeset viewer.