Discussion:American Journal of Dance Therapy

De Wicri Musique

Autour de la chorégraphie et des chorégraphes

Première expérience

Sous Ajdt.storage

 HfdCat AjdtV1/Import/IstexRepository.hfd | SxmlFindText -s choreograph  -a 20 -b 20 | more

Identification d'acteurs de la danse ou de la musique

On reprend une technique précédemment utilisée sur Wicri/Eau

Création d'une page de chorégraphes américains;

requête sur l'API Wikipédia pour récupérer une liste de chorégraphes américains.

 curl "https://en.wikipedia.org/w/api.php?action=query&list=categorymembers\
&cmtitle=Category:American_choreographers&cmlimit=500&format=xml"   \
       2> /dev/null | SxmlSelect -s api/query/categorymembers/cm/attribute::title -p "* [[@s1|@s1]]"
Création d'un filtre permettant de fabriquer une liste de déclencheurs de personnes

sous $WICRI_ROOT/Wicri/Musique/sources

cat <<... > listFirstName.lex
%START F_NAME
%%
^"*"[^[]*"[["[^|]+"|"   BEGIN F_NAME;
<F_NAME>[a-z]  ECHO;
<F_NAME>[A-Z]  putchar(tolower(*yytext));
<F_NAME>" "   {printf("\t1\n"); BEGIN 0;}
.  ;
\n  ;
%%
main()
{
   yylex();
}
...
lex listFirstName.lex
gcc lex.yy.c -ll -o listFirstName.bin
WicriGetPage -l wicri-musique.fr -p "Liste de chorégraphes américains"  \
 | $WICRI_ROOT/Wicri/Musique/sources/listFirstName.bin                  \
 | SxmlSelect -p @1 -p @1                                               \
 | sort -u > $WICRI_ROOT/Wicri/Musique/sources/listFirstNameAmericanChoreographist.dict
Création d'une liste de danseurs

Toujours sous $WICRI_ROOT/Wicri/Musique/sources

cat <<... > listNames.lex
%START NAME
%%
^"*"[^[]*"[["[^|]+"|"  BEGIN NAME;
<NAME>[a-z]  ECHO;
<NAME>[A-Z]  putchar(tolower(*yytext));
<NAME>"]]"   {printf("\t1\n"); BEGIN 0;}
<NAME>.      ECHO;
.  ;
\n  ;
%%
main()
{
   yylex();
}
...
lex listNames.lex
gcc lex.yy.c -ll -o listNames.bin
WicriGetPage -l wicri-musique.fr -p "Liste de chorégraphes américains"  \
 | $WICRI_ROOT/Wicri/Musique/sources/listNames.bin                  \
 | SxmlSelect -p @1 -p @1                                           \
 | sort -u > $WICRI_ROOT/Wicri/Musique/sources/listAmericanChoreographist.dict
Filtrage sur IstexRepository
 HfdCat $WICRI_ROOT/Wicri/Amerique/corpus/Ajdt.storage/AjdtV1/Import/IstexRepository.hfd \
 | SxmlFindText -lD $WICRI_ROOT/Wicri/Musique/sources/listFirstNameAmericanChoreographist.dict \
                -B $WICRI_ROOT/Wicri/Musique/sources/listAmericanChoreographist.dict           \
 | SxmlSelect -p @5 -p @1-@2-@4                                                                \
 | sort -u | IndexBuildRec | SxmlSelect -g idx/k/1 -g idx/f/1 -p @g2 -p @g1 | sort -rn

Donne

56	martha graham
12	pearl lang
8	jean erdman
4	doris humphrey
3	nora kaye
3	daniel nagrin
3	alwin nikolais
2	murray louis
2	merce cunningham
2	la meri
2	jerome robbins
2	erick hawkins
2	bessie schonberg
1	valerie bettis
1	robert joffrey
1	michael kidd
1	eugene loring
1	carmelita maracci
1	anna sokolow

autre test

HfdCat $WICRI_ROOT/Wicri/Amerique/corpus/Ajdt.storage/AjdtV1/Import/IstexRepository.hfd  \
   | SxmlFindText -lD $WICRI_ROOT/Wicri/Musique/sources/listFirstNameAmericanChoreographist.dict   \
                 -B $WICRI_ROOT/Wicri/Musique/sources/listAmericanChoreographist.dict             \
  | SxmlSelect -p @1 -p @5 -p @2 | sort | SxmlGrouping

Nouvelle version

Identification d'acteurs de la danse ou de la musique

On reprend une technique précédemment utilisée sur Wicri/Eau

Pour une meilleure interface entre les wikis et les outils LorExplor, on produit une table (en non une liste).

 curl "https://en.wikipedia.org/w/api.php?action=query&list=categorymembers\
&cmtitle=Category:American_choreographers&cmlimit=500&format=xml"   \
       2> /dev/null | SxmlSelect -s api/query/categorymembers/cm/attribute::title -p "|-
| [[@s1|@s1]]"

Le résultat est visible sur Wicri:Liste de chorégraphes américains.

WicriGetPage -l wicri-musique.fr -p "Wicri:Liste de chorégraphes américains" \
 | MediaWikiCleanTable |  MediaWikiTable2Sxml                                \
 | MediaWikiTableTransformCol -k1 -v1 -f "regexp:[A-Z][a-z]+"                \
 | sort -u > $WICRI_ROOT/Wicri/Musique/sources/listFirstNameAmericanChoreographist.dict
WicriGetPage -l wicri-musique.fr -p "Wicri:Liste de chorégraphes américains" \
 | MediaWikiCleanTable |  MediaWikiTable2Sxml                                \
 | MediaWikiTableTransformCol -k1 -v1 -f "regexp:[A-Z][a-z]+[ ][A-Z][a-z]+"  \
 | sort -u > $WICRI_ROOT/Wicri/Musique/sources/listFullNameAmericanChoreographist.dict
Filtrage sur IstexRepository
 HfdCat $WICRI_ROOT/Wicri/Amerique/corpus/Ajdt.storage/AjdtV1/Import/IstexRepository.hfd \
 | SxmlFindText -D $WICRI_ROOT/Wicri/Musique/sources/listFirstNameAmericanChoreographist.dict \
                -B $WICRI_ROOT/Wicri/Musique/sources/listFullNameAmericanChoreographist.dict  \
 | SxmlSelect -p @5 -p @1-@2-@4                                                               \
 | sort -u | IndexBuildRec | SxmlSelect -g idx/k/1 -g idx/f/1 -p @g2 -p @g1 | sort -rn
Filtrage sur IstexRepository (via Main)
 HfdCat $WICRI_ROOT/Wicri/Amerique/corpus/Ajdt.storage/AjdtV1/Data/Main/Exploration/biblio.hfd      \
 | ExplorAddFullText -b                                                                          \
 | SxmlFindText -D $WICRI_ROOT/Wicri/Musique/sources/listFirstNameAmericanChoreographist.dict \
                -B $WICRI_ROOT/Wicri/Musique/sources/listFullNameAmericanChoreographist.dict  \
 | SxmlSelect -p @5 -p @1-@2-@4                                                               \
 | sort -u | IndexBuildRec | SxmlSelect -g idx/k/1 -g idx/f/1 -p @g2 -p @g1 | sort -rn
 HfdCat $WICRI_ROOT/Wicri/Amerique/corpus/Ajdt.storage/AjdtV1/Data/Main/Exploration/biblio.hfd      \
 | ExplorAddFullText -b                                                                          \
 | SxmlFindText -D $WICRI_ROOT/Wicri/Musique/sources/listFirstNameAmericanChoreographist.dict \
                -B $WICRI_ROOT/Wicri/Musique/sources/listFullNameAmericanChoreographist.dict  \
 | SxmlSelect -p @1 1                                                                         \
 |  IndexBuildRec | SxmlSelect -g idx/k/1 -g idx/f/1 -p @g2 -p @g1 | sort -rn                 \
 | SxmlSelect -p @2 -p @1                                                                 \
 | HfdSelect -h $EXPLOR_AREA/Data/Main/Exploration/biblio -i                                   \
  | SxmlSelect -g record/TEI/teiHeader/fileDesc/titleStmt/title/1                              \
    -g record/TEI/teiHeader/fileDesc/publicationStmt/idno@type=RBID/1 -p "*[@2] : {{Explor lien
   |wiki=    Wicri/Musique
   |area=    AjdtV1
   |flux=    Main
   |étape=   Exploration
   |type=    RBID | clé=@g2 | texte=@g1}}"