File: ispell.sl

package info (click to toggle)
slrn 1.0.3%2Bdfsg-3
  • links: PTS
  • area: main
  • in suites: buster
  • size: 6,412 kB
  • sloc: ansic: 39,852; sh: 3,777; perl: 467; makefile: 229; sed: 24
file content (31 lines) | stat: -rw-r--r-- 477 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
% 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;
	  }
     }
}