wrme.vi

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

#
# Wrhook script - called just before saving and exiting a file.
#		  if the file has a null name, the user is prompted for
#		  a real name.
#
	if "%F" != "no_name"
	    return ERR_NO_ERR
	endif
	assign %a = /Enter file name: /
	input %a
	if lastrc == NO_VALUE_ENTERED
	    return DO_NOT_CLEAR_MESSAGE_WINDOW
	endif
	echo off
	set filename = %a
	echo on
	return ERR_NO_ERR