tools/ScanIncs.btm

   1 @echo off
   2
   3 goto end
   4
   5 :scanSub1
   6 pushd %i
   7 for /a:d j in (*) do (if "%@TRIM[%@LEFT[2, %j]]" != "." (gosub scanSub2))
   8 popd
   9 return
  10
  11 :scanSub2
  12 pushd %j
  13 for /a:d k in (*) do (if "%@TRIM[%@LEFT[2, %k]]" != "." (gosub scanSub3))
  14 popd
  15 return
  16
  17 :scanSub3
  18 if not isdir %k\include\public\%k goto missingpublic
  19 pushd %k
  20 for l in (include\public\%k\*) do (if "%@TRIM[%@LEFT[2, %k]]" != "." (gosub scanSub4public))
  21 popd
  22
  23 if not isdir %k\include\private\%k goto missingprivate
  24 pushd %k\include\private\%k
  25 for l in (include\private\%k\*) do (if "%@TRIM[%@LEFT[2, %k]]" != "." (gosub scanSub4private))
  26 popd
  27
  28 return
  29
  30 :scanSub4public
  31 call ScanInc %l %k include\public
  32 return
  33
  34 :scanSub4private
  35 call ScanInc %l %k include\private
  36 return
  37
  38 :missingpublic
  39 @rem echo missing %k\include\public\%k
  40 return
  41
  42 :missingprivate
  43 @rem echo missing %k\include\private\%k
  44 return
  45
  46 pushd ..\src\engine
  47 set i=shared
  48 gosub scanSub1
  49 set i=client
  50 gosub scanSub1
  51 set i=server
  52 gosub scanSub1
  53 popd
  54
  55 pushd ..\src\game
  56 set i=shared
  57 gosub scanSub1
  58 set i=client
  59 gosub scanSub1
  60 set i=server
  61 gosub scanSub1
  62 popd
  63
  64 :end