protected override Datum eval(Datum arg1, Datum arg2)
{
if ((arg1 as Pair) != null ||
(arg2 as Pair) != null)
return DatumHelpers.atom(ReferenceEquals(arg1, arg2));
return DatumHelpers.atom(arg1.Equals(arg2));
}
protected override Datum eval(Datum arg1, Datum arg2)
{
if ((arg1 as Pair) != null ||
(arg2 as Pair) != null)
{
return(DatumHelpers.atom(ReferenceEquals(arg1, arg2)));
}
return(DatumHelpers.atom(arg1.Equals(arg2)));
}
public override bool Equals(object obj)
{
if (obj is Idopont)
{
var a = obj as Idopont;
return(Datum.Equals(a.Datum) && Orvos.Equals(a.Orvos));
}
return(false);
}
public static string isQuote(Datum d)
{
if (d.Equals(quote))
{
return(quoteAbbreviation);
}
if (d.Equals(quasiquote))
{
return(quasiquoteAbbreviation);
}
if (d.Equals(unquoteSplicing))
{
return(splicingAbbreviation);
}
if (d.Equals(unquote))
{
return(unquoteAbbreviation);
}
return(null);
}
/// <summary>
/// Determines if this <see cref="DBValue"/> is equal to another.
/// </summary>
/// <param name="rhs">
/// The <see cref="DBValue"/> against which to compare this one.
/// </param>
/// <returns>
/// <see langword="true"/> if <paramref name="rhs"/> is equal to this <see cref="DBValue"/>; otherwise,
/// <see langword="false"/>.
/// </returns>
public readonly bool Equals(DBValue rhs)
{
return(Datum.Equals(rhs.Datum));
}
public static string isQuote(Datum d)
{
if (d.Equals(quote))
return quoteAbbreviation;
if (d.Equals(quasiquote))
return quasiquoteAbbreviation;
if (d.Equals(unquoteSplicing))
return splicingAbbreviation;
if (d.Equals(unquote))
return unquoteAbbreviation;
return null;
}
private static Binder matchExact(Datum d)
{
return((arg, frame) => d.Equals(arg) ? frame : null);
}
private Gimnasticar findGimnasticar(string ime, string srednjeIme, string prezime, Datum datumRodjenja)
{
foreach (Gimnasticar g in gimnasticari)
{
string srednjeImeGim = g.SrednjeIme == null ? String.Empty : g.SrednjeIme.ToUpper();
bool datumRodjenjaEquals = (datumRodjenja == null && g.DatumRodjenja == null) ||
(datumRodjenja != null && g.DatumRodjenja != null && datumRodjenja.Equals(g.DatumRodjenja));
if (g.Ime.ToUpper() == ime.Trim().ToUpper() && g.Prezime.ToUpper() == prezime.Trim().ToUpper() &&
srednjeImeGim == srednjeIme.Trim().ToUpper() && datumRodjenjaEquals)
{
return(g);
}
}
return(null);
}
private static Bindings matchExact(Datum d)
{
return((env, args) => d.Equals(args) ? env : null);
}