vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 21:32:26 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Base expression casting on C int size, remove dependencies on form=LInt.

Browse source
This commit is contained in:
David Brown 2016-08-31 17:15:44 +01:00
parent b3c71fb2f0
commit 0508097ffe
199 changed files with 6800 additions and 6540 deletions
Download patch file Download diff file Expand all files Collapse all files

100
bootstrap/unix-44/vt100.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/08/30] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/08/31] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h"
#include "Console.h"
#include "Strings.h"
@ -68,12 +68,12 @@ void vt100_IntToStr (LONGINT int_, CHAR *str, LONGINT str__len)
}
e = s;
do {
b[__X(e, ((LONGINT)(21)))] = (CHAR)(__MOD(int_, 10) + 48);
b[__X(e, 21)] = (CHAR)((int)__MOD(int_, 10) + 48);
int_ = __DIV(int_, 10);
e += 1;
} while (!(int_ == 0));
b[__X(e, ((LONGINT)(21)))] = 0x00;
vt100_Reverse0((void*)b, ((LONGINT)(21)), s, e - 1);
b[__X(e, 21)] = 0x00;
vt100_Reverse0((void*)b, 21, s, e - 1);
}
__COPY(b, str, str__len);
}
@ -82,9 +82,9 @@ static void vt100_EscSeq0 (CHAR *letter, LONGINT letter__len)
{
CHAR cmd[9];
__DUP(letter, letter__len, CHAR);
__COPY(vt100_CSI, cmd, ((LONGINT)(9)));
Strings_Append(letter, letter__len, (void*)cmd, ((LONGINT)(9)));
Console_String(cmd, ((LONGINT)(9)));
__COPY(vt100_CSI, cmd, 9);
Strings_Append(letter, letter__len, (void*)cmd, 9);
Console_String(cmd, 9);
__DEL(letter);
}
@ -93,11 +93,11 @@ static void vt100_EscSeq (INTEGER n, CHAR *letter, LONGINT letter__len)
CHAR nstr[2];
CHAR cmd[7];
__DUP(letter, letter__len, CHAR);
vt100_IntToStr(n, (void*)nstr, ((LONGINT)(2)));
__COPY(vt100_CSI, cmd, ((LONGINT)(7)));
Strings_Append(nstr, ((LONGINT)(2)), (void*)cmd, ((LONGINT)(7)));
Strings_Append(letter, letter__len, (void*)cmd, ((LONGINT)(7)));
Console_String(cmd, ((LONGINT)(7)));
vt100_IntToStr(n, (void*)nstr, 2);
__COPY(vt100_CSI, cmd, 7);
Strings_Append(nstr, 2, (void*)cmd, 7);
Strings_Append(letter, letter__len, (void*)cmd, 7);
Console_String(cmd, 7);
__DEL(letter);
}
@ -106,11 +106,11 @@ static void vt100_EscSeqSwapped (INTEGER n, CHAR *letter, LONGINT letter__len)
CHAR nstr[2];
CHAR cmd[7];
__DUP(letter, letter__len, CHAR);
vt100_IntToStr(n, (void*)nstr, ((LONGINT)(2)));
__COPY(vt100_CSI, cmd, ((LONGINT)(7)));
Strings_Append(letter, letter__len, (void*)cmd, ((LONGINT)(7)));
Strings_Append(nstr, ((LONGINT)(2)), (void*)cmd, ((LONGINT)(7)));
Console_String(cmd, ((LONGINT)(7)));
vt100_IntToStr(n, (void*)nstr, 2);
__COPY(vt100_CSI, cmd, 7);
Strings_Append(letter, letter__len, (void*)cmd, 7);
Strings_Append(nstr, 2, (void*)cmd, 7);
Console_String(cmd, 7);
__DEL(letter);
}
@ -119,124 +119,124 @@ static void vt100_EscSeq2 (INTEGER n, INTEGER m, CHAR *letter, LONGINT letter__l
CHAR nstr[5], mstr[5];
CHAR cmd[12];
__DUP(letter, letter__len, CHAR);
vt100_IntToStr(n, (void*)nstr, ((LONGINT)(5)));
vt100_IntToStr(m, (void*)mstr, ((LONGINT)(5)));
__COPY(vt100_CSI, cmd, ((LONGINT)(12)));
Strings_Append(nstr, ((LONGINT)(5)), (void*)cmd, ((LONGINT)(12)));
Strings_Append((CHAR*)";", (LONGINT)2, (void*)cmd, ((LONGINT)(12)));
Strings_Append(mstr, ((LONGINT)(5)), (void*)cmd, ((LONGINT)(12)));
Strings_Append(letter, letter__len, (void*)cmd, ((LONGINT)(12)));
Console_String(cmd, ((LONGINT)(12)));
vt100_IntToStr(n, (void*)nstr, 5);
vt100_IntToStr(m, (void*)mstr, 5);
__COPY(vt100_CSI, cmd, 12);
Strings_Append(nstr, 5, (void*)cmd, 12);
Strings_Append((CHAR*)";", 2, (void*)cmd, 12);
Strings_Append(mstr, 5, (void*)cmd, 12);
Strings_Append(letter, letter__len, (void*)cmd, 12);
Console_String(cmd, 12);
__DEL(letter);
}
void vt100_CUU (INTEGER n)
{
vt100_EscSeq(n, (CHAR*)"A", (LONGINT)2);
vt100_EscSeq(n, (CHAR*)"A", 2);
}
void vt100_CUD (INTEGER n)
{
vt100_EscSeq(n, (CHAR*)"B", (LONGINT)2);
vt100_EscSeq(n, (CHAR*)"B", 2);
}
void vt100_CUF (INTEGER n)
{
vt100_EscSeq(n, (CHAR*)"C", (LONGINT)2);
vt100_EscSeq(n, (CHAR*)"C", 2);
}
void vt100_CUB (INTEGER n)
{
vt100_EscSeq(n, (CHAR*)"D", (LONGINT)2);
vt100_EscSeq(n, (CHAR*)"D", 2);
}
void vt100_CNL (INTEGER n)
{
vt100_EscSeq(n, (CHAR*)"E", (LONGINT)2);
vt100_EscSeq(n, (CHAR*)"E", 2);
}
void vt100_CPL (INTEGER n)
{
vt100_EscSeq(n, (CHAR*)"F", (LONGINT)2);
vt100_EscSeq(n, (CHAR*)"F", 2);
}
void vt100_CHA (INTEGER n)
{
vt100_EscSeq(n, (CHAR*)"G", (LONGINT)2);
vt100_EscSeq(n, (CHAR*)"G", 2);
}
void vt100_CUP (INTEGER n, INTEGER m)
{
vt100_EscSeq2(n, m, (CHAR*)"H", (LONGINT)2);
vt100_EscSeq2(n, m, (CHAR*)"H", 2);
}
void vt100_ED (INTEGER n)
{
vt100_EscSeq(n, (CHAR*)"J", (LONGINT)2);
vt100_EscSeq(n, (CHAR*)"J", 2);
}
void vt100_EL (INTEGER n)
{
vt100_EscSeq(n, (CHAR*)"K", (LONGINT)2);
vt100_EscSeq(n, (CHAR*)"K", 2);
}
void vt100_SU (INTEGER n)
{
vt100_EscSeq(n, (CHAR*)"S", (LONGINT)2);
vt100_EscSeq(n, (CHAR*)"S", 2);
}
void vt100_SD (INTEGER n)
{
vt100_EscSeq(n, (CHAR*)"T", (LONGINT)2);
vt100_EscSeq(n, (CHAR*)"T", 2);
}
void vt100_HVP (INTEGER n, INTEGER m)
{
vt100_EscSeq2(n, m, (CHAR*)"f", (LONGINT)2);
vt100_EscSeq2(n, m, (CHAR*)"f", 2);
}
void vt100_SGR (INTEGER n)
{
vt100_EscSeq(n, (CHAR*)"m", (LONGINT)2);
vt100_EscSeq(n, (CHAR*)"m", 2);
}
void vt100_SGR2 (INTEGER n, INTEGER m)
{
vt100_EscSeq2(n, m, (CHAR*)"m", (LONGINT)2);
vt100_EscSeq2(n, m, (CHAR*)"m", 2);
}
void vt100_DSR (INTEGER n)
{
vt100_EscSeq(6, (CHAR*)"n", (LONGINT)2);
vt100_EscSeq(6, (CHAR*)"n", 2);
}
void vt100_SCP (void)
{
vt100_EscSeq0((CHAR*)"s", (LONGINT)2);
vt100_EscSeq0((CHAR*)"s", 2);
}
void vt100_RCP (void)
{
vt100_EscSeq0((CHAR*)"u", (LONGINT)2);
vt100_EscSeq0((CHAR*)"u", 2);
}
void vt100_DECTCEMl (void)
{
vt100_EscSeq0((CHAR*)"\?25l", (LONGINT)5);
vt100_EscSeq0((CHAR*)"\?25l", 5);
}
void vt100_DECTCEMh (void)
{
vt100_EscSeq0((CHAR*)"\?25h", (LONGINT)5);
vt100_EscSeq0((CHAR*)"\?25h", 5);
}
void vt100_SetAttr (CHAR *attr, LONGINT attr__len)
{
CHAR tmpstr[16];
__DUP(attr, attr__len, CHAR);
__COPY(vt100_CSI, tmpstr, ((LONGINT)(16)));
Strings_Append(attr, attr__len, (void*)tmpstr, ((LONGINT)(16)));
Console_String(tmpstr, ((LONGINT)(16)));
__COPY(vt100_CSI, tmpstr, 16);
Strings_Append(attr, attr__len, (void*)tmpstr, 16);
Console_String(tmpstr, 16);
__DEL(attr);
}
@ -252,7 +252,7 @@ export void *vt100__init(void)
__REGCMD("RCP", vt100_RCP);
__REGCMD("SCP", vt100_SCP);
/* BEGIN */
__COPY("\033", vt100_CSI, ((LONGINT)(5)));
Strings_Append((CHAR*)"[", (LONGINT)2, (void*)vt100_CSI, ((LONGINT)(5)));
__COPY("\033", vt100_CSI, 5);
Strings_Append((CHAR*)"[", 2, (void*)vt100_CSI, 5);
__ENDMOD;
}