#include <unistd.h> //getopt, sysconf
/* Internal */
#include "parser.tab.h" //bison
+#include "ir.h"
#define DEFAULT_PAGESIZE 4096
const char* cargs['Z'] = {0};
-const long sys_pagesize;
-yypstate* apc_pstate;
-yycstate* apc_cstate;
-
+long sys_pagesize;
+
int main(int, char*[]);
-
-extern //bison
-int yyparse(void);
extern //lexer.c
-int lexer_init(void);
-extern
-int scanner_init(void);
-extern
-int scanner();
+int lexer_init(void);
+extern //scanner.c
+int scanner_init(void);
+extern //scanner.c
+void scanner_quit(void);
+extern //scanner.c
+int scanner_scanpath(char const*);
extern //ir.c
-int ir_init(void);
-
-extern //apc/parser.tab.c
-YYSTYPE yylval;
+int ir_init(void);
+extern //ir.c
+int ir_linker(void);
+extern //ir.c
+int ir_condenser(void);
extern
-yycstate* yycstate_new(void);
-
-extern //lexer.c
-int lexer(void);
+void ir_test(void);
/* Main entry from terminal
parses the command line and kicks off recursive scanning
"\t\t-o\tOutput filename \t\t[a.asspak]\n" \
"\t\t-h\tPrint this help\n"
#define DONE -1
+#define SCANPATH (cargs['d'] ? cargs['d'] : "./")
{ int opt;
-
getopt:
switch (opt = getopt(argc, argv, OPTS))
- { case DONE:
- break;
- case 'd' :
+ { case 'd' :
case 'o' :
if (strnlen(optarg, MAXSTR) != MAXSTR)
{ cargs[opt] = optarg;
printf(USAGE);
printf(USAGE_LONG);
exit(EXIT_SUCCESS);
+ case DONE:
+ break;
}
if ((sys_pagesize = sysconf(_SC_PAGESIZE)) == 0)
sys_pagesize = DEFAULT_PAGESIZE;
-
- apc_pstate = yypstate_new();
- apc_cstate = yycstate_new();
-
- if (scanner_init() || ir_init())
+ if (ir_init())
{ perror("init");
exit(EXIT_FAILURE);
}
- scanner();
-
+#if 0
+ if (scanner_scanpath(SCANPATH))
+ { perror("scanner");
+ exit(EXIT_FAILURE);
+ }
+#endif
+ ir_class class;
+ ir_set set;
+ int i, j;
+ char wordbuf[0xFFF];
+ for (class = ir_class_root(), i = 0, j = 0; i < 100; i++)
+ { sprintf(wordbuf,"Class%i",i);
+ class = ir_class_addchild(class,(uint8_t*)wordbuf);
+ sprintf(wordbuf,"c%i-s%i",i,j++);
+ set = ir_class_addset(class, (uint8_t*)wordbuf);
+ sprintf(wordbuf,"c%i-s%i",i,j++);
+ ir_class_addset(class, (uint8_t*)wordbuf);
+ sprintf(wordbuf,"c%i-s%i",i,j++);
+ ir_class_addset(class, (uint8_t*)wordbuf);
+ sprintf(wordbuf,"c%i-sc%i",i,j=0);
+ set = ir_set_addchild(set, (uint8_t*)wordbuf);
+ sprintf(wordbuf,"c%i-sc%i",i,++j);
+ ir_set_addchild(set, (uint8_t*)wordbuf);
+ sprintf(wordbuf,"c%i-sc%i",i,++j);
+ set = ir_set_addchild(set, (uint8_t*)wordbuf);
+ sprintf(wordbuf,"c%i-sb%i",i,j=0);
+ ir_set_addchild(set, (uint8_t*)wordbuf);
+ }
+ ir_test();
+ ir_linker();
+ ir_condenser();
exit(EXIT_SUCCESS);
}
-