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
Expires: Fri Apr 14 00:00:00 JST 1995
Keywords: FAQ tcl tclX

Archive-name: tcl-usage-QnA-j/part01
Version: 1.4-J1.0

Last modified: Fri Mar 24 13:51:17 1995

Posting-Frequency: monthly
------------------------------------------------------------------------------

Ԥޤ

ϡjoe@morton.rain.com (Joe Moss) ˤäƴ "FAQ:
comp.lang.tcl Tcl Language Usage Questions And Answers"  31Ǥܸ
Ǥ ⥪ꥸʥalcatel֤ޤΤǡ إåϤ


ܸФ뤴ո䡦ΤŦʤɤϡԤޤǡ ޤ
¾ξܺ٤ʾˤĤƤϡ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 
Ǥꤹ뤳ȤǤޤ

 FAQ  Tcl ˴ؤưΤǤꡤ Tk ˤĤƤΤΤǤϤʤȤդ
 Tk ġ륭åȤ˴ؤƤϡThomas J. Accardo (tja@cpu.com) Ƥ
Ƥ FAQ򻲾ȤȤ褤Ǥ礦 (¾Tcl˴ؤFAQ˴ؤƤϡ Ҥμ
Tcl˴ؤäΤꤿΤǤ׻) ʤ顤ɬŪ˾
󤬤֤⤢ޤ Tk åȤΰ˴ؤǤ褯ʹ
ΤĤϡ Tcl 󥿥ץ꥿ưΤФ˵ΤǤ 
äϡ⤳ǰޤ ޤTcl ΰδĤǤϡ Tk
ΥåȤ¹Ԥɬפ⤢Ǥ礦

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

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

ܼ:

̾:
    o Q1- Tcl˴ؤäΤꤿΤǤ
    o Q2- Υޥ Tcl ưɬפʾˤϡ
    o Q3- TclCȤ߹碌ˤϡ
    o Q4- ߤǽƤ󶡤Ǥ褦ˡγĥȤ߹碌ˤϡ
    o Q5- ưŪǥ󥰤äƲǤ
    o Q6- Tcl󥹥ȡ뤷ƤʤĶǤư롤 ɥ󡦥ץ 
      ˤϡ
    o Q7- tclsh󥹥ȡ뤵Ƥ˴طʤ ץȤư 
      ˤϡ
    o Q8- <ۤۤĥ>ǥեȤդ˴ޤޤƤʤΡ

ץߥ󥰴ϢμȲ:
    o Q9- ϢۥꥹȤ°ꥹȤ/Ѥˤϡ
    o Q10- Tclȯˤϡ
    o Q11- ץ㤫֤ʣΥѥ᡼ ̤Υץ 
      ȤϤˤϡ
    o Q12- ץϤˤϡ
    o Q13- ޥɤ¹ԤơνϤѥפ̤ɤˤϡ
    o Q14- ץǥץˤϡ
    o Q15- 7ʾ٤٤ˤϡ
    o Q16- Ȥ߹߸ƽФȯȥåפˤϡ
    o Q17- Ķѿɤ߽ФԤˤϡ
    o Q18- Ƭ0դ򰷤ˤϡ
    o Q19- ޥɥ饤򻲾ȤΤǤɡ
    o Q20- 㤨caseʸʤɤˡȤ񤭤ΤǤ
    o Q21- Хʥꡦǡɤ߽񤭤򤹤ˤϡ
    o Q22- ʥȥåפȤ¾UnixͭεǽȤˤϡ
    o Q23- ܻ򤷤Τɡ-- $$varưʤΡ
    o Q24- Ȥ줿ʸտޤ̤ưˤϡ
    o Q25- ץʣΥץȤǶͭˤϡ
    o Q26- ꥹȤ줿Ǥˤϡ
    o Q27- ե뼱̻Ҥ֥åϤԤˤϡ
    o Q28- ǥåɥå˥ѥפϤˤϡ
    o Q29- ¹ΥСΤˤϡ
    o Q30- ̾줿ѿȤˤϡ

