diff options
Diffstat (limited to 'Windows/spice/examples/control_structs/new-check-4.sp')
-rw-r--r-- | Windows/spice/examples/control_structs/new-check-4.sp | 111 |
1 files changed, 0 insertions, 111 deletions
diff --git a/Windows/spice/examples/control_structs/new-check-4.sp b/Windows/spice/examples/control_structs/new-check-4.sp deleted file mode 100644 index 7c241f23..00000000 --- a/Windows/spice/examples/control_structs/new-check-4.sp +++ /dev/null @@ -1,111 +0,0 @@ -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 |