1 /* vim: set sw=8: -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
2 /*
3 * test-msvba.c:
4 *
5 * Copyright (C) 2002-2006 Jody Goldberg (jody@gnome.org)
6 *
7 * This program is free software; you can redistribute it and/or
8 * modify it under the terms of version 2.1 of the GNU Lesser General Public
9 * License as published by the Free Software Foundation.
10 *
11 * This program is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 * GNU General Public License for more details.
15 *
16 * You should have received a copy of the GNU Lesser General Public License
17 * along with this program; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301
19 * USA
20 */
21
22 #include <gsf/gsf-input-stdio.h>
23 #include <gsf/gsf-input-memory.h>
24 #include <gsf/gsf-utils.h>
25 #include <gsf/gsf-infile.h>
26 #include <gsf/gsf-infile-msole.h>
27 #include <gsf/gsf-infile-msvba.h>
28
29 #include <stdio.h>
30
31 static int
test(int argc,char * argv[])32 test (int argc, char *argv[])
33 {
34 GsfInfile *vba_wrapper;
35 GsfInput *input;
36 GError *err = NULL;
37 int i;
38
39 for (i = 1 ; i < argc ; i++) {
40 input = gsf_input_mmap_new (argv[i], NULL);
41 if (input == NULL) /* Only report error if stdio fails too */
42 input = gsf_input_stdio_new (argv[i], &err);
43 if (input != NULL) {
44 GsfInfile *infile = gsf_infile_msole_new (input, &err);
45 if (infile != NULL) {
46 GsfInput *vba = gsf_infile_child_by_vname (infile, "_VBA_PROJECT_CUR", "VBA", NULL);
47 if (vba != NULL) {
48 fprintf( stderr, "%s\n",argv[i]);
49
50 vba_wrapper = gsf_infile_msvba_new (GSF_INFILE (vba), &err);
51 if (vba_wrapper != NULL) {
52 g_object_unref (G_OBJECT (vba_wrapper));
53 }
54 g_object_unref (G_OBJECT (vba));
55 } else {
56 #if 0
57 g_warning ("'%s' : No VBA directory", argv[i]);
58 #endif
59 continue;
60 }
61
62 g_object_unref (G_OBJECT (infile));
63 }
64 g_object_unref (G_OBJECT (input));
65 }
66
67 if (err != NULL) {
68 g_warning ("'%s' error: %s", argv[i], err->message);
69 g_error_free (err);
70 err = NULL;
71 }
72 }
73
74 return 0;
75 }
76
77 int
main(int argc,char * argv[])78 main (int argc, char *argv[])
79 {
80 int res;
81
82 gsf_init ();
83 res = test (argc, argv);
84 gsf_shutdown ();
85
86 return res;
87 }
88