ץåȥۡͭ뤤ϰܿ˴ؤ:
    o Q31- AIXTcl/Tkζͭ饤֥ۤˤϡ
    o Q32- HP-UXTcl򥳥ѥǤͤϤޤ󤫡
    o Q33- VMSTcl򥳥ѥǤͤϤޤ󤫡
    o Q34- SCO UnixTcl򥳥ѥ뤹ˤϡɤ餤Ǥ礦
    o Q35- tclText餻ȡformatscanǥ顼ˤʤΤϲΡ
    o Q36- tclTextIrix 4.0.1餻Ȱե顼ФΤϲΡ
    o Q37- CrayTclʤ餻ͤϤޤ󤫡
    o Q38- Tcl 7.1/Tk 3.4NeXTSTEP 3.1餻ˤϡ
    o Q39- TclNext˥󥹥ȡ뤹ˤϡ
    o Q40- Tk3.4NEXTSTEP3.1˥󥹥ȡ뤹ˤϡ
    o Q41- Tcl/TkܤΥɥեȤǤʤΤǤɡ
    o Q42- SGI Indigoǥ顼ФΤϤʤ
    o Q43- expectSolaris2.3ǹۤˤϡ
    o Q44- SequentTcl/Tkܿˤϡ
    o Q45- AU/X 3.0ǥܥơ֥뤬դˤʤΤ򤱤ˤϡ
    o Q46- MS-DOSMacOS¾UnixޥTcl򥳥ѥ뤹ˤϡ
    o Q47- QNXޥTcl򥳥ѥ뤹ˤϡ
    o Q48- TclץȤ¹Ԥ褦Ȥ "Command not found"Ȥå 
      ФΤϲΡ
------------------------------------------------------------------------------

̾:

From: Tcl Q&A
Subject: Q1- Tcl˴ؤäΤꤿΤǤ

˥塼롼comp.lang.tclϡTclȤ١Ȥѥå ؤ
ƵԤ¸ߤޤ 饤Ǥ줿͡ʺ˴ؤ
仲ޤȤ᤿Tcl FAQʸϤftp.aud.alcatel.com/tcl/docsǥ
쥯ȥ꤫Ǥޤ ϤޤWWWȤäơ 
http://www.cis.ohio-state.edu/hypertext/faq/usenet/tcl-faq/top.html ⥢
Ǥޤ

WebǾ󥵡եǤʤ顤ʲ2ĤȤƤ褤Ǥ礦 
ϡ http://www.sco.com/IXI/of_interest/tcl/Tcl.htmlȡ 
http://web.cs.ualberta.ca/%7Ewade/HyperTcl/Ǥ

ʤΥɤ켫Τˤ⡤ ¿ΥɥȤޤޤƤ
 Ǥ7.3ǤǡǤ7.4b2Ǥޤϡ 
ftp://ftp.cs.berkeley.edu/ucb/tcl/ǽǤ


ܼ̾
ץߥܼ
ܼܿ
------------------------------------------------------------------------------

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

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

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


ܼ̾
ץߥܼ
ܼܿ
------------------------------------------------------------------------------

From: Tcl Q&A
Subject: Q3- TclCȤ߹碌ˤϡ

TclCɤȤ߹碌ƻѤꤵƤޤ Τˡ2
Ȥ߹碌͡ˡ󶡤Ƥޤ ʲˡΤδĤ
ޤ (ܺ٤ϥޥ󡦥ڡ򻲾ȤƲ):
    o TclؤΥޥɤɲ (Tcl_CreateCommand) --- CrtCommand(3)
    o ޥɤΥȥ졼 (Tcl_CreateTrace) --- CrtTrace(3)
    o ѿΥȥ졼 (Tcl_TraceVar) --- TraceVar(3)
    o ѿȻ (Tcl_GetVar/Tcl_SetVar) --- SetVar(3)
    o ѿΥ (Tcl_LinkVar) --- LinkVar(3)
    o Ʊ٥ȥϥɥ (Tcl_AsyncCreate) --- Async(3)
    o exprޥɤؤδؿɲ (Tcl_CreateMathFunc) --- CrtMathFnc(3)
    o tclAppInit롼ѹ (Tcl_AppInit) --- AppInit(3)
    o main롼ѹ (Tcl_Main) --- Tcl_Main(3) (Tcl7.4)
    o ѥ׷ͳ (open) --- open(n)
    o exec ޥ (exec) --- exec(n)
Ǹ2Ĥϡ¾ΥޥɤƱ٥εǽ󶡤ΤǤϤޤ 
(C¦)ɤ򥢥ǤʤˤϡɬפȤʤǤ礦

