Korea Tcl/Tk Community

Tcl & Tk/팁 (Tip) 검색 결과

해당 글 38건

TCP 포트 스캔 구현

TCP의 포트를 스캔하는 확장 패키지를 구현하여 보았습니다. 윈도즈는 GetTcpTable API를 이용하여 MinGW로 테스트하였고, Linux는 /proc/net/tcp 파일을 검색해 보면 알 수 있기에 순수 Tcl로 작성하였습니다.Windows 코드/* portscan.c how to cpmpile % gcc -I$(TCL)/include -DUSE_TCL_STUBS -c portscan.c % gcc -shared -o portscan.dll portscan.o -L$(TCL)/lib -ltcl85 -ltclstub85 -lws2_32 -liphlpapi*/#include #include #ifdef __MINGW32__#include #include #include #endif#include #..

Tcl & Tk/팁 (Tip) 2025. 3. 20. 09:57

백터 폰트 출력 예제

아래는 캔버스 위젯에 백터 폰트를 출력하는 코드입니다. 간단한 캐드 프로그램을 만들때 요긴하게 쓰일겁니다.# A set of routines for drawing a vector font on a canvas. These# display characters/strings at a specified canvas coordinate.namespace eval VectorFont { variable fontarray # Define a 5x7 vector font indexed by the character." { {1 6 1 4} {3 6 3 4} } ' { {2 6 2 4} } , { {1 0 2 1 2 2} } . { {2 0 2 1} } / {..

Tcl & Tk/팁 (Tip) 2025. 3. 19. 10:44

Tcl의 인코딩에 대하여

Tcl은 기본적으로 시스템 인코딩으로 작성된 스크립트 파일을 받아들이게 되어 있습니다. 한글 윈도우즈의 경우는 CP949일테죠. 만약 UTF-8 인코딩으로 작성된 소스코드는 아래와 같은 방법을 사용합니다.% tclsh test.tcl -encoding utf-8% wish test.tcl -encoding utf-8source test.tcl -encoding utf-8Tcl 8.5 버전 이상에서만 사용가능합니다.

Tcl & Tk/팁 (Tip) 2025. 3. 19. 10:40

윈도우 always on top 구현

리눅스의 경우 아래와 같이 합니다. # -----------------------------------------# always on top for linux# -----------------------------------------proc ontop {W boolean} { set bindtags [bindtags $W] set index [lsearch $bindtags bind$W] if { $boolean } { if { $index == -1 } { bindtags $W [linsert $bindtags 0 bind$W] bind bind$W [list ontop:state %W %s] } } else { ..

Tcl & Tk/팁 (Tip) 2025. 3. 17. 14:47

Jacl을 이용한 SWT 간단 예제

swt 다운로드: http://www.eclipse.org/swt/jacl 다운로드: http://tcljava.sourceforge.net/j2sdk 다운로드: http://java.sun.com/j2se/1.4.2/download.htmlJacl은 Java로 작성된 Tcl 인터프리터입니다. 때문에 Tcl과 동일한 기능을 제공하지는 않습니다. 단적인 예로 Tk를 지원하지 않는다는 겁니다. 아래는 jacl을 빌드 후 swt의 예제를 Jacl로 변경해서 테스트해 본 예제입니다. 테스트 전 다운로드한 SWT의 jar 파일을 jaclsh.bat내의 CLASSPATH에 추가해야 합니다. 본래 Java 코드는 아래와 같습니다.import org.eclipse.swt.SWT;import org.eclipse.swt..

Tcl & Tk/팁 (Tip) 2025. 3. 17. 14:42

에러없는 변수 접근법

이 팁의 경우는 unset 커맨드를 이용해서 변수를 메모리 상에서 제거한 후 실수로 혹은 필요로 인해 변수를 액세스해야 할 경우 버그 없는 코드를 만들 때 요긴하게 쓰입니다. 아래의 경우같이 존재하지 않는 변수를 액세스 하는 경우 에러가 발생합니다.if { $test == 1 } { }info exist 커맨드를 사용해서 변수가 존재하는지 검사한 후 체크를 해도 되겠지만, 매번 적어주다 보면 코드가 길어지는 문제가 있습니다. 이런 기능을 하는 함수를 하나 만들어 볼까요?proc read_var {var} { if { [catch {set $var}] } { return {} } return [set $var]}아래와 같이 사용합니다. 존재하..

Tcl & Tk/팁 (Tip) 2025. 3. 17. 14:38

자신의 IP 알아내기

아래 스크립트는 자신의 IP를 알아내는 스크립트입니다.proc myip {} { set myip {} foreach a {a b c d e f g h i j k} { catch { set external [socket $a.root-servers.net 53] set myip [lindex [fconfigure $external -sockname] 0] close $external } if { ![string equal $myip {}] } { break } } ..

Tcl & Tk/팁 (Tip) 2025. 3. 17. 14:37

C API 를 동적 라이브러리로 정의 후 TCL에서 호출 하는법

pcm0279 님이 올려주신 팁입니다.C 프로그램에서 정의한 API들을 동적 라이브러리(.dll)로 만들어 Tcl script에서 C API 명령을 호출하여 사용하는 방법이다. 다음은 C프로그램의 예제소스이다.// calc.hextern int sum(int a, int b); // extern을 사용하여 외부에서 호출 가능하도록 함.extern int minus (int c, int d); // extern을 사용하여 외부에서 호출 가능하도록 함.// calc.c#include #include "calc.h"int sum(int a, int b) { return a+b;}int minus (int c, int d) { return c-d;} 위 API들..

Tcl & Tk/팁 (Tip) 2025. 3. 17. 14:34