[nada.kth.se #22756] Oz and mozart on Sun solaris 10

[Serafim Dahl]

A test with a prebuilt oz version 1.3.0 seem (so far) to work properly 
though

/Serafim Dahl

Serafim Dahl wrote:
> Hi,
> excuse the tag starting the subject, it is to keep our systems happy 
> about the copy to the systems group at Nada/KTH.
> 
> I want to use oz as programming language on an introductory course on 
> programming language paradigms but i fail to get it running (rather the 
> systems gruop) on our Solaris 10 systems. It compiles but the Browser 
> window never opens when running the system. There are no error messages 
> whatsoever, the expression e.g. {Browse 9999} is accepted but no browser 
> window is opened.
> 
> I compiled new rpm's for our RHEL4 linux workstations and installed them 
> on one computer and it run smoothly and so far everything seems OK (you 
> can retrieve the rpm's from
> http://www.csc.kth.se/~serafim, there are links on the home page)
> but for the Solaris 10, we fail. I have searched your mailing lists but 
> (in my understanding) found nothing apart from the comment that nobody 
> cares about solaris !!  Any hints? Am I to report a bug?
> 
> We also get the following error output sometimes, if i tell oz to 
> activate the debugger before trying anything else:
> 
> 
> %*********************** error in OS module *********************
> %**
> %** Operating system error
> %**
> %** System call:  write
> %** Error number: 32
> %** Description:  Broken pipe
> %** In statement: {<P/3 OS.write> 7 '\nfconfigure stdout -translation 
> {auto lf}\n'#'\nproc ozp {id args} {\n    set len [llength $args]\n puts 
> stdout "p $id $len"\n    for {set i 0} {$i < $len} {incr i} {\n\tputs 
> stdout "[ozq [lindex $args $i]]"\n    }\n    flush stdout\n}'#'\nproc 
> ozr {v} {\n    puts stdout "r [ozq $v]"\n    flush stdout\n}'#'\nproc 
> ozq {in} {\n    regsub -all \\\\\\\\ $in \\\\\\\\\\\\\\\\ out\n    
> regsub -all \\n $out \\\\n final\n    return $final\n}\n'#'\nproc ozm 
> {item menu} {\n    return [expr $item + [$menu cget 
> -tearoff]]\n}\n'#'\nproc bgerror err {\n     puts stderr "w $err\\n." 
> \n}\n'#'\nproc tkDarken {color percent} {\n     foreach {red green blue} 
> [winfo rgb . $color] {\n         set red [expr 
> {($red/256)*$percent/100}]\n         set green [expr 
> {($green/256)*$percent/100}]\n         set blue [expr 
> {($blue/256)*$percent/100}]\n         break\n     }\n     if {$red > 
> 255} {\n         set red 255\n     }\n     if {$green > 255} {\n  set 
> green 255\n     }\n     if {$blue > 255} {\n         set blue 255\n     
> }\n     return [format "#%02x%02x%02x" $red $green $blue]\n }\n' _}
> %**
> %** Call Stack:
> %** procedure 'DoWrite' in file 
> "/afs/.nada.kth.se/pkg/oz/src/mozart-1.3.2.20060615/share/lib/op/Open.oz", 
> line 207, column 6, PC = 4654080
> %** procedure 'SockAndPipe,write/fast' in file 
> "/afs/.nada.kth.se/pkg/oz/src/mozart-1.3.2.20060615/share/lib/op/Open.oz", 
> line 424, column 2, PC = 4662724
> %** procedure in file 
> "/afs/.nada.kth.se/pkg/oz/src/mozart-1.3.2.20060615/share/lib/wp/Tk.oz", 
> line 25, column 0, PC = 5108248
> %** procedure 'RootManager,Pickle/fast' in file 
> "/afs/.nada.kth.se/pkg/oz/src/mozart-1.3.2.20060615/share/lib/init/Module.oz", 
> line 244, column 6, PC = 1840560
> %** procedure in file 
> "/usr/staff/raph/devel/trunk/mozart/share/lib/base/Base.oz", line 92, 
> column 7, PC = 1968660
> %**--------------------------------------------------------------
>