Диаграммы классов UML из PostgreSQL. Часть первая

COPY (SELECT unnest FROM unnest(ARRAY[umlfn_Table_FromArray(a_SchemaName::VARCHAR, a_TableNameArray, FALSE,a_Mode)])) TO  ''' || a_OutputFile||'plantuml_'||TO_CHAR(current_date, 'YYYY-MM-DD')|| CASE a_Mode WHEN 'PlantTest' THEN '_classic' ELSE '' END||'.txt'''; 

v_PlantUML_Script:= umlfn_Table_FromArray(a_SchemaName::VARCHAR, a_TableNameArray, FALSE,a_Mode); v_PlantUML_Script:= ''''||REPLACE(v_PlantUML_Script,CHR(13)||CHR(10),''', ''')||''''; COPY (SELECT unnest FROM unnest(ARRAY[v_PlantUML_Script])) TO  ''' || a_OutputFile||'plantuml_'||TO_CHAR(current_date, 'YYYY-MM-DD')|| CASE a_Mode WHEN 'PlantTest' THEN '_classic' ELSE '' END||'.txt'''; 

SELECT umlpr_TablesScipt_FromArray (admfn_Table_TableNameArray(a_SchemaName,a_WHEREoption), a_OutputFolder, a_SchemaName,v_Mode);

