[BACK]Return to slib.k CVS log [TXT][DIR] Up to [local] / OpenXM / src / k097

Diff for /OpenXM/src/k097/slib.k between version 1.10 and 1.12

version 1.10, 2001/01/13 01:17:36 version 1.12, 2004/09/10 13:20:23
Line 1 
Line 1 
 /* $OpenXM: OpenXM/src/k097/slib.k,v 1.9 2001/01/08 05:26:49 takayama Exp $ */  /* $OpenXM: OpenXM/src/k097/slib.k,v 1.11 2003/11/20 09:20:36 takayama Exp $ */
 /*  slib.sm1, standard library. */  /*  slib.sm1, standard library. */
 /* April 26-- , 1996 */  /* April 26-- , 1996 */
 /* Don't use function names that is already used as a postscipt macro names*/  /* Don't use function names that is already used as a postscipt macro names*/
Line 78  def Poly(f) {
Line 78  def Poly(f) {
   sm1(f," (poly) data_conversion /FunctionValue set");    sm1(f," (poly) data_conversion /FunctionValue set");
 }  }
 def PolyR(f,r) {                     /* parse the polynomial in R */  def PolyR(f,r) {                     /* parse the polynomial in R */
   sm1(f,r," ,, /FunctionValue set");    sm1(f,r," __ /FunctionValue set");
 }  }
 def Degree(f,v) {  def Degree(f,v) {
   sm1(f,v," degree (universalNumber) dc /FunctionValue set");    sm1(f,v," degree (universalNumber) dc /FunctionValue set");
Line 469  def void Pmat(a) {
Line 469  def void Pmat(a) {
    sm1(" a pmat ");     sm1(" a pmat ");
 }  }
   
   def void QuoteMode(a) {
     if ( a == 0) {
       sm1("[(QuoteMode) 0] system_variable ");
     }else{
       sm1("[(QuoteMode) 1] system_variable ");
     }
   }
   

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.12

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>