Korea Tcl/Tk Community

Multi-Threaded use of Tcl Interpreters

Tcl 인터프리터를 멀티 쓰레드로 돌리는 간단한 방법입니다.#include #include #include #include using namespace std;vector interpreters;const char* tcl_proc = "proc foo { } {\n" " set log [ open logfile a ]\n" " puts $log \"thread started\"\n"// " close $log\n" " return 3.4\n" "}\n" "foo\..

Tcl & Tk/팁 (Tip) 2025. 3. 20. 10:02

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

고용량 영상이 많이 들어가 있는 폴더 로딩 빠르게...

고용량 영상이 많이 들어가 있는 폴더 로딩 빠르게 하는 방법..탐색기 폴더에서 오른쪽 클릭속성 클릭사용자 지정 탭 선택다음에 대해 이 폴더 최적화에서 일반 항목 선택하위 폴더도 모두 적용 선택적용 버튼 클릭

블로그 (Blog)/잡담 (Smalltalk) 2025. 3. 20. 02:51

백터 폰트 출력 예제

아래는 캔버스 위젯에 백터 폰트를 출력하는 코드입니다. 간단한 캐드 프로그램을 만들때 요긴하게 쓰일겁니다.# 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