SELECT INTO v_TableGroupScript, v_TableGroupLegendScript STRING_AGG (umlfn_Table_Script(a_SchemaName,tbl.relname,FALSE,cnfn_Table_LowerName(a_TableNameArray),'') AS v_TableGroupScript  '''legend center'''||CHR(13)||CHR(10)||'''<b><i><u>ТАБЛИЦЫ</u></i></b>'''|| CHR(13)||CHR(10)||''' '''|| CHR(13)||CHR(10)|| STRING_AGG (quote_literal('<b>'||UPPER(ftbl.relname)||'</b>'||'- '||COALESCE(dsc.description,''))|| CHR(13)||CHR(10),'')|| '''endlegend'''|| CHR(13)||CHR(10) AS v_TableGroupLegendScript FROM pg_class tbl  INNER JOIN pg_namespace nsp ON tbl.relnamespace = nsp.oid  LEFT OUTER JOIN pg_Description dsc ON tbl.oid=dsc.objoid AND dsc.objsubid=0 WHERE LOWER(nsp.nspname)=LOWER(a_SchemaName) AND tbl.relkind='r' AND tbl.relname !~* E'(raster_|spatial_|geometry_|geography_)'  AND ARRAY[LOWER(tbl.relname)::TEXT] <@ cnfn_Array_LowerCase(a_TableNameArray)::TEXT[] 

v_TableLinksScript:=umlfn_Table_LinksFromArray(a_SchemaName, a_TableNameArray); v_TableGroupScript:=v_TableGroupScript ||COALESCE(v_TableLinksScript,'') ||v_TableGroupLegendScript||v_TableGroupScriptSuffix; 

Таблица 5 демонстрирует PlantUML-скрипт как набор подстрок, расположенных сверху вниз. В тоже время, в теле хранимых функций и процедур эти подстроки образуют значение одной текстовой (TEXT) переменной, в которой они разделены символами конца строки (CHR(13) — «Возврат каретки» и CHR(10) — «перевод строки»). Иногда текст PlantUML-скрипта необходимо преобразовать в массив подстрок. Этим объясняется то, что каждая отдельная подстрока заключена в одиночные кавычки.

v_TableGroupScript:=ARRAY_TO_STRING(cnfn_Array_QuotesWrapperWithout(STRING_TO_ARRAY(v_TableGroupScript, CHR(13)||CHR(10))), CHR(13)||CHR(10)); 

Но на выходе из umlfn_Table_fromArray одиночные кавычки не нужны. Поэтому текст временно преобразуется в массив, в каждом элементе которого убираются начальная и замыкающая кавычки. А затем массив снова преобразуется в строку, помещённую в тестовой переменной.

v_TableGroupScript:=umlfn_Table_FromArray(a_SchemaName, admfn_Table_TableNameArray(a_SchemaName,a_WHEREoption),a_NeedAttrDesc,v_Mode);

SELECT '''object '|| a_SchemaName ||'.'||a_TableName||'{'''|| CHR(13)||CHR(10)|| STRING_AGG (umlfn_Attribute_String(oattr.oid, oattr.attnum,a_NeedAttrDesc,a_AllowedTableName),'')|| '''}'''|| CHR(13)||CHR(10) FROM (SELECT tbl.oid, attr.attnum FROM pg_attribute attr  WHERE attr.attrelid=( a_SchemaName ||'.'|| a_TableName)::regclass AND attr.attnum>0 ORDER BY tbl.relname,attr.attnum) oattr; 

SELECT ass.AttString||STRING_AGG(ass.FKString,'') FROM (SELECT TRIM(af.rsa_AttributeName)||':'|| ' '||CASE WHEN af.rsa_Description IS NULL OR NOT a_NeedAttrDesc THEN '' ELSE '(<i>'||af.rsa_Description||'</i>)' END|| ' '||af.rsa_TypeName|| ' '||CASE WHEN af.rsa_isNotNULL THEN 'NOT' ELSE '' END || 'NULL' || ''|| CASE WHEN af.rsa_isAttributePK THEN '(PK'||TRIM(COALESCE(TO_CHAR(af.rsa_ColumnPKNo,'999'),''))||')'  ELSE '' END AS AttString, '(FK'||TRIM(COALESCE(TO_CHAR(af.rsa_ColumnFKNo[af.fkInx],'999'),''))||' '||COALESCE(af.rsa_FKTableName[af.fkInx],'')|| '('||COALESCE(af.rsa_FKTableColumnName[af.fkInx],'')||')'||')' FKString FROM (SELECT iaf.rsa_AttributeName,iaf.rsa_Description,iaf.rsa_TypeName,iaf.rsa_isNotNULL,iaf.rsa_isAttributePK,iaf.rsa_ColumnPKNo, iaf.rsa_isAttributeFK,iaf.rsa_ColumnFKNo,iaf.rsa_FKTableName,iaf.rsa_FKTableColumnName, GENERATE_SUBSCRIPTSs(iaf.rsa_ColumnFKNo, 1) fkInx FROM admtf_Attribute_Features(a_TableOID , a_AttributeNo) iaf) af ORDER BY fkInx) ass GROUP BY  ass AttString; 

SELECT STRING_AGG(''''||LOWER(nsp.nspname)||'.'||UPPER(tbl.relname)||' '|| CASE LEFT(ls.*,1) WHEN 'N' THEN '*' ELSE '' END || '--' || CASE  RIGHT(ls.*,1) WHEN 'N' THEN '*' ELSE '' END|| ' '||LOWER(nsp.nspname)||'.'||UPPER(Ftbl.relname)||''''||CHR(13)||CHR(10),'') FROM pg_class tbl  INNER JOIN pg_namespace nsp ON tbl.relnamespace = nsp.oid  INNER JOIN pg_constraint lcon ON lcon.conrelid=tbl.oid INNER JOIN pg_class ftbl ON lcon.confrelid=ftbl.oid INNER JOIN pg_namespace fnsp ON ftbl.relnamespace=fnsp.oid, LATERAL admfn_Table_LinkSign(nsp.nspname,tbl.relname:: VARCHAR(256),lcon.conname:: VARCHAR(256)) ls WHERE LOWER(nsp.nspname)=LOWER(a_SchemaName) AND tbl.relkind='r'  LOWER(fnsp.nspname)=LOWER(a_SchemaName) AND ftbl.relkind='r'  AND lcon.contype ='f' AND ARRAY[tbl.relname::VARCHAR(256)] <@ admfn_Table_LowerName(a_TableNameArray)  AND ARRAY[ftbl.relname::VARCHAR(256)] <@ admfn_Table_LowerName(a_TableNameArray); 

BEGIN TRANSACTION; DROP FUNCTION IF EXISTS umlpr_TablesScipt_FromArray(a_TableNameArray VARCHAR(256)[],a_OutputFolder TEXT,a_Schema VARCHAR(256), a_Mode VARCHAR(20));  /****************************************************************************************************************/ /* Создание файла с описанием таблиц из исходного массива в формате плагина (plantuml)                          */ /****************************************************************************************************************/ CREATE OR REPLACE FUNCTION umlpr_TablesScipt_FromArray (a_TableNameArrayVARCHAR(256)[], /* Исходный массив  таблиц  */ a_OutputFolder TEXT, /* Папка создаваемого файла*/ a_SchemaVARCHAR(256) DEFAULT 'public',/*Схема исходных таблиц*/ a_ModeVARCHAR(20) default 'Trac'/* Формат возвращаемой строки:*/ /* 'Trac' -для  средства управления проектам; */ /*'PlantTest' - для тестирования на сайте*/ /* https://www.planttext.com/  */ )  RETURNS INTEGER AS $BODY$ DECLARE c_SchemaCONSTANT name:='public'; c_NeedAttrDescCONSTANT BOOLEAN:=FALSE;/* Признак необходимости включения комментария аттрибута  */ c_TracModeCONSTANT VARCHAR(50):='Trac'; /*для  средства управления проектам*/ c_PlantTestModeCONSTANT VARCHAR(50):='PlantTest'; /*для тестирования на сайте "https://www.planttext.com/" */  v_SchemaVARCHAR(256); /*Схема исходных таблиц*/ v_ModeVARCHAR(20); /* Формат возвращаемой строки: 'Trac' -для  средства управления проектам;*/ /* 'PlantTest' - для тестирования на сайте https://www.planttext.com/  */ v_Return_Error Integer := 0; /* Код возврата*/ v_OutputFile TEXT; /* Путь и название создаваемого файла*/ v_COPY_StatementTEXT; /* Оператор копирования скрипта в файл*/ v_PlantUML_ScriptTEXT; /* Сгенерированный скрипт*/ v_TableNameArrayVARCHAR(256)[];/* Исходный массив  таблиц  */  BEGIN v_Mode:=COALESCE(a_Mode,c_TracMode); v_Schema:=COALESCE(a_Schema,c_Schema); v_TableNameArray:=a_TableNameArray; v_OutputFile:=TRIM(a_OutputFolder)||'plantuml_'||current_date||CASE v_Mode WHEN c_PlantTestMode THEN '_classic' ELSE '' END||'.txt'; v_PlantUML_Script:= umlfn_Table_FromArray(v_Schema::VARCHAR,v_TableNameArray,c_NeedAttrDesc,v_Mode); v_PlantUML_Script:=''''||REPLACE(v_PlantUML_Script,CHR(13)||CHR(10),''', ''')||''''; v_COPY_Statement='COPY (SELECT unnest FROM unnest(ARRAY['|| v_PlantUML_Script || '])) TO  ''' || v_OutputFile||''''; BEGIN     EXECUTE v_COPY_Statement; EXCEPTION WHEN OTHERS THEN RAISE NOTICE 'ОШИБКА ПУТИ  к папке создаваемого файла. Проверьте правильность значений параметров.               ПАРАМЕТРЫ создания: ******************************************************************** Путь            - "%" Массив таблиц   - "%" Схема           - "%"                                         ***********************************************************',                                        v_OutputFile,v_TableNameArray,v_Schema;                  RETURN -2;                                END; RETURN v_Return_Error;   END   $BODY$  LANGUAGE plpgsql; COMMENT ON FUNCTION umlpr_TablesScipt_FromArray(a_TableNameArray VARCHAR(256)[],a_OutputFolder TEXT,a_Schema VARCHAR(256),a_Mode VARCHAR(20)) IS  'Создание файла с описанием таблиц из исходного массива в формате плагина (plantuml)';  --ROLLBACK TRANSACTION; COMMIT TRANSACTION; SELECT umlpr_TablesScipt_FromArray('{Street,StreetType,StreetTypeSynonym,STREETSYNONYM}'::VARCHAR(256)[], 'D:\plantuml\Scripts\','public','PlantTest' ); SELECT umlpr_TablesScipt_FromArray('{Street,StreetType,StreetTypeSynonym,STREETSYNONYM}'::VARCHAR(256)[], 'D:\plantuml\Scripts\','public'); 

BEGIN TRANSACTION; DROP FUNCTION IF EXISTS umlpr_TablesScipt_ByWhereOption(a_WHEREoption VARCHAR(1000),a_OutputFolder TEXT,a_Schema VARCHAR(256), a_Mode VARCHAR(20));  /********************************************************************************************************************/ /* Создание файла с описанием таблиц по условию выбора таблиц из системного каталога в формате плагина (plantuml)   */ /********************************************************************************************************************/ CREATE OR REPLACE FUNCTION umlpr_TablesScipt_ByWhereOption (a_WHEREoptionVARCHAR(1000), /* условие запроса на выбор таблиц из системного каталога  */ a_OutputFolderTEXT, /* Папка создаваемого файла*/ a_SchemaVARCHAR(256) DEFAULT 'public',/*Схема исходных таблиц*/ a_ModeVARCHAR(20) default 'Trac'/* Формат возвращаемой строки: */ /* 'Trac' -для  средства управления проектам;*/ /*'PlantTest' - для тестирования на сайте */ /*https://www.planttext.com/  */ )  RETURNS INTEGER AS $BODY$ DECLARE v_TableNameArrayVARCHAR(256)[]; /* Массив выбранных таблиц  */ v_Return_Error Integer := 0; /* Код возврата */  BEGIN v_TableNameArray:=admfn_Table_TableNameArray(a_Schema,a_WHEREoption); v_Return_Error:=umlpr_TablesScipt_FromArray(v_TableNameArray,a_OutputFolder,a_Schema,a_Mode); RETURN v_Return_Error; END   $BODY$  LANGUAGE plpgsql; COMMENT ON FUNCTION umlpr_TablesScipt_ByWhereOption(a_WHEREoption VARCHAR(1000),a_OutputFolder TEXT,a_Schema VARCHAR(256),a_Mode VARCHAR(20)) IS 'Создание файла с описанием таблиц по условию выбора таблиц из системного каталога в формате плагина (plantuml) ';  --ROLLBACK TRANSACTION; COMMIT TRANSACTION; /*SELECT umlpr_TablesScipt_ByWhereOption('tbl.relname LIKE ''id_districts'' OR tbl.relname LIKE ''id_nps'''::VARCHAR(1000), 'D:\Projects\Enisey GIS\DB\PLpgSQL\Common\DBAdministrate\plantuml\NONScripts\' ); SELECT umlpr_TablesScipt_ByWhereOption('tbl.relname LIKE ''id_districts'' OR tbl.relname LIKE ''id_nps'''::VARCHAR(1000), 'D:\Projects\Enisey GIS\DB\PLpgSQL\Common\DBAdministrate\plantuml\Scripts\' ,'public','Trac'); SELECT umlpr_TablesScipt_ByWhereOption('tbl.relname LIKE ''id_districts'' OR tbl.relname LIKE ''id_nps'''::VARCHAR(1000), 'D:\Projects\Enisey GIS\DB\PLpgSQL\Common\DBAdministrate\plantuml\Scripts\','public','PlantTest'); */ SELECT umlpr_TablesScipt_ByWhereOption('tbl.relname ~* E''^street''', 'D:\Projects\Enisey GIS\DB\PLpgSQL\Common\DBAdministrate\plantuml\Scripts\','public','PlantTest');  SELECT umlpr_TablesScipt_ByWhereOption('tbl.relname ~* E''^street''', 'D:\Projects\Enisey GIS\DB\PLpgSQL\Common\DBAdministrate\plantuml\Scripts\','public','PlantTest'); 

BEGIN TRANSACTION; DROP FUNCTION IF EXISTS umlfn_Table_FromArray (a_SchemaName VARCHAR(100),a_TableNameArray VARCHAR(256)[],a_NeedAttrDesc BOOLEAN,a_Mode VARCHAR(20)); /********************************************************************************************************/ /*  Функция возвращает строку с описанием таблиц из исходного массива в формате плагина (plantuml)  */ /* к Trac — средству управления проектами и отсслеживания ошибок в программном обеспечении. */ /*------------------------------------------------------------------------------------------------------*/ /*ПРИМЕР:umlfn_Table_FromArray('public','{kmed__adres1,kmed_adres,kmed_adreskladr,kmed_adreskladr_temp,kmed_peoplebyidadreshome,kmed_radres,kmed_sadres,kmed_tadres}');*/ /*------------------------------------------------------------------------------------------------------*/ /*{{{*/ /*#!plantuml*/ /*@startuml*/ /*object public.KMED__ADRES1{*/ /*id_adres1 :  (<i>Уникальный код записи в оглавлении </i>) integer NOT NULL (PK1)*/ /*idadres :  (<i>Уникальный код записи адресного элемента (Код адреса) в kmed_ADRES</i>) integer NULL */ /*idparent :  (<i (...)*/ /**/ /********************************************************************************************************/ CREATE OR REPLACE FUNCTION umlfn_Table_FromArray (a_SchemaNameVARCHAR(100) default 'public',/* название схемы базы данных*/ a_TableNameArrayVARCHAR(256)[]default '{}',/* Исходный массив  таблиц  */ a_NeedAttrDescBOOLEAN default false,/* Признак необходимости включения комментария аттрибута  */ a_Mode        VARCHAR(20) default 'Trac'/* Формат возвращаемого PlantUML-скрипта: 'Trac' -для  средства*/ /* управления проектом; 'PlantTest' - для тестирования на сайте */ /* https://www.planttext.com/  */ ) RETURNS  TEXT AS $BODY$ DECLARE c_SchemaName                        CONSTANT VARCHAR(256):='public';/* название схемы базы данных*/ c_TableKind                         CONSTANT CHAR:='r'; c_ForeignKeyKind                    CONSTANT CHAR:='f'; c_TracMode                          CONSTANT VARCHAR(50):='Trac'; /*для  средства управления проектам*/ c_PlantTestMode                     CONSTANT VARCHAR(50):='PlantTest'; /*для тестирования на сайте "https://www.planttext.com/" */ c_TracTableGroupScriptPrefix        CONSTANT VARCHAR(50):='''{{{'''||CHR(13)||CHR(10)||'''#!plantuml'''||CHR(13)||CHR(10)||'''@startuml'''||CHR(13)||CHR(10); /* Начало скрипта описания группы таблиц в режиме 'Trac'*/ c_TracTableGroupScriptSuffix    CONSTANT VARCHAR(50):='''@enduml'''||CHR(13)||CHR(10)||'''}}}'''||CHR(13)||CHR(10)||''' '''||CHR(13)||CHR(10)||'''----'''||CHR(13)||CHR(10); /* Конец скрипта описания группы таблиц  в режиме 'Trac'*/ c_PlantTestTableGroupScriptPrefixCONSTANT VARCHAR(50):='''@startuml'''||CHR(13)||CHR(10); /* Начало скрипта описания группы таблиц  в режиме 'PlantTest'*/ c_PlantTestTableGroupScriptSuffixCONSTANT VARCHAR(50):='''@enduml'''; /* Конец скрипта описания группы таблиц  в режиме 'PlantTest'*/    c_TableGroupLegendPrefix            CONSTANT VARCHAR(100):='''legend center'''||CHR(13)||CHR(10)||'''<b><i><u>ТАБЛИЦЫ</u></i></b>'''||CHR(13)||CHR(10)||''' '''||CHR(13)||CHR(10); /* Начало раздела комментарии к таблицам группы */ c_TableGroupLegendSuffix            CONSTANT VARCHAR(100):='''endlegend'''||CHR(13)||CHR(10); /* Конец раздела комментарии к таблицам группы */  c_TableNameLegendPrefix             CONSTANT VARCHAR(10):='<b>';/* Начало наименования таблицы в комментариях*/  c_TableNameLegendSuffix             CONSTANT VARCHAR(10):='</b>';/* Окончание наименования таблицы в комментариях*/  c_TableDescriptionLegendPrefix  CONSTANT VARCHAR(10):='- ';/* Начало описания таблицы в комментариях*/   c_TableDescriptionLegendSuffix  CONSTANT VARCHAR(10):=CHR(13)||CHR(10);/* Окончание описания таблицы в комментариях*/  c_TableNameDelimiter                CONSTANT VARCHAR(5):='.';  /* Символ-разделитель имени таблицы*/ c_Blank                             CONSTANT VARCHAR(5):=' ';  /* Символ пробела*/ v_Mode                              VARCHAR(20);    /* Формат возвращаемой строки: 'Trac' -для  средства управления*/ /* проектом; 'PlantTest' - для тестирования на сайте */ /* https://www.planttext.com/  */ v_SchemaName                VARCHAR(256);   /* название схемы базы данных*/ v_TableGroupScriptPrefixVARCHAR(50);/* Начало скрипта описания группы таблиц */ v_TableGroupScriptSuffixVARCHAR(50);    /* Конец скрипта описания группы таблиц*/ v_TableGroupScript          TEXT;           /* Формируемый скрипт*/ v_TableLinksScript          TEXT;           /* Формируемый раздел связей таблиц */ v_TableGroupLegendScriptTEXT;           /* Формируемый раздел комментириев к таблицам группы*/ v_TableCount                INTEGER;        /* Счетчик таблиц группы*/ v_TableNameArray            TEXT[];         /* Массив таблиц  */ v_AloneTableName            VARCHAR(256);   /* Название одной из таблиц группы*/ v_TableDescription          TEXT;           /* Описание одной из таблиц группы*/ v_TablesRecord              RECORD;         /* Запись с данными таблицы */ v_TableOID                  OID;            /* ИД таблицы */ v_ProcessedTableNameArray   TEXT[];         /* Массив обработанных таблиц  */ v_TableNameArrayRemainder   TEXT[];         /* Массив необработанных таблиц  */ v_Return_Error              INTEGER := 0;   /* Код возврата*/ --****************************************************************************************************** BEGIN     v_Mode:=COALESCE(a_Mode,c_TracMode);     v_TableGroupScriptPrefix:=CASE v_Mode WHEN c_PlantTestMode THEN  c_PlantTestTableGroupScriptPrefix ELSE c_TracTableGroupScriptPrefix END;     v_TableGroupScriptSuffix:=CASE v_Mode WHEN c_PlantTestMode THEN  c_PlantTestTableGroupScriptSuffix ELSE c_TracTableGroupScriptSuffix END;  v_SchemaName:=COALESCE(a_SchemaName,c_SchemaName); v_TableNameArray:=a_TableNameArray; v_TableNameArray:=cnfn_Array_LowerCase(a_TableNameArray); v_TableNameArray:=string_to_array(REPLACE(REPLACE(array_to_string(v_TableNameArray,','),'''',''),'"',''),','); v_TableGroupScript:=''; v_TableGroupLegendScript:=''; IF COALESCE(v_TableNameArray,'{}')<>'{}' THEN v_TableCount:=0; v_TableGroupScript:=v_TableGroupScriptPrefix; v_TableGroupLegendScript:=c_TableGroupLegendPrefix; FOR v_TablesRecord IN SELECT ftbl.oid AS TableOID,ftbl.relname:: VARCHAR(256) FROM pg_class ftbl  INNER JOIN pg_namespace fnsp ON ftbl.relnamespace = fnsp.oid  LEFT OUTER JOIN pg_Description fdsc ON ftbl.oid=fdsc.objoid AND fdsc.objsubid=0 WHERE LOWER(fnsp.nspname)=LOWER(v_SchemaName) AND ftbl.relkind=c_TableKind AND ftbl.relname !~ '(raster_|spatial_|geometry_|geography_)'  AND ARRAY[LOWER(ftbl.relname)::TEXT] <@ v_TableNameArray  ORDER BY fnsp.nspname,ftbl.relname LOOP v_AloneTableName:=LOWER(v_TablesRecord.relname); v_AloneTableName:=v_TablesRecord.relname;     v_TableCount:=v_TableCount+1; v_TableGroupScript:=v_TableGroupScript|| umlfn_Table_Script(a_SchemaName,v_AloneTableName,a_NeedAttrDesc,v_TableNameArray); SELECT INTO v_TableDescription rs_TableDescription  FROM admtf_Table_Features (a_SchemaName,v_AloneTableName); v_TableGroupLegendScript:=v_TableGroupLegendScript|| quote_literal(c_TableNameLegendPrefix||UPPER(v_AloneTableName)||c_TableNameLegendSuffix|| c_TableDescriptionLegendPrefix||COALESCE(v_TableDescription,''))||c_TableDescriptionLegendSuffix;  v_ProcessedTableNameArray:=array_append(v_ProcessedTableNameArray, v_AloneTableName::TEXT); END LOOP; v_TableGroupLegendScript:=v_TableGroupLegendScript||c_TableGroupLegendSuffix ; v_TableLinksScript:=cnfn_Array_LowerCase(a_SchemaName,v_TableNameArray); v_TableGroupScript:=v_TableGroupScript ||COALESCE(v_TableLinksScript,'') ||v_TableGroupLegendScript||v_TableGroupScriptSuffix;END IF; RETURN v_TableGroupScript; END $BODY$ LANGUAGE plpgsql; COMMENT ON FUNCTION umlfn_Table_FromArray(a_SchemaName VARCHAR(100),a_TableNameArray VARCHAR(256)[],a_NeedAttrDesc BOOLEAN,a_Mode VARCHAR(20)) IS 'Возвращает строку с описанием таблиц массива в формате плагина (plantuml) к Trac'; --ROLLBACK TRANSACTION; COMMIT TRANSACTION; SELECT umlfn_Table_FromArray('public'::VARCHAR,'{ Street,StreetType, STREETSYNONYM }'::VARCHAR(256)[]); 

BEGIN TRANSACTION; DROP FUNCTION IF EXISTS umlfn_Table_AllGroupScript (a_SchemaName VARCHAR(100),a_WHEREoption VARCHAR(1000),a_NeedAttrDesc BOOLEAN,a_Mode VARCHAR(20)); /********************************************************************************************************/ /*  Функция возвращает строку с описанием группы таблиц в формате плагина (plantuml) к Trac — средству */ /*  управления проектами и отслеживания ошибок в программном обеспечении.*/ /*------------------------------------------------------------------------------------------------------*/ /*ПРИМЕР:umlfn_Table_AllGroupScript('public','tbl.relname ~* E''^Street''',FALSE,'Trac');            */ /*------------------------------------------------------------------------------------------------------*/ /*{{{                                                                                                 */ /*#!plantuml                                                                                          */ /*@startuml                                                                                           */ /*object public.STREET{                                                                               */ /*wcrccode : smallint NOT NULL (PK1)                                                                  */ /*localityid : integer NOT NULL (PK2)                                                                 */ /*streetid : smallint NOT NULL (PK3)                                                                  */ /*streettypeacrm : character(8) NULL (FK1 streettype(streettypeacrm))                                 */ /*streetname : character varying(150) NOT NULL                                                        */ /*streettsvector : tsvector NULL                                                                      */ /*streettslitevector : tsvector NULL                                                                  */ /*}                                                                                                   */ /*object public.STREETSYNONYM{                                                                        */ /*wcrccode : smallint NOT NULL (PK1)(FK1 street(wcrccode))                                            */ /*localityid : integer NOT NULL (PK2)(FK2 street(localityid))                                         */ /*streetid : smallint NOT NULL (PK3)(FK3 street(streetid))                                            */ /*synonymid : smallint NOT NULL (PK4)                                                                 */ /*streettypeacrm : character(8) NULL (FK1 streettype(streettypeacrm))                                 */ /*streetsynonymname : character varying(200) NULL                                                     */ /*}                                                                                                   */ /*object public.STREETTYPE{                                                                           */ /*streettypeacrm : character(8) NOT NULL (PK1)                                                        */ /*streettypename : character varying(30) NULL                                                         */ /*}                                                                                                   */ /*object public.STREETTYPESYNONYM{                                                                    */ /*streettypeacrm : character(8) NOT NULL (PK1)(FK1 streettype(streettypeacrm))                        */ /*synonymid : smallint NOT NULL (PK2)                                                                 */ /*streettypesynonymacrm : character varying(15) NULL                                                  */ /*}                                                                                                   */ /*public.STREETSYNONYM *-- public.STREET                                                              */ /*public.STREETSYNONYM *-- public.STREETTYPE                                                          */ /*public.STREET *-- public.STREETTYPE                                                                 */ /*public.STREETTYPESYNONYM *-- public.STREETTYPE                                                      */ /*legend center                                                                                       */ /*<b><i><u>ТАБЛИЦЫ</u></i></b>                                                                        */ /*                                                                                                    */ /*<b>STREET</b>- Список улиц в населенных пунктах                                                     */ /*<b>STREETSYNONYM</b>- Список синонимов назвачний улиц в населенных пунктах                          */ /*<b>STREETTYPE</b>- Справочник типов улиц                                                            */ /*<b>STREETTYPESYNONYM</b>- Справочник синонимов типов улиц                                           */ /*endlegend                                                                                           */ /*@enduml                                                                                             */ /*}}}                                                                                                 */ /*                                                                                                    */ /*----                                                                                                */ /********************************************************************************************************/ CREATE OR REPLACE FUNCTION umlfn_Table_AllGroupScript (a_SchemaNameVARCHAR(100) default 'public',/* название схемы базы данных*/ a_WHEREoptionVARCHAR(1000) default NULL,     /* условие запроса на выбор таблиц из системного каталога */ a_NeedAttrDescBOOLEAN default false,/* Признак необходимости включения комментария аттрибута  */ a_Mode        VARCHAR(20) default 'Trac'/* Формат возвращаемой строки: 'Trac' -для  средства управления проектам; 'PlantTest' - для тестирования на сайте https://www.planttext.com/  */     )   RETURNS  TEXT AS $BODY$ DECLARE c_TracMode          CONSTANT VARCHAR(50):='Trac'; /*для  средства управления проектам*/ c_PlantTestMode     CONSTANT VARCHAR(50):='PlantTest'; /*для тестирования на сайте "https://www.planttext.com/ */ v_Mode              VARCHAR(20); /* Формат возвращаемой строки: 'Trac' -для  средства управления проектам; */ /* 'PlantTest' - для тестирования на сайте https://www.planttext.com/  */ v_TableNameArrayVARCHAR(256)[]; /* Массив выбранных таблиц  */ v_TableGroupScriptTEXT; /* Формируемый скрипт*/ v_Return_Error Integer := 0; /* Код возврата*/   --****************************************************************************************************** BEGIN     v_Mode:=COALESCE(a_Mode,c_TracMode); v_TableGroupScript:=''; v_TableNameArray:=admfn_Table_TableNameArray(a_SchemaName,a_WHEREoption); IF COALESCE(v_TableNameArray,'{}')<>'{}' THEN v_TableGroupScript:=umlfn_Table_FromArray(a_SchemaName,v_TableNameArray,a_NeedAttrDesc,v_Mode); END IF; RETURN v_TableGroupScript; END $BODY$ LANGUAGE plpgsql; COMMENT ON FUNCTION umlfn_Table_AllGroupScript(a_SchemaName VARCHAR(100),a_WHEREoption VARCHAR(1000),a_NeedAttrDesc BOOLEAN,a_Mode VARCHAR(20)) IS 'Возвращает строку строку с описанием группы таблиц в формате плагина (plantuml) к Trac'; --ROLLBACK TRANSACTION; COMMIT TRANSACTION; SELECT umlfn_Table_AllGroupScript('public','tbl.relname ~* E''^Street'''); SELECT umlfn_Table_AllGroupScript('public','tbl.relname ~* E''^Street''',FALSE,'PlantTest');  

BEGIN TRANSACTION; DROP FUNCTION IF EXISTS umlfn_Table_Script (a_SchemaName name,a_TableName name,a_NeedAttrDesc BOOLEAN,a_AllowedTableName VARCHAR(256)[]); /********************************************************************************************************/ /*  Функция возвращает строку с описанием таблицы в формате плагина (plantuml) к Trac — средству     */ /*  управления проектами и отслеживания ошибок в программном обеспечении.                */ /*------------------------------------------------------------------------------------------------------*/ /*ПРИМЕР:SELECT  umlfn_Table_Script('public','Street',TRUE);                                    */ /*------------------------------------------------------------------------------------------------------*/ /*'object public.STREET{'                                                                             */ /*'wcrccode :  (<i>Код страны</i>) smallint NOT NULL (PK1)(FK1 locality(wcrccode))'*/ /*'localityid :  (<i>ИД населенного пункта</i>) integer NOT NULL (PK2)(FK2 locality(localityid))'*/ /*'streetid :  (<i>ИД улицы населенного пункта</i>) smallint NOT NULL (PK3)'                */ /*'streettypeacrm :  (<i>Акроним типа улицы</i>) character(8) NULL (FK1 streettype(streettypeacrm))' */ /*'streetname :  (<i>Наименование улицы населенного пункта</i>) character varying(150) NOT NULL'      */ /*'streettsvector :  (<i>Расширенные характеристики улицы в населенном пункте, преобразованные в вектор полнотекстового поиска</i>) tsvector NULL '   */ /*'streettslitevector :  (<i>Характеристики улицы в населенном пункте, преобразованные в вектор полнотекстового поиска</i>) tsvector NULL '           */ /*'}'                                                                                                 */ /********************************************************************************************************/ CREATE OR REPLACE FUNCTION umlfn_Table_Script (a_SchemaNameNAME default 'public',/* название схемы базы данных*/ a_TableNameNAME default NULL,/* Название таблицы */  a_NeedAttrDescBOOLEAN default false,/* Признак необходимости включения комментария аттрибута  */ a_AllowedTableNameVARCHAR(256)[]default '{}'/* Массив допустимых для поиска внешних ключей таблиц  */  )   RETURNS  TEXT AS $BODY$ DECLARE c_TableScriptPrefixCONSTANT VARCHAR(10):='''object ';/* Начало скрипта описания таблицы*/ c_AttributeListPrefixCONSTANT VARCHAR(5):='{'''||CHR(13)||CHR(10);/* Начало списка атрибутов */ c_AttributeListSuffixCONSTANT VARCHAR(5):='''}'''||CHR(13)||CHR(10);/* Конец списка атрибутов */ c_TableScriptSuffixCONSTANT VARCHAR(5):=' '||CHR(13)||CHR(10);/* Конец скрипта описания таблицы*/ c_TableNameDelimiterCONSTANT VARCHAR(5):='.';  /* Символ-разделитель имени таблицы*/ c_BlankCONSTANT VARCHAR(5):=' ';  /* Символ пробела*/ v_AttributeScriptTEXT;/* */ v_TableScriptTEXT;/* */ v_Schemaname; v_TableNamename; v_TableOIDOID; v_AttributeNamename; v_AttributeNum SMALLINT; v_AttributeCountINTEGER;/* Счетчик цикла*/ v_Return_Error Integer := 0;  cursor_Attributes CURSOR FOR  SELECT tbl.oid, attr.attnum  FROM pg_attribute attr  INNER JOIN pg_class tbl ON tbl.oid = attr.attrelid  INNER JOIN pg_namespace nsp ON tbl.relnamespace=nsp.oid  WHERE LOWER(nsp.nspname)=LOWER(a_SchemaName) AND LOWER(tbl.relname)=LOWER(a_TableName) AND attr.attnum>0  ORDER BY tbl.relname,attr.attnum;  --****************************************************************************************************** BEGIN v_TableScript:=''; OPEN cursor_Attributes; v_AttributeCount:=0; v_TableScript:=c_TableScriptPrefix || LOWER(a_SchemaName) || c_TableNameDelimiter ||                          CASE WHEN LEFT(TRIM(a_TableName),1) =UPPER(LEFT(TRIM(a_TableName),1))                                     AND SUBSTRING(TRIM(a_TableName) FROM 2) =LOWER(SUBSTRING(TRIM(a_TableName) FROM 2))                                                             THEN UPPER(a_TableName)                             WHEN a_TableName ~ E'[A-ZА-ЯЁ]' THEN '"'||a_TableName||'"'                              ELSE  UPPER(a_TableName) END ||c_AttributeListPrefix; FETCH FIRST FROM cursor_Attributes INTO v_TableOID,v_AttributeNum; WHILE FOUND LOOP v_AttributeCount:=v_AttributeCount+1; v_TableScript:=v_TableScript||COALESCE(umlfn_Attribute_String(v_TableOID,v_AttributeNum,a_NeedAttrDesc,a_AllowedTableName),''); FETCH NEXT  FROM cursor_Attributes INTO v_TableOID,v_AttributeNum; END LOOP; CLOSE cursor_Attributes; v_TableScript:=v_TableScript ||c_AttributeListSuffix; RETURN v_TableScript; END $BODY$ LANGUAGE plpgsql; COMMENT ON FUNCTION umlfn_Table_Script(a_SchemaName name,a_TableName name,a_NeedAttrDesc BOOLEAN,a_AllowedTableName VARCHAR(256)[]) IS 'Возвращает строку с описанием таблицы в формате плагина (plantuml) к Trac'; --ROLLBACK TRANSACTION; COMMIT TRANSACTION; SELECT umlfn_Table_Script('public'::VARCHAR,'Street'); 

BEGIN TRANSACTION; DROP FUNCTION IF EXISTS umlfn_Attribute_String (a_TableOID OID,a_AttributeNo SMALLINT,a_NeedAttrDesc BOOLEAN,a_AllowedTableName VARCHAR(256)[]); /***************************************************************************************************************/ /*  Функция возвращает строку с описанием атрибута таблицы в формате плагина (plantuml) к Trac — средству */ /*  управления проектами и отслеживания ошибок в программном обеспечении. */ /*-------------------------------------------------------------------------------------------------------------*/ /* ПРИМЕРЫ:*/ /*ИД_Пользователь : double (PK)*/ /*ИД_Группа : double (FK1)*/ /*ИД_Должность : double (FK2)*/ /*Системное_Имя_Пользователя : varchar2(255) (AK)*/ /*ФИО : varchar2(255)*/ /*Телефоны : varchar2(255)*/ /*Почта : varchar2(100)*/ /*Адрес : varchar2(255)*/ /*Дата_Рождения : date*/ /****************************************************************************************************************/ CREATE OR REPLACE FUNCTION umlfn_Attribute_String (a_TableOIDOID,/* ИД таблицы */ a_AttributeNoSMALLINT,/* Порядковый номер атрибута в таблице*/ a_NeedAttrDescBOOLEAN default false,/* Признак необходимости включения комментария аттрибута  */ a_AllowedTableNameVARCHAR(256)[]default '{}'/* Массив допустимых для поиска внешних ключей таблиц  */   )   RETURNS  TEXT AS $BODY$ DECLARE  c_PrimaryKeyPrefixCONSTANT VARCHAR(5):='(PK';/* Начало опции об участии аттрибута в первичном ключе*/ c_PrimaryKeySuffixCONSTANT VARCHAR(5):=')';/* Окончание опции об участии аттрибута в первичном ключе*/ c_ForeignKeyPrefixCONSTANT VARCHAR(5):='(FK';/* Начало опции об участии аттрибута во внешнем ключе*/ c_ForeignKeySuffixCONSTANT VARCHAR(5):=')';/* Окончание опции об участии аттрибута во внешнем ключе*/ c_DescriptionPrefixCONSTANT VARCHAR(5):='(<i>';/* Начало комментария к атрибуту*/ c_DescriptionSuffixCONSTANT VARCHAR(5):='</i>)';/* Окончание комментария к атрибуту*/ c_EndOfAttributeStringCONSTANT VARCHAR(5):=CHR(13)||CHR(10);  /* Символы окончания строки описания атрибута*/ c_NULLCONSTANT VARCHAR(5):='NULL';/* Строка NULL */ c_NOTCONSTANT VARCHAR(5):='NOT';/* Строка NOT */ c_BlankCONSTANT VARCHAR(5):=' ';/* Символ пробела */ c_AttributeDelimiterCONSTANT VARCHAR(5):=' : '; /* Символ - разделитель названия атрибута и его типа*/ c_ColumnFKList_NDims CONSTANT INTEGER:=1;/* Размерность массива атрибутов внешнего ключа*/ v_NeedAttrDescBOOLEAN;/* Признак необходимости включения комментария аттрибута  */ v_AllowedTableNameVARCHAR(256)[];/* Массив допустимых для поиска внешних ключей таблиц  */ v_Attribute_String TEXT; /* Строка описания атрибута*/ v_AttributeName name;/* Название атрибута*/ v_UserTypeName VARCHAR(256);/* Пользовательский тип атрибута (название домена)*/ v_TypeName VARCHAR(256);/* Тип атрибута*/ v_isNotNULL BOOLEAN;/* Признак недопустимости значения NULL*/ v_isAttributePK BOOLEAN;/* Признак вхождения атрибута в первичный ключ */ v_ColumnPKNo SMALLINT;/* Порядковый номер аттрибута в первичном ключе*/ v_DescriptionTEXT;/* Комментари к аттрибуту */ v_isAttributeFK BOOLEAN;/* Признак вхождения атрибута во внешний ключ */ v_ColumnFKNoARRAYSMALLINT[];/* Массив порядковых номеров атрибута во всех внешних ключах */ v_FKTableNameARRAYname[];/* Массив названий таблиц, на которые сслылаются внешние ключи */ v_FKTableColumnNameARRAY name[];/* Массив названий атрибутов таблицы, на которую сслылается внешний ключи */ v_ColumnFKNoSMALLINT;/* Порядковый номер атрибута текщем внешнем ключе */ v_FKTableName name;/* Название таблицы, на которую сслылается текщий внешний ключ */ v_FKTableColumnName name;/* Название атрибута таблицы, на которую сслылается внешний ключ */ v_ColumnFKIndxINTEGER;/* Текущий индекс масссива атрибутов внешнего ключа*/ v_ColumnFKLBoundINTEGER;/* Нижний индекс масссива атрибутов внешнего ключа*/ v_ColumnFKUBoundINTEGER;/* Верхний индекс масссива атрибутов внешнего ключа*/ v_Return_Error Integer := 0;/* Код возврата*/  --****************************************************************************************************** BEGIN v_Attribute_String:=''; v_AllowedTableName:=COALESCE(a_AllowedTableName,'{}'); v_AllowedTableName:=cnfn_Array_LowerCase(v_AllowedTableName); v_NeedAttrDesc:=COALESCE(a_NeedAttrDesc,false); SELECT INTO v_AttributeName,v_TypeName,v_isNotNULL,v_isAttributePK,v_ColumnPKNo,v_Description,v_isAttributeFK,v_ColumnFKNoARRAY, v_FKTableNameARRAY,v_FKTableColumnNameARRAY   rsa_AttributeName,rsa_TypeName,rsa_isNotNULL,rsa_isAttributePK,rsa_ColumnPKNo,rsa_Description, rsa_isAttributeFK,rsa_ColumnFKNo, rsa_FKTableName,rsa_FKTableColumnName FROM admtf_Attribute_Features(a_TableOID,a_AttributeNo); v_Attribute_String:=TRIM(v_AttributeName)||c_AttributeDelimiter|| CASE WHEN v_Description IS NULL OR NOT v_NeedAttrDesc THEN ''  ELSE c_Blank||c_DescriptionPrefix||v_Description||c_DescriptionSuffix|| c_Blank END || v_TypeName|| c_Blank||CASE WHEN v_isNotNULL THEN c_NOT||c_Blank ELSE '' END || c_NULL || c_Blank || CASE WHEN v_isAttributePK THEN c_PrimaryKeyPrefix||TRIM(COALESCE(TO_CHAR(v_ColumnPKNo,'999'),''))|| c_PrimaryKeySuffix ELSE '' END; IF v_isAttributeFK THEN v_ColumnFKLBound:=array_lower(v_ColumnFKNoARRAY,c_ColumnFKList_NDims); v_ColumnFKUBound:=array_upper(v_ColumnFKNoARRAY,c_ColumnFKList_NDims); v_ColumnFKIndx:=v_ColumnFKLBound; WHILE v_ColumnFKIndx<=v_ColumnFKUBound LOOP v_ColumnFKNo:=v_ColumnFKNoARRAY[v_ColumnFKIndx]; v_FKTableName:=v_FKTableNameARRAY[v_ColumnFKIndx]; v_FKTableColumnName:=v_FKTableColumnNameARRAY[v_ColumnFKIndx]; IF COALESCE(a_AllowedTableName,'{}')='{}' OR ARRAY[v_FKTableName] <@ a_AllowedTableName::NAME[] THEN v_Attribute_String:=v_Attribute_String||c_ForeignKeyPrefix|| TRIM(COALESCE(TO_CHAR(v_ColumnFKNo,'999'),''))|| ' '||COALESCE(v_FKTableName,'')||'('||COALESCE(v_FKTableColumnName,'')||')'|| c_ForeignKeySuffix; END IF; v_ColumnFKIndx:=v_ColumnFKIndx+1; END LOOP; END IF; v_Attribute_String:=quote_literal(v_Attribute_String)||c_EndOfAttributeString; RETURN v_Attribute_String;  END $BODY$ LANGUAGE plpgsql; COMMENT ON FUNCTION umlfn_Attribute_String(a_TableOID OID,a_AttributeNo SMALLINT,a_NeedAttrDesc BOOLEAN,a_AllowedTableName VARCHAR(256)[]) IS 'Возвращает строку с описанием атрибута таблицы в формате плагина (plantuml) к Trac';   --ROLLBACK TRANSACTION; COMMIT TRANSACTION; SELECT * FROM umlfn_Attribute_String('public.Street'::REGCLASS,2::SMALLINT,TRUE); SELECT * FROM generate_series (1,6) inx, LATERAL umlfn_Attribute_String('public.Street'::REGCLASS,inx::SMALLINT,FALSE) ORDER BY inx; 

BEGIN TRANSACTION; DROP FUNCTION IF EXISTS umlfn_Table_LinksFromArray (a_SchemaName VARCHAR(100),a_TableNameArray VARCHAR(256)[]); /************************************************************************************************************/ /*  Функция возвращает строку с описанием связей таблиц из исходного массива в формате плагина (plantuml)   */ /* к Trac — средству управления проектами и отсслеживания ошибок в программном обеспечении.            */ /*----------------------------------------------------------------------------------------------------------*/ /*ПРИМЕР:umlfn_Table_LinksFromArray('public','{Street,StreetType,StreetSynonym,StreetTypeSynonym}');*/ /*----------------------------------------------------------------------------------------------------------*/ /* 'public.STREETSYNONYM *-- public.STREET'                                                                 */ /* 'public.STREETSYNONYM *-- public.STREETTYPE'                                                             */ /* 'public.STREET *-- public.STREETTYPE'                                                                    */ /* 'public.STREETTYPESYNONYM *-- public.STREETTYPE'                                                         */ /************************************************************************************************************/ CREATE OR REPLACE FUNCTION umlfn_Table_LinksFromArray (a_SchemaNameVARCHAR(100) default 'public',/* название схемы базы данных*/ a_TableNameArrayVARCHAR(256)[]default '{}'/* Исходный массив  таблиц  */  )   RETURNS  TEXT AS $BODY$ DECLARE c_SchemaNameCONSTANT VARCHAR(256):='public';/* название схемы базы данных*/ c_TableKindCONSTANT CHAR:='r'; c_ForeignKeyKindCONSTANT CHAR:='f'; c_ManySignCONSTANT CHAR:='N'; c_OneSignCONSTANT CHAR:='1'; c_PlantManySignCONSTANT VARCHAR:='*'; c_PlantOneSignCONSTANT VARCHAR:=''; c_PlantLinkMarkCONSTANT VARCHAR:='--';     c_TableLinksSuffix  CONSTANT VARCHAR(10):=CHR(13)||CHR(10);/* Окончание описания таблицы в комментариях*/  c_TableNameDelimiterCONSTANT VARCHAR(5):='.';  /* Символ-разделитель имени таблицы*/ c_BlankCONSTANT VARCHAR(5):=' ';  /* Символ пробела*/ v_SchemaNameVARCHAR(256);/* название схемы базы данных*/ v_TableLinksScriptTEXT;/* Формируемый скрипт*/ v_TableCountINTEGER;/* Чсетчик таблиц группы*/ v_TableNameArrayTEXT[];/* Массив таблиц  */ v_TableName VARCHAR(256);/* Название одной из таблиц группы*/ v_FTableName VARCHAR(256);/* Название одной из таблиц группы*/ v_TableDescriptionTEXT;/* Описание одной из таблиц группы*/ v_TablesRecordRECORD;/* Запись с данными таблицы */ v_TableOIDOID;/* ИД таблицы */ v_ForeignKeyName VARCHAR(256);/* Название внешнего ключа*/ v_ProcessedTableNameArrayTEXT[];/* Массив обработанных таблиц  */ v_TableNameArrayRemainderTEXT[];/* Массив необработанных таблиц  */ v_LinkSignVARCHAR(5);/* Признак связи по отношения к таклице*/ v_LinkMarkLeftCharVARCHAR;/* Левый символ признака связи*/ v_LinkMarkRightCharVARCHAR;/* Правый символ признака связи*/ v_PlantLinkSignVARCHAR(5); v_Return_Error Integer := 0; --****************************************************************************************************** BEGIN v_SchemaName:=COALESCE(a_SchemaName,c_SchemaName); v_TableNameArray:=cnfn_Array_LowerCase(a_TableNameArray); v_TableLinksScript:=''; IF COALESCE(v_TableNameArray,'{}')<>'{}' THEN v_TableCount:=0; FOR v_TablesRecord IN SELECT tbl.oid AS TableOID,tbl.relname:: VARCHAR(256),ftbl.oid AS FTableOID, Ftbl.relname:: VARCHAR(256) AS Frelname, lcon.oid AS ForeignKeyOID,lcon.conname:: VARCHAR(256) AS ForeignKeyName FROM pg_class tbl  INNER JOIN pg_namespace nsp ON tbl.relnamespace = nsp.oid  LEFT OUTER JOIN pg_Description dsc ON tbl.oid=dsc.objoid AND dsc.objsubid=0 INNER JOIN pg_constraint lcon ON lcon.conrelid=tbl.oid INNER JOIN pg_namespace lnspc ON lcon.connamespace = lnspc.oid INNER JOIN pg_class ftbl ON lcon.confrelid=ftbl.oid INNER JOIN pg_namespace fnsp ON ftbl.relnamespace=fnsp.oid  WHERE LOWER(fnsp.nspname)=LOWER(v_SchemaName) AND ftbl.relkind=c_TableKind  AND lcon.contype =c_ForeignKeyKind AND LOWER(lnspc.nspname)=LOWER(v_SchemaName) AND ftbl.relname !~* E'(raster_|spatial_|geometry_|geography_)' AND ARRAY[tbl.relname::TEXT] <@ v_TableNameArray  AND ARRAY[ftbl.relname::TEXT] <@ v_TableNameArray  ORDER BY COUNT(*) OVER(PARTITION BY nsp.oid,tbl.oid) DESC, nsp.nspname,tbl.relname LOOP v_TableName:=v_TablesRecord.relname; v_FTableName:=v_TablesRecord.Frelname; v_ForeignKeyName:=v_TablesRecord.ForeignKeyName; v_TableCount:=v_TableCount+1; v_LinkSign:=admfn_Table_LinkSign(a_SchemaName,v_TableName,v_ForeignKeyName); v_LinkMarkLeftChar:=LEFT(v_LinkSign,1); v_LinkMarkRightChar:=RIGHT(v_LinkSign,1); v_PlantLinkSign:=CASE v_LinkMarkLeftChar WHEN c_ManySign THEN c_PlantManySign ELSE c_PlantOneSign END ||  c_PlantLinkMark || CASE v_LinkMarkRightChar WHEN c_ManySign THEN c_PlantManySign  ELSE c_PlantOneSign END; v_TableLinksScript:=v_TableLinksScript||''''||LOWER(v_SchemaName)||c_TableNameDelimiter||UPPER(v_TableName)||c_Blank|| v_PlantLinkSign||c_Blank||LOWER(v_SchemaName)||c_TableNameDelimiter||UPPER(v_FTableName)||''''|| c_TableLinksSuffix; v_ProcessedTableNameArray:=array_append(v_ProcessedTableNameArray, v_TableName::TEXT); END LOOP; END IF; RETURN v_TableLinksScript; END $BODY$ LANGUAGE plpgsql; COMMENT ON FUNCTION umlfn_Table_LinksFromArray(a_SchemaName VARCHAR(100),a_TableNameArray VARCHAR(256)[]) IS 'Возвращает строку строку с описанием таблиц массива в формате плагина (plantuml) к Trac'; --ROLLBACK TRANSACTION; COMMIT TRANSACTION; SELECT umlfn_Table_LinksFromArray('public','{Street,StreetType,StreetSynonym,StreetTypeSynonym}'); 

Посмотреть, как выглядит диаграмма классов, описанная PlantUML-скриптом можно на сайте PlantText UML editor.

Шаг 1. Перейти по ссылке https://www.planttext.com/ на страницу редактора, как показано на Рис. 5. Установить курсор на заголовке вкладки «File Manager». В открывшемся меню выбрать пункт «Import / Export».

Шаг 2. В открывшемся окне «Import/Export» в строке «Import» щёлкнуть левой клавишей мыши на кнопку «Обзор», как показано.

Откроется стандартное для Вашей операционной системы окно выбора файла. В Windows 10 оно будет выглядеть примерно так, как показано на Рис. 7.

Выбрать заранее подготовленный скрипт и нажать кнопку «Открыть».

Здесь выбирается скрипт с окончанием «PlantTest», т.к. он создан в формате готовом для отображения диаграммы классов в PlantText UML editor.

Беды не будет, если выбрать скрипт без такого окончания, т.к. как показано дальше формат скриптов для TRAC содержит дополнительные строчки в начале и в конце скрипта, которые легко удаляются.

Шаг 3. В открывшемся окне «Import/Export» в строке «Import» щёлкнуть левой клавишей мыши на кнопку «Обзор», как показано.

Как видно из Рис. 8 диаграмма классов может быть преобразованы в форматы: PNG, SVG [*⁵] , TXT.

Как внести изменения в PlantUML-скрипт для TRAC, чтобы увидеть диаграмму классов

PlantText UML editor работает со скриптами, построенными по правилам языка PlantUML, в соответствии с которыми основной текст скрипта должен быть заключён между операторами @startuml и @enduml. В тоже время для встраивания в плагин (plantuml) TRAC вокруг классического текста создается дополнительная оболочка.

Для того чтобы PlantText UML editor не воспринимал скрипт как ошибочный, из его текста следует удалить строки выше оператора @startuml и ниже оператора @enduml. Эти строки выделены на Рис. 10.

После удаления экран приобретёт вид, показанный на Рис. 8.

Здесь предполагается, что «Система управления проектами TRAC» уже установлена. Тем же, кого интересуют сведения о порядке установки этой системы предлагаем перейти на страницу официального сайта под названием «Руководство по установке Trac».

Вход в установленную на сервере компании систему TRAC выполняется через браузер. Формат URL установленного TRAC может выглядеть так: https://trac.company.ru/. Где вместо «company» указывается домен компании, в которой установлена система TRAC. Поэтому, как показано на Рис. 11, первый шаг представляет собой вход с сиcтему TRAC.

После входа открывается страница проекта, отображающая список проектов компании. Так как вход осуществляется с познавательными целями, то вторым шагом выбирается проект «песочница», предназначенный для изучения возможностей TRAC путём экспериментирования. Смотри Рис. 12.

Щелчок на названии проекта левой клавишей мышки, приводит к тому, что на экране появляются список карточек проекта, а также кнопки вызова различных операций над карточками. В данном случает, как показано на Рис. 13, мы создаем новую карточку, нажав на кнопку с соответствующим названием.

В открывшемся окне для создания новой карточки вводится название карточки в поле «Краткое описание», а в основное окно вставляется текст PlantUML-скрипта. Смотри Рис. 14.

Заметим, что вставляемый скрипт должен быть окружен операторами «обёртки» TRAC. На Рис. 15 эти операторы выделены красным цветом. После нажатия одной из кнопок «Предварительный просмотр» или «Создать карточку» на экране отобразится описанная скриптом диаграмма классов.

Цель достигнута — скрипт включен в карточку системы TRAC, в которой отображается диаграмма классов.