Changeset 5c8d0fb in git


Ignore:
Timestamp:
Mar 29, 2000, 4:22:26 PM (24 years ago)
Author:
Kai Krüger <krueger@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '648d28f488f6ff08f5607ff229b9ad9e4a5b93c2')
Children:
8fbf637e134a505ed0c8bd77182881f7867d1d01
Parents:
8e39b4c74f2c180f33f5b7292220739f88c5df9a
Message:
Changes for new module generator


git-svn-id: file:///usr/local/Singular/svn/trunk@4230 2c84dea3-7e68-4137-9b89-c4e89433aadc
File:
1 edited

Legend:

Unmodified
Added
Removed
  • modules/pcv/pcv.mod

    r8e39b4 r5c8d0fb  
     1%{
     2/*
     3 *  $Id: pcv.mod,v 1.4 2000-03-29 14:22:26 krueger Exp $
     4 *
     5 *  Test mod fuer modgen
     6 */
     7
     8#include <stdio.h>
     9#include "Pcv.h"
     10%}
     11
     12
    113module="pcv";
    214
    3 version="$Id: pcv.mod,v 1.3 1999-03-31 22:08:13 krueger Exp $";
     15version="$Id: pcv.mod,v 1.4 2000-03-29 14:22:26 krueger Exp $";
    416info="
    517LIBRARY: pcv.so  CONVERSION BETWEEN POLYS AND COEF VECTORS
     
    719
    820 MinDeg(p);      min deg of monomials of poly p
    9  MaxDeg(p);      max deg of monomials of poly p
    1021 P2CV(l,d0,d1);  list of coef vectors from deg d0 to d1 of polys in list l
    1122 CV2P(l,d0,d1);  list of polys with coef vectors from deg d0 to d1 in list l
     
    1425";
    1526
    16 cxxsource = pcv/pcv.cc
     27cxxsource = Pcv.cc;
    1728
    18 proc int MinDeg(poly) {
    19    function=pcvMinDeg;
     29%%
     30
     31int MinDeg(poly p) {
     32   %declaration;
     33   %typecheck;
     34   %return(pcvMinDeg);
    2035}
    2136
    22 proc int MaxDeg(poly) {
    23    function=pcvMaxDeg;
    24 }
     37list P2CV(list pl,int d0,int d1) {
     38  %declaration;
    2539
    26 proc list P2CV(list,int,int) {
    27 C={
    2840  /* check if current RingHandle is set */
    2941  if(currRingHdl == NULL)
     
    3244    return TRUE;
    3345  }
    34 };
    35 function=pcvP2CV;
     46 
     47  %typecheck;
     48  %return(pcvP2CV);
    3649}
    3750
    38 proc list CV2P(list,int,int)
     51list CV2P(list pl,int d0,int d1)
    3952{
    40 C={  /* check if current RingHandle is set */
    41   if(currRingHdl == NULL)
    42   {
    43     WerrorS("no ring active");
    44     return TRUE;
    45   }
    46 };
    47 function=pcvCV2P;}
     53  %declaration;
    4854
    49 proc int Dim(int,int)
    50 {
    51 C = {
    5255  /* check if current RingHandle is set */
    5356  if(currRingHdl == NULL)
     
    5659    return TRUE;
    5760  }
    58 };
    59 function=pcvDim;
    60 
     61 
     62  %typecheck;
     63  %return(pcvCV2P);
    6164}
    6265
    63 proc list Basis(int,int)
     66int Dim(int d0,int d1)
    6467{
    65 C = {
     68  %declaration;
     69
    6670  /* check if current RingHandle is set */
    6771  if(currRingHdl == NULL)
     
    7074    return TRUE;
    7175  }
    72 };
    73 function=pcvBasis;}
     76 
     77  %typecheck;
     78  %return(pcvDim);
     79}
    7480
     81list Basis(int d0,int d1)
     82{
     83  %declaration;
     84
     85  /* check if current RingHandle is set */
     86  if(currRingHdl == NULL)
     87  {
     88    WerrorS("no ring active");
     89    return TRUE;
     90  }
     91 
     92  %typecheck;
     93  %return(pcvBasis);
     94}
     95
     96%%
Note: See TracChangeset for help on using the changeset viewer.