| 1 | #!/usr/bin/env bash
|
| 2 | #
|
| 3 | # Usage:
|
| 4 | # demo/matchertext.sh <function name>
|
| 5 |
|
| 6 | set -o nounset
|
| 7 | set -o pipefail
|
| 8 | set -o errexit
|
| 9 |
|
| 10 | m-extensible() {
|
| 11 | local lang=$1
|
| 12 | shift
|
| 13 | if "$@"; then
|
| 14 | echo
|
| 15 | echo "[$lang] NO, expected syntax error"
|
| 16 | else
|
| 17 | echo
|
| 18 | echo "[$lang] YES"
|
| 19 | fi
|
| 20 |
|
| 21 | echo
|
| 22 | echo ---
|
| 23 | echo
|
| 24 | }
|
| 25 |
|
| 26 | # Other languages to test:
|
| 27 | #
|
| 28 | # - CSV -- seems unlikely that there is any syntactic room
|
| 29 | # - YAML -- maybe in its JSON subset, however most people seem to use the
|
| 30 | # indented strings with a whitespace rule
|
| 31 | # - HTML and XML - addressed as '*ML' in the paper
|
| 32 |
|
| 33 | demo() {
|
| 34 | echo 'Are the string literals in this language M-extensible?'
|
| 35 | echo 'We simply test them for syntax errors after a special char like \'
|
| 36 | echo
|
| 37 | echo 'This is also relevant to YSTR, where we add \xff and \u{012345} escapes'
|
| 38 | echo
|
| 39 |
|
| 40 | mkdir -p _tmp
|
| 41 |
|
| 42 | local tmp=_tmp/foo.c
|
| 43 |
|
| 44 | cat >$tmp <<'EOF'
|
| 45 | import json
|
| 46 | json.loads('"\[]"')
|
| 47 | json.loads('"\m[]"')
|
| 48 | EOF
|
| 49 | m-extensible 'JSON' python3 $tmp
|
| 50 |
|
| 51 |
|
| 52 | # The only metacharacter in Ninja is $, and a literal dollar is $$ (similar
|
| 53 | # to GNU make)
|
| 54 | #
|
| 55 | # You could imagine a matchertext literal as $[ cp $SHELL_VAR_NOT_NINJA_VAR x ]
|
| 56 | #
|
| 57 | # Ninja and GNU make's conflict with shell annoys me
|
| 58 |
|
| 59 | echo foo > _tmp/ninja-in
|
| 60 |
|
| 61 | cat >_tmp/z.ninja <<'EOF'
|
| 62 | rule copy
|
| 63 | command = cp $in $out
|
| 64 |
|
| 65 | build _tmp/out : copy _tmp/ninja-in
|
| 66 |
|
| 67 | build _tmp/$[ : copy _tmp/ninja-in
|
| 68 |
|
| 69 | EOF
|
| 70 | m-extensible 'Ninja' ninja -f _tmp/z.ninja
|
| 71 |
|
| 72 |
|
| 73 | echo foo > _tmp/make-in
|
| 74 |
|
| 75 | cat >_tmp/z.mk <<'EOF'
|
| 76 | _tmp/make-out : _tmp/make-in
|
| 77 | cp $< $@
|
| 78 |
|
| 79 | _tmp/make-out : _tmp/make-in
|
| 80 | cp $[ $< $@
|
| 81 | EOF
|
| 82 | m-extensible 'GNU Make' make -f _tmp/z.mk
|
| 83 |
|
| 84 | cat >$tmp <<'EOF'
|
| 85 | #include <stdio.h>
|
| 86 | int main() {
|
| 87 | printf("\[]\n");
|
| 88 | printf("\m[]\n");
|
| 89 | }
|
| 90 | EOF
|
| 91 | m-extensible 'C' gcc -o /tmp/m $tmp
|
| 92 |
|
| 93 | echo 'Running C'
|
| 94 |
|
| 95 | # See what the output looks like
|
| 96 | chmod +x /tmp/m
|
| 97 | /tmp/m
|
| 98 |
|
| 99 | echo
|
| 100 | echo ---
|
| 101 |
|
| 102 | m-extensible 'Python' python3 -c '
|
| 103 | print("\[]")
|
| 104 | print("\m[]")
|
| 105 | '
|
| 106 |
|
| 107 | m-extensible 'Shell' sh -c '
|
| 108 | echo "\[]"
|
| 109 | echo "\m[]"
|
| 110 | '
|
| 111 |
|
| 112 | # awk has warnings
|
| 113 | echo input | m-extensible 'Awk' awk '
|
| 114 | {
|
| 115 | print("\[]");
|
| 116 | print("\m[]");
|
| 117 | }
|
| 118 | '
|
| 119 |
|
| 120 | m-extensible 'JavaScript' nodejs -e '
|
| 121 | console.log("\[]");
|
| 122 | console.log("\m[]");
|
| 123 | '
|
| 124 | }
|
| 125 |
|
| 126 | "$@"
|