| /dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/sagittarius/private/ |
| H A D | pair.h | 69 #define SG_LISTP(obj) (SG_NULLP(obj) || SG_PAIRP(obj))
76 if (SG_NULLP(start)) { \
87 if (SG_NULLP(start)) { \
89 if (!SG_NULLP(list_SCM_GLS)) { \
|
| H A D | sagittariusdefs.h | 356 #define SG_NULLP(obj) ((obj) == SG_NIL) macro
|
| /dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/ |
| H A D | pair.c | 104 if (SG_NULLP(start)) { in Sg_VaList()
129 if (!SG_NULLP(tail)) SG_APPEND(h, t, tail); in array_to_list_with_tail()
205 if (SG_NULLP(obj)) break; in Sg_Length()
210 if (SG_NULLP(obj)) break; in Sg_Length()
229 if (!SG_NULLP(list)) SG_SET_CDR(last, list); in Sg_CopyList()
237 if (SG_NULLP(SG_CDR(cp))) { in Sg_Append2X()
262 if (SG_NULLP(start)) return SG_CAR(cp); in Sg_Append()
265 } else if (SG_NULLP(SG_CAR(cp))) { in Sg_Append()
|
| H A D | clos.c | 463 if (SG_NULLP(l__)) { \
537 if (!SG_NULLP(*sp)) break; in merge_lists()
634 if (!SG_NULLP(acc)) { in Sg_ComputeSlots()
879 if (SG_NULLP(opts)) { in unpack_argument()
1001 if (SG_NULLP(around)) { in compute_around_methods_rec()
1029 if (SG_NULLP(primary)) { in compute_around_methods()
1051 if (SG_NULLP(around) && SG_NULLP(before) && SG_NULLP(after)) { in sort_method()
2187 if (SG_NULLP(sp)) break; in initialize_builtin_cpl()
2190 if (!SG_NULLP(sp)) { in initialize_builtin_cpl()
2276 if (!SG_NULLP(tmp)) { in init_class()
[all …]
|
| H A D | library.c | 140 if (!SG_NULLP(o)) { in check_version_reference()
148 if (!SG_NULLP(name) && SG_PAIRP(name)) { in library_name_to_id_version()
163 } else if (SG_LISTP(o) && SG_NULLP(SG_CDR(cp))) { in library_name_to_id_version()
458 if (!SG_NULLP(SG_CDR(item))) { in library_name_to_path()
738 if (!SG_NULLP(alist) && SG_EQ(fromlib, SG_CAR(alist))) { in import_parents()
741 if (!SG_NULLP(h)) { in import_parents()
932 if (SG_NULLP(specs)) return key; in unrename_variable()
1151 if (appendP && !SG_NULLP(extensions)) { in Sg_AddLoadSuffix()
|
| H A D | lib_regex.c | 245 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) || in sagittarius_regex_impl_compile_regex()
292 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) || in sagittarius_regex_impl_compile_regex_ast()
327 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) || in sagittarius_regex_impl_dump_regex()
366 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) || in sagittarius_regex_impl_regex_matcher()
459 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) || in sagittarius_regex_impl_regex_find()
495 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) || in sagittarius_regex_impl_regex_group()
538 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) || in sagittarius_regex_impl_regex_group_start()
584 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) || in sagittarius_regex_impl_regex_group_end()
982 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) || in sagittarius_regex_impl_parse_char_set_string()
1036 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) || in sagittarius_regex_impl_char_set_TOregex_string()
[all …]
|
| H A D | vmcall.c | 226 if (!SG_NULLP(mm)) {
258 use_saved_args = (argc == 1 && SG_NULLP(INDEX(SP(vm), 0)));
266 if (SG_NULLP(n->methods)) {
|
| H A D | wrappers.c | 79 return SG_NULLP(obj); in Sg_IsNull()
|
| H A D | file.c | 353 if (!SG_NULLP(h1)) { in glob_make_pattern()
396 if (!SG_NULLP(h1)) { in glob_make_pattern()
482 if (SG_NULLP(pattern)) return h; in glob_match()
496 } else if (SG_STRINGP(SG_CAAR(pat)) && SG_NULLP(SG_CDAR(pat))) { in glob_match()
|
| H A D | lib_core.c | 787 SG_RESULT=(SG_NULLP(o)); in core_nullP()
1511 if (SG_NULLP(rest)){ in core__()
1546 if (SG_NULLP(rest)){ in core__2f()
1975 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) || in core_log()
2321 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) || in core_atan()
5551 if (SG_NULLP(SG_CDR(cp))){{ in core_apply()
8780 if (SG_NULLP(h)){ in core_cons_2a()
10697 if ((existsP)&&(SG_NULLP(opt))){ in get_open_flags()
12062 SG_NULLP(rest)){ in core_bitwise_and()
12113 SG_NULLP(rest)){ in core_bitwise_ior()
[all …]
|
| H A D | regex.c | 755 if (SG_NULLP(ctx->last_pos)) { in unget_token()
764 if (SG_NULLP(ctx->last_pos)) { in fail()
1054 if (SG_NULLP(SG_CDR(num))) { in get_token()
1301 if (!SG_NULLP(flags)) { in group()
1432 if (SG_NULLP(SG_CDDR(seq))) { in sequence()
1602 rest = SG_NULLP(tail) ? rest : tail; in optimize_seq()
1636 if (SG_NULLP(sp)) return ast; in optimize()
1746 p = lastp && SG_NULLP(SG_CDR(cp)); in compile_seq()
2339 if (SG_NULLP(SG_CDR(reg))) goto err; in unparse_reg()
2341 if (SG_NULLP(SG_CDDR(reg))) goto err; in unparse_reg()
[all …]
|
| H A D | lib_sagittarius.c | 1703 SG_NULLP(SG_CDR(cp)))){{ in sagittarius_appendX()
1704 if (SG_NULLP(h)){ in sagittarius_appendX()
1753 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) || in sagittarius_vector_copy()
1849 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) || in sagittarius_vector_reverseX()
1902 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) || in sagittarius_vector_reverse()
1947 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) || in sagittarius_current_exception_handlers()
2069 if (SG_NULLP(rest)){ in sagittarius___2e()
2104 if (SG_NULLP(rest)){ in sagittarius__2f_2e()
2318 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) || in sagittarius_add_load_path()
2359 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) || in sagittarius_load_path()
[all …]
|
| H A D | error.c | 150 SgObject nirr = SG_NULLP(irr) ? SG_NIL : irr; in Sg_IOReadError()
159 SgObject nirr = SG_NULLP(irr) ? SG_NIL : irr; in Sg_IOWriteError()
|
| H A D | subr.c | 97 if (SG_NULLP(theNullProc)) { in Sg_NullProc()
|
| H A D | main.c | 758 if (SG_NULLP(preimport)) preimport = base; in real_main()
766 if (!SG_NULLP(preimport)) { in real_main()
|
| H A D | lib_vm.stub | 344 (SG_NULLP (SG_IDENTIFIER_ENVS (SG_CAR vp)))
350 (SG_NULLP saved-env)
365 (when (not (SG_NULLP saved-env))
422 (when (SG_NULLP frames) (return TRUE))
|
| H A D | lib_vm.c | 561 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) || in sagittarius_vm_make_macro()
1187 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) || in sagittarius_vm_vm_current_library()
2217 SG_NULLP(SG_IDENTIFIER_ENVS(SG_CAR(vp)))))&&( in p1env_lookup_inner()
2223 SG_NULLP(saved_env)))&&( in p1env_lookup_inner()
2237 if ((!(SG_NULLP(saved_env)))){{ in p1env_lookup_inner()
2255 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) || in sagittarius_vm_p1env_lookup()
2303 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) || in sagittarius_vm_p1env_lookup_rib()
2429 if (SG_NULLP(frames)){{return (TRUE);}} in check_env_frame()
2487 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) || in sagittarius_vm_print_stack_frames()
2535 !SG_NULLP(SG_ARGREF(SG_ARGC-1))) || in sagittarius_vm_format_stack_trace()
|
| H A D | vm.c | 653 if (cl && !SG_NULLP(stackTrace)) { in report_error()
1510 if (SG_NULLP(args)) { /* no value */ in throw_continuation_body()
1514 } else if (SG_NULLP(SG_CDR(args))) { /* usual case */ in throw_continuation_body()
1682 if (appendP && !SG_NULLP(vm->loadPath)) { in Sg_AddLoadPath()
1697 if (appendP && !SG_NULLP(vm->dynamicLoadPath)) { in Sg_AddDynamicLoadPath()
1853 if (SG_NULLP(vm->exceptionHandlers)) { in Sg_VMThrowException()
|
| H A D | lib_core.stub | 45 (cond ((SG_NULLP ,rest)
107 ((SG_NULLP rest) (result TRUE) (break))
171 (if (SG_NULLP rest)
180 (if (SG_NULLP rest)
535 (cond ((SG_NULLP ,rest)
590 (cond ((SG_NULLP ,rest)
738 (when (SG_NULLP (SG_CDR cp))
1528 (if (SG_NULLP h)
2471 ((SG_NULLP rest)
2482 ((SG_NULLP rest)
[all …]
|
| H A D | lib_fixnums.stub | 237 ((SG_NULLP rest)
257 ((SG_NULLP rest)
277 ((SG_NULLP rest)
|
| H A D | core.c | 676 if (SG_NULLP(rest)) break; in Sg_Start()
|
| H A D | writer.c | 436 if (!backtracked && !SG_NULLP(args)) { in format_proc()
879 if (SG_PAIRP(SG_CDR(obj)) && SG_NULLP(SG_CDDR(obj)) in write_ss_rec()
911 if (SG_NULLP(obj)) { in write_ss_rec()
|
| /dports/lang/sagittarius-scheme/sagittarius-0.9.8/ext/socket/ |
| H A D | raise_incl.incl | 33 if (SG_NULLP(irr)) {
|
| H A D | tls_socket_stub.stub | 97 (unless (or (SG_PAIRP certs) (SG_NULLP certs))
|
| /dports/lang/sagittarius-scheme/sagittarius-0.9.8/ext/odbc/ |
| H A D | odbc_stub.stub | 87 (unless (or (SG_NULLP types) (SG_PAIRP types))
|