units.pl:   name(GString, [0'"|Chars]),
units.pl:	'Units':'Units.StringToUnit.P2.0'(GString, Unit) ).
units.pl:	'Units':'Units.StringToUnit.P2.0'(GString, Unit) ).
units.pl:   name(GString, [0'"|Chars]).
units.pl:	'Units':'Units.UnitToString.P2.0'(Unit, GString) ).
units.pl:	'Units':'Units.UnitToString.P2.0'(Unit, GString) ).
units.pl:        user:append(Chars2, [0')], Chars3),
units.pl:        user:append(HeadChars, [0'(|Chars3], Chars)
units.pl:     ;  user:append(Sh, [0',, 32|St2], St)
units.pl:		'Units':'Units.UnitArgument.P3.0'(Unit, N, Unit2) ).
units.pl:		'Units':'Units.UnitArgument.P3.0'(Unit, N, Unit2) ).
units.pl:'Units.UnitArgument.P3.0'(Unit, N, Unit2) :-
units.pl:'Units.UnitArgument.P3.0'('Units.Unit.F2'(_, List), N, Unit2) :-
units.pl:token_id(0'', Chars, Remains, String) :- !,
units.pl:   name(String, [0''|SChars]).
units.pl:   ( C == 0''
units.pl:     -> ( Chars = [0''|Chars2]
units.pl:	  ;  SChars = [0''],
units.pl:token_id(0'", Chars, Remains, String) :- !,
units.pl:   name(String, [0'"|SChars]).
units.pl:   ( C == 0'"
units.pl:     -> ( Chars = [0'"|Chars2]
units.pl:	  ;  SChars = [0'"],
units.pl:token_id(0'(, Chars, Chars, '(') :- !.
units.pl:token_id(0'), Chars, Chars, ')') :- !.
units.pl:token_id(0',, Chars, Chars, ',') :- !.
units.pl:token_id(0'., Chars, Chars, '.') :- !.
units.pl:	  ;  ( C = 0'.
units.pl:non_id_char(0',).
units.pl:non_id_char(0'().
units.pl:non_id_char(0')).
units.pl:non_id_char(0'').
units.pl:non_id_char(0'").
units.pl:start_of_new_id(0'').
units.pl:start_of_new_id(0'").
units_sup.pl:   name(GString, [0'"|Chars]),
units_sup.pl:	'Units':'Units.StringToUnit.P2.0'(GString, Unit) ).
units_sup.pl:	'Units':'Units.StringToUnit.P2.0'(GString, Unit) ).
units_sup.pl:   name(GString, [0'"|Chars]).
units_sup.pl:	'Units':'Units.UnitToString.P2.0'(Unit, GString) ).
units_sup.pl:	'Units':'Units.UnitToString.P2.0'(Unit, GString) ).
units_sup.pl:        user:append(Chars2, [0')], Chars3),
units_sup.pl:        user:append(HeadChars, [0'(|Chars3], Chars)
units_sup.pl:     ;  user:append(Sh, [0',, 32|St2], St)
units_sup.pl:		'Units':'Units.UnitArgument.P3.0'(Unit, N, Unit2) ).
units_sup.pl:		'Units':'Units.UnitArgument.P3.0'(Unit, N, Unit2) ).
units_sup.pl:'Units.UnitArgument.P3.0'(Unit, N, Unit2) :-
units_sup.pl:'Units.UnitArgument.P3.0'('Units.Unit.F2'(_, List), N, Unit2) :-
units_sup.pl:token_id(0'', Chars, Remains, String) :- !,
units_sup.pl:   name(String, [0''|SChars]).
units_sup.pl:   ( C == 0''
units_sup.pl:     -> ( Chars = [0''|Chars2]
units_sup.pl:	  ;  SChars = [0''],
units_sup.pl:token_id(0'", Chars, Remains, String) :- !,
units_sup.pl:   name(String, [0'"|SChars]).
units_sup.pl:   ( C == 0'"
units_sup.pl:     -> ( Chars = [0'"|Chars2]
units_sup.pl:	  ;  SChars = [0'"],
units_sup.pl:token_id(0'(, Chars, Chars, '(') :- !.
units_sup.pl:token_id(0'), Chars, Chars, ')') :- !.
units_sup.pl:token_id(0',, Chars, Chars, ',') :- !.
units_sup.pl:token_id(0'., Chars, Chars, '.') :- !.
units_sup.pl:	  ;  ( C = 0'.
units_sup.pl:non_id_char(0',).
units_sup.pl:non_id_char(0'().
units_sup.pl:non_id_char(0')).
units_sup.pl:non_id_char(0'').
units_sup.pl:non_id_char(0'").
units_sup.pl:start_of_new_id(0'').
units_sup.pl:start_of_new_id(0'").
