wok with OCC50 on Solaris

Anonymous's picture
Anonymous (not verified)
Tue, 06/10/2003 - 16:04
Forums: 
Other usage issues

Hi,

New problems appears with OCC5.0.

1.

:OS:OCC50:ros> wcreate -f ros lmptest
Info : Creating package test in :OS:OCC50:lmptest

:OS:OCC50:ros> wokcd lmptest
:OS:OCC50:lmptest> ucreate -p test
Info : Creating package test in :OS:OCC50:lmptest

:OS:OCC50:lmptest> wokcd :OS:OCC50:lmptest
:OS:OCC50:lmptest> wokcd test
:OS:OCC50:lmptest:test> wsrc
Error : Attempt to get inexistent type : srcdir
:OS:OCC50:lmptest:test
:OS:OCC50:lmptest:test> wbin
Error : Attempt to get inexistent type : bindir
:OS:OCC50:lmptest:test
:OS:OCC50:lmptest:test> wlib
Error : Attempt to get inexistent type : libdir
:OS:OCC50:lmptest:test
:OS:OCC50:lmptest:test> winc
Error : Attempt to get inexistent type : pubincdir

I never saw such messages before.

I have to use cd ../../testlmp/src for example to change for changing directory !!!!

If someone can help me ...

Denis

Igor Nazarov's picture
Igor Nazarov
Tue, 06/10/2003 - 19:11

Dear Denis,

We have analyzed your problem and think that the following solution could help you

You should replace part of code of wok/lib/WCOMPATIBLE.tcl file

from :

proc wsrc {{entity ""}} {
if { $entity != "" } { wokcd -Tsrcdir $entity } {wokcd -Tsrcdir}
}

proc wdrv {{entity ""}} {
if { $entity != "" } { wokcd -Tdrvdir $entity } {wokcd -Tdrvdir}
}

proc wlib {{entity ""}} {
if { $entity != "" } { wokcd -Tlibdir $entity } {wokcd -Tlibdir}
}

proc wbin {{entity ""}} {
if { $entity != "" } { wokcd -Tbindir $entity } {wokcd -Tbindir}
}
proc wobj {{entity ""}} {
if { $entity != "" } { wokcd -Tobjdir $entity } {wokcd -Tobjdir}
}
proc winc {{entity ""}} {
if { $entity != "" } { wokcd -Tpubincdir $entity } {wokcd -Tpubincdir}
}
proc wadm {{entity ""}} {
if { $entity != "" } { wokcd -Tadmfile $entity } {wokcd -Tadmfile}
}

to :

proc wsrc {{entity ""}} {
if { $entity != "" } {
if {[wokinfo -t $entity] == "workbench"} {
wokcd -Tsrcdir $entity
}
if {[wokinfo -t $entity] == "devunit"} {
wokcd -T source $entity
}
} else {
if {[wokinfo -t [wokcd]] == "workbench"} {
wokcd -Tsrcdir
}
if {[wokinfo -t [wokcd]] == "devunit"} {
wokcd -T source
}

}
}

;#proc wdrv {{entity ""}} {
;# if { $entity != "" } { wokcd -Tdrvdir $entity }{wokcd -Tdrvdir}
;#}
proc wdrv {{entity ""}} {
if { $entity != "" } {
if {[wokinfo -t $entity] == "workbench"} {
wokcd -Tdrvdir $entity
}
if {[wokinfo -t $entity] == "devunit"} {
wokcd -T derivated $entity
}
} else {
if {[wokinfo -t [wokcd]] == "workbench"} {
wokcd -Tdrvdir
}
if {[wokinfo -t [wokcd]] == "devunit"} {
wokcd -T derivated
}

}
}

;#proc wlib {{entity ""}} {
;# if { $entity != "" } { wokcd -Tlibdir $entity } {wokcd -Tlibdir}
;#}

proc wlib {{entity ""}} {
if { $entity != "" } {
if {[wokinfo -t $entity] == "workbench"} {
wokcd -Tlibdir $entity
}
if {[wokinfo -t $entity] == "devunit"} {
wokcd -T library $entity
}
} else {
if {[wokinfo -t [wokcd]] == "workbench"} {
wokcd -Tlibdir
}
if {[wokinfo -t [wokcd]] == "devunit"} {
wokcd -T library
}

}
}

;#proc wbin {{entity ""}} {
;# if { $entity != "" } { wokcd -Tbindir $entity } {wokcd -Tbindir}
;#}

proc wbin {{entity ""}} {
if { $entity != "" } {
if {[wokinfo -t $entity] == "workbench"} {
wokcd -Tbindir $entity
}
if {[wokinfo -t $entity] == "devunit"} {
wokcd -T executable $entity
}
} else {
if {[wokinfo -t [wokcd]] == "workbench"} {
wokcd -Tbindir
}
if {[wokinfo -t [wokcd]] == "devunit"} {
wokcd -T executable
}

}
}

;#proc wobj {{entity ""}} {
;# if { $entity != "" } { wokcd -Tobjdir $entity } {wokcd -Tobjdir}
;#}

proc wobj {{entity ""}} {
if { $entity != "" } {
if {[wokinfo -t $entity] == "workbench"} {
wokcd -Tobjdir $entity
}
if {[wokinfo -t $entity] == "devunit"} {
wokcd -T object $entity
}
} else {
if {[wokinfo -t [wokcd]] == "workbench"} {
wokcd -Tobjdir
}
if {[wokinfo -t [wokcd]] == "devunit"} {
wokcd -T object
}

}
}

;#proc winc {{entity ""}} {
;# if { $entity != "" } { wokcd -Tpubincdir $entity } {wokcd -Tpubincdir}
;#}

proc winc {{entity ""}} {
if { $entity != "" } {
if {[wokinfo -t $entity] == "workbench"} {
wokcd -Tpubincdir $entity
}
if {[wokinfo -t $entity] == "devunit"} {
wokcd -T pubinclude $entity
}
} else {
if {[wokinfo -t [wokcd]] == "workbench"} {
wokcd -Tpubincdir
}
if {[wokinfo -t [wokcd]] == "devunit"} {
wokcd -T pubinclude
}

}
}

;#proc wadm {{entity ""}} {
;# if { $entity != "" } { wokcd -Tadmfile $entity } {wokcd -Tadmfile}
;#}
proc wadm {{entity ""}} {
if { $entity != "" } {
if {[wokinfo -t $entity] == "workbench"} {
wokcd -T AdmDir $entity
}
if {[wokinfo -t $entity] == "devunit"} {
wokcd -T admfile $entity
}
} else {
if {[wokinfo -t [wokcd]] == "workbench"} {
wokcd -T AdmDir
}
if {[wokinfo -t [wokcd]] == "devunit"} {
wokcd -T admfile
}

}
}

Yours faithfully
Bugmaster