program/psiconv/psiconv.c

/*
    psiconv.c - Part of psiconv, a PSION 5 file formats converter
    Copyright (c) 1999-2014  Frodo Looijaard <frodo@frodo.looijaard.name>

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/

/* Driver program */

#include "config.h"
#include "compat.h"
#include <getopt.h>
#include <stdio.h>
#include <sys/stat.h>
#include <stdlib.h>
#include <string.h>
#include <strings.h>
#include <ctype.h>

#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif

#ifdef IMAGEMAGICK
#include "magick-aux.h"
#endif

#include <psiconv/data.h>
#include <psiconv/list.h>
#include <psiconv/parse.h>
#include <psiconv/configuration.h>
#include "psiconv.h"
#include "gen.h"

static void print_help(void);
static void print_version(void);
static void strtoupper(char *str);

void print_help(void)
{
  fileformat ff;
  int i,j;

  puts("Syntax: psiconv [OPTIONS..] [FILE]");
  puts("Convert the psion file FILE to other formats");
  puts("If FILE is not specified, use stdin");
  puts("  -c, --configfile=FILE Read extra configuration file after normal ones");
  puts("  -e, --encoding=ENC    Output encoding (default: UTF8)");
  puts("  -h, --help            Display this help and exit");
  puts("  -n, --noise=LEVEL     Select what to print on stderr (overrides psiconv.conf)");
  puts("  -o, --outputfile      Output to file instead of stdout");
  puts("  -T, --type=FILETYPE   Output type (default: XHTML or TIFF");
  puts("  -V, --version         Display the program version and exit");
  puts("");
  puts("The following encodings are currently supported:");
  puts("  UTF8    Variable length Unicode encoding");
  puts("  UCS2    Fixed 16-bit length Unicode encoding");
  puts("  Psion   The encoding your Psion uses (as in psiconv.conf)");
  puts("  ASCII   7-bit ASCII (other symbols are substituted by '?')");
  puts("");
  puts("The following noise levels are currently supported:");
  puts("  1 or F: Fatal errors only");
  puts("  2 or E: Errors");
  puts("  3 or W: Warnings");
  puts("  4 or P: Progress indicators");
  puts("  5 or D: Debug data");
  puts("");
  puts("The following abbreviations are used in the output types list:");
  puts("  C  - processes ClipArt files");
  puts("  c  - processes ClipArt files containing only one image");
  puts("  M  - processes MBM files");
  puts("  m  - processes MBM files containing only one image");
  puts("  S  - processes Sketch files");
  puts("  T  - processes TextEd files");
  puts("  W  - processes Word files");
  puts("");
  puts("The following output types are known:");
  for (i = 0; i < psiconv_list_length(fileformat_list); i ++) {
    ff = psiconv_list_get(fileformat_list,i);
    printf("  %s",ff->name);
    for (j = strlen(ff->name); j < 10; j++)
      putchar(' ');
    printf("[%c%c%c%c%c] ",
           ff->supported_format & FORMAT_CLIPART_MULTIPLE?'C':
           ff->supported_format & FORMAT_CLIPART_SINGLE?'c':' ',
           ff->supported_format & FORMAT_MBM_MULTIPLE?'M':
           ff->supported_format & FORMAT_MBM_SINGLE?'m':' ',
           ff->supported_format & FORMAT_SKETCH?'S':' ',
           ff->supported_format & FORMAT_TEXTED?'T':' ',
           ff->supported_format & FORMAT_WORD?'W':' ');
    puts(ff->description);
  }
  puts("");
  puts("When using UTF8 with LaTeX type, the resulting LaTeX source should be converted");
  puts(" to a suitable encoding for your LaTeX installation before being typeset");
}

void print_version(void)
{
  printf("Version %s\n",VERSION);
}

void strtoupper(char *str)
{
  int i;
  for (i = 0; i < strlen(str); i ++) 
    str[i] = toupper(str[i]);
}

