/[public]/psiconv/trunk/program/psiconv/psiconv.c
ViewVC logotype

Diff of /psiconv/trunk/program/psiconv/psiconv.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 20 Revision 187
… …
13 GNU General Public License for more details. 13 GNU General Public License for more details.
14 14
15 You should have received a copy of the GNU General Public License 15 You should have received a copy of the GNU General Public License
16 along with this program; if not, write to the Free Software 16 along with this program; if not, write to the Free Software
17 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. 17 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
18*/
19
20/*
21 2002/Apr. Keita KAWABE
22 * Support for narrow build Asian Psions added.
23
24 Now psiconv understands -u or --UTF8 option.
25 This option is passed to output_function as the fourth parameter
26 (thus the typedef of output_function was changed).
27
28 If a called generator (gen_*.c) can handle UTF8, then it handles
29 the character conversion etc. accordingly.
30
31 * psiconv seemed to want to take the argument of the options
32 case-insensitively (i.e. LaTeX -> LATEX), but that was not working
33 under my environment. Fixed it.
18*/ 34*/
19 35
20/* Driver program */ 36/* Driver program */
21 37
22#include "config.h" 38#include "config.h"
23#include "compat.h" 39#include "compat.h"
24#include <getopt.h> 40#include <getopt.h>
25#include <stdio.h> 41#include <stdio.h>
26#include <sys/stat.h> 42#include <sys/stat.h>
27#include <stdlib.h> 43#include <stdlib.h>
44#include <string.h>
45#include <ctype.h>
28 46
29#ifdef HAVE_UNISTD_H 47#ifdef HAVE_UNISTD_H
30#include <unistd.h> 48#include <unistd.h>
31#endif 49#endif
32 50
33#include <string.h> 51#ifdef IMAGEMAGICK
34#include <ctype.h>
35#include "data.h" 52#include "magick-aux.h"
53#endif
54
55#include <psiconv/data.h>
56#include <psiconv/list.h>
57#include <psiconv/parse.h>
58#include <psiconv/configuration.h>
36#include "parse.h" 59#include "psiconv.h"
37#include "gen.h" 60#include "gen.h"
38 61
39static void print_help(void); 62static void print_help(void);
40static void print_version(void); 63static void print_version(void);
41static void strtoupper(char *str); 64static void strtoupper(char *str);
42 65
43int psiconv_verbosity = PSICONV_VERB_WARN;
44
45void print_help(void) 66void print_help(void)
46{ 67{
68 fileformat ff;
69 int i,j;
70
47 puts("Syntax: psiconv [OPTIONS..] [FILE]"); 71 puts("Syntax: psiconv [OPTIONS..] [FILE]");
48 puts("Convert the psion Word file FILE to a HTML file"); 72 puts("Convert the psion file FILE to other formats");
49 puts("If FILE is not specified, use stdin"); 73 puts("If FILE is not specified, use stdin");
50 puts(" -d, --debug Show debug information on stderr"); 74 puts(" -d, --debug Show debug information on stderr");
51 puts(" -e, --exact Quit on any parse errors or warnings"); 75 puts(" -e, --encoding Output encoding (default: UTF8)");
52 puts(" -h, --help Display this help and exit"); 76 puts(" -h, --help Display this help and exit");
53 puts(" -o, --outputfile Output to file instead of stdout"); 77 puts(" -o, --outputfile Output to file instead of stdout");
54 puts(" -s, --silent Do not even show warnings on stderr"); 78 puts(" -s, --silent Do not even show warnings on stderr");
55 puts(" -T, --type=FILETYPE Output type"); 79 puts(" -T, --type=FILETYPE Output type");
56 puts(" -V, --version Display the program version and exit"); 80 puts(" -V, --version Display the program version and exit");
57 puts(" -v, --verbose Show progress indicators on stderr"); 81 puts(" -v, --verbose Show progress indicators on stderr");
58 puts(""); 82 puts("");
83 puts("The following encodings are currently supported:");
84 puts(" UTF8 Variable length Unicode encoding");
85 puts(" UCS2 Fixed 16-bit length Unicode encoding");
86 puts(" Psion The encoding your Psion uses (as in psiconv.conf)");
87 puts(" ASCII 7-bit ASCII (other symbols are substituted by '?')");
88 puts("");
59 puts("The following output types are known:"); 89 puts("The following output types are known:");
60 puts(" HTML (default)"); 90 for (i = 0; i < psiconv_list_length(fileformat_list); i ++) {
61 puts(" HTML4"); 91 ff = psiconv_list_get(fileformat_list,i);
62 puts(" ASCII"); 92 printf(" %s",ff->name);
93 for (j = strlen(ff->name); j < 15; j++)
94 putchar(' ');
95 puts(ff->description);
96 }
63 puts(" RTF"); 97 puts("");
98 puts("When using UTF8 with LaTeX type, the resulting LaTeX source should be converted");
99 puts(" to a suitable encoding for your LaTeX installation before being typeset");
64} 100}
65 101
66void print_version(void) 102void print_version(void)
67{ 103{
68 printf("Version %s\n",VERSION); 104 printf("Version %s\n",VERSION);
… …
84 {"verbose",no_argument,NULL,'v'}, 120 {"verbose",no_argument,NULL,'v'},
85 {"debug",no_argument,NULL,'d'}, 121 {"debug",no_argument,NULL,'d'},
86 {"silent",no_argument,NULL,'s'}, 122 {"silent",no_argument,NULL,'s'},
87 {"outputfile",required_argument,NULL,'o'}, 123 {"outputfile",required_argument,NULL,'o'},
88 {"type",required_argument,NULL,'T'}, 124 {"type",required_argument,NULL,'T'},
89 {"exact",no_argument,NULL,'e'}, 125 {"encoding",no_argument,NULL,'e'},
90 {0,0,0,0} 126 {0,0,0,0}
91 }; 127 };
92 const char* short_options = "hVvsdo:eT:"; 128 const char* short_options = "hVvsdo:e:T:";
93 int option_index; 129 int option_index;
94 FILE * f; 130 FILE * f;
95 struct stat fbuf; 131 struct stat fbuf;
96 132
97 const char *inputfilename = ""; 133 const char *inputfilename = "";
98 const char *outputfilename = ""; 134 const char *outputfilename = "";
99 char *type = strdup("HTML"); 135 char *type = strdup("HTML3");
100 int exact=0; 136 encoding encoding_type=ENCODING_UTF8;
137 psiconv_list outputlist;
101 138
102 int c; 139 int c,i,res;
103 psiconv_buffer buf; 140 psiconv_buffer buf;
104 psiconv_file file; 141 psiconv_file file;
142 fileformat ff = NULL;
143
144 psiconv_config config = psiconv_config_default();
145 psiconv_config_read(NULL,&config);
146
147 if (!(fileformat_list = psiconv_list_new(sizeof(struct fileformat_s)))) {
148 fputs("Out of memory error",stderr);
149 exit(1);
150 }
151
152 init_txt();
153 init_image();
154#if 0
155 init_html();
156 init_html4();
157 init_latex();
158 init_rtf();
159#endif
105 160
106 while(1) { 161 while(1) {
107 c = getopt_long(argc,argv,short_options, long_options, &option_index); 162 c = getopt_long(argc,argv,short_options, long_options, &option_index);
108 if (c == -1) 163 if (c == -1)
109 break; 164 break;
110 switch(c) { 165 switch(c) {
111 case 'h': print_help(); exit(0); 166 case 'h': print_help(); exit(0);
112 case 'V': print_version(); exit(0); 167 case 'V': print_version(); exit(0);
113 case 'v': if (psiconv_verbosity < PSICONV_VERB_PROGRESS) 168 case 'v': if (config->verbosity < PSICONV_VERB_PROGRESS)
114 psiconv_verbosity = PSICONV_VERB_PROGRESS; 169 config->verbosity = PSICONV_VERB_PROGRESS;
115 break; 170 break;
116 case 'd': psiconv_verbosity = PSICONV_VERB_DEBUG; break; 171 case 'd': config->verbosity = PSICONV_VERB_DEBUG; break;
117 case 's': psiconv_verbosity = PSICONV_VERB_SILENT; break; 172 case 's': config->verbosity = PSICONV_VERB_ERROR; break;
118 case 'e': exact = 1; break;
119 case 'o': outputfilename = strdup(optarg); break; 173 case 'o': outputfilename = strdup(optarg); break;
120 case 'T': type = strdup(optarg); break; 174 case 'T': type = strdup(optarg); break;
175 case 'e': if(!strcmp(optarg,"UTF8"))
176 encoding_type = ENCODING_UTF8;
177 else if (!strcmp(optarg,"UCS2"))
178 encoding_type = ENCODING_UCS2;
179 else if (!strcmp(optarg,"ASCII"))
180 encoding_type = ENCODING_ASCII;
181 else if (!strcmp(optarg,"Psion"))
182 encoding_type = ENCODING_PSION;
183 else {
184 fputs("Unknown encoding type "
185 "(try '-h' for more information\n",stderr);
186 exit(1);
187 }
188 break;
121 case '?': case ':': fputs("Try `-h' for more information",stderr); 189 case '?': case ':': fputs("Try `-h' for more information\n",stderr);
122 exit(1); 190 exit(1);
123 default: fprintf(stderr,"Internal error: getopt_long returned character " 191 default: fprintf(stderr,"Internal error: getopt_long returned character "
124 "code 0%o ?? (contact the author)\n", c); 192 "code 0%o ?? (contact the author)\n", c);
125 exit(1); break; 193 exit(1); break;
126 } 194 }
… …
128 if (optind < argc-1) { 196 if (optind < argc-1) {
129 fputs("I can only convert one file!\n" 197 fputs("I can only convert one file!\n"
130 "Try `-h' for more information\n",stderr); 198 "Try `-h' for more information\n",stderr);
131 exit(1); 199 exit(1);
132 } else if (optind == argc-1) 200 } else if (optind == argc-1)
133 inputfilename = strdup(argv[optind]); 201 if (!(inputfilename = strdup(argv[optind]))) {
202 fputs("Out of memory error",stderr);
203 exit(1);
204 }
205
134 206
135 /* Open inputfile for reading */ 207 /* Open inputfile for reading */
136 208
137 if (strlen(inputfilename) != 0) { 209 if (strlen(inputfilename) != 0) {
138 if(stat(inputfilename,&fbuf) < 0) { 210 if(stat(inputfilename,&fbuf) < 0) {
… …
145 exit(1); 217 exit(1);
146 } 218 }
147 } else 219 } else
148 f = stdin; 220 f = stdin;
149 221
150 buf = psiconv_list_new(sizeof(psiconv_u8)); 222 if (!(buf = psiconv_buffer_new())) {
151 while (! feof(f)) 223 fputs("Out of memory error",stderr);
152 psiconv_list_fread(buf,1024,f); 224 exit(1);
225 }
226 if (psiconv_buffer_fread_all(buf,f)) {
227 fprintf(stderr,"Failure reading file");
228 exit(1);
229 }
153 230
154 if (strlen(inputfilename) != 0) 231 if (strlen(inputfilename) != 0)
155 if (fclose(f)) { 232 if (fclose(f)) {
156 perror(inputfilename); 233 perror(inputfilename);
157 exit(1); 234 exit(1);
158 } 235 }
159 236
160 if (psiconv_parse(buf,&file)) 237 if (psiconv_parse(config,buf,&file) || (file->type == psiconv_unknown_file))
161 if(exact) 238 {
239 fprintf(stderr,"Parse error\n");
162 exit(1); 240 exit(1);
241 }
163 242
164 /* Open outputfile for writing */ 243 strtoupper(type);
244 for (i = 0; i < psiconv_list_length(fileformat_list); i ++) {
245 ff = psiconv_list_get(fileformat_list,i);
246 if (! strcasecmp(type,ff->name)) {
247 break;
248 }
249 }
250
251 if (i == psiconv_list_length(fileformat_list)) {
252 fprintf(stderr,"Unknown output type: `%s'\n",type);
253 exit(1);
254 }
255
256 if (!(outputlist = psiconv_list_new(sizeof(psiconv_u8)))) {
257 fputs("Out of memory error\n",stderr);
258 exit(1);
259 }
260
261 res = ff->output(config,outputlist,file,type,encoding_type);
262 if (res) {
263 fprintf(stderr,
264 "Output format `%s' not permitted for this file type\n",type);
265 exit(1);
266 }
267
268 psiconv_free_file(file);
269
165 if (strlen(outputfilename) != 0) { 270 if (strlen(outputfilename) != 0) {
166 f = fopen(outputfilename,"w"); 271 f = fopen(outputfilename,"w");
167 if (! f) { 272 if (! f) {
168 perror(outputfilename); 273 perror(inputfilename);
169 exit(1); 274 exit(1);
170 } 275 }
171 } else 276 } else
172 f = stdout; 277 f = stdout;
173 278
174 strtoupper(type); 279 psiconv_list_fwrite_all(outputlist,f);
175 if (! strcmp(type,"HTML"))
176 psiconv_gen_html(f,file);
177 else if (! strcmp(type,"HTML4"))
178 psiconv_gen_html4(f,file);
179 else if (! strcmp(type,"ASCII"))
180 psiconv_gen_txt(f,file);
181 else if (! strcmp(type,"RTF"))
182 psiconv_gen_rtf(f,file);
183 else if (! strcmp(type,"IMAGE"))
184 psiconv_gen_image(f,file);
185 else {
186 fprintf(stderr,"Unknown output type: `%s'\n",type);
187 exit(1);
188 }
189 280
190 if (strlen(outputfilename) != 0)
191 if (fclose(f)) { 281 if (fclose(f)) {
192 perror(outputfilename); 282 perror(inputfilename);
193 exit(1); 283 exit(1);
194 } 284 }
195 285
196 psiconv_free_file(file); 286 psiconv_list_free(outputlist);
197 287
198 exit(0); 288 exit(0);
199} 289}
Legend:
Removed from v.20  
changed lines
  Added in v.187
frodo@frodo.looijaard.name
 ViewVC Help
Powered by ViewVC 1.1.26