tag:blogger.com,1999:blog-4597498589834570435.post3147126065771185518..comments2024-02-27T14:29:13.618+05:30Comments on VLSI Concepts: TCL Practice Task 3 (Scripting Language)VLSI Experthttp://www.blogger.com/profile/01205530113106138349noreply@blogger.comBlogger2125tag:blogger.com,1999:blog-4597498589834570435.post-37130925618159134162019-11-24T16:01:50.446+05:302019-11-24T16:01:50.446+05:30set file4 [open "/mnt/c/Users/rajes/VLSI_TASK...set file4 [open "/mnt/c/Users/rajes/VLSI_TASK_TCL/Task2_op.txt" "r"]<br />set argc 6<br />set L1 [lindex $argv 0]<br />set L2 [lindex $argv 1]<br />set L3 [lindex $argv 2]<br />set L4 [lindex $argv 3]<br />set L5 [lindex $argv 4]<br />set L6 [lindex $argv 5]<br /> # list1 == AND1_2X AND1_3X AND2_3X AND2_4X NAND1_2X NAND2_3X [TAKEN FROM OTHER SCRIPT]<br />set J1 [llength $argv]Anonymoushttps://www.blogger.com/profile/14098621837503590045noreply@blogger.comtag:blogger.com,1999:blog-4597498589834570435.post-32086802766826055482019-03-26T12:23:31.203+05:302019-03-26T12:23:31.203+05:30#
proc calc_old_delay {user_input} {
switch $user...<br />#<br />proc calc_old_delay {user_input} {<br /><br />switch $user_input {<br />AND1_2X {<br />set old_delay 0 <br />}<br />AND2_3X {<br />set old_delay 1.50<br />}<br />AND2_4X {<br />set old_delay 3.87<br />}<br />NAND2_3X {<br />set old_delay 5.69<br />}<br />}<br />return $old_delay<br />} ;#proc<br />#<br />#<br />if {[catch {open "file_input1.txt"} file_input1_id] && Anonymoushttps://www.blogger.com/profile/08216545425770789082noreply@blogger.com