Dominick Grift e02146
## <summary>Abstract Machine Test Utility.</summary>
Chris PeBenito a74d1a
Chris PeBenito a74d1a
########################################
Chris PeBenito a74d1a
## <summary>
Dominick Grift e02146
##	Execute a domain transition to run Amtu.
Chris PeBenito a74d1a
## </summary>
Chris PeBenito a74d1a
## <param name="domain">
Chris PeBenito a74d1a
##	<summary>
Dominick Grift 77e4b5
##	Domain allowed to transition.
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>
Dominick Grift e02146
##	Execute a domain transition to run
Dominick Grift e02146
##	Amtu, and allow the specified role
Dominick Grift e02146
##	the Amtu domain.
Chris PeBenito a74d1a
## </summary>
Chris PeBenito a74d1a
## <param name="domain">
Chris PeBenito a74d1a
##	<summary>
Dominick Grift 77e4b5
##	Domain allowed to transition.
Chris PeBenito a74d1a
##	</summary>
Chris PeBenito a74d1a
## </param>
Chris PeBenito a74d1a
## <param name="role">
Chris PeBenito a74d1a
##	<summary>
Chris PeBenito a7ee7f
##	Role allowed access.
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
')