⚠️ Warning: This is a draft ⚠️

This means it might contain formatting issues, incorrect code, conceptual problems, or other severe issues.

If you want to help to improve and eventually enable this page, please fork RosettaGit's repository and open a merge request on GitHub.

{{collection|RCHQ9+}}{{implementation|HQ9+}} This is an HQ9+ interpreter written in Standard Ursa. It expects the filename of an HQ9+ source file as a command-line argument.

# hq9+ interpreter in ursa

# check if a file was provided on the command line; if not, stop
if (> (size args) 2)
	out "error: no file provided" endl console
end if

# safely open the file by creating it first, then read it
decl file f
f.create args<1>
f.open args<1>
decl string hq9
set hq9 (f.readall)

# interpret the hq9+
# define an int to be the accumlator (even though this isn't technically
# an accumulator)
decl int accum
for (decl int i) (< i (size hq9)) (inc i)
	if (= (lower hq9<i>) "h")
		out "hello world!" endl console
	end if
	if (= (lower hq9<i>) "q")
		out hq9 console
	end if
	if (= hq9<i> "9")
		decl int bottles
		decl string bottlestr
		for (set bottles 99) (> bottles 0) (dec bottles)
		        if (= bottles 1)
		                set bottlestr "bottle"
		                set bottlestr "bottles"
		        end if

		        out bottles " " bottlestr " of beer on the wall" endl console
		        out bottles " " bottlestr " of beer" endl console
		        out "Take one down, pass it around." endl console

		        if (not (= bottles 2))
		                out (int (- bottles 1)) " bottles of beer on the wall." endl endl console
                		out (int (- bottles 1)) " bottle of beer on the wall." endl endl console
		        end if
		end for
	end if
	if (= hq9<i> "+")
		set accum (int (+ accum 1))
	end if
end for