Newsgroups: fj.lang.tcl,fj.archives.answers
Subject: [comp.lang.tcl] Tcl Language Usage Questions And Answers
Distribution: fj
Followup-To: fj.lang.tcl
Reply-To: taguchi@aic.co.jp
Keywords: FAQ tcl tclX

Archive-name: tcl-usage-QnA-j/part01
Version: 1.2-J1.0
Last-modified: Tue Nov 29 16:12:53 JST 1994
Posting-Frequency: monthly

----------------------------------------------------

Ԥޤ
************

ϡjoe@morton.rain.com (Joe Moss) ˤäƴ "FAQ:
comp.lang.tcl Tcl Language Usage Questions And Answers" ܸ Ǥ
ϥꥸʥalcatel֤ޤΤǡإå ޤ(
ԤΥȤNewsƥϡŪĴʾ֤ˤޤ) ܸ
Ф뤴ո䡦ΤŦʤɤϡԤޤǡ ޤ¾
ܺ٤ʾˤĤƤϡtcl-faq-j/part00 򻲾ȤƲ

----------------------------------------------------

Ϥ
********

 FAQ եϡTcl ץߥ󥰸˴ؤ롤 Ūˤ褯ʹ
򰷤ȤŪȤƤޤ Τ褦ʼ䤬ʸϤ
Ȥˤꡤ comp.lang.tcl ƱƤη֤ꡤ Ūˤʤ
ȤԤޤ ޤʸ¾ FAQ ˤäơ ¿ο͡
Tcl  Tcl ١Υץꥱ ˻Ȥ褦ˤʤ뤳Ȥ
Ԥޤ

FAQϡJoe Moss (joe@morton.rain.com)ˤ졤 
comp.lang.tcl  news.answers Ƥ졤ޤ ftp.aud.alcatel.com
(198.64,191,10)  /tcl/docs ǥ쥯ȥ䡤World Wide Webڡ 
http://route.psg.com/tcl.html Ǥꤹ뤳ȤǤޤ

Tcl ˴ؤ뤳ʾξϡ Larry Virden (lvirden@cas.org) ˤäƴ
ƤFAQ򻲾ȤƲ ˤϡ¾Ѳǽʸ¿γ
ĥ ץ륳ɤʤɤؤΥݥ󥿤ǺܤƤޤޤ
alcatel  /tcl/docs ǥ쥯ȥ(ե tcl-faq.part0[1-5].gz Ȥ)
 ޤURL: 
http://www.cis.ohio-state.edu/hypertext/faq/usenet/tcl-faq/top.html Ǥ⸫뤳Ȥ
ޤ

 FAQ  Tcl ˴ؤưΤǤꡤ Tk ˤĤƤΤΤǤϤʤȤ
դƲ Tk ˴ؤƤϡThomas J. Accardo (tja@cpu.com) Ƥ
Ƥ "Tk Toolkit Q&As" 򻲾ȤȤ褤Ǥ礦 ʤ顤ɬŪ
ʾΤ֤⤢ޤ Tk åȤΰ˴ؤǤ褯ʹ
ΤĤϡ Tcl 󥿥ץ꥿ưΤФ˵
ΤǤ äϡ⤳ǰޤ ޤTcl ΰ
ĤǤϡ Tk ¹Ԥɬפ⤢Ǥ礦

Tk ˰¸ʤĥ(ĥ Tcl  Expect ʤɡTkX  expecTk BLT
Ͻ)λȤ˴ؤȲޤǼ갷ޤ

ʸϤΥϡߤǤ HTML Ǵ褦ˤʤޤ 
ȥС˼ֹܼ From  Subject Ԥˡͤ˼ư
Ūղä뤿ˡ2 ĤΥץ (Tcl ǽ񤫤Ƥޤ)̤
Ƥޤ WWW 黲ȤǤСϡѹ٤˹
 ASCII ƥȥСϷ1١ƤǤ

----------------------------------------------------

