82 lines
2.0 KiB
C
82 lines
2.0 KiB
C
#include <string.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
|
|
void trit_flip(char *in, char *instruction) {
|
|
for (int i = 0; i<(sizeof(in)/sizeof(in[0])); i++) {
|
|
in[i] = instruction[i];
|
|
}
|
|
}
|
|
int asm_rules(char *in, char _asm[27]){
|
|
|
|
for (int i = 0; i < 27; i++) {
|
|
_asm[i] = 0;
|
|
}
|
|
int pass = 0;
|
|
|
|
char *word = strtok(in, " ");
|
|
while(word != NULL) {
|
|
|
|
if (strcmp(word, "nop") == 0) {
|
|
//keeps the default value (0) if nop
|
|
} else if (word[0] == ';') {
|
|
//comments
|
|
break;
|
|
} else {
|
|
if(word[0] == 'i') {
|
|
//integer
|
|
_asm[7] = '0';
|
|
} else if(word[0] == 'f') {
|
|
//floating
|
|
_asm[7] = '-';
|
|
}
|
|
if (word[0] == '$' || word[0] == '@') {
|
|
|
|
//cases make larger checks harder to read
|
|
} else if (strstr(word, "max")) {
|
|
trit_flip(_asm, "+00000+000000");
|
|
} else if (strstr(word, "min")) {
|
|
trit_flip(_asm, "-00000+000000");
|
|
} else if (strstr(word, "any")) {
|
|
trit_flip(_asm, "000000+000000");
|
|
} else if (strstr(word, "cons")) {
|
|
trit_flip(_asm, "-+0000+000000");
|
|
} else if (strstr(word, "add")) {
|
|
trit_flip(_asm, "+-+000+000000");
|
|
} else if (strstr(word, "sub")) {
|
|
trit_flip(_asm, "+--000+000000");
|
|
} else if (strstr(word, "mul")) {
|
|
trit_flip(_asm, "+0+000+000000");
|
|
} else if (strstr(word, "div")) {
|
|
trit_flip(_asm, "+0-000+000000");
|
|
} else if (strstr(word, "dec")) {
|
|
trit_flip(_asm, "--0000+000000");
|
|
} else if (strstr(word, "inc")) {
|
|
trit_flip(_asm, "-+0000+000000");
|
|
} else if (strstr(word, "iou")) {
|
|
trit_flip(_asm, "--0000-000000");
|
|
} else if (strstr(word, "ieq")) {
|
|
trit_flip(_asm, "+-0000-000000");
|
|
} else if (strstr(word, "jmp")) {
|
|
trit_flip(_asm, "000000-000000");
|
|
} else if (strstr(word, "jec")) {
|
|
trit_flip(_asm, "+00000-000000");
|
|
} else if (strstr(word, "mov")) {
|
|
trit_flip(_asm, "+000000000000");
|
|
} else if (strstr(word, "Nst")) { //underflow test
|
|
trit_flip(_asm, "-------------");
|
|
} else if (strstr(word, "Pst")) { //overflow test
|
|
trit_flip(_asm, "+++++++++++++");
|
|
}
|
|
|
|
|
|
|
|
}
|
|
|
|
word = strtok(NULL, " ");
|
|
}
|
|
pass = 0;
|
|
return 0;
|
|
}
|
|
|