전체 글 검색 결과

해당 글 427건

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

클립보드 사용하기

bonkora 님이 작성해 주신 팁입니다.Tcl/Tk에서 클립보드로 텍스트를 주고받는 예제입니다. 버튼 하나에 텍스트 위젯의 내용을 클립보드로 보내기 위한 명령을, 또 하나에는 클립보드의 내용을 텍스트 위젯으로 갖고 오는 명령을 할당하였습니다. 메모장을 열어놓고 테스트해보시면 되겠습니다. 물론 텍스트 위젯에서 범위를 지정한 후 control-c를 이용해도 되겠지만 명령어를 사용하면 텍스트를 여러모로 조작한 후 클립보드로 보낼 수도 있기 때문에 유용할 때가 있을 것입니다. 혹 필요하신 분이 계실까 봐 올려봅니다. proc exportclip {} { # 클립보드의 내용을 지운다 clipboard clear # 텍스트 윗젯의 내용을 클립보드에 보낸다 clipboard append [.t ..
Tcl & Tk/팁 (Tip) 2025. 3. 17. 14:27

Tcl/Tk 소스를 숨기고 독립적인 실행파일을 만드는 가장 간단한 방법

bonkora 님이 올려주신 팁입니다.처음 Tcl로 프로그램을 만들고 나면 따로 Tcl을 설치하지 않아도 다른 컴퓨터에서 실행되도록 실행파일의 형태로 만들고 싶어 집니다. 그렇게 되면 소스를 노출시키지 않아도 되고요. 이런 목적으로 주로 많이 쓰이는 게 FreeWrap과 Tclkit/Starkit/Starpack입니다. 이에 대한 자세한 내용은 강좌를 참고하십시오. 저는 후자를 주로 사용합니다. Tclkit/Starkit/Starpack을 사용하는 두 가지 방법을 살펴보겠습니다.소스코드를 포함하여 하나의 실행파일을 만드는 방법예를 들어 hello.tcl을 hello.exe라는 하나의 실행파일 속에 패키징하는 방법입니다. 한글 엔코딩을 위한 파일을 포함시키는 과정을 포함하여 몇 단계 과정을 거쳐서 실행파일..
Tcl & Tk/팁 (Tip) 2025. 3. 14. 12:36

subst 커맨드: 특정값을 가진 변수이름을 다른 변수에 넣어 사용하기

bonkora 님이 올려주신 팁입니다.제목만 봐서는 어떤 내용인지 얼른 이해가 안 되실 것 같습니다. 예를 들어서 a라는 변수에 100이라는 값을 넣고 b라는 이름의 변수에다가는 a라는 변수의 이름을 넣은 후 변수 b를 이용하여 변수 a의 값인 100을 얻고 싶다면 어떻게 하면 될까 하는 것입니다. 이런 것을 써먹을 곳이 있겠냐 싶은데, 가끔은 필요할 때가 있더군요. 이럴 때 필요한 것이 subst 커맨드입니다. 책에는 subst 커맨드에 대해 이렇게 설명하고 있습니다. "어떠한 커맨드도 호출하지 않고, 커맨드와 변수 대입을 하기 위해 사용한다. 대입순환을 한다는 점은 eval과 유사하나 커맨드로써 그 결과를 해석하려 시도하지 않는다."실례를 들어보겠습니다. 변수 han에다가 "한글"이라는 값을 넣습니다..
Tcl & Tk/팁 (Tip) 2025. 3. 14. 12:29

sort 비교 함수 정의하기

예를 들어 아래와 같은 리스트가 있다고 보죠.set list [list sum_r_0_ sum_r_1_ sum_r_10_ sum_r_11_ sum_r_12_ sum_r_13_ sum_r_14_ sum_r_15_ sum_r_2_ sum_r_3_ sum_r_4_ sum_r_5_ sum_r_6_ sum_r_7_ sum_r_8_ sum_r_9_] 위와 같은 특별한 리스트의 경우 예를 들어 중간에 숫자가 나온다던지.. 이런 경우 소트를 하고 싶다면 lsort의 -command 옵션을 사용합니다. 우선 아래와 같은 소트 함수를 만듭니다.# 숫자를 분리후 서로 비교합니다.proc compare {one two} { set one [lindex [split $one _] end-1] set t..
Tcl & Tk/팁 (Tip) 2025. 3. 14. 12:27

백그라운드 실행 패키지 'jobexec'

출처: http://tclrep.cvs.sourceforge.net/viewvc/tclrep/modules/jobexec/jobsched...저는 주로 백그라운드 실행을 위해 blt의 bgexec를 이용했습니다. 별 탈없이 사용하다 며칠 전 bgexec에 버그가 있는 것을 발견했습니다. 예로 라이선스 프로그램 중의 하나인 flexlm인데요. 이 flexlm이 서버에 설치되어 있고, 클라이언트에서 라이선스 체크를 하려 하면, bgexec를 사용한 프로세스에서는 라이선스 체커가 동작하지 않는 문제가 발생했습니다. 원인 파악은 되고 있지 않지만, 궁여지책으로 순수 tcl로 구현된 bgexec가 있지 않을까 싶어 검색을 해본 결과 쓸만한 놈을 발견하였습니다. 이름하여 jobexec 라는 패키지입니다. 이 패키지..
Tcl & Tk/팁 (Tip) 2025. 3. 14. 12:24