File: Out.c

package info (click to toggle)
oo2c32 1.5.0-1
  • links: PTS
  • area: main
  • in suites: potato
  • size: 8,748 kB
  • ctags: 5,415
  • sloc: ansic: 95,007; sh: 473; makefile: 344; perl: 57; lisp: 21
file content (171 lines) | stat: -rw-r--r-- 4,875 bytes parent folder | download
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);
}