47 lines
1.3 KiB
C
47 lines
1.3 KiB
C
|
#include <stdlib.h>
|
||
|
|
#include "os.h"
|
||
|
|
#include "compiler-structure.h"
|
||
|
|
#include "compiler.h"
|
||
|
|
|
||
|
|
/* This should be part of compiler-structure, but since it is used by other modules,
|
||
|
|
* it will stay here for convenience */
|
||
|
|
LINEBLOCK* compileclass(COMPILER* c, CLASS* class) {
|
||
|
|
SCOPE* topscope = mkscope(c->globalscope);
|
||
|
|
if(class->vardecs != NULL)
|
||
|
|
addclassvardecs(topscope, class->vardecs);
|
||
|
|
if(class->subroutdecs != NULL)
|
||
|
|
topscope->subroutines = class->subroutdecs;
|
||
|
|
|
||
|
|
LINEBLOCK* output = NULL;
|
||
|
|
SUBROUTDEC* curr = class->subroutdecs;
|
||
|
|
while(curr != NULL) {
|
||
|
|
output = mergelnblks(output, compilesubroutdec(topscope, class, curr));
|
||
|
|
curr = curr->next;
|
||
|
|
}
|
||
|
|
freescope(topscope);
|
||
|
|
return output;
|
||
|
|
}
|
||
|
|
|
||
|
|
COMPILER* mkcompiler(CLASS* classes) {
|
||
|
|
COMPILER* c = (COMPILER*)malloc(sizeof(COMPILER));
|
||
|
|
c->globalscope = mkscope(NULL);
|
||
|
|
c->globalscope->compiler = c;
|
||
|
|
c->globalscope->classes = classes;
|
||
|
|
c->classes = classes;
|
||
|
|
c->os = mkos();
|
||
|
|
pthread_mutex_init(&(c->ifmutex), NULL);
|
||
|
|
pthread_mutex_init(&(c->whilemutex), NULL);
|
||
|
|
pthread_mutex_init(&(c->staticmutex), NULL);
|
||
|
|
return c;
|
||
|
|
}
|
||
|
|
|
||
|
|
void freecompiler(COMPILER* c) {
|
||
|
|
pthread_mutex_destroy(&(c->ifmutex));
|
||
|
|
pthread_mutex_destroy(&(c->whilemutex));
|
||
|
|
pthread_mutex_destroy(&(c->staticmutex));
|
||
|
|
// to be continued
|
||
|
|
freeos(c->os);
|
||
|
|
freescope(c->globalscope);
|
||
|
|
free(c);
|
||
|
|
}
|