← Back to branch summary

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

« back to all changes in this revision

Viewing changes to sigscheme/src/symbol.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/symbol.c
 
1
/*===========================================================================
 
2
 *  Filename : symbol.c
 
3
 *  About    : Scheme Symbol handling
 
4
 *
 
5
 *  Copyright (C) 2005      Kazuki Ohta <mover AT hct.zaq.ne.jp>
 
6
 *  Copyright (C) 2005      Jun Inoue <jun.lambda AT gmail.com>
 
7
 *  Copyright (C) 2005-2006 YAMAMOTO Kengo <yamaken AT bp.iij4u.or.jp>
 
8
 *  Copyright (c) 2007-2008 SigScheme Project <uim-en AT googlegroups.com>
 
9
 *
 
10
 *  All rights reserved.
 
11
 *
 
12
 *  Redistribution and use in source and binary forms, with or without
 
13
 *  modification, are permitted provided that the following conditions
 
14
 *  are met:
 
15
 *
 
16
 *  1. Redistributions of source code must retain the above copyright
 
17
 *     notice, this list of conditions and the following disclaimer.
 
18
 *  2. Redistributions in binary form must reproduce the above copyright
 
19
 *     notice, this list of conditions and the following disclaimer in the
 
20
 *     documentation and/or other materials provided with the distribution.
 
21
 *  3. Neither the name of authors nor the names of its contributors
 
22
 *     may be used to endorse or promote products derived from this software
 
23
 *     without specific prior written permission.
 
24
 *
 
25
 *  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS
 
26
 *  IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
 
27
 *  THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
 
28
 *  PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR
 
29
 *  CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
 
30
 *  EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
 
31
 *  PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
 
32
 *  OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
 
33
 *  WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
 
34
 *  OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
 
35
 *  ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
36
===========================================================================*/
 
37
 
 
38
#include <config.h>
 
39
 
 
40
#include <string.h>
 
41
#include <stdlib.h>
 
42
 
 
43
#include "sigscheme.h"
 
44
#include "sigschemeinternal.h"
 
45
 
 
46
/*=======================================
 
47
  File Local Macro Definitions
 
48
=======================================*/
 
49
 
 
50
/*=======================================
 
51
  File Local Type Definitions
 
52
=======================================*/
 
53
 
 
54
/*=======================================
 
55
  Variable Definitions
 
56
=======================================*/
 
57
SCM_DEFINE_EXPORTED_VARS(symbol);
 
58
 
 
59
/*=======================================
 
60
  File Local Function Declarations
 
61
=======================================*/
 
62
static void initialize_symbol_hash(const ScmStorageConf *conf);
 
63
static void finalize_symbol_hash(void);
 
64
static uint32_t symbol_name_hash(const char *name);
 
65
 
 
66
/*=======================================
 
67
  Function Definitions
 
68
=======================================*/
 
69
SCM_EXPORT ScmObj
 
70
scm_intern(const char *name)
 
71
{
 
72
    ScmObj sym, lst, rest;
 
73
    uint32_t hash;
 
74
    char *copied;
 
75
    DECLARE_INTERNAL_FUNCTION("scm_intern");
 
76
 
 
77
#if (SCM_USE_R6RS_CHARS && SCM_STRICT_ARGCHECK)
 
78
#if 0
 
79
    /* FIXME: detect error correctly */
 
80
    if (scm_mb_bare_c_strlen(scm_identifier_codec, name) <= 0)
 
81
        ERR("invalid string for identifier: ~S", name);
 
82
#endif
 
83
#endif
 
84
 
 
85
    hash = symbol_name_hash(name);
 
86
    lst = scm_symbol_hash[hash];
 
87
 
 
88
    rest = lst;
 
89
    FOR_EACH (sym, rest) {
 
90
        if (strcmp(SCM_SYMBOL_NAME(sym), name) == 0)
 
91
            return sym;
 
92
    }
 
93
 
 
94
    /* if not found, allocate new symbol object and prepend it into the list */
 
95
    copied = scm_strdup(name);
 
96
    sym = MAKE_SYMBOL(copied, SCM_UNBOUND);
 
97
    scm_symbol_hash[hash] = CONS(sym, lst);
 
98
 
 
99
    return sym;
 
100
}
 
101
 
 
102
/* lookup the symbol bound to an obj reversely */
 
103
SCM_EXPORT ScmObj
 
104
scm_symbol_bound_to(ScmObj obj)
 
105
{
 
106
    ScmObj lst, sym, val;
 
107
    size_t i;
 
108
    DECLARE_INTERNAL_FUNCTION("scm_symbol_bound_to");
 
109
 
 
110
    for (i = 0; i < scm_symbol_hash_size; i++) {
 
111
        lst = scm_symbol_hash[i];
 
112
        FOR_EACH (sym, lst) {
 
113
            val = SCM_SYMBOL_VCELL(sym);
 
114
            if (!EQ(val, SCM_UNBOUND) && EQ(val, obj))
 
115
                return sym;
 
116
        }
 
117
    }
 
118
 
 
119
    return SCM_FALSE;
 
120
}
 
121
 
 
122
SCM_EXPORT void
 
123
scm_init_symbol(const ScmStorageConf *conf)
 
124
{
 
125
    SCM_GLOBAL_VARS_INIT(symbol);
 
126
 
 
127
    initialize_symbol_hash(conf);
 
128
}
 
129
 
 
130
SCM_EXPORT void
 
131
scm_fin_symbol(void)
 
132
{
 
133
    finalize_symbol_hash();
 
134
 
 
135
    SCM_GLOBAL_VARS_FIN(symbol);
 
136
}
 
137
 
 
138
/*===========================================================================
 
139
  Symbol table
 
140
===========================================================================*/
 
141
static void
 
142
initialize_symbol_hash(const ScmStorageConf *conf)
 
143
{
 
144
    size_t i;
 
145
 
 
146
    scm_symbol_hash_size = conf->symbol_hash_size;
 
147
    SCM_ASSERT(scm_symbol_hash_size <= (UINT32_MAX / sizeof(ScmObj)));
 
148
    scm_symbol_hash      = scm_malloc(sizeof(ScmObj) * scm_symbol_hash_size);
 
149
 
 
150
    for (i = 0; i < scm_symbol_hash_size; i++)
 
151
        scm_symbol_hash[i] = SCM_NULL;
 
152
}
 
153
 
 
154
static void
 
155
finalize_symbol_hash(void)
 
156
{
 
157
    free(scm_symbol_hash);
 
158
}
 
159
 
 
160
static uint32_t
 
161
symbol_name_hash(const char *name)
 
162
{
 
163
    uint32_t hash, c;
 
164
 
 
165
    for (hash = 0; (c = *(const scm_byte_t *)name); name++)
 
166
        hash = ((hash * 17) ^ c) % scm_symbol_hash_size;
 
167
 
 
168
    return hash;
 
169
}