= V5 MultiLine NoSorting TabWidth=30 H=";* About this library" This library was created by Ron Van den Branden in the course of the DALF project ("Digital Archive of Letters in Flanders"). It is provided to facilitate the creation of XML documents adhering to the DALF DTD (version 1.0). See http://www.kantl.be/ctb/project/dalf/ ====================================================== This is version 1.0 of the DALF clipbook library Current versions are avalable from: http://www.kantl.be/ctb/project/dalf/ ====================================================== Copyright (c) 2003 CTB & Ron Van den Branden. Permission to copy in any form is granted, provided this notice is included in all copies. H=";* How to use" This library is meant to facilitate the creation of XML documents that adhere to the DALF DTD. The clips are conceived as (cascades of) completion wizards with a uniform structure: * (where appropriate) a dialog window to select relevant subelements * a dialog window to provide contents for (selected) elements * a dialog window to select relevant attributes * a dialog window to provide values for selected attributes Clips ending in "_full" guide the encoder to the construction of at least minimally adhering DALF structures, through the incremental processing of selected lower-level clips. Also provided are low-level clips for all DALF elements that can be used to manually input contents, or to be wrapped automatically around selected text. Note that Notetab provides a convenient "in-context clipbook" function. By hitting ESC, a combo box will show up at the cursor position in the document window, containing all clips of the active library. The desired clip can be seleced by scrolling the list, or starting to type its name (this in-context clipbook provides auto-complete functionality), followed by RETURN. IMPORTANT! Some Notetab preferences must be set in order to make the inserted tags appear in the correct case for the DALF DTD (XML is case sensitive!): * In the "View" menu, select "Options" * Select the "HTML files" tab * Make sure that the "Create XHTML tags" option is checked, and the "Create Uppercase Tags" option is shaded =================================================== the clips in this library permit a layered canceling procedure (partial progression memory) that allows backtracking to parent processes =================================================== H=";____________________________" H="runtidy" ^!RunTidy -i -xml -q H=";" H=";============================" H=";DALF document prologue" The following clips provide completion wizards for the necessary prologue information of a DALF document: the XML declaration, stylesheet declaration, notation declaration(s), and external and internal entity declaration(s). H=";============================" H="new DALF document" ^!SetArray %options_DALF%=^?{(T=A)choose options:==specify stylesheet^=stylesheet_declaration|declare notation^=notation_declaration|declare external entity ^=external_entity_declaration|declare internal entity^=internal_entity_declaration} ^!InsertWizardHtml ^p ^!If ^$StrPos("stylesheet";"^%options_DALF%";false)$>0 ^!Clip stylesheet_declaration ^!InsertWizardHtml 0 ^!Clip notation_declaration ^!If ^$StrPos("external_entity_declaration";"^%options_DALF%";false)$>0 ^!Clip external_entity_declaration ^!If ^$StrPos("internal_entity_declaration";"^%options_DALF%";false)$>0 ^!Clip internal_entity_declaration ^!InsertWizardHtml ]>^p H="stylesheet_declaration" ^!Set %stylesheet%=^?{(T=A)select relevant stylesheet type==css|xsl} ^!InsertWizardHtml ^p H="notation_declaration" ^!InsertWizardHtml ^p ^!Set %again%=^?{(T=A)other notation declarations?==yes|no} ^!If ^$StrPos("yes";"^%again%";false)$>0 ^!Clip notation_declaration H="external_entity_declaration" ^!Set %status%=^?{(T=A)check whether the entity will be parsed or unparsed==parsed|unparsed} ^!If "^%status%"="parsed" Skip_2 ^!InsertWizardHtml ^p ^!Goto Skip ^!InsertWizardHtml ^p ^!Set %again%=^?{(T=A)other external entity declarations?==yes|no} ^!If ^$StrPos("yes";"^%again%";false)$>0 ^!Clip external_entity_declaration H="internal_entity_declaration" ^!InsertWizardHtml ^p ^!Set %again%=^?{(T=A)other entity references?==yes|no} ^!If ^$StrPos("yes";"^%again%";false)$>0 ^!Clip internal_entity_declaration H=";" H=";============================" H=";structured tag wizards" The following clips (ending in suffix "_full") provide completion wizards for different (fragments of) complex DALF structures. Through a cascade of dialog windows the encoder is guided to the completion of structures that meet at least the minimal structural requirements for the elements concerned, and is offered choices for optional features. H=";============================" ;H=";" H="" ^!Set %tagname%=TEI.2 ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml ^p ^!Set %attList%=;%attributes%= ^!Clip ^!InsertWizardHtml ^p ^!Clip ^!InsertWizardHtml ^p H="" ^!Set %tagname%=teiHeader ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type=_text|}" creator="^?{creator}" status="^?{(T=C)status==_new|update}" date.created="^?{date.created}" date.updated="^?{date.updated}" ^!InsertWizardHtml ^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_teiHeader%=^?{(T=A)which elements? (required ones are already checked)==_fileDesc^=fileDesc_full|encodingDesc^=encodingDesc_full|profileDesc^=profileDesc_full|revisionDesc^=revisionDesc_full} ^!IfCancel END ^!Set %Count_teiHeader%=^%elList_teiHeader0% ^!Set %Index_teiHeader%=0 ^!If ^$StrPos("fileDesc";"^%elList_teiHeader%";false)$>0 Skip_2 ^!Prompt "there must be a in " ^!Goto required_elements :loop ^!Inc %Index_teiHeader% ^!If ^%Index_teiHeader% > ^%Count_teiHeader% ^!Goto complete ^!Clip <^%elList_teiHeader^%Index_teiHeader%%> ^!If ^%Index_teiHeader% < ^%Count_teiHeader% ^!InsertText ^p ^!If ^%Index_teiHeader% = ^%Count_teiHeader% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml H="" ^!Set %tagname%=text ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declaring} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml ^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_text%=^?{(T=A)which elements? (required ones are already checked)==envelope^=envelope_full|front|body|group^=group_full|back} ^!IfCancel END ^!Set %Count_text%=^%elList_text0% ^!Set %Index_text%=0 ^!If ^$StrPos("body";"^%elList_text%";false)$=0 Skip_3 ^!If ^$StrPos("group";"^%elList_text%";false)$=0 Skip_5 ^!Prompt "there must either be a or a in " ^!Goto required_elements ^!If ^$StrPos("group";"^%elList_text%";false)$>0 Skip_2 ^!Prompt "there must either be a or a in " ^!Goto required_elements :loop ^!Inc %Index_text% ^!If ^%Index_text% > ^%Count_text% ^!Goto complete ^!Clip <^%elList_text^%Index_text%%> ^!If ^%Index_text% < ^%Count_text% ^!InsertText ^p ^!If ^%Index_text% = ^%Count_text% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml H=";____________________________" H=";" H=";HEADER STRUCTURES" The following clips provide completion wizards for the header elements of the DALF DTD. They are listed in a top-down manner, according to the structural level on which they occur. H=";" H=";level 1 header elements" H="" ^!Set %tagname%=fileDesc ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml ^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_fileDesc%=^?{(T=A)which elements? (required ones are already checked)==_titleStmt^=titleStmt_full|editionStmt^=editionStmt_full|extent|_publicationStmt^=publicationStmt_full|seriesStmt^=seriesStmt_full|notesStmt^=notesStmt_full|_sourceDesc^=sourceDesc_full} ^!IfCancel END ^!Set %Count_fileDesc%=^%elList_fileDesc0% ^!Set %Index_fileDesc%=0 ^!If ^$StrPos("titleStmt";"^%elList_fileDesc%";false)$>0 Skip_2 ^!Prompt "there must be a in " ^!Goto required_elements ^!If ^$StrPos("publicationStmt";"^%elList_fileDesc%";false)$>0 Skip_2 ^!Prompt "there must be a in " ^!Goto required_elements ^!If ^$StrPos("sourceDesc";"^%elList_fileDesc%";false)$>0 Skip_2 ^!Prompt "there must be a in " ^!Goto required_elements :loop ^!Inc %Index_fileDesc% ^!If ^%Index_fileDesc% > ^%Count_fileDesc% ^!Goto complete ^!Clip <^%elList_fileDesc^%Index_fileDesc%%> ^!If ^%Index_fileDesc% < ^%Count_fileDesc% ^!InsertText ^p ^!If ^%Index_fileDesc% = ^%Count_fileDesc% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml H="" ^!Set %tagname%=encodingDesc ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml ^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_encodingDesc%=^?{(T=A)which elements? (required ones are already checked)==projectDesc^=projectDesc_full|samplingDecl^=samplingDecl_full|editorialDecl^=editorialDecl_full|tagsDecl^=tagsDecl_full|refsDecl^=refsDecl_full|classDecl^=classDecl_full|metDecl|fsdDecl|variantEncoding|p} ^!IfCancel END ^!Set %Count_encodingDesc%=^%elList_encodingDesc0% ^!Set %Index_encodingDesc%=0 :loop ^!Inc %Index_encodingDesc% ^!If ^%Index_encodingDesc% > ^%Count_encodingDesc% ^!Goto complete ^!Clip <^%elList_encodingDesc^%Index_encodingDesc%%> ^!If ^%Index_encodingDesc% < ^%Count_encodingDesc% ^!InsertText ^p ^!If ^%Index_encodingDesc% = ^%Count_encodingDesc% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml H="" ^!Set %tagname%=profileDesc ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml ^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_profileDesc%=^?{(T=A)which elements? (required ones are already checked)==creation|langUsage^=langusage_full|handList^=handlist_full|layerList^=layerList_full|textClass^=textClass_full} ^!IfCancel END ^!Set %Count_profileDesc%=^%elList_profileDesc0% ^!Set %Index_profileDesc%=0 :loop ^!Inc %Index_profileDesc% ^!If ^%Index_profileDesc% > ^%Count_profileDesc% ^!Goto complete ^!Clip <^%elList_profileDesc^%Index_profileDesc%%> ^!If ^%Index_profileDesc% < ^%Count_profileDesc% ^!InsertText ^p ^!If ^%Index_profileDesc% = ^%Count_profileDesc% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml H="" ^!Set %tagname%=revisionDesc ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml ^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_revisionDesc%=^?{(T=A)which elements? (required ones are already checked)==_list|_change^=change_full} ^!IfCancel END ^!Set %Count_revisionDesc%=^%elList_revisionDesc0% ^!Set %Index_revisionDesc%=0 ^!If ^$StrPos("list";"^%elList_revisionDesc%";false)$>0 Skip_2 ^!Prompt "there must be a in " ^!Goto required_elements ^!If ^$StrPos("change";"^%elList_revisionDesc%";false)$>0 Skip_2 ^!Prompt "there must be a in " ^!Goto required_elements :loop ^!Inc %Index_revisionDesc% ^!If ^%Index_revisionDesc% > ^%Count_revisionDesc% ^!Goto complete ^!Clip <^%elList_revisionDesc^%Index_revisionDesc%%> ^!If ^%Index_revisionDesc% < ^%Count_revisionDesc% ^!InsertText ^p ^!If ^%Index_revisionDesc% = ^%Count_revisionDesc% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml H=";level 2 header elements" H="" ^!Set %tagname%=titleStmt ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml ^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_titleStmt%=^?{(T=A)which elements? (required ones are already checked)==_title|author|editor|sponsor|funder|principal|respStmt^=respStmt_full} ^!IfCancel END ^!Set %Count_titleStmt%=^%elList_titleStmt0% ^!Set %Index_titleStmt%=0 ^!If ^$StrPos("title";"^%elList_titleStmt%";false)$>0 Skip_2 ^!Prompt "there must be a in <titleStmt>" ^!Goto required_elements :loop ^!Inc %Index_titleStmt% ^!If ^%Index_titleStmt% > ^%Count_titleStmt% ^!Goto complete ^!Clip <^%elList_titleStmt^%Index_titleStmt%%> ^!If ^%Index_titleStmt% < ^%Count_titleStmt% ^!InsertText ^p ^!If ^%Index_titleStmt% = ^%Count_titleStmt% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </titleStmt> H="<editionStmt_full>" ^!Set %tagname%=editionStmt ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <editionStmt ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_editionStmt%=^?{(T=A)which elements? (required ones are already checked)==_edition|respStmt^=respStmt_full|_p} ^!IfCancel END ^!Set %Count_editionStmt%=^%elList_editionStmt0% ^!Set %Index_editionStmt%=0 ^!If ^$StrPos("edition";"^%elList_editionStmt%";false)$>0 Skip_2 ^!Prompt "there must be a <edition> in <editionStmt>" ^!Goto required_elements ^!If ^$StrPos("p";"^%elList_editionStmt%";false)$>0 Skip_2 ^!Prompt "there must be a <p> in <editionStmt>" ^!Goto required_elements :loop ^!Inc %Index_editionStmt% ^!If ^%Index_editionStmt% > ^%Count_editionStmt% ^!Goto complete ^!Clip <^%elList_editionStmt^%Index_editionStmt%%> ^!If ^%Index_editionStmt% < ^%Count_editionStmt% ^!InsertText ^p ^!If ^%Index_editionStmt% = ^%Count_editionStmt% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </editionStmt> H="<publicationStmt_full>" ^!Set %tagname%=publicationStmt ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <publicationStmt ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_publicationStmt%=^?{(T=A)which elements? (at least one must be selected))==publisher|distributor|authority|pubPlace|address|idno|availability^=availability_full|date} ^!IfCancel END ^!Set %Count_publicationStmt%=^%elList_publicationStmt0% ^!Set %Index_publicationStmt%=0 ^!If ^%Count_publicationStmt%>0 Skip_2 ^!Prompt "at least one element must be selected" ^!Goto required_elements :loop ^!Inc %Index_publicationStmt% ^!If ^%Index_publicationStmt% > ^%Count_publicationStmt% ^!Goto complete ^!Clip <^%elList_publicationStmt^%Index_publicationStmt%%> ^!If ^%Index_publicationStmt% < ^%Count_publicationStmt% ^!InsertText ^p ^!If ^%Index_publicationStmt% = ^%Count_publicationStmt% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </publicationStmt> H="<seriesStmt_full>" ^!Set %tagname%=seriesStmt ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <seriesStmt ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_seriesStmt%=^?{(T=A)which elements? (required ones are already checked)==_title|idno|respStmt^=respStmt_full|_p} ^!IfCancel END ^!Set %Count_seriesStmt%=^%elList_seriesStmt0% ^!Set %Index_seriesStmt%=0 ^!If ^$StrPos("title";"^%elList_seriesStmt%";false)$>0 Skip_2 ^!Prompt "there must be a <title> in <seriesStmt>" ^!Goto required_elements ^!If ^$StrPos("p";"^%elList_seriesStmt%";false)$>0 Skip_2 ^!Prompt "there must be a <p> in <seriesStmt>" ^!Goto required_elements :loop ^!Inc %Index_seriesStmt% ^!If ^%Index_seriesStmt% > ^%Count_seriesStmt% ^!Goto complete ^!Clip <^%elList_seriesStmt^%Index_seriesStmt%%> ^!If ^%Index_seriesStmt% < ^%Count_seriesStmt% ^!InsertText ^p ^!If ^%Index_seriesStmt% = ^%Count_seriesStmt% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </seriesStmt> H="<notesStmt_full>" ^!Set %tagname%=notesStmt ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <notesStmt ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_notesStmt%=^?{(T=A)which elements? (required ones are already checked)==_note|} ^!IfCancel END ^!Set %Count_notesStmt%=^%elList_notesStmt0% ^!Set %Index_notesStmt%=0 ^!If ^$StrPos("note";"^%elList_notesStmt%";false)$>0 Skip_2 ^!Prompt "there must be a <note> in <notesStmt>" ^!Goto required_elements :loop ^!Inc %Index_notesStmt% ^!If ^%Index_notesStmt% > ^%Count_notesStmt% ^!Goto complete ^!Clip <^%elList_notesStmt^%Index_notesStmt%%> ^!If ^%Index_notesStmt% < ^%Count_notesStmt% ^!InsertText ^p ^!If ^%Index_notesStmt% = ^%Count_notesStmt% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </notesStmt> H="<sourceDesc_full>" ^!Set %tagname%=sourceDesc ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declarable} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <sourceDesc ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_sourceDesc%=^?{(T=A)which elements? (required ones are already checked)==biblStruct|_letDesc^=letDesc_full|note} ^!IfCancel END ^!Set %Count_sourceDesc%=^%elList_sourceDesc0% ^!Set %Index_sourceDesc%=0 ^!If ^$StrPos("letDesc";"^%elList_sourceDesc%";false)$>0 Skip_2 ^!Prompt "there must be a <letDesc> in <sourceDesc>" ^!Goto required_elements :loop ^!Inc %Index_sourceDesc% ^!If ^%Index_sourceDesc% > ^%Count_sourceDesc% ^!Goto complete ^!Clip <^%elList_sourceDesc^%Index_sourceDesc%%> ^!If ^%Index_sourceDesc% < ^%Count_sourceDesc% ^!InsertText ^p ^!If ^%Index_sourceDesc% = ^%Count_sourceDesc% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </sourceDesc> H="<projectDesc_full>" ^!Set %tagname%=projectDesc ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declarable} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <projectDesc ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_projectDesc%=^?{(T=A)which elements? (required ones are already checked)==_p|} ^!IfCancel END ^!Set %Count_projectDesc%=^%elList_projectDesc0% ^!Set %Index_projectDesc%=0 ^!If ^$StrPos("p";"^%elList_projectDesc%";false)$>0 Skip_2 ^!Prompt "there must be a <p> in <projectDesc>" ^!Goto required_elements :loop ^!Inc %Index_projectDesc% ^!If ^%Index_projectDesc% > ^%Count_projectDesc% ^!Goto complete ^!Clip <^%elList_projectDesc^%Index_projectDesc%%> ^!If ^%Index_projectDesc% < ^%Count_projectDesc% ^!InsertText ^p ^!If ^%Index_projectDesc% = ^%Count_projectDesc% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </projectDesc> H="<samplingDecl_full>" ^!Set %tagname%=samplingDecl ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declarable} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <samplingDecl ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_samplingDecl%=^?{(T=A)which elements? (required ones are already checked)==_p|} ^!IfCancel END ^!Set %Count_samplingDecl%=^%elList_samplingDecl0% ^!Set %Index_samplingDecl%=0 ^!If ^$StrPos("p";"^%elList_samplingDecl%";false)$>0 Skip_2 ^!Prompt "there must be a <p> in <samplingDecl>" ^!Goto required_elements :loop ^!Inc %Index_samplingDecl% ^!If ^%Index_samplingDecl% > ^%Count_samplingDecl% ^!Goto complete ^!Clip <^%elList_samplingDecl^%Index_samplingDecl%%> ^!If ^%Index_samplingDecl% < ^%Count_samplingDecl% ^!InsertText ^p ^!If ^%Index_samplingDecl% = ^%Count_samplingDecl% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </samplingDecl> H="<editorialDecl_full>" ^!Set %tagname%=editorialDecl ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declarable} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <editorialDecl ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_editorialDecl%=^?{(T=A)which elements? (required ones are already checked)==_p|correction^=correction_full|normalization^=normalization_full|quotation^=quotation_full|hyphenation^=hyphenation_full|interpretation^=interpretation_full|segmentation^=segmentation_full|stdVals^=stdVals_full} ^!IfCancel END ^!Set %Count_editorialDecl%=^%elList_editorialDecl0% ^!Set %Index_editorialDecl%=0 ^!If ^$StrPos("p";"^%elList_editorialDecl%";false)$>0 Skip_2 ^!Prompt "there must be a <p> in <editorialDecl>" ^!Goto required_elements :loop ^!Inc %Index_editorialDecl% ^!If ^%Index_editorialDecl% > ^%Count_editorialDecl% ^!Goto complete ^!Clip <^%elList_editorialDecl^%Index_editorialDecl%%> ^!If ^%Index_editorialDecl% < ^%Count_editorialDecl% ^!InsertText ^p ^!If ^%Index_editorialDecl% = ^%Count_editorialDecl% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </editorialDecl> H="<tagsDecl_full>" ^!Set %tagname%=tagsDecl ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <tagsDecl ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_tagsDecl%=^?{(T=A)which elements? (required ones are already checked)==rendition|tagUsage} ^!IfCancel END ^!Set %Count_tagsDecl%=^%elList_tagsDecl0% ^!Set %Index_tagsDecl%=0 :loop ^!Inc %Index_tagsDecl% ^!If ^%Index_tagsDecl% > ^%Count_tagsDecl% ^!Goto complete ^!Clip <^%elList_tagsDecl^%Index_tagsDecl%%> ^!If ^%Index_tagsDecl% < ^%Count_tagsDecl% ^!InsertText ^p ^!If ^%Index_tagsDecl% = ^%Count_tagsDecl% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </tagsDecl> H="<refsDecl_full>" ^!Set %tagname%=refsDecl ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=doctype="^?{doctype=_TEI.2|}" ^!InsertWizardHtml <refsDecl ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_refsDecl%=^?{(T=A)which elements? (required ones are already checked)==_p|_step|_state} ^!IfCancel END ^!Set %Count_refsDecl%=^%elList_refsDecl0% ^!Set %Index_refsDecl%=0 ^!If ^$StrPos("p";"^%elList_refsDecl%";false)$>0 Skip_2 ^!Prompt "there must be a <p> in <refsDecl>" ^!Goto required_elements ^!If ^$StrPos("step";"^%elList_refsDecl%";false)$>0 Skip_2 ^!Prompt "there must be a <step> in <refsDecl>" ^!Goto required_elements ^!If ^$StrPos("state";"^%elList_refsDecl%";false)$>0 Skip_2 ^!Prompt "there must be a <state> in <refsDecl>" ^!Goto required_elements :loop ^!Inc %Index_refsDecl% ^!If ^%Index_refsDecl% > ^%Count_refsDecl% ^!Goto complete ^!Clip <^%elList_refsDecl^%Index_refsDecl%%> ^!If ^%Index_refsDecl% < ^%Count_refsDecl% ^!InsertText ^p ^!If ^%Index_refsDecl% = ^%Count_refsDecl% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </refsDecl> H="<classDecl_full>" ^!Set %tagname%=classDecl ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <classDecl ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_classDecl%=^?{(T=A)which elements? (required ones are already checked)==_taxonomy^=taxonomy_full|} ^!IfCancel END ^!Set %Count_classDecl%=^%elList_classDecl0% ^!Set %Index_classDecl%=0 ^!If ^$StrPos("taxonomy";"^%elList_classDecl%";false)$>0 Skip_2 ^!Prompt "there must be a <taxonomy> in <classDecl>" ^!Goto required_elements :loop ^!Inc %Index_classDecl% ^!If ^%Index_classDecl% > ^%Count_classDecl% ^!Goto complete ^!Clip <^%elList_classDecl^%Index_classDecl%%> ^!If ^%Index_classDecl% < ^%Count_classDecl% ^!InsertText ^p ^!If ^%Index_classDecl% = ^%Count_classDecl% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </classDecl> H="<langUsage_full>" ^!Set %tagname%=langUsage ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declarable} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <langUsage ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_langUsage%=^?{(T=A)which elements? (at least one must be selected)==p|language} ^!IfCancel END ^!Set %Count_langUsage%=^%elList_langUsage0% ^!Set %Index_langUsage%=0 ^!If ^%Count_langUsage%>0 Skip_2 ^!Prompt "at least one element must be selected" ^!Goto required_elements :loop ^!Inc %Index_langUsage% ^!If ^%Index_langUsage% > ^%Count_langUsage% ^!Goto complete ^!Clip <^%elList_langUsage^%Index_langUsage%%> ^!If ^%Index_langUsage% < ^%Count_langUsage% ^!InsertText ^p ^!If ^%Index_langUsage% = ^%Count_langUsage% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </langUsage> H="<handList_full>" ^!Set %tagname%=handList ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <handList ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_handList%=^?{(T=A)which elements? (required ones are already checked)==hand|} ^!IfCancel END ^!Set %Count_handList%=^%elList_handList0% ^!Set %Index_handList%=0 :loop ^!Inc %Index_handList% ^!If ^%Index_handList% > ^%Count_handList% ^!Goto complete ^!Clip <^%elList_handList^%Index_handList%%> ^!If ^%Index_handList% < ^%Count_handList% ^!InsertText ^p ^!If ^%Index_handList% = ^%Count_handList% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </handList> H="<layerList_full>" ^!Set %tagname%=layerList ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type}" ^!InsertWizardHtml <layerList ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_layerList%=^?{(T=A)which elements? (required ones are already checked)==_layer^=layer_full|} ^!IfCancel END ^!Set %Count_layerList%=^%elList_layerList0% ^!Set %Index_layerList%=0 ^!If ^$StrPos("layer";"^%elList_layerList%";false)$>0 Skip_2 ^!Prompt "there must be a <layer> in <layerList>" ^!Goto required_elements :loop ^!Inc %Index_layerList% ^!If ^%Index_layerList% > ^%Count_layerList% ^!Goto complete ^!Clip <^%elList_layerList^%Index_layerList%%> ^!If ^%Index_layerList% < ^%Count_layerList% ^!InsertText ^p ^!If ^%Index_layerList% = ^%Count_layerList% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </layerList> H="<textClass_full>" ^!Set %tagname%=textClass ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declarable} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <textClass ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_textClass%=^?{(T=A)which elements? (required ones are already checked)==classCode|catRef|keywords^=keywords_full} ^!IfCancel END ^!Set %Count_textClass%=^%elList_textClass0% ^!Set %Index_textClass%=0 :loop ^!Inc %Index_textClass% ^!If ^%Index_textClass% > ^%Count_textClass% ^!Goto complete ^!Clip <^%elList_textClass^%Index_textClass%%> ^!If ^%Index_textClass% < ^%Count_textClass% ^!InsertText ^p ^!If ^%Index_textClass% = ^%Count_textClass% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </textClass> H=";level 3 header elements" H="<respStmt_full>" ^!Set %tagname%=respStmt ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <respStmt ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_respStmt%=^?{(T=A)which elements? (required ones are already checked)==_resp|_name} ^!IfCancel END ^!Set %Count_respStmt%=^%elList_respStmt0% ^!Set %Index_respStmt%=0 ^!If ^$StrPos("resp";"^%elList_respStmt%";false)$>0 Skip_2 ^!Prompt "there must be a <resp> in <respStmt>" ^!Goto required_elements ^!If ^$StrPos("name";"^%elList_respStmt%";false)$>0 Skip_2 ^!Prompt "there must be a <name> in <respStmt>" ^!Goto required_elements :loop ^!Inc %Index_respStmt% ^!If ^%Index_respStmt% > ^%Count_respStmt% ^!Goto complete ^!Clip <^%elList_respStmt^%Index_respStmt%%> ^!If ^%Index_respStmt% < ^%Count_respStmt% ^!InsertText ^p ^!If ^%Index_respStmt% = ^%Count_respStmt% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </respStmt> H="<availability_full>" ^!Set %tagname%=availability ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=availability="^?{(T=C)availability==free|_unknown|restricted}" ^!InsertWizardHtml <availability ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_availability%=^?{(T=A)which elements? (required ones are already checked)==_p|} ^!IfCancel END ^!Set %Count_availability%=^%elList_availability0% ^!Set %Index_availability%=0 ^!If ^$StrPos("p";"^%elList_availability%";false)$>0 Skip_2 ^!Prompt "there must be a <p> in <availability>" ^!Goto required_elements :loop ^!Inc %Index_availability% ^!If ^%Index_availability% > ^%Count_availability% ^!Goto complete ^!Clip <^%elList_availability^%Index_availability%%> ^!If ^%Index_availability% < ^%Count_availability% ^!InsertText ^p ^!If ^%Index_availability% = ^%Count_availability% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </availability> H="<change_full>" ^!Set %tagname%=change ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <change ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_change%=^?{(T=A)which elements? (required ones are already checked)==_date|_respStmt^=respStmt_full|_item} ^!IfCancel END ^!Set %Count_change%=^%elList_change0% ^!Set %Index_change%=0 ^!If ^$StrPos("date";"^%elList_change%";false)$>0 Skip_2 ^!Prompt "there must be a <date> in <change>" ^!Goto required_elements ^!If ^$StrPos("respStmt";"^%elList_change%";false)$>0 Skip_2 ^!Prompt "there must be a <respStmt> in <change>" ^!Goto required_elements ^!If ^$StrPos("item";"^%elList_change%";false)$>0 Skip_2 ^!Prompt "there must be a <item> in <change>" ^!Goto required_elements :loop ^!Inc %Index_change% ^!If ^%Index_change% > ^%Count_change% ^!Goto complete ^!Clip <^%elList_change^%Index_change%%> ^!If ^%Index_change% < ^%Count_change% ^!InsertText ^p ^!If ^%Index_change% = ^%Count_change% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </change> H="<correction_full>" ^!Set %tagname%=correction ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declarable|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=status="^?{(T=C)status==high|_medium|low|_unknown}" method="^?{(T=C)method==_silent|tags}" ^!InsertWizardHtml <correction ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_correction%=^?{(T=A)which elements? (required ones are already checked)==_p|} ^!IfCancel END ^!Set %Count_correction%=^%elList_correction0% ^!Set %Index_correction%=0 ^!If ^$StrPos("p";"^%elList_correction%";false)$>0 Skip_2 ^!Prompt "there must be a <p> in <correction>" ^!Goto required_elements :loop ^!Inc %Index_correction% ^!If ^%Index_correction% > ^%Count_correction% ^!Goto complete ^!Clip <^%elList_correction^%Index_correction%%> ^!If ^%Index_correction% < ^%Count_correction% ^!InsertText ^p ^!If ^%Index_correction% = ^%Count_correction% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </correction> H="<normalization_full>" ^!Set %tagname%=normalization ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declarable|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=source="^?{source}" method="^?{(T=C)method==_silent|tags}" ^!InsertWizardHtml <normalization ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_normalization%=^?{(T=A)which elements? (required ones are already checked)==_p|} ^!IfCancel END ^!Set %Count_normalization%=^%elList_normalization0% ^!Set %Index_normalization%=0 ^!If ^$StrPos("p";"^%elList_normalization%";false)$>0 Skip_2 ^!Prompt "there must be a <p> in <normalization>" ^!Goto required_elements :loop ^!Inc %Index_normalization% ^!If ^%Index_normalization% > ^%Count_normalization% ^!Goto complete ^!Clip <^%elList_normalization^%Index_normalization%%> ^!If ^%Index_normalization% < ^%Count_normalization% ^!InsertText ^p ^!If ^%Index_normalization% = ^%Count_normalization% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </normalization> H="<quotation_full>" ^!Set %tagname%=quotation ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declarable|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=marks="^?{(T=C)marks==none|some|_all}" form="^?{(T=C)form==data|rend|std|nonstd|_unknown}" ^!InsertWizardHtml <quotation ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_quotation%=^?{(T=A)which elements? (required ones are already checked)==_p|} ^!IfCancel END ^!Set %Count_quotation%=^%elList_quotation0% ^!Set %Index_quotation%=0 ^!If ^$StrPos("p";"^%elList_quotation%";false)$>0 Skip_2 ^!Prompt "there must be a <p> in <quotation>" ^!Goto required_elements :loop ^!Inc %Index_quotation% ^!If ^%Index_quotation% > ^%Count_quotation% ^!Goto complete ^!Clip <^%elList_quotation^%Index_quotation%%> ^!If ^%Index_quotation% < ^%Count_quotation% ^!InsertText ^p ^!If ^%Index_quotation% = ^%Count_quotation% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </quotation> H="<hyphenation_full>" ^!Set %tagname%=hyphenation ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declarable|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=eol="^?{(T=C)eol==all|_some|none}" ^!InsertWizardHtml <hyphenation ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_hyphenation%=^?{(T=A)which elements? (required ones are already checked)==_p|} ^!IfCancel END ^!Set %Count_hyphenation%=^%elList_hyphenation0% ^!Set %Index_hyphenation%=0 ^!If ^$StrPos("p";"^%elList_hyphenation%";false)$>0 Skip_2 ^!Prompt "there must be a <p> in <hyphenation>" ^!Goto required_elements :loop ^!Inc %Index_hyphenation% ^!If ^%Index_hyphenation% > ^%Count_hyphenation% ^!Goto complete ^!Clip <^%elList_hyphenation^%Index_hyphenation%%> ^!If ^%Index_hyphenation% < ^%Count_hyphenation% ^!InsertText ^p ^!If ^%Index_hyphenation% = ^%Count_hyphenation% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </hyphenation> H="<interpretation_full>" ^!Set %tagname%=interpretation ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declarable} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <interpretation ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_interpretation%=^?{(T=A)which elements? (required ones are already checked)==_p|} ^!IfCancel END ^!Set %Count_interpretation%=^%elList_interpretation0% ^!Set %Index_interpretation%=0 ^!If ^$StrPos("p";"^%elList_interpretation%";false)$>0 Skip_2 ^!Prompt "there must be a <p> in <interpretation>" ^!Goto required_elements :loop ^!Inc %Index_interpretation% ^!If ^%Index_interpretation% > ^%Count_interpretation% ^!Goto complete ^!Clip <^%elList_interpretation^%Index_interpretation%%> ^!If ^%Index_interpretation% < ^%Count_interpretation% ^!InsertText ^p ^!If ^%Index_interpretation% = ^%Count_interpretation% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </interpretation> H="<segmentation_full>" ^!Set %tagname%=segmentation ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declarable} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <segmentation ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_segmentation%=^?{(T=A)which elements? (required ones are already checked)==_p|} ^!IfCancel END ^!Set %Count_segmentation%=^%elList_segmentation0% ^!Set %Index_segmentation%=0 ^!If ^$StrPos("p";"^%elList_segmentation%";false)$>0 Skip_2 ^!Prompt "there must be a <p> in <segmentation>" ^!Goto required_elements :loop ^!Inc %Index_segmentation% ^!If ^%Index_segmentation% > ^%Count_segmentation% ^!Goto complete ^!Clip <^%elList_segmentation^%Index_segmentation%%> ^!If ^%Index_segmentation% < ^%Count_segmentation% ^!InsertText ^p ^!If ^%Index_segmentation% = ^%Count_segmentation% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </segmentation> H="<stdVals_full>" ^!Set %tagname%=stdVals ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declarable} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <stdVals ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_stdVals%=^?{(T=A)which elements? (required ones are already checked)==_p|} ^!IfCancel END ^!Set %Count_stdVals%=^%elList_stdVals0% ^!Set %Index_stdVals%=0 ^!If ^$StrPos("p";"^%elList_stdVals%";false)$>0 Skip_2 ^!Prompt "there must be a <p> in <stdVals>" ^!Goto required_elements :loop ^!Inc %Index_stdVals% ^!If ^%Index_stdVals% > ^%Count_stdVals% ^!Goto complete ^!Clip <^%elList_stdVals^%Index_stdVals%%> ^!If ^%Index_stdVals% < ^%Count_stdVals% ^!InsertText ^p ^!If ^%Index_stdVals% = ^%Count_stdVals% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </stdVals> H="<taxonomy_full>" ^!Set %tagname%=taxonomy ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <taxonomy ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_taxonomy%=^?{(T=A)which elements? (required ones are already checked)==bibl|biblStruct|biblFull|_category^=category_full} ^!IfCancel END ^!Set %Count_taxonomy%=^%elList_taxonomy0% ^!Set %Index_taxonomy%=0 ^!If ^$StrPos("category";"^%elList_taxonomy%";false)$>0 Skip_2 ^!Prompt "there must be a <category> in <taxonomy>" ^!Goto required_elements :loop ^!Inc %Index_taxonomy% ^!If ^%Index_taxonomy% > ^%Count_taxonomy% ^!Goto complete ^!Clip <^%elList_taxonomy^%Index_taxonomy%%> ^!If ^%Index_taxonomy% < ^%Count_taxonomy% ^!InsertText ^p ^!If ^%Index_taxonomy% = ^%Count_taxonomy% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </taxonomy> H="<keywords_full>" ^!Set %tagname%=keywords ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=scheme="^?{scheme}" ^!InsertWizardHtml <keywords ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_keywords%=^?{(T=A)which elements? (at least one must be selected)==term|list} ^!IfCancel END ^!Set %Count_keywords%=^%elList_keywords0% ^!Set %Index_keywords%=0 ^!If ^%Count_keywords%>0 Skip_2 ^!Prompt "at least one element must be selected" ^!Goto required_elements :loop ^!Inc %Index_keywords% ^!If ^%Index_keywords% > ^%Count_keywords% ^!Goto complete ^!Clip <^%elList_keywords^%Index_keywords%%> ^!If ^%Index_keywords% < ^%Count_keywords% ^!InsertText ^p ^!If ^%Index_keywords% = ^%Count_keywords% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </keywords> H="<layer_full>" ^!Set %tagname%=layer ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type}" ^!InsertWizardHtml <layer ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_layer%=^?{(T=A)which elements? (required ones are already checked)==p|} ^!IfCancel END ^!Set %Count_layer%=^%elList_layer0% ^!Set %Index_layer%=0 :loop ^!Inc %Index_layer% ^!If ^%Index_layer% > ^%Count_layer% ^!Goto complete ^!Clip <^%elList_layer^%Index_layer%%> ^!If ^%Index_layer% < ^%Count_layer% ^!InsertText ^p ^!If ^%Index_layer% = ^%Count_layer% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </layer> H="<letDesc_full>" ^!Set %tagname%=letDesc ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=status="^?{(T=C)status==uni|compo|frag|def|unk}" ^!InsertWizardHtml <letDesc ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_letDesc%=^?{(T=A)which elements? (required ones are already checked)==_letIdentifier^=letIdentifier_full|_letHeading^=letHeading_full|_physDesc^=physDesc_full|_envOcc|letContents^=letContents_full|history^=history_full|additional^=additional_full|letPart^=letPart_full|note} ^!IfCancel END ^!Set %Count_letDesc%=^%elList_letDesc0% ^!Set %Index_letDesc%=0 ^!If ^$StrPos("letIdentifier";"^%elList_letDesc%";false)$>0 Skip_2 ^!Prompt "there must be a <letIdentifier> in <letDesc>" ^!Goto required_elements ^!If ^$StrPos("letHeading";"^%elList_letDesc%";false)$>0 Skip_2 ^!Prompt "there must be a <letHeading> in <letDesc>" ^!Goto required_elements ^!If ^$StrPos("physDesc";"^%elList_letDesc%";false)$>0 Skip_2 ^!Prompt "there must be a <physDesc> in <letDesc>" ^!Goto required_elements ^!If ^$StrPos("envOcc";"^%elList_letDesc%";false)$>0 Skip_2 ^!Prompt "there must be a <envOcc> in <letDesc>" ^!Goto required_elements :loop ^!Inc %Index_letDesc% ^!If ^%Index_letDesc% > ^%Count_letDesc% ^!Goto complete ^!Clip <^%elList_letDesc^%Index_letDesc%%> ^!If ^%Index_letDesc% < ^%Count_letDesc% ^!InsertText ^p ^!If ^%Index_letDesc% = ^%Count_letDesc% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </letDesc> H=";level 4 header elements" H="<category_full>" ^!Set %tagname%=category ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <category ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_category%=^?{(T=A)which elements? (required ones are already checked)==_catDesc|category^=category_full} ^!IfCancel END ^!Set %Count_category%=^%elList_category0% ^!Set %Index_category%=0 ^!If ^$StrPos("catDesc";"^%elList_category%";false)$>0 Skip_2 ^!Prompt "there must be a <catDesc> in <category>" ^!Goto required_elements :loop ^!Inc %Index_category% ^!If ^%Index_category% > ^%Count_category% ^!Goto complete ^!Clip <^%elList_category^%Index_category%%> ^!If ^%Index_category% < ^%Count_category% ^!InsertText ^p ^!If ^%Index_category% = ^%Count_category% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </category> H="<letIdentifier_full>" ^!Set %tagname%=letIdentifier ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <letIdentifier ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_letIdentifier%=^?{(T=A)which elements? (required ones are already checked)==_country|region|_settlement|institution|_repository|_collection|_idno|altName|note} ^!IfCancel END ^!Set %Count_letIdentifier%=^%elList_letIdentifier0% ^!Set %Index_letIdentifier%=0 ^!If ^$StrPos("country";"^%elList_letIdentifier%";false)$>0 Skip_2 ^!Prompt "there must be a <country> in <letIdentifier>" ^!Goto required_elements ^!If ^$StrPos("settlement";"^%elList_letIdentifier%";false)$>0 Skip_2 ^!Prompt "there must be a <settlement> in <letIdentifier>" ^!Goto required_elements ^!If ^$StrPos("repository";"^%elList_letIdentifier%";false)$>0 Skip_2 ^!Prompt "there must be a <repository> in <letIdentifier>" ^!Goto required_elements ^!If ^$StrPos("collection";"^%elList_letIdentifier%";false)$>0 Skip_2 ^!Prompt "there must be a <collection> in <letIdentifier>" ^!Goto required_elements ^!If ^$StrPos("idno";"^%elList_letIdentifier%";false)$>0 Skip_2 ^!Prompt "there must be a <idno> in <letIdentifier>" ^!Goto required_elements :loop ^!Inc %Index_letIdentifier% ^!If ^%Index_letIdentifier% > ^%Count_letIdentifier% ^!Goto complete ^!Clip <^%elList_letIdentifier^%Index_letIdentifier%%> ^!If ^%Index_letIdentifier% < ^%Count_letIdentifier% ^!InsertText ^p ^!If ^%Index_letIdentifier% = ^%Count_letIdentifier% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </letIdentifier> H="<letHeading_full>" ^!Set %tagname%=letHeading ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <letHeading ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_letHeading%=^?{(T=A)which elements? (required ones are already checked)==_author|_addressee|respStmt^=respStmt_full|_placeLet|_dateLet|note} ^!IfCancel END ^!Set %Count_letHeading%=^%elList_letHeading0% ^!Set %Index_letHeading%=0 ^!If ^$StrPos("author";"^%elList_letHeading%";false)$>0 Skip_2 ^!Prompt "there must be a <author> in <letHeading>" ^!Goto required_elements ^!If ^$StrPos("addressee";"^%elList_letHeading%";false)$>0 Skip_2 ^!Prompt "there must be a <addressee> in <letHeading>" ^!Goto required_elements ^!If ^$StrPos("placeLet";"^%elList_letHeading%";false)$>0 Skip_2 ^!Prompt "there must be a <placeLet> in <letHeading>" ^!Goto required_elements ^!If ^$StrPos("dateLet";"^%elList_letHeading%";false)$>0 Skip_2 ^!Prompt "there must be a <dateLet> in <letHeading>" ^!Goto required_elements :loop ^!Inc %Index_letHeading% ^!If ^%Index_letHeading% > ^%Count_letHeading% ^!Goto complete ^!Clip <^%elList_letHeading^%Index_letHeading%%> ^!If ^%Index_letHeading% < ^%Count_letHeading% ^!InsertText ^p ^!If ^%Index_letHeading% = ^%Count_letHeading% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </letHeading> H="<physDesc_full>" ^!Set %tagname%=physDesc ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <physDesc ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_physDesc%=^?{(T=A)which elements? (required ones are already checked)==_type|_support^=support_full|_extent|layout^=layout_full|musicNotation^=musicNotation_full|decoration^=decoration_full|paraphernalia^=paraphernalia_full|condition^=condition_full|note} ^!IfCancel END ^!Set %Count_physDesc%=^%elList_physDesc0% ^!Set %Index_physDesc%=0 ^!If ^$StrPos("type";"^%elList_physDesc%";false)$>0 Skip_2 ^!Prompt "there must be a <type> in <physDesc>" ^!Goto required_elements ^!If ^$StrPos("support";"^%elList_physDesc%";false)$>0 Skip_2 ^!Prompt "there must be a <support> in <physDesc>" ^!Goto required_elements ^!If ^$StrPos("extent";"^%elList_physDesc%";false)$>0 Skip_2 ^!Prompt "there must be a <extent> in <physDesc>" ^!Goto required_elements :loop ^!Inc %Index_physDesc% ^!If ^%Index_physDesc% > ^%Count_physDesc% ^!Goto complete ^!Clip <^%elList_physDesc^%Index_physDesc%%> ^!If ^%Index_physDesc% < ^%Count_physDesc% ^!InsertText ^p ^!If ^%Index_physDesc% = ^%Count_physDesc% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </physDesc> H="<letContents_full>" ^!Set %tagname%=letContents ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=defective="^?{(T=C)defective==yes|_no|unk}" ^!InsertWizardHtml <letContents ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_letContents%=^?{(T=A)which elements? (required ones are already checked)==class|_p|note} ^!IfCancel END ^!Set %Count_letContents%=^%elList_letContents0% ^!Set %Index_letContents%=0 ^!If ^$StrPos("p";"^%elList_letContents%";false)$>0 Skip_2 ^!Prompt "there must be a <p> in <letContents>" ^!Goto required_elements :loop ^!Inc %Index_letContents% ^!If ^%Index_letContents% > ^%Count_letContents% ^!Goto complete ^!Clip <^%elList_letContents^%Index_letContents%%> ^!If ^%Index_letContents% < ^%Count_letContents% ^!InsertText ^p ^!If ^%Index_letContents% = ^%Count_letContents% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </letContents> H="<history_full>" ^!Set %tagname%=history ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <history ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_history%=^?{(T=A)which elements? (at least one must be selected)==origin^=origin_full|provenance^=provenance_full|acquisition^=acquisition_full|note} ^!IfCancel END ^!Set %Count_history%=^%elList_history0% ^!Set %Index_history%=0 ^!If ^%Count_history%>0 Skip_2 ^!Prompt "at least one element besides <note> must be selected" ^!Goto required_elements ^!If ^%Count_history%>1 Skip_3 ^!If "^%elList_history%" <> "note" Skip_2 ^!Prompt "<note> can only be used in addition to one of the other elements" ^!Goto required_elements :loop ^!Inc %Index_history% ^!If ^%Index_history% > ^%Count_history% ^!Goto complete ^!Clip <^%elList_history^%Index_history%%> ^!If ^%Index_history% < ^%Count_history% ^!InsertText ^p ^!If ^%Index_history% = ^%Count_history% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </history> H="<additional_full>" ^!Set %tagname%=additional ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <additional ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_additional%=^?{(T=A)which elements? (at least one must be selected)==adminInfo^=adminInfo_full|surrogates^=surrogates_full|accMat^=accMat_full|listBibl^=listBibl_full|note} ^!IfCancel END ^!Set %Count_additional%=^%elList_additional0% ^!Set %Index_additional%=0 ^!If ^%Count_additional%>0 Skip_2 ^!Prompt "at least one element besides <note> must be selected" ^!Goto required_elements ^!If ^%Count_additional%>1 Skip_3 ^!If "^%elList_additional%" <> "note" Skip_2 ^!Prompt "<note> can only be used in addition to one of the other elements" ^!Goto required_elements :loop ^!Inc %Index_additional% ^!If ^%Index_additional% > ^%Count_additional% ^!Goto complete ^!Clip <^%elList_additional^%Index_additional%%> ^!If ^%Index_additional% < ^%Count_additional% ^!InsertText ^p ^!If ^%Index_additional% = ^%Count_additional% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </additional> H="<letPart_full>" ^!Set %tagname%=letPart ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <letPart ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_letPart%=^?{(T=A)which elements? (at least one must be selected)==idno|letHeading^=letHeading_full|physDesc^=physDesc_full|letContents^=letContents_full|history^=history_full|additional^=additional_full|letPart^=letPart_full|note} ^!IfCancel END ^!Set %Count_letPart%=^%elList_letPart0% ^!Set %Index_letPart%=0 ^!If ^%Count_letPart%>0 Skip_2 ^!Prompt "at least one element besides <note> must be selected" ^!Goto required_elements ^!If ^%Count_letPart%>1 Skip_3 ^!If "^%elList_letPart%" <> "note" Skip_2 ^!Prompt "<note> can only be used in addition to one of the other elements" ^!Goto required_elements :loop ^!Inc %Index_letPart% ^!If ^%Index_letPart% > ^%Count_letPart% ^!Goto complete ^!Clip <^%elList_letPart^%Index_letPart%%> ^!If ^%Index_letPart% < ^%Count_letPart% ^!InsertText ^p ^!If ^%Index_letPart% = ^%Count_letPart% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </letPart> H=";level 5 header elements" H="<support_full>" ^!Set %tagname%=support ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <support ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_support%=^?{(T=A)which elements? (required ones are already checked)==_p|} ^!IfCancel END ^!Set %Count_support%=^%elList_support0% ^!Set %Index_support%=0 ^!If ^$StrPos("p";"^%elList_support%";false)$>0 Skip_2 ^!Prompt "there must be a <p> in <support>" ^!Goto required_elements :loop ^!Inc %Index_support% ^!If ^%Index_support% > ^%Count_support% ^!Goto complete ^!Clip <^%elList_support^%Index_support%%> ^!If ^%Index_support% < ^%Count_support% ^!InsertText ^p ^!If ^%Index_support% = ^%Count_support% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </support> H="<layout_full>" ^!Set %tagname%=layout ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <layout ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_layout%=^?{(T=A)which elements? (required ones are already checked)==_p|} ^!IfCancel END ^!Set %Count_layout%=^%elList_layout0% ^!Set %Index_layout%=0 ^!If ^$StrPos("p";"^%elList_layout%";false)$>0 Skip_2 ^!Prompt "there must be a <p> in <layout>" ^!Goto required_elements :loop ^!Inc %Index_layout% ^!If ^%Index_layout% > ^%Count_layout% ^!Goto complete ^!Clip <^%elList_layout^%Index_layout%%> ^!If ^%Index_layout% < ^%Count_layout% ^!InsertText ^p ^!If ^%Index_layout% = ^%Count_layout% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </layout> H="<musicNotation_full>" ^!Set %tagname%=musicNotation ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <musicNotation ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_musicNotation%=^?{(T=A)which elements? (required ones are already checked)==_p|} ^!IfCancel END ^!Set %Count_musicNotation%=^%elList_musicNotation0% ^!Set %Index_musicNotation%=0 ^!If ^$StrPos("p";"^%elList_musicNotation%";false)$>0 Skip_2 ^!Prompt "there must be a <p> in <musicNotation>" ^!Goto required_elements :loop ^!Inc %Index_musicNotation% ^!If ^%Index_musicNotation% > ^%Count_musicNotation% ^!Goto complete ^!Clip <^%elList_musicNotation^%Index_musicNotation%%> ^!If ^%Index_musicNotation% < ^%Count_musicNotation% ^!InsertText ^p ^!If ^%Index_musicNotation% = ^%Count_musicNotation% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </musicNotation> H="<condition_full>" ^!Set %tagname%=condition ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <condition ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_condition%=^?{(T=A)which elements? (required ones are already checked)==_p|} ^!IfCancel END ^!Set %Count_condition%=^%elList_condition0% ^!Set %Index_condition%=0 ^!If ^$StrPos("p";"^%elList_condition%";false)$>0 Skip_2 ^!Prompt "there must be a <p> in <condition>" ^!Goto required_elements :loop ^!Inc %Index_condition% ^!If ^%Index_condition% > ^%Count_condition% ^!Goto complete ^!Clip <^%elList_condition^%Index_condition%%> ^!If ^%Index_condition% < ^%Count_condition% ^!InsertText ^p ^!If ^%Index_condition% = ^%Count_condition% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </condition> H="<decoration_full>" ^!Set %tagname%=decoration ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <decoration ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_decoration%=^?{(T=A)which elements? (only one may be selected)==decoList^=decoList_full|p} ^!IfCancel END ^!Set %Count_decoration%=^%elList_decoration0% ^!Set %Index_decoration%=0 ^!If ^%Count_decoration%<=1 Skip_2 ^!Prompt "only one element may be selected" ^!Goto required_elements ^!If ^%Count_decoration%>0 Skip_2 ^!Prompt "at least one element must be selected" ^!Goto required_elements :loop ^!Inc %Index_decoration% ^!If ^%Index_decoration% > ^%Count_decoration% ^!Goto complete ^!Clip <^%elList_decoration^%Index_decoration%%> ^!If ^%Index_decoration% < ^%Count_decoration% ^!InsertText ^p ^!If ^%Index_decoration% = ^%Count_decoration% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </decoration> H="<paraphernalia_full>" ^!Set %tagname%=paraphernalia ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <paraphernalia ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_paraphernalia%=^?{(T=A)which elements? (only one may be selected)==paraphList^=paraphList_full|p} ^!IfCancel END ^!Set %Count_paraphernalia%=^%elList_paraphernalia0% ^!Set %Index_paraphernalia%=0 ^!If ^%Count_paraphernalia%<=1 Skip_2 ^!Prompt "only one element may be selected" ^!Goto required_elements ^!If ^%Count_paraphernalia%>0 Skip_2 ^!Prompt "at least one element must be selected" ^!Goto required_elements :loop ^!Inc %Index_paraphernalia% ^!If ^%Index_paraphernalia% > ^%Count_paraphernalia% ^!Goto complete ^!Clip <^%elList_paraphernalia^%Index_paraphernalia%%> ^!If ^%Index_paraphernalia% < ^%Count_paraphernalia% ^!InsertText ^p ^!If ^%Index_paraphernalia% = ^%Count_paraphernalia% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </paraphernalia> H="<origin_full>" ^!Set %tagname%=origin ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <origin ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_origin%=^?{(T=A)which elements? (required ones are already checked)==_p|} ^!IfCancel END ^!Set %Count_origin%=^%elList_origin0% ^!Set %Index_origin%=0 ^!If ^$StrPos("p";"^%elList_origin%";false)$>0 Skip_2 ^!Prompt "there must be a <p> in <origin>" ^!Goto required_elements :loop ^!Inc %Index_origin% ^!If ^%Index_origin% > ^%Count_origin% ^!Goto complete ^!Clip <^%elList_origin^%Index_origin%%> ^!If ^%Index_origin% < ^%Count_origin% ^!InsertText ^p ^!If ^%Index_origin% = ^%Count_origin% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </origin> H="<provenance_full>" ^!Set %tagname%=provenance ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <provenance ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_provenance%=^?{(T=A)which elements? (required ones are already checked)==_p|} ^!IfCancel END ^!Set %Count_provenance%=^%elList_provenance0% ^!Set %Index_provenance%=0 ^!If ^$StrPos("p";"^%elList_provenance%";false)$>0 Skip_2 ^!Prompt "there must be a <p> in <provenance>" ^!Goto required_elements :loop ^!Inc %Index_provenance% ^!If ^%Index_provenance% > ^%Count_provenance% ^!Goto complete ^!Clip <^%elList_provenance^%Index_provenance%%> ^!If ^%Index_provenance% < ^%Count_provenance% ^!InsertText ^p ^!If ^%Index_provenance% = ^%Count_provenance% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </provenance> H="<acquisition_full>" ^!Set %tagname%=acquisition ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <acquisition ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_acquisition%=^?{(T=A)which elements? (required ones are already checked)==_p|} ^!IfCancel END ^!Set %Count_acquisition%=^%elList_acquisition0% ^!Set %Index_acquisition%=0 ^!If ^$StrPos("p";"^%elList_acquisition%";false)$>0 Skip_2 ^!Prompt "there must be a <p> in <acquisition>" ^!Goto required_elements :loop ^!Inc %Index_acquisition% ^!If ^%Index_acquisition% > ^%Count_acquisition% ^!Goto complete ^!Clip <^%elList_acquisition^%Index_acquisition%%> ^!If ^%Index_acquisition% < ^%Count_acquisition% ^!InsertText ^p ^!If ^%Index_acquisition% = ^%Count_acquisition% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </acquisition> H="<adminInfo_full>" ^!Set %tagname%=adminInfo ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <adminInfo ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_adminInfo%=^?{(T=A)which elements? (at least one must be selected)==availability^=availability_full|custodialHist^=custodialHist_full|remarks^=remarks_full|note} ^!IfCancel END ^!Set %Count_adminInfo%=^%elList_adminInfo0% ^!Set %Index_adminInfo%=0 ^!If ^%Count_adminInfo%>0 Skip_2 ^!Prompt "at least one element besides <note> must be selected" ^!Goto required_elements ^!If ^%Count_adminInfo%>1 Skip_3 ^!If "^%elList_adminInfo%" <> "note" Skip_2 ^!Prompt "<note> can only be used in addition to one of the other elements" ^!Goto required_elements :loop ^!Inc %Index_adminInfo% ^!If ^%Index_adminInfo% > ^%Count_adminInfo% ^!Goto complete ^!Clip <^%elList_adminInfo^%Index_adminInfo%%> ^!If ^%Index_adminInfo% < ^%Count_adminInfo% ^!InsertText ^p ^!If ^%Index_adminInfo% = ^%Count_adminInfo% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </adminInfo> H="<surrogates_full>" ^!Set %tagname%=surrogates ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <surrogates ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_surrogates%=^?{(T=A)which elements? (required ones are already checked)==_p|} ^!IfCancel END ^!Set %Count_surrogates%=^%elList_surrogates0% ^!Set %Index_surrogates%=0 ^!If ^$StrPos("p";"^%elList_surrogates%";false)$>0 Skip_2 ^!Prompt "there must be a <p> in <surrogates>" ^!Goto required_elements :loop ^!Inc %Index_surrogates% ^!If ^%Index_surrogates% > ^%Count_surrogates% ^!Goto complete ^!Clip <^%elList_surrogates^%Index_surrogates%%> ^!If ^%Index_surrogates% < ^%Count_surrogates% ^!InsertText ^p ^!If ^%Index_surrogates% = ^%Count_surrogates% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </surrogates> H="<accMat_full>" ^!Set %tagname%=accMat ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type}" ^!InsertWizardHtml <accMat ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_accMat%=^?{(T=A)which elements? (required ones are already checked)==_p|} ^!IfCancel END ^!Set %Count_accMat%=^%elList_accMat0% ^!Set %Index_accMat%=0 ^!If ^$StrPos("p";"^%elList_accMat%";false)$>0 Skip_2 ^!Prompt "there must be a <p> in <accMat>" ^!Goto required_elements :loop ^!Inc %Index_accMat% ^!If ^%Index_accMat% > ^%Count_accMat% ^!Goto complete ^!Clip <^%elList_accMat^%Index_accMat%%> ^!If ^%Index_accMat% < ^%Count_accMat% ^!InsertText ^p ^!If ^%Index_accMat% = ^%Count_accMat% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </accMat> H="<listBibl_full>" ^!Set %tagname%=listBibl ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declarable} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type}" ^!InsertWizardHtml <listBibl ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_listBibl%=^?{(T=A)which elements? (required ones are already checked)==head|bibl|biblStruct|biblFull|trailer} ^!IfCancel END ^!Set %Count_listBibl%=^%elList_listBibl0% ^!Set %Index_listBibl%=0 :loop ^!Inc %Index_listBibl% ^!If ^%Index_listBibl% > ^%Count_listBibl% ^!Goto complete ^!Clip <^%elList_listBibl^%Index_listBibl%%> ^!If ^%Index_listBibl% < ^%Count_listBibl% ^!InsertText ^p ^!If ^%Index_listBibl% = ^%Count_listBibl% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </listBibl> H=";level 6 header elements" H=<decoList_full> ^!Set %tagname%=decoList ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <decoList ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_decoList%=^?{(T=A)which elements? (required ones are already checked)==_decoItem^=decoItem_full|} ^!IfCancel END ^!Set %Count_decoList%=^%elList_decoList0% ^!Set %Index_decoList%=0 ^!If ^$StrPos("decoItem";"^%elList_decoList%";false)$>0 Skip_2 ^!Prompt "there must be a <decoItem> in <decoList>" ^!Goto required_elements :loop ^!Inc %Index_decoList% ^!If ^%Index_decoList% > ^%Count_decoList% ^!Goto complete ^!Clip <^%elList_decoList^%Index_decoList%%> ^!If ^%Index_decoList% < ^%Count_decoList% ^!InsertText ^p ^!If ^%Index_decoList% = ^%Count_decoList% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </decoList> H=<paraphList_full> ^!Set %tagname%=paraphList ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <paraphList ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_paraphList%=^?{(T=A)which elements? (required ones are already checked)==_paraphItem^=paraphItem_full|} ^!IfCancel END ^!Set %Count_paraphList%=^%elList_paraphList0% ^!Set %Index_paraphList%=0 ^!If ^$StrPos("paraphItem";"^%elList_paraphList%";false)$>0 Skip_2 ^!Prompt "there must be a <paraphItem> in <paraphList>" ^!Goto required_elements :loop ^!Inc %Index_paraphList% ^!If ^%Index_paraphList% > ^%Count_paraphList% ^!Goto complete ^!Clip <^%elList_paraphList^%Index_paraphList%%> ^!If ^%Index_paraphList% < ^%Count_paraphList% ^!InsertText ^p ^!If ^%Index_paraphList% = ^%Count_paraphList% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </paraphList> H=<custodialHist_full> ^!Set %tagname%=custodialHist ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <custodialHist ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_custodialHist%=^?{(T=A)which elements? (required ones are already checked)==_custEvent^=custEvent_full|note} ^!IfCancel END ^!Set %Count_custodialHist%=^%elList_custodialHist0% ^!Set %Index_custodialHist%=0 ^!If ^$StrPos("custEvent";"^%elList_custodialHist%";false)$>0 Skip_2 ^!Prompt "there must be a <custEvent> in <custodialHist>" ^!Goto required_elements :loop ^!Inc %Index_custodialHist% ^!If ^%Index_custodialHist% > ^%Count_custodialHist% ^!Goto complete ^!Clip <^%elList_custodialHist^%Index_custodialHist%%> ^!If ^%Index_custodialHist% < ^%Count_custodialHist% ^!InsertText ^p ^!If ^%Index_custodialHist% = ^%Count_custodialHist% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </custodialHist> H=<remarks_full> ^!Set %tagname%=remarks ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <remarks ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_remarks%=^?{(T=A)which elements? (required ones are already checked)==_p|} ^!IfCancel END ^!Set %Count_remarks%=^%elList_remarks0% ^!Set %Index_remarks%=0 ^!If ^$StrPos("p";"^%elList_remarks%";false)$>0 Skip_2 ^!Prompt "there must be a <p> in <remarks>" ^!Goto required_elements :loop ^!Inc %Index_remarks% ^!If ^%Index_remarks% > ^%Count_remarks% ^!Goto complete ^!Clip <^%elList_remarks^%Index_remarks%%> ^!If ^%Index_remarks% < ^%Count_remarks% ^!InsertText ^p ^!If ^%Index_remarks% = ^%Count_remarks% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </remarks> H=";level 7 header elements" H=<decoItem_full> ^!Set %tagname%=decoItem ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <decoItem ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_decoItem%=^?{(T=A)which elements? (required ones are already checked)==_decoDesc^=decoDesc_full|decoText^=decoText_full} ^!IfCancel END ^!Set %Count_decoItem%=^%elList_decoItem0% ^!Set %Index_decoItem%=0 ^!If ^$StrPos("decoDesc";"^%elList_decoItem%";false)$>0 Skip_2 ^!Prompt "there must be a <decoDesc> in <decoItem>" ^!Goto required_elements :loop ^!Inc %Index_decoItem% ^!If ^%Index_decoItem% > ^%Count_decoItem% ^!Goto complete ^!Clip <^%elList_decoItem^%Index_decoItem%%> ^!If ^%Index_decoItem% < ^%Count_decoItem% ^!InsertText ^p ^!If ^%Index_decoItem% = ^%Count_decoItem% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </decoItem> H=<paraphItem_full> ^!Set %tagname%=paraphItem ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <paraphItem ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_paraphItem%=^?{(T=A)which elements? (required ones are already checked)==_paraphDesc^=paraphDesc_full|paraphText^=paraphText_full} ^!IfCancel END ^!Set %Count_paraphItem%=^%elList_paraphItem0% ^!Set %Index_paraphItem%=0 ^!If ^$StrPos("paraphDesc";"^%elList_paraphItem%";false)$>0 Skip_2 ^!Prompt "there must be a <paraphDesc> in <paraphItem>" ^!Goto required_elements :loop ^!Inc %Index_paraphItem% ^!If ^%Index_paraphItem% > ^%Count_paraphItem% ^!Goto complete ^!Clip <^%elList_paraphItem^%Index_paraphItem%%> ^!If ^%Index_paraphItem% < ^%Count_paraphItem% ^!InsertText ^p ^!If ^%Index_paraphItem% = ^%Count_paraphItem% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </paraphItem> H=<custEvent_full> ^!Set %tagname%=custEvent ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <custEvent ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_custEvent%=^?{(T=A)which elements? (required ones are already checked)==_p|} ^!IfCancel END ^!Set %Count_custEvent%=^%elList_custEvent0% ^!Set %Index_custEvent%=0 ^!If ^$StrPos("p";"^%elList_custEvent%";false)$>0 Skip_2 ^!Prompt "there must be a <p> in <custEvent>" ^!Goto required_elements :loop ^!Inc %Index_custEvent% ^!If ^%Index_custEvent% > ^%Count_custEvent% ^!Goto complete ^!Clip <^%elList_custEvent^%Index_custEvent%%> ^!If ^%Index_custEvent% < ^%Count_custEvent% ^!InsertText ^p ^!If ^%Index_custEvent% = ^%Count_custEvent% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </custEvent> H=";level 8 header elements" H=<decoDesc_full> ^!Set %tagname%=decoDesc ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <decoDesc ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_decoDesc%=^?{(T=A)which elements? (required ones are already checked)==_p|} ^!IfCancel END ^!Set %Count_decoDesc%=^%elList_decoDesc0% ^!Set %Index_decoDesc%=0 ^!If ^$StrPos("p";"^%elList_decoDesc%";false)$>0 Skip_2 ^!Prompt "there must be a <p> in <decoDesc>" ^!Goto required_elements :loop ^!Inc %Index_decoDesc% ^!If ^%Index_decoDesc% > ^%Count_decoDesc% ^!Goto complete ^!Clip <^%elList_decoDesc^%Index_decoDesc%%> ^!If ^%Index_decoDesc% < ^%Count_decoDesc% ^!InsertText ^p ^!If ^%Index_decoDesc% = ^%Count_decoDesc% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </decoDesc> H=<decoText_full> ^!Set %tagname%=decoText ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <decoText ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_decoText%=^?{(T=A)which elements? (required ones are already checked)==_p|} ^!IfCancel END ^!Set %Count_decoText%=^%elList_decoText0% ^!Set %Index_decoText%=0 ^!If ^$StrPos("p";"^%elList_decoText%";false)$>0 Skip_2 ^!Prompt "there must be a <p> in <decoText>" ^!Goto required_elements :loop ^!Inc %Index_decoText% ^!If ^%Index_decoText% > ^%Count_decoText% ^!Goto complete ^!Clip <^%elList_decoText^%Index_decoText%%> ^!If ^%Index_decoText% < ^%Count_decoText% ^!InsertText ^p ^!If ^%Index_decoText% = ^%Count_decoText% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </decoText> H=<paraphDesc_full> ^!Set %tagname%=paraphDesc ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <paraphDesc ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_paraphDesc%=^?{(T=A)which elements? (required ones are already checked)==_p|} ^!IfCancel END ^!Set %Count_paraphDesc%=^%elList_paraphDesc0% ^!Set %Index_paraphDesc%=0 ^!If ^$StrPos("p";"^%elList_paraphDesc%";false)$>0 Skip_2 ^!Prompt "there must be a <p> in <paraphDesc>" ^!Goto required_elements :loop ^!Inc %Index_paraphDesc% ^!If ^%Index_paraphDesc% > ^%Count_paraphDesc% ^!Goto complete ^!Clip <^%elList_paraphDesc^%Index_paraphDesc%%> ^!If ^%Index_paraphDesc% < ^%Count_paraphDesc% ^!InsertText ^p ^!If ^%Index_paraphDesc% = ^%Count_paraphDesc% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </paraphDesc> H=<paraphText_full> ^!Set %tagname%=paraphText ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <paraphText ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_paraphText%=^?{(T=A)which elements? (required ones are already checked)==_p|} ^!IfCancel END ^!Set %Count_paraphText%=^%elList_paraphText0% ^!Set %Index_paraphText%=0 ^!If ^$StrPos("p";"^%elList_paraphText%";false)$>0 Skip_2 ^!Prompt "there must be a <p> in <paraphText>" ^!Goto required_elements :loop ^!Inc %Index_paraphText% ^!If ^%Index_paraphText% > ^%Count_paraphText% ^!Goto complete ^!Clip <^%elList_paraphText^%Index_paraphText%%> ^!If ^%Index_paraphText% < ^%Count_paraphText% ^!InsertText ^p ^!If ^%Index_paraphText% = ^%Count_paraphText% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </paraphText> H=";____________________________" H=";" H=";TEXT STRUCTURES" The following clips provide completion wizards for DALF text elements. H=";" H="<group_full>" ^!Set %tagname%=group ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declaring} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <group ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_group%=^?{(T=A)which elements? (at least one must be selected)==text^=text_full|group^=group_full} ^!IfCancel END ^!Set %Count_group%=^%elList_group0% ^!Set %Index_group%=0 ^!If ^%Count_group%>0 Skip_2 ^!Prompt "at least one element must be selected" ^!Goto required_elements :loop ^!Inc %Index_group% ^!If ^%Index_group% > ^%Count_group% ^!Goto complete ^!Clip <^%elList_group^%Index_group%%> ^!If ^%Index_group% < ^%Count_group% ^!InsertText ^p ^!If ^%Index_group% = ^%Count_group% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </group> H="<envelope_full>" ^!Set %tagname%=envelope ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type}" ^!InsertWizardHtml <envelope ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_envelope%=^?{(T=A)which elements? (at least one must be selected)==envPart^=envPart_full|envelope^=envelope_full|note} ^!IfCancel END ^!Set %Count_envelope%=^%elList_envelope0% ^!Set %Index_envelope%=0 ^!If ^%Count_envelope%>0 Skip_2 ^!Prompt "at least one element must be selected" ^!Goto required_elements :loop ^!Inc %Index_envelope% ^!If ^%Index_envelope% > ^%Count_envelope% ^!Goto complete ^!Clip <^%elList_envelope^%Index_envelope%%> ^!If ^%Index_envelope% < ^%Count_envelope% ^!InsertText ^p ^!If ^%Index_envelope% = ^%Count_envelope% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </envelope> H="<envPart_full>" ^!Set %tagname%=envPart ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=side="^?{(T=C)side==front|back|postcard}" ^!InsertWizardHtml <envPart ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_envPart%=^?{(T=A)which elements? (at least one must be selected)==address|postmark^=postmark_full|div} ^!IfCancel END ^!Set %Count_envPart%=^%elList_envPart0% ^!Set %Index_envPart%=0 ^!If ^%Count_envPart%>0 Skip_2 ^!Prompt "at least one element must be selected" ^!Goto required_elements :loop ^!Inc %Index_envPart% ^!If ^%Index_envPart% > ^%Count_envPart% ^!Goto complete ^!Clip <^%elList_envPart^%Index_envPart%%> ^!If ^%Index_envPart% < ^%Count_envPart% ^!InsertText ^p ^!If ^%Index_envPart% = ^%Count_envPart% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </envPart> H="<postmark_full>" ^!Set %tagname%=postmark ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!InsertWizardHtml <postmark ^%attributes%>^p ^!Set %attList%=;%attributes%= :required_elements ^!SetArray %elList_postmark%=^?{(T=A)which elements? (at least one must be selected)==figure|placeName|date|note} ^!IfCancel END ^!Set %Count_postmark%=^%elList_postmark0% ^!Set %Index_postmark%=0 ^!If ^%Count_postmark%>0 Skip_2 ^!Prompt "at least one element besides <note> must be selected" ^!Goto required_elements ^!If ^%Count_postmark%>1 Skip_3 ^!If "^%elList_postmark%" <> "note" Skip_2 ^!Prompt "<note> can only be used in addition to one of the other elements" ^!Goto required_elements :loop ^!Inc %Index_postmark% ^!If ^%Index_postmark% > ^%Count_postmark% ^!Goto complete ^!Clip <^%elList_postmark^%Index_postmark%%> ^!If ^%Index_postmark% < ^%Count_postmark% ^!InsertText ^p ^!If ^%Index_postmark% = ^%Count_postmark% ^!InsertText ^p ^!Goto loop :complete ^!InsertWizardHtml </postmark> H=";" H=";============================" H=";alphabetical list of simple tags" The following clips provide single-level completion wizards for all DALF elements. They are listed alphabetically. H=";============================" H="<ab>" ^!Set %tagname%=ab ^!Set %content%=^?{(T=W)ab=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|typed|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=part="^?{(T=C)part==Y|_N|I|M|F}" ^!Clip print H="<abbr>" ^!Set %tagname%=abbr ^!Set %content%=^?{(T=W)abbr=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=expan="^?{expan}" resp="^?{resp}" cert="^?{cert}" type="^?{type}" ^!Clip print H="<accMat>" ^!Set %tagname%=accMat ^!Set %content%=^?{(T=W)accMat=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type}" ^!Clip print H="<acquisition>" ^!Set %tagname%=acquisition ^!Set %content%=^?{(T=W)acquisition=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<actor>" ^!Set %tagname%=actor ^!Set %content%=^?{(T=W)actor=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<add>" ^!Set %tagname%=add ^!Set %content%=^?{(T=W)add=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=place="^?{place}" resp="^?{resp}" cert="^?{cert}" hand="^?{hand}" ^!Clip print H="<additional>" ^!Set %tagname%=additional ^!Set %content%=^?{(T=W)additional=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<address>" ^!Set %tagname%=address ^!Set %content%=^?{(T=W)address=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type}" ^!Clip print H="<addressee>" ^!Set %tagname%=addressee ^!Set %content%=^?{(T=W)addressee=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=key="^?{key}" reg="^?{reg}" attested="^?{(T=C)attested==yes|added|no|unk}" accepted="^?{(T=C)accepted==yes|no|unk}" ^!Clip print H="<addrLine>" ^!Set %tagname%=addrLine ^!Set %content%=^?{(T=W)addrLine=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<addSpan>" ^!Set %tagname%=addSpan :required ^!Set %attributes%=to="^?{(T=C)to=_--please enter value--^=0|}" ^!If ^$StrPos("0";"^%attributes%";false)$>0 ^!Goto required ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type}" place="^?{place}" resp="^?{resp}" cert="^?{cert}" hand="^?{hand}" ^!Clip printEmpty H="<adminInfo>" ^!Set %tagname%=adminInfo ^!Set %content%=^?{(T=W)adminInfo=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<alt>" ^!Set %tagname%=alt :required ^!Set %attributes%=targets="^?{(T=C)targets=_--please enter value--^=0|}" ^!If ^$StrPos("0";"^%attributes%";false)$>0 ^!Goto required ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|pointer|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=mode="^?{(T=C)mode==excl|incl}" weights="^?{weights}" wScale="^?{(T=C)wScale==perc|real}" ^!Clip printEmpty H="<altGrp>" ^!Set %tagname%=altGrp ^!Set %content%=^?{(T=W)altGrp=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|pointerGrp|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=mode="^?{(T=C)mode==_excl|incl}" wScale="^?{(T=C)wScale==_perc|real}" ^!Clip print H="<altName>" ^!Set %tagname%=altName ^!Set %content%=^?{(T=W)altName=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|names|typed} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<analytic>" ^!Set %tagname%=analytic ^!Set %content%=^?{(T=W)analytic=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<anchor>" ^!Set %tagname%=anchor ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|typed} ^!IfCancel END ^!Clip checkAtts ^!Clip printEmpty H="<app>" ^!Set %tagname%=app ^!Set %content%=^?{(T=W)app=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type}" from="^?{from}" to="^?{to}" loc="^?{loc}" ^!Clip print H="<arg>" ^!Set %tagname%=arg ^!Set %content%=^?{(T=W)arg=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<argument>" ^!Set %tagname%=argument ^!Set %content%=^?{(T=W)argument=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<author>" ^!Set %tagname%=author ^!Set %content%=^?{(T=W)author=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=key="^?{key}" reg="^?{reg}" attested="^?{(T=C)attested==yes|added|no|unk}" accepted="^?{(T=C)accepted==yes|no|unk}" ^!Clip print H="<authority>" ^!Set %tagname%=authority ^!Set %content%=^?{(T=W)authority=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<availability>" ^!Set %tagname%=availability ^!Set %content%=^?{(T=W)availability=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=availability="^?{(T=C)availability==free|_unknown|restricted}" ^!Clip print H="<back>" ^!Set %tagname%=back ^!Set %content%=^?{(T=W)back=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declaring} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<bibl>" ^!Set %tagname%=bibl ^!Set %content%=^?{(T=W)bibl=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declarable} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<biblFull>" ^!Set %tagname%=biblFull ^!Set %content%=^?{(T=W)biblFull=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declarable} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<biblScope>" ^!Set %tagname%=biblScope ^!Set %content%=^?{(T=W)biblScope=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type}" ^!Clip print H="<biblStruct>" ^!Set %tagname%=biblStruct ^!Set %content%=^?{(T=W)biblStruct=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declarable} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<bloc>" ^!Set %tagname%=bloc ^!Set %content%=^?{(T=W)bloc=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|names|typed} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<body>" ^!Set %tagname%=body ^!Set %content%=^?{(T=W)body=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declaring} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<byline>" ^!Set %tagname%=byline ^!Set %content%=^?{(T=W)byline=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<calc>" ^!Set %tagname%=calc ^!Set %content%=^?{(T=W)calc=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<camera>" ^!Set %tagname%=camera ^!Set %content%=^?{(T=W)camera=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type}" ^!Clip print H="<caption>" ^!Set %tagname%=caption ^!Set %content%=^?{(T=W)caption=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<castGroup>" ^!Set %tagname%=castGroup ^!Set %content%=^?{(T=W)castGroup=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<castItem>" ^!Set %tagname%=castItem ^!Set %content%=^?{(T=W)castItem=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{(T=C)type==_role|list}" ^!Clip print H="<castList>" ^!Set %tagname%=castList ^!Set %content%=^?{(T=W)castList=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<catDesc>" ^!Set %tagname%=catDesc ^!Set %content%=^?{(T=W)catDesc=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<category>" ^!Set %tagname%=category ^!Set %content%=^?{(T=W)category=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<catRef>" ^!Set %tagname%=catRef :required ^!Set %attributes%=target="^?{(T=C)target=_--please enter value--^=0|}" ^!If ^$StrPos("0";"^%attributes%";false)$>0 ^!Goto required ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=scheme="^?{scheme}" ^!Clip printEmpty H="<cb>" ^!Set %tagname%=cb ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=ed="^?{ed}" ^!Clip printEmpty H="<cell>" ^!Set %tagname%=cell ^!Set %content%=^?{(T=W)cell=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=role="^?{role=_data|}" rows="^?{rows=_1|}" cols="^?{cols=_1|}" ^!Clip print H="<change>" ^!Set %tagname%=change ^!Set %content%=^?{(T=W)change=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<cit>" ^!Set %tagname%=cit ^!Set %content%=^?{(T=W)cit=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<class>" ^!Set %tagname%=class ^!Set %content%=^?{(T=W)class=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type}" ^!Clip print H="<classCode>" ^!Set %tagname%=classCode ^!Set %content%=^?{(T=W)classCode=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=scheme="^?{scheme}" ^!Clip print H="<classDecl>" ^!Set %tagname%=classDecl ^!Set %content%=^?{(T=W)classDecl=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<closer>" ^!Set %tagname%=closer ^!Set %content%=^?{(T=W)closer=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<collection>" ^!Set %tagname%=collection ^!Set %content%=^?{(T=W)collection=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|names|typed} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<condition>" ^!Set %tagname%=condition ^!Set %content%=^?{(T=W)condition=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<corr>" ^!Set %tagname%=corr ^!Set %content%=^?{(T=W)corr=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=sic="^?{sic}" resp="^?{resp}" cert="^?{cert}" ^!Clip print H="<correction>" ^!Set %tagname%=correction ^!Set %content%=^?{(T=W)correction=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declarable|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=status="^?{(T=C)status==high|_medium|low|_unknown}" method="^?{(T=C)method==_silent|tags}" ^!Clip print H="<country>" ^!Set %tagname%=country ^!Set %content%=^?{(T=W)country=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|names|typed} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<creation>" ^!Set %tagname%=creation ^!Set %content%=^?{(T=W)creation=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<custEvent>" ^!Set %tagname%=custEvent ^!Set %content%=^?{(T=W)custEvent=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type}" ^!Clip print H="<custodialHist>" ^!Set %tagname%=custodialHist ^!Set %content%=^?{(T=W)custodialHist=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<damage>" ^!Set %tagname%=damage ^!Set %content%=^?{(T=W)damage=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type}" extent="^?{extent}" resp="^?{resp}" hand="^?{hand}" agent="^?{agent}" degree="^?{degree}" ^!Clip print H="<date>" ^!Set %tagname%=date ^!Set %content%=^?{(T=W)date=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=calendar="^?{calendar}" value="^?{value}" certainty="^?{certainty}" ^!Clip print H="<dateLet>" ^!Set %tagname%=dateLet ^!Set %content%=^?{(T=W)dateLet=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=attested="^?{(T=C)attested==yes|added|no|unk}" ^!Clip print H="<dateline>" ^!Set %tagname%=dateline ^!Set %content%=^?{(T=W)dateline=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<dateRange>" ^!Set %tagname%=dateRange ^!Set %content%=^?{(T=W)dateRange=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=calendar="^?{calendar}" from="^?{from}" to="^?{to}" exact="^?{(T=C)exact==to|from|both|none}" ^!Clip print H="<deco>" ^!Set %tagname%=deco :required ^!Set %attributes%=decoRef="^?{(T=C)decoRef=_--please enter value--^=0|}" ^!If ^$StrPos("0";"^%attributes%";false)$>0 ^!Goto required ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=entity="^?{entity}" ^!Clip printEmpty H="<decoDesc>" ^!Set %tagname%=decoDesc ^!Set %content%=^?{(T=W)decoDesc=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<decoItem>" ^!Set %tagname%=decoItem ^!Set %content%=^?{(T=W)decoItem=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<decoList>" ^!Set %tagname%=decoList ^!Set %content%=^?{(T=W)decoList=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<decoText>" ^!Set %tagname%=decoText ^!Set %content%=^?{(T=W)decoText=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<decoration>" ^!Set %tagname%=decoration ^!Set %content%=^?{(T=W)decoration=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<del>" ^!Set %tagname%=del ^!Set %content%=^?{(T=W)del=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type}" status="^?{status=_unremarkable|}" resp="^?{resp}" cert="^?{cert}" hand="^?{hand}" ^!Clip print H="<delSpan>" ^!Set %tagname%=delSpan :required ^!Set %attributes%=to="^?{(T=C)to=_--please enter value--^=0|}" ^!If ^$StrPos("0";"^%attributes%";false)$>0 ^!Goto required ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type}" place="^?{place}" resp="^?{resp}" cert="^?{cert}" hand="^?{hand}" status="^?{status=_unremarkable|}" ^!Clip printEmpty H="<depth>" ^!Set %tagname%=depth ^!Set %content%=^?{(T=W)depth=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|measured} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<dimensions>" ^!Set %tagname%=dimensions ^!Set %content%=^?{(T=W)dimensions=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|measured} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type}" ^!Clip print H="<distance>" ^!Set %tagname%=distance ^!Set %content%=^?{(T=W)distance=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|temporalExp|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=exact="^?{(T=C)exact==Y|N|_U}" ^!Clip print H="<distinct>" ^!Set %tagname%=distinct ^!Set %content%=^?{(T=W)distinct=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type}" time="^?{time}" space="^?{space}" social="^?{social}" ^!Clip print H="<distributor>" ^!Set %tagname%=distributor ^!Set %content%=^?{(T=W)distributor=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<div>" ^!Set %tagname%=div ^!Set %content%=^?{(T=W)div=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|divn|declaring} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<divGen>" ^!Set %tagname%=divGen ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type}" ^!Clip printEmpty H="<div0>" ^!Set %tagname%=div0 ^!Set %content%=^?{(T=W)div0=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|divn|declaring} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<div1>" ^!Set %tagname%=div1 ^!Set %content%=^?{(T=W)div1=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|divn|declaring} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<div2>" ^!Set %tagname%=div2 ^!Set %content%=^?{(T=W)div2=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|divn|declaring} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<div3>" ^!Set %tagname%=div3 ^!Set %content%=^?{(T=W)div3=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|divn|declaring} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<div4>" ^!Set %tagname%=div4 ^!Set %content%=^?{(T=W)div4=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|divn|declaring} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<div5>" ^!Set %tagname%=div5 ^!Set %content%=^?{(T=W)div5=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|divn|declaring} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<div6>" ^!Set %tagname%=div6 ^!Set %content%=^?{(T=W)div6=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|divn|declaring} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<div7>" ^!Set %tagname%=div7 ^!Set %content%=^?{(T=W)div7=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|divn|declaring} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<docAuthor>" ^!Set %tagname%=docAuthor ^!Set %content%=^?{(T=W)docAuthor=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<docDate>" ^!Set %tagname%=docDate ^!Set %content%=^?{(T=W)docDate=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=value="^?{value}" ^!Clip print H="<docEdition>" ^!Set %tagname%=docEdition ^!Set %content%=^?{(T=W)docEdition=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<docImprint>" ^!Set %tagname%=docImprint ^!Set %content%=^?{(T=W)docImprint=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<docTitle>" ^!Set %tagname%=docTitle ^!Set %content%=^?{(T=W)docTitle=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<edition>" ^!Set %tagname%=edition ^!Set %content%=^?{(T=W)edition=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<editionStmt>" ^!Set %tagname%=editionStmt ^!Set %content%=^?{(T=W)editionStmt=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<editor>" ^!Set %tagname%=editor ^!Set %content%=^?{(T=W)editor=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=role="^?{role}" ^!Clip print H="<editorialDecl>" ^!Set %tagname%=editorialDecl ^!Set %content%=^?{(T=W)editorialDecl=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declarable} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<emph>" ^!Set %tagname%=emph ^!Set %content%=^?{(T=W)emph=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<encodingDesc>" ^!Set %tagname%=encodingDesc ^!Set %content%=^?{(T=W)encodingDesc=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<envelope>" ^!Set %tagname%=envelope ^!Set %content%=^?{(T=W)envelope=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type}" ^!Clip print H="<envOcc>" ^!Set %tagname%=envOcc :required ^!Set %attributes%=occ="^?{(T=C)occ==_--please select value--^=0|yes|no}" ^!If ^$StrPos("0";"^%attributes%";false)$>0 ^!Goto required ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:=core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip printEmpty H="<envPart>" ^!Set %tagname%=envPart ^!Set %content%=^?{(T=W)envPart=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=side="^?{(T=C)side==front|back|postcard}" ^!Clip print H="<epigraph>" ^!Set %tagname%=epigraph ^!Set %content%=^?{(T=W)epigraph=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<epilogue>" ^!Set %tagname%=epilogue ^!Set %content%=^?{(T=W)epilogue=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<expan>" ^!Set %tagname%=expan ^!Set %content%=^?{(T=W)expan=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=abbr="^?{abbr}" resp="^?{resp}" cert="^?{cert}" type="^?{type}" ^!Clip print H="<extent>" ^!Set %tagname%=extent ^!Set %content%=^?{(T=W)extent=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<figDesc>" ^!Set %tagname%=figDesc ^!Set %content%=^?{(T=W)figDesc=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<figure>" ^!Set %tagname%=figure ^!Set %content%=^?{(T=W)figure=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=entity="^?{entity}" ^!Clip print H="<fileDesc>" ^!Set %tagname%=fileDesc ^!Set %content%=^?{(T=W)fileDesc=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<foreign>" ^!Set %tagname%=foreign ^!Set %content%=^?{(T=W)foreign=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<formula>" ^!Set %tagname%=formula ^!Set %content%=^?{(T=W)formula=^&} ^!IfCancel END :required ^!Set %attributes%=notation="^?{(T=C)notation=_--please enter value--^=0|}" ^!If ^$StrPos("0";"^%attributes%";false)$>0 ^!Goto required ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%= ^!Clip print H="<front>" ^!Set %tagname%=front ^!Set %content%=^?{(T=W)front=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declaring} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<fsdDecl>" ^!Set %tagname%=fsdDecl :required ^!Set %attributes%=type="^?{(T=C)type=_--please enter value--^=0|}" fsd="^?{(T=C)fsd=_--please enter value--^=0|}" ^!If ^$StrPos("0";"^%attributes%";false)$>0 ^!Goto required ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip printEmpty H="<funder>" ^!Set %tagname%=funder ^!Set %content%=^?{(T=W)funder=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<fw>" ^!Set %tagname%=fw ^!Set %content%=^?{(T=W)fw=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type}" place="^?{place}" ^!Clip print H="<gap>" ^!Set %tagname%=gap ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=desc="^?{desc}" reason="^?{reason}" resp="^?{resp}" hand="^?{hand}" agent="^?{agent}" extent="^?{extent}" ^!Clip printEmpty H="<gloss>" ^!Set %tagname%=gloss ^!Set %content%=^?{(T=W)gloss=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=target="^?{target}" ^!Clip print H="<group>" ^!Set %tagname%=group ^!Set %content%=^?{(T=W)group=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declaring} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<hand>" ^!Set %tagname%=hand ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=hand="^?{hand}" scribe="^?{scribe}" style="^?{style}" mainLang="^?{mainLang}" ink="^?{ink}" character="^?{character}" first="^?{first}" resp="^?{resp}" ^!Clip printEmpty H="<handList>" ^!Set %tagname%=handList ^!Set %content%=^?{(T=W)handList=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<handShift>" ^!Set %tagname%=handShift ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=new="^?{new}" old="^?{old}" style="^?{style}" ink="^?{ink}" character="^?{character}" resp="^?{resp}" ^!Clip printEmpty H="<head>" ^!Set %tagname%=head ^!Set %content%=^?{(T=W)head=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type}" ^!Clip print H="<headItem>" ^!Set %tagname%=headItem ^!Set %content%=^?{(T=W)headItem=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<headLabel>" ^!Set %tagname%=headLabel ^!Set %content%=^?{(T=W)headLabel=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<height>" ^!Set %tagname%=height ^!Set %content%=^?{(T=W)height=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|measured} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<hi>" ^!Set %tagname%=hi ^!Set %content%=^?{(T=W)hi=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<history>" ^!Set %tagname%=history ^!Set %content%=^?{(T=W)history=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<hyphenation>" ^!Set %tagname%=hyphenation ^!Set %content%=^?{(T=W)hyphenation=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declarable|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=eol="^?{(T=C)eol==all|_some|none}" ^!Clip print H="<idno>" ^!Set %tagname%=idno ^!Set %content%=^?{(T=W)idno=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type}" ^!Clip print H="<imprimatur>" ^!Set %tagname%=imprimatur ^!Set %content%=^?{(T=W)imprimatur=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<imprint>" ^!Set %tagname%=imprint ^!Set %content%=^?{(T=W)imprint=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<index>" ^!Set %tagname%=index :required ^!Set %attributes%=level1="^?{(T=C)level1=_--please enter value--^=0|}" ^!If ^$StrPos("0";"^%attributes%";false)$>0 ^!Goto required ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=index="^?{index}" level2="^?{level2}" level3="^?{level3}" level4="^?{level4}" ^!Clip printEmpty H="<institution>" ^!Set %tagname%=institution ^!Set %content%=^?{(T=W)institution=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|names|typed} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<interp>" ^!Set %tagname%=interp :required ^!Set %attributes%=value="^?{(T=C)value=_--please enter value--^=0|}" ^!If ^$StrPos("0";"^%attributes%";false)$>0 ^!Goto required ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|interpret} ^!IfCancel END ^!Clip checkAtts ^!Clip printEmpty H="<interpGrp>" ^!Set %tagname%=interpGrp ^!Set %content%=^?{(T=W)interpGrp=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|interpret} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<interpretation>" ^!Set %tagname%=interpretation ^!Set %content%=^?{(T=W)interpretation=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declarable} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<item>" ^!Set %tagname%=item ^!Set %content%=^?{(T=W)item=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<join>" ^!Set %tagname%=join :required ^!Set %attributes%=targets="^?{(T=C)targets=_--please enter value--^=0|}" ^!If ^$StrPos("0";"^%attributes%";false)$>0 ^!Goto required ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|pointer|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=result="^?{result}" desc="^?{desc}" scope="^?{(T=C)scope==_root|branches}" ^!Clip printEmpty H="<joinGrp>" ^!Set %tagname%=joinGrp ^!Set %content%=^?{(T=W)joinGrp=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|pointerGrp|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=result="^?{result}" desc="^?{desc}" ^!Clip print H="<keywords>" ^!Set %tagname%=keywords ^!Set %content%=^?{(T=W)keywords=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=scheme="^?{scheme}" ^!Clip print H="<l>" ^!Set %tagname%=l ^!Set %content%=^?{(T=W)l=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=part="^?{(T=C)part==Y|_N|I|M|F}" ^!Clip print H="<label>" ^!Set %tagname%=label ^!Set %content%=^?{(T=W)label=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<lacunaEnd>" ^!Set %tagname%=lacunaEnd ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|fragmentary} ^!IfCancel END ^!Clip checkAtts ^!Clip printEmpty H="<lacunaStart>" ^!Set %tagname%=lacunaStart ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|fragmentary} ^!IfCancel END ^!Clip checkAtts ^!Clip printEmpty H="<language>" ^!Set %tagname%=language ^!Set %content%=^?{(T=W)language=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=wsd="^?{wsd}" usage="^?{usage}" ^!Clip print H="<langUsage>" ^!Set %tagname%=langUsage ^!Set %content%=^?{(T=W)langUsage=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declarable} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<layer>" ^!Set %tagname%=layer ^!Set %content%=^?{(T=W)layer=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type}" ^!Clip print H="<layerEnd>" ^!Set %tagname%=layerEnd :required ^!Set %attributes%=layer="^?{(T=C)layer=_--please enter value--^=0|}" ^!If ^$StrPos("0";"^%attributes%";false)$>0 ^!Goto required ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip printEmpty H="<layerList>" ^!Set %tagname%=layerList ^!Set %content%=^?{(T=W)layerList=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<layerStart>" ^!Set %tagname%=layerStart :required ^!Set %attributes%=layer="^?{(T=C)layer=_--please enter value--^=0|}" ^!If ^$StrPos("0";"^%attributes%";false)$>0 ^!Goto required ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip printEmpty H="<layout>" ^!Set %tagname%=layout ^!Set %content%=^?{(T=W)layout=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<lb>" ^!Set %tagname%=lb ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=ed="^?{ed}" ^!Clip printEmpty H="<lem>" ^!Set %tagname%=lem ^!Set %content%=^?{(T=W)lem=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|readings} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<letContents>" ^!Set %tagname%=letContents ^!Set %content%=^?{(T=W)letContents=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=defective="^?{(T=C)defective==yes|_no|unk}" ^!Clip print H="<letDesc>" ^!Set %tagname%=letDesc ^!Set %content%=^?{(T=W)letDesc=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=status="^?{(T=C)status==uni|compo|frag|def|unk}" ^!Clip print H="<letHeading>" ^!Set %tagname%=letHeading ^!Set %content%=^?{(T=W)letHeading=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<letIdentifier>" ^!Set %tagname%=letIdentifier ^!Set %content%=^?{(T=W)letIdentifier=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<letPart>" ^!Set %tagname%=letPart ^!Set %content%=^?{(T=W)letPart=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<lg>" ^!Set %tagname%=lg ^!Set %content%=^?{(T=W)lg=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|divn} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<link>" ^!Set %tagname%=link :required ^!Set %attributes%=targets="^?{(T=C)targets=_--please enter value--^=0|}" ^!If ^$StrPos("0";"^%attributes%";false)$>0 ^!Goto required ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|pointer} ^!IfCancel END ^!Clip checkAtts ^!Clip printEmpty H="<linkGrp>" ^!Set %tagname%=linkGrp ^!Set %content%=^?{(T=W)linkGrp=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|pointerGrp} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%= ^!Clip print H="<list>" ^!Set %tagname%=list ^!Set %content%=^?{(T=W)list=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type=_simple|}" ^!Clip print H="<listBibl>" ^!Set %tagname%=listBibl ^!Set %content%=^?{(T=W)listBibl=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declarable} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<measure>" ^!Set %tagname%=measure ^!Set %content%=^?{(T=W)measure=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|names|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type}" ^!Clip print H="<meeting>" ^!Set %tagname%=meeting ^!Set %content%=^?{(T=W)meeting=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<mentioned>" ^!Set %tagname%=mentioned ^!Set %content%=^?{(T=W)mentioned=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<metDecl>" ^!Set %tagname%=metDecl ^!Set %content%=^?{(T=W)metDecl=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declarable|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type=_met real|}" pattern="^?{pattern}" ^!Clip print H="<milestone>" ^!Set %tagname%=milestone :required ^!Set %attributes%=unit="^?{(T=C)unit=_--please enter value--^=0|}" ^!If ^$StrPos("0";"^%attributes%";false)$>0 ^!Goto required ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=ed="^?{ed}" ^!Clip printEmpty H="<monogr>" ^!Set %tagname%=monogr ^!Set %content%=^?{(T=W)monogr=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<move>" ^!Set %tagname%=move :required ^!Set %attributes%=who="^?{(T=C)who=_--please enter value--^=0|}" ^!If ^$StrPos("0";"^%attributes%";false)$>0 ^!Goto required ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type}" where="^?{where}" perf="^?{perf}" ^!Clip printEmpty H="<musicNotation>" ^!Set %tagname%=musicNotation ^!Set %content%=^?{(T=W)musicNotation=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<name>" ^!Set %tagname%=name ^!Set %content%=^?{(T=W)name=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|names|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type}" ^!Clip print H="<normalization>" ^!Set %tagname%=normalization ^!Set %content%=^?{(T=W)normalization=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declarable|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=source="^?{source}" method="^?{(T=C)method==_silent|tags}" ^!Clip print H="<note>" ^!Set %tagname%=note ^!Set %content%=^?{(T=W)note=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type}" resp="^?{resp}" place="^?{place=_unspecified|}" anchored="^?{(T=C)anchored==_yes|no}" target="^?{target}" targetEnd="^?{targetEnd}" ^!Clip print H="<notesStmt>" ^!Set %tagname%=notesStmt ^!Set %content%=^?{(T=W)notesStmt=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<num>" ^!Set %tagname%=num ^!Set %content%=^?{(T=W)num=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type}" value="^?{value}" ^!Clip print H="<opener>" ^!Set %tagname%=opener ^!Set %content%=^?{(T=W)opener=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<oper>" ^!Set %tagname%=oper ^!Set %content%=^?{(T=W)oper=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<orig>" ^!Set %tagname%=orig ^!Set %content%=^?{(T=W)orig=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=reg="^?{reg}" resp="^?{resp}" ^!Clip print H="<origin>" ^!Set %tagname%=origin ^!Set %content%=^?{(T=W)origin=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<p>" ^!Set %tagname%=p ^!Set %content%=^?{(T=W)p=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<paraph>" ^!Set %tagname%=paraph :required ^!Set %attributes%=paraphRef="^?{(T=C)paraphRef=_--please enter value--^=0|}" ^!If ^$StrPos("0";"^%attributes%";false)$>0 ^!Goto required ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=entity="^?{entity} ^!Clip printEmpty H="<paraphDesc>" ^!Set %tagname%=paraphDesc ^!Set %content%=^?{(T=W)paraphDesc=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<paraphItem>" ^!Set %tagname%=paraphItem ^!Set %content%=^?{(T=W)paraphItem=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<paraphList>" ^!Set %tagname%=paraphList ^!Set %content%=^?{(T=W)paraphList=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<paraphText>" ^!Set %tagname%=paraphText ^!Set %content%=^?{(T=W)paraphText=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<paraphernalia>" ^!Set %tagname%=paraphernalia ^!Set %content%=^?{(T=W)paraphernalia=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<pb>" ^!Set %tagname%=pb ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=ed="^?{ed}" ^!Clip printEmpty H="<performance>" ^!Set %tagname%=performance ^!Set %content%=^?{(T=W)performance=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<physDesc>" ^!Set %tagname%=physDesc ^!Set %content%=^?{(T=W)physDesc=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<placeLet>" ^!Set %tagname%=placeLet ^!Set %content%=^?{(T=W)placeLet=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=key="^?{key}" reg="^?{reg}" attested="^?{(T=C)attested==yes|added|no|unk}" ^!Clip print H="<placeName>" ^!Set %tagname%=placeName ^!Set %content%=^?{(T=W)placeName=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|names} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<postBox>" ^!Set %tagname%=postBox ^!Set %content%=^?{(T=W)postBox=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<postCode>" ^!Set %tagname%=postCode ^!Set %content%=^?{(T=W)postCode=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<postmark>" ^!Set %tagname%=postmark ^!Set %content%=^?{(T=W)postmark=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<principal>" ^!Set %tagname%=principal ^!Set %content%=^?{(T=W)principal=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<print>" ^!Set %tagname%=print ^!Set %content%=^?{(T=W)print=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=style="^?{style}" character="^?{character}" ink="^?{ink}" hand="^?{hand}" type="^?{type}" ^!Clip print H="<profileDesc>" ^!Set %tagname%=profileDesc ^!Set %content%=^?{(T=W)profileDesc=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<projectDesc>" ^!Set %tagname%=projectDesc ^!Set %content%=^?{(T=W)projectDesc=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declarable} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<prologue>" ^!Set %tagname%=prologue ^!Set %content%=^?{(T=W)prologue=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<provenance>" ^!Set %tagname%=provenance ^!Set %content%=^?{(T=W)provenance=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<ps>" ^!Set %tagname%=ps ^!Set %content%=^?{(T=W)ps=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<ptr>" ^!Set %tagname%=ptr :required ^!Set %attributes%=target="^?{(T=C)target=_--please enter value--^=0|}" ^!If ^$StrPos("0";"^%attributes%";false)$>0 ^!Goto required ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|pointer} ^!IfCancel END ^!Clip checkAtts ^!Clip printEmpty H="<publicationStmt>" ^!Set %tagname%=publicationStmt ^!Set %content%=^?{(T=W)publicationStmt=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<publisher>" ^!Set %tagname%=publisher ^!Set %content%=^?{(T=W)publisher=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<pubPlace>" ^!Set %tagname%=pubPlace ^!Set %content%=^?{(T=W)pubPlace=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|names} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<q>" ^!Set %tagname%=q ^!Set %content%=^?{(T=W)q=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type}" direct="^?{(T=C)direct==y|n|_unspecified}" who="^?{who}" ^!Clip print H="<quotation>" ^!Set %tagname%=quotation ^!Set %content%=^?{(T=W)quotation=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declarable|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=marks="^?{(T=C)marks==none|some|_all}" form="^?{(T=C)form==data|rend|std|nonstd|_unknown}" ^!Clip print H="<quote>" ^!Set %tagname%=quote ^!Set %content%=^?{(T=W)quote=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<rdg>" ^!Set %tagname%=rdg ^!Set %content%=^?{(T=W)rdg=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|readings} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<rdgGrp>" ^!Set %tagname%=rdgGrp ^!Set %content%=^?{(T=W)rdgGrp=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|readings} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<ref>" ^!Set %tagname%=ref ^!Set %content%=^?{(T=W)ref=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|pointer|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=target="^?{target}" ^!Clip print H="<refsDecl>" ^!Set %tagname%=refsDecl ^!Set %content%=^?{(T=W)refsDecl=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=doctype="^?{doctype=_TEI.2|}" ^!Clip print H="<reg>" ^!Set %tagname%=reg ^!Set %content%=^?{(T=W)reg=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=orig="^?{orig}" resp="^?{resp}" ^!Clip print H="<region>" ^!Set %tagname%=region ^!Set %content%=^?{(T=W)region=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|names|typed} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<remarks>" ^!Set %tagname%=remarks ^!Set %content%=^?{(T=W)remarks=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<rendition>" ^!Set %tagname%=rendition ^!Set %content%=^?{(T=W)rendition=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<repository>" ^!Set %tagname%=repository ^!Set %content%=^?{(T=W)repository=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|names|typed} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<resp>" ^!Set %tagname%=resp ^!Set %content%=^?{(T=W)resp=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<respStmt>" ^!Set %tagname%=respStmt ^!Set %content%=^?{(T=W)respStmt=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<restore>" ^!Set %tagname%=restore ^!Set %content%=^?{(T=W)restore=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=desc="^?{desc}" cert="^?{cert}" type="^?{type}" resp="^?{resp}" hand="^?{hand}" ^!Clip print H="<result>" ^!Set %tagname%=result ^!Set %content%=^?{(T=W)result=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<revisionDesc>" ^!Set %tagname%=revisionDesc ^!Set %content%=^?{(T=W)revisionDesc=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<role>" ^!Set %tagname%=role ^!Set %content%=^?{(T=W)role=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<roleDesc>" ^!Set %tagname%=roleDesc ^!Set %content%=^?{(T=W)roleDesc=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<row>" ^!Set %tagname%=row ^!Set %content%=^?{(T=W)row=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Appfend %attributes%=role="^?{role=_data|}" ^!Clip print H="<rs>" ^!Set %tagname%=rs ^!Set %content%=^?{(T=W)rs=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|names|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type}" ^!Clip print H="<salute>" ^!Set %tagname%=salute ^!Set %content%=^?{(T=W)salute=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<samplingDecl>" ^!Set %tagname%=samplingDecl ^!Set %content%=^?{(T=W)samplingDecl=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declarable} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<seg>" ^!Set %tagname%=seg ^!Set %content%=^?{(T=W)seg=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|seg|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=subtype="^?{subtype}" ^!Clip print H="<segmentation>" ^!Set %tagname%=segmentation ^!Set %content%=^?{(T=W)segmentation=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declarable} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<series>" ^!Set %tagname%=series ^!Set %content%=^?{(T=W)series=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<seriesStmt>" ^!Set %tagname%=seriesStmt ^!Set %content%=^?{(T=W)seriesStmt=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<set>" ^!Set %tagname%=set ^!Set %content%=^?{(T=W)set=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<settlement>" ^!Set %tagname%=settlement ^!Set %content%=^?{(T=W)settlement=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|names|typed} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<sic>" ^!Set %tagname%=sic ^!Set %content%=^?{(T=W)sic=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=corr="^?{corr}" resp="^?{resp}" cert="^?{cert}" ^!Clip print H="<signed>" ^!Set %tagname%=signed ^!Set %content%=^?{(T=W)signed=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<soCalled>" ^!Set %tagname%=soCalled ^!Set %content%=^?{(T=W)soCalled=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<sound>" ^!Set %tagname%=sound ^!Set %content%=^?{(T=W)sound=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type}" discrete="^?{(T=C)discrete==y|n|_u}" ^!Clip print H="<sourceDesc>" ^!Set %tagname%=sourceDesc ^!Set %content%=^?{(T=W)sourceDesc=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declarable} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<sp>" ^!Set %tagname%=sp ^!Set %content%=^?{(T=W)sp=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=who="^?{who}" ^!Clip print H="<space>" ^!Set %tagname%=space ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=dim="^?{(T=C)dim==horizontal|vertical}" extent="^?{extent}" resp="^?{resp}" ^!Clip printEmpty H="<speaker>" ^!Set %tagname%=speaker ^!Set %content%=^?{(T=W)speaker=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<sponsor>" ^!Set %tagname%=sponsor ^!Set %content%=^?{(T=W)sponsor=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<stage>" ^!Set %tagname%=stage ^!Set %content%=^?{(T=W)stage=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type}" ^!Clip print H="<state>" ^!Set %tagname%=state :required ^!Set %attributes%=unit="^?{(T=C)unit=_--please enter value--^=0|}" ^!If ^$StrPos("0";"^%attributes%";false)$>0 ^!Goto required ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=ed="^?{ed}" length="^?{length}" delim="^?{delim}" ^!Clip printEmpty H="<stdVals>" ^!Set %tagname%=stdVals ^!Set %content%=^?{(T=W)stdVals=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declarable} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<step>" ^!Set %tagname%=step :required ^!Set %attributes%=from="^?{(T=C)from=_--please enter value--^=0|}" ^!If ^$StrPos("0";"^%attributes%";false)$>0 ^!Goto required ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=refunit="^?{refunit}" length="^?{length}" delim="^?{delim}" to="^?{to=_DITTO|}" ^!Clip printEmpty H="<street>" ^!Set %tagname%=street ^!Set %content%=^?{(T=W)street=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<supplied>" ^!Set %tagname%=supplied ^!Set %content%=^?{(T=W)supplied=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=reason="^?{reason}" resp="^?{resp}" hand="^?{hand}" agent="^?{agent}" source="^?{source}" ^!Clip print H="<support>" ^!Set %tagname%=support ^!Set %content%=^?{(T=W)support=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<surrogates>" ^!Set %tagname%=surrogates ^!Set %content%=^?{(T=W)surrogates=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<symbol>" ^!Set %tagname%=symbol ^!Set %content%=^?{(T=W)symbol=^&} ^!IfCancel END :required ^!Set %attributes%=value="^?{(T=C)value=_--please enter value--^=0|}" ^!If ^$StrPos("0";"^%attributes%";false)$>0 ^!Goto required ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=terminal="^?{(T=C)terminal==_Y|N}" ^!Clip print H="<table>" ^!Set %tagname%=table ^!Set %content%=^?{(T=W)table=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=rows="^?{rows}" cols="^?{cols}" ^!Clip print H="<tagsDecl>" ^!Set %tagname%=tagsDecl ^!Set %content%=^?{(T=W)tagsDecl=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<tagUsage>" ^!Set %tagname%=tagUsage ^!Set %content%=^?{(T=W)tagUsage=^&} ^!IfCancel END :required ^!Set %attributes%=gi="^?{(T=C)gi=_--please enter value--^=0|}" ^!If ^$StrPos("0";"^%attributes%";false)$>0 ^!Goto required ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=occurs="^?{occurs}" ident="^?{ident}" render="^?{render}" ^!Clip print H="<taxonomy>" ^!Set %tagname%=taxonomy ^!Set %content%=^?{(T=W)taxonomy=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<tech>" ^!Set %tagname%=tech ^!Set %content%=^?{(T=W)tech=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{(T=C)type==light|sound|prop|block}" sound="^?{sound}" ^!Clip print H="<TEI.2>" ^!Set %tagname%=TEI.2 ^!Set %content%=^?{(T=W)TEI.2=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<teiHeader>" ^!Set %tagname%=teiHeader ^!Set %content%=^?{(T=W)teiHeader=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type=_text|}" creator="^?{creator}" status="^?{(T=C)status==_new|update}" date.created="^?{date.created}" date.updated="^?{date.updated}" ^!Clip print H="<term>" ^!Set %tagname%=term ^!Set %content%=^?{(T=W)term=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type}" ^!Clip print H="<text>" ^!Set %tagname%=text ^!Set %content%=^?{(T=W)text=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declaring} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<textClass>" ^!Set %tagname%=textClass ^!Set %content%=^?{(T=W)textClass=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|declarable} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<time>" ^!Set %tagname%=time ^!Set %content%=^?{(T=W)time=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=value="^?{value}" type="^?{(T=C)type==am|pm|24hour|descriptive}" zone="^?{zone}" ^!Clip print H="<timeline>" ^!Set %tagname%=timeline ^!Set %content%=^?{(T=W)timeline=^&} ^!IfCancel END :required ^!Set %attributes%=origin="^?{(T=C)origin=_--please enter value--^=0|}" ^!If ^$StrPos("0";"^%attributes%";false)$>0 ^!Goto required ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=unit="^?{unit}" interval="^?{interval}" ^!Clip print H="<timeRange>" ^!Set %tagname%=timeRange ^!Set %content%=^?{(T=W)timeRange=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=from="^?{from}" to="^?{to}" exact="^?{(T=C)exact==to|from|both|none}" ^!Clip print H="<title>" ^!Set %tagname%=title ^!Set %content%=^?{(T=W)title=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=level="^?{(T=C)level==a|m|j|s|u}" type="^?{type}" ^!Clip print H="<titlePage>" ^!Set %tagname%=titlePage ^!Set %content%=^?{(T=W)titlePage=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{type}" ^!Clip print H="<titlePart>" ^!Set %tagname%=titlePart ^!Set %content%=^?{(T=W)titlePart=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=type="^?{(T=C)type=_main|}" ^!Clip print H="<titleStmt>" ^!Set %tagname%=titleStmt ^!Set %content%=^?{(T=W)titleStmt=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<trailer>" ^!Set %tagname%=trailer ^!Set %content%=^?{(T=W)trailer=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<type>" ^!Set %tagname%=type ^!Set %content%=^?{(T=W)type=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<unclear>" ^!Set %tagname%=unclear ^!Set %content%=^?{(T=W)unclear=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=reason="^?{reason}" resp="^?{resp}" cert="^?{cert}" hand="^?{hand}" agent="^?{agent}" ^!Clip print H="<variantEncoding>" ^!Set %tagname%=variantEncoding :required ^!Set %attributes%=method="^?{(T=C)method==_--please select value--^=0|location-referenced|double-end-point|parallel-segmentation}" location="^?{(T=C)location==_--please select value--^=0|internal|external}" ^!If ^$StrPos("0";"^%attributes%";false)$>0 ^!Goto required ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip printEmpty H="<view>" ^!Set %tagname%=view ^!Set %content%=^?{(T=W)view=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<when>" ^!Set %tagname%=when ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=absolute="^?{absolute}" unit="^?{unit}" interval="^?{interval}" since="^?{since}" ^!Clip printEmpty H="<width>" ^!Set %tagname%=width ^!Set %content%=^?{(T=W)width=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|measured} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<wit>" ^!Set %tagname%=wit ^!Set %content%=^?{(T=W)wit=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<witDetail>" ^!Set %tagname%=witDetail ^!Set %content%=^?{(T=W)witDetail=^&} ^!IfCancel END :required ^!Set %attributes%=target="^?{(T=C)target=_--please enter value--^=0|}" wit="^?{(T=C)wit=_--please enter value--^=0|}" ^!If ^$StrPos("0";"^%attributes%";false)$>0 ^!Goto required ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=resp="^?{resp}" type="^?{type}" place="^?{place=_apparatus|}" ^!Clip print H="<witEnd>" ^!Set %tagname%=witEnd ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|fragmentary} ^!IfCancel END ^!Clip checkAtts ^!Clip printEmpty H="<witList>" ^!Set %tagname%=witList ^!Set %content%=^?{(T=W)witList=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis} ^!IfCancel END ^!Clip checkAtts ^!Clip print H="<witness>" ^!Set %tagname%=witness ^!Set %content%=^?{(T=W)witness=^&} ^!IfCancel END :required ^!Set %attributes%=sigil="^?{(T=C)sigil=_--please enter value--^=0|}" ^!If ^$StrPos("0";"^%attributes%";false)$>0 ^!Goto required ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|specific for <^%tagname%>^=other} ^!IfCancel END ^!Clip checkAtts ^!If ^$StrPos("other";"^%attList%";false)$<=0 Skip ^!Append %attributes%=included="^?{included}" ^!Clip print H="<witStart>" ^!Set %tagname%=witStart ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|fragmentary} ^!IfCancel END ^!Clip checkAtts ^!Clip printEmpty H="<xptr>" ^!Set %tagname%=xptr ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|xPointer} ^!IfCancel END ^!Clip checkAtts ^!Clip printEmpty H="<xref>" ^!Set %tagname%=xref ^!Set %content%=^?{(T=W)xref=^&} ^!IfCancel END ^!SetArray %attList%=^?{(T=A)choose optional attribute sets for <^%tagname%>:==core|linking|analysis|xPointer} ^!IfCancel END ^!Clip checkAtts ^!Clip print H=";" H="_checkAtts" ^!If ^$StrPos("core";"^%attList%";false)$>0 ^!Clip core ^!If ^$StrPos("linking";"^%attList%";false)$>0 ^!Clip linking ^!If ^$StrPos("analysis";"^%attList%";false)$>0 ^!Clip analysis ^!If ^$StrPos("names";"^%attList%";false)$>0 ^!Clip names ^!If ^$StrPos("typed";"^%attList%";false)$>0 ^!Clip typed ^!If ^$StrPos("interpret";"^%attList%";false)$>0 ^!Clip interpret ^!If ^$StrPos("fragmentary";"^%attList%";false)$>0 ^!Clip fragmentary ^!If ^$StrPos("declarable";"^%attList%";false)$>0 ^!Clip declarable ^!If ^$StrPos("declaring";"^%attList%";false)$>0 ^!Clip declaring ^!If ^$StrPos("measured";"^%attList%";false)$>0 ^!Clip measured ^!If ^$StrPos("temporalExp";"^%attList%";false)$>0 ^!Clip temporalExp ^!If ^$StrPos("readings";"^%attList%";false)$>0 ^!Clip readings ^!If ^$StrPos("seg";"^%attList%";false)$>0 ^!Clip seg ^!If ^$StrPos("divn";"^%attList%";false)$>0 ^!Clip divn ^!If ^$StrPos("xPointer";"^%attList%";false)$<=0 Skip_2 ^!Clip xPointer ^!Goto Skip_4 ^!If ^$StrPos("pointerGrp";"^%attList%";false)$<=0 Skip_2 ^!Clip pointerGrp ^!Goto Skip ^!If ^$StrPos("pointer";"^%attList%";false)$>0 ^!Clip pointer ^!Goto END H="_core" ^!Append %attributes%=id="^?{id for <^%tagname%>}" n="^?{n}" lang="^?{lang}" rend="^?{rend}" ^!Goto END H="_linking" ^!Append %attributes%=corresp="^?{corresp}" synch="^?{synch}" sameAs="^?{sameAs}" copyOf="^?{copyOf}" next="^?{next}" prev="^?{prev}" exclude="^?{exclude}" select="^?{select}" ^!Goto END H="_analysis" ^!Append %attributes%=ana="^?{ana}" ^!Goto END H="_names" ^!Append %attributes%=key="^?{key}" reg="^?{reg}" ^!Goto END H="_typed" ^!Append %attributes%=type="^?{type}" subtype="^?{subtype}" ^!Goto END H="_pointer" ^!Append %attributes%=type="^?{type}" resp="^?{resp}" crdate="^?{crdate}" targType="^?{targType}" targOrder="^?{(T=C)targOrder==Y|N|_U}" evaluate="^?{(T=C)evaluate==all|one|none}" ^!Goto END H="_xPointer" ^!Clip pointer ^!Append %attributes%=doc="^?{doc}" from="^?{from=_ROOT|}" to="^?{to=_DITTO|}" ^!Goto END H="_interpret" ^!Append %attributes%=resp="^?{resp}" type="^?{type}" inst="^?{inst}" ^!Goto END H="_fragmentary" ^!Append %attributes%=wit="^?{wit}" ^!Goto END H="_declarable" ^!Append %attributes%=default="^?{(T=C)default==YES|_NO}" ^!Goto END H="_declaring" ^!Append %attributes%=decls="^?{decls}" ^!Goto END H="_measured" ^!Append %attributes%=units="^?{units}" ^!Goto END H="_temporalExp" ^!Append %attributes%=value="^?{value}" ^!Clip names ^!Append %attributes%=type="^?{type}" full="^?{(T=C)full==_yes|abb|init}" ^!Goto END H="_readings" ^!Append %attributes%=wit="^?{wit}" type="^?{type}" cause="^?{cause}" varSeq="^?{varSeq}" resp="^?{resp}" hand="^?{hand}" H="_pointerGrp" ^!Clip pointer ^!Append %attributes%=domains="^?{domains}" targFunc="^?{targFunc}" ^!Goto END H="_seg" ^!Append %attributes%=type="^?{type}" function="^?{function}" part="^?{(T=C)part==Y|_N|I|M|F}" ^!Goto END H="_divn" ^!Append %attributes%=type="^?{type}" org="^?{(T=C)org==composite|_uniform}" sample="^?{(T=C)sample==initial|medial|final|unknown|_complete}" part="^?{(T=C)part==Y|_N|I|M|F}" H="_print" ^!InsertWizardHtml <^%tagname% ^%attributes%>^%content%</^%tagname%> ^!Set %tagname%=;%attributes%=;%content%=;%attList%= ^!IfCancel END H="_printEmpty" ^!InsertWizardHtml <^%tagname% ^%attributes%/> ^!Set %tagname%=;%attributes%=;%content%=;%attList%= ^!IfCancel ENDû]~DÂáK�d¾Iç§