tests/base_label_closure3.nit

   1 # This file is part of NIT ( http://www.nitlanguage.org ).
   2 #
   3 # Copyright 2009 Jean Privat <jean@pryen.org>
   4 #
   5 # Licensed under the Apache License, Version 2.0 (the "License");
   6 # you may not use this file except in compliance with the License.
   7 # You may obtain a copy of the License at
   8 #
   9 #     http://www.apache.org/licenses/LICENSE-2.0
  10 #
  11 # Unless required by applicable law or agreed to in writing, software
  12 # distributed under the License is distributed on an "AS IS" BASIS,
  13 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  14 # See the License for the specific language governing permissions and
  15 # limitations under the License.
  16
  17 import kernel
  18
  19 fun foo
  20         !bar do end
  21         !baz do end
  22 do
  23         bar
  24         baz
  25 end
  26
  27 fun maybe: Bool do return true
  28
  29 1.output
  30 foo !bar do
  31         2.output
  32         foo !bar do
  33                 3.output
  34                 foo !bar do end label l3
  35                 if maybe then
  36                 #alt1#break label l2
  37                 #alt2#break label l3
  38                 #alt3#break label l4
  39                 #alt4#break
  40                 #alt5#continue label l1
  41                 end
  42                 if maybe then break label l1
  43                 4.output
  44         !baz do
  45                 40.output
  46         end label l2#!alt6#
  47         #alt6#end label l1
  48         5.output
  49 !baz do
  50         50.output
  51 end label l1
  52 6.output
  53
  54 #alt7#foo !bar do end label l1