1 files changed, 111 insertions, 0 deletions
diff --git a/Windows/spice/examples/control_structs/new-check-4.sp b/Windows/spice/examples/control_structs/new-check-4.sp
new file mode 100644
index 00000000..7c241f23
--- /dev/null
+++ b/Windows/spice/examples/control_structs/new-check-4.sp
@@ -0,0 +1,111 @@
+demonstrate < etc in ft_getpnames
+
+* (compile (concat "tmp-1/ng-spice-rework/src/ngspice " buffer-file-name) t)
+
+VIN  1 0  DC=0
+
+.control
+
+dc VIN 0 10 5
+
+let checks = 0
+
+let const0 = 0
+let const5 = 5
+let const6 = 6
+
+* check some relational operators, which are in danger to mixed up
+*   with csh semantic, that is IO redirection
+
+if const5 < const6
+  let checks = checks + 1
+else
+  echo "ERROR:"
+end
+
+if const6 > const5
+  let checks = checks + 1
+else
+  echo "ERROR:"
+end
+
+if const5 >= const5
+  let checks = checks + 1
+else
+  echo "ERROR:"
+end
+
+if const5 <= const5
+  let checks = checks + 1
+else
+  echo "ERROR:"
+end
+
+if const5 = const5
+  let checks = checks + 1
+else
+  echo "ERROR:"
+end
+
+* check some wired non-equality operators
+*   note: there are some awkward tranformations ahead of the ft_getpnames lexer
+*     transforming "><" into "> <"
+*     and          "<>" into "< >"
+*   note: "!=" would have been in serious danger to be fooled up within
+*     csh history mechanism
+
+if const6 <> const5
+  let checks = checks + 1
+else
+  echo "ERROR:"
+end
+
+if const6 >< const5
+  let checks = checks + 1
+else
+  echo "ERROR:"
+end
+
+
+* check some boolean operators, which are in danger to be mixed up
+*   with csh semantic, `&' background '|' pipe  '~' homedirectory
+
+if const5 & const5
+  let checks = checks + 1
+else
+  echo "ERROR:"
+end
+
+if const0 | const5
+  let checks = checks + 1
+else
+  echo "ERROR:"
+end
+
+if ~ const0
+  let checks = checks + 1
+else
+  echo "ERROR:"
+end
+
+* note:
+*   "!=" would be in danger, '!' triggers the csh history mechanism
+*if const5 != const6
+*  echo "just trying"
+*end
+
+
+* Note: csh semantics swallows the '>' and '<' operators
+*   on most of the com lines
+* witnessed by
+let tmp = const5 > unwanted_output_file_1
+define foo(a,b) a > unwanted_output_file_2
+print const0 > unwanted_output_file_3
+
+if checks eq 10
+  echo "INFO: ok"
+end
+
+.endc
+
+.end