languages/cardinal/src/classes/Integer.pir

   1 ## $Id$
   2
   3 =head1 TITLE
   4
   5 CardinalInteger - Cardinal integers
   6
   7 =cut
   8
   9 .namespace [ 'CardinalInteger' ]
  10
  11
  12 =head1 SUBROUTINES
  13
  14 =over 4
  15
  16 =item onload
  17
  18 =cut
  19
  20 .sub 'onload' :anon :init :load
  21     .local pmc cardinalmeta, intproto
  22     cardinalmeta = get_hll_global ['CardinalObject'], '!CARDINALMETA'
  23     intproto = cardinalmeta.'new_class'('CardinalInteger', 'parent'=>'Integer CardinalObject')
  24     cardinalmeta.'register'('Float', 'parent'=>'CardinalObject', 'protoobject'=>intproto)
  25 .end
  26
  27
  28 =item ACCEPTS()
  29
  30 =cut
  31
  32 .sub 'ACCEPTS' :method
  33     .param num topic
  34     .return 'infix:=='(topic, self)
  35 .end
  36
  37
  38 =item perl()
  39
  40 Returns a Perl representation of the CardinalInteger.
  41
  42 =cut
  43
  44 .sub 'perl' :method
  45     $S0 = self
  46     .return($S0)
  47 .end
  48
  49
  50 =item to_s()
  51
  52 Returns a CardinalString representation of the CardinalInteger.
  53
  54 =cut
  55
  56 .sub 'to_s' :method
  57     $P0 = new 'CardinalString'
  58     $P0 = self
  59     .return($P0)
  60 .end
  61
  62
  63 =item downto(n, block)
  64
  65 Runs C<block> for each integer from the current value of the Integer down to n.
  66
  67 =cut
  68
  69 .sub 'downto' :method
  70     .param int n
  71     .param pmc block
  72     $I1 = self
  73   downto_loop:
  74     $I0 = $I1 < n
  75     if $I0, downto_done
  76     block($I1)
  77     dec $I1
  78     goto downto_loop
  79   downto_done:
  80 .end
  81
  82
  83 =item upto(n, block)
  84
  85 Runs C<block> for each integer from the current value of the Integer up to n.
  86
  87 =cut
  88
  89 .sub 'upto' :method
  90     .param int n
  91     .param pmc block
  92     $I1 = self
  93   upto_loop:
  94     $I0 = $I1 > n
  95     if $I0, upto_done
  96     block($I1)
  97     inc $I1
  98     goto upto_loop
  99   upto_done:
 100 .end
 101
 102
 103 =back
 104
 105 =cut
 106
 107 # Local Variables:
 108 #   mode: pir
 109 #   fill-column: 100
 110 # End:
 111 # vim: expandtab shiftwidth=4 ft=pir: