_fr_runlog.ado

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

*! version 1.0.1  12dec2002
program _fr_runlog
	version 8

	syntax name(name=cmds) [, noLOGging]

// cla `cmds'
	forvalues i = 1/0`.`cmds'.arrnels' {
// di in white `":`.`cmds'[`i']':"'

		local cmd `"`.`cmds'[`i']'"'

		gettoken do cmd1 : cmd
		if "`do'" == "LogMapping" {
			LogMapping `cmd1' `logging'
			continue				// Continue
		}

		if "`do'" == "__NOLOG__" {
			local cmd `"`cmd1'"'
		}

		`cmd'

		if "`logging'" == "" & "`do'" != "__NOLOG__" {
						// Handle mapping sersets
			gettoken target : cmd , parse(" =")
			if substr(`"`target'"', 1, 9) == ".sersets[" {
				.__LOG.Arrpush `target' =		///
					.__Map.``target'.uname'.ref
			}
			else {			// Standard "push"
				.__LOG[`.__LOG.arrnels'+1] = .`cmds'[`i']
			}
		}
	}
end


program LogMapping
	args target logging

	.__LOG.Arrpush `target' = .__Map.``target'.uname'.ref
end