MINI SHELL

Server : Apache/2.2.2 (Fedora)
System : Linux App1.pathumtani.go.th 2.6.20-1.2320.fc5smp #1 SMP Tue Jun 12 19:40:16 EDT 2007 i686
User : apache ( 48)
PHP Version : 5.2.9
Disable Function : NONE
Directory :  /usr/share/slrn/macros/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Current File : //usr/share/slrn/macros/ispell.sl
% This macro demonstrates the use of the post_filter_hook

%static
define ispell_file (file)
{
   variable cmd = "ispell -x";
   () = system (sprintf ("%s '%s'", cmd, file));
}


define post_filter_hook (file)
{
   variable rsp;
   variable cmd;
   
   forever 
     {
	rsp = get_response ("NnIi",
			    "Select Filter? \001None, \001Ispell");
	
	switch (rsp)
	  {
	   case 'i' or case 'I':
	     ispell_file (file);
	  }
	  {
	   case 'n' or case 'N':
	     return;
	  }
     }
}


Anon7 - 2021