diff options
Diffstat (limited to 'fpga/xilinx/programmer/bit2svf/jbit')
| -rwxr-xr-x | fpga/xilinx/programmer/bit2svf/jbit | 232 |
1 files changed, 232 insertions, 0 deletions
diff --git a/fpga/xilinx/programmer/bit2svf/jbit b/fpga/xilinx/programmer/bit2svf/jbit new file mode 100755 index 0000000..d7f6e5d --- /dev/null +++ b/fpga/xilinx/programmer/bit2svf/jbit @@ -0,0 +1,232 @@ +#!/usr/bin/perl +# +# Copyright (c) 2006-2007 Salvador E. Tropea <salvador en inti.gov.ar> +# Copyright (c) 2006-2007 Instituto Nacional de Tecnología Industrial +# +# Based on code: +# Copyright (c) 2005 Juan Pablo D. Borgna <jpborgna en inti gov ar> +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; version 2. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA +# 02111-1307, USA +# +# Este script invoca a bit2svf y jtag para programar el contenido de +# un archivo bit en un dispositivo Xilinx. +# +# Basado en el script original de Juan Pablo D. Borgna +# +# + +use Getopt::Long; +use File::Basename; + +print "jbit - bit2svf/jtag short cut - v2.1\n"; +print "Copyright (c) 2006-2007 Salvador E. Tropea/INTI\n\n"; + +GetOptions( + 'skip=s' => \$skip, + 'length=s' => \$len, + 'help' => \&help); + +if (scalar(@ARGV)!=2) + { + print "You must specify two arguments\n\n"; + help(); + } + +$bitfile=@ARGV[0]; + +# Seteos por defecto +$jtag="/usr/bin/jtag"; +$bit2svf="/usr/bin/bit2svf"; +$svft=@ARGV[1]; +$temp=`mktemp -t bit2svf.XXXXXX`; +chomp($temp); +$temp_r=`mktemp -t jbit.XXXXXX`; +chomp($temp_r); + +$device="ppdev"; +$location="/dev/parport0"; +$cable_type="DLC5"; + +if ($skip) + { + $skip=$1*(1<<20) if ($skip=~/(\d+)M/i); + $skip=$1*(1<<10) if ($skip=~/(\d+)k/i); + $skip="--skip=$skip"; + } +if ($len) + { + $len=$1*(1<<20) if ($len=~/(\d+)M/i); + $len=$1*(1<<10) if ($len=~/(\d+)k/i); + $len="--length=$len"; + } + +# Leer seteos de ~/.jbitrc +$jbitrc=$ENV{'HOME'}.'/.jbitrc'; +if (-e $jbitrc) + { + print "Configuration from $jbitrc:\n"; + open(FIL,"<$jbitrc") or die "Error opening $jbitrc"; + while ($a=<FIL>) + { + unless ($a=~/^\#/ or $a=~/^\s*$/) + { + if ($a=~/^(\S+)\s*=\s*\"?([^\"\n]*)\"?$/) + { + $var=uc($1); + $val=$2; + if ($val=~/^\$(\d)$/) + { + $val=$ARGV[$1-1]; + } + print "$var -> \"$val\"\n"; + if ($var eq 'JTAG') + { + $jtag=$val; + } + elsif ($var eq 'BIT2SVF') + { + $bit2svf=$val; + } + elsif ($var eq 'SVFT') + { + $svft=$val; + } + elsif ($var eq 'TEMP') + { + #$temp=$val; + print "TEMP is obsolete!!!\n"; + } + elsif ($var eq 'DEVICE') + { + $device=$val; + } + elsif ($var eq 'LOCATION') + { + $location=$val; + } + elsif ($var eq 'CABLE_TYPE') + { + $cable_type=$val; + } + elsif ($var eq 'PARTNUM') + { + $partnum=$val; + print "PARTNUM is obsolete!!!\n"; + } + else + { + die "Unknown variable $var"; + } + } + else + { + die "Error parsing $jbitrc:\n$a"; + } + } + } + close(FIL); + print "\n"; + } +else + { + print "No personal configuration '$jbitrc'\n"; + } + +# Compuebo la existencia de todo lo necesario +die "Can't find JTAG in $jtag" unless -e $jtag; +die "Can't find bit2svf in $bit2svf" unless -e $bit2svf; +die "Missing file: $bitfile" unless -e $bitfile; + +# Creo el .svf +print "Creating temporary file $temp ...\n<--------- $bit2svf $skip $len $bitfile $temp $svft\n"; +die "Error creating temporary file $temp" + if system("$bit2svf $skip $len $bitfile $temp $svft"); +print "<--------- end of bit2svf\n\n"; + +# Buscar que posición tiene en la cadena +print "Analyzing JTAG chain using $jtag ...\n"; +open(FIL,"|$jtag > $temp_r") or die; +print FIL "cable $device $location $cable_type\n"; +print FIL "detect\n"; +print FIL "quit\n"; +close FIL; +$ndev=0; +$devs=0; +$partnum=-1; +open(FIL,"<$temp_r") or die; +while ($a=<FIL>) + { + if ($a=~/Chain length: (\d+)/) + { + $devs=$1; + print "Devices in the chain: $devs\n"; + } + elsif ($a=~/Part:\s+(\S+)$/) + { + $dev=uc($1); + print "$ndev: $dev "; + if ($svft eq $dev) + { + print "<--"; + $partnum=$ndev; + } + print "\n"; + $ndev++; + } + } +close(FIL); +die "Can't find any device in the chain, consult $temp_r" + unless $devs; +die "Can't find $svft in the chain" unless $partnum!=-1; +print "Device number in the chain: $partnum\n\n"; + +# Ejecutarlo +print "Transferring $temp using $jtag ...\n<--------- jtag\n"; +open(FIL,"|$jtag") or die; +print FIL "cable $device $location $cable_type\n"; +print FIL "detect\n"; +print FIL "part $partnum\n"; +print FIL "svf $temp\n"; +print FIL "quit\n"; +close FIL; +print "<--------- fin de jtag\n\n"; + +# Clean-up +print "Cleaning temporary files ... ($temp $temp_r)\n"; +`rm -f $temp $temp_r`; +print "Have a nice day :-)\n"; + + +sub help +{ + my $me=basename($0); + + print <<END; +$me is a program to configure Xilinx devices using JTAG. + +Usage: + jbit [OPTIONS] file.bit DEVICE + +Options: + --skip=value Skip bits the bitstream + --length=value Limit the bitstream length + --help This text + +file.bit is the file containing the bitstream. +DEVICE is the name of the device to configure. + +END + exit 1; +} |