| 
									
										
										
										
											2000-05-11 12:00:35 +00:00
										 |  |  | #!/usr/bin/perl  | 
					
						
							|  |  |  | # | 
					
						
							|  |  |  | #   sgmltools.in | 
					
						
							|  |  |  | # | 
					
						
							|  |  |  | #   $Id$ | 
					
						
							|  |  |  | # | 
					
						
							|  |  |  | #   SGML-Tools driver. Calls all other SGML-Tools components, contains | 
					
						
							|  |  |  | #   configuration information, etcetera. | 
					
						
							|  |  |  | # | 
					
						
							|  |  |  | package main; | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | sub BEGIN  | 
					
						
							|  |  |  | { | 
					
						
							|  |  |  |   require 5.004; | 
					
						
							|  |  |  | } | 
					
						
							|  |  |  | use strict; | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											2003-04-06 19:35:50 +00:00
										 |  |  | use vars qw($prefix $DataDir $BinDir $progs); | 
					
						
							| 
									
										
										
										
											2000-05-11 12:00:35 +00:00
										 |  |  | 
 | 
					
						
							|  |  |  | $prefix = "/usr"; | 
					
						
							| 
									
										
										
										
											2003-04-06 19:35:50 +00:00
										 |  |  | $DataDir = "sbase"; | 
					
						
							| 
									
										
										
										
											2000-05-11 12:00:35 +00:00
										 |  |  | $BinDir = "/usr/bin"; | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											2003-04-06 19:35:50 +00:00
										 |  |  | use lib "/usr/share/linuxdoc-tools"; | 
					
						
							| 
									
										
										
										
											2000-05-11 12:00:35 +00:00
										 |  |  | use lib "/usr/perl5"; | 
					
						
							|  |  |  | use lib "/usr/lib/perl5"; | 
					
						
							| 
									
										
										
										
											2003-04-06 19:35:50 +00:00
										 |  |  | use lib "/usr/share/perl5"; | 
					
						
							| 
									
										
										
										
											2000-05-11 12:00:35 +00:00
										 |  |  | $progs = { | 
					
						
							|  |  |  |   "NSGMLS" => "/usr/bin/nsgmls", | 
					
						
							|  |  |  |   "SGMLSASP" => "/usr/bin/sgmlsasp", | 
					
						
							|  |  |  |   "GROFF" => "/usr/bin/groff", | 
					
						
							| 
									
										
										
										
											2003-04-06 19:35:50 +00:00
										 |  |  |   "GROFFMACRO" => "-ms", | 
					
						
							|  |  |  |   "AWK" => "/usr/share/linuxdoc-tools/awkwhich" | 
					
						
							| 
									
										
										
										
											2000-05-11 12:00:35 +00:00
										 |  |  | }; | 
					
						
							| 
									
										
										
										
											2003-04-06 19:35:50 +00:00
										 |  |  | $ENV{"SGML_CATALOG_FILES"} = "sbase/dtd/catalog"; | 
					
						
							| 
									
										
										
										
											2000-05-11 12:00:35 +00:00
										 |  |  | 
 | 
					
						
							| 
									
										
										
										
											2003-04-06 19:35:50 +00:00
										 |  |  | require "./LinuxDocTools.pm"; | 
					
						
							|  |  |  | &LinuxDocTools::init; | 
					
						
							| 
									
										
										
										
											2000-05-11 12:00:35 +00:00
										 |  |  | 
 | 
					
						
							| 
									
										
										
										
											2003-04-06 19:35:50 +00:00
										 |  |  | my @FileList = LinuxDocTools::process_options ("latex", @ARGV); | 
					
						
							| 
									
										
										
										
											2000-05-11 12:00:35 +00:00
										 |  |  | for my $curfile (@FileList) | 
					
						
							|  |  |  |   { | 
					
						
							| 
									
										
										
										
											2003-04-06 19:35:50 +00:00
										 |  |  |     LinuxDocTools::process_file ($curfile); | 
					
						
							| 
									
										
										
										
											2000-05-11 12:00:35 +00:00
										 |  |  |   } | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | exit 0; |