X-Spam-Check-By:	sourceware.org
Message-ID:	<5880089.post@talk.nabble.com>
Date:	Fri, 18 Aug 2006 17:20:59 -0700 (PDT)
From:	John Liu <liujzus AT gmail DOT com>
To:	cygwin AT cygwin DOT com
Subject:	about a Tcl/Tk and cygwin question
MIME-Version:	1.0
X-IsSubscribed:	yes
Mailing-List:	contact cygwin-help AT cygwin DOT com; run by ezmlm
List-Subscribe:	<mailto:cygwin-subscribe AT cygwin DOT com>
List-Archive:	<http://sourceware.org/ml/cygwin/>
List-Post:	<mailto:cygwin AT cygwin DOT com>
List-Help:	<mailto:cygwin-help AT cygwin DOT com>, <http://sourceware.org/ml/#faqs>
Sender:	cygwin-owner AT cygwin DOT com
Mail-Followup-To:	cygwin AT cygwin DOT com
Delivered-To:	mailing list cygwin AT cygwin DOT com

Dear Cygwin friends, 
 
I installed Cygwin and Cygwin/X into my PC. It works well. But today when I
ran a program to test a Tcl/Tk script. It cannot works well. I test these
scripts on other Linux or Unix system. It works well. Definitely, in other
unix/linux system, I compile quads.f file to quads.o and excute it in
quads.tcl. Here in Cygwin, I use g77 compile it into quads.o so that can be
used in quads.tcl. I tried just excute quads.o just in Cygwin. It works
well. So it is impossible the compilation problem. I worried about the
installation problem about Tcl/Tk. Anybody can tell me why? Whether my
installation about Cygwin is inproblem. 
 
Attached are scripts and here is the error message.
 
Error: invalid number: incomprehensible list input
apparent state: unit 5(unnamed)
last format: list io
lately reading direct formatted external IO
 
Thanks,
 
Jianzhong
 
Here is quads.tcl
=============================
#!/usr/bin/wish -f
wm title . "gui_quads"
label .msg -text "Solution of a x^2 + b x + c = 0"
pack .msg -padx 5 -pady 3 -ipadx 5 -ipady 5 -fill x
frame .f
pack .f -padx 5 -ipadx 5


#
entry .f.a   -relief sunken 
label .f.x2  -text "x^2 + "
entry .f.b   -relief sunken 
label .f.x   -text " x + "
entry .f.c   -relief sunken
label .f.rhs -text " = 0" 

pack .f.a .f.x2 .f.b .f.x .f.c .f.rhs -in .f -side left -padx 3 -pady 3
-ipadx 2 -ipady 2

frame .zeros
pack .zeros
frame .zeros.base1 -bg red
frame .zeros.base2 -bg pink
pack .zeros.base1 -in .zeros -padx 5 -pady 5 -side top
pack .zeros.base2 -in .zeros -padx 5 -pady 5 -side top
label .zeros.x1 -text "x1 = " 
label .zeros.x1val -bg yellow
label .zeros.x2 -text "x2 = "
label .zeros.x2val -bg yellow
pack .zeros.x1 .zeros.x1val -side left -in .zeros.base1 -padx 5 -pady 5
pack .zeros.x2 .zeros.x2val -side left -in .zeros.base2 -padx 5 -pady 5 

# 
frame .info
pack .info
frame .info.dum
pack .info.dum -side left 
set w .info.dum

label $w.disc 
label $w.type
pack $w.disc -padx 5 -pady 5 
pack $w.type -padx 5 -pady 5
#

#

#
# buttons
#
frame .bf
pack .bf -padx 5 -pady 5 -ipadx 4 -ipady 4 -fill x
button .bf.quit -text Quit -command {exit}
button .bf.clear -text Clear -command clearEntries
button .bf.solve -text Solve -command invokeQuads 
pack .bf.quit .bf.clear .bf.solve -side right \
     -padx 5 -pady 5 -ipadx 3 -ipady 3

focus .f.a


proc invokeQuads { } {
    set f [open |quads.o r+]
        foreach e {.f.a .f.b .f.c} {
        set entry [$e get]
    if { [string compare $entry ""] == 0 } {
  puts stdout "Some entry(ies) are null .... enter them Now \n" 
    close $f
    return
    } else {
   puts $f $entry
  }
  }


    flush $f       ;# you can only flush after you have written to the pipe
    gets $f in_prompt  ;# Input the coefficients a,b,c
    gets $f disc       ;# DISC :     1.0000000000000
    gets $f iflag      ;# IFLAG =   0 
    gets $f aux_msg    ;# ROOTS ARE REAL or ... Complex ...
    gets $f roots      ;# x1 =     2.0000000000000  x2 =     1.0000000000000
    close $f           ;# now you can close
  set w .info.dum    ;# a quick fix 
    if { [regexp {(COMPLEX|complex)} $aux_msg cmplx] == 1 } {
    .zeros.x1 configure -text "Real Part"
        .zeros.x2 configure -text "Imaginary Part"
        $w.type config -text $aux_msg 
    } else {
        .zeros.x1 configure -text x1
        .zeros.x2 configure -text x2
        $w.type config -text $aux_msg
  }
    regexp {(x1 = [ ]*[+|-]*[0-9]*\.[0-9]*)} $roots val1
    regexp {(x2 = [ ]*[+|-]*[0-9]*\.[0-9]*)} $roots val2 
    .zeros.x1val configure -text $val1
    .zeros.x2val configure -text $val2
    $w.disc configure -text $disc
}

proc clearEntries { } {
  foreach e {.f.a .f.b .f.c} {
    $e delete 0 end
  }
}

 

 

 

Here is quads.f

====================

 IMPLICITDOUBLE PRECISION (a-h,o-z)
 COMMON IFLAG
 
 PRINT *, 'Input the coefficients a,b,c'
 READ *,a,b,c
 CALL qsolve(a,b,c,x1,x2)
 IF (IFLAG .EQ. 0) THEN
     PRINT*,'IFLAG = ',IFLAG 
     PRINT *, 'ROOTS ARE REAL' 
 ELSE
     PRINT*,'IFLAG = ',IFLAG
     PRINT*,'ROOTS ARE COMPLEX -- (RealPart, ImagPart) = (x1,x2)'
 END IF
 WRITE(UNIT=6, FMT=*)'x1 = ',x1,'  ','x2 = ',x2 
 END

 SUBROUTINE qsolve(a,b,c,x1,x2)

 IMPLICITDOUBLE PRECISION (a-h,o-z)
 COMMON IFLAG

 disc = (b*b - 4*a*c)
 PRINT*,'DISC : ',DISC
 IF (disc .GE. 0) THEN
     x1 = (- b + sqrt( disc ) )/(2.0*A)
     x2 = (- b - sqrt( disc ) )/(2.0*A)
     iflag = 0
 ELSE
     iflag = 1
     x1 = -b/(2*A) 
     x2 = sqrt(-disc)/(2*A)
 END IF
 RETURN
 END


-- 
View this message in context: http://www.nabble.com/about-a-Tcl-Tk-and-cygwin-question-tf2130456.html#a5880089
Sent from the Cygwin Users forum at Nabble.com.


--
Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple
Problem reports:       http://cygwin.com/problems.html
Documentation:         http://cygwin.com/docs.html
FAQ:                   http://cygwin.com/faq/

- Raw text -