proc.vi

来自「开放源码的编译器open watcom 1.6.0版的源代码」· VI 代码 · 共 23 行

#
# build procedure prototype
# 
        assign %a = /Procedure Name: /
        input %a
        if lastrc == NO_VALUE_ENTERED
	    return
        endif
        atomic
	echo off
	assign %x = /autoindent/@ 
	set noautoindent
        execute \e0o/*\n * %a\n */\n\e0ivoid %a( @ )\n{\n\n} /* %a */\n\e
	if %x == 1
	    set autoindent
	endif
        .-4
        execute \e0f@x
	echo on
        echo 1 Procedure %a added
        echo 2 " "
	keyadd i