[BACK]Return to basicCD.sm1 CVS log [TXT][DIR] Up to [local] / OpenXM / src / kan96xx / Doc
File: [local] / OpenXM / src / kan96xx / Doc / basicCD.sm1 (download)

Revision 1.1.1.1 (vendor branch), Fri Oct 8 02:12:02 1999 UTC (24 years, 7 months ago) by maekawa
Branch: OpenXM, MAIN
CVS Tags: maekawa-ipv6, R_1_3_1-2, RELEASE_20000124, RELEASE_1_3_1_13b, RELEASE_1_2_3_12, RELEASE_1_2_3, RELEASE_1_2_2_KNOPPIX_b, RELEASE_1_2_2_KNOPPIX, RELEASE_1_2_2, RELEASE_1_2_1, RELEASE_1_1_3, RELEASE_1_1_2, KNOPPIX_2006, HEAD, DEB_REL_1_2_3-9, ALPHA
Changes since 1.1: +0 -0 lines 

o import OpenXM sources

%% basicCD.sm1
(basicCD.sm1 : plus2, plus1, times, minus2, minus1, over, power ) message
(              integer_quotient, integer_remainder, integer_gcd ) message
(              equal, unequal, less, lessequal, greater, greaterequal ) message
/plus2 { add } def
/plus1 {  } def
/times { mul } def
/minus2 { sub } def
/minus1 { (0).. 2 -1 roll sub } def
/over { div } def
/integer_quotient { idiv } def
/integer_remainder { 
  /basicCD.B set
  /basicCD.A set
  [(tdiv_qr) basicCD.A basicCD.B] mpzext 1 get
} def
/integer_gcd { 
  /basicCD.B set
  /basicCD.A set
  [(gcd) basicCD.A basicCD.B] mpzext 
} def

/equal { eq } def
/unequal { eq not } def
/less { lt } def
/lessequal { le } def
/greater { gt } def
/greaterequal{ ge } def