εǽΤܺ٤⤷ɥȤޤ ĥTclʤ˴ޤ
롤 TclCommandWritingޥڡ򻲾ȤɤǤ礦 ϤޤWWWǡ 
http://psg.com/~joem/CmdWrite.htmlߤǤޤ

LarryTcl FAQ2䡤TclʸϿޤ ¾λʸˤĤƽҤ٤
ޤ

ɸTcl˿γĥȤ߹ꡤޤե롦٥ȡX٥Ȥ䡤 
expect𤷤ttyζưTkǤΥɥ롦ХåΥϥɥ ؤ
ƤϡȤ߹Tk򻲾ȤȤ褤Ǥ礦ʲǤޤ 
ftp://ftp.std.com/pub/drh/et1_0.tar.gz


ܼ̾
ץߥܼ
ܼܿ
------------------------------------------------------------------------------

From: Tcl Q&A
Subject: Q4- ߤǽƤ󶡤Ǥ褦ˡ γĥȤ߹碌ˤϡ

ñȤƤϡTcl_AppInit ߤĥνץƤƤӽ
褦˲¤뤳ȤǤ Tclʤ顤tclAppInit.c(Tkξϡ
tkAppInit.c)򥳥ԡ ѹǡѤƤTcl饤֥ɲä
Ԥޤ 㤨СɸTcl_AppInitϡʲηäƤޤ:


    int
    Tcl_AppInit(interp)
        Tcl_Interp *interp; /* Interpreter for application. */
    {
        /* ... */

        if (Tcl_Init(interp) == TCL_ERROR) {
            return TCL_ERROR;
        }

        /* ... */
    }

fooĥפɲäˤϡ Τ褦fooνؿθƤӽФɲäƤ
ޤ


   int
   Tcl_AppInit(interp)
       Tcl_Interp *interp; /* Interpreter for application. */
   {
       /* ... */

       if (Tcl_Init(interp) == TCL_ERROR) {
           return TCL_ERROR;
       }

       if (Foo_Init(interp) == TCL_ERROR) {
           return TCL_ERROR;
       }

       /* ... */
   }

ܺ٤ʾϡTcl_AppInitΥޥڡ䡤 tclAppInit.cե뼫Τ򻲾Ȥ
ɤǤ礦

(Ҥ)ñʲϤ٤ƤξưΤǤϤʤȤΤ 괰
ʲǤ¿γĥϡʣʲ¤ȡ γĥλѤ˰¸Ȥ߹
ɬפȤޤ

ĥTclȤ߹ߤ硤Tcl_AppInitϡ դ˴ޤޤΤѤͤФ
ޤ ޤץ󥯤ݤˤϡɸTcl饤֥˳ĥTcl
 饤֥󥯤ʤФʤޤ㤨:


   cc -o mytclsh mytclXAppInit.c -ltclx -ltcl ...

뤤ϡTkȤ߹󥿥ץ꥿Ǥ:


   cc -o mywish mytkXAppInit.c -ltkx -ltk -ltclx -ltcl ...

¾μʤȤƤϡMake-A-WishΤ褦ʡ ĥȤ߹碌򤷤Ƥ
ѥå䡤 ¾Τ褯ȤĥȤ߹碌뤵˻Ѥ뤳ȤΤǤ
ե ޤĥ¸ߤޤ㤨СSven Delmas ˤäƽ񤫤줿
Ĥγĥϡ ꤵ줿ĥȤ߹󥿥ץ꥿ۤMakefile
뤿Ρ configureΥץꤹ뤳ȤǤޤ Υѥå
νϤ˴ؤƤϡLarryFAQpart0405򻲾ȤƲ


ܼ̾
ץߥܼ
ܼܿ
------------------------------------------------------------------------------

From: Tcl Q&A
Subject: Q5- ưŪǥ󥰤äƲǤ

ưŪǥ󥰤˴ؤϡФcomp.lang.tclǸݤޤ ơ
ޤޤʳĥȤ߹ߤ ưŪǥ󥰤ˤä󶡤褦Ȥ뤽δꤤ
ΤǤ ɸTclʤǤϸߤεǽϥݡȤƤޤ

