home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / gnat-2.06-src.tgz / tar.out / fsf / gnat / ada / gnatchop.bat < prev    next >
DOS Batch File  |  1996-09-28  |  2KB  |  46 lines
  1. @echo off
  2. if %1.==. goto usage
  3. REM setlocal
  4. set parms=
  5. set k8option=
  6. goto get_opt1
  7. :GET_OPTS
  8. shift
  9. :GET_OPT1
  10. REM Scan through the options, checking for validity and especially looking for
  11. REM the 'k' option since this will be used for the call to gcc to get the offset
  12. REM information.
  13. if %1.==-k. set k8option=-k8
  14. if %1.==-k. goto get_opts
  15. if %1.==-s. set parms=%parms% %1
  16. if %1.==-s. goto get_opts
  17. if %1.==-w. set parms=%parms% %1
  18. if %1.==-w. goto get_opts
  19. REM Check that there is a filename argument after the option list, and that the
  20. REM file actually exists.
  21. if %1.==. echo missing filename
  22. if %1.==. goto usage
  23. if not exist %1 echo %1 not found
  24. if not exist %1 goto end
  25. REM Call gnatf on the source filename argument with special options to generate
  26. REM offset information. If this special compilation completes succesfully call
  27. REM the gnatchop program to actually split the source file in one file per
  28. REM compilation unit in the optional directory if given otherwise in the current
  29. REM directory.
  30. gnatf -s -u %k8option% %1 >tmpfile
  31. if errorlevel 1 echo parse errors detected
  32. if errorlevel 1 erase tmpfile
  33. if errorlevel 1 goto end
  34. gnatchp %parms% %1 %2 <tmpfile
  35. erase tmpfile
  36. goto end
  37. :USAGE
  38. echo Usage : gnatchop [-k] [-s] [-w] filename [directory]
  39. echo.
  40. echo   k         limit filenames to 8 characters
  41. echo   s         generate a compilation script
  42. echo   w         overwrite existing filenames
  43. echo   filename  source file
  44. echo   directory directory to place split files (default is the current directory)
  45. :END
  46.