conren.ado

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

*! version 1.1.0  08dec2000
program define conren
	version 7
	* To add a black background style scheme increase maxbc and then
	* write subroutine ColorB#  <-- where # is this new maxbc number.
	*
	* To add a white background style scheme increase maxwc and then
	* write subroutine ColorW#  <-- where # is this new maxwc number.
	*
	* black background schemes are numbered 1, 2, ... , `maxbc'
	* white background schemes are numbered 101, 102, ... , 100+`maxwc'
	*
	* To add an underline scheme increase maxuls and then write
	* subroutine Ul#  <-- where # is this new maxuls number.

	if "$S_CONSOLE" != "console" {
		/* Only -conren test- makes any sense for non console users */
		RenTest
		exit
	}

	local maxbc	5
	local maxwc	8
	local maxuls	2
	local maxcolors = `maxbc' + `maxwc'

	args subcmd cmdarg

	if "`subcmd'"=="" {
		di
		di "{p 4 4}{txt}{cmd:conren} currently has " `maxcolors'+1
		di " style schemes and " `maxuls'+1 " underlining schemes,"
		di "for a total of " (`maxcolors'+1)*(`maxuls'+1)
		di " possibilities.  Scheme 0 for {cmd:style} (or {cmd:ul})"
		di "removes the style (or underline) settings.  `maxbc' dark"
		di "and `maxwc' light background schemes are available."
		di "You are free to choose from all schemes."
		di "You can try style schemes by typing"
		di
		di "{col 34}0 == {it:#}{col 51}reset style scheme"
		di "{col 12}{txt}. {cmd:conren style} {it:#}{col 34}" /*
			*/ "1 <= {it:#} <= `maxbc'{col 51}dark backgrounds"
		di "{col 32}101 <= {it:#} <= " `maxwc'+100 /*
			*/ "{col 51}light backgrounds" _n
		di "{p 4 4}and underlining schemes by typing"
		di
		di "{col 12}{txt}. {cmd:conren ul} {it:#}{col 34}" /*
			*/ "0 <= {it:#} <= `maxuls'" _n
		di "{p 4 4}You can view how a scheme looks by typing"
		di
		di "{col 12}{txt}. {cmd:conren test}" _n
		di "{p 4 4}You can clear all styles and underlining by typing"
		di
		di "{col 12}{txt}. {cmd:conren clear}"
		exit
	}

	local len = length("`subcmd'")

	if "`subcmd'"==substr("test",1,`len') {
		RenTest
		exit
	}

	if "`subcmd'"=="reset" || "`subcmd'"=="clear" {
		set conren clear
		di as txt "(all rendition codes cleared)"
		exit
	}

	if "`subcmd'" == substr("style",1,max(`len',1)) {
		confirm integer number `cmdarg'
		if (`cmdarg'<0) | (`cmdarg' > `maxwc'+100) | /*
				*/ ((`cmdarg'<101) & (`cmdarg'>`maxbc')) {
			di as err "{p}# must be between 0 and `maxbc' or"
			di "between 101 and " `maxwc'+100 "{break}"
			exit 198
		}
		if `cmdarg'==0 {
			Color0
		}
		else if `cmdarg' <= `maxbc' {
			ColorB`cmdarg' `cmdarg'
		}
		else {
			local wnum = `cmdarg' - 100
			ColorW`wnum' `cmdarg'
		}

		exit
	}

	if "`subcmd'" == "ul" {
		confirm integer number `cmdarg'
		if `cmdarg'<0 | `cmdarg'>`maxuls' {
			di as err "# must be be between 0 and `maxuls'"
			exit 198
		}
		Ul`cmdarg'
		exit
	}
	error 198
end

program define Color0
	/* remove any current bf, sf, and it definitions */
	set conren res
	set conren txt
	set conren blue
	set conren inp
	set conren err
	set conren link
	set conren hi
	/* remove the reset code */
	set conren reset

	di
	di "{txt}{p 4 4 4}{cmd:style 0} removes the current style definitions."
end

program define ColorB1  /* for black backgrounds */
	/* set bf, sf, and it */
	set conren res  <27> [ 3 3 m
	set conren txt  <27> [ 3 2 m
	set conren blue <27> [ 3 6 m
	set conren inp  <27> [ 3 7 m
	set conren err  <27> [ 3 1 m
	set conren link <27> [ 3 6 m
	set conren hi   <27> [ 3 7 m
	/* set the reset code */
	set conren reset <27> [ 0 m

	di
	di "{txt}{p 4 4 4}{cmd:style `1'}, designed for black backgrounds,"
	di "provides all the colors, but does not attempt to distinguish"
	di "between bold and normal type."

	RenTest
end

program define ColorB2  /* for black backgrounds */
	/* set bf, sf, and it */
	set conren res  <27> [ 3 3 m
	set conren txt  <27> [ 3 2 m
	set conren blue <27> [ 3 6 m
	set conren inp  <27> [ 3 7 m
	set conren err  <27> [ 3 1 m
	set conren link <27> [ 3 6 m
	set conren hi   <27> [ 3 7 m
	/* now reset bf */
	set conren bf res  <27> [ 1 ; 3 3 m
	set conren bf txt  <27> [ 1 ; 3 2 m
	set conren bf blue <27> [ 1 ; 3 6 m
	set conren bf inp  <27> [ 1 ; 3 7 m
	set conren bf err  <27> [ 1 ; 3 1 m
	set conren bf link <27> [ 1 ; 3 6 m
	set conren bf hi   <27> [ 1 ; 3 7 m
	/* set the reset code */
	set conren reset <27> [ 0 m

	di
	di "{txt}{p 4 4 4}{cmd:style `1'}, designed for black backgrounds,"
	di "provides all the colors and attempts to distinguish between"
	di "bold and normal type."

	RenTest
end

program define ColorB3  /* for black backgrounds */
	/* set bf, sf, and it */
	set conren res  <27> [ 1 ; 3 3 m
	set conren txt  <27> [ 1 ; 3 2 m
	set conren blue <27> [ 1 ; 3 6 m
	set conren inp  <27> [ 1 ; 3 7 m
	set conren err  <27> [ 1 ; 3 1 m
	set conren link <27> [ 1 ; 3 6 m
	set conren hi   <27> [ 1 ; 3 7 m
	/* set the reset code */
	set conren reset <27> [ 0 m

	di "{txt}{p 4 4 4}{cmd:style `1'}, designed for black backgrounds,"
	di "provides all the colors, but does not attempt to distinguish"
	di "between bold and normal type."
	RenTest
end

program define ColorB4  /* for black backgrounds */
	/* set bf, sf, and it */
	set conren res  <27> [ 3 3 m
	set conren txt  <27> [ 3 2 m
	set conren blue <27> [ 3 6 m
	set conren inp  <27> [ 3 7 m
	set conren err  <27> [ 1 ; 3 1 m
	set conren link <27> [ 3 6 m
	set conren hi   <27> [ 3 7 m
	/* set the reset code */
	set conren reset <27> [ 0 m

	di
	di "{txt}{p 4 4 4}{cmd:style `1'}, designed for black backgrounds,"
	di "provides all the colors, but does not attempt to distinguish"
	di "between bold and normal type.  However all choices for error"
	di "are made bold red for more dramatic effect."

	RenTest
end

program define ColorB5  /* for black backgrounds */
	/* set bf, sf, and it */
	set conren res  <27> [ 3 3 m
	set conren txt  <27> [ 3 2 m
	set conren blue <27> [ 3 6 m
	set conren inp  <27> [ 3 7 m
	set conren err  <27> [ 1 ; 3 1 m
	set conren link <27> [ 3 6 m
	set conren hi   <27> [ 3 7 m
	/* now reset bf */
	set conren bf res  <27> [ 1 ; 3 3 m
	set conren bf txt  <27> [ 1 ; 3 2 m
	set conren bf blue <27> [ 1 ; 3 6 m
	set conren bf inp  <27> [ 1 ; 3 7 m
	set conren bf link <27> [ 1 ; 3 6 m
	set conren bf hi   <27> [ 1 ; 3 7 m
	/* set the reset code */
	set conren reset <27> [ 0 m

	di
	di "{txt}{p 4 4 4}{cmd:style `1'}, designed for black backgrounds,"
	di "provides all the colors and attempts to distinguish between"
	di "bold and normal type.  However all choices for error"
	di "are made bold red for more dramatic effect."

	RenTest
end

program define ColorW1   /* for white backgrounds */
	/* set bf, sf, and it */
	set conren res  <27> [ 1 ; 3 0 m
	set conren txt  <27> [ 3 0 m
	set conren blue <27> [ 3 4 m
	set conren inp  <27> [ 3 0 m
	set conren err  <27> [ 3 1 m
	set conren link <27> [ 3 4 m
	set conren hi   <27> [ 1 ; 3 0 m
	/* reset bold ct and bold st */
	set conren bf inp <27> [ 1 ; 3 0 m
	set conren bf txt <27> [ 1 ; 3 0 m
	/* set the reset code */
	set conren reset <27> [ 0 m

	di
	di "{txt}{p 4 4 4}{cmd:style `1'} is designed for white backgrounds."
	di "It sets text and input to black; hilite, result, bold text, and"
	di "bold input to bold black; and uses red for error and blue for"
	di "link without distinguishing between bold and normal type."