## <summary>GNAT Ada95 compiler</summary>

########################################

## <summary>

##	Execute the ada program in the ada domain.

## </summary>

## <param name="domain">

##	<summary>

##	Domain allowed to transition.

##	</summary>

## </param>

#

interface(`ada_domtrans',`

	gen_require(`

		type ada_t, ada_exec_t;

	')

	corecmd_search_bin($1)

	domtrans_pattern($1, ada_exec_t, ada_t)

')

########################################

## <summary>

##	Execute ada in the ada domain, and

##	allow the specified role the ada domain.

## </summary>

## <param name="domain">

##	<summary>

##	Domain allowed to transition.

##	</summary>

## </param>

## <param name="role">

##	<summary>

##	Role allowed access.

##	</summary>

## </param>

#

interface(`ada_run',`

	gen_require(`

		type ada_t;

	')

	ada_domtrans($1)

	role $2 types ada_t;

')