Add a few more characters

pull/70/head
Stephan Seitz 2021-04-18 21:14:29 +07:00
parent 70c3352bbe
commit 9371269661
5 changed files with 107981 additions and 111119 deletions

@ -43,8 +43,8 @@ function srepeat(...args) {
return repeat(seq(...args))
}
function sep1 (rule, separator) {
return seq(rule, repeat(seq(separator, rule)))
function sep1(rule, separator) {
return seq(rule, repeat(seq(separator, rule)))
}
@ -206,7 +206,7 @@ module.exports = grammar(clojure, {
array_dimension: $ => seq($.num_lit, choice('A', 'a')),
char_lit: (_, original) =>
seq(original),
choice(original, /\\[nN]ewline/, /\\[lL]inefeed/, /\\[Ss]pace/, /\\[nN]ull/),
num_lit: (_, original) =>
prec(PREC.NUM_LIT, original),

@ -531,7 +531,7 @@
]
},
"char_lit": {
"type": "SEQ",
"type": "CHOICE",
"members": [
{
"type": "TOKEN",
@ -660,6 +660,22 @@
}
]
}
},
{
"type": "PATTERN",
"value": "\\\\[nN]ewline"
},
{
"type": "PATTERN",
"value": "\\\\[lL]inefeed"
},
{
"type": "PATTERN",
"value": "\\\\[Ss]pace"
},
{
"type": "PATTERN",
"value": "\\\\[nN]ull"
}
]
},
@ -1975,31 +1991,6 @@
}
]
},
{
"type": "SEQ",
"members": [
{
"type": "STRING",
"value": "/"
},
{
"type": "SYMBOL",
"name": "_form"
},
{
"type": "STRING",
"value": "/"
},
{
"type": "SYMBOL",
"name": "_form"
},
{
"type": "PATTERN",
"value": "[tT]"
}
]
},
{
"type": "STRING",
"value": "?"

@ -1505,97 +1505,9 @@
"multiple": true,
"required": false,
"types": [
{
"type": "char_lit",
"named": true
},
{
"type": "complex_num_lit",
"named": true
},
{
"type": "derefing_lit",
"named": true
},
{
"type": "evaling_lit",
"named": true
},
{
"type": "fancy_literal",
"named": true
},
{
"type": "include_reader_macro",
"named": true
},
{
"type": "kwd_lit",
"named": true
},
{
"type": "list_lit",
"named": true
},
{
"type": "nil_lit",
"named": true
},
{
"type": "num_lit",
"named": true
},
{
"type": "package_lit",
"named": true
},
{
"type": "quoting_lit",
"named": true
},
{
"type": "read_cond_lit",
"named": true
},
{
"type": "set_lit",
"named": true
},
{
"type": "splicing_read_cond_lit",
"named": true
},
{
"type": "str_lit",
"named": true
},
{
"type": "sym_lit",
"named": true
},
{
"type": "sym_val_lit",
"named": true
},
{
"type": "syn_quoting_lit",
"named": true
},
{
"type": "unquote_splicing_lit",
"named": true
},
{
"type": "unquoting_lit",
"named": true
},
{
"type": "var_quoting_lit",
"named": true
},
{
"type": "vec_lit",
"named": true
}
]
}
@ -4582,10 +4494,6 @@
"type": ".",
"named": false
},
{
"type": "/",
"named": false
},
{
"type": ":",
"named": false

File diff suppressed because it is too large Load Diff

@ -848,6 +848,10 @@ Format
(format T "~8,0b" 5)
(format T "~v,'0b" 8 5)
(load "~/quicklisp/setup")
2
--------------------------------------------------------------------------------
(source