mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-06 09:52:24 +00:00
Moving to config independent types stage 1 - generate intxx types.
This commit is contained in:
David Brown
parent
159f5a3d80
commit
ee8342ef0d
168 changed files with 6673 additions and 6565 deletions
|
|
@ -13,9 +13,9 @@ typedef
|
|||
typedef
|
||||
struct Texts_RunDesc {
|
||||
Texts_Run prev, next;
|
||||
LONGINT len;
|
||||
int32 len;
|
||||
Texts_FontsFont fnt;
|
||||
SHORTINT col, voff;
|
||||
int8 col, voff;
|
||||
BOOLEAN ascii;
|
||||
} Texts_RunDesc;
|
||||
|
||||
|
|
@ -36,26 +36,26 @@ typedef
|
|||
typedef
|
||||
struct Texts_ElemDesc {
|
||||
Texts_Run prev, next;
|
||||
LONGINT len;
|
||||
int32 len;
|
||||
Texts_FontsFont fnt;
|
||||
SHORTINT col, voff;
|
||||
int8 col, voff;
|
||||
BOOLEAN ascii;
|
||||
LONGINT W, H;
|
||||
int32 W, H;
|
||||
Texts_Handler handle;
|
||||
Texts_Text base;
|
||||
} Texts_ElemDesc;
|
||||
|
||||
struct Texts__1 { /* Texts_ElemDesc */
|
||||
Texts_Run prev, next;
|
||||
LONGINT len;
|
||||
int32 len;
|
||||
Texts_FontsFont fnt;
|
||||
SHORTINT col, voff;
|
||||
int8 col, voff;
|
||||
BOOLEAN ascii;
|
||||
LONGINT W, H;
|
||||
int32 W, H;
|
||||
Texts_Handler handle;
|
||||
Texts_Text base;
|
||||
Files_File file;
|
||||
LONGINT org, span;
|
||||
int32 org, span;
|
||||
CHAR mod[32], proc[32];
|
||||
};
|
||||
|
||||
|
|
@ -64,7 +64,7 @@ typedef
|
|||
|
||||
typedef
|
||||
struct Texts_BufDesc {
|
||||
LONGINT len;
|
||||
int32 len;
|
||||
Texts_Run head;
|
||||
} Texts_BufDesc;
|
||||
|
||||
|
|
@ -78,8 +78,8 @@ typedef
|
|||
|
||||
typedef
|
||||
struct Texts_FileMsg { /* Texts_ElemMsg */
|
||||
INTEGER id;
|
||||
LONGINT pos;
|
||||
int16 id;
|
||||
int32 pos;
|
||||
Files_Rider r;
|
||||
} Texts_FileMsg;
|
||||
|
||||
|
|
@ -94,7 +94,7 @@ typedef
|
|||
} Texts_IdentifyMsg;
|
||||
|
||||
typedef
|
||||
void (*Texts_Notifier)(Texts_Text, INTEGER, LONGINT, LONGINT);
|
||||
void (*Texts_Notifier)(Texts_Text, int16, int32, int32);
|
||||
|
||||
typedef
|
||||
struct Texts_PieceDesc *Texts_Piece;
|
||||
|
|
@ -102,57 +102,57 @@ typedef
|
|||
typedef
|
||||
struct Texts_PieceDesc {
|
||||
Texts_Run prev, next;
|
||||
LONGINT len;
|
||||
int32 len;
|
||||
Texts_FontsFont fnt;
|
||||
SHORTINT col, voff;
|
||||
int8 col, voff;
|
||||
BOOLEAN ascii;
|
||||
Files_File file;
|
||||
LONGINT org;
|
||||
int32 org;
|
||||
} Texts_PieceDesc;
|
||||
|
||||
typedef
|
||||
struct Texts_Reader {
|
||||
BOOLEAN eot;
|
||||
Texts_FontsFont fnt;
|
||||
SHORTINT col, voff;
|
||||
int8 col, voff;
|
||||
Texts_Elem elem;
|
||||
Files_Rider rider;
|
||||
Texts_Run run;
|
||||
LONGINT org, off;
|
||||
int32 org, off;
|
||||
} Texts_Reader;
|
||||
|
||||
typedef
|
||||
struct Texts_Scanner { /* Texts_Reader */
|
||||
BOOLEAN eot;
|
||||
Texts_FontsFont fnt;
|
||||
SHORTINT col, voff;
|
||||
int8 col, voff;
|
||||
Texts_Elem elem;
|
||||
Files_Rider rider;
|
||||
Texts_Run run;
|
||||
LONGINT org, off;
|
||||
int32 org, off;
|
||||
CHAR nextCh;
|
||||
INTEGER line, class;
|
||||
LONGINT i;
|
||||
int16 line, class;
|
||||
int32 i;
|
||||
REAL x;
|
||||
LONGREAL y;
|
||||
CHAR c;
|
||||
SHORTINT len;
|
||||
int8 len;
|
||||
CHAR s[64];
|
||||
} Texts_Scanner;
|
||||
|
||||
typedef
|
||||
struct Texts_TextDesc {
|
||||
LONGINT len;
|
||||
int32 len;
|
||||
Texts_Notifier notify;
|
||||
Texts_Run head, cache;
|
||||
LONGINT corg;
|
||||
int32 corg;
|
||||
} Texts_TextDesc;
|
||||
|
||||
typedef
|
||||
struct Texts_Writer {
|
||||
Texts_Buffer buf;
|
||||
Texts_FontsFont fnt;
|
||||
SHORTINT col, voff;
|
||||
int8 col, voff;
|
||||
Files_Rider rider;
|
||||
Files_File file;
|
||||
} Texts_Writer;
|
||||
|
|
@ -178,50 +178,50 @@ export LONGINT *Texts_Writer__typ;
|
|||
export LONGINT *Texts__1__typ;
|
||||
|
||||
export void Texts_Append (Texts_Text T, Texts_Buffer B);
|
||||
export void Texts_ChangeLooks (Texts_Text T, LONGINT beg, LONGINT end, SET sel, Texts_FontsFont fnt, SHORTINT col, SHORTINT voff);
|
||||
export void Texts_ChangeLooks (Texts_Text T, int32 beg, int32 end, SET sel, Texts_FontsFont fnt, int8 col, int8 voff);
|
||||
static Texts_Elem Texts_CloneElem (Texts_Elem e);
|
||||
static Texts_Piece Texts_ClonePiece (Texts_Piece p);
|
||||
export void Texts_Close (Texts_Text T, CHAR *name, LONGINT name__len);
|
||||
export void Texts_Copy (Texts_Buffer SB, Texts_Buffer DB);
|
||||
export void Texts_CopyElem (Texts_Elem SE, Texts_Elem DE);
|
||||
export void Texts_Delete (Texts_Text T, LONGINT beg, LONGINT end);
|
||||
export void Texts_Delete (Texts_Text T, int32 beg, int32 end);
|
||||
export Texts_Text Texts_ElemBase (Texts_Elem E);
|
||||
export LONGINT Texts_ElemPos (Texts_Elem E);
|
||||
static void Texts_Find (Texts_Text T, LONGINT *pos, Texts_Run *u, LONGINT *org, LONGINT *off);
|
||||
export int32 Texts_ElemPos (Texts_Elem E);
|
||||
static void Texts_Find (Texts_Text T, int32 *pos, Texts_Run *u, int32 *org, int32 *off);
|
||||
static Texts_FontsFont Texts_FontsThis (CHAR *name, LONGINT name__len);
|
||||
static void Texts_HandleAlien (Texts_Elem E, Texts_ElemMsg *msg, LONGINT *msg__typ);
|
||||
export void Texts_Insert (Texts_Text T, LONGINT pos, Texts_Buffer B);
|
||||
export void Texts_Insert (Texts_Text T, int32 pos, Texts_Buffer B);
|
||||
export void Texts_Load (Files_Rider *r, LONGINT *r__typ, Texts_Text T);
|
||||
static void Texts_Load0 (Files_Rider *r, LONGINT *r__typ, Texts_Text T);
|
||||
static void Texts_Merge (Texts_Text T, Texts_Run u, Texts_Run *v);
|
||||
export void Texts_Open (Texts_Text T, CHAR *name, LONGINT name__len);
|
||||
export void Texts_OpenBuf (Texts_Buffer B);
|
||||
export void Texts_OpenReader (Texts_Reader *R, LONGINT *R__typ, Texts_Text T, LONGINT pos);
|
||||
export void Texts_OpenScanner (Texts_Scanner *S, LONGINT *S__typ, Texts_Text T, LONGINT pos);
|
||||
export void Texts_OpenReader (Texts_Reader *R, LONGINT *R__typ, Texts_Text T, int32 pos);
|
||||
export void Texts_OpenScanner (Texts_Scanner *S, LONGINT *S__typ, Texts_Text T, int32 pos);
|
||||
export void Texts_OpenWriter (Texts_Writer *W, LONGINT *W__typ);
|
||||
export LONGINT Texts_Pos (Texts_Reader *R, LONGINT *R__typ);
|
||||
export int32 Texts_Pos (Texts_Reader *R, LONGINT *R__typ);
|
||||
export void Texts_Read (Texts_Reader *R, LONGINT *R__typ, CHAR *ch);
|
||||
export void Texts_ReadElem (Texts_Reader *R, LONGINT *R__typ);
|
||||
export void Texts_ReadPrevElem (Texts_Reader *R, LONGINT *R__typ);
|
||||
export void Texts_Recall (Texts_Buffer *B);
|
||||
export void Texts_Save (Texts_Text T, LONGINT beg, LONGINT end, Texts_Buffer B);
|
||||
export void Texts_Save (Texts_Text T, int32 beg, int32 end, Texts_Buffer B);
|
||||
export void Texts_Scan (Texts_Scanner *S, LONGINT *S__typ);
|
||||
export void Texts_SetColor (Texts_Writer *W, LONGINT *W__typ, SHORTINT col);
|
||||
export void Texts_SetColor (Texts_Writer *W, LONGINT *W__typ, int8 col);
|
||||
export void Texts_SetFont (Texts_Writer *W, LONGINT *W__typ, Texts_FontsFont fnt);
|
||||
export void Texts_SetOffset (Texts_Writer *W, LONGINT *W__typ, SHORTINT voff);
|
||||
export void Texts_SetOffset (Texts_Writer *W, LONGINT *W__typ, int8 voff);
|
||||
static void Texts_Splice (Texts_Run un, Texts_Run v, Texts_Run w, Texts_Text base);
|
||||
static void Texts_Split (LONGINT off, Texts_Run *u, Texts_Run *un);
|
||||
static void Texts_Split (int32 off, Texts_Run *u, Texts_Run *un);
|
||||
export void Texts_Store (Files_Rider *r, LONGINT *r__typ, Texts_Text T);
|
||||
export void Texts_Write (Texts_Writer *W, LONGINT *W__typ, CHAR ch);
|
||||
export void Texts_WriteDate (Texts_Writer *W, LONGINT *W__typ, LONGINT t, LONGINT d);
|
||||
export void Texts_WriteDate (Texts_Writer *W, LONGINT *W__typ, int32 t, int32 d);
|
||||
export void Texts_WriteElem (Texts_Writer *W, LONGINT *W__typ, Texts_Elem e);
|
||||
export void Texts_WriteHex (Texts_Writer *W, LONGINT *W__typ, LONGINT x);
|
||||
export void Texts_WriteInt (Texts_Writer *W, LONGINT *W__typ, LONGINT x, LONGINT n);
|
||||
export void Texts_WriteHex (Texts_Writer *W, LONGINT *W__typ, int32 x);
|
||||
export void Texts_WriteInt (Texts_Writer *W, LONGINT *W__typ, int32 x, int32 n);
|
||||
export void Texts_WriteLn (Texts_Writer *W, LONGINT *W__typ);
|
||||
export void Texts_WriteLongReal (Texts_Writer *W, LONGINT *W__typ, LONGREAL x, INTEGER n);
|
||||
export void Texts_WriteLongReal (Texts_Writer *W, LONGINT *W__typ, LONGREAL x, int16 n);
|
||||
export void Texts_WriteLongRealHex (Texts_Writer *W, LONGINT *W__typ, LONGREAL x);
|
||||
export void Texts_WriteReal (Texts_Writer *W, LONGINT *W__typ, REAL x, INTEGER n);
|
||||
export void Texts_WriteRealFix (Texts_Writer *W, LONGINT *W__typ, REAL x, INTEGER n, INTEGER k);
|
||||
export void Texts_WriteReal (Texts_Writer *W, LONGINT *W__typ, REAL x, int16 n);
|
||||
export void Texts_WriteRealFix (Texts_Writer *W, LONGINT *W__typ, REAL x, int16 n, int16 k);
|
||||
export void Texts_WriteRealHex (Texts_Writer *W, LONGINT *W__typ, REAL x);
|
||||
export void Texts_WriteString (Texts_Writer *W, LONGINT *W__typ, CHAR *s, LONGINT s__len);
|
||||
|
||||
|
|
@ -236,10 +236,10 @@ static Texts_FontsFont Texts_FontsThis (CHAR *name, LONGINT name__len)
|
|||
return _o_result;
|
||||
}
|
||||
|
||||
static void Texts_Find (Texts_Text T, LONGINT *pos, Texts_Run *u, LONGINT *org, LONGINT *off)
|
||||
static void Texts_Find (Texts_Text T, int32 *pos, Texts_Run *u, int32 *org, int32 *off)
|
||||
{
|
||||
Texts_Run v = NIL;
|
||||
LONGINT m;
|
||||
int32 m;
|
||||
if (*pos >= T->len) {
|
||||
*pos = T->len;
|
||||
*u = T->head;
|
||||
|
|
@ -269,7 +269,7 @@ static void Texts_Find (Texts_Text T, LONGINT *pos, Texts_Run *u, LONGINT *org,
|
|||
}
|
||||
}
|
||||
|
||||
static void Texts_Split (LONGINT off, Texts_Run *u, Texts_Run *un)
|
||||
static void Texts_Split (int32 off, Texts_Run *u, Texts_Run *un)
|
||||
{
|
||||
Texts_Piece p = NIL, U = NIL;
|
||||
if (off == 0) {
|
||||
|
|
@ -368,11 +368,11 @@ Texts_Text Texts_ElemBase (Texts_Elem E)
|
|||
return _o_result;
|
||||
}
|
||||
|
||||
LONGINT Texts_ElemPos (Texts_Elem E)
|
||||
int32 Texts_ElemPos (Texts_Elem E)
|
||||
{
|
||||
LONGINT _o_result;
|
||||
int32 _o_result;
|
||||
Texts_Run u = NIL;
|
||||
LONGINT pos;
|
||||
int32 pos;
|
||||
u = E->base->head->next;
|
||||
pos = 0;
|
||||
while (u != (void *) E) {
|
||||
|
|
@ -387,7 +387,7 @@ static void Texts_HandleAlien (Texts_Elem E, Texts_ElemMsg *msg, LONGINT *msg__t
|
|||
{
|
||||
Texts_Alien e = NIL;
|
||||
Files_Rider r;
|
||||
LONGINT i;
|
||||
int32 i;
|
||||
CHAR ch;
|
||||
if (__ISP(E, Texts__1, 2)) {
|
||||
if (__IS(msg__typ, Texts_CopyMsg, 1)) {
|
||||
|
|
@ -463,10 +463,10 @@ void Texts_Recall (Texts_Buffer *B)
|
|||
Texts_del = NIL;
|
||||
}
|
||||
|
||||
void Texts_Save (Texts_Text T, LONGINT beg, LONGINT end, Texts_Buffer B)
|
||||
void Texts_Save (Texts_Text T, int32 beg, int32 end, Texts_Buffer B)
|
||||
{
|
||||
Texts_Run u = NIL, v = NIL, w = NIL, wn = NIL;
|
||||
LONGINT uo, ud, vo, vd;
|
||||
int32 uo, ud, vo, vd;
|
||||
Texts_Find(T, &beg, &u, &uo, &ud);
|
||||
Texts_Find(T, &end, &v, &vo, &vd);
|
||||
w = B->head->prev;
|
||||
|
|
@ -497,11 +497,11 @@ void Texts_Save (Texts_Text T, LONGINT beg, LONGINT end, Texts_Buffer B)
|
|||
B->len += end - beg;
|
||||
}
|
||||
|
||||
void Texts_Insert (Texts_Text T, LONGINT pos, Texts_Buffer B)
|
||||
void Texts_Insert (Texts_Text T, int32 pos, Texts_Buffer B)
|
||||
{
|
||||
Texts_Run u = NIL, un = NIL, v = NIL;
|
||||
Texts_Piece p = NIL, q = NIL;
|
||||
LONGINT uo, ud, len;
|
||||
int32 uo, ud, len;
|
||||
Texts_Find(T, &pos, &u, &uo, &ud);
|
||||
Texts_Split(ud, &u, &un);
|
||||
len = B->len;
|
||||
|
|
@ -520,7 +520,7 @@ void Texts_Insert (Texts_Text T, LONGINT pos, Texts_Buffer B)
|
|||
void Texts_Append (Texts_Text T, Texts_Buffer B)
|
||||
{
|
||||
Texts_Run v = NIL;
|
||||
LONGINT pos, len;
|
||||
int32 pos, len;
|
||||
pos = T->len;
|
||||
len = B->len;
|
||||
v = B->head->next;
|
||||
|
|
@ -535,10 +535,10 @@ void Texts_Append (Texts_Text T, Texts_Buffer B)
|
|||
}
|
||||
}
|
||||
|
||||
void Texts_Delete (Texts_Text T, LONGINT beg, LONGINT end)
|
||||
void Texts_Delete (Texts_Text T, int32 beg, int32 end)
|
||||
{
|
||||
Texts_Run c = NIL, u = NIL, un = NIL, v = NIL, vn = NIL;
|
||||
LONGINT co, uo, ud, vo, vd;
|
||||
int32 co, uo, ud, vo, vd;
|
||||
Texts_Find(T, &beg, &u, &uo, &ud);
|
||||
Texts_Split(ud, &u, &un);
|
||||
c = T->cache;
|
||||
|
|
@ -560,10 +560,10 @@ void Texts_Delete (Texts_Text T, LONGINT beg, LONGINT end)
|
|||
}
|
||||
}
|
||||
|
||||
void Texts_ChangeLooks (Texts_Text T, LONGINT beg, LONGINT end, SET sel, Texts_FontsFont fnt, SHORTINT col, SHORTINT voff)
|
||||
void Texts_ChangeLooks (Texts_Text T, int32 beg, int32 end, SET sel, Texts_FontsFont fnt, int8 col, int8 voff)
|
||||
{
|
||||
Texts_Run c = NIL, u = NIL, un = NIL, v = NIL, vn = NIL;
|
||||
LONGINT co, uo, ud, vo, vd;
|
||||
int32 co, uo, ud, vo, vd;
|
||||
Texts_Find(T, &beg, &u, &uo, &ud);
|
||||
Texts_Split(ud, &u, &un);
|
||||
c = T->cache;
|
||||
|
|
@ -599,7 +599,7 @@ void Texts_ChangeLooks (Texts_Text T, LONGINT beg, LONGINT end, SET sel, Texts_F
|
|||
}
|
||||
}
|
||||
|
||||
void Texts_OpenReader (Texts_Reader *R, LONGINT *R__typ, Texts_Text T, LONGINT pos)
|
||||
void Texts_OpenReader (Texts_Reader *R, LONGINT *R__typ, Texts_Text T, int32 pos)
|
||||
{
|
||||
Texts_Run u = NIL;
|
||||
if (pos >= T->len) {
|
||||
|
|
@ -616,7 +616,7 @@ void Texts_OpenReader (Texts_Reader *R, LONGINT *R__typ, Texts_Text T, LONGINT p
|
|||
void Texts_Read (Texts_Reader *R, LONGINT *R__typ, CHAR *ch)
|
||||
{
|
||||
Texts_Run u = NIL;
|
||||
LONGINT pos;
|
||||
int32 pos;
|
||||
CHAR nextch;
|
||||
u = (*R).run;
|
||||
(*R).fnt = u->fnt;
|
||||
|
|
@ -708,14 +708,14 @@ void Texts_ReadPrevElem (Texts_Reader *R, LONGINT *R__typ)
|
|||
}
|
||||
}
|
||||
|
||||
LONGINT Texts_Pos (Texts_Reader *R, LONGINT *R__typ)
|
||||
int32 Texts_Pos (Texts_Reader *R, LONGINT *R__typ)
|
||||
{
|
||||
LONGINT _o_result;
|
||||
int32 _o_result;
|
||||
_o_result = (*R).org + (*R).off;
|
||||
return _o_result;
|
||||
}
|
||||
|
||||
void Texts_OpenScanner (Texts_Scanner *S, LONGINT *S__typ, Texts_Text T, LONGINT pos)
|
||||
void Texts_OpenScanner (Texts_Scanner *S, LONGINT *S__typ, Texts_Text T, int32 pos)
|
||||
{
|
||||
Texts_OpenReader((void*)&*S, S__typ, T, pos);
|
||||
(*S).line = 0;
|
||||
|
|
@ -727,7 +727,7 @@ static struct Scan__31 {
|
|||
LONGINT *S__typ;
|
||||
CHAR *ch;
|
||||
BOOLEAN *negE;
|
||||
INTEGER *e;
|
||||
int16 *e;
|
||||
struct Scan__31 *lnk;
|
||||
} *Scan__31_s;
|
||||
|
||||
|
|
@ -746,7 +746,7 @@ static void ReadScaleFactor__32 (void)
|
|||
}
|
||||
}
|
||||
while (('0' <= *Scan__31_s->ch && *Scan__31_s->ch <= '9')) {
|
||||
*Scan__31_s->e = (*Scan__31_s->e * 10 + (SYSTEM_INT16)*Scan__31_s->ch) - 48;
|
||||
*Scan__31_s->e = (*Scan__31_s->e * 10 + (int16)*Scan__31_s->ch) - 48;
|
||||
Texts_Read((void*)&*Scan__31_s->S, Scan__31_s->S__typ, &*Scan__31_s->ch);
|
||||
}
|
||||
}
|
||||
|
|
@ -755,9 +755,9 @@ void Texts_Scan (Texts_Scanner *S, LONGINT *S__typ)
|
|||
{
|
||||
CHAR ch, term;
|
||||
BOOLEAN neg, negE, hex;
|
||||
SHORTINT i, j, h;
|
||||
INTEGER e;
|
||||
LONGINT k;
|
||||
int8 i, j, h;
|
||||
int16 e;
|
||||
int32 k;
|
||||
REAL x, f;
|
||||
LONGREAL y, g;
|
||||
CHAR d[32];
|
||||
|
|
@ -818,10 +818,10 @@ void Texts_Scan (Texts_Scanner *S, LONGINT *S__typ)
|
|||
if ('9' < ch) {
|
||||
if (('A' <= ch && ch <= 'F')) {
|
||||
hex = 1;
|
||||
ch = (CHAR)((SYSTEM_INT16)ch - 7);
|
||||
ch = (CHAR)((int16)ch - 7);
|
||||
} else if (('a' <= ch && ch <= 'f')) {
|
||||
hex = 1;
|
||||
ch = (CHAR)((SYSTEM_INT16)ch - 39);
|
||||
ch = (CHAR)((int16)ch - 39);
|
||||
} else {
|
||||
break;
|
||||
}
|
||||
|
|
@ -833,13 +833,13 @@ void Texts_Scan (Texts_Scanner *S, LONGINT *S__typ)
|
|||
if (i - j > 8) {
|
||||
j = i - 8;
|
||||
}
|
||||
k = (SYSTEM_INT16)d[__X(j, 32)] - 48;
|
||||
k = (int16)d[__X(j, 32)] - 48;
|
||||
j += 1;
|
||||
if ((i - j == 7 && k >= 8)) {
|
||||
k -= 16;
|
||||
}
|
||||
while (j < i) {
|
||||
k = __ASHL(k, 4) + ((SYSTEM_INT16)d[__X(j, 32)] - 48);
|
||||
k = __ASHL(k, 4) + ((int16)d[__X(j, 32)] - 48);
|
||||
j += 1;
|
||||
}
|
||||
if (neg) {
|
||||
|
|
@ -860,12 +860,12 @@ void Texts_Scan (Texts_Scanner *S, LONGINT *S__typ)
|
|||
y = (LONGREAL)0;
|
||||
g = (LONGREAL)1;
|
||||
do {
|
||||
y = y * (LONGREAL)10 + ((SYSTEM_INT16)d[__X(j, 32)] - 48);
|
||||
y = y * (LONGREAL)10 + ((int16)d[__X(j, 32)] - 48);
|
||||
j += 1;
|
||||
} while (!(j == h));
|
||||
while (j < i) {
|
||||
g = g / (LONGREAL)(LONGREAL)10;
|
||||
y = ((SYSTEM_INT16)d[__X(j, 32)] - 48) * g + y;
|
||||
y = ((int16)d[__X(j, 32)] - 48) * g + y;
|
||||
j += 1;
|
||||
}
|
||||
ReadScaleFactor__32();
|
||||
|
|
@ -892,12 +892,12 @@ void Texts_Scan (Texts_Scanner *S, LONGINT *S__typ)
|
|||
x = (REAL)0;
|
||||
f = (REAL)1;
|
||||
do {
|
||||
x = x * (REAL)10 + ((SYSTEM_INT16)d[__X(j, 32)] - 48);
|
||||
x = x * (REAL)10 + ((int16)d[__X(j, 32)] - 48);
|
||||
j += 1;
|
||||
} while (!(j == h));
|
||||
while (j < i) {
|
||||
f = f / (REAL)(REAL)10;
|
||||
x = ((SYSTEM_INT16)d[__X(j, 32)] - 48) * f + x;
|
||||
x = ((int16)d[__X(j, 32)] - 48) * f + x;
|
||||
j += 1;
|
||||
}
|
||||
if (ch == 'E') {
|
||||
|
|
@ -929,7 +929,7 @@ void Texts_Scan (Texts_Scanner *S, LONGINT *S__typ)
|
|||
(*S).class = 3;
|
||||
k = 0;
|
||||
do {
|
||||
k = k * 10 + ((SYSTEM_INT16)d[__X(j, 32)] - 48);
|
||||
k = k * 10 + ((int16)d[__X(j, 32)] - 48);
|
||||
j += 1;
|
||||
} while (!(j == i));
|
||||
if (neg) {
|
||||
|
|
@ -973,12 +973,12 @@ void Texts_SetFont (Texts_Writer *W, LONGINT *W__typ, Texts_FontsFont fnt)
|
|||
(*W).fnt = fnt;
|
||||
}
|
||||
|
||||
void Texts_SetColor (Texts_Writer *W, LONGINT *W__typ, SHORTINT col)
|
||||
void Texts_SetColor (Texts_Writer *W, LONGINT *W__typ, int8 col)
|
||||
{
|
||||
(*W).col = col;
|
||||
}
|
||||
|
||||
void Texts_SetOffset (Texts_Writer *W, LONGINT *W__typ, SHORTINT voff)
|
||||
void Texts_SetOffset (Texts_Writer *W, LONGINT *W__typ, int8 voff)
|
||||
{
|
||||
(*W).voff = voff;
|
||||
}
|
||||
|
|
@ -1035,7 +1035,7 @@ void Texts_WriteLn (Texts_Writer *W, LONGINT *W__typ)
|
|||
|
||||
void Texts_WriteString (Texts_Writer *W, LONGINT *W__typ, CHAR *s, LONGINT s__len)
|
||||
{
|
||||
INTEGER i;
|
||||
int16 i;
|
||||
__DUP(s, s__len, CHAR);
|
||||
i = 0;
|
||||
while (s[__X(i, s__len)] >= ' ') {
|
||||
|
|
@ -1045,10 +1045,10 @@ void Texts_WriteString (Texts_Writer *W, LONGINT *W__typ, CHAR *s, LONGINT s__le
|
|||
__DEL(s);
|
||||
}
|
||||
|
||||
void Texts_WriteInt (Texts_Writer *W, LONGINT *W__typ, LONGINT x, LONGINT n)
|
||||
void Texts_WriteInt (Texts_Writer *W, LONGINT *W__typ, int32 x, int32 n)
|
||||
{
|
||||
INTEGER i;
|
||||
LONGINT x0;
|
||||
int16 i;
|
||||
int32 x0;
|
||||
CHAR a[22];
|
||||
i = 0;
|
||||
if (x < 0) {
|
||||
|
|
@ -1080,10 +1080,10 @@ void Texts_WriteInt (Texts_Writer *W, LONGINT *W__typ, LONGINT x, LONGINT n)
|
|||
} while (!(i == 0));
|
||||
}
|
||||
|
||||
void Texts_WriteHex (Texts_Writer *W, LONGINT *W__typ, LONGINT x)
|
||||
void Texts_WriteHex (Texts_Writer *W, LONGINT *W__typ, int32 x)
|
||||
{
|
||||
INTEGER i;
|
||||
LONGINT y;
|
||||
int16 i;
|
||||
int32 y;
|
||||
CHAR a[20];
|
||||
i = 0;
|
||||
Texts_Write(&*W, W__typ, ' ');
|
||||
|
|
@ -1103,9 +1103,9 @@ void Texts_WriteHex (Texts_Writer *W, LONGINT *W__typ, LONGINT x)
|
|||
} while (!(i == 0));
|
||||
}
|
||||
|
||||
void Texts_WriteReal (Texts_Writer *W, LONGINT *W__typ, REAL x, INTEGER n)
|
||||
void Texts_WriteReal (Texts_Writer *W, LONGINT *W__typ, REAL x, int16 n)
|
||||
{
|
||||
INTEGER e;
|
||||
int16 e;
|
||||
REAL x0;
|
||||
CHAR d[9];
|
||||
e = Reals_Expo(x);
|
||||
|
|
@ -1176,15 +1176,15 @@ void Texts_WriteReal (Texts_Writer *W, LONGINT *W__typ, REAL x, INTEGER n)
|
|||
static struct WriteRealFix__53 {
|
||||
Texts_Writer *W;
|
||||
LONGINT *W__typ;
|
||||
INTEGER *i;
|
||||
int16 *i;
|
||||
CHAR (*d)[9];
|
||||
struct WriteRealFix__53 *lnk;
|
||||
} *WriteRealFix__53_s;
|
||||
|
||||
static void dig__54 (INTEGER n);
|
||||
static void seq__56 (CHAR ch, INTEGER n);
|
||||
static void dig__54 (int16 n);
|
||||
static void seq__56 (CHAR ch, int16 n);
|
||||
|
||||
static void seq__56 (CHAR ch, INTEGER n)
|
||||
static void seq__56 (CHAR ch, int16 n)
|
||||
{
|
||||
while (n > 0) {
|
||||
Texts_Write(&*WriteRealFix__53_s->W, WriteRealFix__53_s->W__typ, ch);
|
||||
|
|
@ -1192,7 +1192,7 @@ static void seq__56 (CHAR ch, INTEGER n)
|
|||
}
|
||||
}
|
||||
|
||||
static void dig__54 (INTEGER n)
|
||||
static void dig__54 (int16 n)
|
||||
{
|
||||
while (n > 0) {
|
||||
*WriteRealFix__53_s->i -= 1;
|
||||
|
|
@ -1201,9 +1201,9 @@ static void dig__54 (INTEGER n)
|
|||
}
|
||||
}
|
||||
|
||||
void Texts_WriteRealFix (Texts_Writer *W, LONGINT *W__typ, REAL x, INTEGER n, INTEGER k)
|
||||
void Texts_WriteRealFix (Texts_Writer *W, LONGINT *W__typ, REAL x, int16 n, int16 k)
|
||||
{
|
||||
INTEGER e, i;
|
||||
int16 e, i;
|
||||
CHAR sign;
|
||||
REAL x0;
|
||||
CHAR d[9];
|
||||
|
|
@ -1275,7 +1275,7 @@ void Texts_WriteRealFix (Texts_Writer *W, LONGINT *W__typ, REAL x, INTEGER n, IN
|
|||
|
||||
void Texts_WriteRealHex (Texts_Writer *W, LONGINT *W__typ, REAL x)
|
||||
{
|
||||
INTEGER i;
|
||||
int16 i;
|
||||
CHAR d[8];
|
||||
Reals_ConvertH(x, (void*)d, 8);
|
||||
i = 0;
|
||||
|
|
@ -1285,9 +1285,9 @@ void Texts_WriteRealHex (Texts_Writer *W, LONGINT *W__typ, REAL x)
|
|||
} while (!(i == 8));
|
||||
}
|
||||
|
||||
void Texts_WriteLongReal (Texts_Writer *W, LONGINT *W__typ, LONGREAL x, INTEGER n)
|
||||
void Texts_WriteLongReal (Texts_Writer *W, LONGINT *W__typ, LONGREAL x, int16 n)
|
||||
{
|
||||
INTEGER e;
|
||||
int16 e;
|
||||
LONGREAL x0;
|
||||
CHAR d[16];
|
||||
e = Reals_ExpoL(x);
|
||||
|
|
@ -1319,7 +1319,7 @@ void Texts_WriteLongReal (Texts_Writer *W, LONGINT *W__typ, LONGREAL x, INTEGER
|
|||
} else {
|
||||
Texts_Write(&*W, W__typ, ' ');
|
||||
}
|
||||
e = (SYSTEM_INT16)__ASHR((e - 1023) * 77, 8);
|
||||
e = (int16)__ASHR((e - 1023) * 77, 8);
|
||||
if (e >= 0) {
|
||||
x = x / (LONGREAL)Reals_TenL(e);
|
||||
} else {
|
||||
|
|
@ -1359,7 +1359,7 @@ void Texts_WriteLongReal (Texts_Writer *W, LONGINT *W__typ, LONGREAL x, INTEGER
|
|||
|
||||
void Texts_WriteLongRealHex (Texts_Writer *W, LONGINT *W__typ, LONGREAL x)
|
||||
{
|
||||
INTEGER i;
|
||||
int16 i;
|
||||
CHAR d[16];
|
||||
Reals_ConvertHL(x, (void*)d, 16);
|
||||
i = 0;
|
||||
|
|
@ -1375,16 +1375,16 @@ static struct WriteDate__43 {
|
|||
struct WriteDate__43 *lnk;
|
||||
} *WriteDate__43_s;
|
||||
|
||||
static void WritePair__44 (CHAR ch, LONGINT x);
|
||||
static void WritePair__44 (CHAR ch, int32 x);
|
||||
|
||||
static void WritePair__44 (CHAR ch, LONGINT x)
|
||||
static void WritePair__44 (CHAR ch, int32 x)
|
||||
{
|
||||
Texts_Write(&*WriteDate__43_s->W, WriteDate__43_s->W__typ, ch);
|
||||
Texts_Write(&*WriteDate__43_s->W, WriteDate__43_s->W__typ, (CHAR)(__DIV(x, 10) + 48));
|
||||
Texts_Write(&*WriteDate__43_s->W, WriteDate__43_s->W__typ, (CHAR)((int)__MOD(x, 10) + 48));
|
||||
}
|
||||
|
||||
void Texts_WriteDate (Texts_Writer *W, LONGINT *W__typ, LONGINT t, LONGINT d)
|
||||
void Texts_WriteDate (Texts_Writer *W, LONGINT *W__typ, int32 t, int32 d)
|
||||
{
|
||||
struct WriteDate__43 _s;
|
||||
_s.W = W; _s.W__typ = W__typ;
|
||||
|
|
@ -1401,22 +1401,22 @@ void Texts_WriteDate (Texts_Writer *W, LONGINT *W__typ, LONGINT t, LONGINT d)
|
|||
|
||||
static struct Load0__16 {
|
||||
Texts_Text *T;
|
||||
SHORTINT *ecnt;
|
||||
int8 *ecnt;
|
||||
Files_File *f;
|
||||
Texts_FileMsg *msg;
|
||||
CHAR (*mods)[64][32], (*procs)[64][32];
|
||||
struct Load0__16 *lnk;
|
||||
} *Load0__16_s;
|
||||
|
||||
static void LoadElem__17 (Files_Rider *r, LONGINT *r__typ, LONGINT pos, LONGINT span, Texts_Elem *e);
|
||||
static void LoadElem__17 (Files_Rider *r, LONGINT *r__typ, int32 pos, int32 span, Texts_Elem *e);
|
||||
|
||||
static void LoadElem__17 (Files_Rider *r, LONGINT *r__typ, LONGINT pos, LONGINT span, Texts_Elem *e)
|
||||
static void LoadElem__17 (Files_Rider *r, LONGINT *r__typ, int32 pos, int32 span, Texts_Elem *e)
|
||||
{
|
||||
Modules_Module M = NIL;
|
||||
Modules_Command Cmd;
|
||||
Texts_Alien a = NIL;
|
||||
LONGINT org, ew, eh;
|
||||
SHORTINT eno;
|
||||
int32 org, ew, eh;
|
||||
int8 eno;
|
||||
Texts_new = NIL;
|
||||
Files_ReadLInt(&*r, r__typ, &ew);
|
||||
Files_ReadLInt(&*r, r__typ, &eh);
|
||||
|
|
@ -1466,8 +1466,8 @@ static void Texts_Load0 (Files_Rider *r, LONGINT *r__typ, Texts_Text T)
|
|||
Texts_Run u = NIL, un = NIL;
|
||||
Texts_Piece p = NIL;
|
||||
Texts_Elem e = NIL;
|
||||
LONGINT org, pos, hlen, plen;
|
||||
SHORTINT ecnt, fno, fcnt, col, voff;
|
||||
int32 org, pos, hlen, plen;
|
||||
int8 ecnt, fno, fcnt, col, voff;
|
||||
Files_File f = NIL;
|
||||
Texts_FileMsg msg;
|
||||
CHAR mods[64][32], procs[64][32];
|
||||
|
|
@ -1537,7 +1537,7 @@ static void Texts_Load0 (Files_Rider *r, LONGINT *r__typ, Texts_Text T)
|
|||
|
||||
void Texts_Load (Files_Rider *r, LONGINT *r__typ, Texts_Text T)
|
||||
{
|
||||
INTEGER tag;
|
||||
int16 tag;
|
||||
Files_ReadInt(&*r, r__typ, &tag);
|
||||
if (tag != -4095) {
|
||||
Files_Set(&*r, r__typ, Files_Base(&*r, r__typ), Files_Pos(&*r, r__typ) - 2);
|
||||
|
|
@ -1552,7 +1552,7 @@ void Texts_Open (Texts_Text T, CHAR *name, LONGINT name__len)
|
|||
Texts_Run u = NIL;
|
||||
Texts_Piece p = NIL;
|
||||
CHAR tag, version;
|
||||
LONGINT hlen;
|
||||
int32 hlen;
|
||||
__DUP(name, name__len, CHAR);
|
||||
f = Files_Old(name, name__len);
|
||||
if (f == NIL) {
|
||||
|
|
@ -1602,20 +1602,20 @@ void Texts_Open (Texts_Text T, CHAR *name, LONGINT name__len)
|
|||
}
|
||||
|
||||
static struct Store__39 {
|
||||
SHORTINT *ecnt;
|
||||
int8 *ecnt;
|
||||
Texts_FileMsg *msg;
|
||||
Texts_IdentifyMsg *iden;
|
||||
CHAR (*mods)[64][32], (*procs)[64][32];
|
||||
struct Store__39 *lnk;
|
||||
} *Store__39_s;
|
||||
|
||||
static void StoreElem__40 (Files_Rider *r, LONGINT *r__typ, LONGINT pos, Texts_Elem e);
|
||||
static void StoreElem__40 (Files_Rider *r, LONGINT *r__typ, int32 pos, Texts_Elem e);
|
||||
|
||||
static void StoreElem__40 (Files_Rider *r, LONGINT *r__typ, LONGINT pos, Texts_Elem e)
|
||||
static void StoreElem__40 (Files_Rider *r, LONGINT *r__typ, int32 pos, Texts_Elem e)
|
||||
{
|
||||
Files_Rider r1;
|
||||
LONGINT org, span;
|
||||
SHORTINT eno;
|
||||
int32 org, span;
|
||||
int8 eno;
|
||||
__COPY((*Store__39_s->iden).mod, (*Store__39_s->mods)[__X(*Store__39_s->ecnt, 64)], 32);
|
||||
__COPY((*Store__39_s->iden).proc, (*Store__39_s->procs)[__X(*Store__39_s->ecnt, 64)], 32);
|
||||
eno = 1;
|
||||
|
|
@ -1646,8 +1646,8 @@ void Texts_Store (Files_Rider *r, LONGINT *r__typ, Texts_Text T)
|
|||
Files_Rider r1;
|
||||
Texts_Run u = NIL, un = NIL;
|
||||
Texts_Elem e = NIL;
|
||||
LONGINT org, pos, delta, hlen, rlen;
|
||||
SHORTINT ecnt, fno, fcnt;
|
||||
int32 org, pos, delta, hlen, rlen;
|
||||
int8 ecnt, fno, fcnt;
|
||||
CHAR ch;
|
||||
Texts_FileMsg msg;
|
||||
Texts_IdentifyMsg iden;
|
||||
|
|
@ -1764,7 +1764,7 @@ void Texts_Close (Texts_Text T, CHAR *name, LONGINT name__len)
|
|||
{
|
||||
Files_File f = NIL;
|
||||
Files_Rider r;
|
||||
INTEGER i, res;
|
||||
int16 i, res;
|
||||
CHAR bak[64];
|
||||
__DUP(name, name__len, CHAR);
|
||||
f = Files_New(name, name__len);
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue