




















4
%   Purpose: Get from Prolog to TOP and back again.
%   Needs  : append/3 from LISTUT.PL, and latest version of TOP.

%   This module can be compiled or interpreted, whichever you prefer.
%   Luis Jenkins and Bernard Silver added "top" and "top File".
%   At Luis Jenkins' suggestion, editor/1 is now user-defined.
%   Luis Jenkins changed the priority of ':' to 100.

%   Six predicates are defined:
%	edit File	call Top 



































































































































































































































































































































































tt

















































], FE),
	append(D, [58|FE], DFE),
	name(Fi
om, DFE).
file_term(Device:FileName, F
tom) :- !,
	name(FileName,  F),
	n
Device,    D),
	append(D, [58|
DF),
	name(FileAtom, DF).

_term(FileName.Extensi
FileAtom) :- !,
	n
Extension, E),
me(FileNam
F),
	a
d(

], FE),
	name(FileAtom, FE).
file_term(Fil
e, FileName) :-
	atom(FileName), !.
fi
erm(Bogus, _) :-
	display('! Bad f
name: ')











































































































































0 conv
on
































































































































