_assert.ado

来自「是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到」· ADO 代码 · 共 25 行

*! version 1.0.0 20dec20032
program _assert
	version 8

	syntax anything [ , msg(str) rc(str) ]

	capture assert `anything'
	local rcc = _rc
	if `rcc' {
		if `"`msg'"' != "" {
			dis as err `"`msg'"'
		}
		else {
			dis as err `"assert failed: `anything'"'
		}

		if "`rc'" != "" {
			exit `rc'
		}
		else {
			exit `rcc'
		}
	}
end