g 48 ext/dbm/gdbm.c #define CHECK_GDBM(g) if (!g->dbf) Scm_Error("gdbm file already closed: %S", g) g 81 ext/dbm/gdbm.c ScmGdbm *g = SCM_GDBM(obj); g 82 ext/dbm/gdbm.c if (g->dbf) { gdbm_close(g->dbf); g->dbf = NULL; } g 53 ext/dbm/ndbm.c #define CHECK_NDBM(g) if (!g->dbf) Scm_Error("ndbm file already closed: %S", g) g 1856 gc/include/private/gc_priv.h (long)d, (long)e, (long)g) g 1871 gc/include/private/gc_priv.h (long)e, (long)g) g 610 gc/tests/test.c sexpr *f, *g, *h; g 646 gc/tests/test.c g = (sexpr *)GC_MALLOC(513 * sizeof(sexpr)); g 648 gc/tests/test.c g = (sexpr *)GC_REALLOC((GC_PTR)g, 800 * sizeof(sexpr)); g 649 gc/tests/test.c g[799] = ints(1,18); g 708 gc/tests/test.c check_ints(g[799], 1,18); g 2164 src/class.c ScmGeneric *g; g 2177 src/class.c g = SCM_GENERIC(generic); g 2195 src/class.c m->common.info = Scm_Cons(g->common.info, g 2197 src/class.c m->generic = g; g 2212 src/class.c SCM_COMPILED_CODE(m->data)->name = Scm_Cons(SCM_PROCEDURE_INFO(g), h); g 314 src/compaux.c ScmModule *g = Scm_GaucheModule(); g 317 src/compaux.c Scm_InitStaticClass(SCM_CLASS_SYNTACTIC_CLOSURE, "<syntactic-closure>", g, g 319 src/compaux.c Scm_InitStaticClass(SCM_CLASS_IDENTIFIER, "<identifier>", g, g 262 src/intlib.c ScmGloc *g = Scm_FindBinding(id->module, id->name, FALSE); g 263 src/intlib.c if (!g || !SCM_GLOC_CONST_P(g) g 267 src/intlib.c SCM_RETURN(SCM_GLOC_GET(g)); g 1039 src/load.c ScmGloc *f, *g; g 1045 src/load.c g = Scm_FindBinding(adata->module, adata->name, FALSE); g 1047 src/load.c SCM_ASSERT(g != NULL); g 1053 src/load.c SCM_GLOC_SET(g, adata->value); g 1057 src/load.c ScmGloc *g = Scm_FindBinding(adata->module, adata->name, FALSE); g 1058 src/load.c SCM_ASSERT(g != NULL); g 1059 src/load.c adata->value = SCM_GLOC_GET(g); g 955 src/macro.c ScmGloc *g = Scm_FindBinding(Scm_VM()->module, g 957 src/macro.c if (g) { g 958 src/macro.c ScmObj gv = SCM_GLOC_GET(g); g 216 src/module.c ScmGloc *g; g 232 src/module.c if (e && (g = SCM_GLOC(e->value))->exported g 233 src/module.c && !SCM_UNBOUNDP(g->value)) { g 234 src/module.c gloc = g; g 262 src/module.c ScmGloc *g = Scm_FindBinding(module, symbol, FALSE); g 263 src/module.c if (g == NULL) return SCM_UNBOUND; g 264 src/module.c else return SCM_GLOC_GET(g); g 273 src/module.c ScmGloc *g; g 280 src/module.c g = SCM_GLOC(e->value); g 281 src/module.c if (SCM_GLOC_CONST_P(g)) { g 283 src/module.c g->setter = NULL; g 285 src/module.c SCM_GLOC_SET(g, value); g 287 src/module.c g = SCM_GLOC(Scm_MakeGloc(symbol, module)); g 288 src/module.c SCM_GLOC_SET(g, value); g 289 src/module.c Scm_HashTablePut(module->table, SCM_OBJ(symbol), SCM_OBJ(g)); g 292 src/module.c g->exported = TRUE; g 293 src/module.c module->exported = Scm_Cons(SCM_OBJ(g->name), module->exported); g 299 src/module.c Scm_Warn("redefining constant %S::%S", g->module, g->name); g 301 src/module.c return SCM_OBJ(g); g 306 src/module.c ScmGloc *g; g 315 src/module.c g = SCM_GLOC(e->value); g 316 src/module.c if (SCM_GLOC_CONST_P(g)) { g 318 src/module.c oldval = g->value; g 320 src/module.c g->setter = Scm_GlocConstSetter; g 321 src/module.c g->value = value; g 323 src/module.c g = SCM_GLOC(Scm_MakeConstGloc(symbol, module)); g 324 src/module.c g->value = value; g 325 src/module.c Scm_HashTablePut(module->table, SCM_OBJ(symbol), SCM_OBJ(g)); g 328 src/module.c g->exported = TRUE; g 329 src/module.c module->exported = Scm_Cons(SCM_OBJ(g->name), module->exported); g 335 src/module.c Scm_Warn("redefining constant %S::%S", g->module->name, g->name); g 337 src/module.c return SCM_OBJ(g); g 369 src/module.c ScmGloc *g; g 390 src/module.c g = SCM_GLOC(e->value); g 391 src/module.c if (!g->exported) { g 393 src/module.c g->exported = TRUE; g 396 src/module.c g = SCM_GLOC(Scm_MakeGloc(s, module)); g 397 src/module.c g->exported = TRUE; g 398 src/module.c e->value = SCM_OBJ(g); g 422 src/module.c ScmGloc *g = SCM_GLOC(e->value); g 423 src/module.c if (!g->exported) { g 424 src/module.c g->exported = TRUE; g 426 src/module.c Scm_Cons(SCM_OBJ(g->name), module->exported); g 186 src/symbol.c ScmGloc *g = SCM_GLOC(obj); g 187 src/symbol.c Scm_Printf(port, "#<gloc %S%s%S>", g->module->name, g 188 src/symbol.c (g->exported?"#":"##"), g 189 src/symbol.c g->name); g 196 src/symbol.c ScmGloc *g = SCM_NEW(ScmGloc); g 197 src/symbol.c SCM_SET_CLASS(g, &Scm_GlocClass); g 198 src/symbol.c g->name = sym; g 199 src/symbol.c g->module = module; g 200 src/symbol.c g->value = SCM_UNBOUND; g 201 src/symbol.c g->exported = FALSE; g 202 src/symbol.c g->getter = NULL; g 203 src/symbol.c g->setter = NULL; g 204 src/symbol.c return SCM_OBJ(g); g 209 src/symbol.c ScmGloc *g = SCM_GLOC(Scm_MakeGloc(sym, module)); g 210 src/symbol.c g->setter = Scm_GlocConstSetter; g 211 src/symbol.c return SCM_OBJ(g); g 717 src/syslib.c struct group *g = getgrgid(gid); g 718 src/syslib.c if (g == NULL) { Scm_SigCheck(Scm_VM()); SCM_RETURN(SCM_FALSE); } g 719 src/syslib.c else SCM_RETURN(SCM_MAKE_STR_COPYING(g->gr_name)); g 735 src/syslib.c struct group *g = getgrnam(Scm_GetStringConst(name)); g 736 src/syslib.c if (g == NULL) { Scm_SigCheck(Scm_VM()); SCM_RETURN(SCM_FALSE); } g 737 src/syslib.c else SCM_RETURN(Scm_MakeInteger(g->gr_gid)); g 995 src/system.c sg->name = SCM_MAKE_STR_COPYING(g->gr_name); g 997 src/system.c sg->passwd = SCM_MAKE_STR_COPYING(g->gr_passwd); g 1001 src/system.c sg->gid = Scm_MakeInteger(g->gr_gid); g 1002 src/system.c for (memp = g->gr_mem; *memp; memp++) {