1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
/**
* Copyright (c) David Miller. All rights reserved.
* The use and distribution terms for this software are covered by the
* Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
* which can be found in the file epl-v10.html at the root of this distribution.
* By using this software in any fashion, you are agreeing to be bound by
* the terms of this license.
* You must not remove this notice, or any other, from this software.
**/
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Collections;
namespace clojure.lang
{
/// <summary>
/// Base class providing IComparer implementation on top of <see cref="AFn">AFn</see>. Internal use by compiler.
/// </summary>
public abstract class AFunction : AFn, Fn, IComparer
{
#region Ctors and factory methods
/// <summary>
/// Initialize an <see cref="AFunction">AFunction</see> to have the given metadata.
/// </summary>
/// <param name="meta">The metadata to attach.</param>
public AFunction(IPersistentMap meta)
: base(meta)
{
}
/// <summary>
/// Initialize an <see cref="AFunction">AFunction</see> to have the null metadata.
/// </summary>
public AFunction()
: base()
{
}
#endregion
#region IComparer Members
/// <summary>
/// Compares two objects and returns a value indicating whether one is less than, equal to, or greater than the other.
/// </summary>
/// <param name="x">The first object to compare.</param>
/// <param name="y">The second object to compare.</param>
/// <returns>x?y:-1 if less than, 0 if equal, 1 if greater</returns>
/// <remarks>Uses the two-parameter invoke.
/// Return type can be <code>bool</code> with <value>true</value> meaning less-than, or an int.</remarks>
public int Compare(object x, object y)
{
Object o = invoke(x, y);
if (o is Boolean)
{
if (RT.booleanCast(o))
return -1;
return RT.booleanCast(invoke(y, x)) ? 1 : 0;
}
return Util.ConvertToInt(o);
}
#endregion
}
}
|
