|
111
|
1 typedef int SLONG;
|
|
|
2 typedef char SCHAR;
|
|
|
3 typedef short SSHORT;
|
|
|
4 typedef char TEXT;
|
|
|
5 typedef long ISC_STATUS;
|
|
|
6 const SLONG gds_arg_string = 2;
|
|
|
7 const SLONG gds_sys_request = 335544373L;
|
|
|
8 enum jrd_blk_t
|
|
|
9 {
|
|
|
10 type_str, type_dcc, type_sbm, type_smb, type_blb, type_irb, type_jrn
|
|
|
11 };
|
|
|
12 struct blk
|
|
|
13 {
|
|
|
14 };
|
|
|
15 template < class RPT, SSHORT BLOCK_TYPE = 0 > class pool_alloc_rpt:public blk
|
|
|
16 {
|
|
|
17 };
|
|
|
18 class jrn:public pool_alloc_rpt < SCHAR, type_jrn >
|
|
|
19 {
|
|
|
20 public:ISC_STATUS * jrn_status_vector;
|
|
|
21 TEXT jrn_server[1];
|
|
|
22 };
|
|
|
23 typedef jrn *JRN;
|
|
|
24 extern void IBERR_build_status (ISC_STATUS *, ISC_STATUS, ...);
|
|
|
25 static void
|
|
|
26 error (ISC_STATUS * status_vector, JRN journal, int status, TEXT * string)
|
|
|
27 {
|
|
|
28 IBERR_build_status (status_vector, gds_sys_request, gds_arg_string, string,
|
|
|
29 gds_arg_string, (journal) ? journal->jrn_server : "",
|
|
|
30 0);
|
|
|
31 }
|
