🚀 go-pugleaf

 $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 .
................................................