require 'pescador/def_files/parser.rb'
require 'pp'

DefFiles::Parser.prepare
result=DefFiles::Parser.parse(<<EOF, "test_file")
<Realm>
    "Archivo Juan Pérez"@es
    "Juan Pérez Archive"@en
		comment "Un archivo bien bien funky"@es
		comment "A very, very funk archive"@en

    abbreviation ajp
    thisOntology "http://archive.specific.uri/archivo-juan-perez#"

    externalOntology rdf "http://www.w3.org/1999/02/22-rdf-syntax-ns#"
    externalOntology rdfs "http://www.w3.org/2000/01/rdf-schema#"
		
    dependsRealm sys
    dependsRealm swv

    <RepositoryArea>
        "Archivos de fotografías Juan Pérez"@es
        "Juan Pérez Photo Archive"@en
		    comment "Foo foo"@en
		    comment "Foo foó é Á"@es

        systemThings
        sharedArchivalThings
        generalArchivalThings
    </RepositoryArea>
</Realm>

<DefinitionSet test>
	  <Vocabulary>
		    <Class swv:AFunkyClass>
			      "A funky class"@en
			      "Una clase bien funky"@es
			      comment "foo foo"@en
			      comment "foo foo"@es
			      subClassOf rdf:NothingDoing
        </Class>
		
	     <Property swv:hasRelatedEventTime>
            "Related Event Time"@en
            "Momento de un evento relacionado"@es
            comment "This property exists mainly as a superproperty of other more specifically defined ones"@en
            comment "Esta propiedad funciona principalmente como superpropiedad, cuyas descendientes se definen de manera más precisa"@es
            subPropertyOf swv:hasTimeSpaceKarma
            range swv:TimeRange
        </Property>
        
        <AbstractDataType swv:CalendarPointer>
            "Calendar Pointer"@en
            "Indicador sobre el calendario"@es
            subDataTypeOf swv:TimeData
            comparisonVector Integer point default
        </AbstractDataType>

        <AbstractDataType swv:CalendarPointer2>
            "Calendar Pointer2"@en
            "Indicador sobre el calendario2"@es
            subDataTypeOf swv:TimeData
            comparisonVector Integer point
        </AbstractDataType>

        <FundamentalDataType swv:YearInCommonEra>
            "Year in the Common Era"@en
            "Año en la era común"@es
            subDataTypeOf swv:CalendarPointer
            bindToRuleSet year_in_common_era
        </FundamentalDataType>

        <ComplexDataType swv:TimeRangeOverUnit>
            "Time Range Over Unit"@en
            "Rango de tiempo por unidad"@es
            comment "A range of time defined by the beginning and end of a calendar time unit"@en
            comment "Un rango de tiempo definido por el inicio y fin de una unidad determinada del calendario"@es
            subDataTypeOf swv:TimeRange
            bindToRuleSet time_range_over_unit
        </ComplexDataType>
	  </Vocabulary>

    <RuleSet time_range_wse>
        <Structure>
            <Descriptor ends>
                property swv:ends
                minCardinality 1
                maxCardinality 1
                maxNonInfCardinality 10
                multilingual
                multipleOrdered
                outClass swv:TimeData
                outDataType swv:TimeData
                outFromGroup time_ranges
                outRequirement fromPropRange
                outValue swv:Nada
                useDefinition swv.time_data.test
                defaultOrderBy
            </Descriptor>
        </Structure>
   
        <InferenceRules>
            <InferenceRule containment>
                |{
                    if ((ROOT->has_containing_area).hasObj)
                        x = (ROOT->has_containing_area).node
                        if ((x->has_containing_area).hasObj)
                            has_containing_area.assign(ROOT, (x->has_containing_area).node)
                        end
                    end
                }|
            </InferenceRule>
        </InferenceRules>
        
        <KRRelationRules>
            <KRRelationRule has_system_accessible_digital_copy>
                content_link.has_linked_content.inv->content_link.has_linked_manifestation
            </KRRelationRule>

            <KRRelationRule test >
                content_link.has_linked_content.inv->content_link.has_linked_manifestation->foo
                <StructRules>
		                minCardinality 1
		                maxCardinality 1
		                maxNonInfCardinality 10
		                outClass swv:TimeData
		                outDataType swv:TimeData
		                outFromGroup time_ranges
		                outRequirement fromPropRange
		                outValue swv:Nada
                </StructRules>
            </KRRelationRule>

            <KRRelationRule test2 >
                content_link.has_linked_content
                defaultOrderBy
                <Conditions>
                    |{ (OUT.classes).includes(sys:ComputerFile) }|
                    |{ (OUT->sys.files.has_system_accessible_uri).hasObj }|
                </Conditions>
            </KRRelationRule>
        </KRRelationRules>
        
        <CompVectorFunctions>
            <CompVectorFunction start_point>
                |{ (ROOT->starts).point }|
            </CompVectorFunction>
        </CompVectorFunctions>
        
        <BPVFunctions>
            <TextBPVFunction text_ref>
                defaultTextBPVFunction
                orderUsing test2
                |{ (ROOT->starts).textBPV + " - " + (ROOT->ends).textBPV }|
            </TextBPVFunction>

            <ImageBPVFunction image_ref>
                defaultImageBPVFunction
                |{ (ROOT->has_system_accessible_digital_copy).imageBPV }|
            </ImageBPVFunction>
        </BPVFunctions>

        <Descriptions>
            <NonDefaultDescFragments>
                <ModifyTemplate has_system_accessible_digital_copy>
                    "Digital copy"@en
                    "Copia digital"@es
                    label |{ foo.to_s }|
                    imageBPV image_ref
                    textBPV text_ref
                    uniqueImageBPV |{ foo.to_s }|
                    uniqueTextBPV |{ foo.to_s }|
                </ModifyTemplate>

                <CreateTemplate has_system_accessible_digital_copy2>
                		copyOfTemplate has_system_accessible_digital_copy
                    "Digital copy"@en
                    "Copia digital"@es
                    label |{ foo.to_s }|
                    imageBPV image_ref
                    textBPV text_ref
                    uniqueImageBPV |{ foo.to_s }|
                    uniqueTextBPV |{ foo.to_s }|
                </CreateTemplate>
            </NonDefaultDescFragments>
            
        		<VariableDesc>
                df has_unique_id
                df has_title
                <UniqueDF>
	                    "Digital copy"@en
	                    "Copia digital"@es
	                    copyOfTemplate has_system_accessible_digital_copy
	                    label |{ foo.to_s }|
  	                  imageBPV image_ref
    	                textBPV text_ref
        	            uniqueTextBPV |{ foo.to_s }|
	                    uniqueImageBPV |{ (ROOT->has_system_accessible_digital_copy).imageBPV.thumb }|
	                    anchor foo_anchor
	                    <LinkTo image>
	                        "View in higher resolution..."@en
	                        "Versión con mayor resolución..."@es
	                    </LinkTo>
                </UniqueDF>
            </VariableDesc>
            VariableDesc default

            <ShortDesc>
                df has_unique_id
								<Block>
										<% if then don't %>
                    <Title>
                        "Block Title"@en
                        "Título del bloque"@es
                        textBPV bt
                        uniqueTextBPV |{ bt.do() }|
                    </Title>
                    df has_unique_id
                    df has_title
                    df has_description
                    <UniqueDF>
	                    "Digital copy"@en
	                    "Copia digital"@es
    	                textBPV text_ref
		                </UniqueDF>
                </Block>
                <UniqueDF>
      				       "Unique DF in Short Desc"@en
                </UniqueDF>
                imageBPV image_ref
    	          textBPV text_ref
        	      uniqueTextBPV |{ foo.to_s }|
	              uniqueImageBPV |{ (ROOT->has_system_accessible_digital_copy).imageBPV.thumb }|
                "Text in Short Desc"@en
                <% if then don't %>
	        	</ShortDesc>
	        	ShortDesc default
	        	
            <FullDesc>
                <Area main>
                    <Title>
                        "Full record"@en
                        "Ficha completa"@es
                    </Title>
                    <Block>
                        df has_unique_id
                        df has_title
                        df has_description
                        df has_initial_photo_location
                        df has_initial_photo_date
                        df has_topic
                        df has_notes
                        df has_image_media_type
                        df has_conservation_status
                        <% if ((ROOT->has_system_accessible_digital_copy).hasObj) %>
                            <UniqueDF>
                                "Digital copy"@en
                                "Copia digital"@es
                                uniqueImageBPV |{ (ROOT->has_system_accessible_digital_copy).imageBPV.thumb }|
                                <LinkTo image>
                                    "View in higher resolution..."@en
                                    "Versión con mayor resolución..."@es
                                </LinkTo>
                            </UniqueDF>
                        <% end %>
                    </Block>
                </Area>
                <% if ((ROOT->has_system_accessible_digital_copy).hasObj) %>
                    <Area image>
                        <Title>
                            "Image"@en
                            "Imagen"@es
                        </Title>
                        uniqueImageBPV |{ (ROOT->has_system_accessible_digital_copy).imageBPV.fitViewPort }|
                        df has_unique_id
                        df has_title
                    </Area>
                <% end %>
            </FullDesc>
	        	FullDesc default
      	
        </Descriptions>
    </RuleSet>

    <RepositorySetup>
        <SOC photographic_prints>
            "Juan Pérez photographic positives fond"@en
            "Fondo de positivos fotográficos Juan Pérez"@es
            comment "foofoo"@it
            hasGroupDomain swv:PhotographicPrint
            bindToRuleSet photographic_print
            mainLevel
            secondaryLevel
            bindSOCToRuleSet photographic_print_soc
        </SOC>
    </RepositorySetup>

</DefinitionSet>
EOF
pp result