File: check_digest.inc

package info (click to toggle)
mariadb 1%3A11.8.3-1
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 772,520 kB
  • sloc: ansic: 2,414,714; cpp: 1,791,394; asm: 381,336; perl: 62,905; sh: 49,647; pascal: 40,897; java: 39,363; python: 20,791; yacc: 20,432; sql: 17,907; xml: 12,344; ruby: 8,544; cs: 6,542; makefile: 6,145; ada: 1,879; lex: 1,193; javascript: 996; objc: 80; tcl: 73; awk: 46; php: 22
file content (34 lines) | stat: -rw-r--r-- 797 bytes parent folder | download | duplicates (2) 
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
 
#
# check_digest() checks digests validity from performance_schema.events_statements_summary_by_digest
#

--disable_query_log
create table test._digests(d varchar(32) primary key);

delimiter ~~;
create function test.check_digest(digest varchar(255))
returns tinyint
not deterministic
begin
  declare digest_exists tinyint;
  if length(digest) != 32 or conv(digest, 16, 10) = 0 then
    return 0;
  end if;
  select exists (select d from test._digests where d = digest) into digest_exists;
  if digest_exists then
    return 0;
  end if;
  #insert into test._digests values (digest);
  return 1;
end~~

create procedure test.reset_digests()
begin
  delete from test._digests;
end~~
delimiter ;~~

--disable_result_log
call sys.ps_truncate_all_tables(false);
--enable_result_log
--enable_query_log