home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / AP / JED / JED097-1.TAR / jed / lib / bytecomp.sl < prev    next >
Encoding:
Text File  |  1994-12-12  |  1.3 KB  |  93 lines
  1. %
  2. %  This should be used to byte compile files in JED_ROOT/lib for
  3. %  fast loading.  This may be performed in batch mode as:
  4. %
  5. %      jed -batch -n -l bytecomp.sl
  6. %
  7. %
  8.  
  9. !if (is_defined ("Preprocess_Only"))
  10. {
  11.    variable Preprocess_Only = 0;
  12. }
  13.  
  14. Null_String;             % a marker
  15.  
  16. % list of file to byte compile:
  17.  
  18. #ifdef UNIX VMS
  19. . "mail.sl" "iso-latin.sl" 
  20. #endif
  21. #ifdef UNIX
  22. . "rmail.sl"  
  23. #endif
  24. #ifdef MSDOS OS2
  25. . "dos437.sl"  "dos850.sl" 
  26. #endif
  27. #ifdef XWINDOWS
  28. . "mouse.sl"
  29. #endif
  30. ."mousex.sl"
  31. ."abbrev.sl"
  32. ."abbrmisc.sl"
  33. ."dabbrev.sl"
  34. ."mutekeys.sl"
  35. ."bookmark.sl"
  36. ."replace.sl"
  37. ."srchmisc.sl"
  38. ."tex.sl"
  39. ."binary.sl"
  40. ."isearch.sl"
  41. ."rot13.sl"
  42. ."tabs.sl"
  43. ."untab.sl"
  44. ."jedhelp.sl"
  45. ."ctags.sl"
  46. ."compile.sl"
  47. ."menu.sl"
  48. ."dired.sl"
  49. ."util.sl"
  50. ."tmisc.sl"
  51. ."cmisc.sl"
  52. ."misc.sl"
  53. ."help.sl"
  54. ."cal.sl"
  55. ."man.sl"
  56. ."fortran.sl"
  57. ."dcl.sl"
  58. ."shell.sl"
  59. ."most.sl"
  60. ."info.sl"
  61. ."ispell.sl"
  62. ."sort.sl"
  63. ."regexp.sl"
  64. ."wordstar.sl"
  65. ."buf.sl"
  66. ."emacsmsc.sl"
  67. ."indent.sl"
  68. ."search.sl"
  69. ."linux.sl"
  70. ."mini.sl"
  71. ."edt.sl"
  72. ."emacs.sl"
  73. ."site.sl"
  74.  
  75. define jed_byte_compile_file(f, method)
  76. {
  77.    variable file;
  78.    
  79.    file = expand_jedlib_file(f);
  80.    if (strlen(file)) 
  81.      {
  82.     flush(strcat("Processing ", file));
  83.     byte_compile_file(file, method);
  84.      }
  85.    else flush(strcat(f, " not found-- Skipped."));
  86. }
  87.  
  88. while (=$1, strlen($1)) jed_byte_compile_file($1, Preprocess_Only);
  89. exit_jed();
  90.  
  91.  
  92.    
  93.