% bytecomp.sl	-*- SLang -*-
%
% !! WARNING: It is not a good idea to invoke this file directly.
%             Instead load it via preparse.sl.  This may be performed
%             in batch mode as:
%
%      jed -batch -n -l preparse
%
%

!if (is_defined ("Preprocess_Only"))
{
   variable Preprocess_Only = 0;
}

define jed_byte_compile_file (f)
{
   variable file;
   
   file = expand_jedlib_file(f);
   if (strlen (file))
     {
	% flush (strcat ("Processing ", file));
	byte_compile_file (file, Preprocess_Only);
     }
   else flush (strcat (f, " not found"));
}

#ifnexists __load__bytecomp__only__
$0 = _stkdepth ();

% list of file to byte compile:
"bliss.sl";
"dcl.sl";
"edt.sl";
"site.sl";

$0 = _stkdepth () - $0;
loop ($0)
{
   jed_byte_compile_file (());
}

% Now do color schemes
_debug_info = 1;
# ifndef VMS
static define do_color_schemes ()
{
   foreach (strtok (Color_Scheme_Path, ","))
     {
	variable dir = ();
	variable files = listdir (dir);
	variable file;
	variable i;
   
	if (files == NULL)
	  continue;
   
	i = where (array_map (Int_Type, &string_match, files, "\\.sl$", 1));
	!if (length (i))
	  continue;
	
	foreach (files[i])
	  {
	     file = ();
	     byte_compile_file (dircat (dir, file), Preprocess_Only);
	  }
     }
}
# else
% for VMS there is no listdir()
% just compile my site specific one
static define do_color_schemes ()
{
   foreach (strtok (Color_Scheme_Path, ","))
     {
        variable dir = ();
	byte_compile_file (dircat (dir, "default2.sl"), Preprocess_Only);
     }
}
# endif
do_color_schemes ();
#endif				       %  __load__bytecomp__only__