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