4 * [Generated from msgs, 25 September 1996]
7 #if !defined(__CC_NORCROFT) || !defined(__arm)
8 #error You must use the Norcroft ARM Compiler for Sapphire programs
11 #pragma include_only_once
12 #pragma force_top_level
21 /*----- Overview ----------------------------------------------------------*
32 /* --- msgs_load --- *
34 * On entry: R0 == pointer to filename
36 * On exit: May return an error
38 * Use: Reads in the given messages file.
41 extern routine msgs_load;
43 /* --- msgs_build --- *
45 * On entry: R0 == pointer to a message string
46 * R1 == pointer to output buffer
48 * On exit: R0 == pointer to buffer (R1 on entry)
49 * R1 == pointer to terminating null
51 * Use: Builds a message string, by substituting message references
52 * by their values. Each reference of the form `$tag' (or
53 * optionally `$(tag)', to avoid having to have a trailing)
54 * space is replaced by the actual message. A literal `$' sign
55 * may be represented as `$$'.
58 extern routine msgs_build;
60 /* --- msgs_error --- *
62 * On entry: R0 == pointer to an error skeleton string:
63 * R0+0 == error number
64 * R0+4 == message tag-and-default (null-terminated)
65 * R2-R11 == filler strings (not message tags)
67 * On exit: R0 == pointer to translated error message (in error buffer)
68 * R1 == pointer to null terminator of message
70 * Use: Performs string sustitution on an error message (as done by
71 * str_subst), but translating the error string.
74 extern routine msgs_error;
76 /* --- msgs_lookup --- *
78 * On entry: R0 == message tag (and default message)
80 * On exit: R0 == pointer to located message
82 * Use: Returns the real message from its tag. If the tag does not
83 * exist, then the default message is used. If that is not
84 * supplied, then the tag name itself is returned (ie. R0
88 extern routine msgs_lookup;
90 /* --- msgs_init --- *
96 * Use: Initialises the message system.
99 extern routine msgs_init;
101 /*----- That's all, folks -------------------------------------------------*/