X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=zilasm%2Fdirectives.cpp;fp=zilasm%2Fdirectives.cpp;h=d15ba894ca7b90237735282d1b02676f7e3fbdbd;hb=633e24778bccbc5f035bdb8516e8cc75c85123d9;hp=0000000000000000000000000000000000000000;hpb=82b0f84ab797141758929d16894d42e12ef79af7;p=zilutils.git

diff --git a/zilasm/directives.cpp b/zilasm/directives.cpp
new file mode 100644
index 0000000..d15ba89
--- /dev/null
+++ b/zilasm/directives.cpp
@@ -0,0 +1,284 @@
+/*
+ * directives.c -- part of ZilUtils/ZilAsm
+ *
+ * Copyright (C) 2016, 2020 Jason Self <j@jxself.org>
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU Affero General Public License as
+ * published by the Free Software Foundation, either version 3 of the
+ * License, or (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU Affero General Public License for more details.
+ *
+ * You should have received a copy of the GNU Affero General Public License
+ * along with this program.  If not, see <http://www.gnu.org/licenses/>
+ *
+ * SPDX-License-Identifier: AGPL-3.0-or-later
+ */
+
+#include <stdlib.h>		/* bsearch */
+#include <string.h>		/* strcmp */
+#include <stdio.h>
+#include <stack>
+#include <string>
+using namespace std;
+
+#include "header.h"
+#include "parser.h"
+#include "directives.h"
+
+#define ARRAY_SIZE(x)  ((sizeof(x)) / (sizeof(x[0])))
+
+int g_stopParsing = 0;
+stack<FILE*> g_fileHandlers;
+
+
+
+static int
+byte_handler (const char *args)
+{
+  /* !!! TODO !!! */
+  return 0;
+}
+
+static int
+end_handler (const char *args)
+{
+	g_stopParsing = 1;
+	return 0;
+}
+
+static int
+endi_handler (const char *args)
+{
+  /* !!! TODO !!! */
+  return 0;
+}
+
+static int
+endt_handler (const char *args)
+{
+  /* !!! TODO !!! */
+  return 0;
+}
+
+static int
+fstr_handler (const char *args)
+{
+  /* !!! TODO !!! */
+  return 0;
+}
+
+static int
+funct_handler (const char *args)
+{
+  /* !!! TODO !!! */
+  return 0;
+}
+
+static int
+gstr_handler (const char *args)
+{
+  /* !!! TODO !!! */
+  return 0;
+}
+
+static int
+gvar_handler (const char *args)
+{
+  /* !!! TODO !!! */
+  return 0;
+}
+
+static int
+insert_handler (const char *args)
+{
+	string file_name;
+	char *p = (char*)args;
+	while (*p == ' ') p++;
+
+	if (*p == '"')
+	{
+		p++;
+		do
+		{
+			file_name += *p;
+			p++;
+		}
+		while (*p != '"' && *p != 0 ) ;
+	}
+	else
+	{
+		do
+		{
+			file_name += *p;
+			p++;
+		} while (*p != ' ' && *p != '\n' && *p != '\r' && *p != '\t' && *p != 0);
+	}
+	
+	if (file_name.find('.') == string::npos)
+	{
+		file_name += ".zap";
+	}
+
+#ifdef WIN32
+	char delimeter = '\\';
+#else
+	char delimeter = '/';
+#endif
+
+	Parsing_Context pc;
+	if (file_name.rfind(delimeter) == string::npos)
+	{
+		pc.current_directory = "";
+		pc.current_file_name = file_name;
+	}
+	else
+	{
+		pc.current_directory = file_name.substr(0, file_name.rfind(delimeter)+1);
+		pc.current_file_name = file_name.substr(file_name.rfind(delimeter)+1);
+	}
+
+	pc.current_directory = g_parsing_contexts.top().current_directory + pc.current_directory;
+	//pc.current_file_name = s;
+	g_parsing_contexts.push(pc);
+	
+	
+	unsigned saveLineNumber = g_currentLineNumber;
+	parse_file(); //s.c_str());
+	g_currentLineNumber = saveLineNumber;
+	return strlen(args);
+}
+
+static int
+len_handler (const char *args)
+{
+  /* !!! TODO !!! */
+  return 0;
+}
+
+static int
+newdirective_handler (const char *args)
+{
+  /* !!! TODO !!! */
+  return 0;
+}
+
+static int
+object_handler (const char *args)
+{
+  /* !!! TODO !!! */
+  return 0;
+}
+
+static int
+prop_handler (const char *args)
+{
+  /* !!! TODO !!! */
+  return 0;
+}
+
+static int
+str_handler (const char *args)
+{
+  /* !!! TODO !!! */
+  return 0;
+}
+
+static int
+strl_handler (const char *args)
+{
+  /* !!! TODO !!! */
+  return 0;
+}
+
+static int
+table_handler (const char *args)
+{
+  /* !!! TODO !!! */
+  return 0;
+}
+
+static int
+vocbeg_handler (const char *args)
+{
+  /* !!! TODO !!! */
+  return 0;
+}
+
+static int
+vocend_handler (const char *args)
+{
+  /* !!! TODO !!! */
+  return 0;
+}
+
+static int
+word_handler (const char *args)
+{
+  /* !!! TODO !!! */
+  return 0;
+}
+
+static int
+zword_handler (const char *args)
+{
+  /* !!! TODO !!! */
+  return 0;
+}
+
+// Sorted array
+static Directive Directives[] = {
+  "BYTE", byte_handler,
+  "END", end_handler,
+  "ENDI", endi_handler,
+  "ENDT", endt_handler,
+  "FSTR", fstr_handler,
+  "FUNCT", funct_handler,
+  "GSTR", gstr_handler,
+  "GVAR", gvar_handler,
+  "INSERT", insert_handler,
+  "LEN", len_handler,
+  "NEW", newdirective_handler,
+  "OBJECT", object_handler,
+  "PROP", prop_handler,
+  "STR", str_handler,
+  "STRL", strl_handler,
+  "TABLE", table_handler,
+  "VOCBEG", vocbeg_handler,
+  "VOCEND", vocend_handler,
+  "WORD", word_handler,
+  "ZWORD", zword_handler
+};
+
+typedef struct
+{
+  const char *contents;
+  unsigned length;
+} Name;
+
+static int
+namecmp (const void *key, const void *elem)
+{
+  const Name *p = (Name *) key;
+  const Directive *d = (Directive *) elem;
+
+  int len1 = p->length;
+  int len2 = strlen (d->name);
+
+  int rc = memcmp (p->contents, elem, len1 < len2 ? len1 : len2);
+  return rc ? rc : (len1 - len2);
+}
+
+Directive_handler
+directive_lookup (const char *name, unsigned namelen)
+{
+  Name n = { name, namelen };
+  Directive *p =
+    (Directive *) bsearch (&n, Directives, ARRAY_SIZE (Directives),
+			   sizeof (Directive), namecmp);
+  return p ? p->handler : NULL;
+}