home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / parallel / serverli < prev    next >
Encoding:
Text File  |  1992-04-12  |  352 b   |  9 lines
  1. %---------------------------------------------------------------------
  2. %----Remote reading requires doing a local read and putting the result
  3. %----into the tuple space.
  4. remote_read(Reply_predicate):-
  5.     read(Read),
  6.     Tuple =.. [Reply_predicate,Read],
  7.     server_out__(_,Tuple).
  8. %---------------------------------------------------------------------
  9.