forked from KolibriOS/kolibrios
47 lines
1.3 KiB
C
47 lines
1.3 KiB
C
|
#include <stdio.h>
|
||
|
|
#include <stdlib.h>
|
||
|
|
#include <string.h>
|
||
|
|
|
||
|
|
typedef struct List_s {
|
||
|
|
char *this;
|
||
|
|
struct List_s *next;
|
||
|
|
} List;
|
||
|
|
|
||
|
|
int main() {
|
||
|
|
List *root;
|
||
|
|
for (List **pitem = &root;; pitem = &(*pitem)->next) {
|
||
|
|
size_t n = 1024;
|
||
|
|
*pitem = calloc(1, sizeof(List));
|
||
|
|
List *item = *pitem;
|
||
|
|
item->this = calloc(1, n);
|
||
|
|
fgets(item->this, n, stdin);
|
||
|
|
if (item->this[0] == '\n') {
|
||
|
|
free(*pitem);
|
||
|
|
*pitem = NULL;
|
||
|
|
break;
|
||
|
|
} else {
|
||
|
|
item->this[strlen(item->this) - 1] = '\0';
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
for (List *item = root; item; item = item->next) {
|
||
|
|
char asm_name[255];
|
||
|
|
sprintf(asm_name, "%s.asm", item->this);
|
||
|
|
FILE *out = fopen(asm_name, "wb");
|
||
|
|
|
||
|
|
fprintf(out, "format ELF\n");
|
||
|
|
fprintf(out, "include \"__lib__.inc\"\n");
|
||
|
|
fprintf(out, "fun equ __func@%s\n", item->this);
|
||
|
|
fprintf(out, "fun_str equ '%s'\n", item->this);
|
||
|
|
fprintf(out, "section '.text'\n");
|
||
|
|
fprintf(out, "fun_name db fun_str, 0\n");
|
||
|
|
fprintf(out, "section '.data'\n");
|
||
|
|
fprintf(out, "extrn lib_name\n");
|
||
|
|
fprintf(out, "public fun as fun_str\n");
|
||
|
|
fprintf(out, "fun dd fun_name\n");
|
||
|
|
fprintf(out, "lib dd lib_name\n");
|
||
|
|
|
||
|
|
fclose(out);
|
||
|
|
}
|
||
|
|
}
|