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