loadޥɤʸˡΤϡ˹ͤФƤޤ ϡ¿Υץåȥۡ
ǤμȤʤäƤޤ (ץåȥۡ¸μ꤬¸ߤΤ
)

ʲϡ1993ǯ614Jhon Ousterhoutˤäƽ񤫤줿å Ѥ


    [1993 Tcl]åפˤơãưŪǥ󥰤δñTcl
    ޥɡ 󥿥եɸಽꤷޤޥɤʸˡϰ
    ̤:


       load <file>

    <file>ϡlibtcl.soͤʡưŪɤ߹ޤ륪֥ȡ 
    ե̾Ǥ̾ʬϡ줾 ƥ
    ˤäѤǤ礦Ǥtclͤˡ ѥå
    Υץեåʬѥå̾Ȥޤ

    loadޥɤϡꤵ줿֥ȥեɤ߹ߡ ե
    ̾ѥåΥץեåʬФơ ץ
    <prefix>_Init¹Ԥޤ <prefix>ϡǽ1ʸ
    ѥåץեåǤ 㤨СTcl_InitDp_Init
    Tclx_Initʤɤͤޤ ɤ߹߲ǽʥѥåϡ
    (Tcl_Interp *)1ĤȤƼ ץޤǤʤ
    Фʤޤ:


       int Dp_Init(Tcl_Interp *interp);

    ץϡΥѥå˴ޤޤƤTclޥɤ
    󥿥ץ꥿ ɲääƤ¾Υѥåͭν
    Ԥޤ ͤɸTclλɤ䥨顼å뤤
    󥿥ץ꥿ͤǡ loadޥɤ֤ͤȤѤޤ
ĤΥץåȥۡǤμϡ Ѳǽ(㤨Shellѥå)Ǥ 
ܺ٤ϡեȥ(LarryFAQpart05)򥫥򻲾Ȥ뤫 Kevin
Kenny 1994ǯTclåפ˽񤤤ʸ:
http://crdis1.ge.com/papers/gecrd/mtl/mdip/tcl94/00header.html ȤƲ
 줳餬ɸդȤ߹ޤ뤳ȤԤޤ


ܼ̾
ץߥܼ
ܼܿ
------------------------------------------------------------------------------

From: Tcl Q&A
Subject: Q6- 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 εȤäƤޤ
¾ȤơȤ߹TkפѤ뤳ȤǽǤ ϡ 
ftp://ftp.std.com/pub/drh/et1_0.tar.gzǤޤ


ܼ̾
ץߥܼ
ܼܿ
------------------------------------------------------------------------------

From: Tcl Q&A
Subject: Q7- tclsh󥹥ȡ뤵Ƥ˴طʤ ץȤư
ˤϡ

ޤϡХѥꤹʤˡtclsh򥹥ץȤ˼ưŪϤˤϡס

ĤεΤƤޤäȤŪʤΤϡ TclǤϥޥɹԤޤ
Хåå{\}³ԤΰȤƻȤ롤 ȤǽѤΤǤ 
㤨С


#!/usr/local/bin/tclsh
puts "Hello World"

Ȥ뤫ˡʲΤ褦˽񤯻Ǥޤ


#! /bin/sh
# ιԤ/bin/shǤϼ¹Ԥ뤬TclǤϥȰ \
  exec tclsh $0 ${1+"$@"}
puts "Hello World"

뤳Ȥǡºݤtclsh˥󥹥ȡ뤵Ƥ뤫˴طʤ (桼
δĶѿPATH˥󥹥ȡ뤵줿ѥޤޤƤɬפϤޤ) ư
뤳ȤǤޤ


ܼ̾
ץߥܼ
ܼܿ
------------------------------------------------------------------------------

From: Tcl Q&A
Subject: Q8- <ۤۤĥ> ǥեȤդ˴ޤޤƤʤΡ

ФСĥ(ˤȤäƤɬԲķǤˤ⤫餺) ʤ
礵ƤʤΤʹޤ

¤¿ο͡͡ʥƥξǡ ӤΤTclѤƤ
ΤȤȤͤ ͤФʤޤ ޤTclϸȡ ץ
κ륢ץꥱɬפʥץȸ򤤤 ֤
︺뤿߷פ줿 ¤Υץߥ󥰤ιȤ󶡤 Ȥ߹
ѤθǤ뤳Ȥ˺ƤϤʤޤ

