25 lines
844 B
Text
25 lines
844 B
Text
q="start_up=proc()\n"||
|
|
" po:stream:=stream$primary_output()\n"||
|
|
" stream$puts(po,\"q=\\\"\")\n"||
|
|
" for c:char in string$chars(q) do\n"||
|
|
" if c='\\n' then stream$puts(po,\"\\\\n\\\"||\\n\\\"\")\n"||
|
|
" elseif c='\\\\' then stream$puts(po,\"\\\\\\\\\")\n"||
|
|
" elseif c='\\\"' then stream$puts(po,\"\\\\\\\"\")\n"||
|
|
" else stream$putc(po,c)\n"||
|
|
" end\n"||
|
|
" end\n"||
|
|
" stream$puts(po,\"\\\"\\n\"||q)\n"||
|
|
"end start_up\n"||
|
|
""
|
|
start_up=proc()
|
|
po:stream:=stream$primary_output()
|
|
stream$puts(po,"q=\"")
|
|
for c:char in string$chars(q) do
|
|
if c='\n' then stream$puts(po,"\\n\"||\n\"")
|
|
elseif c='\\' then stream$puts(po,"\\\\")
|
|
elseif c='\"' then stream$puts(po,"\\\"")
|
|
else stream$putc(po,c)
|
|
end
|
|
end
|
|
stream$puts(po,"\"\n"||q)
|
|
end start_up
|