📄 videogenerator.tcl

📁 用lattice XP3 demo板设计的VGA信号发生器
💻 TCL
📖 第 1 页 / 共 5 页
字号:
12 3 4 5 下一页

########## Tcl recorder starts at 06/14/07 20:28:55 ##########

set version "6.1"
set proj_dir "D:/FPGA/VideoGenerator"
cd $proj_dir

# Get directory paths
set pver $version
regsub -all {\.} $pver {_} pver
set lscfile "lsc_"
append lscfile $pver ".ini"
set lsvini_dir [lindex [array get env LSC_INI_PATH] 1]
set lsvini_path [file join $lsvini_dir $lscfile]
if {[catch {set fid [open $lsvini_path]} msg]} {
	 puts "File Open Error: $lsvini_path"
	 return false
} else {set data [read $fid]; close $fid }
foreach line [split $data '\n'] { 
	set lline [string tolower $line]
	set lline [string trim $lline]
	if {[string compare $lline "\[paths\]"] == 0} { set path 1; continue}
	if {$path && [regexp {^\[} $lline]} {set path 0; break}
	if {$path && [regexp {^bin} $lline]} {set cpld_bin $line; continue}
	if {$path && [regexp {^fpgapath} $lline]} {set fpga_dir $line; continue}
	if {$path && [regexp {^fpgabinpath} $lline]} {set fpga_bin $line}}

set cpld_bin [string range $cpld_bin [expr [string first "=" $cpld_bin]+1] end]
regsub -all "\"" $cpld_bin "" cpld_bin
set cpld_bin [file join $cpld_bin]
set install_dir [string range $cpld_bin 0 [expr [string first "ispcpld" $cpld_bin]-2]]
regsub -all "\"" $install_dir "" install_dir
set install_dir [file join $install_dir]
set fpga_dir [string range $fpga_dir [expr [string first "=" $fpga_dir]+1] end]
regsub -all "\"" $fpga_dir "" fpga_dir
set fpga_dir [file join $fpga_dir]
set fpga_bin [string range $fpga_bin [expr [string first "=" $fpga_bin]+1] end]
regsub -all "\"" $fpga_bin "" fpga_bin
set fpga_bin [file join $fpga_bin]

if {[string match "*$fpga_bin;*" $env(PATH)] == 0 } {
   set env(PATH) "$fpga_bin;$env(PATH)" } }

if {[string match "*$cpld_bin;*" $env(PATH)] == 0 } {
   set env(PATH) "$cpld_bin;$env(PATH)" }

lappend auto_path [file join $install_dir "ispcpld" "tcltk" "lib" "ispwidget" "runproc"]
package require runcmd

# Commands to make the Process: 
# Hierarchy
if [runCmd "\"$cpld_bin/vhd2jhd\" \"videogenerator.vhd\" -o \"videogenerator.jhd\" -m \"$install_dir/ispcpld/generic/lib/vhd/location.map\" -p \"$install_dir/ispcpld/generic/lib\""] {
	return
} else {
	vwait done
	if [checkResult $done] {
		return
	}
}

########## Tcl recorder end at 06/14/07 20:28:55 ###########


########## Tcl recorder starts at 06/14/07 20:29:08 ##########

# Commands to make the Process: 
# Hierarchy
if [runCmd "\"$cpld_bin/vhd2jhd\" \"videogenerator.vhd\" -o \"videogenerator.jhd\" -m \"$install_dir/ispcpld/generic/lib/vhd/location.map\" -p \"$install_dir/ispcpld/generic/lib\""] {
	return
} else {
	vwait done
	if [checkResult $done] {
		return
	}
}

########## Tcl recorder end at 06/14/07 20:29:08 ###########


########## Tcl recorder starts at 06/14/07 21:02:43 ##########

# Commands to make the Process: 
# Hierarchy
if [runCmd "\"$cpld_bin/vhd2jhd\" \"videogenerator.vhd\" -o \"videogenerator.jhd\" -m \"$install_dir/ispcpld/generic/lib/vhd/location.map\" -p \"$install_dir/ispcpld/generic/lib\""] {
	return
} else {
	vwait done
	if [checkResult $done] {
		return
	}
}

########## Tcl recorder end at 06/14/07 21:02:43 ###########


########## Tcl recorder starts at 06/14/07 21:02:56 ##########

