Koodit: C: Kääntäjä yksinkertaiselle kielelle

#include <stdio.h>

/* Käytettävät tiedostonimet */
char _output[] = "a.com", _input[] = "a.txt";

/* Testauksen selkeyden vuoksi onnistuu myös tulkkaus. */
/* Kun arvo on 0, ei tulkata vaan käännetään. */
unsigned char tulkkaa = 0;

/* Tulkattaessa tämä vastaa rekisterin al arvoa. */
unsigned char byte;

/*
Selväkielisten komentojen vastineet.
Heksakoodien vierellä vastaavat Intel-x86 Assembly -komennot.
*/

/*
Komentosarja tulostaa ruudulle halutun merkin.
Merkki tulostetaan rekisteristä al (8-bittinen).
Tulostus tapahtuu DOSin keskeytyksellä 10h.
Tällöin rekisterissä ah on tulostuksen koodi 0Eh.

Komentosarjaa ei ole toteutettu aliohjelmana, vaan se kirjoitetaan
komennon kohdalle. Kotitehtävä: muokkaa aliohjelmaksi.
        Lisää loppuun ret-komento (paluukohde on tallennettu pinoon).
        Kutsutaan call-käskyllä, parametriksi muistipaikka josta aliohjelma alkaa.
*/
char print_char[] = {
/* push bx */ 0x53,
/* push ax */ 0x50,
/* mov ah, 0Eh */ 0xB4, 0x0E,
/* xor bx, bx */ 0x33, 0xDB,
/* int 10h */ 0xCD, 0x10,
/* pop ax */ 0x58,
/* pop bx */ 0x5B
};

/*
Komento lisää rekisterin al arvoa.
*/
char increase[] = {
/* inc al */ 0xFE, 0xC0
};
/*
Komento vähentää rekisterin al arvoa.
*/
char decrease[] = {
/* dec al */ 0xFE, 0xC8
};
/*
Komento alustaa ohjelman:
Rekisteri al asetetaan nollaksi.
*/
char init[] = {
/* xor al, al */ 0x32, 0xC0
};

/*
Komentosarja poistuu ohjelmasta DOSin keskeytyksellä.
*/
char quit[] = {
/* mov ah, 4Ch */ 0xB4, 0x4C,
/* int 21h*/ 0xCD, 0x21
};

/*
Ottaa parametriksi merkin ja kirjoittaa tiedostoon sitä vastaavat komennot.
*/
void write_equivalent(unsigned char command)
{
        FILE *tiedosto = 0;
        /* Avataan tiedosto jonne ohjelma kirjoitetaan */
        if(!tulkkaa) tiedosto = fopen(_output, "ab");

        switch(command){
                /* Seuraavat komennot luetaan tiedostosta */
                case '+':
                        /* Lisätään merkin arvoa */
                        tulkkaa?++byte:
                        /* Kirjoitetaan vastaava komento tiedostoon */
                        fwrite(increase, sizeof(increase), 1, tiedosto);
                        break;
                case '-':
                        /* Vähennetään merkin arvoa */
                        tulkkaa?--byte:
                        /* Kirjoitetaan vastaava komento tiedostoon */
                        fwrite(decrease, sizeof(decrease), 1, tiedosto);
                        break;
                case '#':
                        /* Tulostetaan merkki */
                        tulkkaa?putchar(byte):
                        /* Kirjoitetaan vastaava komento tiedostoon */
                        fwrite(print_char, sizeof(print_char), 1, tiedosto);
                        break;

                /* Seuraavat komennot ovat sisäisessä käytössä */
                case '{':
                        /* Ohjelma alustetaan */
                        tulkkaa?byte = 0:
                        /* Kirjoitetaan vastaava komento tiedostoon */
                        fwrite(init, sizeof(init), 1, tiedosto);
                        break;
                case '}':
                        /* Ohjelma lopetetaan lopetuskäskyillä */
                        if(!tulkkaa) fwrite(quit, sizeof(quit), 1, tiedosto);
                        break;

                /* Muut merkit ohitetaan. */
                default:
                        break;
        }

        /* Suljetaan tiedosto jos se on avattu */
        if(tiedosto){ fclose(tiedosto);
        /* Jos tiedosto ei ole auki eikä ole tulkattu, virheilmoitus */
        if(!tulkkaa) puts("Virhe: Tiedostoa ei saatu auki.");}
}

int main(void)
{
        /* Tiedostosta luettu merkki */
        int a;

        /* Avataan lähdetiedosto */
        FILE *tiedosto;
        tiedosto = fopen(_input, "r");

        /* Tarkistetaan avauksen onnistuminen */
        if(!tiedosto){
                puts("Tiedostoa ei saatu auki.");
                return 1;
        }

        /* Tyhjennetään kohdetiedosto. */
        FILE *kohde = fopen(_output, "w");
        fclose(kohde);

        /* Kirjoitetaan ohjelman alku tiedostoon */
        write_equivalent('{');

        /* Käydään tiedostoa silmukassa läpi, kunnes se loppuu */
        while((a = fgetc(tiedosto)) != EOF){
                write_equivalent(a);
        }

        /* Kirjoitetaan ohjelman loppu tiedostoon */
        write_equivalent('}');

        /* Suljetaan lähdetiedosto */
        fclose(tiedosto);
        return 0;
}