ܼ:
=========

 o Q1- Υޥ Tcl ưɬפʾˤϡ 
 o Q2- ϢۥꥹȤ°ꥹȤ/Ѥˤϡ 
 o Q3- Tclˤϡ 
 o Q4- proc֤ʣΥѥ᡼ͤ ̤procƤ
   ˤϡ 
 o Q5- procϤˤϡ 
 o Q6- ޥɤ¹ԤνϤѥפɤˤϡ 
 o Q7- ĥTclwishexpectʤɤȤ߹ˤϡ 
 o Q8- ץǡƤץ
   ϡ 
 o Q9- upvar ˤä줿ǤϢǧˤϡ
 o Q10- ٤7ʾ٤ˤϡ 
 o Q11- Ȥ߹ߥޥɤθƽФȯݤˡ ޥɥ饤
   ʤͤˤˤϡ 
 o Q12- Ķѿɤ߽񤭤ˤϡ 
 o Q13- Ƭ0Ĥ򰷤ˤϡ 
 o Q14- 륢ץꥱǥޥɥ饤򻲾Ȥˤϡ
 o Q15- ҤƤ륹ץΡ 㤨 case ʸΤȤʤɤ˥
   Ȥˤϡ 
 o Q16- ХʥꡦǡϤˤϡ 
 o Q17- ʥª䡤¾UnixͭεǽȤˤϡ 
 o Q18- פ̤˥Ȥ줿ʸưˤϡ 
 o Q19- ʣTclץꥱ֤ǥץͭˤϡ 
 o Q20- ꥹȤ줿Ǥˤϡ 
 o Q21- ե뼱̻Ҥ֥åɤ߹ߤԤˤϡ 
 o Q22- å˥ѥפɤ߽񤭤ˤϡ 
 o Q23- ¹ԤƤС󤬲Τˤϡ 
 o Q24- Tcl󥹥ȡ뤵ƤʤĶǤư ɥ
   󡦥ץˤϡ 
 o Q25- ̾ݻΤѿȤˤϡ 
 o Q26- AIX  Tcl/Tk ζͭ饤֥ˤϡ 
 o Q27- HP-UX  Tcl ΥѥͤϤޤ󤫡 
 o Q28- VMS Tcl ΥѥͤϤޤ󤫡 
 o Q29- SCO Unix  Tcl 򥳥ѥ뤹ˤϤɤΡ 
 o Q30- tclTest ¹Ԥ format  scan ǥ顼ˤʤΤϲΡ 
 o Q31- tclTestIrix 4.0.1 Ǽ¹Ԥȥ顼̤˽ФΤϲΡ 
 o Q32- CrayTclʤ餻ͤϤޤ󤫡 
 o Q33- NeXTSTEP 3.1 Tcl7.1/Tk3.4򥤥󥹥ȡ뤹ˤϡ 
 o Q34- Tcl/Tk ܤΥɥեȤץȥȤǤʤΤϲΤǤ礦
 o Q35- SGI Indigo ơǥ顼ˤʤäΤϲΡ 
 o Q36- expectsolaris 2.3ǹۤˤϡ 
 o Q37- SequentTcl/Tkܿˤϡ 
 o Q38- AU/X 3.0ǡ ܥơ֥뤬դȤå
   ˤϡ 
 o Q39- MS-DOSMacOSͤUnixƥTcl򥳥ѥ뤹
   ˤϡ 
 o Q40- QNXƥTcl򥳥ѥ뤹ˤϡ 

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q1- Υޥ Tcl ưɬפʾˤϡ 
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

 Tcl ʪ椫"porting.notes" Ȥե̾Υեõ
 Ƹޤ礦 ˤϡޤ¿ο͡󤻤줿 ͡
 ޥ OS  Tcl ưݤबޤȤƤޤ ޤ
 ɤ˿äꤹˤޤǽɤ٤ "README"Ȥե
 ⤢ޤ (ϡɤʥѥåˤ뤳ȤǤ)

 ʸϤνˤϡ ͡ʥץåȥۡǥ󥿥ץ꥿
 ۤ뤳Ȥ˴Ϣ ĤμǼƤޤ

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q2- ϢۥꥹȤ°ꥹȤ/Ѥˤϡ 
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++

 ĥ Tcl 䡤դꥹȤȤɤǤ礦

 㤨СʲΤ褦˥ץषʤ: 

  keylset ttyFields ttyName tty1a
  keylset ttyFields baudRate 57600
  keylset ttyFields parity strip

  "echo $ttyFields" ¹Ԥȡʲޤ: 

 {ttyName tty1a} {baudRate 57600} {parity strip}

 뤤ϡȤäưʲΤ褦ˤ⤢ޤ 

  set ttyFields(ttyName)  tty1a
  set ttyFields(baudRate) 57600
  set ttyFields(parity)   strip

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q3- Tclˤϡ 
+++++++++++++++++++++++++++++++++++++++

 ĥTclˤϡԤrandomȤޥɤޤ 㤨С
 09ޤǤʤС 

 set random_number [random 10]

 ޤ μꤹsrandomȤޥɤ⤢ޤ

 ٤Tclǽ񤫤줿 Ĥβؿcomp.lang.tcl
 Ƥޤ ΰϡLarry"tcl-faq/part04"򻲾ȤƲ
 

 ˻Ȥͤˤϡ ʲΤ1(ȹ礻)Ѥ
 ɤǤ礦

  [pid]
  [file atime /dev/kmem]
  [getclock]                        (ĥTclΤ)

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q4- proc֤ʣΥѥ᡼̤ͤprocƤ
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
ˤϡ 
+++++++

 y ʣΰ׵ᤷx ʣθ֤Ȥޤ Tcl  eval
 ɤȤäƤޤ: 

 eval y [x]



