2.6.oz

   1 /****************************************************************************
   2 Ejercicio: 2.6
   3 Alumno: Leandro Lucarella
   4 Fecha: mié jul 27 15:24:15 ART 2005
   5 ****************************************************************************/
   6
   7 functor
   8 import
   9     Application
  10     System
  11 define
  12     proc {Test X}
  13         {System.show 'proc'}
  14         {System.show X}
  15         case X
  16             of f(a Y c) then {System.show 'case'(1)}
  17             else {System.show 'case'(2)}
  18         end
  19     end
  20     {System.show 'inicio'}
  21     local X Y in {Test f(X b Y)} end % Se queda esperando a que se bindee X!
  22     {System.show 'post1'}
  23     local X Y in {Test f(a Y d)} end
  24     {System.show 'post2'}
  25     local X Y in {Test f(X Y d)} end
  26     {System.show 'post3'}
  27     {Application.exit 0}
  28 end
  29
  30 % vim: set et sw=4 sts=4 filetype=oz :