fun.dtd • Dtd della Funzione

<!ELEMENT FUN               - - (DCL,
                                 NAME,
                                 TITLE,
                                 SYSTEM?,
                                 CLASS?,
                                 AUTHOR,
                                 DATE-COMPOSED,
                                 DATE-CHANGED,
                                 SOURCE-FILE?,
                                 PROTOTYPE*,
                                 DEFINE?,
                                 BODY,
                                 PARAM-LIST?,
                                 RETURN-LIST?) >

<!ENTITY % bodyinc SYSTEM "body.dtd">
%bodyinc;

<!ELEMENT DCL               - - EMPTY >
<!ATTLIST DCL value (FUN) #REQUIRED>
<!ELEMENT NAME              - - (#PCDATA) >
<!ELEMENT TITLE             - - (#PCDATA) >
<!ELEMENT SYSTEM            - - (#PCDATA) >
<!ELEMENT CLASS             - - (#PCDATA) >
<!ELEMENT AUTHOR            - - (#PCDATA) >
<!ELEMENT DATE-COMPOSED     - - (#PCDATA) >
<!ELEMENT DATE-CHANGED      - - (#PCDATA) >
<!ELEMENT SOURCE-FILE       - - (#PCDATA) >
<!ELEMENT PROTOTYPE         - - (#PCDATA) >
<!ELEMENT DEFINE            - - (#PCDATA) >
<!ELEMENT BODY              - -  %body.full.nh>

<!ELEMENT PARAM-LIST        - - (ELEM-PARAM-LIST, ELEM-PARAM-LIST*) >
<!ATTLIST PARAM-LIST NUM NUMBER #IMPLIED >
<!ELEMENT ELEM-PARAM-LIST   - - (ELEM-PARAM-NAME, ELEM-PARAM-DESC) >
<!ELEMENT ELEM-PARAM-NAME   - - (#PCDATA) >
<!ELEMENT ELEM-PARAM-DESC   - - %body.mini >
<!ATTLIST ELEM-PARAM-NAME TYPE CDATA #IMPLIED >

<!ELEMENT RETURN-LIST       - - (ELEM-RETURN-LIST, ELEM-RETURN-LIST*) >
<!ATTLIST RETURN-LIST NUM NUMBER #IMPLIED >
<!ELEMENT ELEM-RETURN-LIST  - - (ELEM-RETURN-VALUE, ELEM-RETURN-DESC) >
<!ELEMENT ELEM-RETURN-VALUE - - (#PCDATA) >
<!ELEMENT ELEM-RETURN-DESC  - - %body.mini >