User:FireFly/sedfuck.sed

Sedfuck is a half-working sed implementation of brainfuck, written by User:FireFly.


 * 1) !/bin/sed -rf
 * 2) Sedfuck - brainfuck interpreter in sed.
 * 3) Written by Jonas Höglund (FireFly, firefly.nu).

h s/^(.|[^.])*$/0/

# Setup some memory. s/0/0000000000/g s/0/\x0/g
 * 1) s/0/0000000000/g
 * 2) s/0/0000000000/g

x

s/[{}]//g	# Strip braces. # Transform [] to {} (use {} for looping). y/\[\]/{}/ s/[^-+<>{},\.]//g	# Strip non-instructions. s/$/q/	# Add q to end of program ('quit' instruction).


 * parse


 * 1) l;x;l;x

/^\+/ {	x /^\xff/ {	# To not collide with the later s/^0/1/! s/^\xff/\x0/ x b next }	s/^\xfe/\xff/ s/^\xfd/\xfe/ s/^\xfc/\xfd/ s/^\xfb/\xfc/ s/^\xfa/\xfb/ s/^\xf9/\xfa/ s/^\xf8/\xf9/ s/^\xf7/\xf8/ s/^\xf6/\xf7/ s/^\xf5/\xf6/ s/^\xf4/\xf5/ s/^\xf3/\xf4/ s/^\xf2/\xf3/ s/^\xf1/\xf2/ s/^\xf0/\xf1/ s/^\xef/\xf0/ s/^\xee/\xef/ s/^\xed/\xee/ s/^\xec/\xed/ s/^\xeb/\xec/ s/^\xea/\xeb/ s/^\xe9/\xea/ s/^\xe8/\xe9/ s/^\xe7/\xe8/ s/^\xe6/\xe7/ s/^\xe5/\xe6/ s/^\xe4/\xe5/ s/^\xe3/\xe4/ s/^\xe2/\xe3/ s/^\xe1/\xe2/ s/^\xe0/\xe1/ s/^\xdf/\xe0/ s/^\xde/\xdf/ s/^\xdd/\xde/ s/^\xdc/\xdd/ s/^\xdb/\xdc/ s/^\xda/\xdb/ s/^\xd9/\xda/ s/^\xd8/\xd9/ s/^\xd7/\xd8/ s/^\xd6/\xd7/ s/^\xd5/\xd6/ s/^\xd4/\xd5/ s/^\xd3/\xd4/ s/^\xd2/\xd3/ s/^\xd1/\xd2/ s/^\xd0/\xd1/ s/^\xcf/\xd0/ s/^\xce/\xcf/ s/^\xcd/\xce/ s/^\xcc/\xcd/ s/^\xcb/\xcc/ s/^\xca/\xcb/ s/^\xc9/\xca/ s/^\xc8/\xc9/ s/^\xc7/\xc8/ s/^\xc6/\xc7/ s/^\xc5/\xc6/ s/^\xc4/\xc5/ s/^\xc3/\xc4/ s/^\xc2/\xc3/ s/^\xc1/\xc2/ s/^\xc0/\xc1/ s/^\xbf/\xc0/ s/^\xbe/\xbf/ s/^\xbd/\xbe/ s/^\xbc/\xbd/ s/^\xbb/\xbc/ s/^\xba/\xbb/ s/^\xb9/\xba/ s/^\xb8/\xb9/ s/^\xb7/\xb8/ s/^\xb6/\xb7/ s/^\xb5/\xb6/ s/^\xb4/\xb5/ s/^\xb3/\xb4/ s/^\xb2/\xb3/ s/^\xb1/\xb2/ s/^\xb0/\xb1/ s/^\xaf/\xb0/ s/^\xae/\xaf/ s/^\xad/\xae/ s/^\xac/\xad/ s/^\xab/\xac/ s/^\xaa/\xab/ s/^\xa9/\xaa/ s/^\xa8/\xa9/ s/^\xa7/\xa8/ s/^\xa6/\xa7/ s/^\xa5/\xa6/ s/^\xa4/\xa5/ s/^\xa3/\xa4/ s/^\xa2/\xa3/ s/^\xa1/\xa2/ s/^\xa0/\xa1/ s/^\x9f/\xa0/ s/^\x9e/\x9f/ s/^\x9d/\x9e/ s/^\x9c/\x9d/ s/^\x9b/\x9c/ s/^\x9a/\x9b/ s/^\x99/\x9a/ s/^\x98/\x99/ s/^\x97/\x98/ s/^\x96/\x97/ s/^\x95/\x96/ s/^\x94/\x95/ s/^\x93/\x94/ s/^\x92/\x93/ s/^\x91/\x92/ s/^\x90/\x91/ s/^\x8f/\x90/ s/^\x8e/\x8f/ s/^\x8d/\x8e/ s/^\x8c/\x8d/ s/^\x8b/\x8c/ s/^\x8a/\x8b/ s/^\x89/\x8a/ s/^\x88/\x89/ s/^\x87/\x88/ s/^\x86/\x87/ s/^\x85/\x86/ s/^\x84/\x85/ s/^\x83/\x84/ s/^\x82/\x83/ s/^\x81/\x82/ s/^\x80/\x81/ s/^\x7f/\x80/ s/^\~/\x7f/ s/^\}/~/ s/^\|/}/ s/^\{/|/ s/^z/{/ s/^y/z/ s/^x/y/ s/^w/x/ s/^v/w/ s/^u/v/ s/^t/u/ s/^s/t/ s/^r/s/ s/^q/r/ s/^p/q/ s/^o/p/ s/^n/o/ s/^m/n/ s/^l/m/ s/^k/l/ s/^j/k/ s/^i/j/ s/^h/i/ s/^g/h/ s/^f/g/ s/^e/f/ s/^d/e/ s/^c/d/ s/^b/c/ s/^a/b/ s/^`/a/ s/^_/`/ s/^\^/_/ s/^\]/\^/ s/^\\/\]/ s/^\[/\\/ s/^Z/\[/ s/^Y/Z/ s/^X/Y/ s/^W/X/ s/^V/W/ s/^U/V/ s/^T/U/ s/^S/T/ s/^R/S/ s/^Q/R/ s/^P/Q/ s/^O/P/ s/^N/O/ s/^M/N/ s/^L/M/ s/^K/L/ s/^J/K/ s/^I/J/ s/^H/I/ s/^G/H/ s/^F/G/ s/^E/F/ s/^D/E/ s/^C/D/ s/^B/C/ s/^A/B/ s/^@/A/ s/^\?/@/ s/^>/\?/ s/^=/>/ s/^</=/ s/^;/</ s/^:/;/ s/^9/:/ s/^8/9/ s/^7/8/ s/^6/7/ s/^5/6/ s/^4/5/ s/^3/4/ s/^2/3/ s/^1/2/ s/^0/1/ s/^\//0/ s/^\./\// s/^\-/\./ s/^,/\-/ s/^\+/,/ s/^\*/\+/ s/^\)/\*/	s/^\(/\)/	s/^'/\(/ s/^\&/'/ s/^%/\&/ s/^\$/%/ s/^#/\$/ s/^"/#/	s/^!/"/ s/^ /!/ s/^\x1f/ / s/^\x1e/\x1f/ s/^\x1d/\x1e/ s/^\x1c/\x1d/ s/^\x1b/\x1c/ s/^\x1a/\x1b/ s/^\x19/\x1a/ s/^\x18/\x19/ s/^\x17/\x18/ s/^\x16/\x17/ s/^\x15/\x16/ s/^\x14/\x15/ s/^\x13/\x14/ s/^\x12/\x13/ s/^\x11/\x12/ s/^\x10/\x11/ s/^\xf/\x10/ s/^\xe/\xf/ s/^\xd/\xe/ s/^\xc/\xd/ s/^\xb/\xc/ s/^\xa/\xb/ s/^\x9/\xa/ s/^\x8/\x9/ s/^\x7/\x8/ s/^\x6/\x7/ s/^\x5/\x6/ s/^\x4/\x5/ s/^\x3/\x4/ s/^\x2/\x3/ s/^\x1/\x2/ s/^\x0/\x1/ x } /^-/ {	x /^\x0/ {	# See '+' above. s/^\x0/\xff/ x b next }	s/^\x1/\x0/ s/^\x2/\x1/ s/^\x3/\x2/ s/^\x4/\x3/ s/^\x5/\x4/ s/^\x6/\x5/ s/^\x7/\x6/ s/^\x8/\x7/ s/^\x9/\x8/ s/^\xa/\x9/ s/^\xb/\xa/ s/^\xc/\xb/ s/^\xd/\xc/ s/^\xe/\xd/ s/^\xf/\xe/ s/^\x10/\xf/ s/^\x11/\x10/ s/^\x12/\x11/ s/^\x13/\x12/ s/^\x14/\x13/ s/^\x15/\x14/ s/^\x16/\x15/ s/^\x17/\x16/ s/^\x18/\x17/ s/^\x19/\x18/ s/^\x1a/\x19/ s/^\x1b/\x1a/ s/^\x1c/\x1b/ s/^\x1d/\x1c/ s/^\x1e/\x1d/ s/^\x1f/\x1e/ s/^ /\x1f/ s/^!/ / s/^"/!/	s/^#/"/ s/^\$/#/ s/^%/\$/ s/^\&/%/ s/^'/\&/ s/^\(/'/	s/^\)/\(/	s/^\*/\)/ s/^\+/\*/ s/^,/\+/ s/^\-/,/ s/^\./\-/ s/^\//\./ s/^0/\// s/^1/0/ s/^2/1/ s/^3/2/ s/^4/3/ s/^5/4/ s/^6/5/ s/^7/6/ s/^8/7/ s/^9/8/ s/^:/9/ s/^;/:/ s/^/=/ s/^\?/>/ s/^@/\?/ s/^A/@/ s/^B/A/ s/^C/B/ s/^D/C/ s/^E/D/ s/^F/E/ s/^G/F/ s/^H/G/ s/^I/H/ s/^J/I/ s/^K/J/ s/^L/K/ s/^M/L/ s/^N/M/ s/^O/N/ s/^P/O/ s/^Q/P/ s/^R/Q/ s/^S/R/ s/^T/S/ s/^U/T/ s/^V/U/ s/^W/V/ s/^X/W/ s/^Y/X/ s/^Z/Y/ s/^\[/Z/ s/^\\/\[/ s/^\]/\\/ s/^\^/\]/ s/^_/\^/ s/^`/_/ s/^a/`/ s/^b/a/ s/^c/b/ s/^d/c/ s/^e/d/ s/^f/e/ s/^g/f/ s/^h/g/ s/^i/h/ s/^j/i/ s/^k/j/ s/^l/k/ s/^m/l/ s/^n/m/ s/^o/n/ s/^p/o/ s/^q/p/ s/^r/q/ s/^s/r/ s/^t/s/ s/^u/t/ s/^v/u/ s/^w/v/ s/^x/w/ s/^y/x/ s/^z/y/ s/^\{/z/ s/^\|/{/ s/^\}/|/ s/^\~/}/ s/^\x7f/~/ s/^\x80/\x7f/ s/^\x81/\x80/ s/^\x82/\x81/ s/^\x83/\x82/ s/^\x84/\x83/ s/^\x85/\x84/ s/^\x86/\x85/ s/^\x87/\x86/ s/^\x88/\x87/ s/^\x89/\x88/ s/^\x8a/\x89/ s/^\x8b/\x8a/ s/^\x8c/\x8b/ s/^\x8d/\x8c/ s/^\x8e/\x8d/ s/^\x8f/\x8e/ s/^\x90/\x8f/ s/^\x91/\x90/ s/^\x92/\x91/ s/^\x93/\x92/ s/^\x94/\x93/ s/^\x95/\x94/ s/^\x96/\x95/ s/^\x97/\x96/ s/^\x98/\x97/ s/^\x99/\x98/ s/^\x9a/\x99/ s/^\x9b/\x9a/ s/^\x9c/\x9b/ s/^\x9d/\x9c/ s/^\x9e/\x9d/ s/^\x9f/\x9e/ s/^\xa0/\x9f/ s/^\xa1/\xa0/ s/^\xa2/\xa1/ s/^\xa3/\xa2/ s/^\xa4/\xa3/ s/^\xa5/\xa4/ s/^\xa6/\xa5/ s/^\xa7/\xa6/ s/^\xa8/\xa7/ s/^\xa9/\xa8/ s/^\xaa/\xa9/ s/^\xab/\xaa/ s/^\xac/\xab/ s/^\xad/\xac/ s/^\xae/\xad/ s/^\xaf/\xae/ s/^\xb0/\xaf/ s/^\xb1/\xb0/ s/^\xb2/\xb1/ s/^\xb3/\xb2/ s/^\xb4/\xb3/ s/^\xb5/\xb4/ s/^\xb6/\xb5/ s/^\xb7/\xb6/ s/^\xb8/\xb7/ s/^\xb9/\xb8/ s/^\xba/\xb9/ s/^\xbb/\xba/ s/^\xbc/\xbb/ s/^\xbd/\xbc/ s/^\xbe/\xbd/ s/^\xbf/\xbe/ s/^\xc0/\xbf/ s/^\xc1/\xc0/ s/^\xc2/\xc1/ s/^\xc3/\xc2/ s/^\xc4/\xc3/ s/^\xc5/\xc4/ s/^\xc6/\xc5/ s/^\xc7/\xc6/ s/^\xc8/\xc7/ s/^\xc9/\xc8/ s/^\xca/\xc9/ s/^\xcb/\xca/ s/^\xcc/\xcb/ s/^\xcd/\xcc/ s/^\xce/\xcd/ s/^\xcf/\xce/ s/^\xd0/\xcf/ s/^\xd1/\xd0/ s/^\xd2/\xd1/ s/^\xd3/\xd2/ s/^\xd4/\xd3/ s/^\xd5/\xd4/ s/^\xd6/\xd5/ s/^\xd7/\xd6/ s/^\xd8/\xd7/ s/^\xd9/\xd8/ s/^\xda/\xd9/ s/^\xdb/\xda/ s/^\xdc/\xdb/ s/^\xdd/\xdc/ s/^\xde/\xdd/ s/^\xdf/\xde/ s/^\xe0/\xdf/ s/^\xe1/\xe0/ s/^\xe2/\xe1/ s/^\xe3/\xe2/ s/^\xe4/\xe3/ s/^\xe5/\xe4/ s/^\xe6/\xe5/ s/^\xe7/\xe6/ s/^\xe8/\xe7/ s/^\xe9/\xe8/ s/^\xea/\xe9/ s/^\xeb/\xea/ s/^\xec/\xeb/ s/^\xed/\xec/ s/^\xee/\xed/ s/^\xef/\xee/ s/^\xf0/\xef/ s/^\xf1/\xf0/ s/^\xf2/\xf1/ s/^\xf3/\xf2/ s/^\xf4/\xf3/ s/^\xf5/\xf4/ s/^\xf6/\xf5/ s/^\xf7/\xf6/ s/^\xf8/\xf7/ s/^\xf9/\xf8/ s/^\xfa/\xf9/ s/^\xfb/\xfa/ s/^\xfc/\xfb/ s/^\xfd/\xfc/ s/^\xfe/\xfd/ s/^\xff/\xfe/ x } /^/ {	x s/^(.|[^.])((.|[^.])*)$/\2\1/	# Rotate mem to the left. (MP++) x } /^\{/ {	# '['; start of loop. x /^\x0/ {	# If curr mem cell is zero: s/^/-:/	# Insert a counter to keep track of nested looping depth. :loopCountStart x s/^(.)(.*)$/\2\1/	# IP++ /^\{/ {			x s/^/-/	# Increase loop depth. x }		/^}/ {			x s/^-//	# Decrease loop depth. x }		x /^-/ b loopCountStart s/^://	# Strip leading colon (temp to separate loopcount from mem). }	x } /^}/ {	# ']'; end of loop. x /^\x0/ !{	# If curr mem cell is nonzero: s/^/-:/	# Insert a counter to keep track of nested looping depth. :loopCountEnd x s/^(.*)(.)$/\2\1/	# IP-- /^\{/ {			x s/^-//	# Decrease loop depth. x }		/^}/ {			x s/^/-/	# Increase loop depth. x }		x /^-/ b loopCountEnd s/^://	# Strip leading colon (temp to separate loopcount from mem). }	x } /^\./ {	x;p;x } /^,/ { }	# I/O - unimplemented. /^q/ { x s/(.|[^.])/&, /g	# Neater memory output. s/, $//		# Strip the trailing ', '. s/^(.|[^.])*$/{ & }/	# Contain output in bracers. q }
 * 1) 	d	# Delete the standard output!


 * next

s/^(.)(.*)$/\2\1/	# Rotate commands to the left. b parse