|
Last change
on this file since 1110 was
1110,
checked in by luba, 17 years ago
|
|
|
-
Property svn:eol-style set to
native
-
Property svn:keywords set to
Author Date Id Revision
|
|
File size:
389 bytes
|
| Line | |
|---|
| 1 | // $Source$ |
|---|
| 2 | // $Revision: 1110 $ |
|---|
| 3 | // $Date: 2003-08-06 13:46:54 +0000 (Wed, 06 Aug 2003) $ |
|---|
| 4 | // $Author: luba $ |
|---|
| 5 | |
|---|
| 6 | #include <rf_core.hh> |
|---|
| 7 | |
|---|
| 8 | namespace refal |
|---|
| 9 | { |
|---|
| 10 | |
|---|
| 11 | using namespace rfrt; |
|---|
| 12 | using namespace rftype; |
|---|
| 13 | |
|---|
| 14 | namespace Class |
|---|
| 15 | { |
|---|
| 16 | |
|---|
| 17 | RF_FUNC (Int_q_, (RF_ARG e_Exp), ()) |
|---|
| 18 | if (e_Exp.get_len() == 1) { |
|---|
| 19 | Term* p = e_Exp.get_first(); |
|---|
| 20 | unsigned t = p->get_type(); |
|---|
| 21 | if (t != type_int && t != type_int32) |
|---|
| 22 | retfail; |
|---|
| 23 | } |
|---|
| 24 | else |
|---|
| 25 | retfail; |
|---|
| 26 | RF_END |
|---|
| 27 | |
|---|
| 28 | } |
|---|
| 29 | |
|---|
| 30 | } |
|---|
| 31 | |
|---|
| 32 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
