Subversion Repositories wimsdev

Rev

Rev 4158 | Rev 4507 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
20 reyssat 1
!if $wims_read_parm!=slib_header
2
 !goto proc
3
!endif
4158 bpr 4
 
4349 bpr 5
slib_author=Gang, XIAO
4158 bpr 6
 
20 reyssat 7
slib_example=fr,boy\
4054 guerimand 8
en,girl,3\
9
nl,boy girl,5
20 reyssat 10
!exit
11
 
4054 guerimand 12
!! third parm to get many first name distinct in one tim (FG)
13
!! Maj french fname by Jérémy Lebas
14
 
20 reyssat 15
:proc
16
 
4054 guerimand 17
slib_test=!itemcnt $wims_read_parm
18
!if $slib_test=3
19
 !distribute item $wims_read_parm into slib_lang,slib_genre,slib_nb
20
 !bound slib_genre within boy,girl default boy
21
 slib_langs=!words2items $wims_site_languages
22
 !bound slib_lang within $slib_langs default en
23
!else
24
!! old configuration parameters needed to be saved until modules use this slib has been change
25
 slib_opt=!items2words $wims_read_parm
26
 slib_genre=$empty
27
 !if boy iswordof $slib_opt
28
  slib_genre=boy
20 reyssat 29
 !endif
4054 guerimand 30
 !if girl iswordof $slib_opt
31
  slib_genre=$slib_genre girl
32
 !endif
33
 slib_langs=!words2items $wims_site_languages
34
 slib_lang=$module_language
35
 !for slib_l in $slib_langs
36
  !if $slib_l iswordof $slib_opt
37
   slib_lang=$slib_l
38
  !endif
39
 !next slib_l
40
!endif
41
!bound slib_nb between 1 and 10 default 1
20 reyssat 42
 
43
!if $slib_lang=fr
4054 guerimand 44
 slib_boy=Alain, André, Bernard, Bertrand, \
20 reyssat 45
  Carlos, Charles, Christophe, Claude, \
46
  Didier, Fabrice, François, Frédéric, Georges, \
47
  Gérard, Guillaume, Jacques, Jean, Joseph, \
48
  Laurent, Louis, Luc, Marc, \
49
  Matthieu, Michel, Olivier, Patrick, Paul, Philippe, Pierre, \
4054 guerimand 50
  Richard, Robert, Thierry, Xavier, \
51
 Stephan, Jordy, Alexandre, Emrullah, Esteban, Florent, Sacha, Antonin, Nicolas, Dorian, Ryan, Camille, \
52
 Logan, Anthony, Mel, Louis, Jordan, Jean-Christophe, Smaïn, Tristan, Louis, Thomas, Kohai, Thibault, Mouhammad, \
53
 Rudy, Romuald, Clément, Erwan, Hugo, Olivier, Thibault, Nicolas, Medhi, Valentin, Alan, Baptiste, Ambroise, Alexandre, \
54
 Dorian, Axel, Logan, Noam, Adem, Alric, Alexandre, Anthony, Quentin, Alexandre, Laurent, Pierre, Jayson, Remy, Aymen, Cyril, \
55
 Maxime, Magomed, Yannis, Louis, Sébastien, Thibault, Steven, Thomas, Mike, Nathan, Alexis, Quentin, Sébastien, Thomas,\
56
 Hind, pablo, Alexy, Rim, Enzo, Pierre, Guillaume, Benjamin, Jérémy, Jimmy, Thomas, Prasanth, Daniel, Théo, Ruben, Matthieu, \
57
 Paul, Francis, Florian, Clément, Théo, Nour-El-Houda, Sofiane, Rayane, Kevin, Téo, Yoan, Damien, Kevin, Christian, Kain, Hugo, \
58
 Anthony, Deniz, Ludovic, Olivier, Romain, cedric, Thomas, William, Levi, Lorenzo, Jonathan, Joachim, Gaël, Bilal, Jérémy, Raphaël, Florent,\
59
 Marvin, Wajdi, Florian, Matteo, Nassim, Hamza, Fabian, Idris, Allan, Marwanne, Abdoulla, Thomas, Lilian, Faycel, Sébastien, Johan, Kevin, Benjamin, Thomas, Akromat, Diye, Majdi, Medhi,\
60
 Christopher, Thomas, Walid
61
 
62
 slib_girl=Alice, Anne, Bernadette, \
20 reyssat 63
  Caroline, Catherine, Céline, Claire, Cloé, Denise, \
64
  Emmanuelle, Frédérique, Jeanne, Jeannine, Joséphine, Julie,\
