mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-22 04:43:53 +00:00
d465fa53cb
Discussion of these changes can be found on the Mercury developers
mailing list archives from June 2018.
COPYING.LIB:
Add a special linking exception to the LGPL.
*:
Update references to COPYING.LIB.
Clean up some minor errors that have accumulated in copyright
messages.
105 lines
1.7 KiB
Mathematica
105 lines
1.7 KiB
Mathematica
%---------------------------------------------------------------------------%
|
|
% Copyright (C) 2000 The University of Melbourne.
|
|
% Copyright (C) 2014, 2018 The Mercury team.
|
|
% This file is distributed under the terms specified in COPYING.LIB.
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% Main author: conway@cs.mu.oz.au.
|
|
%
|
|
%---------------------------------------------------------------------------%
|
|
:- module xml.dtd.
|
|
|
|
:- interface.
|
|
|
|
:- import_module list, map.
|
|
|
|
:- type (A -> B) == map(A, B).
|
|
|
|
:- type name == string.
|
|
|
|
:- type token == string.
|
|
|
|
:- type [] ---> [].
|
|
|
|
:- type [T1|T2] == list(T1).
|
|
|
|
:- type dtd
|
|
---> dtd(
|
|
root :: name,
|
|
elements :: (name -> element),
|
|
entities :: (name -> entityDef),
|
|
pentities :: (name -> entityDef)
|
|
).
|
|
|
|
:- type element
|
|
---> element(
|
|
eName :: name,
|
|
eAttrs :: (name -> attribute),
|
|
eContent :: content
|
|
).
|
|
|
|
:- type content
|
|
---> empty
|
|
; any
|
|
; children(contentParticle)
|
|
; mixed(mixed).
|
|
|
|
:- type contentParticle
|
|
---> (children - multiplicity).
|
|
|
|
:- type children
|
|
---> seq(list(contentParticle))
|
|
; alt(list(contentParticle))
|
|
; element(name)
|
|
.
|
|
|
|
:- type mixed
|
|
---> mixed(list(name)).
|
|
|
|
:- type multiplicity
|
|
---> one
|
|
; ('*')
|
|
; ('+')
|
|
; ('?')
|
|
.
|
|
|
|
:- type attribute
|
|
---> attribute(
|
|
aName :: name,
|
|
aType :: (type),
|
|
aDefault :: default
|
|
).
|
|
|
|
:- type (type)
|
|
---> cdata
|
|
; id
|
|
; idref
|
|
; idrefs
|
|
; entity
|
|
; entities
|
|
; nmtoken
|
|
; nmtokens
|
|
; notation(list(token))
|
|
; enum(list(token))
|
|
.
|
|
|
|
:- type default
|
|
---> required
|
|
; implied
|
|
; defaulted(string)
|
|
; fixed(string)
|
|
.
|
|
|
|
:- type entityDef
|
|
---> internal(entity)
|
|
; external(externalId)
|
|
.
|
|
|
|
:- type entity == string.
|
|
|
|
:- type externalId
|
|
---> system(string)
|
|
; public(string, string)
|
|
.
|
|
|