home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / !THEDRAW.ZIP / MAKEQLB.BAT < prev    next >
DOS Batch File  |  1991-02-28  |  2KB  |  78 lines
  1. ECHO OFF
  2.  
  3. IF NOT "%1"=="" GOTO START
  4. ECHO  
  5. ECHO MAKEQLB:  Takes TheDraw QuickBasic object files and incorporates them into
  6. ECHO a Quick Library (for use in the integrated environment) and a parallel .LIB
  7. ECHO library file.  Additional non-TheDraw object files and libraries can also
  8. ECHO be included if you desire.
  9. ECHO  
  10. ECHO The following files must be present in the same directory:
  11. ECHO   LINK.EXE, LIB.EXE, BQLB40.LIB or BQLB45.LIB, and object files to
  12. ECHO   incorporate into the libraries.
  13. ECHO  
  14. ECHO Usage:  MAKEQLB library [file1] [file2] [file3] etc...
  15. ECHO  
  16. ECHO Do not place any file extension in the "library" parameter, as the
  17. ECHO extensions .QLB and .LIB are assumed.  ie:
  18. ECHO  
  19. ECHO   MAKEQLB TEST IMAGE1.OBJ IMAGE2.OBJ IMAGE3.OBJ MYCODE.LIB
  20. ECHO  
  21. ECHO ...produces TEST.LIB -and- TEST.QLB containing the three object files
  22. ECHO    plus the information from the specified library file.
  23. ECHO  
  24. ECHO  
  25. GOTO DONE
  26.  
  27. :START
  28. ECHO Processing TheDraw Quick Library...
  29. SET libname=%1
  30. IF NOT EXIST %libname%.LIB GOTO NEWLIB
  31. ECHO Updating:  %libname%.LIB
  32. GOTO LIBLOOP
  33.  
  34. :NEWLIB
  35. IF "%2"=="" GOTO LIBDONE
  36. IF EXIST %2 GOTO LIBCREATE
  37. IF EXIST %2.OBJ GOTO LIBCREATE
  38. IF EXIST %2.LIB GOTO LIBCREATE
  39. GOTO INVALIDPARAM
  40. :LIBCREATE
  41. ECHO Creating:  %libname%.LIB
  42. ECHO   Adding:  %2
  43. LIB %libname%.LIB+QB4UTIL.LIB+%2; >NUL
  44. SHIFT
  45.  
  46. :LIBLOOP
  47. IF "%2"=="" GOTO LIBDONE
  48. IF EXIST %2 GOTO LIBADD
  49. IF EXIST %2.OBJ GOTO LIBADD
  50. IF EXIST %2.LIB GOTO LIBADD
  51. GOTO INVALIDPARAM
  52. :LIBADD
  53. ECHO   Adding:  %2
  54. LIB %libname%.LIB+%2; >NUL
  55. SHIFT
  56. GOTO LIBLOOP
  57.  
  58. :INVALIDPARAM
  59. ECHO Aborting.  Unable to find any object file or library named: %2
  60. GOTO Done
  61.  
  62. :LIBDONE
  63. REM Make the QLB file
  64. IF EXIST BQLB40.LIB GOTO QLBMAKE
  65. IF EXIST BQLB45.LIB GOTO QLBMAKE
  66. ECHO File BQLB40.LIB or BQLB45.LIB not found in directory.  Aborting.
  67. GOTO Done
  68.  
  69. :QLBMAKE
  70. ECHO  
  71. ECHO Creating:  %libname%.QLB
  72. IF EXIST BQLB40.LIB LINK /Q /NOE /NOD %libname%.LIB, %libname%.QLB,,BQLB40.LIB; >NUL
  73. IF EXIST BQLB45.LIB LINK /Q /NOE /NOD %libname%.LIB, %libname%.QLB,,BQLB45.LIB; >NUL
  74. IF EXIST %libname%.BAK DEL %libname%.BAK
  75. SET LIBNAME=
  76.  
  77. :DONE
  78.