/*
* intrinsic classes
*/
#include "tads.h"
#include "t3.h"
#include "bignum.h"
#include "dict.h"
dictionary gDict;
main(args)
{
local x, y;
x = BigNumber;
y = x.getPi(10);
"y = <>\n";
"y is a BigNumber: <>\n";
"y is a Dictionary: <>\n";
"y is an IntrinsicClass: <>\n";
"gDict is a Dictionary: <>\n";
"BigNumber is an IntrinsicClass:
<>\n";
"IntrinsicClass is an IntrinsicClass:
<>\n";
"y is an Object: <>\n";
"BigNumber is an Object: <>\n";
"\b";
"first superclass of y = BigNumber:
<>\n";
"first superclass of y = Dictionary:
<>\n";
"number of superclasses of BigNumber:
<>\n";
"first superclass of BigNumber = IntrinsicClass:
<>\n";
"\b";
y = 'abc';
"y = '<>' (constant)\n";
"y is a String: <>\n";
"y is a List: <>\n";
"y is a Object: <>\n";
"first superclass of y = String:
<>\n";
"first superclass of y = List:
<>\n";
"\b";
y += 'def';
"y = '<>' (object)\n";
"y is a String: <>\n";
"y is a List: <>\n";
"y is a Object: <>\n";
"first superclass of y = String:
<>\n";
"first superclass of y = List:
<>\n";
"\b";
y = [1, 2, 3];
"y = [1,2,3] (constant)\n";
"y is a String: <>\n";
"y is a List: <>\n";
"y is a Object: <>\n";
"first superclass of y = String:
<>\n";
"first superclass of y = List:
<>\n";
"\b";
y += [4,5];
"y = [1,2,3,4,5] (object)\n";
"y is a String: <>\n";
"y is a List: <>\n";
"y is a Object: <>\n";
"first superclass of y = String:
<>\n";
"first superclass of y = List:
<>\n";
}
sayTF(val)
{
if (val)
"yes";
else
"no";
}
preinit()
{
}