home *** CD-ROM | disk | FTP | other *** search
- #ifndef basictrans_H
- #define basictrans_H
-
- /* C header file for BASICTrans
- * written by DefMod (Sep 7 1994) on Wed Sep 7 21:25:48 1994
- * Copyright © Acorn Computers Ltd, 1994
- */
-
- /*************************************************************************
- * This source file was written by Acorn Computers Limited. It is part *
- * of the OSLib library for writing applications for RISC OS. It may be *
- * used freely in the creation of programs for RISC OS. *
- *************************************************************************/
-
- #ifndef types_H
- #include "types.h"
- #endif
-
- #ifndef os_H
- #include "os.h"
- #endif
-
- /**********************************
- * SWI names and SWI reason codes *
- **********************************/
- #undef BASICTrans_HELP
- #define BASICTrans_HELP 0x42C80
- #undef XBASICTrans_HELP
- #define XBASICTrans_HELP 0x62C80
- #undef BASICTrans_Error
- #define BASICTrans_Error 0x42C81
- #undef XBASICTrans_Error
- #define XBASICTrans_Error 0x62C81
- #undef BASICTrans_Message
- #define BASICTrans_Message 0x42C82
- #undef XBASICTrans_Message
- #define XBASICTrans_Message 0x62C82
-
- /*************************
- * Function declarations *
- *************************/
-
- #ifdef __cplusplus
- extern "C" {
- #endif
-
- /*************************************************************
- * NOTE: The following functions provide direct access to *
- * the SWI's noted in the function description. *
- * Please read the relevant PRM section for more *
- * information on their input/output parameters. *
- *************************************************************/
-
- /* ------------------------------------------------------------------------
- * Function: basictrans_help()
- *
- * Description: Interpret, translate if required, and print HELP messages
- *
- * Input: help_text - value of R0 on entry
- * prog_name - value of R1 on entry
- * lexical_table - value of R2 on entry
- *
- * Output: unclaimed - value of R1 on exit (X version only)
- *
- * Returns: R1 (non-X version only)
- *
- * Other notes: Calls SWI 0x42C80.
- */
-
- extern os_error *xbasictrans_help (char *help_text,
- char *prog_name,
- byte *lexical_table,
- bool *unclaimed);
- extern bool basictrans_help (char *help_text,
- char *prog_name,
- byte *lexical_table);
-
- /* ------------------------------------------------------------------------
- * Function: basictrans_error()
- *
- * Description: Copy translated error string to buffer
- *
- * Input: error_no - value of R0 on entry
- * error_buffer - value of R1 on entry
- *
- * Other notes: Calls SWI 0x42C81.
- */
-
- extern os_error *xbasictrans_error (int error_no,
- os_error *error_buffer);
- extern void basictrans_error (int error_no,
- os_error *error_buffer);
-
- /* ------------------------------------------------------------------------
- * Function: basictrans_message()
- *
- * Description: Translate and print miscellaneous message
- *
- * Input: message_no - value of R0 on entry
- * arg0 - value of R1 on entry
- * arg1 - value of R2 on entry
- * arg2 - value of R3 on entry
- *
- * Other notes: Calls SWI 0x42C82.
- */
-
- extern os_error *xbasictrans_message (int message_no,
- int arg0,
- int arg1,
- int arg2);
- extern void basictrans_message (int message_no,
- int arg0,
- int arg1,
- int arg2);
-
- #ifdef __cplusplus
- }
- #endif
-
- #endif
-