Tool command language(Tcl)

不需要记住，只需要了解，后续读到command file时，知道去哪找就好了。在学习sentaurus各工具前先看这个很有必要

1. 入门

• 介绍如何在TCAD Sentaurus中使用Tcl
• 演示如何使用Tcl shell

1.1 Tcl概述

Tcl是一种解释（脚本）语言，具有跨不同操作系统的平台可用的编辑功能。它是一种基于字符串的语言，只有很少的基本结构和相对较少的语法，因此很容易学习。因为包括Sentaurus Workbench、Sentaurus Process和Sentaurus Inspect在内的Sentaurus工具都是用Tcl, 所以了解一些Tcl基础知识是有必要的。

Tcl是一种强大的脚本语言，然而，对于synopsys工具，只需要一小部分Tcl命令就可以完成大多数任务。

本模块介绍了Tcl命令的子集。有关更多详细信息，请参阅Tcl参考文献，如B.B.Welch,<,新泽西州: Prentice Hall PTR,第3版，2000年。

1.1.1 使用Tcl*

将此说明用作快速参考指南或剪贴板，用于创建自己的Tcl脚本。在本节中，将通过查看Sentaurus workbench 项目来学习Tcl基础知识，该项目位于Applications_Library/GettingStarted/Tcl/Tcl_basics目录中。
这里讨论的所有示例都是演示Tcl脚本gtclsh_Tcl.cmd的一部分。它用于TCLSH项目工具的输入。

gtclsh_tcl.cmd

