@taopao/memoir 0.0.0-stage → 0.1.0

package/assets/migrations-pg/0101_functions.sql

@@ -0,0 +1,93 @@
+-- 日历、身份匹配与目录查询函数；所有业务时间仍按原来的文本格式返回。
+CREATE TABLE vault_lunar_calendar (
+  solar_date text PRIMARY KEY,
+  lunar_year bigint NOT NULL,
+  lunar_month bigint NOT NULL,
+  lunar_day bigint NOT NULL,
+  leap smallint NOT NULL CHECK (leap IN (0,1)),
+  zodiac text NOT NULL,
+  UNIQUE(lunar_year,lunar_month,lunar_day,leap)
+);
+CREATE TABLE vault_meta (id bigint PRIMARY KEY CHECK(id=1), data_version bigint NOT NULL DEFAULT 0, migration_state text NOT NULL DEFAULT 'ready');
+INSERT INTO vault_meta(id) VALUES(1);
+CREATE TABLE vault_migration_sources (id text PRIMARY KEY, metadata_json text NOT NULL CHECK(vault_json_valid(metadata_json)), completed smallint NOT NULL DEFAULT 0 CHECK(completed IN(0,1)));
+
+CREATE FUNCTION vault_today() RETURNS text LANGUAGE sql STABLE AS $$ SELECT coalesce(nullif(current_setting('vault.today',true),''),to_char(now() AT TIME ZONE 'Asia/Shanghai','YYYY-MM-DD')) $$;
+CREATE FUNCTION vault_lunar_year(value text) RETURNS bigint LANGUAGE sql STABLE AS $$ SELECT lunar_year FROM vault_lunar_calendar WHERE solar_date=value $$;
+CREATE FUNCTION vault_zodiac(value text) RETURNS text LANGUAGE sql STABLE AS $$ SELECT zodiac FROM vault_lunar_calendar WHERE solar_date=value $$;
+CREATE FUNCTION vault_chinese_number(value text) RETURNS bigint LANGUAGE plpgsql IMMUTABLE AS $$
+DECLARE digits text := '一二三四五六七八九'; parts text[]; item text; total bigint;
+BEGIN
+ IF value ~ '^\d+$' THEN RETURN value::bigint; END IF;
+ IF value='正' THEN RETURN 1; ELSIF value='冬' THEN RETURN 11; ELSIF value IN('腊','臘') THEN RETURN 12; END IF;
+ item := regexp_replace(replace(replace(value,'廿','二十'),'卅','三十'),'^初','');
+ IF item='十' THEN RETURN 10; END IF;
+ IF strpos(item,'十')>0 THEN
+   parts:=string_to_array(item,'十');
+   IF (parts[1]<>'' AND (length(parts[1])<>1 OR strpos(digits,parts[1])=0)) OR (parts[2]<>'' AND (length(parts[2])<>1 OR strpos(digits,parts[2])=0)) THEN RETURN NULL; END IF;
+   RETURN (CASE WHEN parts[1]='' THEN 1 ELSE strpos(digits,parts[1]) END)*10 + CASE WHEN parts[2]='' THEN 0 ELSE strpos(digits,parts[2]) END;
+ END IF;
+ IF length(item)=1 AND strpos(digits,item)>0 THEN RETURN strpos(digits,item); END IF;
+ RETURN NULL;
+END $$;
+CREATE FUNCTION vault_calendar_date(calendar text, value text, wanted_year bigint) RETURNS text LANGUAGE plpgsql STABLE AS $$
+DECLARE text_value text; parts text[]; y bigint; m bigint; d bigint; is_leap smallint;
+BEGIN
+ IF calendar IS NULL OR value IS NULL THEN RETURN NULL; END IF;
+ IF calendar='solar' THEN
+   IF value !~ '^\d{4}-\d{2}-\d{2}$' OR NOT pg_input_is_valid(value,'date') THEN RETURN NULL; END IF;
+   IF wanted_year IS NULL THEN RETURN value; END IF;
+   text_value:=wanted_year::text||substr(value,5);
+   IF text_value !~ '^\d{4}-\d{2}-\d{2}$' OR NOT pg_input_is_valid(text_value,'date') THEN RETURN NULL; END IF;
+   RETURN text_value;
+ END IF;
+ IF calendar<>'lunar' THEN RETURN NULL; END IF;
+ text_value:=regexp_replace(regexp_replace(trim(value),'^(农历|農曆)\s*',''),'\s+','','g');
+ parts:=regexp_match(text_value,'^(?:(\d{4})[-/年])?(闰|閏)?(\d{1,2})[-/月](\d{1,2})(?:日)?$');
+ IF parts IS NULL THEN parts:=regexp_match(text_value,'^(?:(\d{4})年)?(闰|閏)?([正冬腊臘一二三四五六七八九十]+)月([初廿卅一二三四五六七八九十]+)(?:日)?$'); END IF;
+ IF parts IS NULL THEN RETURN NULL; END IF;
+ y:=coalesce(wanted_year,parts[1]::bigint);m:=vault_chinese_number(parts[3]);d:=vault_chinese_number(parts[4]);is_leap:=CASE WHEN parts[2] IS NULL THEN 0 ELSE 1 END;
+ IF y IS NULL OR y<1900 OR y>2100 OR m<1 OR m>12 OR d<1 OR d>30 THEN RETURN NULL; END IF;
+ RETURN (SELECT solar_date FROM vault_lunar_calendar WHERE lunar_year=y AND lunar_month=m AND lunar_day=d AND leap=is_leap);
+END $$;
+CREATE FUNCTION vault_identity_match(mode text, value text, subject text) RETURNS bigint LANGUAGE plpgsql IMMUTABLE AS $$
+BEGIN
+ IF value IS NULL OR subject IS NULL THEN RETURN 0; END IF;
+ IF mode='exact' THEN RETURN (subject=value)::int; END IF;
+ IF mode='contains' THEN RETURN (strpos(subject,value)>0)::int; END IF;
+ IF mode='regex' THEN BEGIN RETURN (subject ~ value)::int; EXCEPTION WHEN invalid_regular_expression THEN RETURN 0; END; END IF;
+ RETURN 0;
+END $$;
+CREATE FUNCTION vault_json_extract(value text, path text) RETURNS text LANGUAGE sql IMMUTABLE AS $$ SELECT value::jsonb #>> string_to_array(substr(path,3),'.') $$;
+
+-- 为已有用户 SQL 和元数据查询提供明确的目录适配，业务表不混入此目录。
+CREATE VIEW vault_schema_objects AS
+ SELECT CASE c.relkind WHEN 'v' THEN 'view' ELSE 'table' END::text AS type,c.relname::text AS name,c.relname::text AS tbl_name,
+ CASE WHEN c.relkind='v' THEN pg_get_viewdef(c.oid,true) ELSE NULL END::text AS sql
+ FROM pg_class c JOIN pg_namespace n ON n.oid=c.relnamespace WHERE n.nspname='public' AND c.relkind IN('r','v') AND c.relname NOT LIKE 'vault_%'
+ UNION ALL
+ SELECT 'trigger',t.tgname::text,c.relname::text,pg_get_triggerdef(t.oid)::text FROM pg_trigger t JOIN pg_class c ON c.oid=t.tgrelid JOIN pg_namespace n ON n.oid=c.relnamespace WHERE NOT t.tgisinternal AND n.nspname='public';
+CREATE VIEW vault_table_list AS SELECT 'main'::text AS schema,name,type FROM vault_schema_objects WHERE type IN('table','view');
+CREATE FUNCTION vault_table_info(table_name text) RETURNS TABLE(cid bigint,name text,type text,"notnull" bigint,dflt_value text,pk bigint) LANGUAGE sql STABLE AS $$
+ SELECT a.attnum::bigint-1,a.attname::text,format_type(a.atttypid,a.atttypmod),a.attnotnull::int::bigint,pg_get_expr(d.adbin,d.adrelid),coalesce(array_position(i.indkey::smallint[],a.attnum)+1,0)::bigint
+ FROM pg_attribute a JOIN pg_class c ON c.oid=a.attrelid JOIN pg_namespace n ON n.oid=c.relnamespace
+ LEFT JOIN pg_index i ON i.indrelid=c.oid AND i.indisprimary LEFT JOIN pg_attrdef d ON d.adrelid=c.oid AND d.adnum=a.attnum
+ WHERE n.nspname='public' AND c.relname=table_name AND a.attnum>0 AND NOT a.attisdropped ORDER BY a.attnum
+$$;
+
+-- SQLite JSON 表函数的文本接口用于旧视图，PG 仍使用原生 JSON 执行。
+CREATE FUNCTION json_extract_path_text(value text, VARIADIC path text[]) RETURNS text LANGUAGE sql IMMUTABLE AS $$ SELECT value::jsonb #>> path $$;
+CREATE FUNCTION json_each(json_input text) RETURNS TABLE(key text,value text) LANGUAGE plpgsql IMMUTABLE AS $$
+DECLARE parsed jsonb:=json_input::jsonb;
+BEGIN
+ IF jsonb_typeof(parsed)='array' THEN RETURN QUERY SELECT (ord-1)::text, CASE WHEN jsonb_typeof(element)='string' THEN element #>> '{}' ELSE element::text END FROM jsonb_array_elements(parsed) WITH ORDINALITY AS a(element,ord);
+ ELSIF jsonb_typeof(parsed)='object' THEN RETURN QUERY SELECT k,CASE WHEN jsonb_typeof(v)='string' THEN v #>> '{}' ELSE v::text END FROM jsonb_each(parsed) AS a(k,v);
+ END IF;
+END $$;
+CREATE FUNCTION julianday(value text) RETURNS double precision LANGUAGE sql IMMUTABLE AS $$ SELECT CASE WHEN pg_input_is_valid(value,'timestamp') THEN extract(epoch FROM value::timestamp)/86400.0+2440587.5 END $$;
+CREATE FUNCTION public.date(value text) RETURNS text LANGUAGE sql IMMUTABLE AS $$ SELECT CASE WHEN pg_input_is_valid(substr(value,1,10),'date') THEN substr(value,1,10) END $$;
+CREATE FUNCTION public.date(value text, modifier text) RETURNS text LANGUAGE sql IMMUTABLE AS $$ SELECT CASE WHEN pg_input_is_valid(substr(value,1,10),'date') AND modifier ~ '^[+-]?[0-9]+ days?$' THEN to_char(substr(value,1,10)::date + split_part(modifier,' ',1)::int,'YYYY-MM-DD') END $$;
+CREATE FUNCTION json_type(value text) RETURNS text LANGUAGE sql IMMUTABLE AS $$ SELECT CASE jsonb_typeof(value::jsonb) WHEN 'string' THEN 'text' WHEN 'number' THEN CASE WHEN value ~ '^\s*[+-]?[0-9]+\s*$' THEN 'integer' ELSE 'real' END WHEN 'boolean' THEN value::jsonb::text ELSE jsonb_typeof(value::jsonb) END $$;
+-- 录音逐句时间保留毫秒格式，与 SQLite strftime('%f') 的输出一致。
+CREATE FUNCTION printf(pattern text, value numeric) RETURNS text LANGUAGE sql IMMUTABLE AS $$ SELECT CASE WHEN pattern='+%.3f seconds' THEN '+'||to_char(value,'FM9999999990.000')||' seconds' ELSE replace(pattern,'%d',value::bigint::text) END $$;
+CREATE FUNCTION strftime(pattern text, value text, modifier text) RETURNS text LANGUAGE sql IMMUTABLE AS $$ SELECT CASE WHEN pattern='%Y-%m-%d %H:%M:%f' THEN to_char(value::timestamp+modifier::interval,'YYYY-MM-DD HH24:MI:SS.MS') END $$;