1427 lines
52 KiB
Standard ML
1427 lines
52 KiB
Standard ML
functor OfmcFpParserLrValsFun(structure Token : TOKEN)
|
|
: sig structure ParserData : PARSER_DATA
|
|
structure Tokens : OfmcFpParser_TOKENS
|
|
end
|
|
=
|
|
struct
|
|
structure ParserData=
|
|
struct
|
|
structure Header =
|
|
struct
|
|
(*****************************************************************************
|
|
* Isabelle-OFMC --- Connecting OFMC and Isabelle/HOL
|
|
*
|
|
* ofmc-fp.grm ---
|
|
* This file is part of Isabelle-OFMC.
|
|
*
|
|
* Copyright (c) 2009 Achim D. Brucker, Germany
|
|
*
|
|
* All rights reserved.
|
|
*
|
|
* Redistribution and use in source and binary forms, with or without
|
|
* modification, are permitted provided that the following conditions are met:
|
|
*
|
|
* * Redistributions of source code must retain the above copyright notice, this
|
|
* list of conditions and the following disclaimer.
|
|
*
|
|
* * Redistributions in binary form must reproduce the above copyright notice,
|
|
* this list of conditions and the following disclaimer in the documentation
|
|
* and/or other materials provided with the distribution.
|
|
*
|
|
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
|
|
* AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
|
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
|
|
* DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
|
|
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
|
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
|
|
* SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
|
|
* CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
|
|
* OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
|
|
* OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
******************************************************************************)
|
|
|
|
|
|
open OfmcFp
|
|
|
|
fun rmOuterOp (Operator(_,[msg])) = msg
|
|
| rmOuterOp s = s
|
|
|
|
|
|
end
|
|
structure LrTable = Token.LrTable
|
|
structure Token = Token
|
|
local open LrTable in
|
|
val table=let val actionRows =
|
|
"\
|
|
\\001\000\001\000\000\000\000\000\
|
|
\\001\000\002\000\023\000\000\000\
|
|
\\001\000\002\000\023\000\009\000\048\000\000\000\
|
|
\\001\000\002\000\034\000\000\000\
|
|
\\001\000\002\000\038\000\028\000\037\000\000\000\
|
|
\\001\000\002\000\045\000\000\000\
|
|
\\001\000\002\000\060\000\014\000\059\000\000\000\
|
|
\\001\000\002\000\077\000\000\000\
|
|
\\001\000\002\000\107\000\000\000\
|
|
\\001\000\002\000\117\000\000\000\
|
|
\\001\000\003\000\012\000\020\000\011\000\023\000\010\000\032\000\009\000\000\000\
|
|
\\001\000\004\000\069\000\022\000\068\000\031\000\067\000\034\000\066\000\
|
|
\\038\000\065\000\041\000\064\000\000\000\
|
|
\\001\000\005\000\053\000\000\000\
|
|
\\001\000\008\000\043\000\000\000\
|
|
\\001\000\008\000\095\000\017\000\094\000\000\000\
|
|
\\001\000\008\000\115\000\000\000\
|
|
\\001\000\008\000\136\000\017\000\094\000\000\000\
|
|
\\001\000\008\000\143\000\000\000\
|
|
\\001\000\008\000\150\000\000\000\
|
|
\\001\000\009\000\008\000\000\000\
|
|
\\001\000\009\000\013\000\000\000\
|
|
\\001\000\009\000\014\000\000\000\
|
|
\\001\000\009\000\017\000\000\000\
|
|
\\001\000\009\000\019\000\000\000\
|
|
\\001\000\009\000\020\000\000\000\
|
|
\\001\000\009\000\031\000\000\000\
|
|
\\001\000\009\000\051\000\000\000\
|
|
\\001\000\009\000\061\000\000\000\
|
|
\\001\000\012\000\125\000\000\000\
|
|
\\001\000\013\000\081\000\026\000\080\000\000\000\
|
|
\\001\000\013\000\098\000\026\000\097\000\000\000\
|
|
\\001\000\014\000\090\000\015\000\073\000\000\000\
|
|
\\001\000\014\000\096\000\000\000\
|
|
\\001\000\014\000\127\000\000\000\
|
|
\\001\000\015\000\073\000\000\000\
|
|
\\001\000\015\000\091\000\000\000\
|
|
\\001\000\015\000\118\000\000\000\
|
|
\\001\000\015\000\126\000\000\000\
|
|
\\001\000\015\000\128\000\000\000\
|
|
\\001\000\015\000\129\000\000\000\
|
|
\\001\000\015\000\130\000\000\000\
|
|
\\001\000\015\000\131\000\000\000\
|
|
\\001\000\015\000\132\000\000\000\
|
|
\\001\000\015\000\144\000\000\000\
|
|
\\001\000\015\000\148\000\000\000\
|
|
\\001\000\015\000\151\000\000\000\
|
|
\\001\000\017\000\094\000\000\000\
|
|
\\001\000\017\000\134\000\000\000\
|
|
\\001\000\026\000\124\000\000\000\
|
|
\\001\000\026\000\138\000\000\000\
|
|
\\001\000\027\000\016\000\000\000\
|
|
\\001\000\027\000\076\000\000\000\
|
|
\\001\000\027\000\119\000\000\000\
|
|
\\001\000\027\000\142\000\000\000\
|
|
\\001\000\028\000\028\000\000\000\
|
|
\\001\000\028\000\082\000\000\000\
|
|
\\001\000\028\000\083\000\000\000\
|
|
\\001\000\028\000\084\000\000\000\
|
|
\\001\000\028\000\085\000\000\000\
|
|
\\001\000\028\000\086\000\000\000\
|
|
\\001\000\028\000\087\000\000\000\
|
|
\\001\000\029\000\007\000\030\000\006\000\036\000\005\000\040\000\004\000\000\000\
|
|
\\001\000\035\000\018\000\000\000\
|
|
\\001\000\037\000\088\000\000\000\
|
|
\\001\000\039\000\030\000\000\000\
|
|
\\153\000\000\000\
|
|
\\154\000\029\000\007\000\030\000\006\000\036\000\005\000\040\000\004\000\000\000\
|
|
\\155\000\000\000\
|
|
\\156\000\029\000\007\000\030\000\006\000\036\000\005\000\040\000\004\000\000\000\
|
|
\\157\000\000\000\
|
|
\\158\000\029\000\007\000\030\000\006\000\036\000\005\000\040\000\004\000\000\000\
|
|
\\159\000\000\000\
|
|
\\160\000\029\000\007\000\030\000\006\000\036\000\005\000\040\000\004\000\000\000\
|
|
\\161\000\000\000\
|
|
\\162\000\029\000\007\000\030\000\006\000\036\000\005\000\040\000\004\000\000\000\
|
|
\\163\000\000\000\
|
|
\\164\000\029\000\007\000\030\000\006\000\036\000\005\000\040\000\004\000\000\000\
|
|
\\165\000\000\000\
|
|
\\166\000\029\000\007\000\030\000\006\000\036\000\005\000\040\000\004\000\000\000\
|
|
\\167\000\002\000\038\000\028\000\037\000\000\000\
|
|
\\168\000\000\000\
|
|
\\169\000\039\000\030\000\000\000\
|
|
\\170\000\000\000\
|
|
\\171\000\039\000\030\000\000\000\
|
|
\\172\000\000\000\
|
|
\\173\000\039\000\030\000\000\000\
|
|
\\174\000\000\000\
|
|
\\175\000\039\000\030\000\000\000\
|
|
\\176\000\000\000\
|
|
\\177\000\002\000\034\000\000\000\
|
|
\\178\000\000\000\
|
|
\\179\000\037\000\079\000\000\000\
|
|
\\180\000\000\000\
|
|
\\181\000\000\000\
|
|
\\182\000\000\000\
|
|
\\183\000\000\000\
|
|
\\184\000\000\000\
|
|
\\185\000\000\000\
|
|
\\186\000\000\000\
|
|
\\187\000\037\000\123\000\000\000\
|
|
\\188\000\000\000\
|
|
\\189\000\000\000\
|
|
\\190\000\014\000\090\000\000\000\
|
|
\\191\000\000\000\
|
|
\\192\000\002\000\038\000\028\000\056\000\000\000\
|
|
\\193\000\000\000\
|
|
\\194\000\000\000\
|
|
\\195\000\000\000\
|
|
\\196\000\000\000\
|
|
\\197\000\000\000\
|
|
\\198\000\000\000\
|
|
\\199\000\037\000\089\000\000\000\
|
|
\\200\000\000\000\
|
|
\\201\000\000\000\
|
|
\\202\000\014\000\044\000\000\000\
|
|
\\203\000\000\000\
|
|
\\204\000\000\000\
|
|
\\205\000\000\000\
|
|
\\206\000\000\000\
|
|
\\207\000\000\000\
|
|
\\208\000\014\000\116\000\000\000\
|
|
\\209\000\000\000\
|
|
\\210\000\002\000\023\000\006\000\041\000\000\000\
|
|
\\211\000\000\000\
|
|
\\212\000\000\000\
|
|
\\213\000\000\000\
|
|
\"
|
|
val actionRowNumbers =
|
|
"\061\000\065\000\019\000\010\000\
|
|
\\020\000\021\000\050\000\022\000\
|
|
\\062\000\023\000\024\000\001\000\
|
|
\\001\000\070\000\054\000\064\000\
|
|
\\025\000\003\000\079\000\068\000\
|
|
\\122\000\110\000\066\000\071\000\
|
|
\\013\000\114\000\005\000\074\000\
|
|
\\002\000\003\000\076\000\026\000\
|
|
\\109\000\078\000\012\000\004\000\
|
|
\\104\000\069\000\123\000\001\000\
|
|
\\067\000\113\000\054\000\006\000\
|
|
\\075\000\027\000\011\000\072\000\
|
|
\\077\000\011\000\080\000\004\000\
|
|
\\034\000\106\000\004\000\124\000\
|
|
\\115\000\051\000\007\000\011\000\
|
|
\\091\000\029\000\055\000\056\000\
|
|
\\057\000\058\000\059\000\060\000\
|
|
\\073\000\063\000\111\000\107\000\
|
|
\\031\000\035\000\014\000\032\000\
|
|
\\030\000\011\000\011\000\004\000\
|
|
\\004\000\008\000\004\000\004\000\
|
|
\\004\000\004\000\089\000\004\000\
|
|
\\004\000\105\000\015\000\120\000\
|
|
\\009\000\036\000\052\000\011\000\
|
|
\\004\000\092\000\081\000\099\000\
|
|
\\048\000\028\000\102\000\037\000\
|
|
\\033\000\108\000\038\000\039\000\
|
|
\\040\000\041\000\090\000\112\000\
|
|
\\103\000\042\000\046\000\047\000\
|
|
\\118\000\016\000\085\000\049\000\
|
|
\\082\000\004\000\011\000\004\000\
|
|
\\097\000\053\000\096\000\098\000\
|
|
\\094\000\095\000\116\000\121\000\
|
|
\\125\000\017\000\043\000\086\000\
|
|
\\011\000\100\000\083\000\101\000\
|
|
\\004\000\044\000\119\000\087\000\
|
|
\\084\000\018\000\117\000\088\000\
|
|
\\045\000\093\000\000\000"
|
|
val gotoT =
|
|
"\
|
|
\\001\000\150\000\002\000\001\000\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\020\000\013\000\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\003\000\020\000\017\000\019\000\000\000\
|
|
\\003\000\022\000\000\000\
|
|
\\002\000\023\000\000\000\
|
|
\\018\000\025\000\019\000\024\000\000\000\
|
|
\\013\000\027\000\000\000\
|
|
\\000\000\
|
|
\\005\000\031\000\008\000\030\000\000\000\
|
|
\\007\000\034\000\014\000\033\000\000\000\
|
|
\\002\000\037\000\000\000\
|
|
\\003\000\020\000\017\000\038\000\000\000\
|
|
\\000\000\
|
|
\\002\000\040\000\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\002\000\044\000\000\000\
|
|
\\003\000\045\000\000\000\
|
|
\\005\000\031\000\008\000\047\000\000\000\
|
|
\\002\000\048\000\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\002\000\050\000\000\000\
|
|
\\000\000\
|
|
\\007\000\052\000\000\000\
|
|
\\007\000\053\000\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\003\000\020\000\017\000\055\000\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\018\000\025\000\019\000\056\000\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\009\000\061\000\010\000\060\000\000\000\
|
|
\\002\000\068\000\000\000\
|
|
\\000\000\
|
|
\\010\000\069\000\000\000\
|
|
\\000\000\
|
|
\\007\000\070\000\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\006\000\073\000\007\000\072\000\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\009\000\076\000\010\000\060\000\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\015\000\091\000\016\000\090\000\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\009\000\097\000\010\000\060\000\000\000\
|
|
\\009\000\098\000\010\000\060\000\000\000\
|
|
\\007\000\101\000\011\000\100\000\012\000\099\000\000\000\
|
|
\\006\000\103\000\007\000\102\000\000\000\
|
|
\\004\000\104\000\000\000\
|
|
\\006\000\106\000\007\000\102\000\000\000\
|
|
\\006\000\107\000\007\000\102\000\000\000\
|
|
\\007\000\108\000\000\000\
|
|
\\007\000\109\000\000\000\
|
|
\\005\000\031\000\008\000\110\000\000\000\
|
|
\\007\000\034\000\014\000\111\000\000\000\
|
|
\\006\000\112\000\007\000\102\000\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\009\000\118\000\010\000\060\000\000\000\
|
|
\\007\000\101\000\011\000\119\000\012\000\099\000\000\000\
|
|
\\000\000\
|
|
\\013\000\120\000\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\015\000\091\000\016\000\131\000\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\015\000\091\000\016\000\133\000\000\000\
|
|
\\013\000\135\000\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\007\000\101\000\011\000\137\000\012\000\099\000\000\000\
|
|
\\009\000\138\000\010\000\060\000\000\000\
|
|
\\007\000\139\000\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\009\000\143\000\010\000\060\000\000\000\
|
|
\\000\000\
|
|
\\013\000\144\000\000\000\
|
|
\\000\000\
|
|
\\006\000\145\000\007\000\102\000\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\013\000\147\000\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\\000\000\
|
|
\"
|
|
val numstates = 151
|
|
val numrules = 61
|
|
val s = ref "" and index = ref 0
|
|
val string_to_int = fn () =>
|
|
let val i = !index
|
|
in index := i+2; Char.ord(String.sub(!s,i)) + Char.ord(String.sub(!s,i+1)) * 256
|
|
end
|
|
val string_to_list = fn s' =>
|
|
let val len = String.size s'
|
|
fun f () =
|
|
if !index < len then string_to_int() :: f()
|
|
else nil
|
|
in index := 0; s := s'; f ()
|
|
end
|
|
val string_to_pairlist = fn (conv_key,conv_entry) =>
|
|
let fun f () =
|
|
case string_to_int()
|
|
of 0 => EMPTY
|
|
| n => PAIR(conv_key (n-1),conv_entry (string_to_int()),f())
|
|
in f
|
|
end
|
|
val string_to_pairlist_default = fn (conv_key,conv_entry) =>
|
|
let val conv_row = string_to_pairlist(conv_key,conv_entry)
|
|
in fn () =>
|
|
let val default = conv_entry(string_to_int())
|
|
val row = conv_row()
|
|
in (row,default)
|
|
end
|
|
end
|
|
val string_to_table = fn (convert_row,s') =>
|
|
let val len = String.size s'
|
|
fun f ()=
|
|
if !index < len then convert_row() :: f()
|
|
else nil
|
|
in (s := s'; index := 0; f ())
|
|
end
|
|
local
|
|
val memo = Array.array(numstates+numrules,ERROR)
|
|
val _ =let fun g i=(Array.update(memo,i,REDUCE(i-numstates)); g(i+1))
|
|
fun f i =
|
|
if i=numstates then g i
|
|
else (Array.update(memo,i,SHIFT (STATE i)); f (i+1))
|
|
in f 0 handle Subscript => ()
|
|
end
|
|
in
|
|
val entry_to_action = fn 0 => ACCEPT | 1 => ERROR | j => Array.sub(memo,(j-2))
|
|
end
|
|
val gotoT=Array.fromList(string_to_table(string_to_pairlist(NT,STATE),gotoT))
|
|
val actionRows=string_to_table(string_to_pairlist_default(T,entry_to_action),actionRows)
|
|
val actionRowNumbers = string_to_list actionRowNumbers
|
|
val actionT = let val actionRowLookUp=
|
|
let val a=Array.fromList(actionRows) in fn i=>Array.sub(a,i) end
|
|
in Array.fromList(map actionRowLookUp actionRowNumbers)
|
|
end
|
|
in LrTable.mkLrTable {actions=actionT,gotos=gotoT,numRules=numrules,
|
|
numStates=numstates,initialState=STATE 0}
|
|
end
|
|
end
|
|
local open Header in
|
|
type pos = ( int * int * int )
|
|
type arg = unit
|
|
structure MlyValue =
|
|
struct
|
|
datatype svalue = VOID | ntVOID of unit -> unit
|
|
| TXOR of unit -> (string) | TWITNESS of unit -> (string)
|
|
| TTYPES of unit -> (string) | TSTEP of unit -> (string)
|
|
| TSTATE of unit -> (string) | TSEMICOLON of unit -> (string)
|
|
| TSECTION of unit -> (string) | TSECSTATE of unit -> (string)
|
|
| TSECRET of unit -> (string) | TSCRYPT of unit -> (string)
|
|
| TRULES of unit -> (string) | TREQUEST of unit -> (string)
|
|
| TBACKEND of unit -> (string) | TPROTOCOL of unit -> (string)
|
|
| TOPAREN of unit -> (string) | TOBRACKET of unit -> (string)
|
|
| TMETAIMPLIES of unit -> (string) | TKNOWLEDGE of unit -> (string)
|
|
| TINV of unit -> (string) | TINITIAL of unit -> (string)
|
|
| TIKNOWS of unit -> (string) | TFPState of unit -> (string)
|
|
| TFIXEDPOINT of unit -> (string) | TFACT of unit -> (string)
|
|
| TEXP of unit -> (string) | TQUOTE of unit -> (string)
|
|
| TCRYPT of unit -> (string) | TCPAREN of unit -> (string)
|
|
| TCOMMA of unit -> (string) | TBAR of unit -> (string)
|
|
| TNEQ of unit -> (string) | TEQ of unit -> (string)
|
|
| TWHITESPACE of unit -> (string) | TCOLON of unit -> (string)
|
|
| TCBRACKET of unit -> (string) | TCAT of unit -> (string)
|
|
| TMINUS of unit -> (string) | TARROW of unit -> (string)
|
|
| TATTACK of unit -> (string) | TABSTRACTION of unit -> (string)
|
|
| SIMPLE_NAME of unit -> (string)
|
|
| types of unit -> ( ( string * (string list) ) list)
|
|
| typlist of unit -> ( ( string * (string list) ) list)
|
|
| typ of unit -> (string* ( string list ) )
|
|
| simple_names of unit -> (string)
|
|
| typnames of unit -> (string list) | typname of unit -> (string)
|
|
| abstractions of unit -> ( ( Msg * Msg ) list)
|
|
| rules of unit -> (Rule list) | nfact of unit -> (Fact)
|
|
| nfacts of unit -> (Fact list) | fact of unit -> (Fact)
|
|
| facts of unit -> (Fact list)
|
|
| knowledge of unit -> ( ( string * Fact ) list)
|
|
| msg of unit -> (Msg) | msglist of unit -> (Msg list)
|
|
| factname of unit -> (string) | role of unit -> (string)
|
|
| simple_name of unit -> (string) | ofmc_fp of unit -> (ofmc_fp)
|
|
| START of unit -> (ofmc_fp)
|
|
end
|
|
type svalue = MlyValue.svalue
|
|
type result = ofmc_fp
|
|
end
|
|
structure EC=
|
|
struct
|
|
open LrTable
|
|
infix 5 $$
|
|
fun x $$ y = y::x
|
|
val is_keyword =
|
|
fn _ => false
|
|
val preferred_change : (term list * term list) list =
|
|
nil
|
|
val noShift =
|
|
fn (T 0) => true | _ => false
|
|
val showTerminal =
|
|
fn (T 0) => "EOF"
|
|
| (T 1) => "SIMPLE_NAME"
|
|
| (T 2) => "TABSTRACTION"
|
|
| (T 3) => "TATTACK"
|
|
| (T 4) => "TARROW"
|
|
| (T 5) => "TMINUS"
|
|
| (T 6) => "TCAT"
|
|
| (T 7) => "TCBRACKET"
|
|
| (T 8) => "TCOLON"
|
|
| (T 9) => "TWHITESPACE"
|
|
| (T 10) => "TEQ"
|
|
| (T 11) => "TNEQ"
|
|
| (T 12) => "TBAR"
|
|
| (T 13) => "TCOMMA"
|
|
| (T 14) => "TCPAREN"
|
|
| (T 15) => "TCRYPT"
|
|
| (T 16) => "TQUOTE"
|
|
| (T 17) => "TEXP"
|
|
| (T 18) => "TFACT"
|
|
| (T 19) => "TFIXEDPOINT"
|
|
| (T 20) => "TFPState"
|
|
| (T 21) => "TIKNOWS"
|
|
| (T 22) => "TINITIAL"
|
|
| (T 23) => "TINV"
|
|
| (T 24) => "TKNOWLEDGE"
|
|
| (T 25) => "TMETAIMPLIES"
|
|
| (T 26) => "TOBRACKET"
|
|
| (T 27) => "TOPAREN"
|
|
| (T 28) => "TPROTOCOL"
|
|
| (T 29) => "TBACKEND"
|
|
| (T 30) => "TREQUEST"
|
|
| (T 31) => "TRULES"
|
|
| (T 32) => "TSCRYPT"
|
|
| (T 33) => "TSECRET"
|
|
| (T 34) => "TSECSTATE"
|
|
| (T 35) => "TSECTION"
|
|
| (T 36) => "TSEMICOLON"
|
|
| (T 37) => "TSTATE"
|
|
| (T 38) => "TSTEP"
|
|
| (T 39) => "TTYPES"
|
|
| (T 40) => "TWITNESS"
|
|
| (T 41) => "TXOR"
|
|
| _ => "bogus-term"
|
|
local open Header in
|
|
val errtermvalue=
|
|
fn _ => MlyValue.VOID
|
|
end
|
|
val terms : term list = nil
|
|
$$ (T 0)end
|
|
structure Actions =
|
|
struct
|
|
exception mlyAction of int
|
|
local open Header in
|
|
val actions =
|
|
fn (i392,defaultPos,stack,
|
|
(()):arg) =>
|
|
case (i392,stack)
|
|
of ( 0, ( ( _, ( MlyValue.ofmc_fp ofmc_fp1, ofmc_fp1left,
|
|
ofmc_fp1right)) :: rest671)) => let val result = MlyValue.START (fn _
|
|
=> let val (ofmc_fp as ofmc_fp1) = ofmc_fp1 ()
|
|
in (ofmc_fp)
|
|
end)
|
|
in ( LrTable.NT 0, ( result, ofmc_fp1left, ofmc_fp1right), rest671)
|
|
|
|
end
|
|
| ( 1, ( ( _, ( MlyValue.simple_name simple_name1, _,
|
|
simple_name1right)) :: ( _, ( MlyValue.TCOLON TCOLON1, _, _)) :: ( _,
|
|
( MlyValue.TPROTOCOL TPROTOCOL1, TPROTOCOL1left, _)) :: rest671)) =>
|
|
let val result = MlyValue.ofmc_fp (fn _ => let val TPROTOCOL1 =
|
|
TPROTOCOL1 ()
|
|
val TCOLON1 = TCOLON1 ()
|
|
val (simple_name as simple_name1) = simple_name1 ()
|
|
in (update_protocol simple_name empty_ofmc_fp)
|
|
end)
|
|
in ( LrTable.NT 1, ( result, TPROTOCOL1left, simple_name1right),
|
|
rest671)
|
|
end
|
|
| ( 2, ( ( _, ( MlyValue.ofmc_fp ofmc_fp1, _, ofmc_fp1right)) :: ( _,
|
|
( MlyValue.simple_name simple_name1, _, _)) :: ( _, ( MlyValue.TCOLON
|
|
TCOLON1, _, _)) :: ( _, ( MlyValue.TPROTOCOL TPROTOCOL1,
|
|
TPROTOCOL1left, _)) :: rest671)) => let val result = MlyValue.ofmc_fp
|
|
(fn _ => let val TPROTOCOL1 = TPROTOCOL1 ()
|
|
val TCOLON1 = TCOLON1 ()
|
|
val (simple_name as simple_name1) = simple_name1 ()
|
|
val (ofmc_fp as ofmc_fp1) = ofmc_fp1 ()
|
|
in (update_protocol simple_name ofmc_fp)
|
|
end)
|
|
in ( LrTable.NT 1, ( result, TPROTOCOL1left, ofmc_fp1right), rest671)
|
|
|
|
end
|
|
| ( 3, ( ( _, ( MlyValue.simple_names simple_names1, _,
|
|
simple_names1right)) :: ( _, ( MlyValue.TCOLON TCOLON1, _, _)) :: ( _,
|
|
( MlyValue.TBACKEND TBACKEND1, TBACKEND1left, _)) :: rest671)) => let
|
|
val result = MlyValue.ofmc_fp (fn _ => let val TBACKEND1 =
|
|
TBACKEND1 ()
|
|
val TCOLON1 = TCOLON1 ()
|
|
val (simple_names as simple_names1) = simple_names1 ()
|
|
in (update_backend simple_names empty_ofmc_fp)
|
|
end)
|
|
in ( LrTable.NT 1, ( result, TBACKEND1left, simple_names1right),
|
|
rest671)
|
|
end
|
|
| ( 4, ( ( _, ( MlyValue.ofmc_fp ofmc_fp1, _, ofmc_fp1right)) :: ( _,
|
|
( MlyValue.simple_names simple_names1, _, _)) :: ( _, (
|
|
MlyValue.TCOLON TCOLON1, _, _)) :: ( _, ( MlyValue.TBACKEND TBACKEND1,
|
|
TBACKEND1left, _)) :: rest671)) => let val result = MlyValue.ofmc_fp
|
|
(fn _ => let val TBACKEND1 = TBACKEND1 ()
|
|
val TCOLON1 = TCOLON1 ()
|
|
val (simple_names as simple_names1) = simple_names1 ()
|
|
val (ofmc_fp as ofmc_fp1) = ofmc_fp1 ()
|
|
in (update_backend simple_names ofmc_fp)
|
|
end)
|
|
in ( LrTable.NT 1, ( result, TBACKEND1left, ofmc_fp1right), rest671)
|
|
|
|
end
|
|
| ( 5, ( ( _, ( MlyValue.types types1, _, types1right)) :: ( _, (
|
|
MlyValue.TCOLON TCOLON1, _, _)) :: ( _, ( MlyValue.TTYPES TTYPES1,
|
|
TTYPES1left, _)) :: rest671)) => let val result = MlyValue.ofmc_fp
|
|
(fn _ => let val TTYPES1 = TTYPES1 ()
|
|
val TCOLON1 = TCOLON1 ()
|
|
val (types as types1) = types1 ()
|
|
in (update_types ((types_of empty_ofmc_fp)@types) empty_ofmc_fp)
|
|
end)
|
|
in ( LrTable.NT 1, ( result, TTYPES1left, types1right), rest671)
|
|
end
|
|
| ( 6, ( ( _, ( MlyValue.ofmc_fp ofmc_fp1, _, ofmc_fp1right)) :: ( _,
|
|
( MlyValue.types types1, _, _)) :: ( _, ( MlyValue.TCOLON TCOLON1, _,
|
|
_)) :: ( _, ( MlyValue.TTYPES TTYPES1, TTYPES1left, _)) :: rest671))
|
|
=> let val result = MlyValue.ofmc_fp (fn _ => let val TTYPES1 =
|
|
TTYPES1 ()
|
|
val TCOLON1 = TCOLON1 ()
|
|
val (types as types1) = types1 ()
|
|
val (ofmc_fp as ofmc_fp1) = ofmc_fp1 ()
|
|
in (update_types ((types_of ofmc_fp)@types) ofmc_fp)
|
|
end)
|
|
in ( LrTable.NT 1, ( result, TTYPES1left, ofmc_fp1right), rest671)
|
|
|
|
end
|
|
| ( 7, ( ( _, ( MlyValue.knowledge knowledge1, _, knowledge1right))
|
|
:: ( _, ( MlyValue.TCOLON TCOLON1, _, _)) :: ( _, (
|
|
MlyValue.TSECSTATE TSECSTATE1, _, _)) :: ( _, ( MlyValue.TINITIAL
|
|
TINITIAL1, _, _)) :: ( _, ( MlyValue.TSECTION TSECTION1, TSECTION1left
|
|
, _)) :: rest671)) => let val result = MlyValue.ofmc_fp (fn _ => let
|
|
val TSECTION1 = TSECTION1 ()
|
|
val TINITIAL1 = TINITIAL1 ()
|
|
val TSECSTATE1 = TSECSTATE1 ()
|
|
val TCOLON1 = TCOLON1 ()
|
|
val (knowledge as knowledge1) = knowledge1 ()
|
|
in (update_knowledge knowledge empty_ofmc_fp)
|
|
end)
|
|
in ( LrTable.NT 1, ( result, TSECTION1left, knowledge1right), rest671
|
|
)
|
|
end
|
|
| ( 8, ( ( _, ( MlyValue.ofmc_fp ofmc_fp1, _, ofmc_fp1right)) :: ( _,
|
|
( MlyValue.knowledge knowledge1, _, _)) :: ( _, ( MlyValue.TCOLON
|
|
TCOLON1, _, _)) :: ( _, ( MlyValue.TSECSTATE TSECSTATE1, _, _)) :: ( _
|
|
, ( MlyValue.TINITIAL TINITIAL1, _, _)) :: ( _, ( MlyValue.TSECTION
|
|
TSECTION1, TSECTION1left, _)) :: rest671)) => let val result =
|
|
MlyValue.ofmc_fp (fn _ => let val TSECTION1 = TSECTION1 ()
|
|
val TINITIAL1 = TINITIAL1 ()
|
|
val TSECSTATE1 = TSECSTATE1 ()
|
|
val TCOLON1 = TCOLON1 ()
|
|
val (knowledge as knowledge1) = knowledge1 ()
|
|
val (ofmc_fp as ofmc_fp1) = ofmc_fp1 ()
|
|
in (update_knowledge knowledge ofmc_fp)
|
|
end)
|
|
in ( LrTable.NT 1, ( result, TSECTION1left, ofmc_fp1right), rest671)
|
|
|
|
end
|
|
| ( 9, ( ( _, ( MlyValue.rules rules1, _, rules1right)) :: ( _, (
|
|
MlyValue.TCOLON TCOLON1, _, _)) :: ( _, ( MlyValue.TRULES TRULES1, _,
|
|
_)) :: ( _, ( MlyValue.TSECTION TSECTION1, TSECTION1left, _)) ::
|
|
rest671)) => let val result = MlyValue.ofmc_fp (fn _ => let val
|
|
TSECTION1 = TSECTION1 ()
|
|
val TRULES1 = TRULES1 ()
|
|
val TCOLON1 = TCOLON1 ()
|
|
val (rules as rules1) = rules1 ()
|
|
in (update_rules rules empty_ofmc_fp)
|
|
end)
|
|
in ( LrTable.NT 1, ( result, TSECTION1left, rules1right), rest671)
|
|
|
|
end
|
|
| ( 10, ( ( _, ( MlyValue.ofmc_fp ofmc_fp1, _, ofmc_fp1right)) :: ( _
|
|
, ( MlyValue.rules rules1, _, _)) :: ( _, ( MlyValue.TCOLON TCOLON1, _
|
|
, _)) :: ( _, ( MlyValue.TRULES TRULES1, _, _)) :: ( _, (
|
|
MlyValue.TSECTION TSECTION1, TSECTION1left, _)) :: rest671)) => let
|
|
val result = MlyValue.ofmc_fp (fn _ => let val TSECTION1 =
|
|
TSECTION1 ()
|
|
val TRULES1 = TRULES1 ()
|
|
val TCOLON1 = TCOLON1 ()
|
|
val (rules as rules1) = rules1 ()
|
|
val (ofmc_fp as ofmc_fp1) = ofmc_fp1 ()
|
|
in (update_rules rules ofmc_fp)
|
|
end)
|
|
in ( LrTable.NT 1, ( result, TSECTION1left, ofmc_fp1right), rest671)
|
|
|
|
end
|
|
| ( 11, ( ( _, ( MlyValue.knowledge knowledge1, _, knowledge1right))
|
|
:: ( _, ( MlyValue.TCOLON TCOLON1, _, _)) :: ( _, (
|
|
MlyValue.TFIXEDPOINT TFIXEDPOINT1, _, _)) :: ( _, ( MlyValue.TSECTION
|
|
TSECTION1, TSECTION1left, _)) :: rest671)) => let val result =
|
|
MlyValue.ofmc_fp (fn _ => let val TSECTION1 = TSECTION1 ()
|
|
val TFIXEDPOINT1 = TFIXEDPOINT1 ()
|
|
val TCOLON1 = TCOLON1 ()
|
|
val (knowledge as knowledge1) = knowledge1 ()
|
|
in (update_fixedpoint knowledge empty_ofmc_fp)
|
|
end)
|
|
in ( LrTable.NT 1, ( result, TSECTION1left, knowledge1right), rest671
|
|
)
|
|
end
|
|
| ( 12, ( ( _, ( MlyValue.ofmc_fp ofmc_fp1, _, ofmc_fp1right)) :: ( _
|
|
, ( MlyValue.knowledge knowledge1, _, _)) :: ( _, ( MlyValue.TCOLON
|
|
TCOLON1, _, _)) :: ( _, ( MlyValue.TFIXEDPOINT TFIXEDPOINT1, _, _)) ::
|
|
( _, ( MlyValue.TSECTION TSECTION1, TSECTION1left, _)) :: rest671))
|
|
=> let val result = MlyValue.ofmc_fp (fn _ => let val TSECTION1 =
|
|
TSECTION1 ()
|
|
val TFIXEDPOINT1 = TFIXEDPOINT1 ()
|
|
val TCOLON1 = TCOLON1 ()
|
|
val (knowledge as knowledge1) = knowledge1 ()
|
|
val (ofmc_fp as ofmc_fp1) = ofmc_fp1 ()
|
|
in (update_fixedpoint knowledge ofmc_fp)
|
|
end)
|
|
in ( LrTable.NT 1, ( result, TSECTION1left, ofmc_fp1right), rest671)
|
|
|
|
end
|
|
| ( 13, ( ( _, ( MlyValue.abstractions abstractions1, _,
|
|
abstractions1right)) :: ( _, ( MlyValue.TCOLON TCOLON1, _, _)) :: ( _,
|
|
( MlyValue.TABSTRACTION TABSTRACTION1, _, _)) :: ( _, (
|
|
MlyValue.TSECTION TSECTION1, TSECTION1left, _)) :: rest671)) => let
|
|
val result = MlyValue.ofmc_fp (fn _ => let val TSECTION1 =
|
|
TSECTION1 ()
|
|
val TABSTRACTION1 = TABSTRACTION1 ()
|
|
val TCOLON1 = TCOLON1 ()
|
|
val (abstractions as abstractions1) = abstractions1 ()
|
|
in (
|
|
update_abstractions ((abstractions_of empty_ofmc_fp )@abstractions) empty_ofmc_fp
|
|
)
|
|
end)
|
|
in ( LrTable.NT 1, ( result, TSECTION1left, abstractions1right),
|
|
rest671)
|
|
end
|
|
| ( 14, ( ( _, ( MlyValue.TCOLON TCOLON1, _, TCOLON1right)) :: ( _, (
|
|
MlyValue.TABSTRACTION TABSTRACTION1, _, _)) :: ( _, (
|
|
MlyValue.TSECTION TSECTION1, TSECTION1left, _)) :: rest671)) => let
|
|
val result = MlyValue.ofmc_fp (fn _ => let val TSECTION1 =
|
|
TSECTION1 ()
|
|
val TABSTRACTION1 = TABSTRACTION1 ()
|
|
val TCOLON1 = TCOLON1 ()
|
|
in (
|
|
update_abstractions ((abstractions_of empty_ofmc_fp )@[]) empty_ofmc_fp
|
|
)
|
|
end)
|
|
in ( LrTable.NT 1, ( result, TSECTION1left, TCOLON1right), rest671)
|
|
|
|
end
|
|
| ( 15, ( ( _, ( MlyValue.ofmc_fp ofmc_fp1, _, ofmc_fp1right)) :: ( _
|
|
, ( MlyValue.abstractions abstractions1, _, _)) :: ( _, (
|
|
MlyValue.TCOLON TCOLON1, _, _)) :: ( _, ( MlyValue.TABSTRACTION
|
|
TABSTRACTION1, _, _)) :: ( _, ( MlyValue.TSECTION TSECTION1,
|
|
TSECTION1left, _)) :: rest671)) => let val result = MlyValue.ofmc_fp
|
|
(fn _ => let val TSECTION1 = TSECTION1 ()
|
|
val TABSTRACTION1 = TABSTRACTION1 ()
|
|
val TCOLON1 = TCOLON1 ()
|
|
val (abstractions as abstractions1) = abstractions1 ()
|
|
val (ofmc_fp as ofmc_fp1) = ofmc_fp1 ()
|
|
in (
|
|
update_abstractions ((abstractions_of ofmc_fp)@abstractions) ofmc_fp)
|
|
|
|
end)
|
|
in ( LrTable.NT 1, ( result, TSECTION1left, ofmc_fp1right), rest671)
|
|
|
|
end
|
|
| ( 16, ( ( _, ( MlyValue.facts facts2, _, facts2right)) :: ( _, (
|
|
MlyValue.TMETAIMPLIES TMETAIMPLIES1, _, _)) :: ( _, ( MlyValue.facts
|
|
facts1, _, _)) :: ( _, ( MlyValue.TCOLON TCOLON1, _, _)) :: ( _, (
|
|
MlyValue.TSTEP TSTEP1, TSTEP1left, _)) :: rest671)) => let val result
|
|
= MlyValue.rules (fn _ => let val TSTEP1 = TSTEP1 ()
|
|
val TCOLON1 = TCOLON1 ()
|
|
val facts1 = facts1 ()
|
|
val TMETAIMPLIES1 = TMETAIMPLIES1 ()
|
|
val facts2 = facts2 ()
|
|
in ([(NONE, facts1, facts2)])
|
|
end)
|
|
in ( LrTable.NT 12, ( result, TSTEP1left, facts2right), rest671)
|
|
end
|
|
| ( 17, ( ( _, ( MlyValue.rules rules1, _, rules1right)) :: ( _, (
|
|
MlyValue.facts facts2, _, _)) :: ( _, ( MlyValue.TMETAIMPLIES
|
|
TMETAIMPLIES1, _, _)) :: ( _, ( MlyValue.facts facts1, _, _)) :: ( _,
|
|
( MlyValue.TCOLON TCOLON1, _, _)) :: ( _, ( MlyValue.TSTEP TSTEP1,
|
|
TSTEP1left, _)) :: rest671)) => let val result = MlyValue.rules (fn _
|
|
=> let val TSTEP1 = TSTEP1 ()
|
|
val TCOLON1 = TCOLON1 ()
|
|
val facts1 = facts1 ()
|
|
val TMETAIMPLIES1 = TMETAIMPLIES1 ()
|
|
val facts2 = facts2 ()
|
|
val (rules as rules1) = rules1 ()
|
|
in ((NONE, facts1, facts2)::rules)
|
|
end)
|
|
in ( LrTable.NT 12, ( result, TSTEP1left, rules1right), rest671)
|
|
end
|
|
| ( 18, ( ( _, ( MlyValue.facts facts2, _, facts2right)) :: ( _, (
|
|
MlyValue.TMETAIMPLIES TMETAIMPLIES1, _, _)) :: ( _, ( MlyValue.nfacts
|
|
nfacts1, _, _)) :: ( _, ( MlyValue.TBAR TBAR1, _, _)) :: ( _, (
|
|
MlyValue.facts facts1, _, _)) :: ( _, ( MlyValue.TCOLON TCOLON1, _, _)
|
|
) :: ( _, ( MlyValue.TSTEP TSTEP1, TSTEP1left, _)) :: rest671)) => let
|
|
val result = MlyValue.rules (fn _ => let val TSTEP1 = TSTEP1 ()
|
|
val TCOLON1 = TCOLON1 ()
|
|
val (facts as facts1) = facts1 ()
|
|
val TBAR1 = TBAR1 ()
|
|
val (nfacts as nfacts1) = nfacts1 ()
|
|
val TMETAIMPLIES1 = TMETAIMPLIES1 ()
|
|
val facts2 = facts2 ()
|
|
in ([(NONE, facts1@nfacts, facts)])
|
|
end)
|
|
in ( LrTable.NT 12, ( result, TSTEP1left, facts2right), rest671)
|
|
end
|
|
| ( 19, ( ( _, ( MlyValue.rules rules1, _, rules1right)) :: ( _, (
|
|
MlyValue.facts facts2, _, _)) :: ( _, ( MlyValue.TMETAIMPLIES
|
|
TMETAIMPLIES1, _, _)) :: ( _, ( MlyValue.nfacts nfacts1, _, _)) :: ( _
|
|
, ( MlyValue.TBAR TBAR1, _, _)) :: ( _, ( MlyValue.facts facts1, _, _)
|
|
) :: ( _, ( MlyValue.TCOLON TCOLON1, _, _)) :: ( _, ( MlyValue.TSTEP
|
|
TSTEP1, TSTEP1left, _)) :: rest671)) => let val result =
|
|
MlyValue.rules (fn _ => let val TSTEP1 = TSTEP1 ()
|
|
val TCOLON1 = TCOLON1 ()
|
|
val (facts as facts1) = facts1 ()
|
|
val TBAR1 = TBAR1 ()
|
|
val (nfacts as nfacts1) = nfacts1 ()
|
|
val TMETAIMPLIES1 = TMETAIMPLIES1 ()
|
|
val facts2 = facts2 ()
|
|
val (rules as rules1) = rules1 ()
|
|
in ((NONE, facts1@nfacts, facts)::rules)
|
|
end)
|
|
in ( LrTable.NT 12, ( result, TSTEP1left, rules1right), rest671)
|
|
end
|
|
| ( 20, ( ( _, ( MlyValue.facts facts2, _, facts2right)) :: ( _, (
|
|
MlyValue.TMETAIMPLIES TMETAIMPLIES1, _, _)) :: ( _, ( MlyValue.facts
|
|
facts1, _, _)) :: ( _, ( MlyValue.TCOLON TCOLON1, _, _)) :: ( _, (
|
|
MlyValue.simple_name simple_name1, _, _)) :: ( _, ( MlyValue.TSTEP
|
|
TSTEP1, TSTEP1left, _)) :: rest671)) => let val result =
|
|
MlyValue.rules (fn _ => let val TSTEP1 = TSTEP1 ()
|
|
val (simple_name as simple_name1) = simple_name1 ()
|
|
val TCOLON1 = TCOLON1 ()
|
|
val facts1 = facts1 ()
|
|
val TMETAIMPLIES1 = TMETAIMPLIES1 ()
|
|
val facts2 = facts2 ()
|
|
in ([(SOME simple_name, facts1, facts2)])
|
|
end)
|
|
in ( LrTable.NT 12, ( result, TSTEP1left, facts2right), rest671)
|
|
end
|
|
| ( 21, ( ( _, ( MlyValue.rules rules1, _, rules1right)) :: ( _, (
|
|
MlyValue.facts facts2, _, _)) :: ( _, ( MlyValue.TMETAIMPLIES
|
|
TMETAIMPLIES1, _, _)) :: ( _, ( MlyValue.facts facts1, _, _)) :: ( _,
|
|
( MlyValue.TCOLON TCOLON1, _, _)) :: ( _, ( MlyValue.simple_name
|
|
simple_name1, _, _)) :: ( _, ( MlyValue.TSTEP TSTEP1, TSTEP1left, _))
|
|
:: rest671)) => let val result = MlyValue.rules (fn _ => let val
|
|
TSTEP1 = TSTEP1 ()
|
|
val (simple_name as simple_name1) = simple_name1 ()
|
|
val TCOLON1 = TCOLON1 ()
|
|
val facts1 = facts1 ()
|
|
val TMETAIMPLIES1 = TMETAIMPLIES1 ()
|
|
val facts2 = facts2 ()
|
|
val (rules as rules1) = rules1 ()
|
|
in ((SOME simple_name, facts1, facts2)::rules)
|
|
end)
|
|
in ( LrTable.NT 12, ( result, TSTEP1left, rules1right), rest671)
|
|
end
|
|
| ( 22, ( ( _, ( MlyValue.facts facts2, _, facts2right)) :: ( _, (
|
|
MlyValue.TMETAIMPLIES TMETAIMPLIES1, _, _)) :: ( _, ( MlyValue.nfacts
|
|
nfacts1, _, _)) :: ( _, ( MlyValue.TBAR TBAR1, _, _)) :: ( _, (
|
|
MlyValue.facts facts1, _, _)) :: ( _, ( MlyValue.TCOLON TCOLON1, _, _)
|
|
) :: ( _, ( MlyValue.simple_name simple_name1, _, _)) :: ( _, (
|
|
MlyValue.TSTEP TSTEP1, TSTEP1left, _)) :: rest671)) => let val result
|
|
= MlyValue.rules (fn _ => let val TSTEP1 = TSTEP1 ()
|
|
val (simple_name as simple_name1) = simple_name1 ()
|
|
val TCOLON1 = TCOLON1 ()
|
|
val facts1 = facts1 ()
|
|
val TBAR1 = TBAR1 ()
|
|
val (nfacts as nfacts1) = nfacts1 ()
|
|
val TMETAIMPLIES1 = TMETAIMPLIES1 ()
|
|
val facts2 = facts2 ()
|
|
in ([(SOME simple_name, facts1@nfacts, facts2)])
|
|
end)
|
|
in ( LrTable.NT 12, ( result, TSTEP1left, facts2right), rest671)
|
|
end
|
|
| ( 23, ( ( _, ( MlyValue.rules rules1, _, rules1right)) :: ( _, (
|
|
MlyValue.facts facts2, _, _)) :: ( _, ( MlyValue.TMETAIMPLIES
|
|
TMETAIMPLIES1, _, _)) :: ( _, ( MlyValue.nfacts nfacts1, _, _)) :: ( _
|
|
, ( MlyValue.TBAR TBAR1, _, _)) :: ( _, ( MlyValue.facts facts1, _, _)
|
|
) :: ( _, ( MlyValue.TCOLON TCOLON1, _, _)) :: ( _, (
|
|
MlyValue.simple_name simple_name1, _, _)) :: ( _, ( MlyValue.TSTEP
|
|
TSTEP1, TSTEP1left, _)) :: rest671)) => let val result =
|
|
MlyValue.rules (fn _ => let val TSTEP1 = TSTEP1 ()
|
|
val (simple_name as simple_name1) = simple_name1 ()
|
|
val TCOLON1 = TCOLON1 ()
|
|
val facts1 = facts1 ()
|
|
val TBAR1 = TBAR1 ()
|
|
val (nfacts as nfacts1) = nfacts1 ()
|
|
val TMETAIMPLIES1 = TMETAIMPLIES1 ()
|
|
val facts2 = facts2 ()
|
|
val (rules as rules1) = rules1 ()
|
|
in ((SOME simple_name, facts1@nfacts, facts2)::rules)
|
|
end)
|
|
in ( LrTable.NT 12, ( result, TSTEP1left, rules1right), rest671)
|
|
end
|
|
| ( 24, ( ( _, ( MlyValue.TSEMICOLON TSEMICOLON1, _, TSEMICOLON1right
|
|
)) :: ( _, ( MlyValue.fact fact1, _, _)) :: ( _, ( MlyValue.TCOLON
|
|
TCOLON1, _, _)) :: ( _, ( MlyValue.factname factname1, factname1left,
|
|
_)) :: rest671)) => let val result = MlyValue.knowledge (fn _ => let
|
|
val (factname as factname1) = factname1 ()
|
|
val TCOLON1 = TCOLON1 ()
|
|
val (fact as fact1) = fact1 ()
|
|
val TSEMICOLON1 = TSEMICOLON1 ()
|
|
in ([(factname, fact)])
|
|
end)
|
|
in ( LrTable.NT 7, ( result, factname1left, TSEMICOLON1right),
|
|
rest671)
|
|
end
|
|
| ( 25, ( ( _, ( MlyValue.knowledge knowledge1, _, knowledge1right))
|
|
:: ( _, ( MlyValue.TSEMICOLON TSEMICOLON1, _, _)) :: ( _, (
|
|
MlyValue.fact fact1, _, _)) :: ( _, ( MlyValue.TCOLON TCOLON1, _, _))
|
|
:: ( _, ( MlyValue.factname factname1, factname1left, _)) :: rest671)
|
|
) => let val result = MlyValue.knowledge (fn _ => let val (factname
|
|
as factname1) = factname1 ()
|
|
val TCOLON1 = TCOLON1 ()
|
|
val (fact as fact1) = fact1 ()
|
|
val TSEMICOLON1 = TSEMICOLON1 ()
|
|
val (knowledge as knowledge1) = knowledge1 ()
|
|
in ((factname, fact)::(knowledge))
|
|
end)
|
|
in ( LrTable.NT 7, ( result, factname1left, knowledge1right), rest671
|
|
)
|
|
end
|
|
| ( 26, ( ( _, ( MlyValue.fact fact1, fact1left, fact1right)) ::
|
|
rest671)) => let val result = MlyValue.facts (fn _ => let val (fact
|
|
as fact1) = fact1 ()
|
|
in ([fact])
|
|
end)
|
|
in ( LrTable.NT 8, ( result, fact1left, fact1right), rest671)
|
|
end
|
|
| ( 27, ( ( _, ( MlyValue.facts facts1, _, facts1right)) :: ( _, (
|
|
MlyValue.TSEMICOLON TSEMICOLON1, _, _)) :: ( _, ( MlyValue.fact fact1,
|
|
fact1left, _)) :: rest671)) => let val result = MlyValue.facts (fn _
|
|
=> let val (fact as fact1) = fact1 ()
|
|
val TSEMICOLON1 = TSEMICOLON1 ()
|
|
val (facts as facts1) = facts1 ()
|
|
in (fact::facts)
|
|
end)
|
|
in ( LrTable.NT 8, ( result, fact1left, facts1right), rest671)
|
|
end
|
|
| ( 28, ( ( _, ( MlyValue.TCPAREN TCPAREN1, _, TCPAREN1right)) :: ( _
|
|
, ( MlyValue.TCBRACKET TCBRACKET1, _, _)) :: ( _, ( MlyValue.msglist
|
|
msglist1, _, _)) :: ( _, ( MlyValue.TOBRACKET TOBRACKET1, _, _)) :: (
|
|
_, ( MlyValue.TCOMMA TCOMMA1, _, _)) :: ( _, ( MlyValue.role role1, _
|
|
, _)) :: ( _, ( MlyValue.TOPAREN TOPAREN1, _, _)) :: ( _, (
|
|
MlyValue.TSTATE TSTATE1, TSTATE1left, _)) :: rest671)) => let val
|
|
result = MlyValue.fact (fn _ => let val TSTATE1 = TSTATE1 ()
|
|
val TOPAREN1 = TOPAREN1 ()
|
|
val (role as role1) = role1 ()
|
|
val TCOMMA1 = TCOMMA1 ()
|
|
val TOBRACKET1 = TOBRACKET1 ()
|
|
val (msglist as msglist1) = msglist1 ()
|
|
val TCBRACKET1 = TCBRACKET1 ()
|
|
val TCPAREN1 = TCPAREN1 ()
|
|
in (State(role, msglist))
|
|
end)
|
|
in ( LrTable.NT 9, ( result, TSTATE1left, TCPAREN1right), rest671)
|
|
|
|
end
|
|
| ( 29, ( ( _, ( MlyValue.TCPAREN TCPAREN1, _, TCPAREN1right)) :: ( _
|
|
, ( MlyValue.msg msg1, _, _)) :: ( _, ( MlyValue.TOPAREN TOPAREN1, _,
|
|
_)) :: ( _, ( MlyValue.TIKNOWS TIKNOWS1, TIKNOWS1left, _)) :: rest671
|
|
)) => let val result = MlyValue.fact (fn _ => let val TIKNOWS1 =
|
|
TIKNOWS1 ()
|
|
val TOPAREN1 = TOPAREN1 ()
|
|
val (msg as msg1) = msg1 ()
|
|
val TCPAREN1 = TCPAREN1 ()
|
|
in (Iknows(msg))
|
|
end)
|
|
in ( LrTable.NT 9, ( result, TIKNOWS1left, TCPAREN1right), rest671)
|
|
|
|
end
|
|
| ( 30, ( ( _, ( MlyValue.TCPAREN TCPAREN1, _, TCPAREN1right)) :: ( _
|
|
, ( MlyValue.msg msg1, _, _)) :: ( _, ( MlyValue.TOPAREN TOPAREN1, _,
|
|
_)) :: ( _, ( MlyValue.TATTACK TATTACK1, TATTACK1left, _)) :: rest671
|
|
)) => let val result = MlyValue.fact (fn _ => let val TATTACK1 =
|
|
TATTACK1 ()
|
|
val TOPAREN1 = TOPAREN1 ()
|
|
val (msg as msg1) = msg1 ()
|
|
val TCPAREN1 = TCPAREN1 ()
|
|
in (Attack(msg))
|
|
end)
|
|
in ( LrTable.NT 9, ( result, TATTACK1left, TCPAREN1right), rest671)
|
|
|
|
end
|
|
| ( 31, ( ( _, ( MlyValue.TCPAREN TCPAREN1, _, TCPAREN1right)) :: ( _
|
|
, ( MlyValue.msglist msglist1, _, _)) :: ( _, ( MlyValue.TOPAREN
|
|
TOPAREN1, _, _)) :: ( _, ( MlyValue.TSECRET TSECRET1, TSECRET1left, _)
|
|
) :: rest671)) => let val result = MlyValue.fact (fn _ => let val
|
|
TSECRET1 = TSECRET1 ()
|
|
val TOPAREN1 = TOPAREN1 ()
|
|
val (msglist as msglist1) = msglist1 ()
|
|
val TCPAREN1 = TCPAREN1 ()
|
|
in (Secret(msglist))
|
|
end)
|
|
in ( LrTable.NT 9, ( result, TSECRET1left, TCPAREN1right), rest671)
|
|
|
|
end
|
|
| ( 32, ( ( _, ( MlyValue.TCPAREN TCPAREN1, _, TCPAREN1right)) :: ( _
|
|
, ( MlyValue.msglist msglist1, _, _)) :: ( _, ( MlyValue.TOPAREN
|
|
TOPAREN1, _, _)) :: ( _, ( MlyValue.TWITNESS TWITNESS1, TWITNESS1left,
|
|
_)) :: rest671)) => let val result = MlyValue.fact (fn _ => let val
|
|
TWITNESS1 = TWITNESS1 ()
|
|
val TOPAREN1 = TOPAREN1 ()
|
|
val (msglist as msglist1) = msglist1 ()
|
|
val TCPAREN1 = TCPAREN1 ()
|
|
in (Witness(msglist))
|
|
end)
|
|
in ( LrTable.NT 9, ( result, TWITNESS1left, TCPAREN1right), rest671)
|
|
|
|
end
|
|
| ( 33, ( ( _, ( MlyValue.TCPAREN TCPAREN1, _, TCPAREN1right)) :: ( _
|
|
, ( MlyValue.msglist msglist1, _, _)) :: ( _, ( MlyValue.TOPAREN
|
|
TOPAREN1, _, _)) :: ( _, ( MlyValue.TREQUEST TREQUEST1, TREQUEST1left,
|
|
_)) :: rest671)) => let val result = MlyValue.fact (fn _ => let val
|
|
TREQUEST1 = TREQUEST1 ()
|
|
val TOPAREN1 = TOPAREN1 ()
|
|
val (msglist as msglist1) = msglist1 ()
|
|
val TCPAREN1 = TCPAREN1 ()
|
|
in (Request(msglist))
|
|
end)
|
|
in ( LrTable.NT 9, ( result, TREQUEST1left, TCPAREN1right), rest671)
|
|
|
|
end
|
|
| ( 34, ( ( _, ( MlyValue.nfact nfact1, nfact1left, nfact1right)) ::
|
|
rest671)) => let val result = MlyValue.nfacts (fn _ => let val (
|
|
nfact as nfact1) = nfact1 ()
|
|
in ([nfact])
|
|
end)
|
|
in ( LrTable.NT 10, ( result, nfact1left, nfact1right), rest671)
|
|
end
|
|
| ( 35, ( ( _, ( MlyValue.nfacts nfacts1, _, nfacts1right)) :: ( _, (
|
|
MlyValue.TSEMICOLON TSEMICOLON1, _, _)) :: ( _, ( MlyValue.nfact
|
|
nfact1, nfact1left, _)) :: rest671)) => let val result =
|
|
MlyValue.nfacts (fn _ => let val (nfact as nfact1) = nfact1 ()
|
|
val TSEMICOLON1 = TSEMICOLON1 ()
|
|
val (nfacts as nfacts1) = nfacts1 ()
|
|
in (nfact::nfacts)
|
|
end)
|
|
in ( LrTable.NT 10, ( result, nfact1left, nfacts1right), rest671)
|
|
end
|
|
| ( 36, ( ( _, ( MlyValue.msg msg2, _, msg2right)) :: ( _, (
|
|
MlyValue.TNEQ TNEQ1, _, _)) :: ( _, ( MlyValue.msg msg1, msg1left, _))
|
|
:: rest671)) => let val result = MlyValue.nfact (fn _ => let val
|
|
msg1 = msg1 ()
|
|
val TNEQ1 = TNEQ1 ()
|
|
val msg2 = msg2 ()
|
|
in (NotEqual(msg1,msg2))
|
|
end)
|
|
in ( LrTable.NT 11, ( result, msg1left, msg2right), rest671)
|
|
end
|
|
| ( 37, ( ( _, ( MlyValue.msg msg1, msg1left, msg1right)) :: rest671)
|
|
) => let val result = MlyValue.msglist (fn _ => let val (msg as msg1
|
|
) = msg1 ()
|
|
in ([msg])
|
|
end)
|
|
in ( LrTable.NT 5, ( result, msg1left, msg1right), rest671)
|
|
end
|
|
| ( 38, ( ( _, ( MlyValue.msglist msglist1, _, msglist1right)) :: ( _
|
|
, ( MlyValue.TCOMMA TCOMMA1, _, _)) :: ( _, ( MlyValue.msg msg1,
|
|
msg1left, _)) :: rest671)) => let val result = MlyValue.msglist (fn _
|
|
=> let val (msg as msg1) = msg1 ()
|
|
val TCOMMA1 = TCOMMA1 ()
|
|
val (msglist as msglist1) = msglist1 ()
|
|
in (msg::msglist)
|
|
end)
|
|
in ( LrTable.NT 5, ( result, msg1left, msglist1right), rest671)
|
|
end
|
|
| ( 39, ( ( _, ( MlyValue.SIMPLE_NAME SIMPLE_NAME1, SIMPLE_NAME1left,
|
|
SIMPLE_NAME1right)) :: rest671)) => let val result = MlyValue.msg
|
|
(fn _ => let val (SIMPLE_NAME as SIMPLE_NAME1) = SIMPLE_NAME1 ()
|
|
in (Atom SIMPLE_NAME)
|
|
end)
|
|
in ( LrTable.NT 6, ( result, SIMPLE_NAME1left, SIMPLE_NAME1right),
|
|
rest671)
|
|
end
|
|
| ( 40, ( ( _, ( MlyValue.TCPAREN TCPAREN1, _, TCPAREN1right)) :: ( _
|
|
, ( MlyValue.msglist msglist1, _, _)) :: ( _, ( MlyValue.TOPAREN
|
|
TOPAREN1, _, _)) :: ( _, ( MlyValue.SIMPLE_NAME SIMPLE_NAME1,
|
|
SIMPLE_NAME1left, _)) :: rest671)) => let val result = MlyValue.msg
|
|
(fn _ => let val (SIMPLE_NAME as SIMPLE_NAME1) = SIMPLE_NAME1 ()
|
|
val TOPAREN1 = TOPAREN1 ()
|
|
val (msglist as msglist1) = msglist1 ()
|
|
val TCPAREN1 = TCPAREN1 ()
|
|
in (Operator(SIMPLE_NAME,msglist))
|
|
end)
|
|
in ( LrTable.NT 6, ( result, SIMPLE_NAME1left, TCPAREN1right),
|
|
rest671)
|
|
end
|
|
| ( 41, ( ( _, ( MlyValue.msg msg1, _, msg1right)) :: ( _, (
|
|
MlyValue.SIMPLE_NAME SIMPLE_NAME1, SIMPLE_NAME1left, _)) :: rest671))
|
|
=> let val result = MlyValue.msg (fn _ => let val (SIMPLE_NAME as
|
|
SIMPLE_NAME1) = SIMPLE_NAME1 ()
|
|
val (msg as msg1) = msg1 ()
|
|
in (Operator(SIMPLE_NAME,[msg]))
|
|
end)
|
|
in ( LrTable.NT 6, ( result, SIMPLE_NAME1left, msg1right), rest671)
|
|
|
|
end
|
|
| ( 42, ( ( _, ( MlyValue.TCPAREN TCPAREN1, _, TCPAREN1right)) :: ( _
|
|
, ( MlyValue.msg msg1, _, _)) :: ( _, ( MlyValue.TOPAREN TOPAREN1,
|
|
TOPAREN1left, _)) :: rest671)) => let val result = MlyValue.msg (fn _
|
|
=> let val TOPAREN1 = TOPAREN1 ()
|
|
val (msg as msg1) = msg1 ()
|
|
val TCPAREN1 = TCPAREN1 ()
|
|
in (msg)
|
|
end)
|
|
in ( LrTable.NT 6, ( result, TOPAREN1left, TCPAREN1right), rest671)
|
|
|
|
end
|
|
| ( 43, ( ( _, ( MlyValue.SIMPLE_NAME SIMPLE_NAME1, SIMPLE_NAME1left,
|
|
SIMPLE_NAME1right)) :: rest671)) => let val result = MlyValue.role
|
|
(fn _ => let val (SIMPLE_NAME as SIMPLE_NAME1) = SIMPLE_NAME1 ()
|
|
in (SIMPLE_NAME)
|
|
end)
|
|
in ( LrTable.NT 3, ( result, SIMPLE_NAME1left, SIMPLE_NAME1right),
|
|
rest671)
|
|
end
|
|
| ( 44, ( ( _, ( MlyValue.SIMPLE_NAME SIMPLE_NAME1, SIMPLE_NAME1left,
|
|
SIMPLE_NAME1right)) :: rest671)) => let val result =
|
|
MlyValue.factname (fn _ => let val (SIMPLE_NAME as SIMPLE_NAME1) =
|
|
SIMPLE_NAME1 ()
|
|
in (SIMPLE_NAME)
|
|
end)
|
|
in ( LrTable.NT 4, ( result, SIMPLE_NAME1left, SIMPLE_NAME1right),
|
|
rest671)
|
|
end
|
|
| ( 45, ( ( _, ( MlyValue.SIMPLE_NAME SIMPLE_NAME1, SIMPLE_NAME1left,
|
|
SIMPLE_NAME1right)) :: rest671)) => let val result =
|
|
MlyValue.simple_name (fn _ => let val (SIMPLE_NAME as SIMPLE_NAME1) =
|
|
SIMPLE_NAME1 ()
|
|
in (SIMPLE_NAME)
|
|
end)
|
|
in ( LrTable.NT 2, ( result, SIMPLE_NAME1left, SIMPLE_NAME1right),
|
|
rest671)
|
|
end
|
|
| ( 46, ( ( _, ( MlyValue.msg msg2, _, msg2right)) :: ( _, (
|
|
MlyValue.TARROW TARROW1, _, _)) :: ( _, ( MlyValue.msg msg1, msg1left,
|
|
_)) :: rest671)) => let val result = MlyValue.abstractions (fn _ =>
|
|
let val msg1 = msg1 ()
|
|
val TARROW1 = TARROW1 ()
|
|
val msg2 = msg2 ()
|
|
in ([(rmOuterOp msg2,msg1)])
|
|
end)
|
|
in ( LrTable.NT 13, ( result, msg1left, msg2right), rest671)
|
|
end
|
|
| ( 47, ( ( _, ( MlyValue.abstractions abstractions1, _,
|
|
abstractions1right)) :: ( _, ( MlyValue.TSEMICOLON TSEMICOLON1, _, _))
|
|
:: ( _, ( MlyValue.msg msg2, _, _)) :: ( _, ( MlyValue.TARROW TARROW1
|
|
, _, _)) :: ( _, ( MlyValue.msg msg1, msg1left, _)) :: rest671)) =>
|
|
let val result = MlyValue.abstractions (fn _ => let val msg1 = msg1
|
|
()
|
|
val TARROW1 = TARROW1 ()
|
|
val msg2 = msg2 ()
|
|
val TSEMICOLON1 = TSEMICOLON1 ()
|
|
val (abstractions as abstractions1) = abstractions1 ()
|
|
in ((rmOuterOp msg2,msg1)::abstractions)
|
|
end)
|
|
in ( LrTable.NT 13, ( result, msg1left, abstractions1right), rest671)
|
|
|
|
end
|
|
| ( 48, ( ( _, ( MlyValue.TCBRACKET TCBRACKET1, _, TCBRACKET1right))
|
|
:: ( _, ( MlyValue.typlist typlist1, _, _)) :: ( _, (
|
|
MlyValue.TOBRACKET TOBRACKET1, TOBRACKET1left, _)) :: rest671)) => let
|
|
val result = MlyValue.types (fn _ => let val TOBRACKET1 =
|
|
TOBRACKET1 ()
|
|
val (typlist as typlist1) = typlist1 ()
|
|
val TCBRACKET1 = TCBRACKET1 ()
|
|
in (typlist)
|
|
end)
|
|
in ( LrTable.NT 19, ( result, TOBRACKET1left, TCBRACKET1right),
|
|
rest671)
|
|
end
|
|
| ( 49, ( ( _, ( MlyValue.typ typ1, typ1left, typ1right)) :: rest671)
|
|
) => let val result = MlyValue.typlist (fn _ => let val (typ as typ1
|
|
) = typ1 ()
|
|
in ([typ])
|
|
end)
|
|
in ( LrTable.NT 18, ( result, typ1left, typ1right), rest671)
|
|
end
|
|
| ( 50, ( ( _, ( MlyValue.typlist typlist1, _, typlist1right)) :: ( _
|
|
, ( MlyValue.TCOMMA TCOMMA1, _, _)) :: ( _, ( MlyValue.typ typ1,
|
|
typ1left, _)) :: rest671)) => let val result = MlyValue.typlist (fn _
|
|
=> let val (typ as typ1) = typ1 ()
|
|
val TCOMMA1 = TCOMMA1 ()
|
|
val (typlist as typlist1) = typlist1 ()
|
|
in (typ::typlist)
|
|
end)
|
|
in ( LrTable.NT 18, ( result, typ1left, typlist1right), rest671)
|
|
end
|
|
| ( 51, ( ( _, ( MlyValue.TCPAREN TCPAREN1, _, TCPAREN1right)) :: ( _
|
|
, ( MlyValue.TCBRACKET TCBRACKET1, _, _)) :: ( _, ( MlyValue.typnames
|
|
typnames1, _, _)) :: ( _, ( MlyValue.TOBRACKET TOBRACKET1, _, _)) :: (
|
|
_, ( MlyValue.TCOMMA TCOMMA1, _, _)) :: ( _, ( MlyValue.SIMPLE_NAME
|
|
SIMPLE_NAME1, _, _)) :: ( _, ( MlyValue.TOPAREN TOPAREN1, TOPAREN1left
|
|
, _)) :: rest671)) => let val result = MlyValue.typ (fn _ => let val
|
|
TOPAREN1 = TOPAREN1 ()
|
|
val (SIMPLE_NAME as SIMPLE_NAME1) = SIMPLE_NAME1 ()
|
|
val TCOMMA1 = TCOMMA1 ()
|
|
val TOBRACKET1 = TOBRACKET1 ()
|
|
val (typnames as typnames1) = typnames1 ()
|
|
val TCBRACKET1 = TCBRACKET1 ()
|
|
val TCPAREN1 = TCPAREN1 ()
|
|
in ((SIMPLE_NAME,typnames))
|
|
end)
|
|
in ( LrTable.NT 17, ( result, TOPAREN1left, TCPAREN1right), rest671)
|
|
|
|
end
|
|
| ( 52, ( ( _, ( MlyValue.TCPAREN TCPAREN1, _, TCPAREN1right)) :: ( _
|
|
, ( MlyValue.TCBRACKET TCBRACKET1, _, _)) :: ( _, ( MlyValue.typnames
|
|
typnames1, _, _)) :: ( _, ( MlyValue.TOBRACKET TOBRACKET1, _, _)) :: (
|
|
_, ( MlyValue.TCOMMA TCOMMA1, _, _)) :: ( _, ( MlyValue.SIMPLE_NAME
|
|
SIMPLE_NAME3, _, _)) :: ( _, ( MlyValue.SIMPLE_NAME SIMPLE_NAME2, _, _
|
|
)) :: ( _, ( MlyValue.SIMPLE_NAME SIMPLE_NAME1, _, _)) :: ( _, (
|
|
MlyValue.TOPAREN TOPAREN1, TOPAREN1left, _)) :: rest671)) => let val
|
|
result = MlyValue.typ (fn _ => let val TOPAREN1 = TOPAREN1 ()
|
|
val (SIMPLE_NAME as SIMPLE_NAME1) = SIMPLE_NAME1 ()
|
|
val SIMPLE_NAME2 = SIMPLE_NAME2 ()
|
|
val SIMPLE_NAME3 = SIMPLE_NAME3 ()
|
|
val TCOMMA1 = TCOMMA1 ()
|
|
val TOBRACKET1 = TOBRACKET1 ()
|
|
val (typnames as typnames1) = typnames1 ()
|
|
val TCBRACKET1 = TCBRACKET1 ()
|
|
val TCPAREN1 = TCPAREN1 ()
|
|
in ((SIMPLE_NAME,typnames))
|
|
end)
|
|
in ( LrTable.NT 17, ( result, TOPAREN1left, TCPAREN1right), rest671)
|
|
|
|
end
|
|
| ( 53, ( ( _, ( MlyValue.TCPAREN TCPAREN1, _, TCPAREN1right)) :: ( _
|
|
, ( MlyValue.TCBRACKET TCBRACKET1, _, _)) :: ( _, ( MlyValue.TOBRACKET
|
|
TOBRACKET1, _, _)) :: ( _, ( MlyValue.TCOMMA TCOMMA1, _, _)) :: ( _,
|
|
( MlyValue.SIMPLE_NAME SIMPLE_NAME1, _, _)) :: ( _, ( MlyValue.TOPAREN
|
|
TOPAREN1, TOPAREN1left, _)) :: rest671)) => let val result =
|
|
MlyValue.typ (fn _ => let val TOPAREN1 = TOPAREN1 ()
|
|
val (SIMPLE_NAME as SIMPLE_NAME1) = SIMPLE_NAME1 ()
|
|
val TCOMMA1 = TCOMMA1 ()
|
|
val TOBRACKET1 = TOBRACKET1 ()
|
|
val TCBRACKET1 = TCBRACKET1 ()
|
|
val TCPAREN1 = TCPAREN1 ()
|
|
in ((SIMPLE_NAME,[]))
|
|
end)
|
|
in ( LrTable.NT 17, ( result, TOPAREN1left, TCPAREN1right), rest671)
|
|
|
|
end
|
|
| ( 54, ( ( _, ( MlyValue.TCPAREN TCPAREN1, _, TCPAREN1right)) :: ( _
|
|
, ( MlyValue.TCBRACKET TCBRACKET1, _, _)) :: ( _, ( MlyValue.TOBRACKET
|
|
TOBRACKET1, _, _)) :: ( _, ( MlyValue.TCOMMA TCOMMA1, _, _)) :: ( _,
|
|
( MlyValue.SIMPLE_NAME SIMPLE_NAME3, _, _)) :: ( _, (
|
|
MlyValue.SIMPLE_NAME SIMPLE_NAME2, _, _)) :: ( _, (
|
|
MlyValue.SIMPLE_NAME SIMPLE_NAME1, _, _)) :: ( _, ( MlyValue.TOPAREN
|
|
TOPAREN1, TOPAREN1left, _)) :: rest671)) => let val result =
|
|
MlyValue.typ (fn _ => let val TOPAREN1 = TOPAREN1 ()
|
|
val (SIMPLE_NAME as SIMPLE_NAME1) = SIMPLE_NAME1 ()
|
|
val SIMPLE_NAME2 = SIMPLE_NAME2 ()
|
|
val SIMPLE_NAME3 = SIMPLE_NAME3 ()
|
|
val TCOMMA1 = TCOMMA1 ()
|
|
val TOBRACKET1 = TOBRACKET1 ()
|
|
val TCBRACKET1 = TCBRACKET1 ()
|
|
val TCPAREN1 = TCPAREN1 ()
|
|
in ((SIMPLE_NAME,[]))
|
|
end)
|
|
in ( LrTable.NT 17, ( result, TOPAREN1left, TCPAREN1right), rest671)
|
|
|
|
end
|
|
| ( 55, ( ( _, ( MlyValue.typname typname1, typname1left,
|
|
typname1right)) :: rest671)) => let val result = MlyValue.typnames
|
|
(fn _ => let val (typname as typname1) = typname1 ()
|
|
in ([typname])
|
|
end)
|
|
in ( LrTable.NT 15, ( result, typname1left, typname1right), rest671)
|
|
|
|
end
|
|
| ( 56, ( ( _, ( MlyValue.typnames typnames1, _, typnames1right)) ::
|
|
( _, ( MlyValue.TCOMMA TCOMMA1, _, _)) :: ( _, ( MlyValue.typname
|
|
typname1, typname1left, _)) :: rest671)) => let val result =
|
|
MlyValue.typnames (fn _ => let val (typname as typname1) = typname1
|
|
()
|
|
val TCOMMA1 = TCOMMA1 ()
|
|
val (typnames as typnames1) = typnames1 ()
|
|
in (typname::typnames)
|
|
end)
|
|
in ( LrTable.NT 15, ( result, typname1left, typnames1right), rest671)
|
|
|
|
end
|
|
| ( 57, ( ( _, ( MlyValue.simple_name simple_name1, simple_name1left,
|
|
simple_name1right)) :: rest671)) => let val result =
|
|
MlyValue.simple_names (fn _ => let val (simple_name as simple_name1)
|
|
= simple_name1 ()
|
|
in (simple_name)
|
|
end)
|
|
in ( LrTable.NT 16, ( result, simple_name1left, simple_name1right),
|
|
rest671)
|
|
end
|
|
| ( 58, ( ( _, ( MlyValue.simple_names simple_names1, _,
|
|
simple_names1right)) :: ( _, ( MlyValue.simple_name simple_name1,
|
|
simple_name1left, _)) :: rest671)) => let val result =
|
|
MlyValue.simple_names (fn _ => let val (simple_name as simple_name1)
|
|
= simple_name1 ()
|
|
val (simple_names as simple_names1) = simple_names1 ()
|
|
in (simple_name^" "^simple_names)
|
|
end)
|
|
in ( LrTable.NT 16, ( result, simple_name1left, simple_names1right),
|
|
rest671)
|
|
end
|
|
| ( 59, ( ( _, ( MlyValue.simple_names simple_names1, _,
|
|
simple_names1right)) :: ( _, ( MlyValue.TMINUS TMINUS1, _, _)) :: ( _,
|
|
( MlyValue.simple_name simple_name1, simple_name1left, _)) :: rest671
|
|
)) => let val result = MlyValue.simple_names (fn _ => let val (
|
|
simple_name as simple_name1) = simple_name1 ()
|
|
val TMINUS1 = TMINUS1 ()
|
|
val (simple_names as simple_names1) = simple_names1 ()
|
|
in (simple_name^" "^simple_names)
|
|
end)
|
|
in ( LrTable.NT 16, ( result, simple_name1left, simple_names1right),
|
|
rest671)
|
|
end
|
|
| ( 60, ( ( _, ( MlyValue.TQUOTE TQUOTE2, _, TQUOTE2right)) :: ( _, (
|
|
MlyValue.SIMPLE_NAME SIMPLE_NAME1, _, _)) :: ( _, ( MlyValue.TQUOTE
|
|
TQUOTE1, TQUOTE1left, _)) :: rest671)) => let val result =
|
|
MlyValue.typname (fn _ => let val TQUOTE1 = TQUOTE1 ()
|
|
val (SIMPLE_NAME as SIMPLE_NAME1) = SIMPLE_NAME1 ()
|
|
val TQUOTE2 = TQUOTE2 ()
|
|
in (SIMPLE_NAME)
|
|
end)
|
|
in ( LrTable.NT 14, ( result, TQUOTE1left, TQUOTE2right), rest671)
|
|
|
|
end
|
|
| _ => raise (mlyAction i392)
|
|
end
|
|
val void = MlyValue.VOID
|
|
val extract = fn a => (fn MlyValue.START x => x
|
|
| _ => let exception ParseInternal
|
|
in raise ParseInternal end) a ()
|
|
end
|
|
end
|
|
structure Tokens : OfmcFpParser_TOKENS =
|
|
struct
|
|
type svalue = ParserData.svalue
|
|
type ('a,'b) token = ('a,'b) Token.token
|
|
fun EOF (p1,p2) = Token.TOKEN (ParserData.LrTable.T 0,(
|
|
ParserData.MlyValue.VOID,p1,p2))
|
|
fun SIMPLE_NAME (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 1,(
|
|
ParserData.MlyValue.SIMPLE_NAME (fn () => i),p1,p2))
|
|
fun TABSTRACTION (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 2,(
|
|
ParserData.MlyValue.TABSTRACTION (fn () => i),p1,p2))
|
|
fun TATTACK (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 3,(
|
|
ParserData.MlyValue.TATTACK (fn () => i),p1,p2))
|
|
fun TARROW (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 4,(
|
|
ParserData.MlyValue.TARROW (fn () => i),p1,p2))
|
|
fun TMINUS (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 5,(
|
|
ParserData.MlyValue.TMINUS (fn () => i),p1,p2))
|
|
fun TCAT (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 6,(
|
|
ParserData.MlyValue.TCAT (fn () => i),p1,p2))
|
|
fun TCBRACKET (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 7,(
|
|
ParserData.MlyValue.TCBRACKET (fn () => i),p1,p2))
|
|
fun TCOLON (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 8,(
|
|
ParserData.MlyValue.TCOLON (fn () => i),p1,p2))
|
|
fun TWHITESPACE (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 9,(
|
|
ParserData.MlyValue.TWHITESPACE (fn () => i),p1,p2))
|
|
fun TEQ (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 10,(
|
|
ParserData.MlyValue.TEQ (fn () => i),p1,p2))
|
|
fun TNEQ (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 11,(
|
|
ParserData.MlyValue.TNEQ (fn () => i),p1,p2))
|
|
fun TBAR (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 12,(
|
|
ParserData.MlyValue.TBAR (fn () => i),p1,p2))
|
|
fun TCOMMA (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 13,(
|
|
ParserData.MlyValue.TCOMMA (fn () => i),p1,p2))
|
|
fun TCPAREN (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 14,(
|
|
ParserData.MlyValue.TCPAREN (fn () => i),p1,p2))
|
|
fun TCRYPT (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 15,(
|
|
ParserData.MlyValue.TCRYPT (fn () => i),p1,p2))
|
|
fun TQUOTE (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 16,(
|
|
ParserData.MlyValue.TQUOTE (fn () => i),p1,p2))
|
|
fun TEXP (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 17,(
|
|
ParserData.MlyValue.TEXP (fn () => i),p1,p2))
|
|
fun TFACT (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 18,(
|
|
ParserData.MlyValue.TFACT (fn () => i),p1,p2))
|
|
fun TFIXEDPOINT (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 19,(
|
|
ParserData.MlyValue.TFIXEDPOINT (fn () => i),p1,p2))
|
|
fun TFPState (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 20,(
|
|
ParserData.MlyValue.TFPState (fn () => i),p1,p2))
|
|
fun TIKNOWS (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 21,(
|
|
ParserData.MlyValue.TIKNOWS (fn () => i),p1,p2))
|
|
fun TINITIAL (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 22,(
|
|
ParserData.MlyValue.TINITIAL (fn () => i),p1,p2))
|
|
fun TINV (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 23,(
|
|
ParserData.MlyValue.TINV (fn () => i),p1,p2))
|
|
fun TKNOWLEDGE (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 24,(
|
|
ParserData.MlyValue.TKNOWLEDGE (fn () => i),p1,p2))
|
|
fun TMETAIMPLIES (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 25,(
|
|
ParserData.MlyValue.TMETAIMPLIES (fn () => i),p1,p2))
|
|
fun TOBRACKET (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 26,(
|
|
ParserData.MlyValue.TOBRACKET (fn () => i),p1,p2))
|
|
fun TOPAREN (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 27,(
|
|
ParserData.MlyValue.TOPAREN (fn () => i),p1,p2))
|
|
fun TPROTOCOL (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 28,(
|
|
ParserData.MlyValue.TPROTOCOL (fn () => i),p1,p2))
|
|
fun TBACKEND (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 29,(
|
|
ParserData.MlyValue.TBACKEND (fn () => i),p1,p2))
|
|
fun TREQUEST (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 30,(
|
|
ParserData.MlyValue.TREQUEST (fn () => i),p1,p2))
|
|
fun TRULES (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 31,(
|
|
ParserData.MlyValue.TRULES (fn () => i),p1,p2))
|
|
fun TSCRYPT (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 32,(
|
|
ParserData.MlyValue.TSCRYPT (fn () => i),p1,p2))
|
|
fun TSECRET (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 33,(
|
|
ParserData.MlyValue.TSECRET (fn () => i),p1,p2))
|
|
fun TSECSTATE (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 34,(
|
|
ParserData.MlyValue.TSECSTATE (fn () => i),p1,p2))
|
|
fun TSECTION (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 35,(
|
|
ParserData.MlyValue.TSECTION (fn () => i),p1,p2))
|
|
fun TSEMICOLON (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 36,(
|
|
ParserData.MlyValue.TSEMICOLON (fn () => i),p1,p2))
|
|
fun TSTATE (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 37,(
|
|
ParserData.MlyValue.TSTATE (fn () => i),p1,p2))
|
|
fun TSTEP (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 38,(
|
|
ParserData.MlyValue.TSTEP (fn () => i),p1,p2))
|
|
fun TTYPES (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 39,(
|
|
ParserData.MlyValue.TTYPES (fn () => i),p1,p2))
|
|
fun TWITNESS (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 40,(
|
|
ParserData.MlyValue.TWITNESS (fn () => i),p1,p2))
|
|
fun TXOR (i,p1,p2) = Token.TOKEN (ParserData.LrTable.T 41,(
|
|
ParserData.MlyValue.TXOR (fn () => i),p1,p2))
|
|
end
|
|
end
|