# Commands to make the Process: 
# Synplify Synthesize VHDL File
if [catch {open VideoGenerator.cmd w} rspFile] {
	puts stderr "Cannot create response file VideoGenerator.cmd: $rspFile"
} else {
	puts $rspFile "STYFILENAME: videogenerator.sty
PROJECT: VideoGenerator
WORKING_PATH: \"$proj_dir\"
MODULE: VideoGenerator
VHDL_FILE_LIST: \"$install_dir/ispcpld/../cae_library/synthesis/vhdl/XP.vhd\" videogenerator.vhd
OUTPUT_FILE_NAME: VideoGenerator
SUFFIX_NAME: edi
WRITE_PRF: false
FREQUENCY:  200
FANOUT_LIMIT:  100
DISABLE_IO_INSERTION: false
FORCE_GSR: auto
SPEED_GRADE: -3
SYMBOLIC_FSM_COMPILER: true
NUM_CRITICAL_PATHS:   3
AUTO_CONSTRAIN_IO: true
NUM_STARTEND_POINTS:   0
"
	close $rspFile
}
if [runCmd "\"$cpld_bin/Synpwrap\" -e VideoGenerator -target LATTICE-XP -part LFXP3C"] {
	return
} else {
	vwait done
	if [checkResult $done] {
		return
	}
}
file delete VideoGenerator.cmd

########## Tcl recorder end at 06/14/07 21:02:56 ###########


########## Tcl recorder starts at 06/14/07 21:04:14 ##########

# Commands to make the Process: 
# Hierarchy
if [runCmd "\"$cpld_bin/vhd2jhd\" \"videogenerator.vhd\" -o \"videogenerator.jhd\" -m \"$install_dir/ispcpld/generic/lib/vhd/location.map\" -p \"$install_dir/ispcpld/generic/lib\""] {
	return
} else {
	vwait done
	if [checkResult $done] {
		return
	}
}

########## Tcl recorder end at 06/14/07 21:04:14 ###########


########## Tcl recorder starts at 06/14/07 21:04:14 ##########

# Commands to make the Process: 
# Synplify Synthesize VHDL File
if [catch {open VideoGenerator.cmd w} rspFile] {
	puts stderr "Cannot create response file VideoGenerator.cmd: $rspFile"
} else {
	puts $rspFile "STYFILENAME: videogenerator.sty
PROJECT: VideoGenerator
WORKING_PATH: \"$proj_dir\"
MODULE: VideoGenerator
VHDL_FILE_LIST: \"$install_dir/ispcpld/../cae_library/synthesis/vhdl/XP.vhd\" videogenerator.vhd
OUTPUT_FILE_NAME: VideoGenerator
SUFFIX_NAME: edi
WRITE_PRF: false
FREQUENCY:  200
FANOUT_LIMIT:  100
DISABLE_IO_INSERTION: false
FORCE_GSR: auto
SPEED_GRADE: -3
SYMBOLIC_FSM_COMPILER: true
NUM_CRITICAL_PATHS:   3
AUTO_CONSTRAIN_IO: true
NUM_STARTEND_POINTS:   0
"
	close $rspFile
}
if [runCmd "\"$cpld_bin/Synpwrap\" -e VideoGenerator -target LATTICE-XP -part LFXP3C"] {
	return
} else {
	vwait done
	if [checkResult $done] {
		return
	}
}
file delete VideoGenerator.cmd

########## Tcl recorder end at 06/14/07 21:04:14 ###########


########## Tcl recorder starts at 06/14/07 21:04:57 ##########

# Commands to make the Process: 
# Hierarchy
if [runCmd "\"$cpld_bin/vhd2jhd\" \"videogenerator.vhd\" -o \"videogenerator.jhd\" -m \"$install_dir/ispcpld/generic/lib/vhd/location.map\" -p \"$install_dir/ispcpld/generic/lib\""] {
	return
} else {
	vwait done
	if [checkResult $done] {
		return
	}
}

########## Tcl recorder end at 06/14/07 21:04:57 ###########


########## Tcl recorder starts at 06/14/07 21:04:57 ##########

# Commands to make the Process: 
# Synplify Synthesize VHDL File
if [catch {open VideoGenerator.cmd w} rspFile] {
	puts stderr "Cannot create response file VideoGenerator.cmd: $rspFile"
} else {
	puts $rspFile "STYFILENAME: videogenerator.sty
PROJECT: VideoGenerator
WORKING_PATH: \"$proj_dir\"
MODULE: VideoGenerator
VHDL_FILE_LIST: \"$install_dir/ispcpld/../cae_library/synthesis/vhdl/XP.vhd\" videogenerator.vhd
OUTPUT_FILE_NAME: VideoGenerator
SUFFIX_NAME: edi
WRITE_PRF: false
FREQUENCY:  200
FANOUT_LIMIT:  100
DISABLE_IO_INSERTION: false
FORCE_GSR: auto
SPEED_GRADE: -3
SYMBOLIC_FSM_COMPILER: true
NUM_CRITICAL_PATHS:   3
AUTO_CONSTRAIN_IO: true
NUM_STARTEND_POINTS:   0
"
	close $rspFile
}
if [runCmd "\"$cpld_bin/Synpwrap\" -e VideoGenerator -target LATTICE-XP -part LFXP3C"] {
	return
} else {
	vwait done
	if [checkResult $done] {
		return
	}
}
file delete VideoGenerator.cmd

