vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-05 23:22:25 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions
compiler/bootstrap/unix-44/Texts.c
David Brown 610cc38efa Update C bootstrap source.
2016-11-24 13:06:00 +00:00

1833 lines
44 KiB
C
Raw Blame History

/* voc 1.95 [2016/11/24]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8
#define INTEGER INT16
#define LONGINT INT32
#define SET UINT32
#include "SYSTEM.h"
#include "Files.h"
#include "Modules.h"
#include "Reals.h"
typedef
struct Texts_RunDesc *Texts_Run;
typedef
struct Texts_FontDesc *Texts_FontsFont;
typedef
struct Texts_RunDesc {
Texts_Run prev, next;
INT32 len;
Texts_FontsFont fnt;
INT8 col, voff;
BOOLEAN ascii;
} Texts_RunDesc;
typedef
struct Texts_ElemDesc *Texts_Elem;
typedef
struct Texts_ElemMsg {
char _prvt0[1];
} Texts_ElemMsg;
typedef
void (*Texts_Handler)(Texts_Elem, Texts_ElemMsg*, ADDRESS *);
typedef
struct Texts_TextDesc *Texts_Text;
typedef
struct Texts_ElemDesc {
Texts_Run prev, next;
INT32 len;
Texts_FontsFont fnt;
INT8 col, voff;
BOOLEAN ascii;
INT32 W, H;
Texts_Handler handle;
Texts_Text base;
} Texts_ElemDesc;
struct Texts__1 { /* Texts_ElemDesc */
Texts_Run prev, next;
INT32 len;
Texts_FontsFont fnt;
INT8 col, voff;
BOOLEAN ascii;
INT32 W, H;
Texts_Handler handle;
Texts_Text base;
Files_File file;
INT32 org, span;
CHAR mod[32], proc[32];
};
typedef
struct Texts__1 *Texts_Alien;
typedef
struct Texts_BufDesc {
INT32 len;
Texts_Run head;
} Texts_BufDesc;
typedef
Texts_BufDesc *Texts_Buffer;
typedef
struct Texts_CopyMsg { /* Texts_ElemMsg */
Texts_Elem e;
} Texts_CopyMsg;
typedef
struct Texts_FileMsg { /* Texts_ElemMsg */
INT16 id;
INT32 pos;
Files_Rider r;
} Texts_FileMsg;
typedef
struct Texts_FontDesc {
CHAR name[32];
} Texts_FontDesc;
typedef
struct Texts_IdentifyMsg { /* Texts_ElemMsg */
CHAR mod[32], proc[32];
} Texts_IdentifyMsg;
typedef
void (*Texts_Notifier)(Texts_Text, INT16, INT32, INT32);
typedef
struct Texts_PieceDesc *Texts_Piece;
typedef
struct Texts_PieceDesc {
Texts_Run prev, next;
INT32 len;
Texts_FontsFont fnt;
INT8 col, voff;
BOOLEAN ascii;
Files_File file;
INT32 org;
} Texts_PieceDesc;
typedef
struct Texts_Reader {
BOOLEAN eot;
Texts_FontsFont fnt;
INT8 col, voff;
Texts_Elem elem;
Files_Rider rider;
Texts_Run run;
INT32 org, off;
} Texts_Reader;
typedef
struct Texts_Scanner { /* Texts_Reader */
BOOLEAN eot;
Texts_FontsFont fnt;
INT8 col, voff;
Texts_Elem elem;
Files_Rider rider;
Texts_Run run;
INT32 org, off;
CHAR nextCh;
INT16 line, class;
INT32 i;
REAL x;
LONGREAL y;
CHAR c;
INT8 len;
CHAR s[64];
} Texts_Scanner;
typedef
struct Texts_TextDesc {
INT32 len;
Texts_Notifier notify;
Texts_Run head, cache;
INT32 corg;
} Texts_TextDesc;
typedef
struct Texts_Writer {
Texts_Buffer buf;
Texts_FontsFont fnt;
INT8 col, voff;
Files_Rider rider;
Files_File file;
} Texts_Writer;
export Texts_Elem Texts_new;
static Texts_Buffer Texts_del;
static Texts_FontsFont Texts_FontsDefault;
export ADDRESS *Texts_FontDesc__typ;
export ADDRESS *Texts_RunDesc__typ;
export ADDRESS *Texts_PieceDesc__typ;
export ADDRESS *Texts_ElemMsg__typ;
export ADDRESS *Texts_ElemDesc__typ;
export ADDRESS *Texts_FileMsg__typ;
export ADDRESS *Texts_CopyMsg__typ;
export ADDRESS *Texts_IdentifyMsg__typ;
export ADDRESS *Texts_BufDesc__typ;
export ADDRESS *Texts_TextDesc__typ;
export ADDRESS *Texts_Reader__typ;
export ADDRESS *Texts_Scanner__typ;
export ADDRESS *Texts_Writer__typ;
export ADDRESS *Texts__1__typ;
export void Texts_Append (Texts_Text T, Texts_Buffer B);
export void Texts_ChangeLooks (Texts_Text T, INT32 beg, INT32 end, UINT32 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, INT32 beg, INT32 end);
export Texts_Text Texts_ElemBase (Texts_Elem E);
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, ADDRESS *msg__typ);
export void Texts_Insert (Texts_Text T, INT32 pos, Texts_Buffer B);
export void Texts_Load (Files_Rider *r, ADDRESS *r__typ, Texts_Text T);
static void Texts_Load0 (Files_Rider *r, ADDRESS *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, ADDRESS *R__typ, Texts_Text T, INT32 pos);
export void Texts_OpenScanner (Texts_Scanner *S, ADDRESS *S__typ, Texts_Text T, INT32 pos);
export void Texts_OpenWriter (Texts_Writer *W, ADDRESS *W__typ);
export INT32 Texts_Pos (Texts_Reader *R, ADDRESS *R__typ);
export void Texts_Read (Texts_Reader *R, ADDRESS *R__typ, CHAR *ch);
export void Texts_ReadElem (Texts_Reader *R, ADDRESS *R__typ);
export void Texts_ReadPrevElem (Texts_Reader *R, ADDRESS *R__typ);
export void Texts_Recall (Texts_Buffer *B);
export void Texts_Save (Texts_Text T, INT32 beg, INT32 end, Texts_Buffer B);
export void Texts_Scan (Texts_Scanner *S, ADDRESS *S__typ);
export void Texts_SetColor (Texts_Writer *W, ADDRESS *W__typ, INT8 col);
export void Texts_SetFont (Texts_Writer *W, ADDRESS *W__typ, Texts_FontsFont fnt);
export void Texts_SetOffset (Texts_Writer *W, ADDRESS *W__typ, INT8 voff);
static void Texts_Splice (Texts_Run un, Texts_Run v, Texts_Run w, Texts_Text base);
static void Texts_Split (INT32 off, Texts_Run *u, Texts_Run *un);
export void Texts_Store (Files_Rider *r, ADDRESS *r__typ, Texts_Text T);
export void Texts_Write (Texts_Writer *W, ADDRESS *W__typ, CHAR ch);
export void Texts_WriteDate (Texts_Writer *W, ADDRESS *W__typ, INT32 t, INT32 d);
export void Texts_WriteElem (Texts_Writer *W, ADDRESS *W__typ, Texts_Elem e);
export void Texts_WriteHex (Texts_Writer *W, ADDRESS *W__typ, INT32 x);
export void Texts_WriteInt (Texts_Writer *W, ADDRESS *W__typ, INT64 x, INT64 n);
export void Texts_WriteLn (Texts_Writer *W, ADDRESS *W__typ);
export void Texts_WriteLongReal (Texts_Writer *W, ADDRESS *W__typ, LONGREAL x, INT16 n);
export void Texts_WriteLongRealHex (Texts_Writer *W, ADDRESS *W__typ, LONGREAL x);
export void Texts_WriteReal (Texts_Writer *W, ADDRESS *W__typ, REAL x, INT16 n);
export void Texts_WriteRealFix (Texts_Writer *W, ADDRESS *W__typ, REAL x, INT16 n, INT16 k);
export void Texts_WriteRealHex (Texts_Writer *W, ADDRESS *W__typ, REAL x);
export void Texts_WriteString (Texts_Writer *W, ADDRESS *W__typ, CHAR *s, LONGINT s__len);
static Texts_FontsFont Texts_FontsThis (CHAR *name, LONGINT name__len)
{
Texts_FontsFont F = NIL;
__NEW(F, Texts_FontDesc);
__COPY(name, F->name, 32);
return F;
}
static void Texts_Find (Texts_Text T, INT32 *pos, Texts_Run *u, INT32 *org, INT32 *off)
{
Texts_Run v = NIL;
INT32 m;
if (*pos >= T->len) {
*pos = T->len;
*u = T->head;
*org = T->len;
*off = 0;
T->cache = T->head;
T->corg = 0;
} else {
v = T->cache->next;
m = *pos - T->corg;
if (*pos >= T->corg) {
while (m >= v->len) {
m -= v->len;
v = v->next;
}
} else {
while (m < 0) {
v = v->prev;
m += v->len;
}
}
*u = v;
*org = *pos - m;
*off = m;
T->cache = v->prev;
T->corg = *org;
}
}
static void Texts_Split (INT32 off, Texts_Run *u, Texts_Run *un)
{
Texts_Piece p = NIL, U = NIL;
if (off == 0) {
*un = *u;
*u = (*un)->prev;
} else if (off >= (*u)->len) {
*un = (*u)->next;
} else {
__NEW(p, Texts_PieceDesc);
*un = (Texts_Run)p;
U = __GUARDP(*u, Texts_PieceDesc, 1);
__GUARDEQP(p, Texts_PieceDesc) = *U;
p->org += off;
p->len -= off;
U->len -= p->len;
p->ascii = (*u)->ascii;
p->prev = (Texts_Run)U;
p->next = U->next;
p->next->prev = (Texts_Run)p;
U->next = (Texts_Run)p;
}
}
static void Texts_Merge (Texts_Text T, Texts_Run u, Texts_Run *v)
{
Texts_Piece p = NIL, q = NIL;
if ((((((((((__ISP(u, Texts_PieceDesc, 1) && __ISP(*v, Texts_PieceDesc, 1))) && __STRCMP(u->fnt->name, (*v)->fnt->name) == 0)) && u->col == (*v)->col)) && u->voff == (*v)->voff)) && __GUARDP(u, Texts_PieceDesc, 1)->ascii == __GUARDP(*v, Texts_PieceDesc, 1)->ascii)) {
p = __GUARDP(u, Texts_PieceDesc, 1);
q = __GUARDP(*v, Texts_PieceDesc, 1);
if ((p->file == q->file && p->org + p->len == q->org)) {
if (T->cache == u) {
T->corg += q->len;
} else if (T->cache == *v) {
T->cache = T->head;
T->corg = 0;
}
p->len += q->len;
*v = (*v)->next;
}
}
}
static void Texts_Splice (Texts_Run un, Texts_Run v, Texts_Run w, Texts_Text base)
{
Texts_Run u = NIL;
if (v != w->next) {
u = un->prev;
u->next = v;
v->prev = u;
un->prev = w;
w->next = un;
do {
if (__ISP(v, Texts_ElemDesc, 1)) {
__GUARDP(v, Texts_ElemDesc, 1)->base = base;
}
v = v->next;
} while (!(v == un));
}
}
static Texts_Piece Texts_ClonePiece (Texts_Piece p)
{
Texts_Piece q = NIL;
__NEW(q, Texts_PieceDesc);
__GUARDEQP(q, Texts_PieceDesc) = *p;
return q;
}
static Texts_Elem Texts_CloneElem (Texts_Elem e)
{
Texts_CopyMsg msg;
msg.e = NIL;
(*e->handle)(e, (void*)&msg, Texts_CopyMsg__typ);
return msg.e;
}
void Texts_CopyElem (Texts_Elem SE, Texts_Elem DE)
{
DE->len = SE->len;
DE->fnt = SE->fnt;
DE->col = SE->col;
DE->voff = SE->voff;
DE->W = SE->W;
DE->H = SE->H;
DE->handle = SE->handle;
}
Texts_Text Texts_ElemBase (Texts_Elem E)
{
return E->base;
}
INT32 Texts_ElemPos (Texts_Elem E)
{
Texts_Run u = NIL;
INT32 pos;
u = E->base->head->next;
pos = 0;
while (u != (void *) E) {
pos = pos + u->len;
u = u->next;
}
return pos;
}
static void Texts_HandleAlien (Texts_Elem E, Texts_ElemMsg *msg, ADDRESS *msg__typ)
{
Texts_Alien e = NIL;
Files_Rider r;
INT32 i;
CHAR ch;
if (__ISP(E, Texts__1, 2)) {
if (__IS(msg__typ, Texts_CopyMsg, 1)) {
if (__IS(msg__typ, Texts_CopyMsg, 1)) {
Texts_CopyMsg *msg__ = (void*)msg;
__NEW(e, Texts__1);
Texts_CopyElem((void*)((Texts_Alien)E), (void*)e);
e->file = ((Texts_Alien)E)->file;
e->org = ((Texts_Alien)E)->org;
e->span = ((Texts_Alien)E)->span;
__COPY(((Texts_Alien)E)->mod, e->mod, 32);
__COPY(((Texts_Alien)E)->proc, e->proc, 32);
(*msg__).e = (Texts_Elem)e;
} else __WITHCHK;
} else if (__IS(msg__typ, Texts_IdentifyMsg, 1)) {
if (__IS(msg__typ, Texts_IdentifyMsg, 1)) {
Texts_IdentifyMsg *msg__ = (void*)msg;
__COPY(((Texts_Alien)E)->mod, (*msg__).mod, 32);
__COPY(((Texts_Alien)E)->proc, (*msg__).proc, 32);
(*msg__).mod[31] = 0x01;
} else __WITHCHK;
} else if (__IS(msg__typ, Texts_FileMsg, 1)) {
if (__IS(msg__typ, Texts_FileMsg, 1)) {
Texts_FileMsg *msg__ = (void*)msg;
if ((*msg__).id == 1) {
Files_Set(&r, Files_Rider__typ, ((Texts_Alien)E)->file, ((Texts_Alien)E)->org);
i = ((Texts_Alien)E)->span;
while (i > 0) {
Files_Read(&r, Files_Rider__typ, (void*)&ch);
Files_Write(&(*msg__).r, Files_Rider__typ, ch);
i -= 1;
}
}
} else __WITHCHK;
}
} else __WITHCHK;
}
void Texts_OpenBuf (Texts_Buffer B)
{
Texts_Run u = NIL;
__NEW(u, Texts_RunDesc);
u->next = u;
u->prev = u;
B->head = u;
B->len = 0;
}
void Texts_Copy (Texts_Buffer SB, Texts_Buffer DB)
{
Texts_Run u = NIL, v = NIL, vn = NIL;
u = SB->head->next;
v = DB->head->prev;
while (u != SB->head) {
if (__ISP(u, Texts_PieceDesc, 1)) {
vn = (Texts_Run)Texts_ClonePiece(__GUARDP(u, Texts_PieceDesc, 1));
} else {
vn = (Texts_Run)Texts_CloneElem(__GUARDP(u, Texts_ElemDesc, 1));
}
v->next = vn;
vn->prev = v;
v = vn;
u = u->next;
}
v->next = DB->head;
DB->head->prev = v;
DB->len += SB->len;
}
void Texts_Recall (Texts_Buffer *B)
{
*B = Texts_del;
Texts_del = NIL;
}
void Texts_Save (Texts_Text T, INT32 beg, INT32 end, Texts_Buffer B)
{
Texts_Run u = NIL, v = NIL, w = NIL, wn = NIL;
INT32 uo, ud, vo, vd;
Texts_Find(T, &beg, &u, &uo, &ud);
Texts_Find(T, &end, &v, &vo, &vd);
w = B->head->prev;
while (u != v) {
if (__ISP(u, Texts_PieceDesc, 1)) {
wn = (Texts_Run)Texts_ClonePiece(__GUARDP(u, Texts_PieceDesc, 1));
wn->len -= ud;
__GUARDP(wn, Texts_PieceDesc, 1)->org += ud;
} else {
wn = (Texts_Run)Texts_CloneElem(__GUARDP(u, Texts_ElemDesc, 1));
}
w->next = wn;
wn->prev = w;
w = wn;
u = u->next;
ud = 0;
}
if (vd > 0) {
wn = (Texts_Run)Texts_ClonePiece(__GUARDP(v, Texts_PieceDesc, 1));
wn->len = vd - ud;
__GUARDP(wn, Texts_PieceDesc, 1)->org += ud;
w->next = wn;
wn->prev = w;
w = wn;
}
w->next = B->head;
B->head->prev = w;
B->len += end - beg;
}
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;
INT32 uo, ud, len;
Texts_Find(T, &pos, &u, &uo, &ud);
Texts_Split(ud, &u, &un);
len = B->len;
v = B->head->next;
Texts_Merge(T, u, &v);
Texts_Splice(un, v, B->head->prev, T);
T->len += len;
B->head->next = B->head;
B->head->prev = B->head;
B->len = 0;
if (T->notify != NIL) {
(*T->notify)(T, 1, pos, pos + len);
}
}
void Texts_Append (Texts_Text T, Texts_Buffer B)
{
Texts_Run v = NIL;
INT32 pos, len;
pos = T->len;
len = B->len;
v = B->head->next;
Texts_Merge(T, T->head->prev, &v);
Texts_Splice(T->head, v, B->head->prev, T);
T->len += len;
B->head->next = B->head;
B->head->prev = B->head;
B->len = 0;
if (T->notify != NIL) {
(*T->notify)(T, 1, pos, pos + len);
}
}
void Texts_Delete (Texts_Text T, INT32 beg, INT32 end)
{
Texts_Run c = NIL, u = NIL, un = NIL, v = NIL, vn = NIL;
INT32 co, uo, ud, vo, vd;
Texts_Find(T, &beg, &u, &uo, &ud);
Texts_Split(ud, &u, &un);
c = T->cache;
co = T->corg;
Texts_Find(T, &end, &v, &vo, &vd);
Texts_Split(vd, &v, &vn);
T->cache = c;
T->corg = co;
__NEW(Texts_del, Texts_BufDesc);
Texts_OpenBuf(Texts_del);
Texts_del->len = end - beg;
Texts_Splice(Texts_del->head, un, v, NIL);
Texts_Merge(T, u, &vn);
u->next = vn;
vn->prev = u;
T->len -= end - beg;
if (T->notify != NIL) {
(*T->notify)(T, 2, beg, end);
}
}
void Texts_ChangeLooks (Texts_Text T, INT32 beg, INT32 end, UINT32 sel, Texts_FontsFont fnt, INT8 col, INT8 voff)
{
Texts_Run c = NIL, u = NIL, un = NIL, v = NIL, vn = NIL;
INT32 co, uo, ud, vo, vd;
Texts_Find(T, &beg, &u, &uo, &ud);
Texts_Split(ud, &u, &un);
c = T->cache;
co = T->corg;
Texts_Find(T, &end, &v, &vo, &vd);
Texts_Split(vd, &v, &vn);
T->cache = c;
T->corg = co;
while (un != vn) {
if ((__IN(0, sel, 32) && fnt != NIL)) {
un->fnt = fnt;
}
if (__IN(1, sel, 32)) {
un->col = col;
}
if (__IN(2, sel, 32)) {
un->voff = voff;
}
Texts_Merge(T, u, &un);
if (u->next == un) {
u = un;
un = un->next;
} else {
u->next = un;
un->prev = u;
}
}
Texts_Merge(T, u, &un);
u->next = un;
un->prev = u;
if (T->notify != NIL) {
(*T->notify)(T, 0, beg, end);
}
}
void Texts_OpenReader (Texts_Reader *R, ADDRESS *R__typ, Texts_Text T, INT32 pos)
{
Texts_Run u = NIL;
if (pos >= T->len) {
pos = T->len;
}
Texts_Find(T, &pos, &u, &(*R).org, &(*R).off);
(*R).run = u;
(*R).eot = 0;
if (__ISP(u, Texts_PieceDesc, 1)) {
Files_Set(&(*R).rider, Files_Rider__typ, __GUARDP(u, Texts_PieceDesc, 1)->file, __GUARDP(u, Texts_PieceDesc, 1)->org + (*R).off);
}
}
void Texts_Read (Texts_Reader *R, ADDRESS *R__typ, CHAR *ch)
{
Texts_Run u = NIL;
INT32 pos;
CHAR nextch;
u = (*R).run;
(*R).fnt = u->fnt;
(*R).col = u->col;
(*R).voff = u->voff;
(*R).off += 1;
if (__ISP(u, Texts_PieceDesc, 1)) {
Files_Read(&(*R).rider, Files_Rider__typ, (void*)&*ch);
(*R).elem = NIL;
if ((*ch == 0x0a && __GUARDP(u, Texts_PieceDesc, 1)->ascii)) {
*ch = 0x0d;
} else if ((*ch == 0x0d && __GUARDP(u, Texts_PieceDesc, 1)->ascii)) {
pos = Files_Pos(&(*R).rider, Files_Rider__typ);
Files_Read(&(*R).rider, Files_Rider__typ, (void*)&nextch);
if (nextch == 0x0a) {
(*R).off += 1;
} else {
Files_Set(&(*R).rider, Files_Rider__typ, __GUARDP(u, Texts_PieceDesc, 1)->file, pos);
}
}
} else if (__ISP(u, Texts_ElemDesc, 1)) {
*ch = 0x1c;
(*R).elem = __GUARDP(u, Texts_ElemDesc, 1);
} else {
*ch = 0x00;
(*R).elem = NIL;
(*R).eot = 1;
}
if ((*R).off == u->len) {
(*R).org += u->len;
u = u->next;
if (__ISP(u, Texts_PieceDesc, 1)) {
if (__ISP(u, Texts_PieceDesc, 1)) {
Files_Set(&(*R).rider, Files_Rider__typ, ((Texts_Piece)u)->file, ((Texts_Piece)u)->org);
} else __WITHCHK;
}
(*R).run = u;
(*R).off = 0;
}
}
void Texts_ReadElem (Texts_Reader *R, ADDRESS *R__typ)
{
Texts_Run u = NIL, un = NIL;
u = (*R).run;
while (__ISP(u, Texts_PieceDesc, 1)) {
(*R).org += u->len;
u = u->next;
}
if (__ISP(u, Texts_ElemDesc, 1)) {
un = u->next;
(*R).run = un;
(*R).org += 1;
(*R).off = 0;
(*R).fnt = u->fnt;
(*R).col = u->col;
(*R).voff = u->voff;
(*R).elem = __GUARDP(u, Texts_ElemDesc, 1);
if (__ISP(un, Texts_PieceDesc, 1)) {
if (__ISP(un, Texts_PieceDesc, 1)) {
Files_Set(&(*R).rider, Files_Rider__typ, ((Texts_Piece)un)->file, ((Texts_Piece)un)->org);
} else __WITHCHK;
}
} else {
(*R).eot = 1;
(*R).elem = NIL;
}
}
void Texts_ReadPrevElem (Texts_Reader *R, ADDRESS *R__typ)
{
Texts_Run u = NIL;
u = (*R).run->prev;
while (__ISP(u, Texts_PieceDesc, 1)) {
(*R).org -= u->len;
u = u->prev;
}
if (__ISP(u, Texts_ElemDesc, 1)) {
(*R).run = u;
(*R).org -= 1;
(*R).off = 0;
(*R).fnt = u->fnt;
(*R).col = u->col;
(*R).voff = u->voff;
(*R).elem = __GUARDP(u, Texts_ElemDesc, 1);
} else {
(*R).eot = 1;
(*R).elem = NIL;
}
}
INT32 Texts_Pos (Texts_Reader *R, ADDRESS *R__typ)
{
return (*R).org + (*R).off;
}
void Texts_OpenScanner (Texts_Scanner *S, ADDRESS *S__typ, Texts_Text T, INT32 pos)
{
Texts_OpenReader((void*)&*S, S__typ, T, pos);
(*S).line = 0;
(*S).nextCh = ' ';
}
static struct Scan__31 {
Texts_Scanner *S;
ADDRESS *S__typ;
CHAR *ch;
BOOLEAN *negE;
INT16 *e;
struct Scan__31 *lnk;
} *Scan__31_s;
static void ReadScaleFactor__32 (void);
static void ReadScaleFactor__32 (void)
{
Texts_Read((void*)&*Scan__31_s->S, Scan__31_s->S__typ, &*Scan__31_s->ch);
if (*Scan__31_s->ch == '-') {
*Scan__31_s->negE = 1;
Texts_Read((void*)&*Scan__31_s->S, Scan__31_s->S__typ, &*Scan__31_s->ch);
} else {
*Scan__31_s->negE = 0;
if (*Scan__31_s->ch == '+') {
Texts_Read((void*)&*Scan__31_s->S, Scan__31_s->S__typ, &*Scan__31_s->ch);
}
}
while (('0' <= *Scan__31_s->ch && *Scan__31_s->ch <= '9')) {
*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);
}
}
void Texts_Scan (Texts_Scanner *S, ADDRESS *S__typ)
{
CHAR ch, term;
BOOLEAN neg, negE, hex;
INT8 i, j, h;
INT16 e;
INT32 k;
REAL x, f;
LONGREAL y, g;
CHAR d[32];
struct Scan__31 _s;
_s.S = S; _s.S__typ = S__typ;
_s.ch = &ch;
_s.negE = &negE;
_s.e = &e;
_s.lnk = Scan__31_s;
Scan__31_s = &_s;
ch = (*S).nextCh;
i = 0;
for (;;) {
if (ch == 0x0d) {
(*S).line += 1;
} else if ((ch != ' ' && ch != 0x09)) {
break;
}
Texts_Read((void*)&*S, S__typ, &ch);
}
if ((('A' <= __CAP(ch) && __CAP(ch) <= 'Z') || ch == '/') || ch == '.') {
do {
(*S).s[__X(i, 64)] = ch;
i += 1;
Texts_Read((void*)&*S, S__typ, &ch);
} while (!((((__CAP(ch) > 'Z' && ch != '_') || ('A' > __CAP(ch) && ch > '9')) || ((('0' > ch && ch != '.')) && ch != '/')) || i == 63));
(*S).s[__X(i, 64)] = 0x00;
(*S).len = i;
(*S).class = 1;
} else if (ch == '"') {
Texts_Read((void*)&*S, S__typ, &ch);
while ((((ch != '"' && ch >= ' ')) && i != 63)) {
(*S).s[__X(i, 64)] = ch;
i += 1;
Texts_Read((void*)&*S, S__typ, &ch);
}
(*S).s[__X(i, 64)] = 0x00;
(*S).len = i + 1;
Texts_Read((void*)&*S, S__typ, &ch);
(*S).class = 2;
} else {
if (ch == '-') {
neg = 1;
Texts_Read((void*)&*S, S__typ, &ch);
} else {
neg = 0;
}
if (('0' <= ch && ch <= '9')) {
hex = 0;
j = 0;
for (;;) {
d[__X(i, 32)] = ch;
i += 1;
Texts_Read((void*)&*S, S__typ, &ch);
if (ch < '0') {
break;
}
if ('9' < ch) {
if (('A' <= ch && ch <= 'F')) {
hex = 1;
ch = (CHAR)((INT16)ch - 7);
} else if (('a' <= ch && ch <= 'f')) {
hex = 1;
ch = (CHAR)((INT16)ch - 39);
} else {
break;
}
}
}
if (ch == 'H') {
Texts_Read((void*)&*S, S__typ, &ch);
(*S).class = 3;
if (i - j > 8) {
j = i - 8;
}
k = (INT16)d[__X(j, 32)] - 48;
j += 1;
if ((i - j == 7 && k >= 8)) {
k -= 16;
}
while (j < i) {
k = __ASHL(k, 4) + ((INT16)d[__X(j, 32)] - 48);
j += 1;
}
if (neg) {
(*S).i = -k;
} else {
(*S).i = k;
}
} else if (ch == '.') {
Texts_Read((void*)&*S, S__typ, &ch);
h = i;
while (('0' <= ch && ch <= '9')) {
d[__X(i, 32)] = ch;
i += 1;
Texts_Read((void*)&*S, S__typ, &ch);
}
if (ch == 'D') {
e = 0;
y = (LONGREAL)0;
g = (LONGREAL)1;
do {
y = y * (LONGREAL)10 + ((INT16)d[__X(j, 32)] - 48);
j += 1;
} while (!(j == h));
while (j < i) {
g = g / (LONGREAL)(LONGREAL)10;
y = ((INT16)d[__X(j, 32)] - 48) * g + y;
j += 1;
}
ReadScaleFactor__32();
if (negE) {
if (e <= 308) {
y = y / (LONGREAL)Reals_TenL(e);
} else {
y = (LONGREAL)0;
}
} else if (e > 0) {
if (e <= 308) {
y = Reals_TenL(e) * y;
} else {
__HALT(40);
}
}
if (neg) {
y = -y;
}
(*S).class = 5;
(*S).y = y;
} else {
e = 0;
x = (REAL)0;
f = (REAL)1;
do {
x = x * (REAL)10 + ((INT16)d[__X(j, 32)] - 48);
j += 1;
} while (!(j == h));
while (j < i) {
f = f / (REAL)(REAL)10;
x = ((INT16)d[__X(j, 32)] - 48) * f + x;
j += 1;
}
if (ch == 'E') {
ReadScaleFactor__32();
}
if (negE) {
if (e <= 38) {
x = x / (REAL)Reals_Ten(e);
} else {
x = (REAL)0;
}
} else if (e > 0) {
if (e <= 38) {
x = Reals_Ten(e) * x;
} else {
__HALT(40);
}
}
if (neg) {
x = -x;
}
(*S).class = 4;
(*S).x = x;
}
if (hex) {
(*S).class = 0;
}
} else {
(*S).class = 3;
k = 0;
do {
k = k * 10 + ((INT16)d[__X(j, 32)] - 48);
j += 1;
} while (!(j == i));
if (neg) {
(*S).i = -k;
} else {
(*S).i = k;
}
if (hex) {
(*S).class = 0;
} else {
(*S).class = 3;
}
}
} else {
(*S).class = 6;
if (neg) {
(*S).c = '-';
} else {
(*S).c = ch;
Texts_Read((void*)&*S, S__typ, &ch);
}
}
}
(*S).nextCh = ch;
Scan__31_s = _s.lnk;
}
void Texts_OpenWriter (Texts_Writer *W, ADDRESS *W__typ)
{
__NEW((*W).buf, Texts_BufDesc);
Texts_OpenBuf((*W).buf);
(*W).fnt = Texts_FontsDefault;
(*W).col = 15;
(*W).voff = 0;
(*W).file = Files_New((CHAR*)"", 1);
Files_Set(&(*W).rider, Files_Rider__typ, (*W).file, 0);
}
void Texts_SetFont (Texts_Writer *W, ADDRESS *W__typ, Texts_FontsFont fnt)
{
(*W).fnt = fnt;
}
void Texts_SetColor (Texts_Writer *W, ADDRESS *W__typ, INT8 col)
{
(*W).col = col;
}
void Texts_SetOffset (Texts_Writer *W, ADDRESS *W__typ, INT8 voff)
{
(*W).voff = voff;
}
void Texts_Write (Texts_Writer *W, ADDRESS *W__typ, CHAR ch)
{
Texts_Run u = NIL, un = NIL;
Texts_Piece p = NIL;
Files_Write(&(*W).rider, Files_Rider__typ, ch);
(*W).buf->len += 1;
un = (*W).buf->head;
u = un->prev;
if ((((((((((__ISP(u, Texts_PieceDesc, 1) && __GUARDP(u, Texts_PieceDesc, 1)->file == (*W).file)) && __STRCMP(u->fnt->name, (*W).fnt->name) == 0)) && u->col == (*W).col)) && u->voff == (*W).voff)) && !__GUARDP(u, Texts_PieceDesc, 1)->ascii)) {
u->len += 1;
} else {
__NEW(p, Texts_PieceDesc);
u->next = (Texts_Run)p;
p->prev = u;
p->next = un;
un->prev = (Texts_Run)p;
p->len = 1;
p->fnt = (*W).fnt;
p->col = (*W).col;
p->voff = (*W).voff;
p->file = (*W).file;
p->org = Files_Length((*W).file) - 1;
p->ascii = 0;
}
}
void Texts_WriteElem (Texts_Writer *W, ADDRESS *W__typ, Texts_Elem e)
{
Texts_Run u = NIL, un = NIL;
if (e->base != NIL) {
__HALT(99);
}
(*W).buf->len += 1;
e->len = 1;
e->fnt = (*W).fnt;
e->col = (*W).col;
e->voff = (*W).voff;
un = (*W).buf->head;
u = un->prev;
u->next = (Texts_Run)e;
e->prev = u;
e->next = un;
un->prev = (Texts_Run)e;
}
void Texts_WriteLn (Texts_Writer *W, ADDRESS *W__typ)
{
Texts_Write(&*W, W__typ, 0x0d);
}
void Texts_WriteString (Texts_Writer *W, ADDRESS *W__typ, CHAR *s, LONGINT s__len)
{
INT16 i;
__DUP(s, s__len, CHAR);
i = 0;
while (s[__X(i, s__len)] >= ' ') {
Texts_Write(&*W, W__typ, s[__X(i, s__len)]);
i += 1;
}
__DEL(s);
}
void Texts_WriteInt (Texts_Writer *W, ADDRESS *W__typ, INT64 x, INT64 n)
{
INT16 i;
INT64 x0;
CHAR a[24];
i = 0;
if (x < 0) {
if (x == (-9223372036854775807-1)) {
Texts_WriteString(&*W, W__typ, (CHAR*)" -9223372036854775808", 22);
return;
} else {
n -= 1;
x0 = -x;
}
} else {
x0 = x;
}
do {
a[__X(i, 24)] = (CHAR)(__MOD(x0, 10) + 48);
x0 = __DIV(x0, 10);
i += 1;
} while (!(x0 == 0));
while (n > (INT64)i) {
Texts_Write(&*W, W__typ, ' ');
n -= 1;
}
if (x < 0) {
Texts_Write(&*W, W__typ, '-');
}
do {
i -= 1;
Texts_Write(&*W, W__typ, a[__X(i, 24)]);
} while (!(i == 0));
}
void Texts_WriteHex (Texts_Writer *W, ADDRESS *W__typ, INT32 x)
{
INT16 i;
INT32 y;
CHAR a[20];
i = 0;
Texts_Write(&*W, W__typ, ' ');
do {
y = __MASK(x, -16);
if (y < 10) {
a[__X(i, 20)] = (CHAR)(y + 48);
} else {
a[__X(i, 20)] = (CHAR)(y + 55);
}
x = __ASHR(x, 4);
i += 1;
} while (!(i == 8));
do {
i -= 1;
Texts_Write(&*W, W__typ, a[__X(i, 20)]);
} while (!(i == 0));
}
void Texts_WriteReal (Texts_Writer *W, ADDRESS *W__typ, REAL x, INT16 n)
{
INT16 e;
REAL x0;
CHAR d[9];
e = Reals_Expo(x);
if (e == 0) {
Texts_WriteString(&*W, W__typ, (CHAR*)" 0", 4);
do {
Texts_Write(&*W, W__typ, ' ');
n -= 1;
} while (!(n <= 3));
} else if (e == 255) {
Texts_WriteString(&*W, W__typ, (CHAR*)" NaN", 5);
while (n > 4) {
Texts_Write(&*W, W__typ, ' ');
n -= 1;
}
} else {
if (n <= 9) {
n = 3;
} else {
n -= 6;
}
do {
Texts_Write(&*W, W__typ, ' ');
n -= 1;
} while (!(n <= 8));
if (x < (REAL)0) {
Texts_Write(&*W, W__typ, '-');
x = -x;
} else {
Texts_Write(&*W, W__typ, ' ');
}
e = __ASHR((e - 127) * 77, 8);
if (e >= 0) {
x = x / (REAL)Reals_Ten(e);
} else {
x = Reals_Ten(-e) * x;
}
if (x >= (REAL)10) {
x = 1.0000000e-001 * x;
e += 1;
}
x0 = Reals_Ten(n - 1);
x = x0 * x + 5.0000000e-001;
if (x >= (REAL)10 * x0) {
x = x * 1.0000000e-001;
e += 1;
}
Reals_Convert(x, n, (void*)d, 9);
n -= 1;
Texts_Write(&*W, W__typ, d[__X(n, 9)]);
Texts_Write(&*W, W__typ, '.');
do {
n -= 1;
Texts_Write(&*W, W__typ, d[__X(n, 9)]);
} while (!(n == 0));
Texts_Write(&*W, W__typ, 'E');
if (e < 0) {
Texts_Write(&*W, W__typ, '-');
e = -e;
} else {
Texts_Write(&*W, W__typ, '+');
}
Texts_Write(&*W, W__typ, (CHAR)(__DIV(e, 10) + 48));
Texts_Write(&*W, W__typ, (CHAR)((int)__MOD(e, 10) + 48));
}
}
static struct WriteRealFix__53 {
Texts_Writer *W;
ADDRESS *W__typ;
INT16 *i;
CHAR (*d)[9];
struct WriteRealFix__53 *lnk;
} *WriteRealFix__53_s;
static void dig__54 (INT16 n);
static void seq__56 (CHAR ch, INT16 n);
static void seq__56 (CHAR ch, INT16 n)
{
while (n > 0) {
Texts_Write(&*WriteRealFix__53_s->W, WriteRealFix__53_s->W__typ, ch);
n -= 1;
}
}
static void dig__54 (INT16 n)
{
while (n > 0) {
*WriteRealFix__53_s->i -= 1;
Texts_Write(&*WriteRealFix__53_s->W, WriteRealFix__53_s->W__typ, (*WriteRealFix__53_s->d)[__X(*WriteRealFix__53_s->i, 9)]);
n -= 1;
}
}
void Texts_WriteRealFix (Texts_Writer *W, ADDRESS *W__typ, REAL x, INT16 n, INT16 k)
{
INT16 e, i;
CHAR sign;
REAL x0;
CHAR d[9];
struct WriteRealFix__53 _s;
_s.W = W; _s.W__typ = W__typ;
_s.i = &i;
_s.d = (void*)d;
_s.lnk = WriteRealFix__53_s;
WriteRealFix__53_s = &_s;
e = Reals_Expo(x);
if (k < 0) {
k = 0;
}
if (e == 0) {
seq__56(' ', (n - k) - 2);
Texts_Write(&*W, W__typ, '0');
seq__56(' ', k + 1);
} else if (e == 255) {
Texts_WriteString(&*W, W__typ, (CHAR*)" NaN", 5);
seq__56(' ', n - 4);
} else {
e = __ASHR((e - 127) * 77, 8);
if (x < (REAL)0) {
sign = '-';
x = -x;
} else {
sign = ' ';
}
if (e >= 0) {
x = x / (REAL)Reals_Ten(e);
} else {
x = Reals_Ten(-e) * x;
}
if (x >= (REAL)10) {
x = 1.0000000e-001 * x;
e += 1;
}
if (k + e >= 8) {
k = 8 - e;
} else if (k + e < 0) {
k = -e;
x = (REAL)0;
}
x0 = Reals_Ten(k + e);
x = x0 * x + 5.0000000e-001;
if (x >= (REAL)10 * x0) {
e += 1;
}
e += 1;
i = k + e;
Reals_Convert(x, i, (void*)d, 9);
if (e > 0) {
seq__56(' ', ((n - e) - k) - 2);
Texts_Write(&*W, W__typ, sign);
dig__54(e);
Texts_Write(&*W, W__typ, '.');
dig__54(k);
} else {
seq__56(' ', (n - k) - 3);
Texts_Write(&*W, W__typ, sign);
Texts_Write(&*W, W__typ, '0');
Texts_Write(&*W, W__typ, '.');
seq__56('0', -e);
dig__54(k + e);
}
}
WriteRealFix__53_s = _s.lnk;
}
void Texts_WriteRealHex (Texts_Writer *W, ADDRESS *W__typ, REAL x)
{
INT16 i;
CHAR d[8];
Reals_ConvertH(x, (void*)d, 8);
i = 0;
do {
Texts_Write(&*W, W__typ, d[__X(i, 8)]);
i += 1;
} while (!(i == 8));
}
void Texts_WriteLongReal (Texts_Writer *W, ADDRESS *W__typ, LONGREAL x, INT16 n)
{
INT16 e;
LONGREAL x0;
CHAR d[16];
e = Reals_ExpoL(x);
if (e == 0) {
Texts_WriteString(&*W, W__typ, (CHAR*)" 0", 4);
do {
Texts_Write(&*W, W__typ, ' ');
n -= 1;
} while (!(n <= 3));
} else if (e == 2047) {
Texts_WriteString(&*W, W__typ, (CHAR*)" NaN", 5);
while (n > 4) {
Texts_Write(&*W, W__typ, ' ');
n -= 1;
}
} else {
if (n <= 10) {
n = 3;
} else {
n -= 7;
}
do {
Texts_Write(&*W, W__typ, ' ');
n -= 1;
} while (!(n <= 16));
if (x < (LONGREAL)0) {
Texts_Write(&*W, W__typ, '-');
x = -x;
} else {
Texts_Write(&*W, W__typ, ' ');
}
e = (INT16)__ASHR((e - 1023) * 77, 8);
if (e >= 0) {
x = x / (LONGREAL)Reals_TenL(e);
} else {
x = Reals_TenL(-e) * x;
}
if (x >= (LONGREAL)10) {
x = 1.00000000000000e-001 * x;
e += 1;
}
x0 = Reals_TenL(n - 1);
x = x0 * x + 5.00000000000000e-001;
if (x >= (LONGREAL)10 * x0) {
x = 1.00000000000000e-001 * x;
e += 1;
}
Reals_ConvertL(x, n, (void*)d, 16);
n -= 1;
Texts_Write(&*W, W__typ, d[__X(n, 16)]);
Texts_Write(&*W, W__typ, '.');
do {
n -= 1;
Texts_Write(&*W, W__typ, d[__X(n, 16)]);
} while (!(n == 0));
Texts_Write(&*W, W__typ, 'D');
if (e < 0) {
Texts_Write(&*W, W__typ, '-');
e = -e;
} else {
Texts_Write(&*W, W__typ, '+');
}
Texts_Write(&*W, W__typ, (CHAR)(__DIV(e, 100) + 48));
e = (int)__MOD(e, 100);
Texts_Write(&*W, W__typ, (CHAR)(__DIV(e, 10) + 48));
Texts_Write(&*W, W__typ, (CHAR)((int)__MOD(e, 10) + 48));
}
}
void Texts_WriteLongRealHex (Texts_Writer *W, ADDRESS *W__typ, LONGREAL x)
{
INT16 i;
CHAR d[16];
Reals_ConvertHL(x, (void*)d, 16);
i = 0;
do {
Texts_Write(&*W, W__typ, d[__X(i, 16)]);
i += 1;
} while (!(i == 16));
}
static struct WriteDate__43 {
Texts_Writer *W;
ADDRESS *W__typ;
struct WriteDate__43 *lnk;
} *WriteDate__43_s;
static void WritePair__44 (CHAR ch, INT32 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, ADDRESS *W__typ, INT32 t, INT32 d)
{
struct WriteDate__43 _s;
_s.W = W; _s.W__typ = W__typ;
_s.lnk = WriteDate__43_s;
WriteDate__43_s = &_s;
WritePair__44(' ', __MASK(d, -32));
WritePair__44('.', __MASK(__ASHR(d, 5), -16));
WritePair__44('.', __MASK(__ASHR(d, 9), -128));
WritePair__44(' ', __MASK(__ASHR(t, 12), -32));
WritePair__44(':', __MASK(__ASHR(t, 6), -64));
WritePair__44(':', __MASK(t, -64));
WriteDate__43_s = _s.lnk;
}
static struct Load0__16 {
Texts_Text *T;
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, ADDRESS *r__typ, INT32 pos, INT32 span, Texts_Elem *e);
static void LoadElem__17 (Files_Rider *r, ADDRESS *r__typ, INT32 pos, INT32 span, Texts_Elem *e)
{
Modules_Module M = NIL;
Modules_Command Cmd;
Texts_Alien a = NIL;
INT32 org, ew, eh;
INT8 eno;
Texts_new = NIL;
Files_ReadLInt(&*r, r__typ, &ew);
Files_ReadLInt(&*r, r__typ, &eh);
Files_Read(&*r, r__typ, (void*)&eno);
if (eno > *Load0__16_s->ecnt) {
*Load0__16_s->ecnt = eno;
Files_ReadString(&*r, r__typ, (void*)(*Load0__16_s->mods)[__X(eno, 64)], 32);
Files_ReadString(&*r, r__typ, (void*)(*Load0__16_s->procs)[__X(eno, 64)], 32);
}
org = Files_Pos(&*r, r__typ);
M = Modules_ThisMod((*Load0__16_s->mods)[__X(eno, 64)], 32);
if (M != NIL) {
Cmd = Modules_ThisCommand(M, (*Load0__16_s->procs)[__X(eno, 64)], 32);
if (Cmd != NIL) {
(*Cmd)();
}
}
*e = Texts_new;
if (*e != NIL) {
(*e)->W = ew;
(*e)->H = eh;
(*e)->base = *Load0__16_s->T;
(*Load0__16_s->msg).pos = pos;
(*(*e)->handle)(*e, (void*)&*Load0__16_s->msg, Texts_FileMsg__typ);
if (Files_Pos(&*r, r__typ) != org + span) {
*e = NIL;
}
}
if (*e == NIL) {
Files_Set(&*r, r__typ, *Load0__16_s->f, org + span);
__NEW(a, Texts__1);
a->W = ew;
a->H = eh;
a->handle = Texts_HandleAlien;
a->base = *Load0__16_s->T;
a->file = *Load0__16_s->f;
a->org = org;
a->span = span;
__COPY((*Load0__16_s->mods)[__X(eno, 64)], a->mod, 32);
__COPY((*Load0__16_s->procs)[__X(eno, 64)], a->proc, 32);
*e = (Texts_Elem)a;
}
}
static void Texts_Load0 (Files_Rider *r, ADDRESS *r__typ, Texts_Text T)
{
Texts_Run u = NIL, un = NIL;
Texts_Piece p = NIL;
Texts_Elem e = NIL;
INT32 org, pos, hlen, plen;
INT8 ecnt, fcnt, fno, col, voff;
Files_File f = NIL;
Texts_FileMsg msg;
CHAR mods[64][32], procs[64][32];
CHAR name[32];
Texts_FontsFont fnts[32];
struct Load0__16 _s;
_s.T = &T;
_s.ecnt = &ecnt;
_s.f = &f;
_s.msg = &msg;
_s.mods = (void*)mods;
_s.procs = (void*)procs;
_s.lnk = Load0__16_s;
Load0__16_s = &_s;
pos = Files_Pos(&*r, r__typ);
f = Files_Base(&*r, r__typ);
__NEW(u, Texts_RunDesc);
u->len = 2147483647;
u->fnt = NIL;
u->col = 15;
T->head = u;
ecnt = 0;
fcnt = 0;
msg.id = 0;
msg.r = *r;
Files_ReadLInt(&msg.r, Files_Rider__typ, &hlen);
org = (pos - 2) + hlen;
pos = org;
Files_Read(&msg.r, Files_Rider__typ, (void*)&fno);
while (fno != 0) {
if (fno > fcnt) {
fcnt = fno;
Files_ReadString(&msg.r, Files_Rider__typ, (void*)name, 32);
fnts[__X(fno, 32)] = Texts_FontsThis((void*)name, 32);
}
Files_Read(&msg.r, Files_Rider__typ, (void*)&col);
Files_Read(&msg.r, Files_Rider__typ, (void*)&voff);
Files_ReadLInt(&msg.r, Files_Rider__typ, &plen);
if (plen > 0) {
__NEW(p, Texts_PieceDesc);
p->file = f;
p->org = pos;
p->ascii = 0;
un = (Texts_Run)p;
un->len = plen;
} else {
LoadElem__17(&msg.r, Files_Rider__typ, pos - org, -plen, &e);
un = (Texts_Run)e;
un->len = 1;
}
un->col = col;
un->voff = voff;
pos += un->len;
u->next = un;
un->prev = u;
u = un;
Files_Read(&msg.r, Files_Rider__typ, (void*)&fno);
}
u->next = T->head;
T->head->prev = u;
T->cache = T->head;
T->corg = 0;
Files_ReadLInt(&msg.r, Files_Rider__typ, &T->len);
Files_Set(&*r, r__typ, f, Files_Pos(&msg.r, Files_Rider__typ) + T->len);
Load0__16_s = _s.lnk;
}
void Texts_Load (Files_Rider *r, ADDRESS *r__typ, Texts_Text T)
{
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);
}
Texts_Load0(&*r, r__typ, T);
}
void Texts_Open (Texts_Text T, CHAR *name, LONGINT name__len)
{
Files_File f = NIL;
Files_Rider r;
Texts_Run u = NIL;
Texts_Piece p = NIL;
CHAR tag, version;
INT32 hlen;
__DUP(name, name__len, CHAR);
f = Files_Old(name, name__len);
if (f == NIL) {
f = Files_New((CHAR*)"", 1);
}
Files_Set(&r, Files_Rider__typ, f, 0);
Files_Read(&r, Files_Rider__typ, (void*)&tag);
Files_Read(&r, Files_Rider__typ, (void*)&version);
if (tag == 0xf0 || (tag == 0x01 && version == 0xf0)) {
Texts_Load0(&r, Files_Rider__typ, T);
} else {
__NEW(u, Texts_RunDesc);
u->len = 2147483647;
u->fnt = NIL;
u->col = 15;
__NEW(p, Texts_PieceDesc);
if ((tag == 0xf7 && version == 0x07)) {
Files_Set(&r, Files_Rider__typ, f, 28);
Files_ReadLInt(&r, Files_Rider__typ, &hlen);
Files_Set(&r, Files_Rider__typ, f, 22 + hlen);
Files_ReadLInt(&r, Files_Rider__typ, &T->len);
p->org = 26 + hlen;
} else {
T->len = Files_Length(f);
p->org = 0;
}
if (T->len > 0) {
p->len = T->len;
p->fnt = Texts_FontsDefault;
p->col = 15;
p->voff = 0;
p->file = f;
p->ascii = 1;
u->next = (Texts_Run)p;
u->prev = (Texts_Run)p;
p->next = u;
p->prev = u;
} else {
u->next = u;
u->prev = u;
}
T->head = u;
T->cache = T->head;
T->corg = 0;
}
__DEL(name);
}
static struct Store__39 {
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, ADDRESS *r__typ, INT32 pos, Texts_Elem e);
static void StoreElem__40 (Files_Rider *r, ADDRESS *r__typ, INT32 pos, Texts_Elem e)
{
Files_Rider r1;
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;
while (__STRCMP((*Store__39_s->mods)[__X(eno, 64)], (*Store__39_s->iden).mod) != 0 || __STRCMP((*Store__39_s->procs)[__X(eno, 64)], (*Store__39_s->iden).proc) != 0) {
eno += 1;
}
Files_Set(&r1, Files_Rider__typ, Files_Base(&*r, r__typ), Files_Pos(&*r, r__typ));
Files_WriteLInt(&*r, r__typ, 0);
Files_WriteLInt(&*r, r__typ, 0);
Files_WriteLInt(&*r, r__typ, 0);
Files_Write(&*r, r__typ, eno);
if (eno == *Store__39_s->ecnt) {
*Store__39_s->ecnt += 1;
Files_WriteString(&*r, r__typ, (*Store__39_s->iden).mod, 32);
Files_WriteString(&*r, r__typ, (*Store__39_s->iden).proc, 32);
}
(*Store__39_s->msg).pos = pos;
org = Files_Pos(&*r, r__typ);
(*e->handle)(e, (void*)&*Store__39_s->msg, Texts_FileMsg__typ);
span = Files_Pos(&*r, r__typ) - org;
Files_WriteLInt(&r1, Files_Rider__typ, -span);
Files_WriteLInt(&r1, Files_Rider__typ, e->W);
Files_WriteLInt(&r1, Files_Rider__typ, e->H);
}
void Texts_Store (Files_Rider *r, ADDRESS *r__typ, Texts_Text T)
{
Files_Rider r1;
Texts_Run u = NIL, un = NIL;
Texts_Elem e = NIL;
INT32 org, pos, delta, hlen, rlen;
INT8 ecnt, fcnt;
CHAR ch;
INT8 fno;
Texts_FileMsg msg;
Texts_IdentifyMsg iden;
CHAR mods[64][32], procs[64][32];
Texts_FontsFont fnts[32];
CHAR block[1024];
struct Store__39 _s;
_s.ecnt = &ecnt;
_s.msg = &msg;
_s.iden = &iden;
_s.mods = (void*)mods;
_s.procs = (void*)procs;
_s.lnk = Store__39_s;
Store__39_s = &_s;
org = Files_Pos(&*r, r__typ);
msg.id = 1;
msg.r = *r;
Files_WriteLInt(&msg.r, Files_Rider__typ, 0);
u = T->head->next;
pos = 0;
delta = 0;
fcnt = 1;
ecnt = 1;
while (u != T->head) {
if (__ISP(u, Texts_ElemDesc, 1)) {
iden.mod[0] = 0x00;
(*__GUARDP(u, Texts_ElemDesc, 1)->handle)(__GUARDP(u, Texts_ElemDesc, 1), (void*)&iden, Texts_IdentifyMsg__typ);
} else {
iden.mod[0] = 0x01;
}
if (iden.mod[0] != 0x00) {
fnts[__X(fcnt, 32)] = u->fnt;
fno = 1;
while (__STRCMP(fnts[__X(fno, 32)]->name, u->fnt->name) != 0) {
fno += 1;
}
Files_Write(&msg.r, Files_Rider__typ, fno);
if (fno == fcnt) {
fcnt += 1;
Files_WriteString(&msg.r, Files_Rider__typ, u->fnt->name, 32);
}
Files_Write(&msg.r, Files_Rider__typ, u->col);
Files_Write(&msg.r, Files_Rider__typ, u->voff);
}
if (__ISP(u, Texts_PieceDesc, 1)) {
rlen = u->len;
un = u->next;
while ((((((__ISP(un, Texts_PieceDesc, 1) && un->fnt == u->fnt)) && un->col == u->col)) && un->voff == u->voff)) {
rlen += un->len;
un = un->next;
}
Files_WriteLInt(&msg.r, Files_Rider__typ, rlen);
pos += rlen;
u = un;
} else if (iden.mod[0] != 0x00) {
StoreElem__40(&msg.r, Files_Rider__typ, pos, __GUARDP(u, Texts_ElemDesc, 1));
pos += 1;
u = u->next;
} else {
delta += 1;
u = u->next;
}
}
Files_Write(&msg.r, Files_Rider__typ, 0);
Files_WriteLInt(&msg.r, Files_Rider__typ, T->len - delta);
hlen = (Files_Pos(&msg.r, Files_Rider__typ) - org) + 2;
Files_Set(&r1, Files_Rider__typ, Files_Base(&msg.r, Files_Rider__typ), org);
Files_WriteLInt(&r1, Files_Rider__typ, hlen);
u = T->head->next;
while (u != T->head) {
if (__ISP(u, Texts_PieceDesc, 1)) {
if (__ISP(u, Texts_PieceDesc, 1)) {
if (((Texts_Piece)u)->ascii) {
Files_Set(&r1, Files_Rider__typ, ((Texts_Piece)u)->file, ((Texts_Piece)u)->org);
delta = ((Texts_Piece)u)->len;
while (delta > 0) {
Files_Read(&r1, Files_Rider__typ, (void*)&ch);
delta -= 1;
if (ch == 0x0a) {
Files_Write(&msg.r, Files_Rider__typ, 0x0d);
} else {
Files_Write(&msg.r, Files_Rider__typ, ch);
}
}
} else {
Files_Set(&r1, Files_Rider__typ, ((Texts_Piece)u)->file, ((Texts_Piece)u)->org);
delta = ((Texts_Piece)u)->len;
while (delta > 1024) {
Files_ReadBytes(&r1, Files_Rider__typ, (void*)block, 1024, 1024);
Files_WriteBytes(&msg.r, Files_Rider__typ, (void*)block, 1024, 1024);
delta -= 1024;
}
Files_ReadBytes(&r1, Files_Rider__typ, (void*)block, 1024, delta);
Files_WriteBytes(&msg.r, Files_Rider__typ, (void*)block, 1024, delta);
}
} else __WITHCHK;
} else {
iden.mod[0] = 0x00;
(*__GUARDP(u, Texts_ElemDesc, 1)->handle)(__GUARDP(u, Texts_ElemDesc, 1), (void*)&iden, Texts_IdentifyMsg__typ);
if (iden.mod[0] != 0x00) {
Files_Write(&msg.r, Files_Rider__typ, 0x1c);
}
}
u = u->next;
}
__GUARDEQR(r, r__typ, Files_Rider) = msg.r;
if (T->notify != NIL) {
(*T->notify)(T, 3, 0, 0);
}
Store__39_s = _s.lnk;
}
void Texts_Close (Texts_Text T, CHAR *name, LONGINT name__len)
{
Files_File f = NIL;
Files_Rider r;
INT16 i, res;
CHAR bak[64];
__DUP(name, name__len, CHAR);
f = Files_New(name, name__len);
Files_Set(&r, Files_Rider__typ, f, 0);
Files_Write(&r, Files_Rider__typ, 0xf0);
Files_Write(&r, Files_Rider__typ, 0x01);
Texts_Store(&r, Files_Rider__typ, T);
i = 0;
while (name[__X(i, name__len)] != 0x00) {
i += 1;
}
__COPY(name, bak, 64);
bak[__X(i, 64)] = '.';
bak[__X(i + 1, 64)] = 'B';
bak[__X(i + 2, 64)] = 'a';
bak[__X(i + 3, 64)] = 'k';
bak[__X(i + 4, 64)] = 0x00;
Files_Rename(name, name__len, bak, 64, &res);
Files_Register(f);
__DEL(name);
}
static void EnumPtrs(void (*P)(void*))
{
P(Texts_new);
P(Texts_del);
P(Texts_FontsDefault);
}
__TDESC(Texts_FontDesc, 1, 0) = {__TDFLDS("FontDesc", 32), {-4}};
__TDESC(Texts_RunDesc, 1, 3) = {__TDFLDS("RunDesc", 20), {0, 4, 12, -16}};
__TDESC(Texts_PieceDesc, 1, 4) = {__TDFLDS("PieceDesc", 28), {0, 4, 12, 20, -20}};
__TDESC(Texts_ElemMsg, 1, 0) = {__TDFLDS("ElemMsg", 1), {-4}};
__TDESC(Texts_ElemDesc, 1, 4) = {__TDFLDS("ElemDesc", 36), {0, 4, 12, 32, -20}};
__TDESC(Texts_FileMsg, 1, 1) = {__TDFLDS("FileMsg", 28), {16, -8}};
__TDESC(Texts_CopyMsg, 1, 1) = {__TDFLDS("CopyMsg", 4), {0, -8}};
__TDESC(Texts_IdentifyMsg, 1, 0) = {__TDFLDS("IdentifyMsg", 64), {-4}};
__TDESC(Texts_BufDesc, 1, 1) = {__TDFLDS("BufDesc", 8), {4, -8}};
__TDESC(Texts_TextDesc, 1, 2) = {__TDFLDS("TextDesc", 20), {8, 12, -12}};
__TDESC(Texts_Reader, 1, 4) = {__TDFLDS("Reader", 48), {4, 12, 24, 36, -20}};
__TDESC(Texts_Scanner, 1, 4) = {__TDFLDS("Scanner", 140), {4, 12, 24, 36, -20}};
__TDESC(Texts_Writer, 1, 4) = {__TDFLDS("Writer", 36), {0, 4, 20, 32, -20}};
__TDESC(Texts__1, 1, 5) = {__TDFLDS("", 112), {0, 4, 12, 32, 36, -24}};
export void *Texts__init(void)
{
__DEFMOD;
__MODULE_IMPORT(Files);
__MODULE_IMPORT(Modules);
__MODULE_IMPORT(Reals);
__REGMOD("Texts", EnumPtrs);
__INITYP(Texts_FontDesc, Texts_FontDesc, 0);
__INITYP(Texts_RunDesc, Texts_RunDesc, 0);
__INITYP(Texts_PieceDesc, Texts_RunDesc, 1);
__INITYP(Texts_ElemMsg, Texts_ElemMsg, 0);
__INITYP(Texts_ElemDesc, Texts_RunDesc, 1);
__INITYP(Texts_FileMsg, Texts_ElemMsg, 1);
__INITYP(Texts_CopyMsg, Texts_ElemMsg, 1);
__INITYP(Texts_IdentifyMsg, Texts_ElemMsg, 1);
__INITYP(Texts_BufDesc, Texts_BufDesc, 0);
__INITYP(Texts_TextDesc, Texts_TextDesc, 0);
__INITYP(Texts_Reader, Texts_Reader, 0);
__INITYP(Texts_Scanner, Texts_Reader, 1);
__INITYP(Texts_Writer, Texts_Writer, 0);
__INITYP(Texts__1, Texts_ElemDesc, 2);
/* BEGIN */
Texts_del = NIL;
__NEW(Texts_FontsDefault, Texts_FontDesc);
__MOVE("Syntax10.Scn.Fnt", Texts_FontsDefault->name, 17);
__ENDMOD;
}
Reference in a new issue View git blame Copy permalink