summaryrefslogtreecommitdiff
path: root/web/funnelAC/tests/hi04.fw
diff options
context:
space:
mode:
Diffstat (limited to 'web/funnelAC/tests/hi04.fw')
-rw-r--r--web/funnelAC/tests/hi04.fw23
1 files changed, 23 insertions, 0 deletions
diff --git a/web/funnelAC/tests/hi04.fw b/web/funnelAC/tests/hi04.fw
new file mode 100644
index 0000000000..9dfb8c5fe4
--- /dev/null
+++ b/web/funnelAC/tests/hi04.fw
@@ -0,0 +1,23 @@
+HI04: This example shows how FunnelWeb's macro facility can be used to
+ fudge a multi-way conditional.
+
+@O@<hi04.out@>==@{@<Main code@>@}
+
+@A This module contains non-portable code that must execute on Hewlett
+Packard, Sun, and DEC workstations. The following FunnelWeb macro is
+defined to choose between these three. The first parameter is the HP code,
+the second is the Sun code, and the third is the DEC code. Whichever
+parameter constitutes the body of this macro determines which
+machine the code is being targetted for.
+
+@$@<Machine specific code@>@(@3@)@M==@{@1@} @! Configure for HP.
+
+@$@<Main code@>==@{@-
+-------
+@<Machine specific code@>@(
+@"get_command_line(comline)@" @, @! HP.
+@"scan_command_line(128,comline);@" @, @! Sun.
+@"dcl_get_command_line(comline,256);@" @) @! DEC.
+
+-------
+@}