Subversion Repositories wimsdev

Rev

Rev 16013 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 16013 Rev 16091
Line 38... Line 38...
38 
  !else
 38 
  !else
39 
    $(type)_defcnt=0
 39 
    $(type)_defcnt=0
40 
  !endif
 40 
  !endif
41 
!next type
 41 
!next type
42 
new_reccnt=$[$new_reccnt+$new_defcnt+$new_supcnt]
 42 
new_reccnt=$[$new_reccnt+$new_defcnt+$new_supcnt]
- 
 
 43 
forbiddenlist=$empty
43 
 
 44 
 
44 
!for rec in $reclist
 45 
!for rec in $reclist
45 
  !if $(new_$(rec)cnt)>0
 46 
  !if $(new_$(rec)cnt)>0
46 
    gotlist=!append item $rec to $gotlist
 47 
    gotlist=!append item $rec to $gotlist
- 
 
 48 
    !if $(max_$rec)!=$empty and $(new_$(rec)cnt)>$(max_$rec)
- 
 
 49 
      forbiddenlist=!append word $rec to $forbiddenlist
- 
 
 50 
    !endif
47 
  !endif
 51 
  !endif
48 
!next rec
 52 
!next rec
- 
 
 53 
!if $forbiddenlist!=$empty
- 
 
 54 
  dictionary=$module_dir/arch/recdepinv
- 
 
 55 
  forbiddenlistdep=!exec translator $forbiddenlist
- 
 
 56 
  forbiddenlistdep=!words2items $forbiddenlistdep
- 
 
 57 
  forbiddenlist=!words2items $forbiddenlist
- 
 
 58 
  forbiddenlistdep=!listunion $forbiddenlistdep and $forbiddenlist
- 
 
 59 
!endif
- 
 
 60 
 
49 
!if $gotlist=$empty
 61 
!if $gotlist=$empty
50 
  error=empty_file
 62 
  error=empty_file
51 
  !exit
 63 
  !exit
52 
!endif
 64 
!endif
53 
 
 65