1 #include <Object/Boxed.oh>
2 #include <IntStr.oh>
3 #include <RealStr.oh>
4 #include <LRealStr.oh>
5 #include <Strings.oh>
6 #include <HashCode.oh>
7 #include <ADT/StringBuffer.oh>
8 Object_Boxed__Boolean Object_Boxed__true;
9 Object_Boxed__Boolean Object_Boxed__false;
10 static Object__String Object_Boxed__trueString;
11 static Object__String Object_Boxed__falseString;
12 Object_Boxed__LongInt Object_Boxed__zeroLongInt;
13 Object_Boxed__LongInt Object_Boxed__oneLongInt;
14 Object_Boxed__LongReal Object_Boxed__zeroLongReal;
15 Object_Boxed__LongReal Object_Boxed__oneLongReal;
16 static Object_Boxed__String Object_Boxed__emptyString;
17 
18 /* run-time meta data */
19 static RT0__ModuleDesc _mid;
20 RT0__StructDesc _td_Object_Boxed__Object = { (RT0__Struct[]){&_td_Object_Boxed__ObjectDesc}, NULL, NULL, &_mid, (OOC_CHAR8*)"Object", 8, -1, 0, RT0__strPointer };
21 RT0__StructDesc _td_Object_Boxed__ObjectDesc = { (RT0__Struct[]){&_td_RT0__ObjectDesc,&_td_Object__ObjectDesc,&_td_ADT_Storable__ObjectDesc,&_td_Object_Boxed__ObjectDesc}, (void*[]){(void*)RT0__ObjectDesc_Finalize,(void*)Object_Boxed__ObjectDesc_ToString,(void*)Object__ObjectDesc_Equals,(void*)Object__ObjectDesc_HashCode,(void*)ADT_Storable__ObjectDesc_Store,(void*)ADT_Storable__ObjectDesc_Load,(void*)Object_Boxed__ObjectDesc_Cmp}, NULL, &_mid, (OOC_CHAR8*)"ObjectDesc", 0, 3, (1<<RT0__flagAtomic), RT0__strRecord };
22 RT0__StructDesc _td_Object_Boxed__1726 = { (RT0__Struct[]){&RT0__char}, NULL, NULL, &_mid, NULL, 1, 1, (1<<RT0__flagAtomic), RT0__strOpenArray };
23 RT0__StructDesc _td_Object_Boxed__Boolean = { (RT0__Struct[]){&_td_Object_Boxed__BooleanDesc}, NULL, NULL, &_mid, (OOC_CHAR8*)"Boolean", 8, -1, 0, RT0__strPointer };
24 RT0__StructDesc _td_Object_Boxed__BooleanDesc = { (RT0__Struct[]){&_td_RT0__ObjectDesc,&_td_Object__ObjectDesc,&_td_ADT_Storable__ObjectDesc,&_td_Object_Boxed__ObjectDesc,&_td_Object_Boxed__BooleanDesc}, (void*[]){(void*)RT0__ObjectDesc_Finalize,(void*)Object_Boxed__BooleanDesc_ToString,(void*)Object_Boxed__BooleanDesc_Equals,(void*)Object_Boxed__BooleanDesc_HashCode,(void*)Object_Boxed__BooleanDesc_Store,(void*)Object_Boxed__BooleanDesc_Load,(void*)Object_Boxed__BooleanDesc_Cmp,(void*)Object_Boxed__BooleanDesc_INIT}, NULL, &_mid, (OOC_CHAR8*)"BooleanDesc", 1, 4, (1<<RT0__flagAtomic), RT0__strRecord };
25 RT0__StructDesc _td_Object_Boxed__LongInt = { (RT0__Struct[]){&_td_Object_Boxed__LongIntDesc}, NULL, NULL, &_mid, (OOC_CHAR8*)"LongInt", 8, -1, 0, RT0__strPointer };
26 RT0__StructDesc _td_Object_Boxed__LongIntDesc = { (RT0__Struct[]){&_td_RT0__ObjectDesc,&_td_Object__ObjectDesc,&_td_ADT_Storable__ObjectDesc,&_td_Object_Boxed__ObjectDesc,&_td_Object_Boxed__LongIntDesc}, (void*[]){(void*)RT0__ObjectDesc_Finalize,(void*)Object_Boxed__LongIntDesc_ToString,(void*)Object_Boxed__LongIntDesc_Equals,(void*)Object_Boxed__LongIntDesc_HashCode,(void*)Object_Boxed__LongIntDesc_Store,(void*)Object_Boxed__LongIntDesc_Load,(void*)Object_Boxed__LongIntDesc_Cmp,(void*)Object_Boxed__LongIntDesc_INIT,(void*)Object_Boxed__LongIntDesc_Add,(void*)Object_Boxed__LongIntDesc_Sub,(void*)Object_Boxed__LongIntDesc_Mul,(void*)Object_Boxed__LongIntDesc_Div,(void*)Object_Boxed__LongIntDesc_Mod,(void*)Object_Boxed__LongIntDesc_Sign,(void*)Object_Boxed__LongIntDesc_Neg}, NULL, &_mid, (OOC_CHAR8*)"LongIntDesc", 4, 4, (1<<RT0__flagAtomic), RT0__strRecord };
27 RT0__StructDesc _td_Object_Boxed__LongReal = { (RT0__Struct[]){&_td_Object_Boxed__LongRealDesc}, NULL, NULL, &_mid, (OOC_CHAR8*)"LongReal", 8, -1, 0, RT0__strPointer };
28 RT0__StructDesc _td_Object_Boxed__LongRealDesc = { (RT0__Struct[]){&_td_RT0__ObjectDesc,&_td_Object__ObjectDesc,&_td_ADT_Storable__ObjectDesc,&_td_Object_Boxed__ObjectDesc,&_td_Object_Boxed__LongRealDesc}, (void*[]){(void*)RT0__ObjectDesc_Finalize,(void*)Object_Boxed__LongRealDesc_ToString,(void*)Object_Boxed__LongRealDesc_Equals,(void*)Object_Boxed__LongRealDesc_HashCode,(void*)Object_Boxed__LongRealDesc_Store,(void*)Object_Boxed__LongRealDesc_Load,(void*)Object_Boxed__LongRealDesc_Cmp,(void*)Object_Boxed__LongRealDesc_INIT,(void*)Object_Boxed__LongRealDesc_ToLongReal,(void*)Object_Boxed__LongRealDesc_Add,(void*)Object_Boxed__LongRealDesc_Sub,(void*)Object_Boxed__LongRealDesc_Mul,(void*)Object_Boxed__LongRealDesc_Div,(void*)Object_Boxed__LongRealDesc_Sign,(void*)Object_Boxed__LongRealDesc_Neg}, NULL, &_mid, (OOC_CHAR8*)"LongRealDesc", 8, 4, (1<<RT0__flagAtomic), RT0__strRecord };
29 RT0__StructDesc _td_Object_Boxed__Set = { (RT0__Struct[]){&_td_Object_Boxed__SetDesc}, NULL, NULL, &_mid, (OOC_CHAR8*)"Set", 8, -1, 0, RT0__strPointer };
30 RT0__StructDesc _td_Object_Boxed__SetDesc = { (RT0__Struct[]){&_td_RT0__ObjectDesc,&_td_Object__ObjectDesc,&_td_ADT_Storable__ObjectDesc,&_td_Object_Boxed__ObjectDesc,&_td_Object_Boxed__SetDesc}, (void*[]){(void*)RT0__ObjectDesc_Finalize,(void*)Object_Boxed__SetDesc_ToString,(void*)Object_Boxed__SetDesc_Equals,(void*)Object_Boxed__SetDesc_HashCode,(void*)Object_Boxed__SetDesc_Store,(void*)Object_Boxed__SetDesc_Load,(void*)Object_Boxed__SetDesc_Cmp,(void*)Object_Boxed__SetDesc_INIT,(void*)Object_Boxed__SetDesc_ToLongInt}, NULL, &_mid, (OOC_CHAR8*)"SetDesc", 4, 4, (1<<RT0__flagAtomic), RT0__strRecord };
31 RT0__StructDesc _td_Object_Boxed__String = { (RT0__Struct[]){&_td_Object_Boxed__StringDesc}, NULL, NULL, &_mid, (OOC_CHAR8*)"String", 8, -1, 0, RT0__strPointer };
32 RT0__StructDesc _td_Object_Boxed__StringDesc = { (RT0__Struct[]){&_td_RT0__ObjectDesc,&_td_Object__ObjectDesc,&_td_ADT_Storable__ObjectDesc,&_td_Object_Boxed__ObjectDesc,&_td_Object_Boxed__StringDesc}, (void*[]){(void*)RT0__ObjectDesc_Finalize,(void*)Object_Boxed__StringDesc_ToString,(void*)Object_Boxed__StringDesc_Equals,(void*)Object_Boxed__StringDesc_HashCode,(void*)Object_Boxed__StringDesc_Store,(void*)Object_Boxed__StringDesc_Load,(void*)Object_Boxed__StringDesc_Cmp,(void*)Object_Boxed__StringDesc_INIT}, NULL, &_mid, (OOC_CHAR8*)"StringDesc", 8, 4, 0, RT0__strRecord };
33 RT0__StructDesc _td_Object_Boxed__3133 = { (RT0__Struct[]){&RT0__char}, NULL, NULL, &_mid, NULL, 1, 1, (1<<RT0__flagAtomic), RT0__strOpenArray };
34 RT0__StructDesc _td_Object_Boxed__4835 = { (RT0__Struct[]){&RT0__char}, NULL, NULL, &_mid, NULL, 1, 1, (1<<RT0__flagAtomic), RT0__strOpenArray };
35 RT0__StructDesc _td_Object_Boxed__5874 = { (RT0__Struct[]){&RT0__char}, NULL, NULL, &_mid, NULL, 10, 10, (1<<RT0__flagAtomic), RT0__strArray };
36 RT0__StructDesc _td_Object_Boxed__7398 = { (RT0__Struct[]){&RT0__char}, NULL, NULL, &_mid, NULL, 1, 1, (1<<RT0__flagAtomic), RT0__strOpenArray };
37 RT0__StructDesc _td_Object_Boxed__7981 = { (RT0__Struct[]){&RT0__char}, NULL, NULL, &_mid, NULL, 1, 1, (1<<RT0__flagAtomic), RT0__strOpenArray };
38 RT0__StructDesc _td_Object_Boxed__9441 = { (RT0__Struct[]){&RT0__char}, NULL, NULL, &_mid, NULL, 128, 128, (1<<RT0__flagAtomic), RT0__strArray };
39 RT0__StructDesc _td_Object_Boxed__11750 = { (RT0__Struct[]){&RT0__char}, NULL, NULL, &_mid, NULL, 131, 131, (1<<RT0__flagAtomic), RT0__strArray };
40 RT0__StructDesc _td_Object_Boxed__11839 = { (RT0__Struct[]){&RT0__char}, NULL, NULL, &_mid, NULL, 8, 8, (1<<RT0__flagAtomic), RT0__strArray };
41 RT0__StructDesc _td_Object_Boxed__13797 = { (RT0__Struct[]){&RT0__char}, NULL, NULL, &_mid, NULL, 2, 2, (1<<RT0__flagAtomic), RT0__strArray };
42 RT0__StructDesc _td_Object_Boxed__14375 = { (RT0__Struct[]){&RT0__char}, NULL, NULL, &_mid, NULL, 1, 1, (1<<RT0__flagAtomic), RT0__strOpenArray };
43 static RT0__ModuleDesc _mid = { (OOC_CHAR8*)"Object:Boxed", (RT0__Struct[]) { &_td_Object_Boxed__Object, &_td_Object_Boxed__ObjectDesc, &_td_Object_Boxed__Boolean, &_td_Object_Boxed__BooleanDesc, &_td_Object_Boxed__LongInt, &_td_Object_Boxed__LongIntDesc, &_td_Object_Boxed__LongReal, &_td_Object_Boxed__LongRealDesc, &_td_Object_Boxed__Set, &_td_Object_Boxed__SetDesc, &_td_Object_Boxed__String, &_td_Object_Boxed__StringDesc, NULL }, 0 };
44 
OOC_Object_Boxed_open(RT0__Module client)45 extern void OOC_Object_Boxed_open(RT0__Module client) {
46   if (_mid.openCount == 0) {
47     OOC_IntStr_open(&_mid);
48     OOC_RealStr_open(&_mid);
49     OOC_LRealStr_open(&_mid);
50     OOC_Strings_open(&_mid);
51     OOC_HashCode_open(&_mid);
52     OOC_Object_open(&_mid);
53     OOC_IO_open(&_mid);
54     OOC_ADT_Storable_open(&_mid);
55     OOC_ADT_StringBuffer_open(&_mid);
56     OOC_RT0_open(&_mid);
57     OOC_Object_open(&_mid);
58     OOC_Exception_open(&_mid);
59 
60     RT0__RegisterModule(&_mid);
61     OOC_Object_Boxed_init();
62   }
63   _mid.openCount++;
64 }
OOC_Object_Boxed_close(RT0__Module client)65 extern void OOC_Object_Boxed_close(RT0__Module client) {
66   _mid.openCount--;
67   if (_mid.openCount == 0) {
68     OOC_Object_Boxed_destroy();
69     RT0__UnregisterModule(&_mid);
70 
71     OOC_IntStr_close(&_mid);
72     OOC_RealStr_close(&_mid);
73     OOC_LRealStr_close(&_mid);
74     OOC_Strings_close(&_mid);
75     OOC_HashCode_close(&_mid);
76     OOC_Object_close(&_mid);
77     OOC_IO_close(&_mid);
78     OOC_ADT_Storable_close(&_mid);
79     OOC_ADT_StringBuffer_close(&_mid);
80     OOC_RT0_close(&_mid);
81     OOC_Object_close(&_mid);
82     OOC_Exception_close(&_mid);
83   }
84 }
85 
86 /* --- */
87