[go: up one dir, main page]

File: ispell.sl

package info (click to toggle)
slrn 1.0.0~pre18-1.3
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 6,396 kB
  • sloc: ansic: 39,706; sh: 3,665; perl: 467; makefile: 289; sed: 24
file content (32 lines) | stat: -rw-r--r-- 483 bytes parent folder | download | duplicates (7) 
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
32
 
% 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;
	  }
     }
}