console example improved

diff --git a/examples/console/README b/examples/console/README
new file mode 100755 (executable)
index 0000000..852c2b5
--- /dev/null
+++ b/examples/console/README
@@ -0,0 +1,22 @@
+Example to demonstrate ConsCompiler and ConsLog.
+
+ConsCompiler allows to compile sources stored in "txt" format.
+ConsLog provides realisation for the Log abstract interface.
+
+Author of the example: Ivan Denisov, denisov@molpit.org
+
+Installation and demonstration
+
+1. Prepare Interp version of BlackBox in "Linux_Interp" folder:
+       ./switch-target `uname -s` Interp
+       ./build
+       ./export ../Linux_Interp
+
+2. Compile this example:
+       cd ../examples/console
+       echo "ConsCompiler.Compile('System/Mod', 'Init.txt')" | ./runc
+
+3. For demonstration run:
+       ./runc 123 123
+
+Output will contain: "Summ:  246.0".

diff --git a/examples/console/System/Mod/Init.odc b/examples/console/System/Mod/Init.odc
deleted file mode 100644 (file)
index f32fe06..0000000
Binary files a/examples/console/System/Mod/Init.odc and /dev/null differ

diff --git a/examples/console/System/Mod/Init.txt b/examples/console/System/Mod/Init.txt
new file mode 100644 (file)
index 0000000..190d9df
--- /dev/null
+++ b/examples/console/System/Mod/Init.txt
@@ -0,0 +1,39 @@
+MODULE Init;\r
+\r
+       IMPORT\r
+               Kernel,\r
+               HostConsole (* Console.SetHook *) ,\r
+\r
+               HostFonts (* Fonts.SetHook; required for Texts *),\r
+               HostWindows (* Windows.SetHook *),\r
+               HostDates (* Dates.SetHook *),\r
+               HostDialog (* Dialog.SetShowHook *),\r
+               StdInterpreter (* Dialog.SetCallHook *) ,\r
+               StdDialog (* Views.SetViewHook *),\r
+\r
+               Log, ConsLog, (* Log.Hook *)\r
+               Strings,\r
+               Converters (* .odc *),\r
+               Dialog;\r
+\r
+       PROCEDURE Init;\r
+       VAR\r
+               c1, c2, res: INTEGER;  a, b: REAL;\r
+       BEGIN\r
+               IF Kernel.bootInfo.argc = 3 THEN\r
+                       Strings.StringToReal(Kernel.bootInfo.argv[1]$, a, c1);\r
+                       Strings.StringToReal(Kernel.bootInfo.argv[2]$, b, c2);\r
+                       IF (c1 = 0) & (c2 = 0) THEN\r
+                               Log.String("Summ: "); Log.Real(a + b); Log.Ln\r
+                       ELSE\r
+                               Log.String("The arguments should be in the form of real: 13123.556"); Log.Ln\r
+                       END\r
+               ELSE\r
+                       Log.String("Example of simple console application based on BlackBox Component Builder."); Log.Ln;\r
+                       Log.String("You can pass two arguments and sum of them will be returned."); Log.Ln\r
+               END\r
+       END Init;\r
+\r
+BEGIN\r
+       Init\r
+END Init.
\ No newline at end of file

diff --git a/examples/console/run-dev b/examples/console/run-dev
deleted file mode 100755 (executable)
index 50874c1..0000000
--- a/examples/console/run-dev
+++ /dev/null
@@ -1,10 +0,0 @@
-#!/bin/sh
-
-# fix Ubuntu-specific problems:
-unset UBUNTU_MENUPROXY
-unset GTK_MODULES
-export LIBOVERLAY_SCROLLBAR=0
-mv Code Code_
-env \
-  BB_PRIMARY_DIR="../../BlackBox" BB_SECONDARY_DIR="$PWD" \
-../../BlackBox/blackbox