X-Git-Url: https://www.kengrimes.com/gitweb/?p=henge%2Fapc.git;a=blobdiff_plain;f=src%2Fapc.c;h=5bd846ddf9e77b9ac4837e1d86989ac389f65bb2;hp=0e7c124eab3ad0a0c43fad64bafa5f4c78d03e0e;hb=HEAD;hpb=423ac0e4bfbee80d7820c04a5355cd964a2ae826

diff --git a/src/apc.c b/src/apc.c
index 0e7c124..5bd846d 100644
--- a/src/apc.c
+++ b/src/apc.c
@@ -18,13 +18,18 @@
 /* Posix */
 #include <stdlib.h> //exit
 #include <unistd.h> //getopt, sysconf
+#include <dirent.h> //opendir
 /* Internal */
+#include "apc.h"
 #include "parser.tab.h" //bison
+#include "ir.h"
+#include "print.h"
 
 #define DEFAULT_PAGESIZE 4096
-const char* cargs['Z'] = {0};
+const char** cargs;
+const uint8_t*  apc_package_name;
 long  sys_pagesize;
-
+  
 int main(int, char*[]);
 
 extern //lexer.c
@@ -34,19 +39,21 @@ 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);
+int  scanner_scandir(DIR*);
+extern //ir.c
+int  ir_init(void);
+extern //ir.c
+int  ir_linker(void);
+extern //ir.c
+int  ir_condenser(void);
+extern
+void ir_test(void);
+
+static
+char* getcwd_basename(void);
 
-/* Main entry from terminal
-   parses the command line and kicks off recursive scanning
-*/
-int main
-( int   argc,
-  char* argv[]
-)
 #define $($)#$ //stringifier
-#define MAXSTR 255
+#define MAXSTR 4096
 #define MAXERR "-%c allows at most " $(MAXSTR) " input characters\n", opt
 #define OPTS  "d:o:h-"
 #define USAGE "Usage %s [-d dir_root][-o output_file][-h]\n", argv[0]
@@ -56,14 +63,32 @@ int main
   "\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'] : "./")
+#undef eprintf_callback
+#define free_and_exit(ecode) do {		\
+    free(cargs);				\
+    exit(ecode);				\
+  } while(0)
+#define eprintf_callback(...) free_and_exit(EXIT_FAILURE)
+/* Main entry from terminal
+   parses the command line and kicks off recursive scanning
+*/
+int main
+( int   argc,
+  char* argv[]
+)
 { int   opt;
-
+  DIR*  dirp;
+  const char* scanpath;
+  char*       path_iter;
+  cargs = (const char**) malloc('Z');
  getopt:
   switch (opt = getopt(argc, argv, OPTS))
-  { case DONE:
-      break;
-    case 'd' :
+  { case 'd' :
+      path_iter = optarg;
+      while (*path_iter++ != '\0');
+      path_iter -= 2;
+      if (*path_iter == '/')
+	*path_iter = '\0';
     case 'o' :
       if (strnlen(optarg, MAXSTR) != MAXSTR)
         { cargs[opt] = optarg;
@@ -71,22 +96,63 @@ int main
         }
       fprintf(stderr, MAXERR);
     default :
-      fprintf(stderr, USAGE);
-      exit(EXIT_FAILURE);
+      eprintf(USAGE);
     case 'h' :
       printf(USAGE);
       printf(USAGE_LONG);
-      exit(EXIT_SUCCESS);
+      free_and_exit(EXIT_SUCCESS);
+    case DONE:
+      break;
   }
   if ((sys_pagesize = sysconf(_SC_PAGESIZE)) == 0)
     sys_pagesize = DEFAULT_PAGESIZE;
-
-  if (scanner_init())// || ir_init())
+  if (ir_init())
     { perror("init");
-      exit(EXIT_FAILURE);
+      free_and_exit(EXIT_FAILURE);
     }
-  scanner_scanpath(SCANPATH);
-  scanner_quit();  
-  exit(EXIT_SUCCESS);
+  scanpath = cargs['d'] ? cargs['d'] : "./";
+  errno = 0;
+  dirp = opendir(scanpath);
+  if (dirp == NULL || errno)
+    eprintf("Path %s could not be accessed: %s\n", scanpath, strerror(errno));
+  errno = 0;
+  if (chdir(scanpath) || errno)
+    eprintf("Could not change directory to %s: %s\n", scanpath, strerror(errno));
+  apc_package_name = (uint8_t*) getcwd_basename();
+  if (scanner_scandir(dirp))
+    eprintf(strerror(errno));
+  ir_test();
+  ir_linker();
+  ir_condenser();
+  free_and_exit(EXIT_SUCCESS);
 }
 
+static
+char* getcwd_basename
+( void )
+{ char* path_iter,* path_buf,* path;
+  int   pages;
+  path = NULL;
+  pages = 1;
+ try_cwd:
+  path_buf = (char*) malloc(MAXSTR * pages);
+  errno = 0;
+  getcwd(path_buf, MAXSTR * pages);
+  if (errno == ERANGE)
+    { pages++;
+      free(path_buf);
+      goto try_cwd;
+    }
+  else if (errno)
+    { perror(NULL);
+      free(path_buf);
+      return NULL;
+    }
+  path = path_iter = path_buf;
+  while (*path_iter != '\0')
+    { if (*path_iter == '/')
+	path = path_iter + 1;
+      path_iter++;
+    }
+  return path;
+}