home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / add-defs.bat < prev    next >
Encoding:
DOS Batch File  |  1992-10-16  |  1.6 KB  |  64 lines
  1. @echo off
  2.  
  3. if .%1==. goto err_param
  4. if NOT EXIST h\%1.def goto err_not_found
  5.  
  6. IF EXIST unixport\saved_kc.exe goto found_saved_kcl_exe
  7. echo WARNING : unixport/saved_kcl.exe file not found
  8. echo _         you will not be able to recompile the .lsp files
  9. echo _         nor start akcl
  10. :found_saved_kcl_exe
  11.  
  12. echo %1 > machine
  13.  
  14. if .%2==. goto only_1_param
  15. if exist %2\c\print.d goto only_1_param
  16. echo %2 is not the main kcl directory
  17.  
  18. :only_1_param
  19.  
  20. make -f Smakefile merge
  21.  
  22. copy tmpxx_.tem tmpxx
  23. del makedefs
  24.  
  25. echo AKCLDIR=/akcl >makedefs
  26. echo SHELL=/bin/sh >>makedefs
  27. echo MACHINE=%1  >>makedefs
  28. type h\%1.def >>makedefs 
  29. if  exist %2\c\print.d echo MAINDIR = %2 >> makedefs
  30. type makedefs >>tmpxx    
  31. echo # end makedefs >>tmpxx
  32. echo @s] >> tmpxx
  33.  
  34. echo inserting h\%1.def in ..
  35. for %%v in (Smakefile mp\makefile o\makefile lsp\makefile cmpnew\makefile dos\makefile) do go32 merge %%v tmpxx %%v.new
  36. for %%v in (Smakefile mp\makefile o\makefile lsp\makefile cmpnew\makefile dos\makefile) do if exist %%v.new mv %%v %%v.bak
  37. for %%v in (Smakefile mp\makefile o\makefile lsp\makefile cmpnew\makefile dos\makefile) do if exist %%v.new mv %%v.new %%v
  38.  
  39. go32 merge  unixport\makefile.dos tmpxx unixport\makefile.new
  40. if exist unixport\makefile.new mv unixport\makefile.dos unixport\makefile.bak
  41. if exist unixport\makefile.new mv unixport\makefile.new unixport\makefile.dos
  42.  
  43. rem rm -f Vmakefile
  44. rem rm -f tmpxx
  45.  
  46. rem Copy the config.h over.
  47. copy h\%1.h h\config.h
  48.  
  49. rem fix the cmpinclude.h
  50.  
  51. goto end
  52.  
  53. :err_param
  54. echo usage: Provide a machine name as arg
  55. goto end
  56.  
  57. :err_not_found
  58. echo h\%1.def does not exist
  59. echo Build one or use one of `ls h\*.def`
  60. goto end
  61.  
  62. :end
  63.  
  64.