Obsługa polecenia wyjścia wykonywanego przez wbudowane środowisko wykonawcze Tcl

Question

Mam małą aplikację powłoki, która osadza Tcl, aby wykonać jakiś zestaw kodu Tcl. Interpreter Tcl jest inicjowany za pomocą Tcl_CreateInterp. Wszystko jest bardzo proste: komenda rodzaje

1. użytkowników Tcl
2. polecenie zostanie przekazany do Tcl_Eval oceny
3. powtórz

Ale jeśli użytkownik wpisze „exit”, który jest ważny Tcl polecenie, cała sprawa - interpreter Tcl i moja aplikacja powłoki - wyjście automatycznie.

P: czy istnieje sposób, aby złapać ten sygnał wyjściowy pochodzący z interpretera Tcl. Naprawdę nie chciałbym sprawdzać każdego polecenia użytkownika. Próbowałem Tcl_CreateExitHandler, ale to nie zadziałało.

Dziękuję bardzo.

Answer 1

Używanie Tcl_CreateExitHandler działa dobrze. Problem polegał na tym, że dodałem printf do implementacji programu obsługi, a dane wyjściowe nie pojawiły się na terminalu. Więc pomyślałem, że to nie zostało wywołane. Jednakże, do czasu wykonania tego programu obsługi nie ma już żadnej wartości. Uruchomienie strace aplikacji wskazuje, że program obsługi jest wykonywany poprawnie.

Innym rozwiązaniem tego problemu może być użycie atexit i przetworzenie zdarzenia wyjściowego.

Answer 2

Pozbądź polecenia

rename exit "" 

Albo przedefiniować go, aby użytkownik mógł wiedzieć, że jest wyłączone:

proc exit {args} { error "The exit command is not available in this context" } 

również warte rozważenia jest uruchomiony kod użytkownika w safe interp zamiast w głównym muszla. Pozwoli ci to kontrolować dokładnie to, do czego użytkownik ma dostęp.

Możliwe może być również utworzenie interp dziecka (nie-bezpiecznego) i po prostu wyłączenie polecenia wyjścia dla tego interp.

Wreszcie, można po prostu zmienić nazwę wyjścia do czegoś innego, jeśli tylko stara się uniknąć użytkownicy wpisując go przez pomyłkę:

namespace eval ::hidden {} 
rename exit ::hidden::exit 

Answer 3

Zmiana nazwy komendy exit:

rename exit __exit 

proc exit {args} { 
    puts -nonewline "Do you really want to exit? (y/n) " 
    flush stdout 
    gets stdin answer 
    if {$answer == "y"} { 
     __exit [lindex $args 0] 
    } 
} 

ten sposób , kiedy typ użytkownika to exit, on/ona wykona twoje niestandardowe polecenie wyjścia, w którym możesz zrobić cokolwiek chcesz.