PARPORT: add PARPORTADDR tcl variable
authorSpencer Oliver <ntfreak@users.sourceforge.net>
Tue, 16 Mar 2010 09:59:05 +0000 (09:59 +0000)
committerSpencer Oliver <ntfreak@users.sourceforge.net>
Tue, 16 Mar 2010 10:10:21 +0000 (10:10 +0000)
Add PARPORTADDR tcl variable making it easier to
change parallel port address in scripts.

Signed-off-by: Spencer Oliver <ntfreak@users.sourceforge.net>
tcl/interface/flashlink.cfg
tcl/interface/parport.cfg
tcl/interface/parport_dlc5.cfg

index 4b00de9..5c81cf5 100644 (file)
@@ -5,6 +5,12 @@
 # http://www.st.com/stonline/products/literature/um/7889.pdf
 #
 
+if { [info exists PARPORTADDR] } {
+   set  _PARPORTADDR $PARPORTADDR
+} else {
+   set  _PARPORTADDR 0
+}
+
 interface parport
-parport_port 0
+parport_port $_PARPORTADDR
 parport_cable flashlink
index 0f18ce9..326005a 100644 (file)
@@ -3,6 +3,12 @@
 #
 # Addresses: 0x378/LPT1 or 0x278/LPT2 ...
 
+if { [info exists PARPORTADDR] } {
+   set  _PARPORTADDR $PARPORTADDR
+} else {
+   set  _PARPORTADDR 0x378
+}
+
 interface parport
-parport_port 0x378
+parport_port $_PARPORTADDR
 parport_cable wiggler
index 85caefc..d0f183f 100644 (file)
@@ -4,7 +4,13 @@
 # http://www.xilinx.com/itp/xilinx4/data/docs/pac/appendixb.html
 #
 
+if { [info exists PARPORTADDR] } {
+   set  _PARPORTADDR $PARPORTADDR
+} else {
+   set  _PARPORTADDR 0
+}
+
 interface parport
-parport_port 0
+parport_port $_PARPORTADDR
 parport_cable dlc5