***(

    This file is part of the Maude 3 interpreter.

    Copyright 2009-2024 SRI International, Menlo Park, CA 94025, USA.

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.

)

***
***	Maude meta-interpreters.
***	Version 3.4.
***

mod META-INTERPRETER is
  protecting META-LEVEL .
  including CONFIGURATION .

  sort RewriteCount .
  subsort Nat < RewriteCount .
  sorts InterpreterOption InterpreterOptionSet .
  subsort InterpreterOption < InterpreterOptionSet .

  op none : -> InterpreterOptionSet [ctor] .
  op newProcess : -> InterpreterOption [ctor] .

  op interpreter : Nat -> Oid [ctor] .

  op createInterpreter : Oid Oid InterpreterOptionSet -> Msg [ctor msg format (b o)] .
  op createdInterpreter : Oid Oid Oid -> Msg [ctor msg format (m o)] .

  op insertModule : Oid Oid Module -> Msg [ctor msg format (b o)] .
  op insertedModule : Oid Oid -> Msg [ctor msg format (m o)] .

  op insertView : Oid Oid View -> Msg [ctor msg format (b o)] .
  op insertedView : Oid Oid -> Msg [ctor msg format (m o)] .

  op showModule : Oid Oid Qid Bool -> Msg [ctor msg format (b o)] .
  op showingModule : Oid Oid Module -> Msg [ctor msg format (m o)] .

  op showView : Oid Oid Qid -> Msg [ctor msg format (b o)] .
  op showingView : Oid Oid View -> Msg [ctor msg format (m o)] .

  op printTerm : Oid Oid Qid VariableSet Term PrintOptionSet QidSet -> Msg [ctor msg format (b o)] .
  op printedTerm : Oid Oid QidList -> Msg [ctor msg format (m o)] .

  op printTermToString : Oid Oid Qid VariableSet Term PrintOptionSet QidSet -> Msg [ctor msg format (b o)] .
  op printedTermToString : Oid Oid String -> Msg [ctor msg format (m o)] .

  op parseTerm : Oid Oid Qid VariableSet QidList Type? -> Msg [ctor msg format (b o)] .
  op parsedTerm : Oid Oid ResultPair? -> Msg [ctor msg format (m o)] .

  op getLesserSorts : Oid Oid Qid Type -> Msg [ctor msg format (b o)] .
  op gotLesserSorts : Oid Oid SortSet -> Msg [ctor msg format (m o)] .

  op getMaximalSorts : Oid Oid Qid Kind -> Msg [ctor msg format (b o)] .
  op gotMaximalSorts : Oid Oid SortSet -> Msg [ctor msg format (m o)] .

  op getMinimalSorts : Oid Oid Qid Kind -> Msg [ctor msg format (b o)] .
  op gotMinimalSorts : Oid Oid SortSet -> Msg [ctor msg format (m o)] .

  op compareTypes : Oid Oid Qid Type Type -> Msg [ctor msg format (b o)] .
  op comparedTypes : Oid Oid Bool Bool Bool -> Msg [ctor msg format (m o)] .

  op getKind : Oid Oid Qid Type -> Msg [ctor msg format (b o)] .
  op gotKind : Oid Oid Kind -> Msg [ctor msg format (m o)] .

  op getKinds : Oid Oid Qid -> Msg [ctor msg format (b o)] .
  op gotKinds : Oid Oid KindSet -> Msg [ctor msg format (m o)] .

  op getGlbTypes : Oid Oid Qid TypeSet -> Msg [ctor msg format (b o)] .
  op gotGlbTypes : Oid Oid TypeSet -> Msg [ctor msg format (m o)] .

  op getMaximalAritySet : Oid Oid Qid Qid TypeList Sort -> Msg [ctor msg format (b o)] .
  op gotMaximalAritySet : Oid Oid TypeListSet -> Msg [ctor msg format (m o)] .

  op normalizeTerm : Oid Oid Qid Term -> Msg [ctor msg format (b o)] .
  op normalizedTerm : Oid Oid Term Type -> Msg [ctor msg format (m o)] .

  op reduceTerm : Oid Oid Qid Term -> Msg [ctor msg format (b o)] .
  op reducedTerm : Oid Oid RewriteCount Term Type -> Msg [ctor msg format (m o)] .

  op rewriteTerm : Oid Oid Bound Qid Term -> Msg [ctor msg format (b o)] .
  op rewroteTerm : Oid Oid RewriteCount Term Type -> Msg [ctor msg format (m o)] .

  op frewriteTerm : Oid Oid Bound Nat Qid Term -> Msg [ctor msg format (b o)] .
  op frewroteTerm : Oid Oid RewriteCount Term Type -> Msg [ctor msg format (m o)] .

  op erewriteTerm : Oid Oid Bound Nat Qid Term -> Msg [ctor msg format (b o)] .
  op erewroteTerm : Oid Oid RewriteCount Term Type -> Msg [ctor msg format (m o)] .

  op srewriteTerm : Oid Oid Qid Term Strategy SrewriteOption Nat -> Msg [ctor msg format (b o)] .
  op srewroteTerm : Oid Oid RewriteCount Term Type -> Msg [ctor msg format (m o)] .

  op getSearchResult : Oid Oid Qid Term Term Condition Qid Bound Nat -> Msg [ctor msg format (b o)] .
  op gotSearchResult : Oid Oid RewriteCount Term Type Substitution -> Msg [ctor msg format (m o)] .
  op getSearchResultAndPath : Oid Oid Qid Term Term Condition Qid Bound Nat -> Msg [ctor msg format (b o)] .
  op gotSearchResultAndPath : Oid Oid RewriteCount Term Type Substitution Trace -> Msg [ctor msg format (m o)] .

  op getMatch : Oid Oid Qid Term Term Condition Nat -> Msg [ctor msg format (b o)] .
  op gotMatch : Oid Oid RewriteCount Substitution -> Msg [ctor msg format (m o)] .
  op getXmatch : Oid Oid Qid Term Term Condition Nat Bound Nat -> Msg [ctor msg format (b o)] .
  op gotXmatch : Oid Oid RewriteCount Substitution Context -> Msg [ctor msg format (m o)] .

  op applyRule : Oid Oid Qid Term Qid Substitution Nat -> Msg [ctor msg format (b o)] .
  op appliedRule : Oid Oid RewriteCount Term Type Substitution -> Msg [ctor msg format (m o)] .
  op applyRule : Oid Oid Qid Term Qid Substitution Nat Bound Nat -> Msg [ctor msg format (b o)] .
  op appliedRule : Oid Oid RewriteCount Term Type Substitution Context -> Msg [ctor msg format (m o)] .

  op getUnifier : Oid Oid Qid UnificationProblem Qid Nat -> Msg [ctor msg format (b o)] .
  op gotUnifier : Oid Oid Substitution Qid -> Msg [ctor msg format (m o)] .
  op getDisjointUnifier : Oid Oid Qid UnificationProblem Qid Nat -> Msg [ctor msg format (b o)] .
  op gotDisjointUnifier : Oid Oid Substitution Substitution Qid -> Msg [ctor msg format (m o)] .

  op getIrredundantUnifier : Oid Oid Qid UnificationProblem Qid Nat -> Msg [ctor msg format (b o)] .
  op gotIrredundantUnifier : Oid Oid Substitution Qid -> Msg [ctor msg format (m o)] .
  op getIrredundantDisjointUnifier : Oid Oid Qid UnificationProblem Qid Nat -> Msg [ctor msg format (b o)] .
  op gotIrredundantDisjointUnifier : Oid Oid Substitution Substitution Qid -> Msg [ctor msg format (m o)] .

  op getVariant : Oid Oid Qid Term TermList Bool Qid Nat -> Msg [ctor msg format (b o)] .
  op gotVariant : Oid Oid RewriteCount Term Substitution Qid Parent Bool -> Msg [ctor msg format (m o)] .

  op getVariantUnifier : Oid Oid Qid UnificationProblem TermList Qid
                         VariantOptionSet Nat -> Msg [ctor msg format (b o)] .
  op gotVariantUnifier : Oid Oid RewriteCount Substitution Qid -> Msg [ctor msg format (m o)] .
  
  op getDisjointVariantUnifier : Oid Oid Qid UnificationProblem TermList Qid
                                 VariantOptionSet Nat -> Msg [ctor msg format (b o)] .
  op gotDisjointVariantUnifier : Oid Oid RewriteCount Substitution
                                 Substitution Qid -> Msg [ctor msg format (m o)] .

  op getVariantMatcher : Oid Oid Qid MatchingProblem TermList Qid
                         VariantOptionSet Nat -> Msg [ctor msg format (b o)] .
  op gotVariantMatcher : Oid Oid RewriteCount Substitution -> Msg [ctor msg format (m o)] .

  op getOneStepNarrowing : Oid Oid Qid Term TermList Qid
     			   VariantOptionSet Nat -> Msg [ctor msg format (b o)] .
  op gotOneStepNarrowing : Oid Oid RewriteCount Term Type Context Qid
     			   Substitution Substitution Qid -> Msg [ctor msg format (m o)] .

  op getNarrowingSearchResult : Oid Oid Qid Term Term Qid Bound Qid
     			      	VariantOptionSet Nat -> Msg [ctor msg format (b o)] .
  op gotNarrowingSearchResult : Oid Oid RewriteCount Term Type Substitution Qid Substitution Qid -> Msg [ctor msg format (m o)] .
  op getNarrowingSearchResultAndPath : Oid Oid Qid Term Term Qid Bound Qid
     				       VariantOptionSet Nat -> Msg [ctor msg format (b o)] .
  op gotNarrowingSearchResultAndPath : Oid Oid RewriteCount Term Type Substitution NarrowingTrace Substitution Qid -> Msg [ctor msg format (m o)] .

  op noSuchResult : Oid Oid RewriteCount -> Msg [ctor msg format (m o)] .
  op noSuchResult : Oid Oid Bool -> Msg [ctor msg format (m o)] .
  op noSuchResult : Oid Oid RewriteCount Bool -> Msg [ctor msg format (m o)] .

  op quit : Oid Oid -> Msg [ctor msg format (b o)] .
  op bye : Oid Oid -> Msg [ctor msg format (m o)] .

  op interpreterError : Oid Oid String -> Msg [ctor msg format (r o)] .
  op interpreterExit : Oid Oid String -> Msg [ctor msg format (r o)] .

  op interpreterManager : -> Oid
        [special (
           id-hook InterpreterManagerSymbol
	   op-hook stringSymbol			(<Strings> : ~> String)

           op-hook emptyInterpereterOptionSetSymbol	(none : ~> InterpreterOptionSet)
	   op-hook newProcessSymbol		(newProcess : ~> InterpreterOption)
           op-hook interpreterOidSymbol		(interpreter : Nat ~> Oid)
           op-hook createInterpreterMsg		(createInterpreter : Oid Oid InterpreterOptionSet ~> Msg)
           op-hook createdInterpreterMsg	(createdInterpreter : Oid Oid Oid ~> Msg)

           op-hook insertModuleMsg		(insertModule : Oid Oid Module ~> Msg)
           op-hook insertedModuleMsg		(insertedModule : Oid Oid ~> Msg)
           op-hook insertViewMsg		(insertView : Oid Oid View ~> Msg)
           op-hook insertedViewMsg		(insertedView : Oid Oid ~> Msg)
           op-hook showModuleMsg		(showModule : Oid Oid Qid Bool ~> Msg)
           op-hook showingModuleMsg		(showingModule : Oid Oid Module ~> Msg)
           op-hook showViewMsg			(showView : Oid Oid Qid ~> Msg)
           op-hook showingViewMsg		(showingView : Oid Oid View ~> Msg)

  	   op-hook printTermMsg			(printTerm : Oid Oid Qid VariableSet Term PrintOptionSet QidSet ~> Msg)
  	   op-hook printedTermMsg		(printedTerm : Oid Oid QidList ~> Msg)
  	   op-hook printTermToStringMsg		(printTermToString : Oid Oid Qid VariableSet Term PrintOptionSet QidSet ~> Msg)
  	   op-hook printedTermToStringMsg	(printedTermToString : Oid Oid String ~> Msg)
	   op-hook parseTermMsg			(parseTerm : Oid Oid Qid VariableSet QidList Type? ~> Msg)
	   op-hook parsedTermMsg		(parsedTerm : Oid Oid ResultPair? ~> Msg)

	   op-hook getLesserSortsMsg		(getLesserSorts : Oid Oid Qid Type ~> Msg)
	   op-hook gotLesserSortsMsg		(gotLesserSorts : Oid Oid SortSet ~> Msg)
	   op-hook getMaximalSortsMsg		(getMaximalSorts : Oid Oid Qid Kind ~> Msg)
	   op-hook gotMaximalSortsMsg		(gotMaximalSorts : Oid Oid SortSet ~> Msg)
	   op-hook getMinimalSortsMsg		(getMinimalSorts : Oid Oid Qid Kind ~> Msg)
	   op-hook gotMinimalSortsMsg		(gotMinimalSorts : Oid Oid SortSet ~> Msg)
	   op-hook compareTypesMsg		(compareTypes : Oid Oid Qid Type Type ~> Msg)
	   op-hook comparedTypesMsg		(comparedTypes : Oid Oid Bool Bool Bool ~> Msg)
	   op-hook getKindMsg			(getKind : Oid Oid Qid Type ~> Msg)
	   op-hook gotKindMsg			(gotKind : Oid Oid Kind ~> Msg)
	   op-hook getKindsMsg			(getKinds : Oid Oid Qid ~> Msg)
	   op-hook gotKindsMsg			(gotKinds : Oid Oid KindSet ~> Msg)
	   op-hook getGlbTypesMsg		(getGlbTypes : Oid Oid Qid TypeSet ~> Msg)
	   op-hook gotGlbTypesMsg		(gotGlbTypes : Oid Oid TypeSet ~> Msg)
	   op-hook getMaximalAritySetMsg	(getMaximalAritySet : Oid Oid Qid Qid TypeList Sort ~> Msg)
	   op-hook gotMaximalAritySetMsg	(gotMaximalAritySet : Oid Oid TypeListSet ~> Msg)
           op-hook normalizeTermMsg		(normalizeTerm : Oid Oid Qid Term ~> Msg)
           op-hook normalizedTermMsg		(normalizedTerm : Oid Oid Term Type ~> Msg)

           op-hook reduceTermMsg		(reduceTerm : Oid Oid Qid Term ~> Msg)
           op-hook reducedTermMsg		(reducedTerm : Oid Oid RewriteCount Term Type ~> Msg)
           op-hook rewriteTermMsg		(rewriteTerm : Oid Oid Bound Qid Term ~> Msg)
           op-hook rewroteTermMsg		(rewroteTerm : Oid Oid RewriteCount Term Type ~> Msg)
           op-hook frewriteTermMsg		(frewriteTerm : Oid Oid Bound Nat Qid Term ~> Msg)
           op-hook frewroteTermMsg		(frewroteTerm : Oid Oid RewriteCount Term Type ~> Msg)
           op-hook erewriteTermMsg		(erewriteTerm : Oid Oid Bound Nat Qid Term ~> Msg)
           op-hook erewroteTermMsg		(erewroteTerm : Oid Oid RewriteCount Term Type ~> Msg)
           op-hook srewriteTermMsg		(srewriteTerm : Oid Oid Qid Term Strategy SrewriteOption Nat ~> Msg)
           op-hook srewroteTermMsg		(srewroteTerm : Oid Oid RewriteCount Term Type ~> Msg)

           op-hook getSearchResultMsg		(getSearchResult : Oid Oid Qid Term Term Condition Qid Bound Nat ~> Msg)
           op-hook gotSearchResultMsg		(gotSearchResult : Oid Oid RewriteCount Term Type Substitution ~> Msg)
           op-hook getSearchResultAndPathMsg	(getSearchResultAndPath : Oid Oid Qid Term Term Condition Qid Bound Nat ~> Msg)
           op-hook gotSearchResultAndPathMsg	(gotSearchResultAndPath : Oid Oid RewriteCount Term Type Substitution Trace ~> Msg)

           op-hook applyRuleMsg			(applyRule : Oid Oid Qid Term Qid Substitution Nat ~> Msg)
           op-hook appliedRuleMsg		(appliedRule : Oid Oid RewriteCount Term Type Substitution ~> Msg)
           op-hook applyRule2Msg		(applyRule : Oid Oid Qid Term Qid Substitution Nat Bound Nat ~> Msg)
           op-hook appliedRule2Msg		(appliedRule : Oid Oid RewriteCount Term Type Substitution Context ~> Msg)

           op-hook getMatchMsg			(getMatch : Oid Oid Qid Term Term Condition Nat ~> Msg)
           op-hook gotMatchMsg			(gotMatch : Oid Oid RewriteCount Substitution ~> Msg)
           op-hook getXmatchMsg			(getXmatch : Oid Oid Qid Term Term Condition Nat Bound Nat ~> Msg)
           op-hook gotXmatchMsg			(gotXmatch : Oid Oid RewriteCount Substitution Context ~> Msg)

           op-hook getUnifierMsg		(getUnifier : Oid Oid Qid UnificationProblem Qid Nat ~> Msg)
           op-hook gotUnifierMsg		(gotUnifier : Oid Oid Substitution Qid ~> Msg)
           op-hook getDisjointUnifierMsg	(getDisjointUnifier : Oid Oid Qid UnificationProblem Qid Nat ~> Msg)
           op-hook gotDisjointUnifierMsg	(gotDisjointUnifier : Oid Oid Substitution Substitution Qid ~> Msg)

           op-hook getIrredundantUnifierMsg		(getIrredundantUnifier : Oid Oid Qid UnificationProblem Qid Nat ~> Msg)
           op-hook gotIrredundantUnifierMsg		(gotIrredundantUnifier : Oid Oid Substitution Qid ~> Msg)
           op-hook getIrredundantDisjointUnifierMsg	(getIrredundantDisjointUnifier : Oid Oid Qid UnificationProblem Qid Nat ~> Msg)
           op-hook gotIrredundantDisjointUnifierMsg	(gotIrredundantDisjointUnifier : Oid Oid Substitution Substitution Qid ~> Msg)

           op-hook getVariantMsg		(getVariant : Oid Oid Qid Term TermList Bool Qid Nat ~> Msg)
           op-hook gotVariantMsg		(gotVariant : Oid Oid RewriteCount Term Substitution Qid Parent Bool ~> Msg)

           op-hook getVariantUnifierMsg		(getVariantUnifier : Oid Oid Qid UnificationProblem TermList Qid VariantOptionSet Nat ~> Msg)
           op-hook gotVariantUnifierMsg		(gotVariantUnifier : Oid Oid RewriteCount Substitution Qid ~> Msg)
           op-hook getDisjointVariantUnifierMsg	(getDisjointVariantUnifier : Oid Oid Qid UnificationProblem TermList Qid VariantOptionSet Nat ~> Msg)
           op-hook gotDisjointVariantUnifierMsg	(gotDisjointVariantUnifier : Oid Oid RewriteCount Substitution Substitution Qid ~> Msg)

           op-hook getVariantMatcherMsg		(getVariantMatcher : Oid Oid Qid MatchingProblem TermList Qid VariantOptionSet Nat ~> Msg)
           op-hook gotVariantMatcherMsg		(gotVariantMatcher : Oid Oid RewriteCount Substitution ~> Msg)

	   op-hook getOneStepNarrowingMsg	(getOneStepNarrowing : Oid Oid Qid Term TermList Qid VariantOptionSet Nat ~> Msg)
	   op-hook gotOneStepNarrowingMsg	(gotOneStepNarrowing : Oid Oid RewriteCount Term Type Context Qid Substitution Substitution Qid ~> Msg)
  	   op-hook getNarrowingSearchResultMsg	(getNarrowingSearchResult : Oid Oid Qid Term Term Qid Bound Qid VariantOptionSet Nat ~> Msg)
  	   op-hook gotNarrowingSearchResultMsg	(gotNarrowingSearchResult : Oid Oid RewriteCount Term Type Substitution Qid Substitution Qid ~> Msg)
  	   op-hook getNarrowingSearchResultAndPathMsg	(getNarrowingSearchResultAndPath : Oid Oid Qid Term Term Qid Bound Qid VariantOptionSet Nat ~> Msg)
  	   op-hook gotNarrowingSearchResultAndPathMsg	(gotNarrowingSearchResultAndPath : Oid Oid RewriteCount Term Type Substitution NarrowingTrace Substitution Qid ~> Msg)

	   op-hook noSuchResultMsg		(noSuchResult : Oid Oid RewriteCount ~> Msg)
	   op-hook noSuchResult2Msg		(noSuchResult : Oid Oid Bool ~> Msg)
	   op-hook noSuchResult3Msg		(noSuchResult : Oid Oid RewriteCount Bool ~> Msg)
           op-hook quitMsg			(quit : Oid Oid ~> Msg)
           op-hook byeMsg			(bye : Oid Oid ~> Msg)
	   op-hook interpreterErrorMsg		(interpreterError : Oid Oid String ~> Msg)
	   op-hook interpreterExitMsg		(interpreterExit : Oid Oid String ~> Msg)

           op-hook shareWith			(metaReduce : Module Term ~> ResultPair)
        )] .

