1 PACKAGE drithsx AS
2
3 type exp_rec is record (
4 xrel varchar2(12),
5 xlevel number,
6 xphrase varchar2(256)
7 );
8 type exp_tab is table of exp_rec index by binary_integer;
9
10 pv_exp_tab exp_tab;
11
12 /*---------------------------------- expand ----------------------------*/
13 /*
14 NAME
15 expand
16
17 DESCRIPTION
18 generic thesaurus query expansion function
19
20 ARGUMENTS
21 err - error return code
22 op - operation. Must be one of:
23 SYN, PT, TT, RT, BT, BTP, BTI, BTG, NT, NTP,
24 NTI, NTG, TR, TRSYN
25 phrase - phrase
26 level - level limit for BT* / NT*, language for TR*
27 tname - thesaurus name
28 restab - restab mode?
29
30 NOTES
31 */
32
33 function expand(
34 err out number,
35 op in varchar2,
36 phrase in varchar2,
37 lvl in varchar2 default null,
38 tname in varchar2 default 'DEFAULT',
39 restab in boolean default FALSE
40 ) return varchar2;
41
42 function expand0(
43 err out number,
44 op in varchar2,
45 phrase in varchar2,
46 tname in varchar2 default 'DEFAULT'
47 ) return varchar2;
48
49 /*------------------------------- output_style -------------------------*/
50 /*
51 NAME
52 output_style
53
54 DESCRIPTION
55 set the output style for the expansion functions
56
57 ARGUMENTS
58 showlevel -- show level in bt/nt expansions
59 showqualify -- show phrase qualifiers
60 showpt -- show preferred terms with *
61 showid -- show phrase ids
62
63 NOTES
64 level is a number then a colon at the start of the phrase
65 pt is an asterisk then a colon at the start of the phrase
66 id is a colon, then the id at the end of the phrase
67 qualify is in parens after a space at the end of the phrase
68 but before id
69
70 example:
71
72 preferred term
73 |
74 | phrase
75 | |
76 | | qualifier
77 | | |
78 | | | phraseid
79 | | | |
80 V V V V
81 {*:TURKEY (BIRD):1234}
82
83 RETURN
84 */
85 PROCEDURE output_style (
86 showlevel in boolean default false
87 , showqualify in boolean default false
88 , showpt in boolean default false
89 , showid in boolean default false
90 );
91
92 /*------------------------------- sn -----------------------------------*/
93
94 function sn(phrase in varchar2,
95 tname in varchar2 default 'DEFAULT',
96 i in number default '1')
97 return varchar2;
98
99 /*------------------------------- ttt -----------------------------------*/
100
101 procedure ttt(tname in varchar2 default 'DEFAULT');
102
103 end drithsx;