File: scoping.t

package info (click to toggle)
nqp 2024.09%2Bdfsg-5
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 9,972 kB
  • sloc: java: 28,087; perl: 3,479; ansic: 451; makefile: 202; javascript: 68; sh: 1
file content (87 lines) | stat: -rw-r--r-- 2,204 bytes parent folder | download | duplicates (5)
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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
puts "1..19"

class BaseClass
  Y = 16;

  def set_inst1(v); @i1 = v;             end
  def set_inst2(v); @i2 = v;             end
  def get_inst1; @i1;                    end
  def get_inst2; @i2;                    end
  def tickle_f(f); @f = f ;              end

  def const_tests
      puts "ok #{BaseClass::Y} - package constant qualified"
      puts "ok #{Y + 1} - package constant unqualified"
  end
end

class DerivedClass < BaseClass
  def set_inst1_child(v); @i1 = v; end
  def get_inst1_child;    @i1;     end
end

class DisjointClass
  Y = 42;
  def set_inst1(v); @i1 = v;             end
  def set_inst2(v); @i2 = v;             end
  def get_inst1; @i1;                    end
  def get_inst2; @i2;                    end

  def more_const_tests
      puts "ok #{BaseClass::Y + 2} - package constant cross reference"
      puts "ok #{Y} - package constant internal reference"
  end

end

a = "ok 1"
b = "ok 2"
$a = "ok 3"
$c = "nok 4"

base_obj = BaseClass.new;
sibling_obj = BaseClass.new;
disjoint_obj = DisjointClass.new;
child_obj = DerivedClass.new;

def some_sub 
    b = "nok 2"
    $c = "ok 4"
    $d = "ok 5"
end
some_sub()

puts "#{a} - local: main"
puts "#{b} - local: main, function"
puts "#{$a} - $global: main"
puts "#{$c} - $global: main, function"
puts "#{$d} - $global: function"

@e=6
@f='ok'
base_obj.tickle_f('nok')
puts "ok #{@e} - @instance: main"
puts "#{@f} 7 - @instance: main, object"

t = 7
base_obj.set_inst1(t+=1)
base_obj.set_inst2(t+=1)
sibling_obj.set_inst1(t+=1)
sibling_obj.set_inst2(t+=1)
disjoint_obj.set_inst1(t+=1)
disjoint_obj.set_inst2(t+=1)
child_obj.set_inst1(t+=1)

puts "ok #{base_obj.get_inst1} - @instance access (base)"
puts "ok #{base_obj.get_inst2} - @instance access (base)"
puts "ok #{sibling_obj.get_inst1} - @instance access (sibling)"
puts "ok #{sibling_obj.get_inst2} - @instance access (sibling)"
puts "ok #{disjoint_obj.get_inst1} - @instance access (disjoint)"
puts "ok #{disjoint_obj.get_inst2} - @instance access (disjoint)"
puts "ok #{child_obj.get_inst1} - @instance access (child)"
puts "ok #{child_obj.get_inst1_child+1} - @instance access (child)"

base_obj.const_tests

DisjointClass::Y = t+5
disjoint_obj.more_const_tests