// $Id$ //$include IStream; $func Name s.stream = e.name; $func Row s.stream = s.row; $func Column s.stream = s.column; $func Current_Pos s.stream = t.position;