mrmtypes.c

安装DDD之前

    ColorTable *this = (ColorTable *)malloc(sizeof(ColorTable));

    this->theExpression.type = MrmRtypeColorTable;
    this->ColorVector = NULL;
    this->theExpression.value = (long)this->ColorVector;
    this->theExpression.Emit = (PFI)ColorTableEmit;

    return this;
}

void
ColorTableAppend(ColorTable *this, char *Representation, Color *color)
{
    ColorElement **i;

    for (i = &this->ColorVector; *i != NULL; i = &((*i)->Next));

    *i = ColorElementNew(Representation, color);
}

void
ColorTableEmit(ColorTable *this)
{
    ColorElement **j;
    int size = 0;

    fputc(this->theExpression.type, outFile);

    for (j = &this->ColorVector; *j != NULL; j = &((*j)->Next))
    {
	size++;
    }

    fwrite(&size, sizeof(size), 1, outFile);

    for (j = &this->ColorVector; *j != NULL; j = &((*j)->Next))
    {
	ColorElementEmit(*j);
    };
}

Char8Vector *
Char8VectorNew(void)
{
    Char8Vector *this = (Char8Vector *)malloc(sizeof(Char8Vector));

    this->theExpression.type = MrmRtypeChar8Vector;
    this->CharVector = NULL;
    this->theExpression.value = (long)&this->CharVector;
    this->theExpression.Emit = (PFI)Char8VectorEmit;

    return this;
}

static Char8Element *
Char8ElementNew(char *s)
{
    Char8Element *this = (Char8Element *)malloc(sizeof(Char8Element));

    this->Next = NULL;
    if (strlen(s) > 255)	/* FIX ME */
    {
	__MrmExit(LOC, "String too long\n");
    }
    strcpy(this->lvalue, s);

    return this;
}

void
Char8VectorAppend(Char8Vector *this, char *s)
{
    Char8Element **j;

    for (j = &this->CharVector; *j != NULL; j = &((*j)->Next));

    *j = Char8ElementNew(s);
}

void
Char8VectorEmit(Char8Vector *this)
{
    Char8Element **j;

    fputc(this->theExpression.type, outFile);

    for (j = &this->CharVector; *j != NULL; j = &((*j)->Next))
    {
	fputs((*j)->lvalue, outFile);

	fputc('"', outFile);
    };

    fputc(0, outFile);
}

BooleanM *
BooleanMNew(Bool i)
{
    BooleanM *this = (BooleanM *)malloc(sizeof(BooleanM));

    this->theExpression.value = i;
    this->theExpression.type = MrmRtypeBoolean;
    this->theExpression.Emit = (PFI)BooleanMEmit;

    return this;
}

void
BooleanMEmit(BooleanM *this)
{
    fputc(this->theExpression.type, outFile);

    fwrite(&this->theExpression.value, sizeof(long), 1, outFile);
}

Integer *
IntegerNew(int i)
{
    Integer *this = (Integer *)malloc(sizeof(Integer));

    this->theExpression.value = (long)i;
    this->theExpression.type = MrmRtypeInteger;
    this->theExpression.Emit = (PFI)IntegerEmit;

    return this;
}

void
IntegerEmit(Integer *this)
{
    fputc(this->theExpression.type, outFile);

    fwrite(&this->theExpression.value, sizeof(long), 1, outFile);
}

#if 0
static int
IntegerGetEvalValue(Integer *this)
{
    return ((int)this->theExpression.value);
}
#endif

AddrName *
AddrNameNew(char *s)
{
    AddrName *this = (AddrName *)malloc(sizeof(AddrName));

    strcpy(this->lvalue, s);

    this->theExpression.value = (long)this->lvalue;
    this->theExpression.type = MrmRtypeAddrName;
    this->theExpression.Emit = (PFI)AddrNameEmit;

    return this;
}

void
AddrNameEmit(AddrName *this)
{
    fputc(this->theExpression.type, outFile);

    fputs((char *)this->theExpression.value, outFile);

    fputc(0, outFile);
}

static CStringElement *
CStringElementNew(char *s, char *fs,
		  int IsAddress, int IsSeparator)
{
    CStringElement *this = (CStringElement *) malloc(sizeof(CStringElement));

    this->Next = NULL;
    this->theFontSet = fs;
    this->IsAddress = IsAddress;
    this->IsSeparator = IsSeparator;

    strcpy(this->lvalue, s);

    return this;
}

