home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / prolog / brklyprl.lha / Emulator / Tests / t.pl < prev    next >
Encoding:
Text File  |  1989-04-14  |  359 b   |  13 lines
  1.  
  2. /* Copyright (C) 1988, 1989 Herve' Touati, Aquarius Project, UC Berkeley */
  3.  
  4. main :- 
  5. getputblock(get,[X,Y,Z],[get(A,X,x(1)),get(B,Y,x(2)),get(C,Z,x(3))|D]-E,1).
  6.  
  7. getputblock(Type, [A|Args], [X|Rest]-Link, N) :-
  8.     X=..[Type,T,A,x(N)], !,
  9.     (atomic(A) -> T=constant; true),
  10.     N1 is N+1,
  11.     getputblock(Type, Args, Rest-Link, N1).
  12. getputblock(_, [], Link-Link, _).
  13.