Subversion Repositories diogenes

#include<stdio.h>

#include <search.h>

#define RDLINE() fgets(line, 1024, stdin)

#define STATE_MACRO 1

#define STATE_ENDM 2

#define STATE_USEM 3

char line[1024];

char *p;

char buffer[10000];

void get_params(char *p, char names[12][256]) {

        int newname = 0;

        int i=0, j=0;

        if(!p) return;

        memset(names, 0, 12*256);

        while(*p) {

                if(isalnum(*p)) {

                        newname = 1;

                        names[i][j++] = *p;

                } else {

                        if(newname==1) {

                                names[i][j] = 0;

                                j=0;

                                i++;

                        }

                        newname = 0;

                }

                p++;

        }

}

char *dollarfy(char *srci, char names[12][256])

{

        int i=2;

        char *dest, *src, *h;

        char *pd, *ps;

        src = malloc(strlen(srci) + 12);

        dest = malloc(strlen(srci) + 12);

        strcpy(src, srci);

        while(names[i][0]) {

                pd = dest;

                ps = src;

                while(*ps) {

                        if(*ps=='\\')

                                if(!strncmp(++ps, names[i], strlen(names[i]))) {

                                        while(*ps && isalnum(*ps++));

                                        ps--;

                                        *pd++ = '$';

                                        *pd++ = ('0' + i-2);

                                        *pd = ' ';

                                } else ps--;

                        *pd = *ps;

                        pd++;

                        ps++;

                }

                *pd = 0;

                i++;

                h = src;

                src = dest;

                dest = h;

        }

        free(dest);

        return src;

}

int hash_macros()

{

        int state=0;

        char *p;

        buffer[0] = 0;

        ENTRY e, *ep;

        char name[128];

        char parm[12][256];

        if(!RDLINE()) return 1;

        while(1) {

                if(p = strstr(line, ".macro")) {

                        sscanf(line, " .macro %s ", name);

                        get_params(p, parm);

                        if(!RDLINE()) return 1;

                        state = STATE_MACRO;

                }

                else if(p = strstr(line, ".endm")) state = STATE_ENDM;

                else if(p = strstr(line, ".usem")) {

                        state = STATE_USEM;

                        sscanf(line, " .usem %s ", name);

                }

                switch(state) {

                        case STATE_MACRO: strcat(buffer, line); break;

                        case STATE_ENDM:

                                p = dollarfy(buffer, parm);

                                e.key = strdup(name);

                                e.data = (void *) p;

                                hsearch(e, ENTER);

                                state = 0; buffer[0] = 0;

                                break;

                        case STATE_USEM:

                                e.key = strdup(name);

                                ep = hsearch(e, FIND);

                                if(ep) printf((char *) ep->data);

                                state = 0; buffer[0] = 0;

                                break;

                        default: printf(line);

                }

                if(!RDLINE()) return 1;

        }

}

int main(int argc, char **argv)

{

  hcreate(100);

  hash_macros();

}