###--------------------------------------------------------------------
puts "\n2.1 Simple Variables"
### 2.1.a
set i  3
set q  1.6e-19
set W  "Hello World"### 2.1.b
puts "The value of i is $i"
#-> The value of i is 3puts "The elementary charge is $q C"
#-> The elementary charge is 1.6e-19 Cputs "The string W contains >$W<"
#-> The string W contains >Hello World<### 2.1.c
puts "The ${i}rd value"
#-> The 3rd value###--------------------------------------------------------------------
puts "\n2.2 Arithmetic Expressions"### 2.2.a
set j   [expr $i+5]
puts "$i + 5 is $j"
#-> 3 + 5 is 8set pi [expr 2.0*asin(1.0)]
puts "pi = $pi"
#-> pi = 3.141592653589793set SIN [expr sin($pi/4.0)]
puts "sin(pi/4.0) is $SIN"
#-> sin(pi/4.0) is 0.7071067811865475### 2.2.b
puts [expr 1/2]
#-> 0puts [expr 1/2.0]
#-> 0.5###--------------------------------------------------------------------
puts "\n2.3 Lists"### 2.3.a
set ABCList   [list a b c d e]
set NUMList   [list 1 2 3 4 5 6]
set STRList   [list This sentence is a TCL list]
set MIXList   [list a 2 3.1415 TCL ?]
set EMPTYList [list]### 2.3.b
puts $ABCList
#-> a b c d eputs $NUMList
#-> 1 2 3 4 5 6puts $STRList 
#-> This sentence is a TCL listputs $MIXList
#-> a 2 3.1415 TCL ?### 2.3.c
set LENGTH [llength $ABCList]
puts "ABCList contains $LENGTH elements."
#-> ABCList contains 5 elements### 2.3.d 
puts "The first element of ABCList is:  [lindex $ABCList 0]"
#-> The first element of ABCList is:  aputs "The second element of NUMList is: [lindex $NUMList 1]"
#-> The second element of NUMList is: 2puts "The last element of MIXList is:   [lindex $MIXList end]"
#-> The last element of MIXList is:   ?puts "The next to last element of ABCList is \[lindex $ABCList [expr $LENGTH -2]]"
#-> The next to last element of ABCList is  dset SUBList [lrange $STRList 1 3]
puts "The second to fourth elements of STRList are >$SUBList<"
#->  The second to fourth elements of STRList are >sentence is a<   ### 2.3.e
set cIndex [lsearch $ABCList "c"]
puts "The letter c has the index $cIndex"
#-> The letter c has the index 2### 2.3.f 
set NewElement f
lappend ABCList $NewElement### 2.3.g
set UnsortedList [list 45.1 78.6 12.6 1.5 89.4 11.6]
set SortedList   [lsort -real $UnsortedList]
puts $SortedList
#-> 1.5 11.6 12.6 45.1 78.6 89.4  ### 2.3.h
set UnsortedList [list {a 45.1 1} {g 78.6 5} {r 12.6 8} \{c  1.5 2} {q 89.4 3} {n 11.6 4}]
set SortedList_0   [lsort -index 0 -ascii $UnsortedList]
puts $SortedList_0
#-> {a 45.1 1} {c  1.5 2} {g 78.6 5} {n 11.6 4} {q 89.4 3} {r 12.6 8}set SortedList_1   [lsort -index 1 -real $UnsortedList]
puts $SortedList_1
#-> {c  1.5 2} {n 11.6 4} {r 12.6 8} {a 45.1 1} {g 78.6 5} {q 89.4 3}    set SortedList_2   [lsort -index 2 -integer $UnsortedList]
puts $SortedList_2
#-> {a 45.1 1} {c  1.5 2} {q 89.4 3} {n 11.6 4} {g 78.6 5} {r 12.6 8}###--------------------------------------------------------------------
puts "\n2.4 Loops"### 2.4.a
foreach NUM $NUMList CHAR $ABCList {puts "The ${NUM} letter of the alphabet is $CHAR"
}
#-> The 1 letter of the alphabet is a
#-> The 2 letter of the alphabet is b
#-> The 3 letter of the alphabet is c
#-> The 4 letter of the alphabet is d
#-> The 5 letter of the alphabet is e
#-> The 6 letter of the alphabet is f   ### 2.4.b
for { set i 0 } { $i <= 10 } { incr i } {puts -nonewline " i=$i "
}
#-> i=0  i=1  i=2  i=3  i=4  i=5  i=6  i=7  i=8  i=9  i=10 ### 2.4.c
set f 1.0
set x 0.0
while { $f > 0.0 } {set x [expr $x + 0.01]set f [expr 1.0 - $x*$x]   
}
puts "Zero crossing is at x= $x"
#-> Zero crossing is at x= 1.0 ### 2.4.d
for {set i 0} {$i<=100} {incr i} {if {[expr fmod($i, 2)] == 0} {continue} elseif {$i > 6} {break} puts $i
}
#-> 1
#-> 3
#-> 5###--------------------------------------------------------------------
puts "\n2.5 Arrays"### 2.5.a
set model(1) Fermi
set model(2) Constant
set model(3) 3Stream
set model(4) 5Streamfor { set i 1 } { $i <= 4 } { incr i } {puts "Model #$i is $model($i)"
}
#-> Model #1 is Fermi
#-> Model #2 is Constant
#-> Model #3 is 3Stream
#-> Model #4 is 5Stream### 2.5.b
set Identifiers [list first second third fourth]
set model(first)  Fermi
set model(second) Constant
set model(third)  3Stream
set model(fourth) 5Streamforeach i $Identifiers {puts "The $i model is $model($i)"
}
#-> The first model is Fermi
#-> The second model is Constant
#-> The third model is 3Stream
#-> The fourth model is 5Stream###--------------------------------------------------------------------
puts "\n2.6 Conditional branching"### 2.6.a
set val 1
if { $val == 0 } {puts "val is 0"
} elseif { $val > 2 } {puts "val is larger than 2"
} else {puts "val is negative or one"
}
#-> val is negative or one### 2.6.b
set MODEL Fermi      
switch $MODEL {Constant { puts "Use constant diffusion model" }Fermi    { puts "Use Fermi diffusion model"}
}
#-> Use Fermi diffusion model###--------------------------------------------------------------------
puts "\n2.7 Logical operators"### 2.7.a
set Vd 1.5
set Device "pMOS"
set Simulation "IV"if { $Vd < 0.1 && $Device == "nMOS"  &&  $Simulation != "BV" } {puts "Simulate nMOS IdVg in linear regime"
} elseif { $Vd > 0.1 && $Device == "pMOS"  &&  ! ($Simulation == "BV") } {set Vd [expr -1.0*$Vd]puts "Simulate pMOS IdVg for Vd=$Vd"
} elseif { $Simulation == "BV" || $Device == "BJT" } {puts "Simulate BJT or MOS breakdown"
} else {puts "None of the specified conditions are met..."
}
#-> Simulate pMOS IdVg for Vd=-1.5###--------------------------------------------------------------------
puts "\n2.8 Assignment"### 2.8.a
set freqList [list 1.00e5  2.15e5  4.64e5  1.00e6  2.15e6  4.64e6  \1.00e7  2.15e7  4.64e7  1.00e8  2.15e8  4.64e8  \1.00e9  2.15e9  4.64e9  1.00e10 2.15e10 4.64e10 \1.00e11 2.15e11 4.64e11 1e+12 ]set h21List  [list 33.62   33.62   33.62   33.62   33.62   33.62   \33.62   33.61   33.59   33.46   32.86   30.48   \23.74   14.12    7.06    3.34   1.57    0.75    \0.38    0.19    0.20    0.23 ]### 2.8.b
set h21dBList  [list]
set h21first   [lindex $h21List 0]
set h21dBfirst [expr 20*log10($h21first)]
set ThreedB    [expr $h21dBfirst - 3]
set Flag 0foreach h21 $h21List freq $freqList {set h21dB [expr 20*log10($h21)]lappend h21dBList $h21dBif { $h21dB  <=  $ThreedB && $Flag == 0} then {set freq3dB [expr 1e-9*$freq]     set Flag 1}puts "$freq $h21dB"
}
puts ""
puts "The three dB point occurs at $freq3dB Ghz"###--------------------------------------------------------------------
puts "\n3.1 File input and output"### 3.1.a
set FIDw [open Writing.tmp "w"]### 3.1.b
puts $FIDw "This is the first line of this file"
puts $FIDw $ABCList### 3.1.c
close $FIDw### 3.1.d
set FIDr [open Writing.tmp "r"]### 3.1.e
while { [gets $FIDr NewLine] > 0 } {puts $NewLine
}
close $FIDr
#-> This is the first line of this file
#-> a b c d e f   ### 3.1.f
set FIDr [open Writing.tmp "r"]
set DATA [read $FIDr]
puts $DATA
close $FIDr
#-> This is the first line of this file
#-> a b c d e f   ###--------------------------------------------------------------------
puts "\n3.2 Formatting output"### 3.2.a
set  pi [ expr 2.0*asin(1.0) ]
puts "Pi unformated: $pi"
#-> Pi unformated: 3.141592653589793puts "Pi with 2 digits: [format %.2f $pi]"
#-> Pi with 2 digits: 3.14puts "Pi in exponential format: [format %.4e $pi]" 
#-> Pi in exponential format: 3.1416e+00set i 24
puts "Integer with leading zeros: >[format %05d $i]<"
#-> Integer with leading zeros: >00024[format %5d $i]<" 
#-> Integer with leading zeros: >   24<###--------------------------------------------------------------------
puts "\n3.3 Procedures"### 3.3.a
proc Arrhenius { A0 E } {global Tset k 8.62e-5 ; # eV/Kset A [expr $A0*exp(-$E/($k*$T))]return $A
}### 3.3.b
set T 300
set A [Arrhenius 1e5 1.0]
puts "The Arrhenius expression gives: [format %.4e $A]"
#-> The Arrhenius expression gives: 1.6067e-12###--------------------------------------------------------------------
puts "\n3.4 Masking special characters, substitutions"### 3.4.a 
set T 400.0
set CMD_Static "[Arrhenius 1e5 1.0]"
puts [format "\[Arrhenius 1e5 1.0\] gives %.4e" $CMD_Static]
#-> [Arrhenius 1e5 1.0] gives 2.5378e-08set T 1100.0
puts [format "\[Arrhenius 1e5 1.0\] gives %.4e" $CMD_Static]
#-> [Arrhenius 1e5 1.0] gives 2.5378e-08### 3.4.b
set T 400.0
set CMD_Dynamic "\[Arrhenius 1e5 1.0\]"
puts $CMD_Dynamic
#-> [Arrhenius 1e5 1.0]
puts [format %.4e [expr $CMD_Dynamic]]
#-> 2.5378e-08set T 1100.0
puts [format %.4e [expr $CMD_Dynamic]]
#-> 2.6291e+00###--------------------------------------------------------------------
puts "\n3.5 Files and Directories"### 3.5.a
set FIDw [open TMP_1.tmp "w"]
puts $FIDw "test"
close $FIDwset FIDw [open TMP_2.tmp "w"]
puts $FIDw "test"
close $FIDwset FILES [glob "TMP*"]
puts "$FILES"
#-> TMP_1.tmp TMP_2.tmp    ### 3.5.b
set FILE [lindex $FILES 0]      
set STEM [file rootname $FILE]
puts "The rootname is: $STEM"
#-> The rootname is: TMP_1
set EXT  [file extension $FILE]
puts "The extension is: $EXT"
#->  The extension is: .tmp### 3.5.c
set CWD [pwd]
puts $CWD### 3.5.d
set PATH [file dirname $CWD]
puts "Path is: $PATH"set DIR [file tail $CWD]
puts "Directory is: $DIR"###--------------------------------------------------------------------
puts "\n3.6 System Calls"### 3.6.a
exec rm -f Writing.tmp### 3.6.b
set FILE source.tcl
eval exec rm -f $FILE### 3.6.c
set ls_output [exec ls]
puts "The output of the ls command is:"
puts $ls_output###--------------------------------------------------------------------
puts "\n3.7 Error handling"### 3.7.a
set Nom 0.0
set Denom 10.0if { [catch { set result [expr $Denom/$Nom]} ErrCode]  != 0 } {puts "An Error occured. The Error code is >$ErrCode<"
} else {puts "$Denom/$Nom = $result"
}
#-> An Error occured. The Error code is >divide by zero<###--------------------------------------------------------------------
puts "\n3.8 String Manipulations"### 3.8.a
set STRING "Silicon \"substrate\" \{ rectangle \[(0.0,-0.5) (1.0,0.5)\] \}"### 3.8.b
set itmp       [expr [string first " " $STRING]]
set MATERIAL   [string range $STRING 0 [expr $itmp -1]]set istart     [expr [string first "\"" $STRING]]
set iend       [expr [string last  "\"" $STRING]]
set REGION     [string range $STRING [expr $istart+1] [expr $iend -1]]puts "The material is: $MATERIAL"
#-> The material is: Silicon
puts "The region name is: $REGION"
#-> The region name is: substrate     ### 3.8.c
set istart     [expr [string first "(" $STRING]]
set iend       [expr [string first "," $STRING]]
set X0         [string range $STRING [expr $istart+1] [expr $iend -1]]set istart     [expr [string first "," $STRING]]
set iend       [expr [string first ")" $STRING]]
set Y0         [string range $STRING [expr $istart+1] [expr $iend -1]]set istart     [expr [string last "(" $STRING]]
set iend       [expr [string last "," $STRING]]
set X1         [string range $STRING [expr $istart+1] [expr $iend -1]]set istart     [expr [string last "," $STRING]]
set iend       [expr [string last ")" $STRING]]
set Y1         [string range $STRING [expr $istart+1] [expr $iend -1]]### 3.8.d
set NewString ${MATERIAL}_${REGION}
puts $NewString
#-> Silicon_substrate      ### 3.8.e
set Text "$NewString extends from "
append Text "X= $X0 to $X1 "
append Text "and from "
append Text "Y= $Y0 to $Y1."
puts $Text
#-> Silicon_substrate extends from X= 0.0 to 1.0 and from Y= -0.5 to 0.5.### 3.8.f
set NAME1 "Eva"
set NAME2 "Adam"
if { [string compare $NAME1 $NAME2] == 0 } {puts "Both names are the same"
} elseif { [string compare $NAME1 $NAME2] < 0 } {puts "$NAME1 comes before $NAME2"
}  elseif { [string compare $NAME1 $NAME2] > 0 } {puts "$NAME2 comes before $NAME1"
}
#-> Adam comes before Eva     ### 3.8.g
set DEV "HV NMOStransistor"
if { [string match "*NMOS*" $DEV] } { puts "This device is an NMOS"
} else {puts "This device is NOT an NMOS"
}
#-> This device is an NMOS    ### 3.8.h
set OLDString "HV NMOStransistor"
set OLDPattern "NMOS"
set NEWPattern "PFET"set NEWString [regsub $OLDPattern $OLDString $NEWPattern] puts "NEW String: $NEWString"
#-> NEW String: HV PFETtransistor### 3.8.i
set String "1 2 3 4"
set SUM 0
foreach Number $String {set SUM [expr $SUM+$Number]
}
puts $SUM
#-> 10     ### 3.8.j
set String "1,2,3,4"
set List [split $String ","]set SUM 0
foreach Number $List {set SUM [expr $SUM+$Number]
}
puts $SUM
#-> 10     ###--------------------------------------------------------------------
puts "\n3.9 Assignment"### 3.9.a
# Open the file
set FIDr [open vtrolloff.txt "r"]# Read in first line with header information
gets $FIDr NewLine
set NewList [split $NewLine ","]set Index(Lg) 0
set Index(Vd) 1
set Index(Vti) 2# Initialize the target list of list
set LinList [list]
set SatList [list]# Read in the data line by line and process it
while { [gets $FIDr NewLine] > 0 } {# Turn the comma separated line into a TCL listset NewList [split $NewLine ","]# Read the enties Lg, Vd, and Vtiset Lg  [lindex $NewList $Index(Lg)]set Vd  [lindex $NewList $Index(Vd)]    set Vti [lindex $NewList $Index(Vti)]    # Create a list for low and high drain bias Vt's, which contains
# Lg-Vti pairs as entriesif { $Vd < 0.1 } {lappend LinList [list $Lg $Vti]} else {lappend SatList [list $Lg $Vti]}
}
close $FIDr# Sort the lists by Lg
set LinSort [lsort -index 0 -integer $LinList]
set SatSort [lsort -index 0 -integer $SatList]set DIBLList [list]
foreach Lin $LinSort Sat $SatSort {set LgLin [lindex $Lin 0]set LgSat [lindex $Sat 0]if { $LgLin != $LgSat } {puts "Inconsistent Lg values: $LgLin $LgSat"}  set VtLin [lindex $Lin 1]set VtSat [lindex $Sat 1]set DIBL [expr 1e3*($VtLin - $VtSat)]puts "DIBL at Lg=$LgLin is [format %.1f $DIBL] mV"
}###------------------
puts "THE END"

