benchmarks/microbenches/catches.nit

   1 # This file is part of NIT ( http://www.nitlanguage.org ).
   2 #
   3 # Licensed under the Apache License, Version 2.0 (the "License");
   4 # you may not use this file except in compliance with the License.
   5 # You may obtain a copy of the License at
   6 #
   7 #     http://www.apache.org/licenses/LICENSE-2.0
   8 #
   9 # Unless required by applicable law or agreed to in writing, software
  10 # distributed under the License is distributed on an "AS IS" BASIS,
  11 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  12 # See the License for the specific language governing permissions and
  13 # limitations under the License.
  14
  15 # This program micro-benches do/catches
  16 # arg1 is the mode, arg2 is the depth
  17
  18 # mode 0, no catch, only calls
  19 fun sub0(n: Int)
  20 do
  21         if n < 0 then return
  22         do
  23                 sub0(n-1)
  24                 sub0(n-1)
  25         end
  26 end
  27
  28 # mode 1, unused catches
  29 fun sub1(n: Int)
  30 do
  31         if n < 0 then return
  32         do
  33                 sub1(n-1)
  34                 sub1(n-1)
  35         catch
  36                 print "dead code"
  37         end
  38 end
  39
  40 # mode 2, many nested catches and aborts
  41 fun sub2(n: Int)
  42 do
  43         if n < 0 then abort
  44         do
  45                 sub2(n-1)
  46                 sub2(n-1)
  47         catch
  48                 if n > 0 then print "dead code"
  49         end
  50 end
  51
  52
  53 var m = 1
  54 if args.length > 0 then m = args[0].to_i
  55
  56 var n = 25
  57 if args.length > 1 then n = args[1].to_i
  58
  59 if m == 0 then
  60         print "mode {m} (no catch, no abort), size n={n}"
  61         sub0(n)
  62 else if m == 1 then
  63         print "mode {m} (catch, no abort), size n={n}"
  64         sub1(n)
  65 else if m == 2 then
  66         print "mode {m} (catch, abort), size n={n}"
  67         sub2(n)
  68 else
  69         abort
  70 end