X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Ftest.c;h=8029be718d08bc4823e6723657a66441b68fe651;hb=3cd41dedaffe60018890cbe66baea63691fe62e8;hp=03ac7fc3ab12979d8fcaadac8c5ccd244769f4bc;hpb=36c1947b3e98abab25f16a0f1c2679125651fe95;p=dsw-obn.git

diff --git a/src/test.c b/src/test.c
index 03ac7fc..8029be7 100644
--- a/src/test.c
+++ b/src/test.c
@@ -1,174 +1,59 @@
 #include <stdio.h>
+#include <stdlib.h>
 #include <string.h>
 #include <assert.h>
 
 #include "../include/oberon.h"
 
-static char source_test[] =
-	"(* Main module *)"
-	"MODULE Test;"
-	"IMPORT Out;"
-	"CONST"
-	"  null = 0X;"
-	"  space = 020X;"
-	"  bang = 021X;"
-	"  h = 048X;"
-	"  e = 045X;"
-	"  l = 04CX;"
-	"  o = 04FX;"
-	"  w = 057X;"
-	"  r = 052X;"
-	"  d = 044X;"
-	""
-	"TYPE"
-	"  Ident = ARRAY 20 OF CHAR;"
-	""
-	"VAR"
-	"  hello : Ident;"
-	"  cc : CHAR;"
-	""
-	"BEGIN"
-	"  hello[0] := h;"
-	"  hello[1] := e;"
-	"  hello[2] := l;"
-	"  hello[3] := l;"
-	"  hello[4] := o;"
-	"  hello[5] := space;"
-	"  hello[6] := w;"
-	"  hello[7] := o;"
-	"  hello[8] := r;"
-	"  hello[9] := l;"
-	"  hello[10] := d;"
-	"  hello[11] := bang;"
-	"  hello[12] := null;"
-	"  Out.Open;"
-	"  Out.String(hello);"
-	"  Out.Ln;"
-	"END Test."
-;
-
-// PROCEDURE Char* (ch : CHAR);
-// PROCEDURE String* (str : ARRAY OF CHAR);
-
-static char source_out[] =
-	"MODULE Out;"
-	"  PROCEDURE Open*;"
-	"  END Open;"
-	""
-	"  PROCEDURE Char* (ch : CHAR);"
-	"  END Char;"
-	""
-	"  PROCEDURE String* (str : ARRAY OF CHAR);"
-	"  END String;"
-	""
-	"  PROCEDURE Int*(i, n : LONGINT);"
-	"  END Int;"
-	""
-	"  PROCEDURE Real*(x : REAL; n : INTEGER);"
-	"  END Real;"
-	""
-	"  PROCEDURE LongReal*(x : LONGREAL; n : INTEGER);"
-	"  END LongReal;"
-	""
-	"  PROCEDURE Ln*;"
-	"  END Ln;"
-	""
-	"END Out."
-;
-
 static oberon_context_t * ctx;
 static oberon_module_t * mod;
 
 static const char *
 import_module(const char * name)
 {
-	if(strcmp(name, "Test") == 0)
-	{
-		return source_test;
-	}
-	else if(strcmp(name, "Out") == 0)
-	{
-		return source_out;
-	}
-	else
+	assert(name);
+
+	FILE * fp;
+	char fname[256];
+	snprintf(fname, 256, "%s.obn", name);
+	fp = fopen(fname, "r");
+	if(fp == NULL)
 	{
+		printf("can't open file %s\n", fname);
+		exit(1);
 		return NULL;
 	}
-}
 
-typedef void (*TOutOpen)();
-static TOutOpen * OutOpenPtr;
-void ImplOutOpen()
-{
-}
+	char * source;
+	size_t len;
 
-typedef void (*TOutInt)(int, int);
-static TOutInt * OutIntPtr;
-void ImplOutInt(int i, int n)
-{
-	char number[22];
-	snprintf(number, 22, "%d", i);
-	int len = strlen(number);
-	for(int i = 0; i < n - len; i++)
-	{
-		putchar(' ');
-	}
-	printf("%s", number);
-}
+	fseek(fp, 0, SEEK_END);
+	len = ftell(fp);
+	fseek(fp, 0, SEEK_SET);
 
-typedef void (*TOutReal)(float, int);
-static TOutReal * OutRealPtr;
-void ImplOutReal(float i, int n)
-{
-	char number[32];
-	snprintf(number, 32, "%F", i);
-	int len = strlen(number);
-	for(int i = 0; i < n - len; i++)
-	{
-		putchar(' ');
-	}
-	printf("%s", number);
-}
-
-typedef void (*TOutLn)();
-static TOutLn * OutLnPtr;
-void ImplOutLn()
-{
-	putchar('\n');
-}
-
-void init_system_modules()
-{
-	OutOpenPtr = oberon_generator_get_var(ctx, "Out_Open");
-	*OutOpenPtr = ImplOutOpen;
-	OutIntPtr = oberon_generator_get_var(ctx, "Out_Int");
-	*OutIntPtr = ImplOutInt;
-	OutRealPtr = oberon_generator_get_var(ctx, "Out_Real");
-	*OutRealPtr = ImplOutReal;
-	OutLnPtr = oberon_generator_get_var(ctx, "Out_Ln");
-	*OutLnPtr = ImplOutLn;
-}
+	source = calloc(1, len + 1);
+	fread(source, len, 1, fp);
 
-void start_module()
-{
-	void (*begin)() = oberon_generator_get_procedure(ctx, "Test_BEGIN");
-	begin();
+	return source;
 }
 
 int
 main(int argc, char ** argv)
 {
-	ctx = oberon_create_context(import_module);
-	mod = oberon_compile_module(ctx, source_test);
-
-	oberon_generate_code(ctx);
+	const char * code;
 
-//	init_system_modules();
+	if(argc != 2)
+	{
+		printf("use: %s <source>\n", argv[0]);
+		return 1;
+	}
 
-//	oberon_generator_dump(ctx, "dump.txt");
+	code = import_module(argv[1]);
 
-//	start_module();
+	ctx = oberon_create_context(import_module);
+	mod = oberon_compile_module(ctx, code);
 
+	oberon_generate_code(ctx);
 	oberon_destroy_context(ctx);
 	return 0;
 }