summaryrefslogtreecommitdiff
path: root/src/file/datafile/execfile.cil
blob: e7926a2d4d68de99c0ab33553f82a8e064499d5d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
;; SPDX-FileCopyrightText: © 2023 Dominick Grift <dominick.grift@defensec.nl>
;; SPDX-License-Identifier: Unlicense

(block exec

  (blockinherit .file.exec.template)
  (blockinherit .file.macro_template_dirs)
  (blockinherit .file.macro_template_lnk_files))

(in file

    (block exec

      (macro entrypoint_all_files ((type ARG1))
	     (allow ARG1 typeattr (file (entrypoint))))

      (macro getattr_all_files ((type ARG1))
	     (allow ARG1 typeattr (file (getattr))))

      (macro map_all_files ((type ARG1))
	     (allow ARG1 typeattr (file (map))))

      (macro type ((type ARG1))
	     (typeattributeset typeattr ARG1))

      (blockinherit file.all_macro_template_files)

      (typeattribute typeattr)

      (call data.type (typeattr))

      (call .subj.entry.type (typeattr))

      (block base_template

	(blockabstract base_template)

	(blockinherit .file.base_template)

	(call .file.exec.type (file)))

      (block template

	(blockabstract template)

	(macro entrypoint_file_files ((type ARG1))
	       (allow ARG1 file (file (entrypoint))))

	(macro getattr_file_files ((type ARG1))
	       (allow ARG1 file (file (getattr))))

	(macro map_file_files ((type ARG1))
	       (allow ARG1 file (file (map))))

	(macro subj_type_transition ((type ARG1)(type ARG2))
	       (typetransition ARG1 file process ARG2))

	(blockinherit .file.exec.base_template)
	(blockinherit .file.macro_template_files))))