Mac-Source 1994 July/Mac-Source_July_1994.iso/Pascal/Utilities/Snippets/case

Text File | 1992-08-12 | 497 b | 18 lines | [TEXT/MPS ]

#procedure template. for implementations only
## © G. Sawitzki, StatLab Heidelberg 1992 <[e-mail]>
#usage: case a
set a1 "`catenate "{active}".§`"
#set a1 > temp
if "{a1}" == "" #empty selection so far
find ¡1 "{Active}" # get the full current line
end
(echo case {1} of∂n∂t':;'∂n∂t'otherwise {case '{1}'}'∂n'end;{case '{1}'}'
)> "{Active}".§     #rewrite selection
find  Δ§ "{Active}"    #move selection to arguments
find /∂:/ "{Active}"
find  Δ§ "{Active}"

unset procname

exit 0