23 lines
585 B
Perl
23 lines
585 B
Perl
|
|
||
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
|
|
%
|
||
|
|
% Logtalk - Open source object-oriented logic programming language
|
||
|
|
% Release 2.30.1
|
||
|
|
%
|
||
|
|
% Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
|
||
|
|
%
|
||
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
|
|
|
||
|
|
|
||
|
|
:- set_prolog_flag(iso, true).
|
||
|
|
:- set_prolog_flag(generate_debug_info, false).
|
||
|
|
:- system_module.
|
||
|
|
:- op(600, xfy, ::).
|
||
|
|
:- op(600, fy, ::).
|
||
|
|
:- op(600, fy, ^^).
|
||
|
|
:- op(200, fy, +).
|
||
|
|
:- op(200, fy, ?).
|
||
|
|
:- op(200, fy, @).
|
||
|
|
:- op(200, fy, -).
|
||
|
|
:- include('../compiler/logtalk.pl').
|