Return to object.kk CVS log

Up to [local] / OpenXM / src / k097

Annotation of OpenXM/src/k097/object.kk, Revision 1.1.1.1

1.1       maekawa     1: /* object.kk , 1997, 4/11. */
                      2: Protect("showln",0);
                      3:
                      4: class Object extends PrimitiveObject {
                      5:   def new0() {
                      6:     return(Object);
                      7:   }
                      8:   def showln() {
                      9:     Println(this);
                     10:   }
                     11:   def getClass() {
                     12:     sm1(" this 0 get /FunctionValue set ");
                     13:   }
                     14: }
                     15:
                     16: sm1(" /ectag { dup isClass not { pop -1 } { lc } ifelse } def ");
                     17: def k00ecTag(a) { sm1(a," ectag /FunctionValue set "); }
                     18: def IsObject(a) {
                     19:   if (!IsArray(a)) return(false);
                     20:   if (Length(a) < 1) return(false);
                     21:   if (k00ecTag(a[0]) == k00ecTag(Object[0])) return(true);
                     22:   else return(false);
                     23: }
                     24: HelpAdd(["IsObject",["IsObject(a) return true if a is an Object."]]);
                     25:
                     26:
                     27:
                     28: /* class Gmp. Number theoretic functions.
                     29:    1997, 4/17
                     30: */
                     31: class Gmp extends Object {
                     32:   def BitAnd(a,b) {
                     33:     sm1("[(and) ",a," ",b," ] mpzext /FunctionValue set ");
                     34:   }
                     35:   def BitOr(a,b) {
                     36:     sm1("[(ior) ",a," ",b," ] mpzext /FunctionValue set ");
                     37:   }
                     38:   def ModuloPower(base,ex,mmod) {
                     39:     sm1("[(powm) ",base," ",ex," ",mmod," ] mpzext /FunctionValue set ");
                     40:   }
                     41:   def ProbabilisticPrimeP(p,reps) {
                     42:     sm1("[(probab_prime_p) ",p," ",reps," ] mpzext /FunctionValue set ");
                     43:   }
                     44:   def Sqrt(a) {
                     45:     sm1("[(sqrt) ",a, " ] mpzext /FunctionValue set ");
                     46:   }
                     47:   def Gcd(a,b) {
                     48:     sm1("[(gcd) ",a," ",b," ] mpzext /FunctionValue set ");
                     49:   }
                     50:   def Div(a,b) {
                     51:     sm1("[(tdiv_qr) ",a," ",b," ] mpzext /FunctionValue set ");
                     52:   }
                     53:   def Mod(a,b) {
                     54:     sm1("[(tdiv_qr) ",a," ",b," ] mpzext 1 get /FunctionValue set ");
                     55:   }
                     56: }
                     57:
                     58: HelpAdd(["Gmp.",
                     59:  ["Gmp is a class which supports the following methods:",
                     60:   "BitAnd, BitOr, ModuloPower, ProbabilisticPrimeP, Sqrt,",
                     61:   "Gcd, Div, Mod.",
                     62:   "Ex.  r = Gmp.Gcd(5,8); ",
                     63:   "These methods call functions of Gnu-MP package.",
                     64:   "The Copyright notice is in kan96xx/gmp.",
                     65:   "Note that there is no method to create an instance."]]);
                     66: