KIMOTO / SPVM-0.990056 / lib / SPVM / EqualityChecker.spvm 

            

              
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

              
# Copyright (c) 2023 Yuki Kimoto
# MIT License
class EqualityChecker : interface_t {
  version_from SPVM;
   
  # Interface Methods
  required method : int ($object1 : object, $object2 : object);
   
  # Class Methods
  static method default_equality_checker : EqualityChecker () {
     
    my $default_equality_checker = method : int ($object1 : EqualityCheckable, $object2 : EqualityCheckable) {
       
      my $eq = 0;
      if ($object1 && $object2) {
        $eq = $object1->eq($object1, $object2);
      }
      elsif ($object1) {
        $eq = 0;
      }
      elsif ($object2) {
        $eq = 0;
      }
      else {
        $eq = 1;
      }
       
      return $eq;
    };
     
    return $default_equality_checker;
  }
   
}