PARPORT: add PARPORTADDR tcl variable

Add PARPORTADDR tcl variable making it easier to
change parallel port address in scripts.

Signed-off-by: Spencer Oliver <ntfreak@users.sourceforge.net>

diff --git a/tcl/interface/flashlink.cfg b/tcl/interface/flashlink.cfg
index 4b00de91bcce0de2d7d2b6988180862e74952214..5c81cf5a8dcc53dae502113cf0b6d72e53e12fd1 100644 (file)
--- a/tcl/interface/flashlink.cfg
+++ b/tcl/interface/flashlink.cfg
@@ -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

diff --git a/tcl/interface/parport.cfg b/tcl/interface/parport.cfg
index 0f18ce9edb0f68dd0e3cbacab849d566586264db..326005a9d03c3f51b3f9c8029bff30923447f94c 100644 (file)
--- a/tcl/interface/parport.cfg
+++ b/tcl/interface/parport.cfg
@@ -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

diff --git a/tcl/interface/parport_dlc5.cfg b/tcl/interface/parport_dlc5.cfg
index 85caefc7595ff289ce4b304fc8a8a9e428ceff00..d0f183fc3e227b23ed8a875c460f75efc1b2e0f6 100644 (file)
--- a/tcl/interface/parport_dlc5.cfg
+++ b/tcl/interface/parport_dlc5.cfg
@@ -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