# $Id$


include "publidoc.rnc" {
   start = publiquiz

   document.content =
      top.head?,
      (division | topic | quiz)+
}

publiquiz = element publiquiz {
   publiquiz.attributes,
   publiquiz.content
}

publiquiz.attributes =
   version.attribute

publiquiz.content =
   document
 | top.quiz


# =============================================================================
#                                  TOP LEVEL
# =============================================================================

# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ quiz ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

top.quiz = element quiz { top.quiz.attributes, quiz.content }

top.quiz.attributes =
   quiz.id.attribute
 & lang.attribute?


# =============================================================================
#                               COMPONENT LEVEL
# =============================================================================

# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ quiz ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

quiz = element quiz { quiz.attributes, quiz.content }

quiz.attributes =
   quiz.id.attribute?
 & lang.attribute?
quiz.id.attribute = attribute xml:id { xsd:ID }

quiz.content =
   component.head?,
   instructions,
   (engine | composite)?,
   help?,
   commentary?


# =============================================================================
#                                 SECTION LEVEL
# =============================================================================

# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ section ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

blanks.section = element section { section.attributes, blanks.section.content }
point.section = element section { section.attributes, point.section.content }

blanks.section.content =
   section.head?,
   (blanks.section+ | blanks.block+)
point.section.content =
   section.head?,
   (point.section+ | point.block+)

# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ instructions ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

instructions = element instructions { section.content }

# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ engine ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

engine =
   choices.radio
 | choices.check
 | blanks.fill
 | blanks.select
 | point
 | matching
 | sort

# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ choices ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

choices.radio = element choices {
   attribute type { "radio" }, choices.attributes, choices.radio.content }
choices.check = element choices {
   attribute type { "check" }, choices.attributes, choices.check.content }

choices.attributes =
   shuffle.attribute?
shuffle.attribute = attribute shuffle { xsd:boolean }

choices.radio.content =
   choices.right
 & choices.wrong+
choices.check.content =
   (choices.right | choices.wrong)+

# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ blanks ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

blanks.fill = element blanks { blanks.fill.attributes, blanks.fill.content }
blanks.select = element blanks {
   blanks.select.attributes, blanks.select.content }

blanks.fill.attributes =
   attribute type { "fill" }
 & strict.attribute?
blanks.select.attributes =
   attribute type { "select" },
   multiple.attribute?
strict.attribute = attribute strict { xsd:boolean }
multiple.attribute = attribute multiple { xsd:boolean }

blanks.fill.content =
   (blanks.block+ | blanks.section+)
blanks.select.content =
   blanks.wrongs?,
   (blanks.block+ | blanks.section+)

# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ point ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

point = element point { point.attributes, point.content }
   
point.attributes =
   point.type.attribute?
point.type.attribute = attribute type {
   "radio" | "radio_button" | "check" | "check_button" }

point.content =
   (point.section+ | point.block+)

# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ matching ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

matching = element matching { matching.content }
   
matching.content =
   match,
   match+

# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ sort ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sort = element sort { sort.attributes, sort.content }

sort.attributes =
   shuffle.attribute?
   
sort.content =
   comparison?,
   sort.item,
   sort.item+

# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ composite ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

composite = element composite { composite.content }
   
composite.content =
   (instructions?, engine),
   (instructions?, engine)+

# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ help ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

help = element help { help.content }

help.content =
   (section+ | block+)?,
   link*

# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ commentary ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

commentary = element commentary { commentary.content }

commentary.content =
   (section+ | block+)


# =============================================================================
#                                 BLOCK LEVEL
# =============================================================================

# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ block ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

blanks.block =
   (blanks.p | speech | blanks.list | blockquote | blanks.table | media)
point.block =
   (point.p | speech | point.list | blockquote | point.table | media)

# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ p ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

blanks.p = element p { blanks.p.content }
point.p = element p { point.p.content }

blanks.p.content =
   inlines
 & blank*
