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

Text File | 1992-08-12 | 715 b | 22 lines | [TEXT/MPS ]

#procedure template. for implementations only
#usage: proc name
# © G. Sawitzki, StatLab Heidelberg 1992 <[e-mail]>
set a1 "`catenate "{active}".§`"
#set a1 > temp
if "{a1}" == "" #empty selection so far
find ¡1 "{Active}" # get the full current line
end
set procname "{1}"
(echo "∂n"'{----------------------------------------------------------}'
echo '{'∂t"{procname}"∂t'}'∂n∂nprocedure {procname}'(); {* vs 0.1d1 *}'
echo '{'∂t`date -s -d `" ""{procname}":∂t'}'
echo ∂nbegin' {* proc '"{procname}"'*}'∂n∂t∂nend";"' {* proc '"{procname}"'*}'∂n
)> "{Active}".§     #rewrite selection
find  Δ§ "{Active}"    #move selection to arguments
find /∂)/ "{Active}"
find  Δ§ "{Active}"

unset procname

exit 0