Subversion Repositories wimsdev

Rev

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