home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / EFFO / pd3.lzh / SBPROLOG2.2 / PROG / getenv.P
Text File  |  1991-08-10  |  304b  |  11 lines
  1. /* this gets an environment variable value.
  2. For example getenv('SIMPATH',V) results in V being bound to a buffer
  3. containing the simpath variable.  */
  4.  
  5. getenv(Name,Val) :-
  6.     alloc_heap(4,Argbuff),alloc_heap(4,Retbuff),
  7.     ptoc(str,Name,Argbuff,0,4),
  8.     brocall(2,Argbuff,Retbuff),
  9.     ctop(str,Val,Retbuff,0,4).
  10.  
  11.