perl -p -i -e "s/PCI_CLOCK'event and PCI_CLOCK = '1'/rising_edge(PCI_CLOCK)/" *.vhd

[raggedstone] / common / xc3s1500.batch

setmode -bscan 
setcable -p %CABLE%
identify
assignFile -p 3 -file %PROJECT%.bit
program -p 3
quit