xsd.2.0.docs.generate_tables.xco-html-util.xqm Maven / Gradle / Ivy

Go to download
Show more of this group Show more artifacts with this name
Show all versions of ojp-java-model Show documentation
Generates Java model from OJP xsds using jaxb.
The newest version!
(:
 : xco-html - utility functions supporting the creation of HTML reports
 :)
module namespace hu="http://www.parsqube.de/ns/xco/html-util";

declare namespace z="http://www.parsqube.de/ns/xco/structure";
declare boundary-space preserve;

(:~
 : Returns the standard colgroup element defining 6 columns.
 :)
declare function hu:standardColGroup6() as element(colgroup) {
    
        
        
        
        
        
        
                
};

declare function hu:classTable() as attribute(class) {
    'tableblock frame-all grid-all spread' ! attribute class {.}
};

declare function hu:classTd() as attribute(class) {
    'tableblock halign-left valign-top' ! attribute class {.}
};

declare function hu:classTd($addClasses as xs:string?) as attribute(class) {
    string-join(('tableblock halign-left valign-top', $addClasses), ' ') 
    ! attribute class {.}
};

declare function hu:classP() as attribute(class) {
    'tableblock' ! attribute class {.}
};

declare function hu:classP($addClasses as xs:string?) as attribute(class) {
    string-join(('tableblock', $addClasses), ' ') ! attribute class {.}
};

(: Returns a table text line. The text can be provided as a string 
 : or as a sequence of nodes and/or strings.
 :)
declare function hu:tableTextLine($items as item()*)
        as element(tr) {
    hu:tableTextLine($items, (), ())        
};        

(:~
 : Returns a td element containing text rendered as code.
 :)
declare function hu:tdWithCode($code as xs:string, 
                               $colspan as xs:integer, 
                               $rowspan as xs:integer)
        as element(td) {
    {        
        hu:classTd(),
        {
            hu:classP(),
            {$code}
        }
    }
};

(:~
 : Returns a td element containing text rendered as code.
 :)
declare function hu:tdWithContent(
                               $content as item()*, 
                               $colspan as xs:integer, 
                               $rowspan as xs:integer)
        as element(td) {
    hu:tdWithContent($content, $colspan, $rowspan, ())        
};

(:~
 : Returns a td element containing text rendered as code.
 :)
declare function hu:tdWithContent(
                               $content as item()*, 
                               $colspan as xs:integer, 
                               $rowspan as xs:integer,
                               $addClasses as xs:string?)
        as element(td) {
    {        
        hu:classTd(),
        {
            hu:classP($addClasses),
            $content
        }
    }
};

(: Returns a table text line. The text can be provided as a string 
 : or as a sequence of nodes and/or strings.
 :)
declare function hu:tableTextLine($items as item()*, 
                                  $addClassesTd as xs:string?,
                                  $addClassesP as xs:string?)
        as element(tr) {
    let $nodes := $items ! (if (. instance of node()) then . else text {.}) return         
    {
        {
            hu:classTd($addClassesTd),
            {
                hu:classP($addClassesP),
                $nodes
            }
        }
    }
};   

(:~
 : Returns a multiline HTML representation of a local type label.
 :)
declare function hu:getLocalTypeLabelLines($typeLabel as xs:string)
        as element()* {
    let $id := replace($typeLabel, '.*(\(.*)', '$1')        
    let $locator := replace($typeLabel, '(.*\]).*', '$1')
    let $steps := substring($typeLabel, 1 + string-length($locator)) ! replace(., '\s*\(.*', '')
                  [string()]
                  ! replace(., '(\S)#', '$1 #')
    return (
            {$locator}, 
,
            $steps ! ({'  '||.}, 
),
            {'  '||$id}
    )
};

(:~
 : Finalizes an HTML document. Ids and links are adapted to
 : the constraints governing MS Word links:
 : - replace ':' with '__'
 : - replace '-' with '_'
 : - replace '.' with '_' (under certain conditions)
 :)
declare function hu:finalizeHtmlReport($report as element(),
                                       $options as map(xs:string, item()*)?)
        as element() {
    copy $report_ := $report
    modify (
        for $att in $report_//(@id, @href) 
        let $value := string($att)
        (: Take care to preserve file paths and http:/ and https:/ :)
        let $prefix := $value ! replace(., '^(.*?#|https?:/).*', '$1')[. ne $value]
        let $edit := if (not($prefix)) then $value else substring-after($value, $prefix)
        let $editResult := $edit !
                replace(., ':', '__') !
                replace(., '(element|type|group)\.', '$1_') !
                replace(., '(\d+)\.(\d+)', '$1_$2') !
                replace(., '-', '_')
        let $editedValue := $prefix||$editResult
        where $editedValue != $value
        return
            replace value of node $att with $editedValue
    )
    return $report_
};