source: subversion/applications/utils/gary68/mwDir.pl @ 27715

Last change on this file since 27715 was 26492, checked in by gary68, 8 years ago

mapweaver: mwDir added

  • Property svn:executable set to *
File size: 2.9 KB
Line 
1
2use strict ;
3use warnings ;
4
5use OSM::osm 8.3 ;
6
7my $version = "1.00" ;
8
9my $streetFileName ;
10my $poiFileName ;
11my $pdfFileName ;
12my $texFileName ;
13my $titleText ;
14my $numColumns ;
15
16my $streetFile ;
17my $poiFile ;
18my $texFile ;
19
20
21($streetFileName, $poiFileName, $titleText, $pdfFileName, $numColumns) = @ARGV ;
22
23
24print "mwDir.pl: $streetFileName, $poiFileName, $titleText, $pdfFileName, $numColumns\n" ;
25
26$texFileName = $pdfFileName ;
27$texFileName =~ s/.pdf/.tex/ ;
28
29open ($texFile, ">", $texFileName) or die ("can't open tex output file") ;
30print $texFile "\\documentclass[a4paper,12pt]{book}\n" ;
31print $texFile "\\usepackage{multicol}\n" ;
32print $texFile "\\usepackage[utf8]{inputenc}\n" ;
33print $texFile "\\usepackage[top=2.5cm,bottom=2cm,left=3cm,right=2cm]{geometry}\n" ;
34print $texFile "\\columnsep7mm\n" ;
35print $texFile "\\begin{document}\n" ;
36print $texFile "\\section*{$titleText}\n" ;
37print $texFile "\n" ;
38
39print $texFile "\\tiny\n" ;
40print $texFile "Data CC-BY-SA www.openstreetmap.org\n" ;
41print $texFile "\\normalsize\n\n" ;
42
43# streets
44if ($streetFileName ne "none") {
45        my $result = open ($streetFile, "<", $streetFileName) ;
46        if ($result) {
47                my $line ;
48                print $texFile "\\begin{multicols}{$numColumns}[\\subsubsection*{Streets}]\n" ;
49                print $texFile "\\tiny\n" ;
50                while ($line = <$streetFile>) {
51                        $line = convertToLatex ($line) ;
52                        my (@entry) = split /\t/, $line ;
53                        print $texFile $entry[0] ;
54                        print $texFile " \\dotfill " ;
55                        print $texFile $entry[1], " \\\\\n" ;
56                }
57                close ($streetFile) ;
58                print $texFile "\\normalsize\n" ;
59                print $texFile "\\end{multicols}\n" ;
60        }
61        else {
62                print "WARNING: street file $streetFile could not be opened." ;
63        }
64}
65
66
67
68
69# POIs
70if ($poiFileName ne "none") {
71        my $result = open ($poiFile, "<", $poiFileName) ;
72        if ($result) {
73                my $line ;
74                print $texFile "\\begin{multicols}{$numColumns}[\\subsubsection*{Points of interest}]\n" ;
75                print $texFile "\\tiny\n" ;
76                while ($line = <$poiFile>) {
77                        $line = convertToLatex ($line) ;
78                        my @entry = split /\t/, $line ;
79                        print $texFile $entry[0] ;
80                        print $texFile " \\dotfill " ;
81                        print $texFile $entry[1], "\\\\\n" ;
82                }
83                close ($poiFile) ;
84                print $texFile "\\normalsize\n" ;
85                print $texFile "\\end{multicols}\n" ;
86        }
87        else {
88                print "WARNING: POI file $poiFile could not be opened." ;
89        }
90}
91
92
93
94
95print $texFile "\\end{document}\n" ;
96close ($texFile) ;
97print "directory tex file created.\n" ;
98
99
100my $dviFileName = $pdfFileName ;
101$dviFileName =~ s/.pdf/.dvi/ ;
102my $psFileName = $pdfFileName ;
103$psFileName =~ s/.pdf/.ps/ ;
104
105
106`latex $texFileName` ;
107print "directory dvi file created.\n" ;
108`dvips -D600 $dviFileName -o` ;
109print "directory ps file created.\n" ;
110`ps2pdf $psFileName $pdfFileName` ;
111print "directory pdf file created.\n" ;
112`rm *.dvi` ;
113`rm *.tex` ;
114`rm *.ps` ;
115`rm *.aux` ;
116`rm *.log` ;
117print "directory FINISHED.\n" ;
118
119
Note: See TracBrowser for help on using the repository browser.