summaryrefslogtreecommitdiff
path: root/bf.prn
blob: 59e97276b5fae52a89c49b9438ca3d9ad7304055 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
900 "TAPELEN" store


##First, read in the source

# ""
# 1 while
# 	getline
# 	dup -1 = if
# 		pop
# 		0
# 	else
# 		"\n" swap + +
# 		1
# 	end
# end
# strlen 1 swap substr swap pop
# #bottom of stack now contains 1 string, the source code
# strlen "len" store
# "code" store

argc 1 = ! if
	"Please give the brainfuck file as a command-line argument." print lf
	exit
end
0 argvget "r" fopen "filehandle" store
""
filehandle fgetc
dup -1 = ! while
	+
	filehandle fgetc
dup -1 = ! end
pop
strlen "len" store
"code" store



##Then, create the tape
TAPELEN
dup 0 > while
	0 swap
1 - dup 0 > end



##Finally, start executing

@defun "execute" {
	#"start of 'execute': " print stackdump

	depth 1 + "depth" gstore

	#"trying to execute " print dup print lf

	"code" store

	0 "i" store
	i len < while
		#"i = " print i print lf
		"code" swapoutvar
		i stridx "c" store
		"code" store
		#"c = " c + print stackdump

		c "#" = if stackdump end
		c "+" = if 1 + 256 % end
		c "-" = if 255 + 256 % end
		c "." = if dup chr print end
		c "," = if
			pop
			getc
			dup -1 = if
				pop 255
			else
				ord 256 %
			end
			#{}"Input put on stack " print dup print lf
		end
		c ">" = if -1 roll end
		c "<" = if 1 roll end
		c "]" = if
			i "loopend" depth 1 - + gstore
			len "i" store  # == break
		end
		c "[" = if
			i "loopstart" depth + store
			#"loopstart" print depth print " = " print "loopstart" depth + get print lf
			0 "didloop" depth + store
			dup while
				1 "didloop" depth + store
				"code" swapoutvar i 1 + len substr swap "code" store execute
				#stackdump "i = " print i print lf
				"loopstart" depth + get "i" store
			dup end
			"didloop" depth + get ! if
				1 "searchdepth" store
				i 1 + "i" store
				"code" dup swapoutvar
				i len < searchdepth 0 > * while
					i stridx "c" store
					#"Searching index " print i print " (char " print c print ")" print lf
					c "[" = if searchdepth 1 + "searchdepth" store end
					c "]" = if searchdepth 1 - "searchdepth" store end
					i 1 + "i" store
				i len < searchdepth 0 > * end
				#stackdump
				swap store
				searchdepth 0 = ! if
					"No matching ']' found for '[' at index " print loopstart print lf
					exit
				end
				i 1 - "i" store
			else
				"loopend" depth + get 1 + "loopstart" depth + get + "i" store
			end
			#"after loop, i = " print i print lf
		end

		i 1 + "i" store
	i len < end

	depth 1 - "depth" gstore
}

0 "depth" store

"code" swapoutvar
execute  #kaboom

depth 0 = ! if
	"The interpreter exited in depth " depth + "..." + print
end