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

Diff for /OpenXM/src/k097/object.kk between version 1.3 and 1.5

version 1.3, 2001/01/05 11:14:25 version 1.5, 2001/01/13 12:40:56
Line 1 
Line 1 
 /* $OpenXM: OpenXM/src/k097/object.kk,v 1.2 2000/01/21 03:01:25 takayama Exp $ */  /* $OpenXM: OpenXM/src/k097/object.kk,v 1.4 2001/01/08 05:26:49 takayama Exp $ */
 /* object.kk , 1997, 4/11. */  /* object.kk , 1997, 4/11. */
 Protect("showln",0);  Protect("showln",0);
   
 class Object extends PrimitiveObject {  class Object extends PrimitiveObject {
     local ;
   def new0() {    def new0() {
     return(Object);      return(Object);
   }    }
Line 22  def IsObject(a) {
Line 23  def IsObject(a) {
   if (k00ecTag(a[0]) == k00ecTag(Object[0])) return(true);    if (k00ecTag(a[0]) == k00ecTag(Object[0])) return(true);
   else return(false);    else return(false);
 }  }
 HelpAdd(["IsObject",["IsObject(a) return true if a is an Object."]]);  HelpAdd(["IsObject",
    ["IsObject(<<a>>) return true if a is an Object."],
    ["a"],
    ["Tag"],
    "check if a given object is primitive or not."
   ]);
   
   
   
Line 30  HelpAdd(["IsObject",["IsObject(a) return true if a is 
Line 36  HelpAdd(["IsObject",["IsObject(a) return true if a is 
    1997, 4/17     1997, 4/17
 */  */
 class Gmp extends Object {  class Gmp extends Object {
     local ;
   def BitAnd(a,b) {    def BitAnd(a,b) {
     sm1("[(and) ",a," ",b," ] mpzext /FunctionValue set ");      sm1("[(and) ",a," ",b," ] mpzext /FunctionValue set ");
   }    }
Line 63  HelpAdd(["Gmp.",
Line 70  HelpAdd(["Gmp.",
   "These methods call functions of GNU MP package.",    "These methods call functions of GNU MP package.",
   "Note that there is no method to create an instance.",    "Note that there is no method to create an instance.",
   "Ex.  r = Gmp.Gcd(5,8); "    "Ex.  r = Gmp.Gcd(5,8); "
   ]]);    ],
     null,
     null,
     "class Gmp"
   ]);
   
   class Stderr extends Object {
     local ;
     def Print(s) {
        s = ToString(s);
        if (!Boundp("Stderr_fd")) {
           sm1(" [37 (string) dc (stderr)] cat (w) file /Stderr_fd set ");
        }
        sm1(" Stderr_fd s writestring ");
     }
     def Println(s) {
        Print(s); Ln();
     }
     def Ln() {
        if (!Boundp("Stderr_fd")) {
           sm1(" [37 (string) dc (stderr)] cat (w) file /Stderr_fd set ");
        }
        sm1(" Stderr_fd 10 (string) dc writestring ");
     }
     def Flush() {
        sm1(" [(flush)] extension ");
     }
   }
   
   HelpAdd(["Stderr.",
    ["Stderr is a class which supports printing to stderr.",
     "Methods are Print, Println, Ln, Flush.",
     "Stderr_fd is a global variable to save a file descriptor."
     ],
     null,
     null,
     "class Stderr"
   ]);
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>