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

Contents of /psiconv/trunk/program/extra/rewrite.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 142 - (show annotations)
Tue Jan 29 18:38:38 2002 UTC (22 years, 2 months ago) by frodo
File MIME type: text/plain
File size: 1908 byte(s)
(Frodo) DMALLOC support

1 /*
2 rewrite.c - Part of psiconv, a PSION 5 file formats converter
3 Copyright (c) 1999 Frodo Looijaard <frodol@dds.nl>
4
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 #include <psiconv/parse.h>
21 #include <psiconv/generate.h>
22
23 #include <stdio.h>
24
25 int main(int argc, char *argv[])
26 {
27 FILE *fp;
28 psiconv_buffer buf;
29 psiconv_file psionfile;
30
31 /* psiconv_verbosity = PSICONV_VERB_DEBUG; */
32
33 if (argc < 3) {
34 fprintf(stderr,"Not enough arguments\n");
35 exit(1);
36 }
37 if (!(fp = fopen(argv[1],"r"))) {
38 perror("Can't open file");
39 exit(1);
40 }
41 if (!(buf=psiconv_buffer_new())) {
42 perror("Can't allocate buf");
43 exit(1);
44 }
45 if ((psiconv_buffer_fread_all(buf,fp))) {
46 perror("Can't fread file");
47 exit(1);
48 }
49 fclose(fp);
50 if ((psiconv_parse(buf,&psionfile))) {
51 fprintf(stderr,"Parse error\n");
52 exit(1);
53 }
54
55 psiconv_buffer_free(buf);
56 buf = NULL;
57 if (psiconv_write(&buf,psionfile)) {
58 fprintf(stderr,"Generate error\n");
59 exit(1);
60 }
61 psiconv_free_file(psionfile);
62 if (!(fp = fopen(argv[2],"w"))) {
63 perror("Can't open file");
64 exit(1);
65 }
66 if ((psiconv_buffer_fwrite_all(buf,fp))) {
67 perror("Can't fwrite file");
68 exit(1);
69 }
70 psiconv_buffer_free(buf);
71 exit(0);
72 }

frodo@frodo.looijaard.name
ViewVC Help
Powered by ViewVC 1.1.26