/* Copyright 1996 Acorn Computers Ltd
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 *     http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 */
/****************************************************************************
 * This source file was written by Acorn Computers Limited. It is part of   *
 * the "cwimp" library for writing applications in C for RISC OS. It may be *
 * used freely in the creation of programs for Archimedes. It should be     *
 * used with Acorn's C Compiler Release 2 or later.                         *
 *                                                                          *
 * No support can be given to programmers using this code and, while we     *
 * believe that it is correct, no correspondence can be entered into        *
 * concerning behaviour or bugs.                                            *
 *                                                                          *
 * Upgrades of this code may or may not appear, and while every effort will *
 * be made to keep such upgrades upwards compatible, no guarantees can be   *
 * given.                                                                   *
 ***************************************************************************/

/*
 * Title  : c.os
 * Purpose: provides general access to low-level RISC OS routines
 * Version: 0.1
 *   ECN 08-May-91 #ifndefed out unused ROM functions
 */

#define BOOL int
#define TRUE 1
#define FALSE 0

#include "h.os"

#define OS_CLI  0x05
#define OS_Byte 0x06
#define OS_Word 0x07
#define OS_File 0x08
#define OS_Args 0x09
#define OS_GBPB 0x0C
#define OS_Find 0x0D

os_error * os_gbpb(os_gbpbstr *p)
{
  return os_swix(OS_GBPB, (os_regset *) p);
}

os_error * os_file(os_filestr *p)
{
  return os_swix(OS_File, (os_regset *) p);
}

os_error * os_args(os_regset *p)
{
  return os_swix(OS_Args, (os_regset *) p);
}

os_error * os_find(os_regset *p)
{
  return os_swix(OS_Find, (os_regset *) p);
}


os_error * os_cli(char * command)
{
  return os_swix1(OS_CLI, (int)command);
}

/* end of c.os */