int main(int argc, char *argv[])
{
  struct option long_options[] =
  {
    {"help",no_argument,NULL,'h'},
    {"version",no_argument,NULL,'V'},
    {"configfile",required_argument,NULL,'c'},
    {"noise",required_argument,NULL,'n'},
    {"outputfile",required_argument,NULL,'o'},
    {"type",required_argument,NULL,'T'},
    {"encoding",no_argument,NULL,'e'},
    {0,0,0,0}
  };
  const char* short_options = "hVn:o:e:T:c:";
  int option_index;
  FILE * f;
  struct stat fbuf;

  const char *inputfilename = "";
  const char *outputfilename = "";
  const char *extra_configfile = NULL;
  char *type = NULL;
  encoding encoding_type=ENCODING_UTF8;
  psiconv_list outputlist;
  int verbosity = 0;
  psiconv_config config;

  int c,i,res;
  psiconv_buffer buf;
  psiconv_file file;
  fileformat ff = NULL;

  if (!(fileformat_list = psiconv_list_new(sizeof(struct fileformat_s)))) {
    fputs("Out of memory error",stderr);
    exit(1);
  }

  init_txt();
  init_xhtml();
  init_html4();
  init_image();

  while(1) {
    c = getopt_long(argc,argv,short_options, long_options, &option_index);
    if (c == -1)
      break;
    switch(c) {
      case 'h': print_help(); exit(0);
      case 'V': print_version(); exit(0);
      case 'n': switch(optarg[0]) {
                  case '1': case 'F':case 'f': 
                    verbosity=PSICONV_VERB_FATAL;
                    break;
                  case '2': case 'E':case 'e': 
                    verbosity=PSICONV_VERB_ERROR;
                    break;
                  case '3': case 'W':case 'w': 
                    verbosity=PSICONV_VERB_WARN;
                    break;
                  case '4': case 'P':case 'p': 
                    verbosity=PSICONV_VERB_PROGRESS;
                    break;
                  case '5': case 'D':case 'd': 
                    verbosity=PSICONV_VERB_DEBUG;
                    break;
                  default:
                    fputs("Unknown noise level\n",stderr);
                    exit(1);
                }
                break;
      case 'o': outputfilename = strdup(optarg); break;
      case 'T': type = strdup(optarg); break;
      case 'e': if(!strcmp(optarg,"UTF8"))
                  encoding_type = ENCODING_UTF8;
                else if (!strcmp(optarg,"UCS2"))
                  encoding_type = ENCODING_UCS2;
                else if (!strcmp(optarg,"ASCII"))
                  encoding_type = ENCODING_ASCII;
                else if (!strcmp(optarg,"Psion"))
                  encoding_type = ENCODING_PSION;
                else {
                  fputs("Unknown encoding type "
                        "(try '-h' for more information\n",stderr);
                  exit(1);
                }
                break;
      case 'c': extra_configfile = strdup(optarg); break;
      case '?': case ':': fputs("Try `-h' for more information\n",stderr); 
                          exit(1);
      default: fprintf(stderr,"Internal error: getopt_long returned character "
                              "code 0%o ?? (contact the author)\n", c); 
               exit(1); break;
    }
  }
  if (optind < argc-1) {
    fputs("I can only convert one file!\n"
          "Try `-h' for more information\n",stderr);
    exit(1);
  } else if (optind == argc-1) 
    if (!(inputfilename = strdup(argv[optind]))) {
      fputs("Out of memory error",stderr);
      exit(1);
    }

  config = psiconv_config_default();
  psiconv_config_read(extra_configfile,&config);
  if (verbosity)
    config->verbosity = verbosity;

  /* Open inputfile for reading */
    
  if (strlen(inputfilename) != 0) {
    if(stat(inputfilename,&fbuf) < 0) {
      perror(inputfilename);
      exit(1);
    }
    f = fopen(inputfilename,"r");
    if (! f) {
      perror(inputfilename);
      exit(1);
    }
  } else 
    f = stdin;

  if (!(buf = psiconv_buffer_new())) {
    fputs("Out of memory error",stderr);
    exit(1);
  }
  if (psiconv_buffer_fread_all(buf,f)) {
    fprintf(stderr,"Failure reading file");
    exit(1);
  }

  if (strlen(inputfilename) != 0) 
    if (fclose(f)) {
      perror(inputfilename);
      exit(1);
    }

  if (psiconv_parse(config,buf,&file) || (file->type == psiconv_unknown_file))
  {
     fprintf(stderr,"Parse error\n");
     exit(1);
  }

  if (!type) {
    switch(file->type) {
      case psiconv_word_file:
      case psiconv_texted_file:
      default:
        type = "XHTML"; break;
      case psiconv_mbm_file:
      case psiconv_clipart_file:
      case psiconv_sketch_file:
        type = "TIFF"; break;
    }
  } else
    strtoupper(type);

  for (i = 0; i < psiconv_list_length(fileformat_list); i ++) {
    ff = psiconv_list_get(fileformat_list,i);
    if (! strcasecmp(type,ff->name)) {
      break;
    }
  }

  if (i == psiconv_list_length(fileformat_list)) {
    fprintf(stderr,"Unknown output type: `%s'\n",type);
    exit(1);
  }

  if (!(outputlist = psiconv_list_new(sizeof(psiconv_u8)))) {
    fputs("Out of memory error\n",stderr);
    exit(1);
  }

  res = ff->output(config,outputlist,file,type,encoding_type);
  if (res) {
    fprintf(stderr,
            "Output format `%s' not permitted for this file type\n",type);
    exit(1);
  }

  psiconv_free_file(file);

  if (strlen(outputfilename) != 0) {
    f = fopen(outputfilename,"w");
    if (! f) {
      perror(inputfilename);
      exit(1);
    }
  } else 
    f = stdout;

  psiconv_list_fwrite_all(outputlist,f);

  if (fclose(f)) {
    perror(inputfilename);
    exit(1);
  }

  psiconv_list_free(outputlist);

  exit(0);
}
1	frodo	2	/*
2			psiconv.c - Part of psiconv, a PSION 5 file formats converter
3	frodo	351	Copyright (c) 1999-2014 Frodo Looijaard <frodo@frodo.looijaard.name>
4	frodo	2
5			This program is free software; you can redistribute it and/or modify
6			it under the terms of the GNU General Public License as published by
7			the Free Software Foundation; either version 2 of the License, or
8			(at your option) any later version.
9
10			This program is distributed in the hope that it will be useful,
11			but WITHOUT ANY WARRANTY; without even the implied warranty of
12			MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13			GNU General Public License for more details.
14
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
17			Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
18			*/
19
20			/* Driver program */
21
22			#include "config.h"
23	frodo	20	#include "compat.h"
24	frodo	2	#include <getopt.h>
25			#include <stdio.h>
26			#include <sys/stat.h>
27			#include <stdlib.h>
28	frodo	34	#include <string.h>
29	frodo	193	#include <strings.h>
30	frodo	34	#include <ctype.h>
31	frodo	2
32			#ifdef HAVE_UNISTD_H
33			#include <unistd.h>
34			#endif
35
36	frodo	34	#ifdef IMAGEMAGICK
37	frodo	152	#include "magick-aux.h"
38	frodo	34	#endif
39
40	frodo	185	#include <psiconv/data.h>
41			#include <psiconv/list.h>
42			#include <psiconv/parse.h>
43			#include <psiconv/configuration.h>
44			#include "psiconv.h"
45	frodo	2	#include "gen.h"
46
47			static void print_help(void);
48			static void print_version(void);
49			static void strtoupper(char *str);
50
51			void print_help(void)
52			{
53	frodo	185	fileformat ff;
54	frodo	34	int i,j;
55
56	frodo	2	puts("Syntax: psiconv [OPTIONS..] [FILE]");
57	frodo	185	puts("Convert the psion file FILE to other formats");
58	frodo	2	puts("If FILE is not specified, use stdin");
59	frodo	219	puts(" -c, --configfile=FILE Read extra configuration file after normal ones");
60			puts(" -e, --encoding=ENC Output encoding (default: UTF8)");
61			puts(" -h, --help Display this help and exit");
62			puts(" -n, --noise=LEVEL Select what to print on stderr (overrides psiconv.conf)");
63			puts(" -o, --outputfile Output to file instead of stdout");
64			puts(" -T, --type=FILETYPE Output type (default: XHTML or TIFF");
65			puts(" -V, --version Display the program version and exit");
66	frodo	2	puts("");
67	frodo	185	puts("The following encodings are currently supported:");
68			puts(" UTF8 Variable length Unicode encoding");
69			puts(" UCS2 Fixed 16-bit length Unicode encoding");
70			puts(" Psion The encoding your Psion uses (as in psiconv.conf)");
71			puts(" ASCII 7-bit ASCII (other symbols are substituted by '?')");
72			puts("");
73	frodo	192	puts("The following noise levels are currently supported:");
74			puts(" 1 or F: Fatal errors only");
75			puts(" 2 or E: Errors");
76			puts(" 3 or W: Warnings");
77			puts(" 4 or P: Progress indicators");
78			puts(" 5 or D: Debug data");
79			puts("");
80	frodo	219	puts("The following abbreviations are used in the output types list:");
81	frodo	192	puts(" C - processes ClipArt files");
82			puts(" c - processes ClipArt files containing only one image");
83			puts(" M - processes MBM files");
84			puts(" m - processes MBM files containing only one image");
85			puts(" S - processes Sketch files");
86			puts(" T - processes TextEd files");
87			puts(" W - processes Word files");
88			puts("");
89	frodo	2	puts("The following output types are known:");
90	frodo	34	for (i = 0; i < psiconv_list_length(fileformat_list); i ++) {
91			ff = psiconv_list_get(fileformat_list,i);
92			printf(" %s",ff->name);
93	frodo	192	for (j = strlen(ff->name); j < 10; j++)
94	frodo	34	putchar(' ');
95	frodo	192	printf("[%c%c%c%c%c] ",
96			ff->supported_format & FORMAT_CLIPART_MULTIPLE?'C':
97			ff->supported_format & FORMAT_CLIPART_SINGLE?'c':' ',
98			ff->supported_format & FORMAT_MBM_MULTIPLE?'M':
99			ff->supported_format & FORMAT_MBM_SINGLE?'m':' ',
100			ff->supported_format & FORMAT_SKETCH?'S':' ',
101			ff->supported_format & FORMAT_TEXTED?'T':' ',
102			ff->supported_format & FORMAT_WORD?'W':' ');
103	frodo	34	puts(ff->description);
104			}
105	frodo	147	puts("");
106			puts("When using UTF8 with LaTeX type, the resulting LaTeX source should be converted");
107			puts(" to a suitable encoding for your LaTeX installation before being typeset");
108	frodo	2	}
109
110			void print_version(void)
111			{
112			printf("Version %s\n",VERSION);
113			}
114
115			void strtoupper(char *str)
116			{
117			int i;
118			for (i = 0; i < strlen(str); i ++)
119			str[i] = toupper(str[i]);
120			}
121
122			int main(int argc, char *argv[])
123			{
124			struct option long_options[] =
125			{
126			{"help",no_argument,NULL,'h'},
127			{"version",no_argument,NULL,'V'},
128	frodo	219	{"configfile",required_argument,NULL,'c'},
129	frodo	192	{"noise",required_argument,NULL,'n'},
130	frodo	2	{"outputfile",required_argument,NULL,'o'},
131			{"type",required_argument,NULL,'T'},
132	frodo	185	{"encoding",no_argument,NULL,'e'},
133	frodo	2	{0,0,0,0}
134			};
135	frodo	219	const char* short_options = "hVn:o:e:T:c:";
136	frodo	2	int option_index;
137			FILE * f;
138			struct stat fbuf;
139
140			const char *inputfilename = "";
141			const char *outputfilename = "";
142	frodo	219	const char *extra_configfile = NULL;
143	frodo	192	char *type = NULL;
144	frodo	185	encoding encoding_type=ENCODING_UTF8;
145			psiconv_list outputlist;
146	frodo	219	int verbosity = 0;
147	frodo	245	psiconv_config config;
148	frodo	2
149	frodo	34	int c,i,res;
150	frodo	2	psiconv_buffer buf;
151			psiconv_file file;
152	frodo	185	fileformat ff = NULL;
153	frodo	2
154	frodo	185	if (!(fileformat_list = psiconv_list_new(sizeof(struct fileformat_s)))) {
155			fputs("Out of memory error",stderr);
156			exit(1);
157			}
158
159	frodo	34	init_txt();
160	frodo	192	init_xhtml();
161			init_html4();
162	frodo	187	init_image();
163	frodo	34
164	frodo	2	while(1) {
165			c = getopt_long(argc,argv,short_options, long_options, &option_index);
166			if (c == -1)
167			break;
168			switch(c) {
169			case 'h': print_help(); exit(0);
170			case 'V': print_version(); exit(0);
171	frodo	192	case 'n': switch(optarg[0]) {
172			case '1': case 'F':case 'f':
173	frodo	219	verbosity=PSICONV_VERB_FATAL;
174	frodo	192	break;
175			case '2': case 'E':case 'e':
176	frodo	219	verbosity=PSICONV_VERB_ERROR;
177	frodo	192	break;
178			case '3': case 'W':case 'w':
179	frodo	219	verbosity=PSICONV_VERB_WARN;
180	frodo	192	break;
181			case '4': case 'P':case 'p':
182	frodo	219	verbosity=PSICONV_VERB_PROGRESS;
183	frodo	192	break;
184			case '5': case 'D':case 'd':
185	frodo	219	verbosity=PSICONV_VERB_DEBUG;
186	frodo	192	break;
187			default:
188			fputs("Unknown noise level\n",stderr);
189			exit(1);
190			}
191	frodo	2	break;
192			case 'o': outputfilename = strdup(optarg); break;
193			case 'T': type = strdup(optarg); break;
194	frodo	185	case 'e': if(!strcmp(optarg,"UTF8"))
195			encoding_type = ENCODING_UTF8;
196			else if (!strcmp(optarg,"UCS2"))
197			encoding_type = ENCODING_UCS2;
198			else if (!strcmp(optarg,"ASCII"))
199			encoding_type = ENCODING_ASCII;
200			else if (!strcmp(optarg,"Psion"))
201			encoding_type = ENCODING_PSION;
202			else {
203			fputs("Unknown encoding type "
204			"(try '-h' for more information\n",stderr);
205			exit(1);
206			}
207			break;
208	frodo	219	case 'c': extra_configfile = strdup(optarg); break;
209	frodo	34	case '?': case ':': fputs("Try `-h' for more information\n",stderr);
210	frodo	2	exit(1);
211			default: fprintf(stderr,"Internal error: getopt_long returned character "
212			"code 0%o ?? (contact the author)\n", c);
213			exit(1); break;
214			}
215			}
216			if (optind < argc-1) {
217			fputs("I can only convert one file!\n"
218			"Try `-h' for more information\n",stderr);
219			exit(1);
220			} else if (optind == argc-1)
221	frodo	185	if (!(inputfilename = strdup(argv[optind]))) {
222			fputs("Out of memory error",stderr);
223			exit(1);
224			}
225	frodo	2
226	frodo	245	config = psiconv_config_default();
227	frodo	219	psiconv_config_read(extra_configfile,&config);
228			if (verbosity)
229			config->verbosity = verbosity;
230	frodo	65
231	frodo	2	/* Open inputfile for reading */
232
233			if (strlen(inputfilename) != 0) {
234			if(stat(inputfilename,&fbuf) < 0) {
235			perror(inputfilename);
236			exit(1);
237			}
238			f = fopen(inputfilename,"r");
239			if (! f) {
240			perror(inputfilename);
241			exit(1);
242			}
243			} else
244			f = stdin;
245
246	frodo	185	if (!(buf = psiconv_buffer_new())) {
247			fputs("Out of memory error",stderr);
248			exit(1);
249			}
250			if (psiconv_buffer_fread_all(buf,f)) {
251			fprintf(stderr,"Failure reading file");
252			exit(1);
253			}
254	frodo	2
255			if (strlen(inputfilename) != 0)
256			if (fclose(f)) {
257			perror(inputfilename);
258			exit(1);
259			}
260
261	frodo	168	if (psiconv_parse(config,buf,&file) \|\| (file->type == psiconv_unknown_file))
262	frodo	66	{
263			fprintf(stderr,"Parse error\n");
264			exit(1);
265			}
266	frodo	2
267	frodo	192	if (!type) {
268			switch(file->type) {
269			case psiconv_word_file:
270			case psiconv_texted_file:
271			default:
272			type = "XHTML"; break;
273			case psiconv_mbm_file:
274			case psiconv_clipart_file:
275			case psiconv_sketch_file:
276			type = "TIFF"; break;
277			}
278			} else
279			strtoupper(type);
280
281	frodo	34	for (i = 0; i < psiconv_list_length(fileformat_list); i ++) {
282			ff = psiconv_list_get(fileformat_list,i);
283	frodo	147	if (! strcasecmp(type,ff->name)) {
284	frodo	34	break;
285			}
286			}
287
288			if (i == psiconv_list_length(fileformat_list)) {
289	frodo	2	fprintf(stderr,"Unknown output type: `%s'\n",type);
290			exit(1);
291			}
292
293	frodo	185	if (!(outputlist = psiconv_list_new(sizeof(psiconv_u8)))) {
294			fputs("Out of memory error\n",stderr);
295			exit(1);
296			}
297
298			res = ff->output(config,outputlist,file,type,encoding_type);
299			if (res) {
300			fprintf(stderr,
301			"Output format `%s' not permitted for this file type\n",type);
302			exit(1);
303			}
304
305	frodo	2	psiconv_free_file(file);
306
307	frodo	185	if (strlen(outputfilename) != 0) {
308			f = fopen(outputfilename,"w");
309			if (! f) {
310			perror(inputfilename);
311			exit(1);
312			}
313			} else
314			f = stdout;
315
316			psiconv_list_fwrite_all(outputlist,f);
317
318			if (fclose(f)) {
319			perror(inputfilename);
320			exit(1);
321			}
322
323			psiconv_list_free(outputlist);
324
325	frodo	2	exit(0);
326			}
frodo@frodo.looijaard.name	ViewVC Help
Powered by ViewVC 1.1.26