***
***	For backward compatibility only.
***	These operators are deprecated - do not use in new code.
***
  op printTerm : Oid Oid Qid VariableSet Term PrintOptionSet -> Msg [ctor msg format (b o)] .
  eq printTerm(T:Oid, M:Oid, Q:Qid, VS:VariableSet, T:Term, P:PrintOptionSet) =
     printTerm(T:Oid, M:Oid, Q:Qid, VS:VariableSet, T:Term, P:PrintOptionSet, none) .

  op getVariantUnifier : Oid Oid Qid UnificationProblem TermList Qid Nat -> Msg [ctor msg format (b o)] .
  eq getVariantUnifier(T:Oid, M:Oid, Q:Qid, U:UnificationProblem, TL:TermList, F:Qid, N:Nat) =
     getVariantUnifier(T:Oid, M:Oid, Q:Qid, U:UnificationProblem, TL:TermList, F:Qid, none, N:Nat) .

  op getDisjointVariantUnifier : Oid Oid Qid UnificationProblem TermList Qid
                                 Nat -> Msg [ctor msg format (b o)] .
  eq getDisjointVariantUnifier(T:Oid, M:Oid, Q:Qid, U:UnificationProblem, TL:TermList, F:Qid, N:Nat) =
     getDisjointVariantUnifier(T:Oid, M:Oid, Q:Qid, U:UnificationProblem, TL:TermList, F:Qid,
                               none, N:Nat) .

  op getOneStepNarrowing : Oid Oid Qid Term TermList Qid Nat -> Msg [ctor msg format (b o)] .
  eq getOneStepNarrowing(T:Oid, M:Oid, Q:Qid, T:Term, TL:TermList, F:Qid, N:Nat) =
     getOneStepNarrowing(T:Oid, M:Oid, Q:Qid, T:Term, TL:TermList, F:Qid, none, N:Nat) .

  op getNarrowingSearchResult : Oid Oid Qid Term Term Qid Bound Qid Nat -> Msg .
  eq getNarrowingSearchResult(T:Oid, M:Oid, Q:Qid, T:Term, T2:Term, S:Qid, B:Bound, F:Qid, N:Nat) =
     getNarrowingSearchResult(T:Oid, M:Oid, Q:Qid, T:Term, T2:Term, S:Qid, B:Bound, F:Qid, none, N:Nat) .

  op getNarrowingSearchResultAndPath : Oid Oid Qid Term Term Qid Bound Qid Nat -> Msg .
  eq getNarrowingSearchResultAndPath(T:Oid, M:Oid, Q:Qid, T:Term, T2:Term, S:Qid, B:Bound, F:Qid, N:Nat) =
     getNarrowingSearchResultAndPath(T:Oid, M:Oid, Q:Qid, T:Term, T2:Term, S:Qid, B:Bound, F:Qid, none, N:Nat) .
endm
