Hi Stephane,

Do you want to extract subtree from a XML?

Or just extract the text in specific nodes?

I think StAX parser is more friendly for selecting nodes (you don't have to subclass), i.e.:

| parser doc |
doc := '<?xml version="1.0" encoding="iso-8859-1"?>
<FILMS>
  <FILM annee="1958">
    <TITRE>Vertigo</TITRE>
    <GENRE>Drame</GENRE>
    <PAYS>USA</PAYS>
    <MES idref="3"/>
    <ROLES>
      <ROLE>
        <PRENOM>James</PRENOM>
        <NOM>Stewart</NOM>
        <INTITULE>John Ferguson</INTITULE>
      </ROLE>
      <ROLE>
        <PRENOM>Kim</PRENOM>
        <NOM>Novak</NOM>
        <INTITULE>Madeleine Elster</INTITULE>
      </ROLE>
    </ROLES>
    <RESUME>Scottie Ferguson, ancien inspecteur de police, est sujet
au vertige depuis qu''il a vu mourir son
 collegue. Elster, son ami, le charge de surveiller sa femme, Madeleine, ayant des tendances
 suicidaires. Amoureux de la jeune femme Scottie ne remarque pas le piege qui se trame autour
 de lui et dont il va etre la victime... </RESUME>
  </FILM>
<FILMS>'.
parser := XMLPullParser parse: doc.
[ parser isEndDocument ] whileFalse: [
    parser
        if: 'FILM'
        peek: [ : found |
            Transcript show: found name , ' -> ' , found attributes asString; cr.
            parser next.
            Transcript show: parser tagName ].
    parser next ]

Anyway if you want to try with SAX, have a look at #test01ParsingNodes and add some halts in BioNCBIBlastSAXParser to see it in action (that's in BioSmalltalk). I didn't used visitors though.

Hernán

2016-03-12 5:33 GMT-03:00 stepharo <[hidden email]>:

This is more complex than that.
Because I would like to have a visitor generated from the token I give.

And this
    start
    character
    end

does not really help me.

Because in SAXHandler I have
        start
            where I should store the properties
       same in characters:
            to store the name
       end
            where I should invoke the visitor

Now it means that I should only store the information for the tag I want.
Does anybody already did that and publish it?
I know doru did that in the past.
I will try.

Stef



Le 11/3/16 14:17, Blondeau Vincent a écrit :

Hi,

The qualified name in function startElement: aQualifiedName attributes: aDictionary, will be FILMS and after FILM and after TITRE,...etc...
So, you have to tell to your shouldVisit: method to accept TITRE too and get in and after you should implement characters: to get the content on the tag.

Vincent

-----Message d'origine-----
De : Pharo-users [mailto:[hidden email]] De la part de
stepharo
Envoyé : vendredi 11 mars 2016 14:04
À : Any question about pharo is welcome
Objet : [Pharo-users] How to access XML tag name?

Hi

Yesterday I started to hack a smart SAX handler. The idea is that I want to just
specify the tags I want to visit and the SAX handler should invoke (generated)
visit methods. Like that I can easily get visitors on XML domain.

Here is an example of what I did.

      | h |
      h := SmartSAXHandler new
                  visitor: (MyFilmVisitor new visitTags: #(FILM ROLE));
                  on: FileSystem workingDirectory / 'FILMS.XML'.
      h parseDocument.
      ^ h



SmartSAXHAndler >> startElement: aQualifiedName attributes: aDictionary

      (visitor shouldVisit: aQualifiedName)
          ifTrue: [
                  visitor
                      perform: (visitor createdVisitSelector: aQualifiedName)
                      with: aQualifiedName
                      with: aDictionary
          ]


Object subclass: #GenericTagSAXVisitor
      instanceVariableNames: 'visitTag visitTags'
      classVariableNames: ''
      category: 'SmartXMLHandler'


GenericTagSAXVisitor>>visitTags: aCollection
      "set the tags that will lead to a call to a visitTag:with: method in the visitor"

      visitTags := aCollection collect: [ :each | each asLowercase ].
      self createVisitMethods.

and in a subclass the visit* methods automatically generated


Now I could not get when I have a <TITRE>Vertigo</TITRE> where I can get the
Vertigo information.
I redefined several methods of SAXhandler but without success.


<?xml version="1.0" encoding="iso-8859-1"?>
<FILMS>
    <FILM annee="1958">
      <TITRE>Vertigo</TITRE>
      <GENRE>Drame</GENRE>
      <PAYS>USA</PAYS>
      <MES idref="3"/>
      <ROLES>
        <ROLE>
          <PRENOM>James</PRENOM>
          <NOM>Stewart</NOM>
          <INTITULE>John Ferguson</INTITULE>
        </ROLE>
        <ROLE>
          <PRENOM>Kim</PRENOM>
          <NOM>Novak</NOM>
          <INTITULE>Madeleine Elster</INTITULE>
        </ROLE>
      </ROLES>
      <RESUME>Scottie Ferguson, ancien inspecteur de police, est sujet
au vertige depuis qu'il a vu mourir son
   collegue. Elster, son ami, le charge de surveiller sa femme,
Madeleine, ayant des tendances
   suicidaires. Amoureux de la jeune femme Scottie ne remarque pas le
piege qui se trame autour
   de lui et dont il va etre la victime... </RESUME>
    </FILM>

!!!*************************************************************************************
"Ce message et les pièces jointes sont confidentiels et réservés à l'usage exclusif de ses destinataires. Il peut également être protégé par le secret professionnel. Si vous recevez ce message par erreur, merci d'en avertir immédiatement l'expéditeur et de le détruire. L'intégrité du message ne pouvant être assurée sur Internet, la responsabilité de Worldline ne pourra être recherchée quant au contenu de ce message. Bien que les meilleurs efforts soient faits pour maintenir cette transmission exempte de tout virus, l'expéditeur ne donne aucune garantie à cet égard et sa responsabilité ne saurait être recherchée pour tout dommage résultant d'un virus transmis.

This e-mail and the documents attached are confidential and intended solely for the addressee; it may also be privileged. If you receive this e-mail in error, please notify the sender immediately and destroy it. As its integrity cannot be secured on the Internet, the Worldline liability cannot be triggered for the message content. Although the sender endeavours to maintain a computer virus-free network, the sender does not warrant that this transmission is virus-free and will not be liable for any damages resulting from any virus transmitted.!!!"