如何创建语言辅助函数呢

下面是生成一个数字拼写版本所需的代码。这里我将按照基数来（比如1、2和3）；而事实上，这些函数可以通过为每种语言列出更多异常和模式来生成序数（第1、第2、第三）和复数版本。

REM -- create a table of base words and exceptions

create or replace package genword

as

function get_word(n number) return varchar2;

function cardinal(n number) return varchar2;

end genword;

/

不给任何赔偿。　　张女士认为 show errors;

create or replace package body genword

as

function get_word(n number) return varchar2

is

l_rd%type;

begin

select word into l_word from numwords

where lang = sys_context(\'userenv\',\'lang\') and num = n;

return l_word;

exception

when no_data_found then

return null;

end;

--

function cardinal(n number) return varchar2

is

p number;　　　 -- power

t varchar2(30); -- template

v number;　　　 -- lower portion

l_word　　　rd%type;

begin

if n 0 then

l_word := get_word(-1);

if l_word is null then

return null;

end if;

return l_word||\' \'||cardinal(-n);

end if;

l_word　:= get_word(n);

if l_word is not null then

return l_word;

end if;

for row in

(

select * from numrules

where lang = sys_context(\'userenv\',\'lang\')

order by seq

)

loop

if length(n) = row.p1 + row.p2 then

p := power(10,row.p2);

v := mod(n,p);

if q = 0 then

if n 20 then

return replace(mp0,\'~2\',cardinal(v));

end if;

else

if v = 0 then

return replace(mp0,\'~1\',cardinal(n/p));

else

return replace(replace(nvl(mp,\'~1 ~2\'),

\'~1\',cardinal(n-v)),

\'~2\',cardinal(v));

end if;

end if;

end if;

end loop;

return \'NUMBER TOO LARGE\';

end cardinal;

end genword;

/

show errors;