Convert package to function..

Question

can anyone convert this package to function so that we can use it in sql command..
{color:#993300}create or replace package metaphone
is
function generate(s varchar2) return varchar2;
end metaphone;
show errors;{color}
{color:#993300}create or replace package body metaphone
is
type rule_rec is record
f_off integer,
f_match varchar2(10),
f_result varchar2(10)
type rule_tab is table of rule_rec index by binary_integer;
g_rules rule_tab;
g_vowels constant varchar2(5) := 'AEIOU';
function cmp_rule
p_rule rule_rec,
p_off pls_integer,
p_str varchar2
) return boolean;
function generate(s varchar2) return varchar2
is
l_s varchar2(32767);
l_r varchar2(32767);
begin
-- get rid of non-alpha characters
for i in 1..length(s) loop
if upper(substr(s,i,1)) between 'A' and 'Z' then
l_s := l_s || upper(substr(s,i,1));
end if;
end loop;
if l_s is null then
return null;
end if;
-- clean up the word a bit
if l_s like 'AE%' or l_s like 'GN%' or l_s like 'KN%'
or l_s like 'PN%' or l_s like 'WR%'
then
l_s := substr(l_s,2); -- drop first letter
elsif l_s like 'X%' then
l_s := 'S' || substr(l_s,2); -- change to S
elsif l_s like 'WH%' then
l_s := 'W' || substr(l_s,2); -- change to W
end if;
for i in 1..length(l_s) loop
if i > 1 and substr(l_s,i-1,1) = substr(l_s,i,1)
and substr(l_s,i,1) != 'C'
then
-- drop the second of doubled letter except C
null;
elsif instr(g_vowels,substr(l_s,i,1)) > 0 then
-- ignore all except initial vowels
if i = 1 then
l_r := l_r || substr(l_s,i,1);
end if;
elsif substr(l_s,i,2) = 'GH'
and i < length(l_s)-2
and instr(g_vowels,substr(l_s,i+1,1)) = 0
then
-- a difficult rule:
-- silent if in "gh" and not at end or before a vowel
null;
else
-- scan for word patterns
for r in 1..g_rules.count loop
if cmp_rule(g_rules(r),i,l_s) then
l_r := l_r || g_rules(r).f_result;
exit;
end if;
end loop;
end if;
end loop;
return l_r;
end generate;
procedure add_rule(p_off integer,p_match varchar2,p_result varchar2)
is
l_rule_rec rule_rec;
begin
l_rule_rec.f_off := p_off;
l_rule_rec.f_match := p_match;
l_rule_rec.f_result := p_result;
g_rules(g_rules.count+1) := l_rule_rec;
end add_rule;
function cmp_rule
p_rule rule_rec,
p_off pls_integer,
p_str varchar2
) return Boolean
is
ch1 char;
ch2 char;
begin
if p_rule.f_match like '%c%' or p_rule.f_match like '%v%' then
for i in 1..length(p_rule.f_match) loop
ch1 := substr(p_rule.f_match,i,1);
ch2 := substr(p_str,p_off+p_rule.f_off+i,1);
if ch2 is null then
return false;
end if;
if ch1 = 'v' then
if instr(g_vowels,ch2) = 0 then
return false;
end if;
elsif ch1 = 'c' then
if instr(g_vowels,ch2) != 0 then
return false;
end if;
elsif ch1 != ch2 then
return false;
end if;
end loop;
return true;
end if;
if p_off <= -p_rule.f_off then
return false;
end if;
return p_rule.f_match
= substr(p_str,p_off+p_rule.f_off,length(p_rule.f_match));
end cmp_rule;
begin
-- initialize the rules table
-- order is important
add_rule(-1,'MB',null);
add_rule(0,'B','B');
add_rule(0,'CIA','X');
add_rule(0,'CH','X');
add_rule(0,'CI','S');
add_rule(0,'CE','S');
add_rule(0,'CY','S');
add_rule(0,'C','K');
add_rule(0,'DGE','J');
add_rule(0,'DGY','J');
add_rule(0,'DGI','J');
add_rule(0,'D','T');
add_rule(0,'F','F');
add_rule(0,'GN',null);
add_rule(0,'GNED',null);
add_rule(0,'GI','J');
add_rule(0,'GE','J');
add_rule(0,'GY','J');
add_rule(0,'G','K');
add_rule(-1,'vHc',null);
add_rule(-1,'CH',null);
add_rule(-1,'PH',null);
add_rule(-1,'SH',null);
add_rule(-1,'TH',null);
add_rule(0,'H','H');
add_rule(0,'J','J');
add_rule(-1,'CK',null);
add_rule(0,'K','K');
add_rule(0,'L','L');
add_rule(0,'M','M');
add_rule(0,'N','N');
add_rule(0,'PH','F');
add_rule(0,'P','P');
add_rule(0,'Q','K');
add_rule(0,'R','R');
add_rule(0,'SH','X');
add_rule(0,'SIO','X');
add_rule(0,'SIA','X');
add_rule(0,'S','S');
add_rule(0,'TIA','X');
add_rule(0,'TIO','X');
add_rule(0,'TH','0');
add_rule(0,'TCH',null);
add_rule(0,'T','T');
add_rule(0,'V','F');
add_rule(0,'Wv','W');
add_rule(0,'W',null);
add_rule(0,'X','KS');
add_rule(0,'Yv','Y');
add_rule(0,'Y',null);
add_rule(0,'Z','S');
end metaphone;
show errors;{color}
{color:#993300}source
http://www.zdnetasia.com/builder/architect/db/0,39044553,39200579,00.htm
Regards
venkat...
{color}

Answer 1

Its already a function. Only thing is that its within a package. So you can just use it in SQL like this.
SELECT package_name.function_name FROM dual;See below...
SQL> create or replace package metaphone
  2  is
  3      function generate(s varchar2) return varchar2;
  4  end metaphone;
  5  /
Package created.
SQL> show errors;
No errors.
SQL>
SQL> create or replace package body metaphone
  2  is
  3      type rule_rec is record
  4      (
  5          f_off       integer,
  6          f_match     varchar2(10),
  7          f_result    varchar2(10)
  8      );
  9      type rule_tab is table of rule_rec index by binary_integer;
10      g_rules rule_tab;
11      g_vowels constant varchar2(5) := 'AEIOU';
12      --
13      function cmp_rule
14      (
15          p_rule rule_rec,
16          p_off pls_integer,
17          p_str varchar2
18      ) return boolean;
19      --
20      function generate(s varchar2) return varchar2
21      is
22          l_s varchar2(32767);
23          l_r varchar2(32767);
24      begin
25          -- get rid of non-alpha characters
26          for i in 1..length(s) loop
27              if upper(substr(s,i,1)) between 'A' and 'Z' then
28                  l_s := l_s || upper(substr(s,i,1));
29              end if;
30          end loop;
31          if l_s is null then
32              return null;
33          end if;
34          -- clean up the word a bit
35          if l_s like 'AE%' or l_s like 'GN%' or l_s like 'KN%'
36          or l_s like 'PN%' or l_s like 'WR%'
37          then
38              l_s := substr(l_s,2);           -- drop first letter
39          elsif l_s like 'X%' then
40              l_s := 'S' || substr(l_s,2);    -- change to S
41          elsif l_s like 'WH%' then
42              l_s := 'W' || substr(l_s,2);    -- change to W
43          end if;
44          for i in 1..length(l_s) loop
45              if i > 1 and substr(l_s,i-1,1) = substr(l_s,i,1)
46                  and substr(l_s,i,1) != 'C'
47              then
48                  -- drop the second of doubled letter except C
49                  null;
50              elsif instr(g_vowels,substr(l_s,i,1)) > 0 then
51                  -- ignore all except initial vowels
52              if i = 1 then
53                  l_r := l_r || substr(l_s,i,1);
54              end if;
55              elsif substr(l_s,i,2) = 'GH'
56                  and i < length(l_s)-2
57                  and instr(g_vowels,substr(l_s,i+1,1)) = 0
58              then
59                  -- a difficult rule:
60                  -- silent if in "gh" and not at end or before a vowel
61                  null;
62              else
63                  -- scan for word patterns
64                  for r in 1..g_rules.count loop
65                      if cmp_rule(g_rules(r),i,l_s) then
66                          l_r := l_r || g_rules(r).f_result;
67                          exit;
68                      end if;
69                  end loop;
70              end if;
71          end loop;
72          return l_r;
73      end generate;
74      --
75      procedure add_rule(p_off integer,p_match varchar2,p_result varchar2)
76      is
77          l_rule_rec  rule_rec;
78      begin
79          l_rule_rec.f_off := p_off;
80          l_rule_rec.f_match := p_match;
81          l_rule_rec.f_result := p_result;
82          g_rules(g_rules.count+1) := l_rule_rec;
83      end add_rule;
84      --
85      function cmp_rule
86      (
87          p_rule rule_rec,
88          p_off pls_integer,
89          p_str varchar2
90      ) return Boolean
91      is
92          ch1 char;
93          ch2 char;
94      begin
95          if p_rule.f_match like '%c%' or p_rule.f_match like '%v%' then
96              for i in 1..length(p_rule.f_match) loop
97                  ch1 := substr(p_rule.f_match,i,1);
98                  ch2 := substr(p_str,p_off+p_rule.f_off+i,1);
99                  if ch2 is null then
100                      return false;
101                  end if;
102                  if ch1 = 'v' then
103                      if instr(g_vowels,ch2) = 0 then
104                          return false;
105                      end if;
106                  elsif ch1 = 'c' then
107                      if instr(g_vowels,ch2) != 0 then
108                          return false;
109                      end if;
110                  elsif ch1 != ch2 then
111                      return false;
112                  end if;
113              end loop;
114              return true;
115          end if;
116          if p_off <= -p_rule.f_off then
117              return false;
118          end if;
119          return p_rule.f_match
120                  = substr(p_str,p_off+p_rule.f_off,length(p_rule.f_match));
121      end cmp_rule;
122  begin
123      -- initialize the rules table
124      -- order is important
125      add_rule(-1,'MB',null);
126      add_rule(0,'B','B');
127      add_rule(0,'CIA','X');
128      add_rule(0,'CH','X');
129      add_rule(0,'CI','S');
130      add_rule(0,'CE','S');
131      add_rule(0,'CY','S');
132      add_rule(0,'C','K');
133      add_rule(0,'DGE','J');
134      add_rule(0,'DGY','J');
135      add_rule(0,'DGI','J');
136      add_rule(0,'D','T');
137      add_rule(0,'F','F');
138      add_rule(0,'GN',null);
139      add_rule(0,'GNED',null);
140      add_rule(0,'GI','J');
141      add_rule(0,'GE','J');
142      add_rule(0,'GY','J');
143      add_rule(0,'G','K');
144      add_rule(-1,'vHc',null);
145      add_rule(-1,'CH',null);
146      add_rule(-1,'PH',null);
147      add_rule(-1,'SH',null);
148      add_rule(-1,'TH',null);
149      add_rule(0,'H','H');
150      add_rule(0,'J','J');
151      add_rule(-1,'CK',null);
152      add_rule(0,'K','K');
153      add_rule(0,'L','L');
154      add_rule(0,'M','M');
155      add_rule(0,'N','N');
156      add_rule(0,'PH','F');
157      add_rule(0,'P','P');
158      add_rule(0,'Q','K');
159      add_rule(0,'R','R');
160      add_rule(0,'SH','X');
161      add_rule(0,'SIO','X');
162      add_rule(0,'SIA','X');
163      add_rule(0,'S','S');
164      add_rule(0,'TIA','X');
165      add_rule(0,'TIO','X');
166      add_rule(0,'TH','0');
167      add_rule(0,'TCH',null);
168      add_rule(0,'T','T');
169      add_rule(0,'V','F');
170      add_rule(0,'Wv','W');
171      add_rule(0,'W',null);
172      add_rule(0,'X','KS');
173      add_rule(0,'Yv','Y');
174      add_rule(0,'Y',null);
175      add_rule(0,'Z','S');
176  end metaphone;
177  /
Package body created.
SQL> select metaphone.generate('stephens') from dual
  2  /
METAPHONE.GENERATE('STEPHENS')
STFNSEdited by: Karthick_Arp on Jan 14, 2009 11:29 PM