Write Perl subs in SMITH
Version: 0.03Inline::SMITH is a Perl module to write Perl subs in SMITH.
License: Perl Artistic License
Operating System: Linux
use Inline SMITH => Decrement character
MOV R1, R0 ; -> Is character zero?
NOT R1 ; -> Boolean NOT it twice to find out
NOT R1 ; -> Result is 1 if true, 0 if false
MUL R1, 7 ; -> Multiply result by seven instructions
COR +1, -6, R1 ; -> Copy that many instructions forward
The Inline::SMITH module allows you to put SMITH source code directly "inline" in a Perl script or module.