Перейти к содержанию

    

работа с параметрами в tcl

Приветствую всех.

 

Понадобилось тут перед сборкой проекта в Квартусе иметь возможность подменять один файлик. Написал скрипт на TCL, но он ожидает ввода параметра с клавиатуры.

А мне надо, чтобы параметр передавался с запуском скрипта, т.е. типа такого: ./myscript.tcl 1

где 1 этот параметр, который определяет какой файл надо заменить.

 

Никак не соображу как это сделать.

 

Код скрипта прилагаю:

 

#!/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}

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Заработало вот в таком виде:

 

#!/usr/bin/tclsh
# определяем путь, по которуму лежит скрипт и запоминаем его
set TclPath [file dirname [file normalize [info script]]]
    
if {[ lindex $argv 0]  == 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}

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Для публикации сообщений создайте учётную запись или авторизуйтесь

Вы должны быть пользователем, чтобы оставить комментарий

Создать учетную запись

Зарегистрируйте новую учётную запись в нашем сообществе. Это очень просто!

Регистрация нового пользователя

Войти

Уже есть аккаунт? Войти в систему.

Войти
Авторизация