Vim Patior

View file

File name : filter.sl
Content :
define filter_region ()
{
   variable cmd, file;

   check_region (1);		       %  spot pushed
   () = dupmark ();
   
   ERROR_BLOCK
     {
	pop_mark (0);
	pop_spot ();
     }
   
   do
     {
	cmd = read_mini ("Filter command:", Null_String, Null_String);
     }
   while (not (strlen (cmd)));

   file = make_tmp_file ("/tmp/jedfilter");

   ERROR_BLOCK
     {
	pop_spot ();
	() = delete_file (file);
     }
   () = pipe_region (sprintf ("%s > %s", cmd, file));
   
   push_spot ();
   if (-1 == insert_file (file))
     {
	pop_spot ();
	error ("Error encountered running filter.");
     }
   pop_spot ();

   del_region ();
   
   EXECUTE_ERROR_BLOCK;
}