1%
2% Author:      William Chia-Wei Cheng (bill.cheng@acm.org)
3%
4% Copyright (C) 2001-2009, William Chia-Wei Cheng.
5%
6% This file may be distributed under the terms of the Q Public License
7% as defined by Trolltech AS of Norway and appearing in the file
8% LICENSE.QPL included in the packaging of this file.
9%
10% THIS FILE IS PROVIDED AS IS WITH NO WARRANTY OF ANY KIND, INCLUDING
11% THE WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR
12% PURPOSE.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY SPECIAL,
13% INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING
14% FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT,
15% NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION
16% WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
17%
18% @(#)$Header: /mm2/home/cvs/bc-src/tgif/frontend.pl,v 1.6 2011/05/16 16:26:57 william Exp $
19%
20
21% The main predicate exported is:  interface/9.
22
23:- abolish(foreign_file/2).
24:- abolish(foreign/3).
25
26foreign_file('frontend11.o', ['MainLoop','Animate','UpdAttrVal']).
27
28foreign('MainLoop', c,
29	interface(+string, +string, -string, -string, -string, -string,
30	-string, -string, -string)).
31foreign('Animate', c,
32	interface_animate(+string, +string, +string, +string, -string)).
33foreign('UpdAttrVal', c,
34	interface_updattr(+string, +string, +string, +string, -string)).
35
36:- load_foreign_files(['frontend11.o'],
37	['-lXext','-lX11','-ldl','-lm','-lsocket','-lnsl','-lgen']),
38	abolish(foreign_file/2),
39	abolish(foreign/3).
40