UNPKG

paragate

Version:

fast parsers based on Chevrotain

github.com/loveencounterflow/paragate

loveencounterflow/paragate

83 lines (68 loc) • 4.85 kB
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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
'use strict' ############################################################################################################ CND = require 'cnd' rpr = CND.rpr badge = 'PARAGATE/PARSERS/TYPES' debug = CND.get_logger 'debug', badge alert = CND.get_logger 'alert', badge whisper = CND.get_logger 'whisper', badge warn = CND.get_logger 'warn', badge help = CND.get_logger 'help', badge urge = CND.get_logger 'urge', badge info = CND.get_logger 'info', badge jr = JSON.stringify Intertype = ( require 'intertype' ).Intertype intertype = new Intertype module.exports #----------------------------------------------------------------------------------------------------------- @declare 'not_given', ( x ) -> ( x is '' ) or ( not x? ) or ( @isa.nan x ) #----------------------------------------------------------------------------------------------------------- @declare 'paragate_parsers_lexer_token_matcher', tests: "x is a regex, a nonempty_text, or a function": ( x ) -> return true if @isa.regex x return true if @isa.nonempty_text x return true if @isa.function x return false #----------------------------------------------------------------------------------------------------------- @declare 'paragate_parsers_lexer_token_description', tests: "x is an object": ( x ) -> @isa.object x "x.match is a valid token matcher": ( x ) -> @isa.paragate_parsers_lexer_token_matcher x.match "x.push_mode is an optional nonempty_text": ( x ) -> ( not x.push_mode? ) or @isa.nonempty_text x.push_mode "x.switch_mode is an optional nonempty_text": ( x ) -> ( not x.switch_mode? ) or @isa.nonempty_text x.switch_mode "x.pop_mode is an optional boolean": ( x ) -> ( not x.pop_mode? ) or @isa.boolean x.pop_mode "x.line_breaks is an optional boolean": ( x ) -> ( not x.line_breaks? ) or @isa.boolean x.line_breaks "x.group is an optional nonempty_text": ( x ) -> ( not x.group? ) or @isa.nonempty_text x.group # #----------------------------------------------------------------------------------------------------------- # @declare 'pd_nonempty_list_of_positive_integers', ( x ) -> # return false unless @isa.nonempty_list x # return x.every ( xx ) => @isa.positive_integer xx # "x has sigil": ( x ) -> x in '^<>~[]' # #----------------------------------------------------------------------------------------------------------- # @declare 'pd_datom_key', # tests: # "x is a nonempty text": ( x ) -> @isa.nonempty_text x # "x has sigil": ( x ) -> @isa.pd_datom_sigil x[ 0 ] # #----------------------------------------------------------------------------------------------------------- # @declare 'pd_datom', # tests: # "x is a object": ( x ) -> @isa.object x # "x has key 'key'": ( x ) -> @has_key x, 'key' # "x.key is a pd_datom_key": ( x ) -> @isa.pd_datom_key x.key # "x.$stamped is an optional boolean": ( x ) -> ( not x.$stamped? ) or ( @isa.boolean x.$stamped ) # "x.$dirty is an optional boolean": ( x ) -> ( not x.$dirty? ) or ( @isa.boolean x.$dirty ) # "x.$fresh is an optional boolean": ( x ) -> ( not x.$fresh? ) or ( @isa.boolean x.$fresh ) # #....................................................................................................... # "x.$vnr is an optional nonempty list of positive integers": ( x ) -> # ( not x.$vnr? ) or @isa.pd_nonempty_list_of_positive_integers x.$vnr # # "?..$vnr is a ?positive": ( x ) -> ( not x.$vnr? ) or @isa.positive x.$vnr # # "? has key 'vlnr_txt'": ( x ) -> @has_key x, 'vlnr_txt' # # "? has key 'value'": ( x ) -> @has_key x, 'value' # # "?.vlnr_txt is a nonempty text": ( x ) -> @isa.nonempty_text x.vlnr_txt # # "?.vlnr_txt starts, ends with '[]'": ( x ) -> ( x.vlnr_txt.match /^\[.*\]$/ )? # # "?.vlnr_txt is a JSON array of integers": ( x ) -> # # # debug 'µ55589', x # # ( @isa.list ( lst = JSON.parse x.vlnr_txt ) ) and \ # # ( lst.every ( xx ) => ( @isa.integer xx ) and ( @isa.positive xx ) ) # # #----------------------------------------------------------------------------------------------------------- # # @declare 'true', ( x ) -> x is true