← Back to branch summary

~ubuntu-branches/ubuntu/maverick/uim/maverick

« back to all changes in this revision

Viewing changes to sigscheme/src/scmport-basechar.c

  • Committer: Bazaar Package Importer
  • Author(s): Masahito Omote
  • Date: 2008-06-25 19:56:33 UTC
  • mfrom: (3.1.18 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080625195633-8jljph4rfq00l8o7
Tags: 1:1.5.1-2
http://bugs.debian.org/482659
http://bugs.debian.org/483078
* uim-tcode: provide tutcode-custom.scm, tutcode-bushudic.scm
  and tutcode-rule.scm (Closes: #482659)
* Fix FTBFS: segv during compile (Closes: #483078).
  I personally think this bug is not specific for uim but is a optimization
  problem on gcc-4.3.1. (https://bugs.freedesktop.org/show_bug.cgi?id=16477)

Show diffs side-by-side

added added

removed removed

Lines of Context:
sigscheme/src/scmport-basechar.c
 
1
/*===========================================================================
 
2
 *  Filename : scmport-basechar.c
 
3
 *  About    : ScmBaseCharPort implementation
 
4
 *
 
5
 *  Copyright (C) 2005-2006 YAMAMOTO Kengo <yamaken AT bp.iij4u.or.jp>
 
6
 *  Copyright (c) 2007-2008 SigScheme Project <uim-en AT googlegroups.com>
 
7
 *
 
8
 *  All rights reserved.
 
9
 *
 
10
 *  Redistribution and use in source and binary forms, with or without
 
11
 *  modification, are permitted provided that the following conditions
 
12
 *  are met:
 
13
 *
 
14
 *  1. Redistributions of source code must retain the above copyright
 
15
 *     notice, this list of conditions and the following disclaimer.
 
16
 *  2. Redistributions in binary form must reproduce the above copyright
 
17
 *     notice, this list of conditions and the following disclaimer in the
 
18
 *     documentation and/or other materials provided with the distribution.
 
19
 *  3. Neither the name of authors nor the names of its contributors
 
20
 *     may be used to endorse or promote products derived from this software
 
21
 *     without specific prior written permission.
 
22
 *
 
23
 *  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS
 
24
 *  IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
 
25
 *  THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
 
26
 *  PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR
 
27
 *  CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
 
28
 *  EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
 
29
 *  PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
 
30
 *  OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
 
31
 *  WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
 
32
 *  OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
 
33
 *  ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
34
===========================================================================*/
 
35
 
 
36
/*
 
37
 * - This file is intended to be portable. Don't depend on SigScheme.
 
38
 * - To isolate and hide implementation-dependent things, don't merge this file
 
39
 *   into another
 
40
 */
 
41
 
 
42
#include <config.h>
 
43
 
 
44
#include <stdlib.h>
 
45
#include <stdio.h>
 
46
#include <string.h>
 
47
 
 
48
#include "scmint.h"
 
49
#include "scmport-config.h"
 
50
#include "scmport.h"
 
51
 
 
52
/*=======================================
 
53
  File Local Macro Definitions
 
54
=======================================*/
 
55
 
 
56
/*=======================================
 
57
  File Local Type Definitions
 
58
=======================================*/
 
59
 
 
60
/*=======================================
 
61
  File Local Function Declarations
 
62
=======================================*/
 
63
static ScmCharPort *basecport_dyn_cast(ScmCharPort *cport,
 
64
                                       const ScmCharPortVTbl *dst_vptr);
 
65
static void basecport_close(ScmBaseCharPort *port);
 
66
static ScmCharCodec *basecport_codec(ScmBaseCharPort *port);
 
67
static char *basecport_inspect(ScmBaseCharPort *port);
 
68
static scm_ichar_t basecport_get_char(ScmBaseCharPort *port);
 
69
static scm_ichar_t basecport_peek_char(ScmBaseCharPort *port);
 
70
static scm_bool basecport_char_readyp(ScmBaseCharPort *port);
 
71
static void basecport_puts(ScmBaseCharPort *port, const char *str);
 
72
static void basecport_put_char(ScmBaseCharPort *port, scm_ichar_t ch);
 
73
static void basecport_flush(ScmBaseCharPort *port);
 
74
 
 
75
/*=======================================
 
76
  Variable Definitions
 
77
=======================================*/
 
78
static const ScmCharPortVTbl ScmBaseCharPort_vtbl = {
 
79
    (ScmCharPortMethod_dyn_cast)   &basecport_dyn_cast,
 
80
    (ScmCharPortMethod_close)      &basecport_close,
 
81
    (ScmCharPortMethod_codec)      &basecport_codec,
 
82
    (ScmCharPortMethod_inspect)    &basecport_inspect,
 
83
    (ScmCharPortMethod_get_char)   &basecport_get_char,
 
84
    (ScmCharPortMethod_peek_char)  &basecport_peek_char,
 
85
    (ScmCharPortMethod_char_readyp)&basecport_char_readyp,
 
86
    (ScmCharPortMethod_puts)       &basecport_puts,
 
87
    (ScmCharPortMethod_put_char)   &basecport_put_char,
 
88
    (ScmCharPortMethod_flush)      &basecport_flush
 
89
};
 
90
SCM_EXPORT const ScmCharPortVTbl *const ScmBaseCharPort_vptr
 
91
    = &ScmBaseCharPort_vtbl;
 
92
 
 
93
/*=======================================
 
94
  Function Definitions
 
95
=======================================*/
 
96
SCM_EXPORT void
 
97
ScmBaseCharPort_construct(ScmBaseCharPort *port, const ScmCharPortVTbl *vptr,
 
98
                          ScmBytePort *bport)
 
99
{
 
100
    port->vptr = vptr;
 
101
    port->bport = bport;
 
102
#if SCM_DEBUG
 
103
    port->linenum = 1;
 
104
#else
 
105
    port->linenum = 0;
 
106
#endif
 
107
}
 
108
 
 
109
SCM_EXPORT char *
 
110
ScmBaseCharPort_inspect(ScmBaseCharPort *port, const char *header)
 
111
{
 
112
    const char *encoding;
 
113
    char *bport_part, *combined;
 
114
    size_t size;
 
115
 
 
116
    encoding = SCM_CHARPORT_ENCODING((ScmCharPort *)port);
 
117
    bport_part = SCM_BYTEPORT_INSPECT((ScmBytePort *)port->bport);
 
118
    size = strlen(header) + strlen(encoding) + strlen(bport_part)
 
119
        + sizeof("  ");
 
120
    combined = SCM_PORT_MALLOC(size);
 
121
    sprintf(combined, "%s %s %s", header, encoding, bport_part);
 
122
    free(bport_part);
 
123
 
 
124
    return combined;
 
125
}
 
126
 
 
127
SCM_EXPORT size_t
 
128
ScmBaseCharPort_line_number(ScmBaseCharPort *port)
 
129
{
 
130
    return port->linenum;
 
131
}
 
132
 
 
133
static ScmCharPort *
 
134
basecport_dyn_cast(ScmCharPort *cport, const ScmCharPortVTbl *dst_vptr)
 
135
{
 
136
    return (dst_vptr == ScmBaseCharPort_vptr) ? cport : NULL;
 
137
}
 
138
 
 
139
static void
 
140
basecport_close(ScmBaseCharPort *port)
 
141
{
 
142
    SCM_BYTEPORT_CLOSE(port->bport);
 
143
    free(port);
 
144
}
 
145
 
 
146
static ScmCharCodec *
 
147
basecport_codec(ScmBaseCharPort *port)
 
148
{
 
149
    SCM_PORT_ERROR_INVALID_OPERATION(CHAR, port, ScmBaseCharPort);
 
150
    /* NOTREACHED */
 
151
}
 
152
 
 
153
static char *
 
154
basecport_inspect(ScmBaseCharPort *port)
 
155
{
 
156
    return ScmBaseCharPort_inspect(port, "unknown");
 
157
}
 
158
 
 
159
static scm_ichar_t
 
160
basecport_get_char(ScmBaseCharPort *port)
 
161
{
 
162
    scm_ichar_t ch;
 
163
 
 
164
    ch = SCM_BYTEPORT_GET_BYTE(port->bport);
 
165
#if SCM_DEBUG
 
166
    if (ch == SCM_NEWLINE_STR[0])
 
167
        port->linenum++;
 
168
#endif
 
169
 
 
170
    return ch;
 
171
}
 
172
 
 
173
static scm_ichar_t
 
174
basecport_peek_char(ScmBaseCharPort *port)
 
175
{
 
176
    return SCM_BYTEPORT_PEEK_BYTE(port->bport);
 
177
}
 
178
 
 
179
static scm_bool
 
180
basecport_char_readyp(ScmBaseCharPort *port)
 
181
{
 
182
    return SCM_BYTEPORT_BYTE_READYP(port->bport);
 
183
}
 
184
 
 
185
static void
 
186
basecport_puts(ScmBaseCharPort *port, const char *str)
 
187
{
 
188
    SCM_BYTEPORT_PUTS(port->bport, str);
 
189
}
 
190
 
 
191
static void
 
192
basecport_put_char(ScmBaseCharPort *port, scm_ichar_t ch)
 
193
{
 
194
    SCM_PORT_ERROR_INVALID_OPERATION(CHAR, port, ScmBaseCharPort);
 
195
    /* NOTREACHED */
 
196
}
 
197
 
 
198
static void
 
199
basecport_flush(ScmBaseCharPort *port)
 
200
{
 
201
    SCM_BYTEPORT_FLUSH(port->bport);
 
202
}