Quellcode durchsuchen

Init -> Init, Config

Alexander Shiryaev vor 12 Jahren
Ursprung
Commit
d2774642df

BIN
BlackBox/_LinuxOpenBSD_/System/Mod/Config.odc


+ 27 - 0
BlackBox/_LinuxOpenBSD_/System/Mod/Config.txt

@@ -0,0 +1,27 @@
+MODULE Config;
+
+	(* THIS IS TEXT COPY OF Config.odc *)
+	(* DO NOT EDIT *)
+
+	IMPORT Dialog, Converters;
+
+	PROCEDURE Setup*;
+		VAR res: INTEGER;
+	BEGIN
+		Converters.Register("HostTextConv.ImportText", "HostTextConv.ExportText", "TextViews.View", "txt", {Converters.importAll});
+		Converters.Register("HostTextConv.ImportRichText", "HostTextConv.ExportRichText", "TextViews.View", "rtf", {});
+		Converters.Register("HostTextConv.ImportUnicode", "HostTextConv.ExportUnicode", "TextViews.View", "utf", {});
+		Converters.Register("HostTextConv.ImportDosText", "", "TextViews.View", "txt", {});
+		Converters.Register("HostTextConv.ImportHex", "", "TextViews.View", "dat", {Converters.importAll});
+		Converters.Register("HostTextConv.ImportText", "HostTextConv.ExportText", "TextViews.View", "xml", {});
+		Converters.Register("HostTextConv.ImportText", "HostTextConv.ExportText", "TextViews.View", "html", {});
+		Converters.Register("DevBrowser.ImportSymFile", "", "TextViews.View", "osf", {});
+		Converters.Register("DevBrowser.ImportCodeFile", "", "TextViews.View", "ocf", {});
+		Converters.Register("HostBitmaps.ImportBitmap", "HostBitmaps.ExportBitmap", "HostBitmaps.StdView", "bmp", {});
+		Converters.Register("StdETHConv.ImportETHDoc", "", "TextViews.View", "eth", {Converters.importAll});
+		Converters.Register("", "XhtmlExporter.ExportText", "TextViews.View", "html", {});
+
+		Dialog.Call("StdLog.Open", "", res)
+	END Setup;
+
+END Config.

+ 1 - 18
BlackBox/__Interp/System/Mod/Init.txt

@@ -18,25 +18,8 @@ MODULE Init;
 	PROCEDURE Init;
 		VAR res: INTEGER;
 	BEGIN
-		(* StdLog.Open; *)
-
 		Converters.Register("Documents.ImportDocument", "Documents.ExportDocument", "", "odc", {});
-
-		Converters.Register("HostTextConv.ImportText", "HostTextConv.ExportText", "TextViews.View", "txt", {Converters.importAll});
-		Converters.Register("HostTextConv.ImportRichText", "HostTextConv.ExportRichText", "TextViews.View", "rtf", {});
-		Converters.Register("HostTextConv.ImportUnicode", "HostTextConv.ExportUnicode", "TextViews.View", "utf", {});
-		Converters.Register("HostTextConv.ImportDosText", "", "TextViews.View", "txt", {});
-		Converters.Register("HostTextConv.ImportHex", "", "TextViews.View", "dat", {Converters.importAll});
-		Converters.Register("HostTextConv.ImportText", "HostTextConv.ExportText", "TextViews.View", "xml", {});
-		(* Converters.Register("HostTextConv.ImportText", "HostTextConv.ExportText", "TextViews.View", "html", {}); *)
-(*
-		Converters.Register("DevBrowser.ImportSymFile", "", "TextViews.View", "osf", {});
-		Converters.Register("DevBrowser.ImportCodeFile", "", "TextViews.View", "ocf", {});
-		Converters.Register("HostBitmaps.ImportBitmap", "HostBitmaps.ExportBitmap", "HostBitmaps.StdView", "bmp", {});
-*)
-		Converters.Register("StdETHConv.ImportETHDoc", "", "TextViews.View", "eth", {Converters.importAll});
-		Converters.Register("", "XhtmlExporter.ExportText", "TextViews.View", "html", {});
-
+		Dialog.Call("Config.Setup", " ", res);
 		Dialog.Call("ConsInterp.Run", " ", res)
 	END Init;
 

+ 1 - 0
BlackBox/build

@@ -106,6 +106,7 @@ Dev0Compiler.Compile('Host/Mod', 'TextConv.txt')
 Dev0Compiler.Compile('Cons/Mod', 'Interp.txt')
 
 Dev0Compiler.Compile('System/Mod', 'Init.txt')
+Dev0Compiler.Compile('System/Mod', 'Config.txt')
 
 Dev0ElfLinker.LinkDll('libBB.so := Kernel+ Files HostFiles StdLoader')
 # Dev0ElfLinker.LinkDll('libBB.so := Kernel+ Kernel_so_init# Files HostFiles StdLoader')

+ 4 - 1
README

@@ -106,6 +106,9 @@ Files:
 		_LinuxOpenBSD_/Host/Mod/TextConv.odc:
 			BlackBox 1.6-rc6 Host/Mod/TextConv.odc:
 				Windows-specific converters removed
+		_LinuxOpenBSD_/System/Mod/Config.odc:
+			BlackBox 1.6-rc6 System/Mod/Config.odc:
+				Windows-specific removed
 	new:
 		Console:
 			System/Mod/Console.odc: Console interface
@@ -127,7 +130,7 @@ Files:
 
 		Dev0/Views.odc: minimal Views implementation required to compile StdInterpreter
 		__Interp/Host/Mod: Fonts.odc, Dialog.odc, Windows.odc: simple Hosts implementation
-		_LinuxOpenBSD_/System/Mod/Init.odc: Init for console interpreter
+		__Interp/System/Mod/Init.odc: Init for console interpreter
 
 Notes:
 	Dev0: