Chris PeBenito de9649
Chris PeBenito de9649
########################################
Chris PeBenito de9649
#
Chris PeBenito de9649
# Helper macros
Chris PeBenito de9649
#
Chris PeBenito de9649
Chris PeBenito de9649
#
Chris PeBenito de9649
# shiftn(num,list...)
Chris PeBenito de9649
#
Chris PeBenito de9649
# shift the list num times
Chris PeBenito de9649
#
Chris PeBenito de9649
define(`shiftn',`ifelse($1,0,`shift($*)',`shiftn(decr($1),shift(shift($*)))')')
Chris PeBenito de9649
Chris PeBenito de9649
########################################
Chris PeBenito de9649
#
Chris PeBenito cff75c
# gen_user(username, role_set, mls_defaultlevel, mls_range, [mcs_categories])
Chris PeBenito 712566
#
Chris PeBenito cff75c
define(`gen_user',`user $1 roles { $2 }`'ifdef(`enable_mls', ` level $3 range $4')`'ifdef(`enable_mcs',` level s0 range s0`'ifelse(`$5',,,` - s0:$5')');')
Chris PeBenito 712566
Chris PeBenito 712566
########################################
Chris PeBenito 712566
#
Chris PeBenito e02c61
# gen_context(context,mls_sensitivity,[mcs_categories])
Chris PeBenito de9649
#
Chris PeBenito e02c61
define(`gen_context',`$1`'ifdef(`enable_mls',`:$2')`'ifdef(`enable_mcs',`:s0`'ifelse(`$3',,,`:$3')')') dnl
Chris PeBenito e3fd77
Chris PeBenito 21871a
########################################
Chris PeBenito 21871a
#
Chris PeBenito 21871a
# can_exec(domain,executable)
Chris PeBenito 21871a
#
Chris PeBenito 8c2f3a
define(`can_exec',`
Chris PeBenito 8c2f3a
	gen_require(`
Chris PeBenito 8c2f3a
		class file { rx_file_perms execute_no_trans };
Chris PeBenito 8c2f3a
	')
Chris PeBenito 8c2f3a
Chris PeBenito 8c2f3a
	allow $1 $2:file { rx_file_perms execute_no_trans };
Chris PeBenito 8c2f3a
')
Chris PeBenito 21871a
Chris PeBenito 21871a
########################################
Chris PeBenito 21871a
#
Chris PeBenito 21871a
# gen_bool(name,default_value)
Chris PeBenito 21871a
#
Chris PeBenito 21871a
define(`gen_bool',`
Chris PeBenito 21871a
	bool $1 dflt_or_overr(`$1'_conf,$2);
Chris PeBenito 21871a
')