diff options
author | rahulp13 | 2021-01-07 07:55:48 +0530 |
---|---|---|
committer | rahulp13 | 2021-01-07 07:55:48 +0530 |
commit | 088203b088a02eabb4606dc734e901b81f237b11 (patch) | |
tree | ebe9109661a149c82fc66599a6ce8103637d0b4a /Windows/spice/examples/control_structs/new-check-3.sp | |
parent | ac223c4a69c701ad0a247401acdc48b8b6b6dba6 (diff) | |
download | eSim-088203b088a02eabb4606dc734e901b81f237b11.tar.gz eSim-088203b088a02eabb4606dc734e901b81f237b11.tar.bz2 eSim-088203b088a02eabb4606dc734e901b81f237b11.zip |
removed outdated dependencies
Diffstat (limited to 'Windows/spice/examples/control_structs/new-check-3.sp')
-rw-r--r-- | Windows/spice/examples/control_structs/new-check-3.sp | 96 |
1 files changed, 0 insertions, 96 deletions
diff --git a/Windows/spice/examples/control_structs/new-check-3.sp b/Windows/spice/examples/control_structs/new-check-3.sp deleted file mode 100644 index c85c19f6..00000000 --- a/Windows/spice/examples/control_structs/new-check-3.sp +++ /dev/null @@ -1,96 +0,0 @@ -new ft_getpnames parser check 3, try ternary - -* (compile (concat "tmp-1/ng-spice-rework/src/ngspice " buffer-file-name) t) - -VIN 1 0 DC=0 - -.control - -dc VIN 0 10 5 - -* trying the ternary - -let checks = 0 - -let const0 = 0 -let const5 = 5 -let const6 = 6 - - -let tmp = const0 ? const5 : const6 -if tmp eq const6 - let checks = checks + 1 -else - echo "ERROR:" -end - -let tmp = const6 ? const5 : const6 -if tmp eq const5 - let checks = checks + 1 -else - echo "ERROR:" -end - -define foo(a,b,d) a ? b : d - -if foo(const0,const5,const6) eq const6 - let checks = checks + 1 -else - echo "ERROR:" -end - -if foo(const6,const5,const6) eq const5 - let checks = checks + 1 -else - echo "ERROR:" -end - -let vec7 = 7*unitvec(7) -let vec8 = 8*unitvec(8) - -if length(const5 ? vec7 : vec8) eq 7 - let checks = checks + 1 -else - echo "ERROR:" -end - -if length(const0 ? vec7 : vec8) eq 8 - let checks = checks + 1 -else - echo "ERROR:" -end - -* FIXME, "1 ? 1:1" (without spaces around of ':') doesnt work, -* "1:1" is a lexem, WHY !!! -* ist that an old artifact, (ancient hierarchical name separator ':') -* -*print length(1?1:1) - -*if (1 ? 1:1) eq 1 -if (1 ? 1 : 1) eq 1 - let checks = checks + 1 -else - echo "ERROR:" -end - -print @vin[dc] - -* '"' survives, and will be processed in the ft_getpnames() lexer, that is PPlex() -* where the string will be unqoted -* thats used vor weired variable names, for example "zero(1)" -let foo = "vec8" -if foo eq vec8 - let checks = checks + 1 -else - echo "ERROR:" -end - -if checks eq 8 - echo "INFO: ok" -else - echo "ERROR:" -end - -.endc - -.end |