source: to-imperative/trunk/library/Table/entries.cc @ 2038

Last change on this file since 2038 was 2038, checked in by orlov, 15 years ago
  • Added Table.Values and Table.Entries functions.
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 363 bytes
Line 
1// $Id: entries.cc 2038 2006-07-27 12:48:50Z orlov $
2
3#include <rf_core.hh>
4
5namespace refal
6{
7
8namespace Table
9{
10
11using namespace rfrt;
12
13RF_FUNC (Entries, (RF_ARG _table;;), (RF_RES _res;;))
14   assert(_table.get_len() == 1);
15   Term* p = _table.get_first();
16   rftype::Table* t = p->cast_to<rftype::Table>(type_table);
17   if (!t)
18     RF_LIB_ERROR("Invalid argument");
19   _res=t->entries();   
20RF_END
21
22}
23}
Note: See TracBrowser for help on using the repository browser.