File: tm2sgml.sl

package info (click to toggle)
jed 0.98.7-14
  • links: PTS
  • area: main
  • in suites: slink
  • size: 3,088 kB
  • ctags: 3,851
  • sloc: ansic: 29,315; makefile: 257; sh: 248
file content (25 lines) | stat: -rw-r--r-- 426 bytes parent folder | download | duplicates (2) 
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
 
if (MAIN_ARGC != 4)
{
   message ("Usage: jed -script tm2sgml.sl <tm-file-without-extension>");
   quit_jed ();
}

!if (is_defined ("textmac_to_linuxdoc"))
  autoload ("textmac_to_linuxdoc", "textmac");

variable file = command_line_arg (3);

() = read_file (strcat (file, ".tm"));

if (1)
{
   ERROR_BLOCK 
     {
	_clear_error ();
     }
   
   textmac_to_linuxdoc ();
}

write_buffer (strcat (file, ".sgml"));
quit_jed ();