1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
CREATE OR REPLACE FUNCTION package_id(atom varchar, OUT id integer) AS $$
DECLARE
c varchar;
p varchar;
BEGIN
c := category_name(atom);
p := package_name(atom);
id := package_id(c, p);
END;
$$ language plpgsql;
CREATE OR REPLACE FUNCTION category_id(atom varchar, OUT i integer) AS $$
DECLARE c varchar;
BEGIN
c := category_name(atom);
i := id FROM category WHERE name = c;
END;
$$ language plpgsql;
CREATE OR REPLACE FUNCTION category_name (str varchar, OUT v varchar) AS $$ BEGIN IF POSITION('/' IN str) > 0 THEN
v := regexp_replace(str, E'^(!{1,2})?(>|<)?(~|=)?', '');
v := regexp_replace(v, E'/.*', '');
ELSE
v := str;
END IF;
END;
$$ language plpgsql;
CREATE OR REPLACE FUNCTION package_name(str varchar, OUT package_name varchar) AS $$
BEGIN
package_name := str;
IF POSITION('/' IN str) > 0 THEN
package_name := regexp_replace(package_name, E'^(!{1,2})?(>|<)?(~|=)?.*/', '');
END IF;
IF POSITION('*' IN package_name) > 0 THEN
package_name := regexp_replace(package_name, E'\\*.*$', '');
END IF;
IF POSITION(':' IN package_name) > 0 THEN
package_name := regexp_replace(package_name, E':.+$', '');
END IF;
IF POSITION('[' IN package_name) > 0 THEN
package_name := regexp_replace(package_name, E'\\[.+$', '');
END IF;
package_name := regexp_replace(package_name, E'-\\d+((\.\\d+)+)?([a-z])?((_(alpha|beta|pre|rc|p)\\d*)+)?(-r\\d+)?(:.+)?([.+])?$', '');
END;
$$ language plpgsql;
|
GitWeb
