polserver/testsuite/escript/func/funcref02.src

function init_animal( byref self )
  self.+yell := @animal_yell;
endfunction
function animal_yell( byref self )
  print( self.text.call( self ) );
endfunction

function init_cat()
  var cat := struct;
  init_animal( cat );
  cat.+text := @cat_text;
  return cat;
endfunction
function cat_text( byref self )
  return "miau";
endfunction

function init_dog()
  var dog := struct;
  init_animal( dog );
  dog.+text := @dog_text;
  dog.+angry := 0;
  return dog;
endfunction
function dog_text( byref self )
  if ( self.angry )
    return "ggggrrr";
  endif
  return "wuff";
endfunction

var dog := init_dog();
dog.yell.call( dog );
dog.angry := 1;
dog.yell.call( dog );

var cat := init_cat();
cat.yell.call( cat );