/* $Id: SystemErrnoException,v 1.1.1.1 2008/11/28 17:57:26 kiesling Exp $ -*-c-mode-*-*/

/*
  This file is part of ctalk.
  Copyright  2005-2008  Robert Kiesling, ctalk@ctalklang.org.
  Permission is granted to copy this software provided that this copyright
  notice is included in all source code modules.

  This library is free software; you can redistribute it and/or
  modify it under the terms of the GNU Lesser General Public
  License as published by the Free Software Foundation; either
  version 2 of the License, or (at your option) any later version.

  This library is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  Lesser General Public License for more details.

  You should have received a copy of the GNU Lesser General Public
  License along with this library; if not, write to the Free Software
  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307  USA
*/

/*
 *  SystemErrnoException Class
 */

#ifndef _STDIO_H
#include <stdio.h>
#endif

#include <errno.h>

Exception class SystemErrnoException;

SystemErrnoException classVariable sysErrno Integer 0;

SystemErrnoException instanceMethod raiseException (char *data) {

  char buf[MAXLABEL];
  OBJECT *sysErrnoVar;

  returnObjectClass Integer;

  if (errno) {
    __ctalkSysErrExceptionInternal (NULL, errno, 
	__ctalk_to_c_char_ptr(__ctalk_arg_internal (0)));
    __ctalkDecimalIntegerToASCII (errno, buf);
  } else {
    strcpy (buf, "0");
  }

  sysErrnoVar = __ctalkFindClassVariable ("sysErrno", TRUE);
  __ctalkSetObjectValueVar (sysErrnoVar, buf);

  return __ctalkCreateObjectInit ("result", "Integer", "Magnitude",
				  LOCAL_VAR, buf);
}

SystemErrnoException instanceMethod raiseCriticalException (char *data) {

  char buf[MAXLABEL];
  OBJECT *sysErrnoVar;

  returnObjectClass Integer;

  if (errno) {
    __ctalkCriticalSysErrExceptionInternal (NULL, errno, 
	__ctalk_to_c_char_ptr (__ctalk_arg_internal (0)));
    __ctalkDecimalIntegerToASCII (errno, buf);
  } else {
    strcpy (buf, "0");
  }

  sysErrnoVar = __ctalkFindClassVariable ("sysErrno", TRUE);
  __ctalkSetObjectValueVar (sysErrnoVar, buf);

  return NULL;	
}

