diff options
| author | Maxime Dénès | 2018-03-09 09:43:14 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2018-03-09 09:43:14 +0100 |
| commit | 2a0538da5e81e21ef05120bba5dd7e25dbf9e6fa (patch) | |
| tree | 7d315b6c9165ebf2b9ba14b6e226b76d4875944e /intf | |
| parent | 1a7415a18879fe086b6f93bc779e254a6dcaed40 (diff) | |
| parent | b16633a5dc044e5d95c73b4c912ec7232f9caf12 (diff) | |
Merge PR #6496: Generate typed generic code from ltac macros
Diffstat (limited to 'intf')
| -rw-r--r-- | intf/extend.ml | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/intf/extend.ml b/intf/extend.ml index 10c9b3dc14..734b859f60 100644 --- a/intf/extend.ml +++ b/intf/extend.ml @@ -85,6 +85,15 @@ type 'a user_symbol = | Uentry of 'a | Uentryl of 'a * int +type ('a,'b,'c) ty_user_symbol = +| TUlist1 : ('a,'b,'c) ty_user_symbol -> ('a list,'b list,'c list) ty_user_symbol +| TUlist1sep : ('a,'b,'c) ty_user_symbol * string -> ('a list,'b list,'c list) ty_user_symbol +| TUlist0 : ('a,'b,'c) ty_user_symbol -> ('a list,'b list,'c list) ty_user_symbol +| TUlist0sep : ('a,'b,'c) ty_user_symbol * string -> ('a list,'b list,'c list) ty_user_symbol +| TUopt : ('a,'b,'c) ty_user_symbol -> ('a option, 'b option, 'c option) ty_user_symbol +| TUentry : ('a, 'b, 'c) Genarg.ArgT.tag -> ('a,'b,'c) ty_user_symbol +| TUentryl : ('a, 'b, 'c) Genarg.ArgT.tag * int -> ('a,'b,'c) ty_user_symbol + (** {5 Type-safe grammar extension} *) type ('self, 'a) symbol = |