########## Tcl recorder end at 06/14/07 21:04:57 ###########


########## Tcl recorder starts at 06/14/07 21:05:55 ##########

# Commands to make the Process: 
# Hierarchy
if [runCmd "\"$cpld_bin/vhd2jhd\" \"videogenerator.vhd\" -o \"videogenerator.jhd\" -m \"$install_dir/ispcpld/generic/lib/vhd/location.map\" -p \"$install_dir/ispcpld/generic/lib\""] {
	return
} else {
	vwait done
	if [checkResult $done] {
		return
	}
}

########## Tcl recorder end at 06/14/07 21:05:55 ###########


########## Tcl recorder starts at 06/14/07 21:05:56 ##########

# Commands to make the Process: 
# Synplify Synthesize VHDL File
if [catch {open VideoGenerator.cmd w} rspFile] {
	puts stderr "Cannot create response file VideoGenerator.cmd: $rspFile"
} else {
	puts $rspFile "STYFILENAME: videogenerator.sty
PROJECT: VideoGenerator
WORKING_PATH: \"$proj_dir\"
MODULE: VideoGenerator
VHDL_FILE_LIST: \"$install_dir/ispcpld/../cae_library/synthesis/vhdl/XP.vhd\" videogenerator.vhd
OUTPUT_FILE_NAME: VideoGenerator
SUFFIX_NAME: edi
WRITE_PRF: false
FREQUENCY:  200
FANOUT_LIMIT:  100
DISABLE_IO_INSERTION: false
FORCE_GSR: auto
SPEED_GRADE: -3
SYMBOLIC_FSM_COMPILER: true
NUM_CRITICAL_PATHS:   3
AUTO_CONSTRAIN_IO: true
NUM_STARTEND_POINTS:   0
"
	close $rspFile
}
if [runCmd "\"$cpld_bin/Synpwrap\" -e VideoGenerator -target LATTICE-XP -part LFXP3C"] {
	return
} else {
	vwait done
	if [checkResult $done] {
		return
	}
}
file delete VideoGenerator.cmd

########## Tcl recorder end at 06/14/07 21:05:56 ###########


########## Tcl recorder starts at 06/14/07 21:06:19 ##########

# Commands to make the Process: 
# Hierarchy
if [runCmd "\"$cpld_bin/vhd2jhd\" \"videogenerator.vhd\" -o \"videogenerator.jhd\" -m \"$install_dir/ispcpld/generic/lib/vhd/location.map\" -p \"$install_dir/ispcpld/generic/lib\""] {
	return
} else {
	vwait done
	if [checkResult $done] {
		return
	}
}

########## Tcl recorder end at 06/14/07 21:06:19 ###########


########## Tcl recorder starts at 06/14/07 21:06:19 ##########

# Commands to make the Process: 
# Synplify Synthesize VHDL File
if [catch {open VideoGenerator.cmd w} rspFile] {
	puts stderr "Cannot create response file VideoGenerator.cmd: $rspFile"
} else {
	puts $rspFile "STYFILENAME: videogenerator.sty
PROJECT: VideoGenerator
WORKING_PATH: \"$proj_dir\"
MODULE: VideoGenerator
VHDL_FILE_LIST: \"$install_dir/ispcpld/../cae_library/synthesis/vhdl/XP.vhd\" videogenerator.vhd
OUTPUT_FILE_NAME: VideoGenerator
SUFFIX_NAME: edi
WRITE_PRF: false
FREQUENCY:  200
FANOUT_LIMIT:  100
DISABLE_IO_INSERTION: false
FORCE_GSR: auto
SPEED_GRADE: -3
SYMBOLIC_FSM_COMPILER: true
NUM_CRITICAL_PATHS:   3
AUTO_CONSTRAIN_IO: true
NUM_STARTEND_POINTS:   0
"
	close $rspFile
}
if [runCmd "\"$cpld_bin/Synpwrap\" -e VideoGenerator -target LATTICE-XP -part LFXP3C"] {
	return
} else {
	vwait done
	if [checkResult $done] {
		return
	}
}
file delete VideoGenerator.cmd

########## Tcl recorder end at 06/14/07 21:06:19 ###########


########## Tcl recorder starts at 06/14/07 21:06:49 ##########

# Commands to make the Process: 
# Hierarchy
if [runCmd "\"$cpld_bin/vhd2jhd\" \"videogenerator.vhd\" -o \"videogenerator.jhd\" -m \"$install_dir/ispcpld/generic/lib/vhd/location.map\" -p \"$install_dir/ispcpld/generic/lib\""] {
	return
} else {
	vwait done
	if [checkResult $done] {
		return
	}
}

