+++ /dev/null
-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".
+++ /dev/null
-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