From de7b5d87c6c96e80cd1a83ad6e7a9a39bca939c8 Mon Sep 17 00:00:00 2001
From: Boris Kolpackov <boris@codesynthesis.com>
Date: Thu, 18 Sep 2014 12:30:08 +0200
Subject: Mark type schemas

---
 xsd-frontend/transformations/schema-per-type.cxx | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/xsd-frontend/transformations/schema-per-type.cxx b/xsd-frontend/transformations/schema-per-type.cxx
index 2fc14b5..3df3b9d 100644
--- a/xsd-frontend/transformations/schema-per-type.cxx
+++ b/xsd-frontend/transformations/schema-per-type.cxx
@@ -232,6 +232,11 @@ namespace XSDFrontend
           //
           root.new_edge<Includes> (s, ts, path);
           tsm[&t] = &ts;
+
+          // Also mark this schema as "type schema" in case someone
+          // needs to distinguish between the two kinds.
+          //
+          ts.context ().set ("type-schema", true);
         }
         else
           ++i;
-- 
cgit v1.1