tcp_extra.pl

来自「SRI international 发布的OAA框架软件」· PL 代码 · 共 26 行

%   Module : tcp_extra
%   Author : Adam Cheyer
%   Purpose: Defines tcp_inet_addr to resolve IPNum

:- module(tcp_extra,[

    tcp_inet_addr/2		  % +Host, -IPAddress

   ]).


tcp_inet_addr(Host, IP) :-
   tcp_inet_addr(Host, IP, Status),
   Status = 0.


foreign(tcp_inet_addr,c,tcp_inet_addr(+string,-atom,[-integer])).


foreign_file(tcp_extra,[tcp_inet_addr]).

:- load_foreign_executable(tcp_extra),
   abolish(foreign_file, 2),
   abolish(foreign, 3).