| |
| /pliant/language/basic/compare.pli |
| |
| 1 |
# Copyright Hubert Tonneau hubert.tonneau@pliant.cx | |
| 2 |
# | |
| 3 |
# This program is free software; you can redistribute it and/or | |
| 4 |
# modify it under the terms of the GNU General Public License version 2 | |
| 5 |
# as published by the Free Software Foundation. | |
| 6 |
# | |
| 7 |
# This program is distributed in the hope that it will be useful, | |
| 8 |
# but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 9 |
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 10 |
# GNU General Public License for more details. | |
| 11 |
# | |
| 12 |
# You should have received a copy of the GNU General Public License | |
| 13 |
# version 2 along with this program; if not, write to the Free Software | |
| 14 |
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. | |
| 15 |
| |
| 16 |
scope "/pliant/language/" "/pliant/install/" | |
| 17 |
module "/pliant/install/ring1.pli" | |
| 18 |
| |
| 19 |
abstract | |
| 20 |
[This module simply declares in Pliant the various comparison constants defined in ] ; link "struct.c" "../declare/struct.c" | |
| 21 |
| |
| 22 |
public | |
| 23 |
| |
| 24 |
constant compare_inferior 1 | |
| 25 |
constant compare_equal 2 | |
| 26 |
constant compare_superior 4 | |
| 27 |
constant compare_different 8 | |
| 28 |
constant compare_unknown 16 | |
| |