Re: Converting large bash script to TCL

Uwe Klein wrote:
al-s wrote:
Hello all,
I know that TCL and shell scripting share a lot of similarities.
Nevertheless, is there a way to convert bash scripts or any other shell
interpreter for that matter into equivalent TCL code. The shell script
is pretty huge and to convert it line by line is going to take quite a
while to do.

Thanks in advance for any help

-Al
If I where You I would not do that.

You would wrap the contortions done in shell
with more contortions to make tcl behave like shell.

Determine what it ( the script ) is supposed to do
and write it anew.


What about using this shellscript from tcl by way of [exec]

uwe

Hi Uwe,

Thanks for responding!

It's a shell script that is interactive in nature in the form of
prompts. It takes user input of disk drives in a RAID in a single line
ie. sda1 sdb1 sdc1... and writes a large file to each then compares the
file written to the reference. It then deletes the file from each
drive.

If I were to "exec" that in TCL I would have to capture the stdout to a
text box - I'm using wish8.4.

bash script is as follows:

BEGIN BASH SCRIPT
**************************
#!/bin/sh

# Script to test file on raid or jbod storage device

yes="y"
declare -a devices

testscript="RAID/JBOD SCSI file test script - rev A"
echo $testscript

echo "WOULD YOU LIKE TO INSTALL NAC DRIVER (enter y for yes n for no)
THEN ENTER"
read insdriver
if [ $insdriver = $yes ]; then
./install
fi

# ****** GATHER INFORMATION FOR TEST ******

echo "WOULD YOU LIKE TO DO FILE TESTING (enter y for yes n for no) THEN
ENTER"
read filetest

if [ $filetest = $yes ]; then
echo "SPECIFY FILE SIZE TO TEST (100 = 100Mbyte) THEN ENTER"
read filesize
echo "files size to create is $filesize Mbyte"
echo "WOULD YOU LIKE TO COPY A FILE FROM HOST TO STORAGE (enter y for
yes n for no) THEN ENTER"
read filecopy
echo "WOULD YOU LIKE TO DELETE THE FILE FROM STORAGE WHEN TESTING IS
COMPLETE (enter y for yes n for no) THEN ENTER"
read filedelete

# ****** GET STORAGE DEVICES TO WRITE FILE ******

echo "ENTER STORAGE DEVICE NAMES TO RUN THE FILE TEST ON ONE LINE
(ex:sda1 sdb5 sdd6) THEN ENTER"
read -a devices
devicecount=${#devices[@]}
index=0
while [ "$index" -lt "$devicecount" ]
do
echo ${devices[$index]}
let "index = $index +1"
done

# **** clear out test1.txt file ****

cp zero.txt test2.txt

# **** create file of size filesize use testbase.txt to generate
test1.txt

echo "creating test file... this takes a couple of minutes"
while [ $filesize -gt 0 ]
do
cat
testbase2.txt>>/home/root/DDC/latest/FC7901xS1/ddk/applications/test2.txt
filesize=$((filesize-1))
done
echo "test file test2.txt is created"

# **** copy file to RAID or JBOD? ********

if [ $filecopy = $yes ];then
# **** mount storage copy file then sync and compare files
index=0
while [ "$index" -lt "$devicecount" ]
do
echo "mounting ${devices[$index]}"
echo "mounting
${devices[$index]}">>/home/root/DDC/latest/FC7901xS1/ddk/applications/filetest.txt
mount -t ext2 -v /dev/${devices[$index]}
/new_root>>/home/root/DDC/latest/FC7901xS1/ddk/applications/filetest.txt
echo "copying test file to ${devices[$index]}"
cp test2.txt /new_root
echo "sync disks"
sync
echo "comparing files now (no output if files are the same)"
cmp -l test2.txt /new_root/test2.txt
echo "COMPARE COMPLETE for ${devices[$index]}"
echo "unmount ${devices[$index]}"
umount -v /new_root
let "index = $index + 1"
done
fi
echo "***** FILE TEST COMPLETE *****"

# **** delete file from RAID or JBOD? *******

if [ $filedelete = $yes ];then
index=0
while [ "$index" -lt "$devicecount" ]
do
echo "mounting ${devices[$index]}"
echo "mounting
${devices[$index]}">>/home/root/DDC/latest/FC7901xS1/ddk/applications/filetest.txt
mount -t ext2 -v /dev/${devices[$index]}
/new_root>>/home/root/DDC/latest/FC7901xS1/ddk/applications/filetest.txt
echo "deleting file test2.txt from ${devices[$index]}"
rm /new_root/test2.txt
echo "test2.txt is now removed from ${devices[$index]}"
echo "unmount ${devices[$index]}"
umount -v /new_root
let "index = $index + 1"
done
fi

fi

END BASH SCRIPT
*************************

That's the whole of it. This is why I don't want to start from
scratch. If you think it's better to start from scratch upon seeing
this, let me know,

.

Relevant Pages

  • Bash calls TCL, TCL calls Bash, 2nd Bash never reads input
    ... read standard in in TCL; I don't know how to do complex string ... The bash script cmds.sh will read in various files. ... echo 'You must enter an option: ... an input prompt, and right now I can't do either. ...
    (comp.lang.tcl)
  • Bash calls TCL, TCL calls Bash, 2nd Bash never reads input
    ... read standard in in TCL; I don't know how to do complex string ... The bash script cmds.sh will read in various files. ... echo 'You must enter an option: ... an input prompt, and right now I can't do either. ...
    (comp.os.linux.misc)
  • Bash calls TCL, TCL calls Bash, 2nd Bash never reads input
    ... read standard in in TCL; I don't know how to do complex string ... The bash script cmds.sh will read in various files. ... echo 'You must enter an option: ... an input prompt, and right now I can't do either. ...
    (comp.unix.misc)
  • Re: a script to create files
    ... of automating it by writing a shell script which does it for me. ... echo "Warning: symbols beginning with underscores are reserved by " ...
    (comp.unix.shell)
  • Re: shell : is syntax checking via option -n really working ?
    ... Michelle Konzack wrote: ... The code being discussed here is TCL, which I have little experience with, so I will defer to Michelle regarding the error marked. ... the original post looks to be using standard shell script debugging methods. ...
    (Debian-User)