tests/test_boxing.nit

   1 # This file is part of NIT ( http://www.nitlanguage.org ).
   2 #
   3 # Copyright 2006 Floréal Morandat <morandat@lirmm.fr>
   4 # Copyright 2008 Jean Privat <jean@pryen.org>
   5 #
   6 # Licensed under the Apache License, Version 2.0 (the "License");
   7 # you may not use this file except in compliance with the License.
   8 # You may obtain a copy of the License at
   9 #
  10 #     http://www.apache.org/licenses/LICENSE-2.0
  11 #
  12 # Unless required by applicable law or agreed to in writing, software
  13 # distributed under the License is distributed on an "AS IS" BASIS,
  14 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  15 # See the License for the specific language governing permissions and
  16 # limitations under the License.
  17
  18 # By Flop
  19
  20 class Gene[T]
  21         readable var _a_ : T
  22         fun a: T
  23         do
  24                 return _a_
  25         end
  26
  27         init do end
  28
  29 end
  30 class GeneBool
  31         super Gene[Bool]
  32         fun a=(b: Bool)
  33         do
  34                 _a_ = b
  35         end
  36
  37         init do end
  38 end
  39
  40 var x = new Gene[Bool]
  41 var g = new GeneBool
  42 g.a = true
  43 print(g.a)