languages/perl6/src/classes/Pair.pir

   1 ## $Id$
   2
   3 =head1 NAME
   4
   5 src/classes/Pair.pir - methods for the Pair class
   6
   7 =head1 Methods
   8
   9 =over 4
  10
  11 =cut
  12
  13 .namespace ['Perl6Pair']
  14
  15 .sub 'onload' :anon :load :init
  16     .local pmc p6meta
  17     p6meta = get_hll_global ['Perl6Object'], '$!P6META'
  18     p6meta.'new_class'('Perl6Pair', 'parent'=>'Any', 'attr'=>'$!key $!value', 'name'=>'Pair')
  19 .end
  20
  21 =item key
  22
  23 Gets the key of the pair.
  24
  25 =cut
  26
  27 .sub 'key' :method
  28     $P0 = getattribute self, '$!key'
  29     .return ($P0)
  30 .end
  31
  32
  33 =item value
  34
  35 Gets the value of the pair.
  36
  37 =cut
  38
  39 .sub 'value' :method
  40     $P0 = getattribute self, '$!value'
  41     .return ($P0)
  42 .end
  43
  44
  45 =item get_string()  (vtable method)
  46
  47 Stringify the Pair.
  48
  49 =cut
  50
  51 .sub 'get_string' :method :vtable
  52     $S0 = self.'key'()
  53     concat $S0, "\t"
  54     $S1 = self.'value'()
  55     concat $S0, $S1
  56     .return ($S0)
  57 .end
  58
  59
  60 =item perl
  61
  62 Returns a Perl code representation of the pair.
  63
  64 =cut
  65
  66 .sub perl :method
  67     # Get key and value.
  68     $P0 = self.'key'()
  69     $P1 = self.'value'()
  70
  71     # Get perl representation
  72     $S0 = $P0.'perl'()
  73     $S1 = $P1.'perl'()
  74
  75     # build result
  76     .local string result
  77     result = concat '(', $S0
  78     result .= ' => '
  79     result .= $S1
  80     result .= ')'
  81     .return (result)
  82 .end
  83
  84
  85 .namespace []
  86
  87 .sub 'infix:=>'
  88     .param pmc key
  89     .param pmc value
  90     key = key.'item'()
  91     value = value.'item'()
  92     $P0 = get_hll_global 'Pair'
  93     .return $P0.'new'('key'=>key, 'value'=>value)
  94 .end
  95
  96
  97 =back
  98
  99 =cut
 100
 101 # Local Variables:
 102 #   mode: pir
 103 #   fill-column: 100
 104 # End:
 105 # vim: expandtab shiftwidth=4 ft=pir: