|
================================================================
Command Evaluation Step
================================================================
명령의 해석은 다음 순서로 일어나게 됩니다.
명령을 단어로 나누고, substitution을 합니다
명령을 실행합니다(evaluation/execution)
C에서 다음의 문장은
x = 4;
y = x + 10;
Tcl에서는 다음과 같이 써야 합니다
set x 4
set y [expr $x+10]
각 문장은 1번의 parsing/substitution과정을 거치게 되며, 여기서 다음과 같은 일이 일어납니다.
변수는 $으로 시작합니다.
은 안의 문장을 번역한 결과를 돌려줍니다(위 예 참고).
문장 뒤의 (backslash)는 현재 문장과 다음 문장을 하나로 여기도록 합니다. 단 { }으로 둘러싸인 경우에는 의미 없습니다.
{ }은 안의 문장을 substitution없이 넘겨줍니다. parser는 이 안의 문장을 하나의 단어로 여기게 됩니다.
" "안의 문장 안에서는 substitution이 일어납니다.
substitution은 일반적인 경우 한번밖에 일어나지 않습니다. 따라서 eval과 같이 parsing을 강제하는 명령을 제외하고는 번역은 한번만 일어난다고 생각하면 됩니다.
% set x [format {Earnings for July: $%.2f} $earnings]
Earnings for July: $1400.26
================================================================
주석
================================================================
주석문은 항상 행처음에 #으로 시작해야 합니다. 그렇지 않은 경우에는 #으로 시작해도 주석으로 인정하지 않습니다.
================================================================
변수
================================================================
변수의 대입은 set명령으로 합니다. Tcl에서는 변수의 타입이 없고, 타입이 없으므로 선언도 하지 않습니다. 각 프로시저 안의 변수는 따로 지정하지 않는 한 모두 지역변수입니다. proc문 안이 아니면 모두 stack level 0가 됩니다. 변수이름의 제한도 없으므로, 실제로 빈칸등이 들어간 변수이름도 가능합니다. 변수는 무조건 string이 들어가게 되지만, expr명령 등에서는 숫자가 아닌 것은 사용할 수 없습니다. 또한 struct과 같이 구조체를 선언할 수도 없습니다
set x 10
set abc "Hello World!"
set pi 3.14159
set "New York" 100
변수는 현 level이 끝날때까지의 수명을 가지고, unset명령으로 없앨 수 있습니다.
================================================================
배열
================================================================
Tcl에는 indexed array가 없고 오직 associative array만이 존재합니다. Multidimensional array도 없는데, 이것은 무식하게 해결할 수 있습니다.
set score(junker) 100
set score(bongbong) 50
set muld(3,5) 70
set muld($x,$y) 60
보통 variable substitution을 위해 $을 사용하는데, $은 그 다음에 영문자로 시작하여 영/숫자까지를 판별하는것에 주의합시다. 따라서 다음의 경우 { }으로 묶습니다.
.canvas configure -width ${size}m
incr과 append명령으로 ++과 strcat과 같은 효과를 얻을 수 있습니다.
% set x 5
% incr x
6
% set x "abc"
% append x "def"
abcdef
================================================================
수식
================================================================
일반적인 ANSI C오퍼레이터를 다 사용할 수 있다고 생각하면 됩니다. 다만 == <= >= !=은 별도명령 없이 string의 비교도 가능합니다. 비교문의 결과는 참이면 1, 거짓이면 0입니다. sin(x), cos(x)등의 수학함수도 쓸 수 있습니다.
% expr 3+5
8
% expr 6*7.3
43.8
% expr 6e4 * 7.91e+16
4.746e+21
% expr sin(60)
-0.304811
================================================================
리스트
================================================================
리스트는 단지 빈칸으로 연결된 단어의 집합니다. 때문에 단어 안에 빈칸이 들어갈 수 없는데, 이것은 { }으로 묶어서 해결할 수 있습니다.
% concat {a b c} {d e} f {g h i}
a b c d e f g h i
% list {a b c} {d e} f {g h i}
{a b c} {d e} f {g h i}
% llength {a b c}
3
% set x {a b {c d} e}
% linsert $x 2 X Y Z
a b X Y Z {c d} e
% lsearch $x d
-1
% lsearch $x e
3
% lsort {10 1 2}
1 10 2
% set y /usr/include/sys/types.h
/usr/include/sys/types.h
% split $y /
{} usr include sys types.h
================================================================
제어구조
================================================================
if {$x < 0} {
set x 0
}
각 제어구조의 evaluation의 과정을 눈여겨 볼 필요가 있습니다. C와는 다른 형태를 취하는 것이, Tcl의 명령에는 block이 존재하지 않기 때문입니다. if의 경우에는 인수 두개(수식, body)만을 취할 뿐입니다(뒤에 elseif와 else를 사용할 수 있습니다) 따라서 비교인 수식부분도, 단순히 단어를 나누기 위한 수단으로 { }를 사용할 뿐입니다. 이는 다음 예에서 더 확실해집니다.
% set i 5
% while {$i>0} {
puts -nonewline "$i "
incr i -1
}
5 4 3 2 1 %
% set i 5
% while $i>0 {
puts -nonewline "$i "
incr i -1
}
5 4 3 2 1 0 -1 -2 -3 ...
{ }은 단순히 단어를 나눌 뿐 아니라 evaluation을 막아서 반복되는 제어구조에서도 새로운 variable substitution이 일어나도록 합니다.
for, foreach, switch도 비슷한 용법을 가지고 있습니다.
% for {set i 5} {$i>0} {incr i -1} {puts $i}
% foreach i {a b c} {puts $i}
% switch $x {
a {incr t1}
b {incr t2}
c {incr t3}
}
eval은 인수들을 합하여 새로운 Tcl명령이 실행되도록 합니다.
% eval {set i 5}
5
% eval set i 5
5
================================================================
Procedure
================================================================
proc명령을 사용하여 새로운 함수를 Tcl스크립트로 만들 수 있습니다. 새로 만들어진 명령은 recursion으로도 사용할 수 있습니다. 보통 proc의 리턴값은 그 프로시저의 마지막 명령의 evalation값입니다. 그러나 이와 함께 return명령도 사용할 수 있습니다.
% proc plus {a b} {expr $a+$b}
% plus 3 5
8
앞에서 이야기한것처럼 모든 변수는 프로시저 내에서 지역변수이지만, 상위 변수를 global로 취급하려면 global명령을 써야 합니다.
global x y
이 경우 프로시저를 부른 프로시저의 a와 b를 global로 취급하며, 프로시저 내에서 a와 b변수는 지역변수가 아닌 전역변수로 취급하게 됩니다(C의 static과는 조금 다르다는 것에 주의하새요).
인수는 모두 call-by-value에 의해 호출되지만, 배열의 경우 C에서처럼 이름만 주는 것으로 배열을 읽을수는 없습니다. 따라서 이와 같은 경우에는 upvar명령을 사용하여 call-by-reference를 흉내내어야 합니다. Tcl에는 포인터 구조가 없습니다.
% proc parray name {
upvar $name a
foreach el [lsort [array names a]] {
puts "$el = $a($el)"
}
}
% set info(age) 7
% set info(posision) "Vice President"
% parray info
age = 7
posision = Vice President
upvar명령은 단순히 이전단계의 프로시저의 변수를 쓸 수 있다는 것 외에 특정 level의 변수를 쓸 수 있다는 장점이 있습니다.
upvar #0 other x
또한 uplevel을 사용하여 새로운 제어구조를 만들어 낼 수 있습니다.
================================================================
문자열
================================================================
Tcl에서 한글을 쓸 수 있는가의 가능성에 대해서는, 대부분의 한글 메세지가 입력으로 들어가도 상관이 없지만, Tk에서 한글출력이 불가능하고(한글 Tk가 있다는 이야기는 들어본 적이 없기 때문에), 문자열 루틴에서의 오동작이 일어나기 때문에 그렇게 권장할만한 것은 아닙니다. 하지만 한글등의 8비트 메시지는 그대로 사용할 수 있습니다.
문자열 검색에는 두가지가 있습니다. glob와 regular expression이 있는데, glob는 shell의 방식이고, regexp는 grep(1)의 유닉스 표준에 의한 검색이 가능합니다.
% string match Tcl* "TclABC"
1
% regexp {([0-9]+) *([a-z]+)} "Walk 10 km" a b c
1
% set a
10 km
% set b
10
% set c
km
% regsub a ababa zz x
1
% set x
zzbaba
% format "%d is %c" 100 100
100 is d
% scan "16 units, 24.2% margin" "%d units, %f" a b
2
% set a
16
% set b
24.2
% string length "abc"
3
% string toupper "abc"
ABC
% string compare "abc" "def"
-1
================================================================
기타
================================================================
파일 I/O
파일 I/O은 POSIX표준의 파일관련 함수를 명령의 형태로 대부분 이용할 수 있습니다.
% set x [open abc r]
file4
% gets $x
Hello
% tell $x
6
% close $x
또한 file명령은 파일이름의 조작과 파일 정보를 얻을 수 있는 부명령들을 많이 갖고 있습니다.
set filename /usr/include/limits.h
set f [open $filename r]
while {[gets $f line] >= 0} {
puts $line
}
close $f
================================================================
프로세스
================================================================
exec명령으로 외부명령을 실행할 수 있고, >과 <<등의 리다이렉션명령으로 출력결과나 입력을 제어할 수 있습니다. |로 파이프도 사용할 수 있고, &를 사용하면 백그라운드 작업도 가능합니다.
% exec ls
#ht-tcl_tk.tex# auto ht-tcl_tk.dvi ht-tcl_tk.tex
abc ht-tcl_tk.aux ht-tcl_tk.log ht-tcl_tk.tex~
% exec cat abc | grep World
World
Hello World!
%
================================================================
history
================================================================
C쉘과 같이 !!등의 명령을 사용하여 이전 명령의 반복이 가능합니다.
!! 이전명령을 반복합니다(history redo)
! 해당명령을 반복합니다(history redo )
^old^new 이전명령의 old를 new로 바꾸어 실행합니다
(history substitute old new)
|
|
