/************************************************************
**
** Application: TaskLib
**
** Title:       c.os2
**
*************************************************************/

/*
*
* Copyright (c) 2017, David Pilling and Chris Johnson
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
*   * Redistributions of source code must retain the above copyright
*     notice, this list of conditions and the following disclaimer.
*   * Redistributions in binary form must reproduce the above
*     copyright notice, this list of conditions and the following
*     disclaimer in the documentation and/or other materials provided
*     with the distribution.
*   * Neither the name of the copyright holder nor the names of their
*     contributors may be used to endorse or promote products derived
*     from this software without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
* "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
* A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
* HOLDER BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
* EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
* PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
* PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
* LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*
*/


/* Include files */
/* from standard clib */
#include <stdlib.h>
#include <stdio.h>

/* from TaskLib */
#include "h.swis"
#include "os.h"
#include "err.h"
#include "os2.h"




/************************************************************/

/* Local defines */

/************************************************************/

/* exported variables */


/************************************************************/
/* global variables */


/************************************************************/
/* forward function declarations */


/************************************************************/

os_error * os2_swi_number_from_string ( char * str, int * number )

{
  os_error  * err;
  os_regset   r;

  r.r[0] = 0;
  r.r[1] = (int)str;
  err = os_swix (OS_SWINumberFromString, &r);
  *number = r.r[0];
  return (err);
}



/************************************************************/

os_error * os2_swi_number_to_string ( int number, char * str, int * len)

{
  os_error  * err;
  os_regset   r;

  r.r[0] = number;
  r.r[1] = (int)str;
  r.r[2] = *len;
  err = os_swix (OS_SWINumberToString, &r);
  *len = r.r[2];
  return (err);
}



/*************  End of c.os2  ***********************/

