Chris PeBenito a74d1a
## <summary>Abstract Machine Test Utility</summary>
Chris PeBenito a74d1a
Chris PeBenito a74d1a
########################################
Chris PeBenito a74d1a
## <summary>
Chris PeBenito a74d1a
##	Execute amtu in the amtu domain.
Chris PeBenito a74d1a
## </summary>
Chris PeBenito a74d1a
## <param name="domain">
Chris PeBenito a74d1a
##	<summary>
Chris PeBenito a74d1a
##	Domain allowed access.
Chris PeBenito a74d1a
##	</summary>
Chris PeBenito a74d1a
## </param>
Chris PeBenito a74d1a
#
Chris PeBenito a74d1a
interface(`amtu_domtrans',`
Chris PeBenito a74d1a
	gen_require(`
Chris PeBenito a74d1a
		type amtu_t, amtu_exec_t;
Chris PeBenito a74d1a
	')
Chris PeBenito a74d1a
Chris PeBenito a74d1a
	corecmd_search_bin($1)
Chris PeBenito 0bfccd
	domtrans_pattern($1, amtu_exec_t, amtu_t)
Chris PeBenito a74d1a
')
Chris PeBenito a74d1a
Chris PeBenito a74d1a
########################################
Chris PeBenito a74d1a
## <summary>
Chris PeBenito a74d1a
##	Execute amtu in the amtu domain, and
Chris PeBenito a74d1a
##	allow the specified role the amtu domain.
Chris PeBenito a74d1a
## </summary>
Chris PeBenito a74d1a
## <param name="domain">
Chris PeBenito a74d1a
##	<summary>
Chris PeBenito a74d1a
##	Domain allowed access.
Chris PeBenito a74d1a
##	</summary>
Chris PeBenito a74d1a
## </param>
Chris PeBenito a74d1a
## <param name="role">
Chris PeBenito a74d1a
##	<summary>
Chris PeBenito a74d1a
##	The role to be allowed the amtu domain.
Chris PeBenito a74d1a
##	</summary>
Chris PeBenito a74d1a
## </param>
Chris PeBenito a74d1a
#
Chris PeBenito a74d1a
interface(`amtu_run',`
Chris PeBenito a74d1a
	gen_require(`
Chris PeBenito a74d1a
		type amtu_t;
Chris PeBenito a74d1a
	')
Chris PeBenito a74d1a
Chris PeBenito a74d1a
	amtu_domtrans($1)
Chris PeBenito a74d1a
	role $2 types amtu_t;
Chris PeBenito a74d1a
')