root/trunk/examples/operators/double.lgt

Revision 4601, 352 bytes (checked in by pmoura, 7 weeks ago)

Added svn:mime-type property to source files (set to text/x-logtalk).

  • Property svn:mime-type set to text/x-logtalk
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
Line 
1
2:- object(double).
3
4
5    :- info([
6        version is 1.0,
7        author is 'Paulo Moura',
8        date is 2004/2/16,
9        comment is 'Contains a simple table of facts for testing operator handling code.']).
10
11    :- public(double/2).
12
13    :- op(500, xfx, double).    % local object operators, not visible outside this object
14
15
16    1 double 2.
17    2 double 4.
18    3 double 6.
19
20
21:- end_object.
Note: See TracBrowser for help on using the browser.