static void
CStringElementEmit(CStringElement * this)
{
    fputs((char *)this->lvalue, outFile);

    fputc(0, outFile);

    if (this->theFontSet)
    {
	fputs((char *)this->theFontSet, outFile);
    }

    fputc(0, outFile);
    fputc(this->IsAddress, outFile);
    fputc(this->IsSeparator, outFile);
}


CString *
CStringNew(char *s, char *fs, char IsAddress, char IsSeparator)
{
    CString *this = (CString *)malloc(sizeof(CString));

    this->StringVector = CStringElementNew(s, fs, IsAddress, IsSeparator);
    this->theExpression.type = MrmRtypeCString;
    this->theExpression.value = (long)this->StringVector;
    this->theExpression.Emit = (PFI)CStringEmit;

    return this;
}

CString *
CStringNew1(AddrName *add)
{
    return CStringNew((char *)add->theExpression.value, NULL, 1, 0);
}

CString *
CStringAdd(CString *this, CString *s)
{
    CStringElement **j;

    for (j = &this->StringVector; *j != NULL; j = &((*j)->Next));

    *j = s->StringVector;

    return this;
}

void
CStringEmit(CString *this)
{
    CStringElement **j;

    fputc(this->theExpression.type, outFile);

    for (j = &this->StringVector; *j != NULL; j = &((*j)->Next))
    {
	CStringElementEmit(*j);
    };

    fputc(0, outFile);
}

Char8 *
Char8New1(char *s, FontSet * fs)
{
    Char8 *this = Char8New(s);

    this->theFontSet = fs;

    return this;
}

Char8 *
Char8New(char *s)
{
    Char8 *this = (Char8 *)malloc(sizeof(Char8));
    char *q = s;
    char *q1 = s;

    while (*q)
    {
	if ('\\' == *q)
	{
	    q++;
	    switch (*q)
	    {
	    case 'a':
		*q1++ = '\a';
		break;
	    case 'n':
		*q1++ = '\n';
		break;
	    case 'r':
		*q1++ = '\r';
		break;
	    case 't':
		*q1++ = '\t';
		break;
	    case '\\':
		*q1++ = '\\';
		break;
	    default:
		*q1++ = *q;
		break;
	    }
	    q++;
	}
	else
	{
	    *q1++ = *q++;
	}
    }

    *q1 = '\0';

    this->theExpression.type = MrmRtypeChar8;

    strcpy(this->lvalue, s);

    this->theExpression.value = (long)this->lvalue;
    this->theExpression.Emit = (PFI)Char8Emit;
    this->theFontSet = NULL;

    return this;
}

void
Char8Emit(Char8 *this)
{
    fputc(this->theExpression.type, outFile);

    fputs((char *)this->theExpression.value, outFile);

    fputc(0, outFile);

    if (this->theFontSet)
    {
	fputs((char *)this->theFontSet->fontset.name, outFile);
    }

    fputc(0, outFile);
}

PixmapImage *
PixmapImageNew(char *ColorMap, Char8Vector *pixmap)
{
    char *current = NULL, *source = NULL;
    Char8Element **i;
    PixmapImage *this = (PixmapImage *)malloc(sizeof(PixmapImage));

    this->theExpression.type = MrmRtypePixmapImage;
    this->thePixmap.height = 0;
    this->theData = NULL;

    if (ColorMap)
    {
	this->theColorMap = __MrmStore(ColorMap);
    }
    else
    {
	this->theColorMap = NULL;
    }

    this->thePixmap.width = strlen(pixmap->CharVector->lvalue);

    for (i = &pixmap->CharVector; *i != NULL; i = &((*i)->Next))
    {
	this->thePixmap.height += 1;
    }

    current = this->theData =
	(char *)malloc(this->thePixmap.height * this->thePixmap.width);

    for (i = &pixmap->CharVector; *i != NULL; i = &((*i)->Next))
    {
	source = (*i)->lvalue;
	if (NULL == source)
	{
	    __MrmExit(LOC, "Source?\n");
	}

	while (*source)
	{
	    *current++ = *source++;
	}
    }

    this->thePixmap.data = this->theData;
    this->theExpression.value = (long)&this->thePixmap;
    this->theExpression.Emit = (PFI)PixmapImageEmit;

    return this;
}

void
PixmapImageEmit(PixmapImage *this)
{
    fputc(this->theExpression.type, outFile);

    fwrite((char *)this->theExpression.value, 1, sizeof(int) * 2, outFile);

    if (this->theColorMap)
    {
	fputs(this->theColorMap, outFile);
    }

    fputc(0, outFile);

    fwrite(this->thePixmap.data, 1,
	   this->thePixmap.width * this->thePixmap.height, outFile);
}