1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
$NetBSD: patch-ad,v 1.1 2004/11/24 22:35:25 kristerw Exp $
--- src/ghtml.c.orig Wed Nov 24 18:57:51 2004
+++ src/ghtml.c Wed Nov 24 18:59:31 2004
@@ -169,8 +169,9 @@
type = SCM_CDR (node);
if (SCM_SYMBOLP(type) || SCM_STRINGP (type))
{
+ char *buff;
cur_type = GTT_NONE;
- char *buff = SCM_STRING_CHARS (type);
+ buff = SCM_STRING_CHARS (type);
if ((!strncmp (buff, "gtt-project-ptr",15)) ||
(!strncmp (buff, "gtt-project-list",16)))
@@ -1255,6 +1256,8 @@
static SCM
my_catch_handler (void *data, SCM tag, SCM throw_args)
{
+ SCM fmt;
+ SCM s_str;
printf ("Error: GnoTime caught error during scheme parse\n");
if (SCM_SYMBOLP(tag))
{
@@ -1263,8 +1266,8 @@
}
scm_backtrace();
- SCM fmt = scm_makfrom0str ("~S");
- SCM s_str = scm_simple_format (SCM_BOOL_F, fmt, SCM_LIST1(throw_args));
+ fmt = scm_makfrom0str ("~S");
+ s_str = scm_simple_format (SCM_BOOL_F, fmt, SCM_LIST1(throw_args));
printf ("\tthrow_args=%s\n", SCM_STRING_CHARS (s_str));
return SCM_EOL;
@@ -1281,8 +1284,9 @@
/* no-op for now, just copy it into the window */
if (ghtml->write_stream)
{
+ size_t nr;
(ghtml->write_stream) (ghtml, "<link", 5, ghtml->user_data);
- size_t nr = strlen (str);
+ nr = strlen (str);
(ghtml->write_stream) (ghtml, str, nr, ghtml->user_data);
(ghtml->write_stream) (ghtml, ">", 1, ghtml->user_data);
}
@@ -1297,6 +1301,8 @@
GString *template;
char *start, *end, *scmstart, *comstart, *linkstart;
size_t nr;
+ GnomeVFSResult result;
+ GnomeVFSHandle *handle;
if (!ghtml) return;
if (prj) ghtml->prj = prj;
@@ -1311,8 +1317,6 @@
}
/* Try to get the ghtml file ... */
- GnomeVFSResult result;
- GnomeVFSHandle *handle;
result = gnome_vfs_open (&handle, filepath, GNOME_VFS_OPEN_READ);
if ((GNOME_VFS_OK != result) && (0==ghtml->open_count))
{
|