65
  Laeticia, Laure, Lucie, Marie, Marion, Mireille, \
4054 guerimand 66
  Patricia, Rose, Sophie, Sylvie, \
67
 Lorna, Leslie, Maëlys, Marie, Malia, Pauline, Lamia, Alexia, Kenssy-Maïlys, Emma, Pauline, Eleonore, Elise, Séréna, Maé, \
68
 Manon, Aude, Amélie, Myrina, Eva, Chiara, Caroline, Caroline, Ambre, Oriane, Marie-Anaïs, Clémence, Manon, Floriane, Camille, \
69
 Willow, Sarah, Alicia, Romane, Lucie, Marine, Dorine, Maeva, Manon, Chloe, Laetitia, Lea, Soumeya, Sarah, Manuela, Olivia, Yael,\
70
 Charlotte, Marine, Sandy, Chloé, Doris, Erika, Marion, Lola, Chavely, Myriam, Elisa, Manuela, Isabelle, Fanny, Amandine, Elisa, Maia, \
71
 Jade, Christel, Barbara, Jade, Maissa, Eva, Julie, Elsa, Melissa, Andrea, Carla, Mariama, Esther, Elise, Loane, Laurie, Anna, Manoa, \
72
 Elena, Léonie, Célia, Chloé, Romane, Salomé, Pauline, Setareh, Aurélia, Marine, Cherrine, Vanessa, Ornella, Charlotte, Christelle, \
73
 Victoria, Noémie, Laurie, Juliette, Marion, Lena, laura, Emilie, Anne-Laure, Claire, Imen, Nina, Andrea, Clementine, Laëtitia, Lory, \
74
 Ophélie, Cathy, Paula, Margot, Célia, Estelle, Jade, Melody, Amira, Inès, Inès, Sarah, Kaouthar, Nausica, Jacqueline,Lina, Maeva, Lizie, \
75
 Marissa, Noemie, Alessia, Marie, Luana, Rhita, Marion, Melissa, Kelly, Erika, Océane, Yasmina, Clélia, \
76
 Noellia, Allison, Amel, Alicia, Maeva, Camille, Alexia, Inès, Christina, iris, Cynthia, Inès
20 reyssat 77
!endif
78
 
79
!if $slib_lang=nl
80
 
4054 guerimand 81
 slib_boy=Jan,Piet,Klaas,Gerard,Jonny,Sjonnie,Wim,Henk,\
20 reyssat 82
 willem,Willem-Jan,Koos,Paul,Robin,Bart,Dani,Edgar,Jacob,Willem,\
83
 Mohammed,Ali,Joost,Johan,Karel,Martin,Hans,Frederik,Bennie,Benno,\
84
 Freddy,Jelmer,Rinus,Marinus,Roderick,Simon,Anton,Ton,Tom,Nico
85
 
4054 guerimand 86
 slib_girl=Marlies,Marloes,Anna,Hanna,Johanna,Aaltje,Mariska,\
20 reyssat 87
 Roelie,Joke,Ellie,Elli,Evelien,Vera,Kristel,Christel,Chantal,\
88
 Loeki,Aafke,Marijke,Petra,Olga,Sien,Jo,Karlijn,Katinka,Bonnie,Carolien,\
89
 Anita,Hedwig,Karen,Karin,Koosje,Rosa,Lidwina,Astrid,Lenie,Lena,Maria,Eva,Marijke,\
90
 Anneke,Alie
91
!endif
92
 
4054 guerimand 93
!default slib_boy=Andrew, Bill, Charles, David, \
20 reyssat 94
 Edwin, George, Harry, Henry, Jack, James, John, \
95
 Mark, Michael, Peter, \
96
 Richard, Robert, Ronald, Thomas, William
97
 
4054 guerimand 98
!default slib_girl=Alice, Anna, Catherine, \
20 reyssat 99
 Diana, Elisabeth, Jane, Linda, \
100
 Marguerite, Marilyn, Mary, Nancy, \
101
 Rose, \
102
 Victoria, Virginia
103
 
4054 guerimand 104
slib_out=$empty
105
!if girl iswordof $slib_genre
106
 slib_out=!append item $slib_girl to $slib_out
20 reyssat 107
!endif
4054 guerimand 108
!if boy iswordof $slib_genre
109
 slib_out=!append item $slib_boy to $slib_out
20 reyssat 110
!endif
4054 guerimand 111
slib_out=!listuniq $slib_out
112
slib_out=!shuffle $slib_out
113
slib_out=!item 1 to $slib_nb of $slib_out