1 /* vim: set sw=8: -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
5 * Copyright (C) 2002-2008 Jody Goldberg (jody@gnome.org)
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.
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.
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
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 #include <gsf/gsf-infile-zip.h>
29 #include <gsf/gsf-open-pkg-utils.h>
34 cb_dump_vba (char const *name, guint8 const *src_code)
36 printf ("<module name=\"%s\">\n<![CDATA[%s]]>\n</module>\n", name, src_code);
40 test (int argc, char *argv[])
46 for (i = 1 ; i < argc ; i++) {
47 input = gsf_input_mmap_new (argv[i], NULL);
48 if (input == NULL) /* Only report error if stdio fails too */
49 input = gsf_input_stdio_new (argv[i], &err);
52 GsfInfileMSVBA *vba = gsf_input_find_vba (input, &err);
54 GHashTable *modules = gsf_infile_msvba_get_modules (vba);
56 g_hash_table_foreach (modules,
57 (GHFunc) cb_dump_vba, NULL);
58 g_object_unref (G_OBJECT (vba));
60 g_object_unref (G_OBJECT (input));
64 g_warning ("'%s' error: %s", argv[i], err->message);
73 main (int argc, char *argv[])
78 res = test (argc, argv);