ȤϸΤΡTclϤǯ礭ȯŸޤ ɲä줿ǽ
ΤδĤϡ¾ǳȯ줿ĥȤ߹ޤ줿ΤǤ ĥˤä
뵡ǽTclƤΥ桼ˤȤäƴ򤷤Ȼפ줿硤 JhonϥTcl
Ȥ߹ޤ 㤨СϢۥꥹȤեϥޥ(ȡե
ϥɥ) unknownץ䡤ɸTclȤ߹ޤγĥTclν
ǽȤ ޤTk 4.0Ǥ(ơTk4.0b2Ǥϸ) Tcl 7.x/Tk
3.xȤ̤κԤȯ addinputphotoåȤεǽƱΤΤȤ
ޤƤޤ


ܼ̾
ץߥܼ
ܼܿ
------------------------------------------------------------------------------

ץߥ󥰴ϢμȲ:

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

ĥ 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: Q10- 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: Q11- ץ㤫֤ ʣΥѥ᡼̤Υץ
˰ȤϤˤϡ

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


eval y [x]


ܼ̾
ץߥܼ
ܼܿ
------------------------------------------------------------------------------

From: Tcl Q&A
Subject: Q12- ץϤˤϡ

⤷ǽǤʤСХѿȤ⡤ 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: Q13- ޥɤ¹Ԥơ νϤѥפ̤ɤˤϡ

㤨СĤΥեФ 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: Q14- ץ ץˤϡ

ץ̵̾̾(ʸ)˥͡षޤ㤨С


rename procedureName ""


ܼ̾
ץߥܼ
ܼܿ
------------------------------------------------------------------------------

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

Tcl 7.x ǤϡХѿtcl_precision117ϰϤ setޤ㤨:


   % expr 4*atan(1)
   3.14159
   % set tcl_precision 0
   can't set "tcl_precision": improper value for precision
   % set tcl_precision 3
   3
   % expr 4*atan(1)
   3.14
   % set tcl_precision 16
   16
   % expr 4*atan(1)
   3.141592653589793
   % set tcl_precision 18
   can't set "tcl_precision": improper value for precision

Tcl 6.xǤϡtclExpr.c⥸塼%g%lfȤ褦 񤭴ͤФ
ޤ


ܼ̾
ץߥܼ
ܼܿ
------------------------------------------------------------------------------

From: Tcl Q&A
Subject: Q16- Ȥ߹߸ƽФȯȥåפˤϡ

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

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


ܼ̾
ץߥܼ
ܼܿ
------------------------------------------------------------------------------

From: Tcl Q&A
Subject: Q17- Ķѿɤ߽ФԤˤϡ

㤨СΤ褦˹Ԥޤ


  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: Q18- Ƭ0դ򰷤ˤϡ

Dave Morriss ϼΤ褦˥ץषơƬƤޤޤ:


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

