@tangelo/tangelo-configuration-toolkit 1.6.1 → 1.8.0-beta.2

package/build/project/tangelo-default-implementation/src/database/tdi/plsql/tdi_numbering.pkb

@@ -1,425 +0,0 @@
-create or replace package body tdi_numbering
-is
-
-
-ATTRIBUTE_NAME_APPLY   constant varchar2(100) := 'applyNumbering';
-VAL_NONUMBERING        constant varchar2(100) := 'false';
-VAL_WITHINPARENT       constant varchar2(100) := 'true';
-VAL_WITHOUTPARENT      constant varchar2(100) := 'onelevel';
-VAL_CONTINUOUS         constant varchar2(100) := 'note';
-VAL_CONT_RESTART       constant varchar2(100) := 'note-restart';
-ATTRIBUTE_NAME_STYLE   constant varchar2(100) := 'styleNumbering';
-
-
-function calculate_number
-( p_node_id             in number
-, p_parent_node_id      in number
-, p_apply_setting       in varchar2
-)
-return number
-is
-  l_count    number := 0;
-  l_level    number;
-  l_root_id  number;
-begin
-  if p_apply_setting = VAL_CONT_RESTART then
-    return 1;
-
-  elsif p_apply_setting = VAL_CONTINUOUS then -- count within whole document, but only sections of same level
-    select     n.id, level
-    into       l_root_id, l_level
-    from       tanapi.nodes n
-    where      n.parent_id is null
-    connect by prior n.parent_id = n.id
-    start with n.id = p_node_id
-    ;
-
-    for r in ( -- returns list of nodes to count
-      select     n.id node_id
-      ,          (select o.ref_value
-                  from   tanapi.object_refs o
-                  where  o.attribute_name = ATTRIBUTE_NAME_APPLY
-                    and  o.xmldata_id     = n.xmldata_id
-                 ) apply_setting
-      from       tanapi.nodes n
-      where      level = l_level
-      connect by prior n.id = n.parent_id
-      start with n.id = l_root_id
-      order siblings by n.child_seq
-    )
-    loop
-      if r.apply_setting = VAL_CONTINUOUS
-      then
-        l_count := l_count + 1;
-      elsif p_apply_setting = VAL_CONTINUOUS and r.apply_setting = VAL_CONT_RESTART then
-        l_count := 1;
-      end if;
-
-      exit when r.node_id = p_node_id; -- stop counting when target node is reached
-    end loop;
-
-  else
-
-    for r in ( -- returns list of nodes to count
-      select   n.id node_id
-      ,        (select o.ref_value
-                from   tanapi.object_refs o
-                where  o.attribute_name = ATTRIBUTE_NAME_APPLY
-                  and  o.xmldata_id     = n.xmldata_id
-               ) apply_setting
-      from     tanapi.nodes n
-      where    n.parent_id = p_parent_node_id
-      order by n.child_seq
-    )
-    loop
-      if    (p_apply_setting = r.apply_setting and r.apply_setting = VAL_WITHINPARENT)
-         or (p_apply_setting = r.apply_setting and r.apply_setting = VAL_WITHOUTPARENT)
-      then
-        l_count := l_count + 1;
-      end if;
-
-      exit when r.node_id = p_node_id; -- stop counting when target node is reached
-    end loop;
-
-
-  end if;
-
-  return l_count;
-end calculate_number;
-
-
-function style_number
-( p_style   in varchar2
-, p_number  in number
-)
-return varchar2
-is
-  l_first_alpha number;
-  l_styled      varchar2(20);
-begin
-
-  if p_style like '%-alphanumeric' then
-    l_first_alpha := floor((p_number - 1)/26);
-    if l_first_alpha != 0 then
-      l_styled := chr(l_first_alpha + 64);
-    end if;
-    l_styled := l_styled || chr(mod(p_number - 1,26) + 1 + 64);
-
-  elsif p_style like '%-roman' then
-    l_styled := to_char(p_number,'FMRN');
-
-  end if;
-
-  if p_style like 'lower-%' then
-    l_styled := lower(l_styled);
-  end if;
-
-  return nvl(l_styled, p_number);
-
-exception
-  when others then
-    return 'E';
-end style_number;
-
-
-function get_number
-( p_node_id             in number
-, p_include_parents     in varchar2 default 'Y'
-, p_separator           in varchar2 default '.'
-)
-return varchar2
-is
-  l_number  varchar2(20);
-begin
-  for r in (
-    select     n.id node_id, n.xmldata_id, n.parent_id
-    ,          (select o.ref_value
-                from   tanapi.object_refs o
-                where  o.xmldata_id = n.xmldata_id and o.attribute_name = ATTRIBUTE_NAME_APPLY
-               ) apply_setting
-    ,          (select o.ref_value
-                from   tanapi.object_refs o
-                where  o.xmldata_id = n.xmldata_id and o.attribute_name = ATTRIBUTE_NAME_STYLE
-               ) style_setting
-    from       tanapi.nodes n
-    connect by p_include_parents = 'Y' and prior n.parent_id = n.id
-    start with n.id = p_node_id
-  )
-  loop
-    exit when r.apply_setting is null or r.apply_setting = VAL_NONUMBERING;
-
-    l_number := style_number
-                ( r.style_setting
-                , calculate_number(r.node_id, r.parent_id, r.apply_setting)
-                )
-             || case when l_number is not null then p_separator || l_number end;
-
-    exit when r.apply_setting = VAL_WITHOUTPARENT;
-  end loop;
-
-  return l_number;
-end get_number;
-
-
-function number_xml
-( p_node_id             in number
-, p_include_parents     in varchar2 default 'Y' -- deprecated
-, p_separator           in varchar2 default '.'
-, p_full_branche        in varchar2 default 'N'
-, p_included_nodes      in varchar2 default 'Y' -- deprecated
-)
-return xmltype
-is
-  l_number  varchar2(20);
-  l_xml     xmltype;
-begin
-  if p_full_branche = 'N' then
-    l_number := get_number(p_node_id, p_include_parents, p_separator);
-    l_xml    := xmltype('<numbering'|| case when l_number is not null then ' number="'||l_number||'"' end ||'/>');
-
-  else
-
-    select     xmlelement("numbering"
-               , xmlattributes(p_node_id as "forBrancheNodeId")
-               , xmlagg
-                 ( xmlelement("node"
-                   , xmlattributes
-                     ( a.id as "id"
-                     , case when p_include_parents = 'Y'
-                            then replace
-                                 ( regexp_replace
-                                   ( sys_connect_by_path(a.num,'.') -- concat num's of ancestors and self
-                                   , '.*\.\.|^\.', ''               -- remove leading dot and ancestors without num
-                                   )
-                                 , '.', p_separator
-                                 )
-                            else a.num
-                       end as "number"
-                     )
-                   )
-                 )
-               )
-    into       l_xml
-    from       (select b.id, b.parent_id, get_number(b.id, 'N') num -- get num for self only
-                ,      case when exists(
-                                   select 1
-                                   from   tanapi.object_refs o
-                                   where  o.xmldata_id = b.xmldata_id
-                                      and o.attribute_name = ATTRIBUTE_NAME_APPLY and o.ref_value = VAL_WITHOUTPARENT
-                                 )
-                            then 'Y'
-                            else 'N'
-                       end onelevel
-                from       (-- get descendant nodes starting from branch node (p_node_id)
-                            select     n.id, n.parent_id, n.xmldata_id
-                            from       tanapi.nodes n
-                            connect by prior n.id = n.parent_id
-                                   and (   p_included_nodes = 'Y'
-                                        or exists (
-                                             select 1
-                                             from   tanapi.section_types st
-                                             where  st.browse_setting in ('L','F','B')
-                                               and  st.id = n.section_type_id
-                                           )
-                                       )
-                            start with n.parent_id = p_node_id
-                            union all
-                            -- add branch node and ancestors
-                            select     n.id, n.parent_id, n.xmldata_id
-                            from       tanapi.nodes n
-                            connect by prior n.parent_id = n.id
-                            start with n.id = p_node_id
-                        ) b
-               ) a
-    where      a.num is not null
-    connect by prior a.id = a.parent_id and a.onelevel = 'N'
-    start with a.parent_id is null or a.onelevel = 'Y'
-    ;
-
-  end if;
-
-  return l_xml;
-
-exception
-  when others then
-    return tanapi.sys_util.error_xml;
-end number_xml;
-
-
-function number_http
-( p_node_id             in number
-, p_include_parents     in varchar2 default 'Y' -- deprecated
-, p_separator           in varchar2 default '.'
-)
-return tanapi.pls_result
-is
-begin
-  return new tanapi.pls_result(
-    number_xml(p_node_id, p_include_parents, p_separator)
-  );
-end number_http;
-
-
-function elements_xml
-( p_node_id             in number
-, p_object_elements     in varchar2              -- List of TANCMS.TXD_OBJECT_ELEMENTS.ID, comma separated
-, p_hierarchical        in varchar2 default 'Y'  -- Only count until first ancestor having node numbering
-)
-return xmltype
-is
-  l_branch_id        number;
-  l_xml              xmltype;
-  l_document_type_id number;
- 
-begin
-  l_document_type_id := tanapi.obj_select.document_type_for_node(p_node_id).id;
-  
-  if p_hierarchical = 'Y' then
-    select     n.id
-    into       l_branch_id
-    from                 tanapi.nodes       n
-               left join tanapi.object_refs o on o.xmldata_id = n.xmldata_id and o.attribute_name = 'applyNumbering'
-    where      connect_by_isleaf = 1
-    connect by prior n.parent_id = n.id and prior o.ref_value is null
-    start with n.id = p_node_id
-    ;
-  else
-    select dv.root_node_id
-    into   l_branch_id
-    from              tanapi.document_versions dv
-           inner join tanapi.nodes             n  on n.document_version_id = dv.id
-    where  n.id = p_node_id
-    ;
-  end if;
-
-  select   xmlelement("elementNumbering"
-           , xmlagg(
-               xmlelement("e"
-               , xmlattributes(oe.id as "id", oe.element_selector as "selector")
-               , count(b.xmldata_id)
-               )
-               order by oe.id
-             )
-           )
-  into     l_xml
-  from     tancms.txd_object_elements oe
-           inner join
-             (-- tokenize p_object_elements
-              select     substr(s, instr(s,',',1,level) + 1, instr(s,',',1,level+1) - instr(s,',',1,level) - 1) token
-              from       (select ','||p_object_elements||',' as s from dual)
-              connect by level <= length(s) - length(replace(s,',','')) - 1
-             ) a on a.token = oe.id
-           left join
-             tancms.txd_object_references obr on obr.object_element_id = oe.id
-           left join
-             (-- get tree until current node
-              select     a.xmldata_id
-              from       (-- get full document tree
-                          select     rownum rn, n.id, n.xmldata_id
-                          from       tanapi.nodes n
-                          connect by prior n.id = n.parent_id
-                          start with n.id = l_branch_id
-                          order siblings by n.child_seq
-                         ) a
-              connect by prior a.rn + 1 = a.rn and a.id != p_node_id
-              start with a.rn = 1
-             ) b on b.xmldata_id = obr.xmldata_id
-  where    oe.document_type_id = l_document_type_id
-  group by oe.id, oe.element_selector
-  ;
-
-  return l_xml;
-
-exception
-  when others then
-    return tanapi.sys_util.error_xml;
-end elements_xml;
-
-
-function elements_http
-( p_node_id             in number
-, p_object_elements     in varchar2              -- List of TANCMS.TXD_OBJECT_ELEMENTS.ID, comma separated
-, p_hierarchical        in varchar2 default 'Y'  -- Only count until first ancestor having node numbering
-)
-return tanapi.pls_result
-is
-begin
-  return tanapi.sys_util.create_pls_result(
-    elements_xml(p_node_id, p_object_elements, p_hierarchical)
-  );
-end elements_http;
-
-
--- BELOW FUNCTIONS ARE DEPRECATED
-
-
-function paragraph_code_xml
-( p_node_id             in number
-, p_include_parents     in varchar2 default 'Y'
-, p_separator           in varchar2 default '.'
-, p_full_branche        in varchar2 default 'N'
-, p_included_nodes      in varchar2 default 'Y'
-)
-return xmltype
-is
-  l_code  varchar2(20);
-  l_xml   xmltype;
-begin
-  if p_full_branche = 'N' then
-    l_code := get_number(p_node_id, p_include_parents, p_separator);
-    l_xml  := xmltype(case when l_code is null then '<noParagraphCode/>' else '<paragraphCode code="'||l_code||'"/>' end);
-  else
-    l_xml := number_xml(p_node_id, p_include_parents, p_separator, p_full_branche, p_included_nodes);
-    select xmlquery
-           ( 'copy $tmp := .
-              modify (
-                rename node $tmp/* as "paragraphCodes"
-              , for $attr in $tmp//node/@number
-                return
-                  rename node $attr as "code"
-              )
-              return $tmp
-             '
-             passing l_xml
-             returning content
-           ) xml
-    into   l_xml
-    from   dual
-    ;
-  end if;
-  return l_xml;
-exception
-  when others then
-    return tanapi.sys_util.error_xml;
-end paragraph_code_xml;
-
-
-function paragraph_code_http
-( p_node_id             in number
-, p_include_parents     in varchar2 default 'Y'
-, p_separator           in varchar2 default '.'
-)
-return tanapi.pls_result
-is
-begin
-  return new tanapi.pls_result(
-    paragraph_code_xml(p_node_id, p_include_parents, p_separator)
-  );
-end paragraph_code_http;
-
-
-function paragraph_codes_http
-( p_node_id             in number
-, p_include_parents     in varchar2 default 'Y'
-)
-return tanapi.pls_result
-is
-begin
-  return new tanapi.pls_result(
-    paragraph_code_xml(p_node_id, p_include_parents, p_full_branche => 'Y')
-  );
-end paragraph_codes_http;
-
-
-end tdi_numbering;
-/

package/build/project/tangelo-default-implementation/src/database/tdi/plsql/tdi_numbering.pks

@@ -1,76 +0,0 @@
-create or replace package tdi_numbering
-is
-
-
-function get_number
-( p_node_id             in number
-, p_include_parents     in varchar2 default 'Y'
-, p_separator           in varchar2 default '.'
-)
-return varchar2;
-
-
-function number_xml
-( p_node_id             in number
-, p_include_parents     in varchar2 default 'Y' -- deprecated
-, p_separator           in varchar2 default '.'
-, p_full_branche        in varchar2 default 'N'
-, p_included_nodes      in varchar2 default 'Y' -- deprecated
-)
-return xmltype;
-
-
-function number_http
-( p_node_id             in number
-, p_include_parents     in varchar2 default 'Y' -- deprecated
-, p_separator           in varchar2 default '.'
-)
-return tanapi.pls_result;
-
-
-function elements_xml
-( p_node_id             in number
-, p_object_elements     in varchar2              -- List of TANCMS.TXD_OBJECT_ELEMENTS.ID, comma separated
-, p_hierarchical        in varchar2 default 'Y'  -- Only count until first ancestor having node numbering
-)
-return xmltype;
-
-
-function elements_http
-( p_node_id             in number
-, p_object_elements     in varchar2              -- List of TANCMS.TXD_OBJECT_ELEMENTS.ID, comma separated
-, p_hierarchical        in varchar2 default 'Y'  -- Only count until first ancestor having node numbering
-)
-return tanapi.pls_result;
-
-
--- BELOW FUNCTIONS ARE DEPRECATED
-
-
-function paragraph_code_xml
-( p_node_id             in number
-, p_include_parents     in varchar2 default 'Y'
-, p_separator           in varchar2 default '.'
-, p_full_branche        in varchar2 default 'N'
-, p_included_nodes      in varchar2 default 'Y' -- set to N for xmlpages
-)
-return xmltype;
-
-
-function paragraph_code_http
-( p_node_id             in number
-, p_include_parents     in varchar2 default 'Y'
-, p_separator           in varchar2 default '.'
-)
-return tanapi.pls_result;
-
-
-function paragraph_codes_http
-( p_node_id             in number
-, p_include_parents     in varchar2 default 'Y'
-)
-return tanapi.pls_result;
-
-
-end tdi_numbering;
-/

package/build/project/tangelo-default-implementation/src/database/tdi/tan_xmlcache_files.sql

@@ -1,17 +0,0 @@
-merge into tancms.tan_xmlcache_files using dual on (xml_file = 'tdi/prepare_xincludes.xsl')
-when not matched then
-  insert (xml_file)
-  values ('tdi/prepare_xincludes.xsl')
-;
-
-merge into tancms.tan_xmlcache_files using dual on (xml_file = 'tdi/toc/_paste_below.xsl')
-when not matched then
-  insert (xml_file)
-  values ('tdi/toc/_paste_below.xsl')
-;
-
-merge into tancms.tan_xmlcache_files using dual on (xml_file = 'tdi/toc/_paste_into.xsl')
-when not matched then
-  insert (xml_file)
-  values ('tdi/toc/_paste_into.xsl')
-;

package/build/project/tangelo-default-implementation/src/readme.md

@@ -1,7 +0,0 @@
-# [customer]
-
-## Notes 
-Describe special custom specific code / requirements here
-
--
--

package/build/project/tangelo-default-implementation/tct/build/init.js

@@ -1,81 +0,0 @@
-module.paths.push(_paths.app+'/node_modules', _paths.app+'/src/lib');
-
-const g_print   = require('gulp-print');
-const g_rename  = require('gulp-simple-rename');
-const g_replace = require('gulp-batch-replace-with-filter');
-const gulp      = require('gulp');
-const inquirer  = require('inquirer');
-const path      = require('path');
-
-
-const srcPath = path.join(_paths.tdi, 'src');
-const validateName  = v => v.length>3 || 'Enter a valid name! (At least 4 chars)';
-const validateAbbr  = v => v.length>1 || 'Enter a valid abbreviation! (At least 2 chars)';
-
-
-module.exports = function init (cb) {
-
-  (async () => (_appconfig.build ||
-    await inquirer
-    .prompt([
-      {message: 'Customer name: ', name: 'customer_name', default: 'Tangelo', validate: validateName},
-      {message: 'Customer abbreviation: ', name: 'customer_abbr', default: 'TLO', validate: validateAbbr, filter: v => v.toUpperCase()},
-      {message: 'Application link: ', name: 'app_link', type: 'list', choices: ['None', 'Cognos', 'Decade'], filter: v => v.toLowerCase()}
-    ])
-  ))()
-  .then(a => {
-    _appconfig.build || _write();
-    _info('Copying files to repository:');
-
-    a.customer_dir = a.customer_name.toLowerCase().replace(/[ '"]/g, '_');
-
-    const paths = [
-      '*',
-      'database/**',
-      'config/cmscustom/\[customer?/fonts/**', // escaping "]" doesn't work
-      'config/txd/**',
-      '!database/{config,tdi}/**'
-    ];
-
-    const replaceStrings = [
-      [/(<folder masterFiles="true".*?>).*?(\s*)(<\/folder>)/s, '$1$2$3', '**/*.xpr'],
-      ['[Customer]', a.customer_name],
-      ['[customer]', a.customer_dir],
-      ['[CUSTOM-SCHEMA]', a.customer_abbr],
-      ['[custom-schema]', a.customer_abbr.toLowerCase()]
-    ];
-
-    if (a.app_link != 'decade') {
-      paths.push('!database/decade/**');
-      replaceStrings.push(
-        [/prompt\s+prompt Connect as user DCF.*?set define on\s+/gs, '', '**/install.sql'],
-        [/^.*(dcf|decade).*(\r|\n)+/gm, '', '**/install.sql'],
-        [/^.*decade.*\s*/gm, '', '**/custom-UI-text*']
-      );
-    }
-
-    const applyPathRenames = path =>
-      path
-      .replace(/\[customer\]/g, a.customer_dir)
-      .replace(/\[CUSTOM-SCHEMA\]/g, a.customer_abbr)
-      .replace(/\[custom-schema\]/g, a.customer_abbr.toLowerCase())
-      .replace('.gitignore_', '.gitignore')
-    ;
-
-    g_print.setLogFunction((filepath) => _write(filepath.nostyle.replace(/tangelo-default-implementation.src./,'')));
-
-    gulp
-    .src(paths, {base: srcPath, cwd: srcPath, dot: true})
-    .pipe(g_replace(replaceStrings))
-    .pipe(g_rename(applyPathRenames))
-    .pipe(g_print.default())
-    .pipe(gulp.dest('.'))
-    .on('end', ()=>{
-      _write();
-      cb();
-    })
-    ;
-
-  });
-
-};

package/build/project/tangelo-default-implementation/tct/build/oxygen/create-SEF.cmd

@@ -1,3 +0,0 @@
-call xslt3 -t -xsl:createProjectFile.xsl -export:createProjectFile.sef.json -nogo
-
-pause