| version 1.4, 2001/01/08 05:26:49 |
version 1.5, 2001/01/13 12:40:56 |
|
|
| /* $OpenXM: OpenXM/src/k097/object.kk,v 1.3 2001/01/05 11:14: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 35 HelpAdd(["IsObject", |
|
| Line 36 HelpAdd(["IsObject", |
|
| 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 "); |
| } |
} |
|
|
| ]); |
]); |
| |
|
| class Stderr extends Object { |
class Stderr extends Object { |
| |
local ; |
| def Print(s) { |
def Print(s) { |
| s = ToString(s); |
s = ToString(s); |
| if (!Boundp("Stderr_fd")) { |
if (!Boundp("Stderr_fd")) { |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to object.kk CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / k097