cvs commit: parrot/examples/subs sub1.imc sub2.imc sub3.imc

[Melvin Smith]

cvsuser     03/11/16 18:25:08

  Added:       examples/subs sub1.imc sub2.imc sub3.imc
  Log:
  Add some sub samples for new (evolving) syntax.
  
  Revision  Changes    Path
  1.1                  parrot/examples/subs/sub1.imc
  
  Index: sub1.imc
  ===================================================================
  # Simple sub calls with 1 return value
  .sub _main
    .local int i
    .local int j
    .local string s
    i = 7
    $I1 = 8
    s = "nine"
    I0 = _foo(i, $I1, s)
    print "return: "
    print I0
    print "\n"
    end
  .end
  
  .sub _foo
    .param int i
    .param int j
    .param string s
    print i
    print " "
    print j
    print " "
    print s
    print "\n"
    .pcc_begin_return    # This notation is going away soon
    .return 10
    .pcc_end_return
  .end
  
  
  
  1.1                  parrot/examples/subs/sub2.imc
  
  Index: sub2.imc
  ===================================================================
  # Call a sub with multiple return values
  .sub _main
    (I0, I1, $I99) = _foo(7, 8, "nine")
    print "return: "
    print I0
    print " "
    print I1
    print " "
    print $I99
    print "\n"
    end
  .end
  
  .sub _foo
    .pcc_begin_return
    .return 10
    .return 11
    .return 12
    .pcc_end_return
  .end
  
  
  
  1.1                  parrot/examples/subs/sub3.imc
  
  Index: sub3.imc
  ===================================================================
  # Call a sub with no return values
  .sub _main
    _foo(7, 8, "nine")
    end
  .end
  
  .sub _foo
    .param int i
    .param int j
    .param string s
    print i
    print " "
    print j
    print " "
    print s
    print "\n"
    .pcc_begin_return   # This syntax is going away soon
    .pcc_end_return
  .end