Rev 9446 | Rev 14087 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 9446 | Rev 13361 | ||
---|---|---|---|
Line 11... | Line 11... | ||
11 | loglist= |
11 | loglist= |
12 | logtest= |
12 | logtest= |
13 | !! look for the position of keyword in the two first lines |
13 | !! look for the position of keyword in the two first lines |
14 | !! check if the keyword have more than 4 characters in all lines not commented by # |
14 | !! check if the keyword have more than 4 characters in all lines not commented by # |
15 | !for i=1 to $n |
15 | !for i=1 to $n |
16 | l=!record $i of $file |
16 | l=!record $i of $file |
17 | l=!replace internal ; by , in $l |
17 | l=!replace internal ; by , in $l |
18 | l=!replace internal $ $ by , in $l |
18 | l=!replace internal $ $ by , in $l |
19 | !if $(got$keyword)!=$empty |
19 | !if $(got$keyword)!=$empty |
20 | ltest=!item $(got$keyword) of $l |
20 | ltest=!item $(got$keyword) of $l |
21 | ll=!wordcnt $ltest |
21 | ll=!wordcnt $ltest |
22 | !if $ll=1 and # notin $ltest |
22 | !if $ll=1 and # notin $ltest |
23 | ltest_cnt=!charcnt $ltest |
23 | ltest_cnt=!charcnt $ltest |
24 | !if $ltest_cnt<4 |
24 | !if $ltest_cnt<4 |
25 | bad_$keyword=!append item $ltest to $(bad_$keyword) |
25 | bad_$keyword=!append item $ltest to $(bad_$keyword) |
26 | !else |
26 | !else |
27 | loglist=!append item $ltest to $loglist |
27 | loglist=!append item $ltest to $loglist |
28 | !if @ isin $ltest or . isin $ltest |
28 | !if @ isin $ltest or . isin $ltest |
29 | !!!FIXME bidouillage - useful only to be able to define a variable dep_$ltest |
29 | !!!FIXME bidouillage - useful only to be able to define a variable dep_$ltest |
30 | !!! replace by writing in a file ??? |
30 | !!! replace by writing in a file ??? |
31 | ltest=!replace internal @ by _____ in _$ltest |
31 | ltest=!replace internal @ by _____ in _$ltest |
32 | ltest=!replace internal . by 555555 in __$ltest |
32 | ltest=!replace internal . by 555555 in __$ltest |
33 | ltest=!replace internal - by 666666 in __$ltest |
33 | ltest=!replace internal - by 666666 in __$ltest |
34 | !!!!modification necessaire car les noms de variables ne peuvent pas |
34 | !!!!modification necessaire car les noms de variables ne peuvent pas |
35 | !!!!contenir @ ; aucun login commencant par _ ne peut avoir été accepté, |
35 | !!!!contenir @ ; aucun login commencant par _ ne peut avoir été accepté, |
36 | !!!!donc il n'y a pas de confusion possible |
36 | !!!!donc il n'y a pas de confusion possible |
37 | !endif |
37 | !endif |
38 | logtest=!append item $ltest to $logtest |
38 | logtest=!append item $ltest to $logtest |
39 | !endif |
39 | !endif |
40 | dep_$ltest=$l |
40 | dep_$ltest=$l |
- | 41 | !endif |
|
- | 42 | !else |
|
- | 43 | !if $i>3 |
|
- | 44 | !exit |
|
- | 45 | !endif |
|
- | 46 | !if $keyword isitemof $l |
|
- | 47 | l=!lower $l |
|
- | 48 | types=!nospace $l |
|
- | 49 | got$keyword=!positionof item $keyword in $l |
|
- | 50 | got$keyword=!item 1 of $(got$keyword) |
|
- | 51 | !endif |
|
41 | !endif |
52 | !endif |
42 | !else |
- | |
43 | !if $i>3 |
- | |
44 | !exit |
- | |
45 | !endif |
- | |
46 | !if $keyword isitemof $l |
- | |
47 | l=!lower $l |
- | |
48 | types=!nospace $l |
- | |
49 | got$keyword=!positionof item $keyword in $l |
- | |
50 | got$keyword=!item 1 of $(got$keyword) |
- | |
51 | !endif |
- | |
52 | !endif |
- | |
53 | !next i |
53 | !next i |