1.2 Tcl基本约定**

基本约定是：

• Tcl shell命令提示符号是百分号(%).

• 在哈希字符(#)之后，将忽略该行的其余部分

• 如果用分号(;)分隔，两个Tcl命令可以放在一行上

• 以下字符在Tcl中具有特殊含义：

  • 美元符号($)，用于访问变量的值
  • 大括号{}，用于块定义
  • 括号[],用于函数调用

• 有时空格是需要的，例如以下就是错误的：if{[expr $i+1]==2}{puts"Yes"},添加空格就可以解决这个问题if {[expr $i+1]==2} {puts"Yes"}

• 长的Tcl命令可以通过每行以反斜杠()结束来分割成多行。

• 一个Tcl脚本，例如source.tcl, 可以通过以下方式被加载到另一个Tcl脚本：

  • source source.tcl

• 使用以下命令关闭Tcl外壳：

  • % exit

1.3 命令提示符启动Tcl Shell并执行Tcl scripts**

启动交互式Tcl shell:

gtclsh

Synopsys 发布了一个gtclshTcl命令解释器,代替tclsh，以便兼容Tcl 8.6版，
要确定Tcl shell 的版本，请键入：

gtclsh
% info tclversion (结果是：8.6）

执行Tcl脚本 tcl_basics.tcl with:

gtclsh tcl_basics.tcl

相应的，可以使用"source"命令从Tcl提示符加载Tcl脚本:

gtclsh
% source tcl_basics.tcl

关闭Tcl shell：

% exit

Sentaurus Process 工具在交互模式下使用Tcl shell。因此，Tcl 代码可以直接在命令行上输入，方式与Tcl shell 完全相同。

1.4 深入理解

推荐一些网站：

• Tcl 命令：
  Tcl命令的参数指南可以从以下网站获得：
  http://www.tcl.tk/man/tcl8.6/TclCmd/contents.htm
• Tclers Wiki:
  Tcl社区网站，提供广泛帮助：http://wiki.tcl.tk/
• TCLLIB - Tcl Standard Library
  具有扩展功能的Tcl标准库与TCAD Sentaurus一起分发，可以在所有Tcl接
  口中访问。文档可以从以下网站获取：
  http://core.tcl.tk/tcllib/doc/trunk/embedded/www/toc.html