home *** CD-ROM | disk | FTP | other *** search
/ Der Mediaplex Sampler - Die 6 von Plex / 6_v_plex.zip / 6_v_plex / DISK5 / DOS_38 / VT12B.ZIP / VTSRC.ZIP / MAKE.BAT < prev    next >
DOS Batch File  |  1993-03-10  |  4KB  |  187 lines
  1. @echo off
  2.  
  3.  
  4.  
  5. rem ---------------------------------------------------------------------------
  6. rem
  7. rem  Intérprete de la llamada a función.
  8. rem
  9. rem ---------------------------------------------------------------------------
  10.  
  11. if %1==-?  goto Usage
  12. if %1==/?  goto Usage
  13. if %1==-h  goto Usage
  14. if %1==/h  goto Usage
  15. if %1==-H  goto Usage
  16. if %1==/H  goto Usage
  17. if %1==vt  goto MakeVT
  18. if %1==VT  goto MakeVT
  19. if %1==run goto MakeRun
  20. if %1==RUN goto MakeRun
  21. if %1==exe goto MakeExe
  22. if %1==EXE goto MakeExe
  23. if %1==src goto MakeSrc
  24. if %1==SRC goto MakeSrc
  25. if %1==all goto MakeAll
  26. if %1==ALL goto MakeAll
  27. if %1==pke goto PackExe
  28. if %1==PKE goto PackExe
  29. if %1==pks goto PackSrc
  30. if %1==PKS goto PackSrc
  31. if .%1==.  goto NoOption
  32. goto %1
  33.  
  34.  
  35.  
  36. rem ---------------------------------------------------------------------------
  37. rem
  38. rem  Funciones de compilación.
  39. rem
  40. rem ---------------------------------------------------------------------------
  41.  
  42. :MakeVT
  43.   cd FONT
  44.   call make
  45.   cd ..
  46.   call tpc MAKESTR
  47.   tdstrip  MAKESTR
  48.   lzexe    MAKESTR
  49.   del      MAKESTR.OLD
  50.   MakeStr
  51.   call tpc VT
  52.   tdstrip  VT
  53.   lzexe    VT
  54.   del      VT.OLD
  55.   call tpc ShellVT
  56.   tdstrip  ShellVT
  57.   lzexe    ShellVT
  58.   del      SHELLVT.OLD
  59.   call tpc OS2VT
  60.   tdstrip  OS2VT
  61.   lzexe    OS2VT
  62.   del      OS2VT.OLD
  63.   goto Fin
  64.  
  65.  
  66.  
  67. :MakeRun
  68.   call make VT
  69.   copy VT.EXE      \MODP > NUL
  70.   copy VT_ESP.LNG  \MODP > NUL
  71.   copy VT_ENG.LNG  \MODP > NUL
  72.   copy ShellVT.EXE \MODP > NUL
  73.   copy OS2VT.EXE   \MODP > NUL
  74.   goto Fin
  75.  
  76.  
  77.  
  78. rem ---------------------------------------------------------------------------
  79. rem
  80. rem  Funciones de creación de nuevas versiones.
  81. rem
  82. rem ---------------------------------------------------------------------------
  83.  
  84. :MakeDocs
  85.   cd DOC
  86.   call make
  87.   cd ..
  88.   doc\makedoc VT_HIS.TXT   VT.HIS
  89.   doc\makedoc VT_H_ENG.TXT VT_ENG.HIS
  90.   doc\makedoc COMPATIB.TXT COMPATIB.LST
  91.   goto Fin
  92.  
  93.  
  94.  
  95. :MakeExe
  96.   if %2.==.                     goto NeedVersion
  97.   if exist VERSIONS\VTEXE%2.ARJ goto AlreadyExists
  98.   call make MakeDocs
  99.   call make RUN
  100.   call make PackExe %2
  101.   goto Fin
  102.  
  103.  
  104.  
  105. :MakeSrc
  106.   if %2.==.                     goto NeedVersion
  107.   if exist VERSIONS\VTSRC%2.ARJ goto AlreadyExists
  108.   call make MakeDocs
  109.   call make RUN
  110.   call make PackSrc %2
  111.   goto Fin
  112.  
  113.  
  114.  
  115. :MakeAll
  116.   if %2.==.                     goto NeedVersion
  117.   if exist VERSIONS\VTSRC%2.ARJ goto OneExists
  118. :OnlyOneExists
  119.   call make MakeDocs
  120.   call make RUN
  121.   call make PackExe %2
  122.   call make PackSrc %2
  123.   goto Fin
  124.  
  125.  
  126.  
  127. rem ---------------------------------------------------------------------------
  128. rem
  129. rem  Funciones de empaquetado de los fuentes y los ejecutables.
  130. rem
  131. rem ---------------------------------------------------------------------------
  132.  
  133. :PackSrc
  134.   md VERSIONS > NUL
  135.   if exist VERSIONS\VTSRC%2.ARJ goto Fin
  136.   arj a -zBANNER.TXT VERSIONS\VTSRC%2.ARJ !VTSRC.LST
  137.   goto Fin
  138.  
  139.  
  140.  
  141. :PackExe
  142.   md VERSIONS > NUL
  143.   if exist VERSIONS\VTEXE%2.ARJ goto Fin
  144.   arj a -zBANNER.TXT VERSIONS\VTEXE%2.ARJ !VTEXE.LST
  145.   goto Fin
  146.  
  147.  
  148.  
  149. rem ---------------------------------------------------------------------------
  150. rem
  151. rem  Funciones de utilidad.
  152. rem
  153. rem ---------------------------------------------------------------------------
  154.  
  155. :Usage
  156.   echo "    MAKE { VT | RUN | EXE | SRC | ALL } [<versión>]"
  157.   goto Fin
  158.  
  159.  
  160.  
  161. :OneExists
  162.   if exist VERSIONS\VTEXE%2.ARJ goto AlreadyExists
  163.   goto OnlyOneExists
  164.  
  165.  
  166.  
  167. :NeedVersion
  168.   echo Necesito un número de versión.
  169.   goto Usage
  170.  
  171.  
  172.  
  173. :AlreadyExists
  174.   echo Esa versión ya existe: %2
  175.   goto Fin
  176.  
  177.   
  178.  
  179. :NoOption
  180.   echo "Tienes que especificarme una opción válida."
  181.   echo.
  182.   goto Usage
  183.  
  184.  
  185.  
  186. :Fin
  187.