From 0d86960df0dd67a175281bc41085f360f62d3e33 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Sun, 23 Apr 2023 10:14:23 +0200
Subject: [PATCH] add generators/test_symbolgen.sch and generators/symbolgen
 generator script

---
 xschem_library/generators/symbolgen          | 53 ++++++++++++++
 xschem_library/generators/test_symbolgen.sch | 72 ++++++++++++++++++++
 2 files changed, 125 insertions(+)
 create mode 100755 xschem_library/generators/symbolgen
 create mode 100644 xschem_library/generators/test_symbolgen.sch

diff --git a/xschem_library/generators/symbolgen b/xschem_library/generators/symbolgen
new file mode 100755
index 00000000..780dc8a6
--- /dev/null
+++ b/xschem_library/generators/symbolgen
@@ -0,0 +1,53 @@
+#!/bin/sh
+# the next line restarts using wish \
+exec tclsh "$0" "$@"
+
+set arg1 [lindex $argv 0]
+if { $arg1 eq {inv}} {
+puts {v {xschem version=3.1.0 file_version=1.2}
+K {type=subcircuit
+verilog_primitive=true
+vhdl_primitive=true
+vhdl_format="@@Y <= not @@A after 90 ps;"
+verilog_format="assign #90 @@Y = ~@@A ;"
+format="@name @pinlist @symname ROUT=@ROUT"
+template="name=x1 ROUT=1000"
+schematic=inv_ngspice.sch}
+L 4 -40 0 -20 0 {}
+L 4 -20 -20 20 0 {}
+L 4 -20 -20 -20 20 {}
+L 4 -20 20 20 0 {}
+L 4 30 -0 40 -0 {}
+B 5 37.5 -2.5 42.5 2.5 {name=Y dir=out }
+B 5 -42.5 -2.5 -37.5 2.5 {name=A dir=in }
+A 4 25 -0 5 180 360 {}
+T {@symname} -47.5 24 0 0 0.3 0.3 {}
+T {@name} 25 -22 0 0 0.2 0.2 {}
+T {Y} 7.5 -6.5 0 1 0.2 0.2 {}
+T {A} -17.5 -6.5 0 0 0.2 0.2 {}
+T {ROUT=@ROUT} -25 -42 0 0 0.2 0.2 {}
+}
+} else {
+puts {v {xschem version=3.1.0 file_version=1.2}
+K {type=subcircuit
+verilog_primitive=true
+vhdl_primitive=true
+vhdl_format="@@Y <= @@A after 90 ps;"
+verilog_format="assign #90 @@Y = @@A ;"
+format="@name @pinlist @symname ROUT=@ROUT"
+template="name=x1 ROUT=1000"
+schematic=buf_ngspice.sch}
+L 4 20 0 40 0 {}
+L 4 -40 0 -20 0 {}
+L 4 -20 -20 20 0 {}
+L 4 -20 -20 -20 20 {}
+L 4 -20 20 20 0 {}
+B 5 37.5 -2.5 42.5 2.5 {name=Y dir=out }
+B 5 -42.5 -2.5 -37.5 2.5 {name=A dir=in }
+T {@symname} -47.5 34 0 0 0.3 0.3 {}
+T {@name} 25 -22 0 0 0.2 0.2 {}
+T {Y} 7.5 -6.5 0 1 0.2 0.2 {}
+T {A} -17.5 -6.5 0 0 0.2 0.2 {}
+T {ROUT=@ROUT} -25 -42 0 0 0.2 0.2 {}
+}
+}
diff --git a/xschem_library/generators/test_symbolgen.sch b/xschem_library/generators/test_symbolgen.sch
new file mode 100644
index 00000000..dc3e2f8e
--- /dev/null
+++ b/xschem_library/generators/test_symbolgen.sch
@@ -0,0 +1,72 @@
+v {xschem version=3.1.0 file_version=1.2
+}
+G {}
+K {}
+V {}
+S {}
+E {}
+B 2 560 -400 1170 -150 {flags=graph
+y1=0
+y2=2
+ypos1=-0.0262499
+ypos2=0.9491
+divy=5
+subdivy=1
+unity=1
+x1=5.80963e-09
+x2=2.34017e-08
+divx=5
+subdivx=1
+node="in
+in_inv
+in_buf"
+color="7 4 8"
+dataset=-1
+unitx=1
+logx=0
+logy=0
+digital=1}
+T {The two below symbols are created by a 'symbolgen' script
+that takes a 'buf' or 'inv' argument.} 200 -640 0 0 0.6 0.6 {}
+T {Click on symbol with Control key
+pressed to see the generator script} 130 -340 0 0 0.3 0.3 {}
+N 70 -250 70 -180 {
+lab=IN}
+N 70 -250 150 -250 {
+lab=IN}
+N 70 -180 70 -120 {
+lab=IN}
+N 70 -120 150 -120 {
+lab=IN}
+N 230 -250 350 -250 {
+lab=IN_BUF}
+N 230 -120 350 -120 {
+lab=IN_INV}
+C {symbolgen(inv)} 190 -120 0 0 {name=x1  
+tclcommand="edit_file [abs_sym_path symbolgen]"
+ROUT=1200}
+C {lab_pin.sym} 70 -180 0 0 {name=p1 lab=IN}
+C {symbolgen(buf)} 190 -250 0 0 {name=x3  
+tclcommand="edit_file [abs_sym_path symbolgen]"
+ROUT=1200}
+C {lab_pin.sym} 350 -250 0 1 {name=p2 lab=IN_BUF}
+C {lab_pin.sym} 350 -120 0 1 {name=p3 lab=IN_INV}
+C {title.sym} 160 -30 0 0 {name=l1 author="Stefan Schippers"}
+C {code_shown.sym} 40 -540 0 0 {name=CONTROL 
+tclcommand="xschem edit_vi_prop"
+xxplace=end
+value="
+.param vcc=1.8
+Vin in 0 pwl 0 0 10n 0 10.1n 1.8 20n 1.8 20.1n 0
+.control
+  save all
+  tran 0.2n 30n uic
+  write test_symbolgen.raw
+.endc
+"}
+C {parax_cap.sym} 280 -240 0 0 {name=C1 gnd=0 value=100f m=1}
+C {parax_cap.sym} 280 -110 0 0 {name=C2 gnd=0 value=100f m=1}
+C {launcher.sym} 620 -130 0 0 {name=h5
+descr="load waves" 
+tclcommand="xschem raw_read $netlist_dir/test_symbolgen.raw tran"
+}