Home
last modified time | relevance | path

Searched refs:SG_EQ (Results 1 – 25 of 38) sorted by relevance

12

/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/
H A Dregex.c1612 if (SG_EQ(elt, opted) && SG_EQ(tail, SG_CDR(seq))) return seq; in optimize_seq()
1630 if (SG_EQ(type, SYM_ALTER)) { in optimize()
1978 if (SG_EQ(type, SYM_ALTER)) { in compile_rec()
2000 if (SG_EQ(type, SYM_GREEDY_REP) || SG_EQ(type, SYM_NON_GREEDY_REP)) { in compile_rec()
2033 if (SG_EQ(type, SYM_BACKREF)) { in compile_rec()
2045 if (SG_EQ(type, SYM_LOOKAHEAD) || SG_EQ(type, SYM_LOOKBHIND)) { in compile_rec()
2082 if (SG_EQ(type, SYM_BRANCH)) { in compile_rec()
2345 if (SG_EQ(n, SG_MAKE_INT(0))) { in unparse_reg()
2402 } else if (SG_EQ(min, max)) { in unparse_rep()
2409 } else if (SG_EQ(SG_MAKE_INT(0), min) && SG_EQ(SG_MAKE_INT(1), max)) { in unparse_rep()
[all …]
H A Dlibrary.c127 !(SG_EQ(v, SG_SYMBOL_LESS_EQUAL) || in check_version_reference()
128 SG_EQ(v, SG_SYMBOL_GREATER_EQUAL) || in check_version_reference()
129 SG_EQ(v, SG_SYMBOL_OR) || in check_version_reference()
130 SG_EQ(v, SG_SYMBOL_AND) || in check_version_reference()
131 SG_EQ(v, SG_SYMBOL_NOT))) { in check_version_reference()
753 if (SG_EQ(SG_CAR(spec), SG_SYMBOL_ONLY)) { in export_read_macro_p()
757 } else if (SG_EQ(SG_CAR(spec), SG_SYMBOL_EXCEPT)) { in export_read_macro_p()
917 if (SG_EQ(v1, o) || SG_EQ(v2, o)) return o; in two_memq()
936 if (SG_EQ(SG_CAR(spec), SG_SYMBOL_ONLY)) { in unrename_variable()
938 } else if (SG_EQ(SG_CAR(spec), SG_SYMBOL_RENAME)) { in unrename_variable()
[all …]
H A Dlib_vm.stub311 (return (SG_EQ l1 l2)))
333 (when (SG_EQ boundary (SG_CAAR fp)) (return name))
343 (SG_EQ name (SG_IDENTIFIER_NAME (SG_CAR vp)))
348 (SG_EQ (SG_CAR vp) (SG_IDENTIFIER_NAME name))
352 (SG_EQ (SG_IDENTIFIER_LIBRARY name) lib))
356 (SG_EQ (SG_IDENTIFIER_NAME (SG_CAR vp))
358 (SG_EQ (SG_IDENTIFIER_LIBRARY (SG_CAR vp))
399 (result (SG_EQ g1 g2)))
400 (result (SG_EQ v1 v2))))
407 (SG_EQ g1 g2))))))
[all …]
H A Dfile.c282 if (SG_EQ(SG_CAR(p), STAR)) { in convert_star()
301 } else if (SG_EQ(SG_CAR(p), STAR)) { in convert_star()
449 if (!SG_EQ(SG_STRING_VALUE_AT(p, i), in glob_match1()
486 if (SG_EQ(SG_CAAR(pat), STAR_SLASH)) { in glob_match()
490 if (SG_EQ(SG_CAAR(pat), DIR)) { in glob_match()
493 } else if (SG_EQ(SG_CAAR(pat), ANY)) { in glob_match()
538 if (!SG_EQ(path, DOT_PATH)) buf = join_path(path, dirsep, p); in glob_match()
560 if (!SG_EQ(path, DOT_PATH)) name = join_path(path, dirsep, name); in glob_match()
H A Dlib_core.stub1462 ((SG_EQ endian 'big)
1479 ((SG_EQ endian 'big)
1552 (SG_EQ o 'line)
1553 (SG_EQ o 'block))))
1593 ((SG_EQ eol 'lf)
1595 ((SG_EQ eol 'cr)
1597 ((SG_EQ eol 'ls)
1599 ((SG_EQ eol 'nel)
1601 ((SG_EQ eol 'crnel)
1603 ((SG_EQ eol 'crlf)
[all …]
H A Dlib_sagittarius.stub833 (cond ((SG_EQ ,endian 'big)
904 ((SG_EQ ,endian 'little)
910 ((SG_EQ ,endian 'native)
1089 (cond ((SG_EQ endian 'big)
1091 ((SG_EQ endian 'little)
1093 ((SG_EQ endian 'native)
1684 (SG_EQ ,val :stdin)
1685 (SG_EQ ,val :stdout)
1686 (SG_EQ ,val :stderr)
1687 (SG_EQ ,val :null)
[all …]
H A Dcompare.c112 DEF_EQ_PROC(eq, SG_EQ)
320 return SG_EQ(x, y) in Sg_Compare()
328 if (SG_EQ(x, y)) return 0; in Sg_Compare()
346 return SG_EQ(x, y); in Sg_EqP()
368 if (SG_EQ(x, y)) return TRUE; in eqv_internal()
415 SG_EQ(SG_CODEC(x)->name, SG_CODEC(y)->name))) { in eqv_internal()
425 if (!SG_HPTRP(x)) return SG_EQ(x, y); in eqv_internal()
446 if (SG_EQ(x, y)) return TRUE;
486 return SG_EQ(SG_IDENTIFIER(x)->name, SG_IDENTIFIER(y)->name)
487 && SG_EQ(SG_IDENTIFIER(x)->library, SG_IDENTIFIER(y)->library);
H A Dlib_sagittarius.c2331 if (SG_EQ(SG_ARGREF(1+SG_KEYINDEX), sg__rc_cgen12135.d12286[39])) { in sagittarius_add_load_path()
2415 if (SG_EQ(SG_ARGREF(1+SG_KEYINDEX), sg__rc_cgen12135.d12286[39])) { in sagittarius_add_load_suffix()
2418 if (SG_EQ(SG_ARGREF(1+SG_KEYINDEX), sg__rc_cgen12135.d12286[44])) { in sagittarius_add_load_suffix()
2466 if (SG_EQ(level,sg__rc_cgen12135.d12286[58])){f=(SG_INFO_LEVEL);}else if( in sagittarius_vm_log_level()
2467 SG_EQ(level,sg__rc_cgen12135.d12286[56])){f=(SG_DEBUG_LEVEL);}else if( in sagittarius_vm_log_level()
2468 SG_EQ(level,sg__rc_cgen12135.d12286[54])){f=(SG_TRACE_LEVEL);}else if( in sagittarius_vm_log_level()
2469 SG_EQ(level,sg__rc_cgen12135.d12286[52])){f=(SG_WARN_LEVEL);}else if( in sagittarius_vm_log_level()
2470 SG_EQ(level,sg__rc_cgen12135.d12286[50])){f=(SG_FATAL_LEVEL);} else { in sagittarius_vm_log_level()
5631 if (SG_EQ(endian,sg__rc_cgen12135.d12286[206])){ in sagittarius_utf_32_codec()
5633 SG_EQ(endian,sg__rc_cgen12135.d12286[204])){ in sagittarius_utf_32_codec()
[all …]
H A Dsystem.c57 if (SG_EQ(tx->type, ty->type) && in time_compare()
65 if (!SG_EQ(tx->type, ty->type)) { in time_compare()
H A Dvector.c63 if (SG_EQ(fill, SG_UNBOUND)) fill = SG_UNDEF; in Sg_MakeVector()
150 if (SG_EQ(fill, SG_UNBOUND)) fill = SG_UNDEF; in Sg_VectorCopy()
H A Dreader.c690 if (SG_EQ(tab[c].sfunc, SG_UNBOUND)) in macro_reader()
705 if (SG_EQ(item, SG_EOF)) goto eoferr; in read_list_int()
714 if (SG_EQ(item, SG_EOF)) goto eoferr; in read_list_int()
719 if (!SG_EQ(item, SG_SYMBOL_RPAREN)) { in read_list_int()
723 if (SG_EQ(item, SG_EOF)) goto eoferr; in read_list_int()
851 if (SG_EQ(o, SG_EOF)) { in read_quote()
864 if (SG_EQ(o, SG_EOF)) { in read_quasiquote()
1613 if (SG_EQ(disptab[c2].sfunc, SG_UNBOUND)) { in dispmacro_reader()
1756 if (!ctx->escapedp && SG_EQ(obj, SG_SYMBOL_DOT)) { in Sg_ReadWithContext()
2121 if (SG_EQ(fn, x[i].s)) return x[i].f; in get_macro_function()
[all …]
H A Dclos.c402 if (SG_EQ(SG_CAR(mp), SG_OBJ(m))) { in Sg_RemoveMethod()
411 if (SG_EQ(SG_CADR(mp), SG_OBJ(m))) { in Sg_RemoveMethod()
560 if (SG_PAIRP(*sp) && SG_EQ(next, SG_CAR(*sp))) { in merge_lists()
572 if (SG_EQ(SG_CAR(cp), target)) continue; in deletel()
739 if (!SG_EQ(spec1[i], spec2[i]) && spec1[i] && spec2[i]) { in method_more_specific()
769 if (SG_EQ(SG_METHOD_QUALIFIER(m), SG_KEYWORD_AROUND)) { in sort_method_by_qualifier()
917 if (SG_EQ(SG_METHOD_QUALIFIER(proc), SG_KEYWORD_PRIMARY)) { in procedure_invoker()
1103 if (SG_EQ(name, (*gNs)->name)) { in lookup_slot_info()
1838 if (SG_EQ(klass->redefined, vm)) { in Sg_EndClassRedefinition()
2185 if (SG_EQ(SG_CAR(cp), SG_CAR(sp))) { in initialize_builtin_cpl()
[all …]
H A Dlib_core.c2470 if (SG_EQ(n2,SG_MAKE_INT(0))){{ in core_quotient()
8809 SG_EQ(o,sg__rc_cgen9166.d9486[354]))); in core_buffer_modeP()
8947 SG_EQ(eol,sg__rc_cgen9166.d9486[371])){ in core_make_transcoder()
8949 SG_EQ(eol,sg__rc_cgen9166.d9486[369])){ in core_make_transcoder()
8951 SG_EQ(eol,sg__rc_cgen9166.d9486[367])){ in core_make_transcoder()
8953 SG_EQ(eol,sg__rc_cgen9166.d9486[365])){ in core_make_transcoder()
8955 SG_EQ(eol,sg__rc_cgen9166.d9486[363])){ in core_make_transcoder()
8957 SG_EQ(eol,sg__rc_cgen9166.d9486[361])){ in core_make_transcoder()
9079 if (SG_EQ(mode,SG_REPLACE_ERROR)){ in core_transcoder_error_handling_mode()
9081 SG_EQ(mode,SG_IGNORE_ERROR)){ in core_transcoder_error_handling_mode()
[all …]
H A Dlib_vm.c2187 return (SG_EQ(l1,l2));}} in list_eqP()
2212 if ((((SG_EQ(name,SG_CAR(vp)))||( in p1env_lookup_inner()
2216 SG_EQ(name,SG_IDENTIFIER_NAME(SG_CAR(vp)))))&&( in p1env_lookup_inner()
2221 SG_EQ(SG_CAR(vp),SG_IDENTIFIER_NAME(name))))&&( in p1env_lookup_inner()
2225 SG_EQ(SG_IDENTIFIER_LIBRARY(name),lib))))||( in p1env_lookup_inner()
2229 SG_EQ(SG_IDENTIFIER_NAME(SG_CAR(vp)), in p1env_lookup_inner()
2231 SG_EQ(SG_IDENTIFIER_LIBRARY(SG_CAR(vp)), in p1env_lookup_inner()
2377 SG_RESULT=(SG_EQ(g1,g2));}} else { in sagittarius_vm_vm_free_identifier_3dP()
2378 SG_RESULT=(SG_EQ(v1,v2));}}} else { in sagittarius_vm_vm_free_identifier_3dP()
2385 SG_EQ(g1,g2)));}} in sagittarius_vm_vm_free_identifier_3dP()
[all …]
H A Dexceptions.c830 !SG_EQ(vm->cont, SG_STACK_TRACE_CONDITION(cause)->trace)) { in Sg_AddStackTrace()
852 if (SG_EQ(klass, SG_CLASS_COMPILE_CONDITION)) { in describe_simple()
855 } else if (SG_EQ(klass, SG_CLASS_TRACE_CONDITION)) { in describe_simple()
857 } else if (SG_EQ(klass, SG_CLASS_STACK_TRACE_CONDITION)) { in describe_simple()
H A Dpair.c363 if (SG_EQ(obj, SG_CAR(list))) return list; in Sg_Memq()
382 if (SG_EQ(obj, SG_CAR(entry))) return entry; in assq_rec()
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/ext/filewatch/
H A Dinotify_watch.c70 if (SG_EQ(SG_ACCESS, flag)) return IN_ACCESS; in symbol2flag()
71 if (SG_EQ(SG_MODIFY, flag)) return IN_MODIFY; in symbol2flag()
72 if (SG_EQ(SG_DELETE, flag)) return IN_DELETE; in symbol2flag()
73 if (SG_EQ(SG_MOVE, flag)) return IN_MOVE; in symbol2flag()
74 if (SG_EQ(SG_ATTRIBUTE, flag)) return IN_ATTRIB; in symbol2flag()
153 if (SG_EQ(SG_MAKE_INT(event->wd), SG_CAAR(cp))) { in handle_events()
H A Dkqueue_watch.c93 if (SG_EQ(SG_MODIFY, flag)) return NOTE_WRITE; in symbol2flag()
94 if (SG_EQ(SG_DELETE, flag)) return NOTE_DELETE; in symbol2flag()
95 if (SG_EQ(SG_MOVE, flag)) return NOTE_RENAME; in symbol2flag()
96 if (SG_EQ(SG_ATTRIBUTE, flag)) return NOTE_ATTRIB; in symbol2flag()
H A Dfsevents_watch.c75 if (SG_EQ(SG_MODIFY, flag)) return kFSModifiedEvents; in symbol2flag()
76 if (SG_EQ(SG_DELETE, flag)) return kFSEventStreamEventFlagItemRemoved; in symbol2flag()
77 if (SG_EQ(SG_MOVE, flag)) return kFSEventStreamEventFlagItemRenamed; in symbol2flag()
79 if (SG_EQ(SG_ATTRIBUTE, flag)) { in symbol2flag()
H A Dwindows_watch.c114 if (SG_EQ(SG_ACCESS, flag)) return FILE_NOTIFY_CHANGE_LAST_ACCESS; in symbol2flag()
115 if (SG_EQ(SG_MODIFY, flag)) return FILE_NOTIFY_CHANGE_LAST_WRITE; in symbol2flag()
116 if (SG_EQ(SG_DELETE, flag) || SG_EQ(SG_MOVE, flag)) { in symbol2flag()
119 if (SG_EQ(SG_ATTRIBUTE, flag)) return FILE_NOTIFY_CHANGE_ATTRIBUTES; in symbol2flag()
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/ext/time/
H A Dtime_stub.stub61 (cond ((SG_EQ type 'time-tai) (result 10000))
62 ((SG_EQ type 'time-utc) (result 10000))
63 ((SG_EQ type 'time-monotonic) (result 10000))
64 ((SG_EQ type 'time-thread) (result 10000))
65 ((SG_EQ type 'time-process) (result 10000))
H A Dsagittarius-time.c79 if (!SG_EQ(x->type, y->type)) { in Sg_TimeDifference()
102 if (!SG_EQ(y->type, time_duration)) { in Sg_AddDuration()
124 if (!SG_EQ(y->type, time_duration)) { in Sg_SubDuration()
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/os/posix/
H A Dsystem.c581 if (SG_EQ(*port, SG_KEYWORD_PIPE)) { in init_fd()
603 } else if (SG_EQ(*port, SG_KEYWORD_STDIN)) { in init_fd()
606 } else if (SG_EQ(*port, SG_KEYWORD_STDOUT)) { in init_fd()
608 } else if (SG_EQ(*port, SG_KEYWORD_STDERR)) { in init_fd()
610 } else if (SG_STRINGP(*port) || SG_EQ(*port, SG_KEYWORD_NULL)) { in init_fd()
811 if (SG_EQ(SG_CAR(c), tpid)) { in remove_pid()
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/sagittarius/private/
H A Dcompare.h74 #define SG_EQ(x, y) ((x) == (y)) macro
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/os/win/
H A Dsystem.c444 if (!SG_FALSEP(p) && SG_EQ(SG_OBJ(proc), p)) { in unregister_win_proc()
488 if (SG_EQ(*port, SG_KEYWORD_PIPE)) { in init_fd()
511 } else if (SG_EQ(*port, SG_KEYWORD_STDIN)) { in init_fd()
514 } else if (SG_EQ(*port, SG_KEYWORD_STDOUT)) { in init_fd()
516 } else if (SG_EQ(*port, SG_KEYWORD_STDERR)) { in init_fd()
518 } else if (SG_STRINGP(*port) || SG_EQ(*port, SG_KEYWORD_NULL)) { in init_fd()

12