44 lines
1.2 KiB
Plaintext
44 lines
1.2 KiB
Plaintext
#
|
|
# Copyright (C) 2020 CismonX <admin@cismon.net>
|
|
#
|
|
# Copying and distribution of this file, with or without modification, are
|
|
# permitted in any medium without royalty, provided the copyright notice and
|
|
# this notice are preserved. This file is offered as-is, without any warranty.
|
|
#
|
|
|
|
proc u6a_dump_mnemonics { src_code } {
|
|
global U6AC_BIN
|
|
if { [ catch { exec $U6AC_BIN -S - << $src_code } result ] == 0 } {
|
|
return $result
|
|
} else {
|
|
fail "failed to dump mnemonics of program"
|
|
}
|
|
}
|
|
|
|
proc u6a_run { src_code u6ac_opts u6a_opts has_input } {
|
|
global U6A_BIN U6AC_BIN U6A_RUN B64_ENCODE B64_DECODE
|
|
set u6ac "$U6AC_BIN $u6ac_opts"
|
|
set u6a "$U6A_BIN $u6a_opts"
|
|
set run_cmd [ list $U6A_RUN $u6ac $u6a $B64_ENCODE $B64_DECODE $src_code ]
|
|
if { $has_input } {
|
|
lappend run_cmd -
|
|
set stty_init -echo
|
|
} else {
|
|
set stty_init { raw -echo }
|
|
}
|
|
global spawn_id
|
|
spawn {*}$run_cmd
|
|
}
|
|
|
|
proc u6a_stop { send_eof } {
|
|
global spawn_id
|
|
if { $send_eof } {
|
|
send \x04
|
|
expect eof
|
|
}
|
|
catch wait result
|
|
if { [ set exit_code [ lindex $result 3 ] ] } {
|
|
fail "program exited with code $exit_code"
|
|
}
|
|
}
|