########## Tcl recorder end at 06/14/07 21:06:49 ###########


########## Tcl recorder starts at 06/14/07 21:06:49 ##########

# Commands to make the Process: 
# Synplify Synthesize VHDL File
if [catch {open VideoGenerator.cmd w} rspFile] {
	puts stderr "Cannot create response file VideoGenerator.cmd: $rspFile"
} else {
	puts $rspFile "STYFILENAME: videogenerator.sty
PROJECT: VideoGenerator
WORKING_PATH: \"$proj_dir\"
MODULE: VideoGenerator
VHDL_FILE_LIST: \"$install_dir/ispcpld/../cae_library/synthesis/vhdl/XP.vhd\" videogenerator.vhd
OUTPUT_FILE_NAME: VideoGenerator
SUFFIX_NAME: edi
WRITE_PRF: false
FREQUENCY:  200
FANOUT_LIMIT:  100
DISABLE_IO_INSERTION: false
FORCE_GSR: auto
SPEED_GRADE: -3
SYMBOLIC_FSM_COMPILER: true
NUM_CRITICAL_PATHS:   3
AUTO_CONSTRAIN_IO: true
NUM_STARTEND_POINTS:   0
"
	close $rspFile
}
if [runCmd "\"$cpld_bin/Synpwrap\" -e VideoGenerator -target LATTICE-XP -part LFXP3C"] {
	return
} else {
	vwait done
	if [checkResult $done] {
		return
	}
}
file delete VideoGenerator.cmd

########## Tcl recorder end at 06/14/07 21:06:49 ###########


########## Tcl recorder starts at 06/14/07 21:09:25 ##########

# Commands to make the Process: 
# Synplify Synthesize VHDL File
if [catch {open VideoGenerator.cmd w} rspFile] {
	puts stderr "Cannot create response file VideoGenerator.cmd: $rspFile"
} else {
	puts $rspFile "STYFILENAME: videogenerator.sty
PROJECT: VideoGenerator
WORKING_PATH: \"$proj_dir\"
MODULE: VideoGenerator
VHDL_FILE_LIST: \"$install_dir/ispcpld/../cae_library/synthesis/vhdl/XP.vhd\" videogenerator.vhd
OUTPUT_FILE_NAME: VideoGenerator
SUFFIX_NAME: edi
WRITE_PRF: false
FREQUENCY:  200
FANOUT_LIMIT:  100
DISABLE_IO_INSERTION: false
FORCE_GSR: auto
SPEED_GRADE: -3
SYMBOLIC_FSM_COMPILER: true
NUM_CRITICAL_PATHS:   3
AUTO_CONSTRAIN_IO: true
NUM_STARTEND_POINTS:   0
"
	close $rspFile
}
if [runCmd "\"$cpld_bin/Synpwrap\" -e VideoGenerator -target LATTICE-XP -part LFXP3C"] {
	return
} else {
	vwait done
	if [checkResult $done] {
		return
	}
}
file delete VideoGenerator.cmd

########## Tcl recorder end at 06/14/07 21:09:25 ###########


########## Tcl recorder starts at 06/14/07 21:10:40 ##########

# Commands to make the Process: 
# Hierarchy
if [runCmd "\"$cpld_bin/vhd2jhd\" \"videogenerator.vhd\" -o \"videogenerator.jhd\" -m \"$install_dir/ispcpld/generic/lib/vhd/location.map\" -p \"$install_dir/ispcpld/generic/lib\""] {
	return
} else {
	vwait done
	if [checkResult $done] {
		return
	}
}

########## Tcl recorder end at 06/14/07 21:10:40 ###########


########## Tcl recorder starts at 06/14/07 21:10:41 ##########

# Commands to make the Process: 
# Synplify Synthesize VHDL File
if [catch {open VideoGenerator.cmd w} rspFile] {
	puts stderr "Cannot create response file VideoGenerator.cmd: $rspFile"
} else {
	puts $rspFile "STYFILENAME: videogenerator.sty
PROJECT: VideoGenerator
WORKING_PATH: \"$proj_dir\"
MODULE: VideoGenerator
VHDL_FILE_LIST: \"$install_dir/ispcpld/../cae_library/synthesis/vhdl/XP.vhd\" videogenerator.vhd
OUTPUT_FILE_NAME: VideoGenerator
SUFFIX_NAME: edi
WRITE_PRF: false
12 3 4 5 下一页
💿 文件大小 288 K
👤 上传用户 BO__1
📂 所属分类 VHDL/FPGA/Verilog
🏷️ 相关标签

#lattice #demo #XP3 #VGA
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -