Uitvoeren PDRACULA programma in TCL / TK

[shrbht]

puts stdout [cd pathname], het kan werken
puts stdout [PDRACULA]; het niet kan werken
exec PDRACULA, het kan werken.maar ik kan niet zien de informatie van run
Hoe kan ik doen?kan ik de informatie van lopen?bedankt.
Ik ben een beginner voor TCL / TK.

 

[rimser9]

ja man u kunt zien dat de o / p.Als u zijn de tcl / tk pdf.of het boek in het U vindt code van execlog die de o / p van de run shows.Als u cant find it proberen fileevent commando.Ik zal proberen om de code later bericht.

 

[rimser9]

#! / usr / local / bin / wens-f
# Execlog - run een UNIX-programma en meld u de uitgang
# Stel venster titel
wm titel.ExecLog
# Maak een frame voor knoppen en toegang.
frame. borderwidth top-10
pack. top-side top-fill x
# Maak de knoppen.
knop. top.quit-text Quit-commando exit
vastgesteld, maar [button. top.run-text "Run it"-commando Run]
pack. top.quit. top.run-rechts
# Maak een label vermelding voor de opdracht
label. top.l-text Commandadx 0
binnenkomst. top.cmd-breedte 20-reliëf gezonken \
-textvariable commando
pack. top.l-side left
pack. top.cmd-side left-fill x-expand ware
# Stel sleutel bindend equivalenten aan de knoppen
binden. top.cmd <return> Run
binden. top.cmd <Control-c> Stop
focus. top.cmd
# Maak een tekst widget aan de output log
frame. t
set log [tekst. t.log-breedte 80 hoogte 10 \
borderwidth-2-reliëf opgeworpen-setgrid ware \
-yscrollcommand (. t.scroll set)]
scrollbar. t.scroll-commando (. t.log yview)
pack. t.scroll-rechts-vullen y
pack. t.log-side-fill zowel links-expand waar
pack. t-side-fill zowel top-expand waar
# Start het programma en regelen om te lezen zijn inbreng
proc Run () (
globale commando input log, maar
if [catch (open "| $ commando") input] (
$ log invoegen einde $ input \ n
) Else (
fileevent $ input leesbaar Inloggen
$ log plaatst einde $ commando \ n
maar $ config-tekst Stop-commando Stop
)
)
# Lees en log output van het programma
Log proc () (
Global input log
if [eof $ input] (
Stop
) Else (
krijgt $ input lijn
$ log invoegen einde $ line \ n
$ log zie het einde
)
)# Stop het programma en vaststellen van de knop
proc Stop () (
Global input, maar
catch () $ input sluiten
maar $ config-tekst "Run it"-commando Uitvoeren
)Toegevoegd na 24 seconden:U kan nodig zijn om de code te wijzigen indien nodig.