point.p.content =
   inlines
 & point.right*
 & point.wrong*

# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ list ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

# ~~~~~~ list
blanks.list = element list { blanks.list.content }
point.list = element list { point.list.content }

blanks.list.content =
   block.head?,
   (  (attribute type {"ordered"}?, blanks.item, blanks.item+)
    | (attribute type {"glossary"}, glossary.item+) )
point.list.content =
   block.head?,
   (  (attribute type {"ordered"}?, point.item, point.item+)
    | (attribute type {"glossary"}, glossary.item+) )

# ~~~~~~ item
blanks.item = element item { blanks.item.content }
point.item = element item { point.item.content }

blanks.item.content =
   (inlines & blank*)
 | blanks.block+
point.item.content =
   (inlines & point.right* & point.wrong*)
 | point.block+

# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ table ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

blanks.table = element table { blanks.table.content }
point.table = element table { point.table.content }

blanks.table.content =
   block.head?,
   blanks.tgroup+,
   caption?
point.table.content =
   block.head?,
   point.tgroup+,
   caption?

# ~~~~~~ tgroup
blanks.tgroup = element tgroup { tgroup.attributes, blanks.tgroup.content }
point.tgroup = element tgroup { tgroup.attributes, point.tgroup.content }

blanks.tgroup.content =
   thead?,
   blanks.tbody
point.tgroup.content =
   thead?,
   point.tbody

# ~~~~~~ tbody
blanks.tbody = element tbody { tbody.attributes, blanks.tbody.content }
point.tbody = element tbody { tbody.attributes, point.tbody.content }

blanks.tbody.content =
   blanks.row+
point.tbody.content =
   point.row+

# ~~~~~~ row
blanks.row = element row { row.attribute, blanks.row.content }
point.row = element row { row.attribute, point.row.content }

blanks.row.content =
  blanks.entry+
point.row.content =
  point.entry+

# ~~~~~~ entry
blanks.entry = element entry { blanks.entry.content }
point.entry = element entry { point.entry.content }

blanks.entry.content =
   (inlines & blank*)
 | (p | media)+

point.entry.content =
   (inlines & point.right* & point.wrong*)
 | (p | media)+


# ~~~~~~~~~~~~~~~~~~~~~~~~ choices.right, choices.wrong ~~~~~~~~~~~~~~~~~~~~~~~

choices.right = element right { choices.right.content }
choices.wrong = element wrong { choices.right.content }

choices.right.content =
   inlines
 | p+


# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ blanks.wrongs ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

# ~~~~~~ blanks.wrongs
blanks.wrongs = element wrongs { blanks.wrongs.content }

blanks.wrongs.content =
   blanks.wrong+

# ~~~~~~ blanks.wrong
blanks.wrong = element wrong { blanks.wrong.content }

blanks.wrong.content = text

# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ match ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

match = element match { match.content }

match.content =
   (p | section),
   (p | section)

# ~~~~~~~~~~~~~~~~~~~~~~~~ (sort) comparaison, item ~~~~~~~~~~~~~~~~~~~~~~~~~~~

# ~~~~~~ comparison
comparison = element comparison { comparison.content }

comparison.content = inlines

# ~~~~~~ sort.item
sort.item = element item { sort.item.attributes, sort.item.content }

sort.item.attributes =
   item.shuffle.attribute?
item.shuffle.attribute = attribute shuffle { xsd:integer }

sort.item.content = inlines


# =============================================================================
#                                 INLINE LEVEL
# =============================================================================

# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ blank ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

# ~~~~~~ blank
blank = element blank { blank.content }

blank.content =
   text
 | (s+, help?, commentary?)

# ~~~~~~ s
s = element s { s.content }

s.content = text

# ~~~~~~~~~~~~~~~~~~~~~~~~~ point.right, point.wrong ~~~~~~~~~~~~~~~~~~~~~~~~~~

point.right = element right { point.right.content }
point.wrong = element wrong { point.right.content }

point.right.content = inlines