1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171
|
/* file generated by oo2c -- do not edit */
#include "__oo2c.h"
#include "__libc.h"
#include "Out.d"
static _ModId _mid;
unsigned char Out__Done(void) {
register int i0;
i0 = (int)Out__writer;
i0 = (int)*(void**)i0;
i0 = i0 == 0;
return (unsigned char)i0;
}
void Out__ClearError(void) {
register int i0, i1;
i0 = (int)Out__writer;
i1 = *(int*)(i0-4);
i1 = (int)((_Type)i1)->tbprocs[2];
((void(*)(TextRider__Writer))i1)((TextRider__Writer)i0);
}
void Out__SetWriter(TextRider__Writer w) {
register int i0;
i0 = (int)w == 0;
if (i0) goto l0;
Out__writer = (void*)(int)w;
goto l1;
l0:
i0 = (int)StdChannels__stdout;
i0 = (int)TextRider__ConnectWriter((Channel__Channel)i0);
Out__writer = (void*)i0;
l1:
;
}
void Out__Flush(void) {
register int i0, i1;
i0 = (int)Out__writer;
i0 += 12;
i0 = (int)*(void**)i0;
i1 = *(int*)(i0-4);
i1 = (int)((_Type)i1)->tbprocs[4];
((void(*)(Channel__Channel))i1)((Channel__Channel)i0);
}
void Out__Char(unsigned char ch) {
register int i0, i1;
i0 = (int)Out__writer;
i1 = *(int*)(i0-4);
i1 = (int)((_Type)i1)->tbprocs[7];
((void(*)(TextRider__Writer, unsigned char))i1)((TextRider__Writer)i0, (unsigned char)(int)ch);
}
void Out__String(const unsigned char* s, int s_0d) {
register int i0, i1;
i0 = (int)Out__writer;
i1 = *(int*)(i0-4);
i1 = (int)((_Type)i1)->tbprocs[5];
((void(*)(TextRider__Writer, const unsigned char*, int s_0d))i1)((TextRider__Writer)i0, (const unsigned char*)(int)s, s_0d);
}
void Out__Bool(unsigned char bool_) {
register int i0, i1;
i0 = (int)Out__writer;
i1 = *(int*)(i0-4);
i1 = (int)((_Type)i1)->tbprocs[6];
((void(*)(TextRider__Writer, unsigned char))i1)((TextRider__Writer)i0, (unsigned char)bool_);
}
void Out__LongInt(int lint, int n) {
register int i0, i1;
i0 = (int)Out__writer;
i1 = *(int*)(i0-4);
i1 = (int)((_Type)i1)->tbprocs[8];
((void(*)(TextRider__Writer, int, int))i1)((TextRider__Writer)i0, (int)lint, (int)n);
}
void Out__ShortInt(signed char sint, int n) {
register int i0, i1;
i0 = (int)Out__writer;
i1 = *(int*)(i0-4);
i1 = (int)((_Type)i1)->tbprocs[9];
((void(*)(TextRider__Writer, signed char, int))i1)((TextRider__Writer)i0, (signed char)sint, (int)n);
}
void Out__Int(short int int_, int n) {
register int i0, i1;
i0 = (int)Out__writer;
i1 = *(int*)(i0-4);
i1 = (int)((_Type)i1)->tbprocs[10];
((void(*)(TextRider__Writer, short int, int))i1)((TextRider__Writer)i0, (short int)int_, (int)n);
}
void Out__Hex(int lint, int n) {
register int i0, i1;
i0 = (int)Out__writer;
i1 = *(int*)(i0-4);
i1 = (int)((_Type)i1)->tbprocs[11];
((void(*)(TextRider__Writer, int, int))i1)((TextRider__Writer)i0, (int)lint, (int)n);
}
void Out__LongReal(double lreal, int n, int k) {
register int i0, i1;
i0 = (int)Out__writer;
i1 = *(int*)(i0-4);
i1 = (int)((_Type)i1)->tbprocs[12];
((void(*)(TextRider__Writer, double, int, int))i1)((TextRider__Writer)i0, (double)lreal, (int)n, (int)k);
}
void Out__Real(float real, int n, int k) {
register int i0, i1;
i0 = (int)Out__writer;
i1 = *(int*)(i0-4);
i1 = (int)((_Type)i1)->tbprocs[13];
((void(*)(TextRider__Writer, float, int, int))i1)((TextRider__Writer)i0, (float)real, (int)n, (int)k);
}
void Out__LongRealFix(double lreal, int n, int k) {
register int i0, i1;
i0 = (int)Out__writer;
i1 = *(int*)(i0-4);
i1 = (int)((_Type)i1)->tbprocs[14];
((void(*)(TextRider__Writer, double *, int, int))i1)((TextRider__Writer)i0, (double *)(int)&lreal, (int)n, (int)k);
}
void Out__RealFix(float real, int n, int k) {
register int i0, i1;
i0 = (int)Out__writer;
i1 = *(int*)(i0-4);
i1 = (int)((_Type)i1)->tbprocs[15];
((void(*)(TextRider__Writer, float, int, int))i1)((TextRider__Writer)i0, (float)real, (int)n, (int)k);
}
void Out__LongRealEng(double lreal, int n, int k) {
register int i0, i1;
i0 = (int)Out__writer;
i1 = *(int*)(i0-4);
i1 = (int)((_Type)i1)->tbprocs[16];
((void(*)(TextRider__Writer, double *, int, int))i1)((TextRider__Writer)i0, (double *)(int)&lreal, (int)n, (int)k);
}
void Out__RealEng(float real, int n, int k) {
register int i0, i1;
i0 = (int)Out__writer;
i1 = *(int*)(i0-4);
i1 = (int)((_Type)i1)->tbprocs[17];
((void(*)(TextRider__Writer, float, int, int))i1)((TextRider__Writer)i0, (float)real, (int)n, (int)k);
}
void Out__Set(unsigned int s) {
register int i0, i1;
i0 = (int)Out__writer;
i1 = *(int*)(i0-4);
i1 = (int)((_Type)i1)->tbprocs[18];
((void(*)(TextRider__Writer, unsigned int))i1)((TextRider__Writer)i0, (unsigned int)s);
}
void Out__Ln(void) {
register int i0, i1;
i0 = (int)Out__writer;
i1 = *(int*)(i0-4);
i1 = (int)((_Type)i1)->tbprocs[19];
((void(*)(TextRider__Writer))i1)((TextRider__Writer)i0);
}
void Out_init(void) {
_mid = _register_module(&Out_md.md, NULL);
Out__SetWriter((TextRider__Writer)0);
}
|