0809ϡTclǤ8ʿǤϤʤᡤ 1ǯΤ8ܤ9ܤνǥ顼
ȯƤޤΤǤ ºݤˤϡTclƬ0Ĥ8ʿȤɾ褦
Ȥ 줬Ԥ(89ϡ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: Q19- ޥɥ饤 ȤΤǤɡ

ץ̾ϥХѿ argv0 졤ΰϥХѿ argv 
˥ꥹȷǳǼޤѿ argc ˤϡargvΥꥹȤǿ Ǽ
򼨤ʤ:


   #! /usr/local/bin/tclsh
   if { $argc != 2 } {
        puts stderr "$argv0: Usage: $argv0 <infile> <outfile>"
        exit 1
   }
   set infile  [lindex $argv 0]
   set outfile [lindex $argv 1]


ܼ̾
ץߥܼ
ܼܿ
------------------------------------------------------------------------------

From: Tcl Q&A
Subject: Q20- 㤨caseʸʤɤˡ Ȥ񤭤ΤǤ

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


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

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


ܼ̾
ץߥܼ
ܼܿ
------------------------------------------------------------------------------

From: Tcl Q&A
Subject: Q21- Хʥꡦǡɤ߽񤭤򤹤ˤϡ

ĥ 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

¾ˤ⡤ХʥǡΰǽˤtclbinBinarIOȤ 2γĥ
¸ߤޤԤϹ¤Υǡ򰷤Ȥꡤ ԤϥХʥꡦǡ
ȥ꡼ǤΨɤưޤ


ܼ̾
ץߥܼ
ܼܿ
------------------------------------------------------------------------------

From: Tcl Q&A
Subject: Q22- ʥȥåפȤ ¾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: Q23- ܻ򤷤Τɡ -- $$varưʤΡ

󥿥ץ꥿ɾˡ1٥ΤߤִǽʤΤǤ 
ޤѿִȯˤϡ󥿥ץ꥿ϥɥ뵭򸫤Ĥȡ³ 
ʸ˻ޤƤʸ(ȤϡѿڤӲʳ ʸ
Ȥ)ѿ̾Ȥưޤäơˡ ${varname}Ǥ
ڤȤǧޤ

$$varξ硤ɥ뵭θκǽʸʸ(Υɥ뵭)ǤΤǡ ѿ
̾¸ߤʤˤʤꡤѿִƯޤ (2ܤΥɥ뵭ϤΤޤ޻Ĥ
) ƻĤΥɥ뵭ΤιʸϤϤ졤α¦ѿ̾Ȥ 
ޤΤᡤľ2ܤΥɥ뵭ʹߤѿִ졤 ʸϤϤ
ʹߤִʤɤĴ٤ˤäƤޤޤ ʹ߲ʤʤС
󥿥ץ꥿̤Υѥˤִ λޤ(1Τ߹Ԥ뤳Ȥ)

evalޥɤϤΰ򥤥󥿥ץ꥿̤ޤǡ2ܤΥѥ 󥿥
꥿̤evalȤǤ$$varư ǤǤ礦:


   % set a 5
   5
   % set var a
   a
   % puts $$var              # ưʤ
   $a
   % eval puts $$var         # ư--- ɴ
   5

ǤѿvarƤüʸ(ڡ䥻ߥʤ) ޤޤƤȡ
꤬ȯƤޤǤ礦

褤ˡϡ1ΤͿ줿setޥɤοѤ ޥ
ִѿִȤ߹碌ƻѤΤǤ:


   % puts [set $var]         # ư
   5

ޤºݤˤϥޥִ(٤1Ȥ[]ˤƯʤ)ȤäƤ Ǥޤ:


   % puts [set [set var]]    # Ʊ褦ư
   5


ܼ̾
ץߥܼ
ܼܿ
------------------------------------------------------------------------------

From: Tcl Q&A
Subject: Q24- Ȥ줿ʸ տޤ̤ưˤϡ

򰷤äĹʸεʲޤ
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: Q25- ץ ʣΥץȤǶͭˤϡ

Ū˥ե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: Q26- ꥹȤ줿Ǥˤϡ

褯ʤ


  linsert $list 0 ..

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

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

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

    ϡҤäȤꤿäưǤ


  set list [ linsert $list 0 .. ]


ܼ̾
ץߥܼ
ܼܿ
------------------------------------------------------------------------------

From: Tcl Q&A
Subject: Q27- ե뼱̻Ҥ ֥åϤԤˤϡ

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


  read $fileId [fstat $fileId size]

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


ܼ̾
ץߥܼ
ܼܿ
------------------------------------------------------------------------------

From: Tcl Q&A
Subject: Q28- ǥåɥå ѥפϤˤϡ

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

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


ܼ̾
ץߥܼ
ܼܿ
------------------------------------------------------------------------------

From: Tcl Q&A
Subject: Q29- ¹ΥСΤˤϡ

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


  info tclversion

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


  puts $tk_version

¾γĥǤϡ¾μʤǤ礦(㤨гĥTclǤϡ "infox version"
Сޤ)


ܼ̾
ץߥܼ
ܼܿ
------------------------------------------------------------------------------

From: Tcl Q&A
Subject: Q30- ̾줿ѿȤˤϡ

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"ޤ
̤ηȤơʲΤ褦ʷͤޤ


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


ܼ̾
ץߥܼ
ܼܿ
------------------------------------------------------------------------------

ץåȥۡͭ뤤ϰܿ˴ؤ:

From: Tcl Q&A
Subject: Q31- Q31- AIXTcl/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: Q32- HP-UXTcl򥳥ѥǤͤ ޤ󤫡

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

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


ܼ̾
ץߥܼ
ܼܿ
------------------------------------------------------------------------------

From: Tcl Q&A
Subject: Q33- VMSTcl򥳥ѥǤͤϤޤ󤫡

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


ܼ̾
ץߥܼ
ܼܿ
------------------------------------------------------------------------------

From: Tcl Q&A
Subject: Q34- 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: Q35- tclText餻ȡ formatscanǥ顼ˤʤΤϲΡ

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

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


ܼ̾
ץߥܼ
ܼܿ
------------------------------------------------------------------------------

From: Tcl Q&A
Subject: Q36- tclText Irix 4.0.1餻Ȱե顼ФΤϲΡ

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


ܼ̾
ץߥܼ
ܼܿ
------------------------------------------------------------------------------

From: Tcl Q&A
Subject: Q37- Cray Tclʤ餻ͤϤޤ󤫡

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


ܼ̾
ץߥܼ
ܼܿ
------------------------------------------------------------------------------

From: Tcl Q&A
Subject: Q38- Tcl 7.1/Tk 3.4NeXTSTEP 3.1 餻ˤϡ

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

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

TCL7.1  TK3.4 оݤȤޤ

 Thomas Funke ΥȥǤ


ܼ̾
ץߥܼ
ܼܿ
------------------------------------------------------------------------------

From: Tcl Q&A
Subject: Q39- TclNext˥󥹥ȡ뤹ˤϡ

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Ƕ뤵ΤФơ strtod 
      tmpnam̤뤿ˡ Ŭ̾ѹȻפǤ礦 
       Ԥˤϡ AC_FLAGS˰ʲιԤդä뤳Ȥǽޤ

      
               -Dstrtod=newstrtod -Dtmpnam=newtmpnam

      ̾ѹ줿ؿϡcompat/*.cˤޤ
Ƥưɤåˤϡ tclshưʲ¹Ԥޤ


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

ְ㤨strtodؿѤƤʤС֤ͤ1ˤʤꡤ ʥ顼Ȥʤޤ
٤˴ؤ륨顼̵뤷ޤ


ܼ̾
ץߥܼ
ܼܿ
------------------------------------------------------------------------------

From: Tcl Q&A
Subject: Q40- TclNext˥󥹥ȡ뤹ˤϡ

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

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


ܼ̾
ץߥܼ
ܼܿ
------------------------------------------------------------------------------

From: Tcl Q&A
Subject: Q41- 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: Q42- 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.3aSGI(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: Q43- expectSolaris2.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: Q44- 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: Q45- AU/X 3.0ǥܥơ֥뤬 դˤʤΤ򤱤ˤϡ

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


ܼ̾
ץߥܼ
ܼܿ
------------------------------------------------------------------------------

From: Tcl Q&A
Subject: Q46- MS-DOSMacOS ¾UnixޥTcl򥳥ѥ뤹ˤϡ

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


ܼ̾
ץߥܼ
ܼܿ
------------------------------------------------------------------------------

From: Tcl Q&A
Subject: Q47- QNXޥTcl򥳥ѥ뤹ˤϡ

Steve Furr (furr@qnx.com) ˤ:

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


ܼ̾
ץߥܼ
ܼܿ
------------------------------------------------------------------------------

From: Tcl Q&A
Subject: Q48- TclץȤ¹Ԥ褦Ȥ "Command not found"Ȥ
ФΤϲΡ

ץȤƬ֤̾Tcl󥿥ץ꥿Υѥؤ#!ʬ ѤƤ
륷ƥˤĹΤǤ礦 ¿UnixƥǤϡʬĹ32
ʸ¤Ƥޤ Ǥ顤㤨:


    #! /usr/home/ïΥۡ/ȤäƤ/ʤ/ѥ/tclsh

    # ץȤ

ʤƤΤϡ顼ȯ礬ޤ

tclshμ¹ԥե¾Υǥ쥯ȥ˰ưꡤ ܥå󥯤ĥäơ
ѥûȤ褤Ǥ礦 ̤βˡȤƤϡѥޤäꤷʤȤ
⤢ޤ Ԥˡϡ tclsh󥹥ȡ뤵Ƥ
طʤץȤưˤϡ β򻲾ȤƲ


ܼ̾
ץߥܼ
ܼܿ
------------------------------------------------------------------------------
FAQ ν
