home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
plbin.zip
/
pl
/
boot
/
portray.pl
< prev
next >
Wrap
Text File
|
1992-10-21
|
631b
|
32 lines
/* portray.pl,v 1.2 1992/10/21 10:42:25 jan Exp
Copyright (c) 1990 Jan Wielemaker. All rights reserved.
jan@swi.psy.uva.nl
Purpose: portray/1 connection to print/1
*/
:- module($portray, [$portray/1, $portray_variable/1]).
:- user:dynamic(portray/1).
:- user:multifile(portray/1).
% $portray is called from C through print/1.
$portray(Var) :-
$portray_variable(Var), !.
$portray(Term) :-
user:portray(Term), !.
$portray_variable($$VAR(N)) :-
$varname(N, Name),
format('~s', [Name]).
$varname(N, [C]) :-
N < 26, !,
C is N + 0'A.
$varname(N, [C1, C2]) :-
C1 is N // 26 + 0'A,
C2 is N mod 26 + 0'A.