Add flag to to make subtype of AbstractOptimizer

Author: odow

src/Utilities/model.jl

@@ -82,7 +82,9 @@ function _getlocr(constrs::Vector{<:ConstraintEntry},
 end
 
 # Implementation of MOI for AbstractModel
-abstract type AbstractModel{T} <: MOI.AbstractOptimizer end
+abstract type AbstractModelLike{T} <: MOI.ModelLike end
+abstract type AbstractOptimizer{T} <: MOI.AbstractOptimizer end
+const AbstractModel{T} = Union{AbstractModelLike{T}, AbstractOptimizer{T}}
 
 getconstrloc(model::AbstractModel, ci::CI) = model.constrmap[ci.value]
 
@@ -806,7 +808,18 @@ _broadcastfield(b, s::SymbolFS) = :($b(f, model.$(_field(s))))
 # This macro is for expert/internal use only. Prefer the concrete Model type
 # instantiated below.
 """
-    macro model(model_name, scalar_sets, typed_scalar_sets, vector_sets, typed_vector_sets, scalar_functions, typed_scalar_functions, vector_functions, typed_vector_functions)
+    macro model(
+        model_name,
+        scalar_sets,
+        typed_scalar_sets,
+        vector_sets,
+        typed_vector_sets,
+        scalar_functions,
+        typed_scalar_functions,
+        vector_functions,
+        typed_vector_functions,
+        is_optimizer = false
+    )
 
 Creates a type `model_name` implementing the MOI model interface and containing
 `scalar_sets` scalar sets `typed_scalar_sets` typed scalar sets, `vector_sets`
@@ -838,6 +851,9 @@ addition to being different between constraints `F`-in-`S` for the same types
 use the the value of the index directly in a dictionary representing a mapping
 between constraint indices and something else.
 
+If `is_optimizer = true`, the resulting stuct is a subtype of
+`MOIU.AbstractOptimizer`, otherwise, it is a subtype of `MOIU.AbstractModelLike`.
+
 ### Examples
 
 The model describing an linear program would be:
@@ -850,7 +866,9 @@ The model describing an linear program would be:
       (),                                                         # untyped scalar functions
       (MOI.ScalarAffineFunction,),                                #   typed scalar functions
       (MOI.VectorOfVariables,),                                   # untyped vector functions
-      (MOI.VectorAffineFunction,))                                #   typed vector functions
+      (MOI.VectorAffineFunction,)                                 #   typed vector functions
+      true
+    )
 ```
 
 Let `MOI` denote `MathOptInterface`, `MOIU` denote `MOI.Utilities` and
@@ -868,7 +886,7 @@ struct LPModelVectorConstraints{T, F <: MOI.AbstractVectorFunction} <: MOIU.Cons
     nonnegatives::Vector{MOIU.ConstraintEntry{F, MOI.Nonnegatives}}
     nonpositives::Vector{MOIU.ConstraintEntry{F, MOI.Nonpositives}}
 end
-mutable struct LPModel{T} <: MOIU.AbstractModel{T}
+mutable struct LPModel{T} <: MOI.AbstractOptimizer
     name::String
     sense::MOI.OptimizationSense
     objective::Union{MOI.SingleVariable, MOI.ScalarAffineFunction{T}, MOI.ScalarQuadraticFunction{T}}
@@ -900,13 +918,19 @@ end
 The type `LPModel` implements the MathOptInterface API except methods specific
 to solver models like `optimize!` or `getattribute` with `VariablePrimal`.
 """
-macro model(model_name, ss, sst, vs, vst, sf, sft, vf, vft)
+macro model(model_name, ss, sst, vs, vst, sf, sft, vf, vft, is_optimizer = false)
     scalar_sets = [SymbolSet.(ss.args, false); SymbolSet.(sst.args, true)]
     vector_sets = [SymbolSet.(vs.args, false); SymbolSet.(vst.args, true)]
 
     scname = esc(Symbol(string(model_name) * "ScalarConstraints"))
     vcname = esc(Symbol(string(model_name) * "VectorConstraints"))
+
     esc_model_name = esc(model_name)
+    header = if is_optimizer
+        :($(esc(model_name)){T} <: AbstractOptimizer{T})
+    else
+        :($(esc(model_name)){T} <: AbstractModelLike{T})
+    end
 
     scalar_funs = [SymbolFun.(sf.args, false, Ref(scname));
                   SymbolFun.(sft.args, true, Ref(scname))]
@@ -924,7 +948,7 @@ macro model(model_name, ss, sst, vs, vst, sf, sft, vf, vft)
     end
 
     modeldef = quote
-        mutable struct $esc_model_name{T} <: AbstractModel{T}
+        mutable struct $header
             name::String
             senseset::Bool
             sense::$MOI.OptimizationSense

test/Utilities/model.jl

@@ -25,8 +25,28 @@ module TestExternalModel
         (NewFunction,),
         (),
         (),
-        ()
+        (),
     )
+    MathOptInterface.Utilities.@model(ExternalOptimizer,
+        (MathOptInterface.ZeroOne, NewSet,),
+        (),
+        (),
+        (),
+        (NewFunction,),
+        (),
+        (),
+        (),
+        true
+    )
+end
+
+@testset "Super-types" begin
+    model = TestExternalModel.ExternalModel{Float64}()
+    optimizer = TestExternalModel.ExternalOptimizer{Float64}()
+    @test isa(model, MOIU.AbstractModelLike{Float64})
+    @test !isa(model, MOIU.AbstractOptimizer{Float64})
+    @test !isa(optimizer, MOIU.AbstractModelLike{Float64})
+    @test isa(optimizer, MOIU.AbstractOptimizer{Float64})
 end
 
 @testset "External @model" begin