home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Fortran.51 / DISK6 / MKFDLL.CM$ / MKFDLL.bin
Text File  |  1991-04-24  |  2KB  |  58 lines
  1. @echo off
  2. setlocal
  3. if %1.==. goto Message
  4. set DESTIN=%1
  5. set FDLL=%2
  6. if %2.==. set FDLL=FRTLIB
  7. if not %3.==. set LIBF=%3
  8. if not %3.==. goto Start
  9. for %%A in (%LIB%) do if exist %%A\FRTEXE.OBJ set LIBF=%%A& goto Start
  10. echo Can't find components in LIB directory
  11. goto Exit
  12. :Start
  13. for %%A in (%PATH%) do if exist %%A\FL.EXE goto Skip2
  14. echo Can't find FL.EXE in PATH
  15. goto Exit
  16. :Skip2
  17. echo.
  18. echo    Build FMTMAIN.EXE
  19. echo.
  20. echo FL -MD FMTMAIN.FOR    %LIBF%\FRTEXE.OBJ %LIBF%\%FDLL%.LIB FMTMAIN.DEF
  21.  
  22. FL -MD FMTMAIN.FOR    %LIBF%\FRTEXE.OBJ %LIBF%\%FDLL%.LIB FMTMAIN.DEF
  23.  
  24. echo.
  25. echo    Build FMTDLL.DLL
  26. echo.
  27. echo FL -MD -Fe%DESTIN%\FMTDLL.DLL FMTDLL.FOR %LIBF%\FRTDLL.OBJ %LIBF%\%FDLL%.LIB FMTDLL.DEF
  28.  
  29. FL -MD -Fe%DESTIN%\FMTDLL.DLL FMTDLL.FOR %LIBF%\FRTDLL.OBJ %LIBF%\%FDLL%.LIB FMTDLL.DEF
  30.  
  31. goto Exit
  32. :Message
  33. echo   This batch file demonstrates dynamic linking using Microsoft FORTRAN.
  34. echo   It is assumed that you have built the example dynalink FORTRAN runtime 
  35. echo   library (see FDLLOBJS.CMD). Your PATH should point to a directory 
  36. echo   containing the Microsoft FORTRAN compiler and linker. Your LIB 
  37. echo   environment variable should have a pathname for OS2.LIB.
  38. echo.
  39. echo   Syntax:    
  40. echo              MKFDLL destin [frtdll] [libdir]
  41. echo.
  42. echo   Arguments:
  43. echo     destin   Specify destination directory (should be in LIBPATH in
  44. echo              CONFIG.SYS) for FMTDLL.DLL. Use . for current directory.
  45. echo     frtdll   Specify the base name of the dynamically linked FORTRAN
  46. echo              library built with FDLLOBJS.CMD. Default is FRTLIB.
  47. echo     libdir   Specify directory containing special startup object files 
  48. echo              and FORTRAN runtime imports library built with FDLLOBJS.CMD.
  49. echo              Default is LIB environment variable
  50. echo.
  51. echo    Example:
  52. echo              MKFDLL    C:\BINP MYLIB D:\LIBF
  53. echo     Puts FMTDLL.DLL in C:\BINP. Uses a FORTRAN runtime imports library 
  54. echo     named MYLIB.LIB found in D:\LIBF and a dynalink FORTRAN runtime named 
  55. echo     MYLIB.DLL in C:\BINP. Finds support files in D:\LIBF.
  56. :Exit
  57. endlocal
  58.