Add GTPSA extension

Project.toml

@@ -41,6 +41,7 @@ ChainRulesCore = "d360d2e6-b24c-11e9-a2a3-2a2ae2dbcce4"
 Distributions = "31c24e10-a181-5473-b8eb-7969acd0382f"
 Enzyme = "7da242da-08ed-463a-9acd-ee780be4f1d9"
 GeneralizedGenerated = "6b9d7cbe-bcb9-11e9-073f-15a7a543e2eb"
+GTPSA = "b27dd330-f138-47c5-815b-40db9dd9b6e8"
 MPI = "da04e1cc-30fd-572f-bb4f-1f8673147195"
 Measurements = "eff96d63-e80a-5855-80a2-b1b0885c5ab7"
 MonteCarloMeasurements = "0987c9cc-fe09-11e8-30f0-b96dd679fdca"
@@ -55,6 +56,7 @@ DiffEqBaseChainRulesCoreExt = "ChainRulesCore"
 DiffEqBaseDistributionsExt = "Distributions"
 DiffEqBaseEnzymeExt = ["ChainRulesCore", "Enzyme"]
 DiffEqBaseGeneralizedGeneratedExt = "GeneralizedGenerated"
+DiffEqBaseGTPSAExt = "GTPSA"
 DiffEqBaseMPIExt = "MPI"
 DiffEqBaseMeasurementsExt = "Measurements"
 DiffEqBaseMonteCarloMeasurementsExt = "MonteCarloMeasurements"
@@ -81,6 +83,7 @@ ForwardDiff = "0.10"
 FunctionWrappers = "1.0"
 FunctionWrappersWrappers = "0.1"
 GeneralizedGenerated = "0.3"
+GTPSA = "1.3"
 LinearAlgebra = "1.9"
 Logging = "1.9"
 MPI = "0.20"

ext/DiffEqBaseGTPSAExt.jl

@@ -0,0 +1,17 @@
+module DiffEqBaseGTPSAExt
+
+if isdefined(Base, :get_extension)
+    using DiffEqBase
+    import DiffEqBase: value
+    using GTPSA
+else
+    using ..DiffEqBase
+    import ..DiffEqBase: value
+    using ..GTPSA
+end
+
+value(x::TPS) = scalar(x);
+value(::Type{TPS{T}}) where {T} = T
+
+
+end