yesno.class

是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到

*! version 1.0.0  30jul2002
version 8

class {

    instance:
	istrue = 0

}, inherit(codestyle)


/*--------------------------------------------------------------------------*/
program define set_true
	.setstyle, style(yes)
end

program define set_yes
	.setstyle, style(yes)
end

program define set_on
	.setstyle, style(yes)
end

program define set_false
	.setstyle, style(no)
end

program define set_no
	.setstyle, style(no)
end

program define set_off
	.setstyle, style(no)
end

program define isfalse
	class exit = ! 0`.istrue'
end

program define set01

	if 0`1' {
		.setstyle, style(yes)
	}
	else {
		.setstyle, style(no)
	}
end

program define set_xor

	if "`1'" != "" {
		.setstyle, style(yes)
	}
	else {
		if "`2'" != "" {
			.setstyle, style(no)
		}
	}
end

program define set_swap
	.setstyle , style(`=cond("`.stylename'"=="yes" , "no" , "yes")')
end


// ---------------------------------------------------------------------------

program _unabbrev

	local 0 , `0'

	syntax [ , Yes No On Off True False * ]

	if "`yes'`no'`options'" != "" {
		class exit `"`yes' `no' `options'"'
	}

	if "`on'" != "" {
		class exit "yes"
	}
	if "`off'" != "" {
		class exit "no"
	}
	if "`true'" != "" {
		class exit "yes"
	}
	if "`false'" != "" {
		class exit "no"
	}

end