void fill_tokens_by_number;
Unit unit;
id init LexUnit l unit Unit u;
TomFile fileNamed tom.String name;
name
. The default
implementation returns the name
.
void unit tom.String unit_name class tom.String class_name extension tom.String extension_name file TomFile file posing tom.Indexed posed_classes;
extension_name
of the class named class_name
which itself comes
from the unit
. Both extension_name
and unit
are nil
to
indicate that the class is part of the current unit. Furthermore, the
extension resides in the file
and it causes the class to pose the
classes in posed_classes
.
void notePoser Meta poser poses Meta posed;
poser
posing as its superclass posed
.
The default implementation does nothing.
tom.String (name) extension;
(tom.String, tom.String) (u, m) meta_name;
void top;
void uses_unit;
void a_file;
void decl (TomFile) (file);
void file;
void uses;