reportGlobals.xq Example File
xmlpatterns/xquery/globalVariables/reportGlobals.xq

 (:
     This query opens a C++ GCC-XML output file, and outputs a report describing the use
     of globals variables.

     Run it, by invoking:

     xmlpatterns reportGlobals.xq -param fileToOpen=globals.gccxml -output globals.html

     "fileToOpen=globals.gccxml" binds the string "globals.gccxml" to the variable
     "fileToOpen." It identifies the GCC-XML file to open.

 :)
 declare variable $fileToOpen as xs:anyURI external;
 declare variable $inDoc as document-node() := doc($fileToOpen);

 (: Determines whether the type by ID @p typeId is a complex type such as QString. :)
 declare function local:isComplexType($typeID as xs:string) as xs:boolean
 {
     (: We're being a bit crude here and only checks whether it's a class. We
        actually should check whether it has non-synthesized,
         constructors, I believe. :)

     exists($inDoc/GCC_XML/Class[@id = $typeID])
     or
     (: We also want const-qualified variables. :)
     exists($inDoc/GCC_XML/Class[@id = $inDoc/GCC_XML/CvQualifiedType[@id = $typeID]/@type])
 };

 declare function local:isPrimitive($typeId as xs:string) as xs:boolean
 {
     exists($inDoc/GCC_XML/FundamentalType[@id = $typeId])
 };

 (: Returns a string for human consumption that describes
    the location of @p block. :)
 declare function local:location($block as element()) as xs:string
 {
     concat($inDoc/GCC_XML/File[@id = $block/@file]/@name, " at line ", $block/@line)
 };

 declare function local:report() as element()+
 {
             let $complexVariables as element(Variable)* := $inDoc/GCC_XML/Variable[local:isComplexType(@type)]
             return if(exists($complexVariables)) (: Is the length larger than zero? :)

                    then (<p xmlns="http://www.w3.org/1999/xhtml/">The following global, complex variables were found:</p>,
                          <ol xmlns="http://www.w3.org/1999/xhtml/">
                             {
                                 (: For each Variable in $complexVariables... :)
                                 $complexVariables/<li><span class="variableName">{string(@name)}</span> in {local:location(.)}</li>
                             }
                          </ol>)

                    else <p xmlns="http://www.w3.org/1999/xhtml/">No global variables that are of complex types were found.</p>

             ,

             (: List primitive, mutable types. :)
             let $primitiveVariables as element(Variable)+ := $inDoc/GCC_XML/Variable[local:isPrimitive(@type)]
             return if(exists($primitiveVariables))

                    then (<p xmlns="http://www.w3.org/1999/xhtml/">The following mutable primitives were found:</p>,
                          <ol xmlns="http://www.w3.org/1999/xhtml/">
                             {
                                 (: For each Variable in $complexVariables... :)
                                 $primitiveVariables/<li><span class="variableName">{string(@name)}</span> in {local:location(.)}</li>
                             }
                          </ol>)

                    else <p xmlns="http://www.w3.org/1999/xhtml/">No global variables that are mutable primitives were found.</p>
 };

 <html xmlns="http://www.w3.org/1999/xhtml/" xml:lang="en" lang="en">
     <head>
         <title>Global variables report for {$fileToOpen}</title>
     </head>
     <style type="text/css">
         .details
         {{
             text-align: center;
             font-size: 80%;
             color: gray
         }}
         .variableName
         {{
             font-family: courier
         }}
     </style>

     <body>
         {
             (: We don't want simple types that are const, but all other types.
                One could frown upon const integers and say enums should be used instead, but
                let's be gentle. :)

             local:report()
         }

         <p class="details">This report was generated on {current-dateTime()}</p>
     </body>

 </html>

Best Of

Actualités les plus lues

Semaine

Mois

Année

Le Qt Quarterly au hasard

Déployer dans le Bazaar

Qt Quarterly est la revue trimestrielle proposée par Nokia et à destination des développeurs Qt. Ces articles d'une grande qualité technique sont rédigés par des experts Qt. Lire l'article.

Communauté

Ressources

Liens utiles

Contact

Vous souhaitez rejoindre la rédaction ou proposer un tutoriel, une traduction, une question... ? Postez dans le forum Contribuez ou contactez-nous par MP ou par email (voir en bas de page).

Qt dans le magazine

Cette page est une traduction d'une page de la documentation de Qt, écrite par Nokia Corporation and/or its subsidiary(-ies). Les éventuels problèmes résultant d'une mauvaise traduction ne sont pas imputables à Nokia.	Qt 4.4
Copyright © 2012 Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon, vous encourez selon la loi jusqu'à 3 ans de prison et jusqu'à 300 000 E de dommages et intérêts. Cette page est déposée à la SACD.
Vous avez déniché une erreur ? Un bug ? Une redirection cassée ? Ou tout autre problème, quel qu'il soit ? Ou bien vous désirez participer à ce projet de traduction ? N'hésitez pas à nous contacter ou par MP !