source: to-imperative/trunk/library/StdIO/open_file.cc @ 1186

#include <rf_core.hh>
#include <pxx_string.ih>
#include <stdio.h>
#include <errno.h>
#include <ctype.h>

using namespace rfrt;

namespace refal
{

namespace StdIO
{

RF_DECL(Open_m_File);

RF_FUNC (Open_m_File, (RF_ARG _channel, _fname, _mode), ())
  WString ws = (WString)_fname;
  size_t len = wcstombs(null, ws.get_data(), 0);
  if (len == (size_t)(-1)) {
    throw Word::create_expr(L"Open-File") +
      Word::create_expr(L"Invalid filename");
  }
  char* fname = static_cast<char*>(alloca(len + 1));
  wcstombs(fname, ws.get_data(), len + 1);
  fname[len] = 0;
  if (_channel.get_len() == 1) {
    Term* p = _channel.get_first();
    Channel* ch = p->cast_to<Channel>(type_channel);
    if (ch) {
      if (_mode.get_len() == 1) {
        Term* p = _mode.get_first();
        if (p->get_type() == type_word) {
          ws = (WString)_mode;
          len = wcstombs(null, ws.get_data(), 0);
          if (len == (size_t)(-1)) {
            throw Word::create_expr(L"Open-File") +
              Word::create_expr(L"Invalid mode");
          }
          char* mode = static_cast<char*>(alloca(len + 1));
          wcstombs(mode, ws.get_data(), len + 1);
          mode[len] = 0;
          mode[0] = tolower(mode[0]);
          bool res = ch->open(fname, mode);
          if (!res) retfail;
          return true;
        }
      }
      throw Word::create_expr(L"Open-File") +
        Word::create_expr(L"Arg 3 should be a Word");
    }
  }
  throw Word::create_expr(L"Open-File") +
    Word::create_expr(L"Arg 1 should be a Channel object");
RF_END

}
}