From: Tcl Q&A
+++++++++++++
Subject: Q5- procϤˤϡ 
++++++++++++++++++++++++++++++++++++

 ⤷ǽǤʤСХѿȤ⡤ upvarޥɤ
 Ƹ٤Ǥ ⤷ؿ٥ȶưǤʤС
 ХѿȤ虜ޤ󤬡 

 # ǤϤ
 proc show_array arrayName {
     upvar $arrayName myArray

     foreach element [array names myArray] {
        puts stdout "${arrayName}($element) =  $myArray($element)"
     }
 }

 set arval(0) zero
 set arval(1) one
 show_array arval

 ˼褦ˡץ㤫֤ˤϡ ̾
 ȤͿƤǤ ФƹԤäɤΤ褦ѹ
 ⡤(ƽи)ȿǤޤ

 ĥ Tcl ϡͤȹ礻ΥꥹȤǤ롤դꥹȤȸƤ
  󥻥ץȤƳƤơͥåȥͳʤɤǤ⡤ͤ롼
 ˰ ϤȤޤ

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q6- Q6- ޥɤ¹ԤνϤѥפɤˤϡ 
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

 㤨СĤΥեФ grep ǥѥޥåԤʤС
 ʲˡʤɤͤޤ:

 karl@NeoSoft.com (Karl Lehenbauer) 񤯽ˤ: 

 set files [glob /home/cole/stats/*]

 proc parseInfo { site } {
    global files

 #
 # site is chosen from a listbox earlier
 #
    set in [open [concat "|/usr/bin/grep $site $files"] r]

    while {[gets $in line]<-1} {
       puts stderr $line
    }
    catch {close $in}
 }

 : ޥåʸ󤬡ǥ쥯ȥʤ

 ⤷꥿󡦥ɤåġޥɤνϤ
 Ȥʤ, Kevin B. Kenny (kennykb@dssv01.crd.ge.com)ν񤯽ˤ
 :

 if [catch {exec ls} data] {
         # execǥ顼ʤСνλơ$errorCode֤롥
 } else {
         # execｪλ
 }
 # ɤʾǤ⡤`data' ˤϻҥץνƤǼ롥

 Karl Lehenbauer (karl@NeoSoft.com) errorCode ʸ "
 CHILDSTATUS" ҥץΥץID ҥץνλơ
  3 ĤǤĥꥹȤȤƲäդƲ

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q7- ĥTclwishexpectʤɤȤ߹ˤϡ 
+++++++++++++++++++++++++++++++++++++++++++++++++++++++

 ĥ Tcl ΥС 6.7c Ǥϡ ¾ΥץꥱȹΤ䤹
 ͤ˲ɤƤޤ

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q8- ץǡƤץ
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
ˤϡ 
+++++++

 ץ̵̾̾˥͡षޤ㤨С 

 rename procedureName ""

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q9- ץǡƤץ
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
ˤϡ 
+++++++

 1992ǯ6ߡupvarˡ θġǤ񤯤ȤϤǤޤ
 ϡOusterhout˥ХǤȳǧ졤ХꥹȤ֤Ƥ
 ޤ

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q10- ٤7ʾ٤ˤϡ 
++++++++++++++++++++++++++++++++++++++++++++++++

 Tcl 6.x ǤϡtclExpr.c⥸塼%gȤäƤ %lfȤ褦
 ˽񤭴ޤ Tcl 7.x Ǥϡ˥Хѿ
 tcl_precision setޤ

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q11- Ȥ߹ߥޥɤθƽФȯݤˡ ޥɥ饤
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
ʤͤˤˤϡ 
+++++++++++++++++++++++

 դʤޥɤƤӽФ줿ݤˤϡ ץunknown
 (դʤä)ޥ̾ȤΰˤƼưŪ˸Ƥӽ
 ޤ ºݤνꡤTclĥTclϡεǽ ޥɤ饤
 μưɤ߹ߤεǽ¸Τ˻ѤƤޤ

 äơunknownץ񤭴С ȼεǽĥԤ
 ޤ ˾ʤСưɤ߹ߤεǽ뤳ȤǽǤ
 

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q12- Ķѿɤ߽񤭤ˤϡ 
+++++++++++++++++++++++++++++++++++++++++++

 㤨СΤ褦˹Ԥޤ 

 set olddisplay $env(DISPLAY)
 set env(DISPLAY) unix:0

 Ƥ줿 Joel Fine (joel@cs.berkeley.edu)˴դޤ

 Ķѿ¸ߤƤ뤫ɤĴ٤ΤϡΤ褦ˤޤ 

     if [info exists $env(VARNAME)] {
             # ĶѿƤΤǡȤ
             set value $end(VARNAME)
     } else {
             # ĶѿꤵƤʤΤǥǥեͤȤ
             set value "the default value"
     }

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q13- Ƭ0Ĥ򰷤ˤϡ 
++++++++++++++++++++++++++++++++++++++++++++

 Dave Morriss ϡΤ褦ʴȤǤޤäơƬƤޤ
 ޤ

   set index [expr [exec date +%W]%[llength $pop_server_list]]

 ʤʤ顤8 ܤȡ9 ܤνǥ顼ȤʤäƤޤǤ ---
 ϡ08  09 ϡTcl Ǥ 8 ʿǤϤʤǤ

 Ĥβ򤬤ꤨޤ

 George A. Howlett (george.howlett@att.com) ˤ: 

   set wknum [format "%g" [exec date +%W]]
   set index [expr [exec $wknum%[llength $pop_server_list]]

 Fred Feirtag <feirtag@wave.nrl.navy.mil> β: 

   set index [expr (1[exec date +%W]-100)%[llength $pop_server_list]]

 Dan R. Schenck <schendr@Texaco.COM> : 

   set index [expr [string trimleft [exec date +%W] 0]%[llength $pop_server_list]]

 Jay Goldberg (jayg@accessware.com) ϡ (դ򰷤)ξˤϡ嵭
 Ƥư뤬 ŪˤưʤȤ⤢뤳ȤŦ
 Ƥޤ

 षʲΥޥ: 

   regsub 0+(.+) ʸ \\1 ʸ

 ȤäƬ 0 ٤Ǥ礦ƤϤʤС 

     regsub 0+(.+) [exec date +%W] \\1 weeknum
     set index [expr $weeknum%[llength $pop_server_list]]

 ͤˤʤޤ

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q14- 륢ץꥱǥޥɥ饤򻲾Ȥ
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
ϡ 
+++++

 ĥ Tcl  Expect ȤäƤʤСޥɥ饤ǻꤵ 줿
 ѥ᡼򡤥ꥹȷTclѿargvǻȤ뤳ȤǤޤ 
 ĥ Tcl ξϡץ̾ TclѿprogramName˳Ǽ졤 
 argv[0]ˤʤΤդɬפǤ Brad Morrison (
 brad@NeoSoft.com) Bud Bach (bachww@rtsg.mot.com)β˴դ
 

 [:] 
    Tcl 7.3/Tk 3.6 Ǥϡ ѿargcargvȤޤ argcϥ
    ޥɥ饤ο argvˤϰͤΥꥹȤǼ
     ޥ̾Τargv[0]ˤǤϤʤ ѿargv0˳ Ǽ
    ΤդɬפǤ ʲΥץ򻲾ȤƲ

            #!/usr/local/bin/tclsh
            puts "argv0 = $argv0"
            puts "argc = $argc"
            foreach i $argv {
                puts "$i"
            }
           

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q15- ҤƤ륹ץΡ㤨 case ʸΤȤʤɤ˥
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Ȥˤϡ 
+++++++++++++++++++++

 Ȥϡ֤ˤΤޤ֤ȤϤǤޤ 
 ϡȤ "{" ¦˰ưޤ礦㤨СΤ褦
 񤭤ޤ 

 case 1 {
   -1    {
         #
         # 󤬸դʤ
         #
         exit 2
         }
    0    {
         #
         # ˥顼
         #
         exit 1
         }
    default    {
         #
         # ˾󤬸դ줿
         #
         exit 0
         }
 }

 Gerald W. Lester (gwlester@cpu.com) ˴ա

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q16- ХʥꡦǡϤˤϡ 
+++++++++++++++++++++++++++++++++++++++++++++++++

 ĥ Tcl ǤϡΤ褦ˡ˹Ԥޤ 

 set infp [open "|compress -dc $fileName"]
 set outfp [open "|gzip -c $newFileName" w]

 copyfile $infp $outfp

 ɤ󶡤Ƥ줿 karl@NeoSoft.com (Karl Lehenbauer) ˴
 

 ɸ Tcl ǥХʥꡦǡ 1 ʸȤưˡϡ ʲǸĤ
 뤳ȤǤޤ

 ftp://ftp.aud.alcatel.com/tcl/code/binary-io-hack.shar.gz

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q17- ʥª䡤¾UnixͭεǽȤˤϡ 
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

 ĥTclϡΤμεǽ󶡤Ƥޤ 㤨Сĥ
 Tcl ˤ "signal"ޥɤޤ

 signal action siglist [command] 
    actionϡ "default", "ignore", "error", "trap", "get
    "˲ä POSIX"block" "unblock"Τ줫
    (POSIX ƥǤΤͭ) siglistϡɽ
    뤤ϿɽUnixʥΥꥹ (ֵˡ SIG ϥץ
    ). commandϡ륨顼ϥɥ (뤤ϡñˡ
    {puts stdout "ʥϲʤǡ"} :-)

 "trap" ϴ̤ưޤ"error""get" ϡ ܡɡȥС
 뤬ɬפʲŪץǤϡȤƤͭǤ

 ĥ Tcl ϡforkʤɤεǽäƤޤ

  Brad Morrison (brad@NeoSoft.com)󤻤ޤ

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q18- פ̤˥Ȥ줿ʸưˤϡ 
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

 򰷤äĹʸεʲޤ

 ftp://ftp.aud.alcatel.com/tcl/docs/README.programmer.gz

 ˷ǺܤΤϡûǤ:

 Q. ˤʤäƼ¹Ԥ륳ޥɤȤΩƤ褦ȤƤΤǤ 
 üʸͤ˴ޤѿ꤬ФƤޤޤ

 A. ޥɤȤΩƤǤˡϡlist ޥɤȤȤ
  Сꥹȹ¤ˤߤޤ ;פʥХ奨
 ˤɾԤƤޤȤ⤢Τǡ ֥륯Ȥλ
 򤱤ޤ礦 Ȥơ åɽƤ٥
 Ϥܥץ ޤ 

 ְ㤨 #1: 

    button $myname -text $label -command "puts stdout $label"

 ʤ 
    ϡ⤷$labelʸޤʤ顤 putsޥɤ˴ְ㤨
    ΰϤƤޤǤ $label$[]ʸޤ
    顤 Ϥ줺ɾƤޤޤ

 ɤ #2: 

    button $myname -text $label \
           -command [list puts stdout $label]

 ʤ 
    list$labelͤŬڤ˥Ȥ뤫Ǥ 

 Q. ˤʤäƼ¹Ԥ륳ޥɤȤΩƤ褦ȤƤΤǤ ѿȤ
 ΩƻɾƤޤäꡤ ޥɤμ¹ԻɾƤޤä
 ꤷơפ̤ưƤޤ

 A. ԤǤˡϡ ¹ԻѿλѤä褦
 ץ뤳ȤǤ ơ˽Ҥ٤ͤ listޥ
 ɤѤƥץθƤӽФȤΩƤޤ (¹Ǥ
 ƤץϲǽǤ ̤Υץ
 Ƥ⡤ ϥХʥפޤ)

 ְ㤨 #1: 

    button $myname -text $label -command \
           [list puts stdout $ArrayOfDynamicStuff($label)]

 ʤ 
    ѿϥܥ줿֤ͤƤޤ
    ܥ󤬥å줿ͤȤϤʤʤǤ ޤ
    ޥɤХʥפǼ¹Ԥ뤳Ȥˤ դʤ
    Фʤޤ Τᡤ "global ArrayOfDynamicStuff" 
    ɤ˴ޤɬפϤޤ

 ְ㤨 #2 (ХåȤ list): 

    button $myname -text $label -command \
           [list puts stdout \$ArrayOfDynamicStuff($label)]

 ʤ 
    Ǥϡlistޥɤ $ ΥХåȤ ߤ˷ޤƤ
    ޤޤ̤ȤΤο񤤤ϰʲͤˤʤꡤ 

    puts stdout {$ArrayOfDynamicStuff(foo)}

    ǤͤФִƯʤʤäƤޤޤ

 路 #3 (ХåȤȥ֥륯): 

    button $myname -text $label -command \
           "puts stdout \$ArrayOfDynamicStuff($label)"

 ʤ 
    $labelͤüʸʸޤޤʤ, ޤȤ
    ưޤ

  #4 (proc): 

           proc doit { i } {
              global ArrayOfDynamicStuff
              puts stdout $ArrayOfDynamicStuff($i)
           }
           button $myname -text $label -command [list doit $label]

 ʤ 
    ܥΤ˴ñTclץäƤͤˤƤС
    ưƤޤ Τʤ顤Ťäƥ󥰤
    ɬפʤƤޤ ܥ󤫤鵯ưλ
    ѹ⡤ưפˤʤޤ 

 Q. ץ˲ѸĿΰϤȤƤΤǤ $args
 ŸȤǡĤޤäƤޤޤ

 A. evalȥ֥륯ȤȤ߹碌ƻȤȤΤϡ ߤޤ
  ʤʤ顤ȡ;פɾưƤޤǤ 
 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 evalޥɤϡΰ1İʾξϡ1ĤϢ뤷ޤ
  Τᡤ֥륯Ȥ1Ĥ˳äƤɬפޤä̵
 ޤ ҤbuttonĥƸޤ礦 

 ְ㤨 #1: 

           proc mybutton { myname label args } {
              button $myname -text $label \
                  -command [list puts stdout $label] $args
           }

 ʤ 
    ѿ$args˳ǼƤ mybuttonؤƤɲðϡ 1
    ΥꥹǤ˥롼ײƤޤäƤޤ ʤ顤
    +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    buttonޥɤϤΰˡ ֥ꥹȤǤϤʤġΰ
    ׵᤹뤫Ǥ

 ְ㤨 #2: 

           proc mybutton { myname label args } {
              eval "button $myname -text $label \
                      -command [list puts stdout $label] $args"
           }

 ʤ 
    ֥륯Ȥϡ$argsƱ褦ˡ $labelŸǽˤ
    ޤ Τᡤ$labelͤ˶ʸޤޤʤ顤 button
    ޥɤˤϡ ʤ¤ӤϤ뤳ȤˤʤäƤޤ
    ޤ

 ɤ #3: 

           proc mybutton { myname label args } {
              set cmd {button $myname -text $label \
                       -command [list puts stdout $label]}
              eval $cmd $args
           }

 ʤ 
    evalϡǽ 2 ĤΰϢ뤷ơ ˤη̤򥤥󥿥
    ꥿𤷤Ƽ¹Ԥޤ ϡ$cmd$args顤 ¦Υ
    ꡼̤򳰤ơ 2ĤѿƤǤ1ĤΥꥹȤˤ
    ͤޤ $labelϡ1󤷤ɾޤ ơput
    ޥɤưޤ ˡargs٤ˤ⡤
    1󤷤ޤ 

 Q. ʤ if/while/forʸ ʸˡ顼ˤʤäƤޤΤǤ礦

 A. ҤäȤơ 

     wish: set foo bar
     wish: if {$foo == bar} {puts stdout bar}
     syntax error in expression "$foo == bar"

 ͤ˽񤤤ƤϤʤǤ礦

 ǤϡʸȤƤѿȤƤɾޤ Υڥ
 ɤȤƤʸϡ ֥륯Ȥ̤ǳäƤͤФʤ
 ޤ 

     wish: if {$foo == "bar"} {puts stdout bar}

  

     wish: if {$foo == {bar}} {puts stdout bar}

 ͤ˽񤭴ޤ礦

 ɤ֤ϡŸɤǷƲ

 εҤϡJesper Blommaskog (d9jesper@dtek.chalmers.se) Υ
 ӥ塼ȤǤ

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q19- ʣTclץꥱ֤ǥץͭˤϡ 
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

 Ū˥եsourceΤǤϤʤ Tcl饤֥褦ˤ
 ޤ礦

 Step 1. եͭǥ쥯ȥ֤ޤ 
 Step 2. "饤֥" ΤΡtclIndex ޤ 
     Makefile ˡΤ褦˽񤤤Ƥޤ 

           install.index:
               (cd ${DESTDIR}/tclscripts/lib; \
               echo 'source /usr/local/lib/tcl/init.tcl;\
               auto_mkindex . *.tk' | tcl ; exit 0)
           

 Step 3.  Tcl ץȤˡ 饤֥򻲾Ȥ褦ˤ
  
    㤨СʲΤ褦ˤޤ 

           # local additions
           lappend auto_path /usr/local/lib/tcl_local \
                $env(RDS_TCL_SCRIPTS)/lib
           

    Τ褦ˤС ץȤϥץ饤֥椫
    黲Ȥ褦Ȥ "unknown"ޥɤ ưŪ˥ץ
    ɤ߹Ǥޤ 

 εҤϡJoe VanAndel (vanandel@ncar.ucar.edu) ȥӥ
 ȤǤ

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q20- ꥹȤ줿Ǥˤϡ 
+++++++++++++++++++++++++++++++++++++++++++++++++

 褯ʤ 

 linsert $list 0 ..

 ȼ¹ԤΤˡ̤ .. ƤʤΤʹޤ

 Jesper Blommaskog (d9jesper@dtek.chalmers.se) ʲΤ褦Ƥ
 ޤ

 lappendʳΥꥹǤϡͤ¸ʤФʤޤ 
 ϡlist,lindex,lrange,lreplace ƤϤޤޤ

 ϡҤäȤꤿäưǤ 

 set list [ linsert $list 0 .. ]

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q21- ե뼱̻Ҥ֥åɤ߹ߤԤˤϡ 
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

 Frank Smith (frank@arraysystems.nstn.ns.ca)ˤȡ ĥ Tcl äƤ
 ʤ顤 

 read $fileId [fstat $fileId size]

 Τ褦ˤƼ¸ǽǤ ϡfileId餽λɤ߹
 ΥХȿɤ߹ߡ ̤Ȥƥ֥åޤ

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q22- å˥ѥפɤ߽񤭤ˤϡ 
+++++++++++++++++++++++++++++++++++++++++++++++++++++++

 ɸϥѥåϡ (Ϥ)ʸХåե󥰤 ɬ
 פʥƥॳԤʤƺѤ褦ˤ뤳Ȥǡ ®٤Ŭ
 Ƥޤ ϲŪʻѤˤŬڤǤΤǡ ɸϤ
 ο񤤤ե뤬üǤˤѹޤ (Ǥ)ѥ
 פ˽񤭹ˤϡü˽񤭹ǤǤϤʤΤǡ 񤭹
 ϤϥХåե󥰤Ƥޤޤ Ʊͤˡѥפθˤ
 ¾ΥץबαϤˤ⡤ Хåե󥰤Ƥ
 ޤޤ ̤ȤơѥפξüΥץϡ ߤϤ
 äΩƤޤޤ 褹ˤϡTcl Ǥflushޥ
 ɡ C Ǥfflush()Ȥäƥѥפեå夹뤳ȤǤ äȤ⡤
 ФСѥץ饤üΥץ椬ʤ⤢
 ޤ ͤʾϡ褹ͣβϡü(pty)Ȥ
  Ϥñ˹Ԥ뤳ȤǤϤޤ

 ɸ Tcl ǤϥݡȤƤޤ󤬡expect Ǥϡ spawn
 ޥɤ pty򳫤ƥޥɤư뵡ǽ򥵥ݡȤƤޤ

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q23- ¹ԤƤС󤬲Τˤϡ 
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++

 ƤͤϤʤͤǤס Tcl ȤΥ
 Ƥޤ ʲΤ褦ǤǸޤ礦 

 info tclversion

 ޤTk ΥСϡʲΤ褦ˤΤ뤳Ȥޤ

 puts $tk_version

 ¾γĥǤϡ¾μʤǤ礦

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q24- Tcl󥹥ȡ뤵ƤʤĶǤư ɥ
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
󡦥ץˤϡ 
+++++++++++++++++++++++++++++++++

 Earle Lowe (lowee@cpsc.ucalgary.ca) ϡΤ褦Ƥޤ:

 TCL/Tk ¸ߤƤƤ⤤ʤƤطʤɤǤǤưǤ 
 ɥΥץꤿʤС ⤦Ȥɬפ
 ޤ

 ŪˤϡˤϤޤ TCLեCʸѴ
 뤳ȤϤޤ ơTcl_Init()Tk_Init()Ƥˡ
 Ѵ줿 C ʸTcl_Eval()ƤǤޤ

 Alexei Rodriguez (alexei@cis.ufl.edu) wish_compiler ѥå
 ʲꤹ뤳Ȥ򴫤ޤ 
 ftp://ftp.aud.alcatel.com/tcl/code/wish_compiler.shar.gz

 Υѥåˤtcl2cСäƤơ λˡ
 Ĥޤ

 Makefile ΤäȤȤС TCL/Tk Ṳ̄λ (͡
  wish Ѥ󥿥ץ꥿ȤƤλ)ˡѤ 
 ɤ¹Ԥˤϡ ѥ뤵줿ɥץ
 ͤˤ뤳ȤǽǤ

 [:] 
    Ԥ򤷤ƤȤǤϡTkWWW εȤäƤ
    ޤ 

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q25- ̾ݻΤѿȤˤϡ 
+++++++++++++++++++++++++++++++++++++++++++++++++++

 Eric Bleeker (ericbl@paramount.nikhefk.nikhef.nl) 񤯽ˤ:

 ҤäȤ顤˽񤤤Ƥޤ: 

 % set foo "bar baz"
 bar baz
 % foreach aap $foo {
         set $aap(1) "something"
 }
 can't read "aap(1)": variable isn't array

 ϡTcl"aap(1)" ¸ߤƤ⤤ʤΤִ褦Ȥ
 ƤΤǤ 褹ˤϡʲΤ褦ˤޤ 

 % foreach aap $foo {
         set [set aap](1) "something"
 }

 ξϡ2 Ĥ"bar" "baz"ޤ

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q26- AIX  Tcl/Tk ζͭ饤֥ˤϡ 
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

 Dov Grobgeld (dov@menora.weizmann.ac.il)  AIX 3.1.5ǡTclTkζ
 ͭ饤֥ˡȯɽƤޤ

 TclǤ: 

           cc -o tkshar.o *.o -bE:tclshar.exp -bM:SRE -berok \
                     -lX11 -lm
           ar r libtclshr tclshar.o
           

 TkǤ: 

           cc -o tkshar.o *.o -bE:tkshar.exp -bM:SRE -berok \
                     -Ltcl -lX11 -lm -ltclshr
           ar r libtkshr tkshar.o
           

  tckshar.exp  tkshar.exp ϡؿΥꥹȤǤ

 AIX  IBM ΥեȤ⤢ޤ X Фѥå
 IBMꤹɬפꡤ СեȴϢưޤ

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q27- HP-UX  Tcl ΥѥͤϤޤ󤫡 
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

 ݡƥ ΡȤ򻲾ȤƲ ޤConfigure ߴС
 opendir() (ѥ)Ȥ٤ȽǤƤޤɡ
 dirent.h ¸ߤƤʤȤ𤬴ĤʤƤޤ 
 ϡglobǥ顼ޤ TclXreaddirǤƱͤǤ

 tcl 7.3ǤϡopendirθߴեѹԤޤ礦 
 ơ-DNO_DIRENT, -DUSE_DIRENT2Сϲ褷ޤ
 

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q28- VMS Tcl ΥѥͤϤޤ󤫡 
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

 1993ǯ54ˡ John Kimball (jkimball@src.honeywell.com) 󤻤
 줿ˤС Tcl 6.7Tk 3.2VMS 5.5 ˥ݡƥ󥰤
 ȤǤ եξϥ򻲾ȤƲ
 

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q29- SCO Unix  Tcl 򥳥ѥ뤹ˤϤɤΡ 
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

 "#undef select"tkEvent.c˲ä main.c460ܤ
 TK_EXCEPTION λȤޤ

 TkϡΥåΩɽΤˡ ɽȤΥ顼ݤΤ
 ȼλȤߤȤäƤޤ 줬Tk"Pseudo Color" ǥ
 쥤饹ǡ 16Υ顼ޥåפΥޥǼ¹Ԥݤ
 ʤޤ

 8bitץ졼ȤʤʤС ǥץ쥤饹 "StaticColor"
 ˤͤˡ Ф "-static"(Xsco)  "-analog"(Xsight)ץ
 Ω夲Ȥ褤Ǥ礦 ϡ顼ޥåפɤ߹
 ΤߤȤ ׵ᤵ줿ˤǤǤᤤ֤褦ˤޤ

 ξϡ Keith Amann (Keith_Amann@stortek.com)󤻤ޤ
 

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q30- tclTest¹Ԥformatscanǥ顼ˤʤΤϲΡ 
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

 (scanf/printf)ϡ¿ΥƥǸޤ ˴ؤ
 ƤϡޤмˤʤɬפϤޤ --- `٤'ǽ
 ʤǤ ⤷ʤCΥϥåʤСƱ˽ж
 ȦǤ

 򤢤ʤСprintf("%Ng, double_value)strtod("+",&terminal)ϡ
 ä̤⤿餷ޤ

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q31- tclTestIrix 4.0.1 Ǽ¹Ԥȥ顼̤˽ФΤϲΡ
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

 ϡ4.0.1ΥץƥޥΥХǡ 4.0.2ǤϽƤޤ
 tclVar.c򥪥ץ-O0(Ŭ̵)ǥѥ뤷Ʋ

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q32- CrayTclʤ餻ͤϤޤ󤫡 
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

 ݡƥ󥰡ΡȤѹ˴ؤ뵭Ҥ򻲾ȤƲ ޤ
 Booker C. Bense (benseb@grumpy.sdsc.edu)ϡ С 3.0.1.6 Ǥϥ
 饯Υݥ󥿤ο꤬ꡤ Tclå夹
 Ƥޤ С 3.0.2.1 Ȥ¿ϥޥǤ format
 ɤκ٤ʥХȡ scanޥɤοϻĤ뤽Ǥ

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q33- NeXTSTEP 3.1 Tcl7.1/Tk3.4򥤥󥹥ȡ뤹ˤϡ 
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

 ˴ؤƤϡ礭ʵθȤʤޤεҤ
 ʬΥƥȻפβ֤뤳ȤȤ
 

 Robert Nicholson (robert@steffi.demon.co.uk) ˤ:

 TCL7.1  TK3.4 оݤȤޤ

  Thomas Funke ΥȥǤ

  TCL7.1NeXTؤΥ󥹥ȡˡ
 +++++++++++++++++++++++++++++++++

 tcl7.1NeXTSTEP 3.1˥󥹥ȡ뤹ˤϡʲΤ褦ˤޤ: 

 configure CPPǼ¹: 
    ܡ󥷥¹Ԥ뤿ˡ"sh"Ǥߤޤ ơ
    ʲΤ褦˥פޤ 

           CPP='cc -E' ./configure
           

 Makefile Խ: 
    tmpnam.oCOMPAT_OBJSɲ: 

           COMPAT_OBJS = getcwd.o waitpid.o strtod.o tmpnam.o
           

    λNeXT饤֥libsys_a.aǶ뤵ΤФơ 
    +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    strtodtmpnam̤뤿ˡ Ŭ̾ѹ
    פǤ礦 ԤˤϡAC_FLAGSˡʲιԤ
    դä뤳Ȥǽޤ 

           -Dstrtod=newstrtod -Dtmpnam=newtmpnam
           

    ̾ѹ줿ؿϡcompat/*.cˤޤ 

 Ƥưɤåˤϡ tclshưʲ
 ¹Ԥޤ 

 % expr {"0" == "+"} 
 0

 ְ㤨strtodؿѤƤʤС֤ͤ1ˤʤꡤ ʥ
 ȤʤޤΤʥ顼̵뤷ޤ

  TK3.4  NEXTSTEP 3.1 ؤΥ󥹥ȡˡ
 +++++++++++++++++++++++++++++++++++++++++++

 Tk3.4 ˤstrtodؿθƤӽФΤǡ Ҥ
 ../tcl-7.1/compat/strtod.o˥󥯤ĥꡤ AC_FLAGS
 -Dstrtod=newstrtodդäɬפޤ

 : Tk  raise ϡ ɥޥ͡tvtwmȤäƤ
 Ԥޤ λ̤ˤϡtwmfvwmʤɤѹɬפ
 ޤ

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q34- Tcl/Tk ܤΥɥեȤץȥȤǤʤΤϲΤǤ
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
+++++

 John Ousterhout (John.Ousterhout@Eng.Sun.COM) ˤ: 
    ΤȤϤƤΤ餻ˤȡ ¿ο͡ܤ
    ΰϤƤ褦Ǥ

    ŤСTranscriptס顦եȥˤϡ ڡ
    սˤʤäPostScriptեǤϡ ̤encapsulated
    PostScriptե򰷤ʤΤ褦Ǥ ϡ
    ¤򤴤äˤ뷹ꡤ ǽEPSեΤ
    ǡ顼ˤʤäƤޤޤ 2ˤϥ꡼פ
    ܤ뤿ˡ EPSե뤬ޤƤޤ ⤷
    ΥեϤǤʤʤ顤 ڡսϤǽ
    ʤäƤ뤫ɤ򸫤Ʋ ⤷ǤʤСѤ
    Ƥ륷ƥΥɤ˸äơ ŪǽˤƤ餤
    ޤ礦 ǡϲǽˤʤȦǤ 뤤ϥס륽
    եȥͳˡ ľܥץ󥿤ͤΤ褤Ǥ
    礦 (㤨Сץ󥿤ηѤäƤ륷ꥢݡȤˡ ľcat
    ƤޤȤ) 
 ¾ˤ⡤ν󤻤Ƥޤ 
    Ȥ߹ޤ줿ޤϡԤζڤ LF ǤϤʤ CR ѤƤ뤿
    ᡤ 줬θȤʤ礬ޤ  LF 
    Ƹޤ礦 

           tr '\015' '\012' < book.p2.ps > fixedbook.p2.ps
           

 : 
    ϥꥸʥƼԤǤǤϤޤ󤬡 ϻ
    A4ȤäƤǡ Dataproducts LZR1260E ͤʥץ󥿤
    ѤƤ硤 ѻ極˰ФƤ
    ޤȤޤ ϡ¾Framemaker줿ե
    Ǥȯޤ ʤ PS 󥿥ץ꥿ΥХǤ
     ˤϡA4ѻ礭ԽƤޤ ʲΥ
    륹ץȤϡξȤ⽤ޤ 

           #!/bin/sh
           cat $1 | tr '\015' '\012' | \
                    sed '/FMDOCUMENT$/s/612 792/595 842/'
           

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q35- SGI Indigo ơǥ顼ˤʤäΤϲΡ 
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

 Gordon Lack (gml4410@ggr.co.uk)ˤС SGICѥˤѿ
 ΰˤĤΥ顼뤽Ǥ

 tclVar.cϡIRIX C 4.0.1Ǥϡѿ˴ؤХΤᡤ -O0ǥ
 ѥ뤵ͤФʤޤ

 Makefile Υ롼ʲΤ褦˽񤭴Ƥޤ 

  
 # GGR SG needs -O0 for varargs at 4.0.1
 CC_SWITCHES0 =  -O0 -I. -I${SRC_DIR} ${AC_FLAGS} ${MATH_FLAGS} \
         ${GENERIC_FLAGS} ${PROTO_FLAGS} ${MEM_DEBUG_FLAGS} \
         -DTCL_LIBRARY=\"${TCL_LIBRARY}\"

 tclVar.o: tclVar.c
         $(CC) -c $(CC_SWITCHES0) $<

 Peter NEELIN (neelin@pet.mni.mcgill.ca)ϡ Τ褦դ򤷤Ƥޤ

 ϡեConfig.mk򼡤Τ褦ѹơ TclX 7.3a
 SGI(irix4.0.5)ǥѥ뤷ޤ

  
   71c71
   < CFLAGS=-cckr -D__GNU_LIBRARY__
   ---
   > #CFLAGS=
   106,107c106,107
   < TCL_PLUS_BUILD=TCL_PLUS
   < CCPLUS=g++
   ---
   > #TCL_PLUS_BUILD=TCL_PLUS
   > CCPLUS=CC
   191,193c191
   < MAN_DIR_SEPARATOR=
   < 
   < LIBOBJS=strftime.o
   ---
   > #MAN_DIR_SEPARATOR=.

 -D__GNU_LIBRARY srandom褷ޤ פˡ
 -cckrwaitpidǥץȥס顼򵯤ޤ (ǤȤꤢ
 ưޤ) strftimeʤɬפäϡ˺Ƥޤޤ

 κ Config.mkΥСߤʤС᡼뤷Ʋ
 

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q36- expectsolaris 2.3ǹۤˤϡ 
++++++++++++++++++++++++++++++++++++++++++++++++++

 Jeff Abramson (jra@hrcms.jazz.att.com)ˤ:

 SunPro cc 2.0.1ȤäƤgcc 2.5.8ȤäƤϤޤ
 SunProʤСΤ褦ˤޤ

    CC=cc ./configure --prefix=ʤǥ쥯ȥ
    make CC=cc

 gccʤСʲ̤Ǥ

    CC="gcc -fwritable-strings" ./configure \
           --prefix=ʤǥ쥯ȥ
    make CC="gcc -fwritable-strings"

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q37- SequentTcl/Tkܿˤϡ 
++++++++++++++++++++++++++++++++++++++++++++++

 Andrew Swan (aswan@soda.berkeley.edu)ˤäƲޤ

 TclTkǡANSISequent ccǤϤʤgccѤޤ

 TclǤϡإ饤֥ˡ2Ĥ꤬ޤ 1ˡSequent
 إ饤֥꤬'fmod'ؿޤǤʤȤǤ fmodΥ
 ftp.uu.netꤷ ֥ǥ쥯ȥcompatޤ 
 ơMakefileɲäޤ fmodϡ'isnan''finite'ؿ
 ǻѤƤޤ tcl̵¤nan򥵥ݡȤȤϿʤä
 Τǡ ϥȥȤǤ

 إ饤֥Τ⤦1Ĥϡ Υ饤֥'tanh'ؿΥ
 ԡ2ġ ޤޤƤޤäƤ뤳ȤǤ "ar"Ȥäƥ饤֥
 ֥Ȥʬ򤷡 ȤΩľơtanhΥԡ
 ƤޤС ñfixǤޤ

 ͤѹԤСTclΥѥϤ줤˽λ ⡤
 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 scanλʳϤ٤̤ޤ ɤ⡤DynixǤϡ*scanfؿ
 ƤͤǤ ϡ8ʿνǳǧǤޤ Ϥ礦
 ɡ˼ݤäȤǤ ϡ*scanfؿΥ
 դ ȤȤˤʤǤ礦

 Tk򥳥ѥ뤹뤿ˡwchar_tΤ褦ʤΤ 
 Сstddef.hͤФʤޤǤ Ϥ̤Υ
 롼ɡǥ쥯ȥ˥ԡ Υǥ쥯ȥǽ˻ꤷ
 ơ줬Ȥ褦ˤޤ TkǤإ饤֥ (
 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 tanh)ȯޤ ʳ⤢ޤ٤ƤΥѥϤ
 줤˽λ ٤Ƥλˤѥޤ

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q38- AU/X 3.0ǡܥơ֥뤬դȤå
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
ˤϡ 
+++++++++++

 AU/X ǤΥΥѥ뤬äʤС ǥեȤΥơ
 Υĥ -A {factor}󥫤˻ꤷʤ
 ʤޤ {factor}ϡǥեȤΥβܤˤ뤫
 ꤷޤ -A 2Ƥߤޤ礦 ΰܿ˴ؤ뤳ʾξ
 ٤ϡ Walter B. Kulecz  (wkulecz@medics.jsc.nasa.gov ϢɤǤ
 礦

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q39- MS-DOSMacOSͤUnixƥTcl򥳥ѥ
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
ˤϡ 
+++++++++++

 Larry VirdenFAQΡtcl-faq/part1tcl-faq/part4 򻲾Ȥȡ Ϣ
 ġܿδλʡ 򰷤äƤ᡼󥰥ꥹȤʤ
 ξޤ

----------------------------------------------------

From: Tcl Q&A
+++++++++++++
Subject: Q40- QNXƥTcl򥳥ѥ뤹ˤϡ 
+++++++++++++++++++++++++++++++++++++++++++++++++++++++

 Steve Furr (furr@qnx.com) ˤ:

 QNX  Tcl ưˤȤޤȤʤС

  o _POSIX_SOURCE 򡤥ѥ̾Ĺ򼨤˹Ԥ 
  o VARARGS ѹԤСWatcom ANSI C 
    ѥǡ ĹδؿȤ褦ˤʤ롥 
  o QNX 줿顼ɤȤξͤ褹롥 

----------------------------------------------------

FAQ ν 
