Thread View: fj.lang.tcl
2 messages
2 total messages
Started by Yamashita Shinya
Fri, 14 Nov 1997 00:00
Excute of Tcl command in C
Author: Yamashita Shinya
Date: Fri, 14 Nov 1997 00:00
Date: Fri, 14 Nov 1997 00:00
57 lines
2361 bytes
2361 bytes
$B;32<!w=)EDBg$H?=$7$^$9!%(B
C $B$N%W%m%0%i%`Cf$+$i;n83E*$K(Btk$B%i%$%V%i%j$r8F$S=P$=$&$H$7$F$$$k$N$G$9$,(B
$B$I$&$b$&$^$/9T$-$^$;$s!%(B
$B;HMQ$7$F$$$k(BTcl$B$N%P!<%8%g%s$O(B7.6$B!$(Btk$B$O(B4.2$B$G!$F|K\8l$N%Q%C%A$r=<$F$F;H$C$F(B
$B$$$^$9!%$^$?!$(BOS$B$O(BSunOS Release 4.1.2-JLE1.1.2 (GENERIC)$B$G$9!%(B
$B>u67$H$7$F$O0J2<$NDL$j$G$9!%(B
----------------------------------------------------------------------
Tcl_EvalFile $B%3%^%s%I$rMQ$$$F%9%/%j%W%H$r<B9T$5$;$h$&$H$7$?!%$A$J$_$K!$(B
$B$3$N;~MQ$$$?(BC $B%W%m%0%i%`$H(Btcl$B$N%9%/%j%W%H$O$=$l$>$l0J2<$NDL$j$G$9!%(B
------- C$B%W%m%0%i%`(B-------
#include<stdio.h>
#include<tcl.h>
#include<tk.h>
void main(int argc , char *argv[]) {
Tcl_Interp *inter;
int code;
if (argc <= 1) {
fprintf(stderr , "Usage %s : scriptfile\n" , argv[0]);
exit(255);
}
inter = Tcl_CreateInterp();
code = Tcl_EvalFile(inter , argv[1]);
exit(0);
}
------ Tcl$B8@8l$N%9%/%j%W%H(B------
button .b -text hellow -command exit;
pack .b;
------------------------------------------------------------
$B$3$NMM$K!$%3%^%s%I%i%$%s$NF~NO$K1w$$$F0z?t$H$7$FM?$($i$l$?%9%/%j%W%H$r(B
$B<B9T$9$k%W%m%0%i%`$J$N$G$9$,!$2?$b<B9T$5$l$:$K%W%m%0%i%`$,=*N;$7$F$7$^$$$^$9!%(B
$B$^$?!$(Btk$B%i%$%V%i%j$N%3%^%s%I$r<B9T$9$k(BTcl_Eval$B$G$bF1MM$N;v$r;n$7$F$_$?$N$G$9(B
$B$,!$F1$87k2L$K=*$o$j$^$7$?!%(B
$B$A$J$_$K:G=*E*$K$O(BC$B$N%W%m%0%i%`Cf$N!$(B1$BJ,CV$-$K99?7$5$l$k%G!<%?$r(BCanvas $B>e$G!$(B
$B%j%"%k%?%$%`$G%0%i%U$K$7$FI=<($7$?$$$H;W$C$F$$$^$9(B
$B4pK\E*$J<ALd$+$bCN$l$^$;$s$,59$7$/$*4j$$CW$7$^$9!%(B
................................................
.-- @ @ $B=)EDBg3X9[;33XItEE5$EE;R9)3X2J(B .
.-- ( - ) $B:dED8&5f<<(B($BDL?.9)3X(B) $B;32<(B $B?.Li(B .
. e-mail: shinya@sakata-lab.ee.akita-u.ac.jp .
................................................
Re: Excute of Tcl command in C
Author: Tomohiko Kurahashi
Date: Fri, 14 Nov 1997 00:00
Date: Fri, 14 Nov 1997 00:00
38 lines
1553 bytes
1553 bytes
$BAR66!wElBg$G$9!#(B
On Fri Nov 14 1997 14:08:57
shinya@uws10.akita-u.ac.jp wrote in <64gmd9$eir$1@tegata.akita-u.ac.jp> :
+ #include<stdio.h>
+ #include<tcl.h>
+ #include<tk.h>
+
+ void main(int argc , char *argv[]) {
+ Tcl_Interp *inter;
+ int code;
+
+ if (argc <= 1) {
+ fprintf(stderr , "Usage %s : scriptfile\n" , argv[0]);
+ exit(255);
+ }
+
+ inter = Tcl_CreateInterp();
if(Tcl_Init(interp) == TCL_ERROR)
exit(1);
if(Tk_Init(interp) == TCL_ERROR)
exit(1);
+ code = Tcl_EvalFile(inter , argv[1]);
Tk_MainLoop();
+ exit(0);
+ }
$B$G$I$&$G$7$g$&(B? $B<+:n$N$b$N$O$3$N<j=g$GF0$$$F$$$^$9(B(Tcl7.6jp/Tk4.2jp)$B!#(B
+ $B$A$J$_$K:G=*E*$K$O(BC$B$N%W%m%0%i%`Cf$N!$(B1$BJ,CV$-$K99?7$5$l$k%G!<%?$r(BCanvas $B>e$G!$(B
+ $B%j%"%k%?%$%`$G%0%i%U$K$7$FI=<($7$?$$$H;W$C$F$$$^$9(B
$B;d$b;w$?$h$&$J%D!<%k:n$C$F8&5f$K;HMQ$7$F$$$^$9!#4hD%$C$F2<$5$$!#(B
--
$BAR66(B $BCRI'(B E-Mail : kura@melchior.q.t.u-tokyo.ac.jp
Tomohiko Kurahashi HomePage: http://selina.q.t.u-tokyo.ac.jp/~kura/
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads