|
| 1 | +overlay[local?] |
| 2 | +module; |
| 3 | + |
| 4 | +signature module ExtensionsSig { |
| 5 | + /** |
| 6 | + * Holds if a source model exists for the given parameters. |
| 7 | + */ |
| 8 | + predicate sourceModel( |
| 9 | + string namespace, string type, boolean subtypes, string name, string signature, string ext, |
| 10 | + string output, string kind, string provenance, QlBuiltins::ExtensionId madId |
| 11 | + ); |
| 12 | + |
| 13 | + /** |
| 14 | + * Holds if a sink model exists for the given parameters. |
| 15 | + */ |
| 16 | + predicate sinkModel( |
| 17 | + string namespace, string type, boolean subtypes, string name, string signature, string ext, |
| 18 | + string input, string kind, string provenance, QlBuiltins::ExtensionId madId |
| 19 | + ); |
| 20 | + |
| 21 | + /** |
| 22 | + * Holds if a barrier model exists for the given parameters. |
| 23 | + */ |
| 24 | + predicate barrierModel( |
| 25 | + string namespace, string type, boolean subtypes, string name, string signature, string ext, |
| 26 | + string output, string kind, string provenance, QlBuiltins::ExtensionId madId |
| 27 | + ); |
| 28 | + |
| 29 | + /** |
| 30 | + * Holds if a barrier guard model exists for the given parameters. |
| 31 | + */ |
| 32 | + predicate barrierGuardModel( |
| 33 | + string namespace, string type, boolean subtypes, string name, string signature, string ext, |
| 34 | + string input, string acceptingvalue, string kind, string provenance, |
| 35 | + QlBuiltins::ExtensionId madId |
| 36 | + ); |
| 37 | + |
| 38 | + /** |
| 39 | + * Holds if a summary model exists for the given parameters. |
| 40 | + */ |
| 41 | + predicate summaryModel( |
| 42 | + string namespace, string type, boolean subtypes, string name, string signature, string ext, |
| 43 | + string input, string output, string kind, string provenance, QlBuiltins::ExtensionId madId |
| 44 | + ); |
| 45 | + |
| 46 | + /** |
| 47 | + * Holds if a neutral model exists for the given parameters. |
| 48 | + */ |
| 49 | + predicate neutralModel( |
| 50 | + string namespace, string type, string name, string signature, string kind, string provenance |
| 51 | + ); |
| 52 | +} |
| 53 | + |
| 54 | +module ModelsAsData<ExtensionsSig Extensions> { |
| 55 | + /** |
| 56 | + * Holds if the given extension tuple `madId` should pretty-print as `model`. |
| 57 | + * |
| 58 | + * Barrier models are included for completeness even though they will not show up in a path. |
| 59 | + * |
| 60 | + * This predicate should only be used in tests. |
| 61 | + */ |
| 62 | + predicate interpretModelForTest(QlBuiltins::ExtensionId madId, string model) { |
| 63 | + exists( |
| 64 | + string namespace, string type, boolean subtypes, string name, string signature, string ext, |
| 65 | + string output, string kind, string provenance |
| 66 | + | |
| 67 | + Extensions::sourceModel(namespace, type, subtypes, name, signature, ext, output, kind, |
| 68 | + provenance, madId) |
| 69 | + | |
| 70 | + model = |
| 71 | + "Source: " + namespace + "; " + type + "; " + subtypes + "; " + name + "; " + signature + |
| 72 | + "; " + ext + "; " + output + "; " + kind + "; " + provenance |
| 73 | + ) |
| 74 | + or |
| 75 | + exists( |
| 76 | + string namespace, string type, boolean subtypes, string name, string signature, string ext, |
| 77 | + string input, string kind, string provenance |
| 78 | + | |
| 79 | + Extensions::sinkModel(namespace, type, subtypes, name, signature, ext, input, kind, |
| 80 | + provenance, madId) |
| 81 | + | |
| 82 | + model = |
| 83 | + "Sink: " + namespace + "; " + type + "; " + subtypes + "; " + name + "; " + signature + "; " |
| 84 | + + ext + "; " + input + "; " + kind + "; " + provenance |
| 85 | + ) |
| 86 | + or |
| 87 | + exists( |
| 88 | + string namespace, string type, boolean subtypes, string name, string signature, string ext, |
| 89 | + string output, string kind, string provenance |
| 90 | + | |
| 91 | + Extensions::barrierModel(namespace, type, subtypes, name, signature, ext, output, kind, |
| 92 | + provenance, madId) |
| 93 | + | |
| 94 | + model = |
| 95 | + "Barrier: " + namespace + "; " + type + "; " + subtypes + "; " + name + "; " + signature + |
| 96 | + "; " + ext + "; " + output + "; " + kind + "; " + provenance |
| 97 | + ) |
| 98 | + or |
| 99 | + exists( |
| 100 | + string namespace, string type, boolean subtypes, string name, string signature, string ext, |
| 101 | + string input, string acceptingvalue, string kind, string provenance |
| 102 | + | |
| 103 | + Extensions::barrierGuardModel(namespace, type, subtypes, name, signature, ext, input, |
| 104 | + acceptingvalue, kind, provenance, madId) |
| 105 | + | |
| 106 | + model = |
| 107 | + "Barrier Guard: " + namespace + "; " + type + "; " + subtypes + "; " + name + "; " + |
| 108 | + signature + "; " + ext + "; " + input + "; " + acceptingvalue + "; " + kind + "; " + |
| 109 | + provenance |
| 110 | + ) |
| 111 | + or |
| 112 | + exists( |
| 113 | + string namespace, string type, boolean subtypes, string name, string signature, string ext, |
| 114 | + string input, string output, string kind, string provenance |
| 115 | + | |
| 116 | + Extensions::summaryModel(namespace, type, subtypes, name, signature, ext, input, output, kind, |
| 117 | + provenance, madId) |
| 118 | + | |
| 119 | + model = |
| 120 | + "Summary: " + namespace + "; " + type + "; " + subtypes + "; " + name + "; " + signature + |
| 121 | + "; " + ext + "; " + input + "; " + output + "; " + kind + "; " + provenance |
| 122 | + ) |
| 123 | + } |
| 124 | +} |
0 commit comments