Понадобилось тут перед сборкой проекта в Квартусе иметь возможность подменять один файлик. Написал скрипт на TCL, но он ожидает ввода параметра с клавиатуры.
А мне надо, чтобы параметр передавался с запуском скрипта, т.е. типа такого: ./myscript.tcl 1
где 1 этот параметр, который определяет какой файл надо заменить.
Никак не соображу как это сделать.
Код скрипта прилагаю:
CODE
#!/usr/bin/tclsh
# получаем параметр с клавиатуры
set var [gets stdin]
# определяем путь, по которуму лежит скрипт и запоминаем его
set TclPath [file dirname [file normalize [info script]]]
# проверяем какой параметр нам передали
if {$var == 1} {
# если передали '1', копируем файл из src/debug/
file copy -force $TclPath/src/debug/pwr.vhd $TclPath
# иначе забираем файл из /src/release/
} else {file copy -force $TclPath/src/release/pwr.vhd $TclPath}
# получаем параметр с клавиатуры
set var [gets stdin]
# определяем путь, по которуму лежит скрипт и запоминаем его
set TclPath [file dirname [file normalize [info script]]]
# проверяем какой параметр нам передали
if {$var == 1} {
# если передали '1', копируем файл из src/debug/
file copy -force $TclPath/src/debug/pwr.vhd $TclPath
# иначе забираем файл из /src/release/
} else {file copy -force $TclPath/src/release/pwr.vhd $TclPath}