allow supertypes on struct definitions

Author: alhirzel

src/@aml/@aml_create.jl

@@ -73,6 +73,11 @@ function aml_create(expr::Expr, args_param, args_defaultvalue, args_type, args_v
 
         end # endfor
         ################################################################
+        # Remove supertype if it is present
+        if T isa Expr && T.head == :<:
+            T = T.args[1]
+        end
+        ################################################################
         # Type name is a single name (symbol)
         if T isa Symbol
             S = T

test/struct_definition.jl

@@ -45,6 +45,21 @@ pprint(pxml_vector)
 @aml mutable struct MyGeneralXML2{T} "MyGeneralXML2"
     myfield::T, "~"
 end
+
+################################################################
+
+abstract type AbstractTestType end
+
+# non-parametric with supertype
+@aml mutable struct MyParentedType <: AbstractTestType "MyParentedType"
+    myfield::String, "~"
+end
+
+# parametric with supertype
+@aml mutable struct MyParentedType2{T} <: AbstractTestType "MyParentedType2"
+    myfield::T, "~"
+end
+
 ################################################################
 
 # empty or no aml