📄 plggen.spb
字号:
retval,
dyncur
);
END IF;
END IF;
RETURN retval;
END;
/* Alias Cache for improved performance: DISABLED
Aliases can be changed with SET command.
PROCEDURE use_aliascache IS BEGIN g_aliascache.inuse := TRUE; END;
PROCEDURE nouse_aliascache IS BEGIN g_aliascache.inuse := FALSE; END;
FUNCTION using_aliascache RETURN BOOLEAN IS BEGIN RETURN g_aliascache.inuse; END;
PROCEDURE aliascache_define (str IN VARCHAR2, delim IN VARCHAR2 := ',')
IS
v_row PLS_INTEGER;
BEGIN
g_aliascache.currinuse := g_aliascache.inuse AND str IS NOT NULL;
g_aliascache.nmtab.DELETE;
g_aliascache.sctab.DELETE;
IF g_aliascache.currinuse
THEN
PLGprs.string (str, g_aliascache.nmtab, delim, PLGprs.c_word, usehash => TRUE);
END IF;
END;
FUNCTION inaliascache (str IN VARCHAR2) RETURN BOOLEAN
IS
v_row PLS_INTEGER := PLGhash (str);
BEGIN
RETURN g_aliascache.nmtab.EXISTS (v_row);
END;
PROCEDURE aliascache_setalias (orig IN VARCHAR2, subst IN VARCHAR2)
IS
v_row PLS_INTEGER;
BEGIN
IF g_aliascache.currinuse
THEN
v_row := PLGhash (orig);
IF g_aliascache.nmtab.EXISTS (v_row) AND
NOT g_aliascache.sctab.EXISTS (v_row)
THEN
g_aliascache.sctab(v_row) := subst;
END IF;
END IF;
END;
*/
PROCEDURE initcur (cur_inout IN OUT INTEGER)
IS
BEGIN
IF NOT DBMS_SQL.is_open (cur_inout)
THEN
cur_inout := DBMS_SQL.open_cursor;
END IF;
EXCEPTION
WHEN INVALID_CURSOR
THEN
cur_inout := DBMS_SQL.open_cursor;
END;
FUNCTION strbyname (
drv IN VARCHAR2,
name_in IN VARCHAR2,
op IN VARCHAR2 := objtagopen,
cl IN VARCHAR2 := objtagclose,
sch IN VARCHAR2 := NULL,
context_in IN VARCHAR2 := NULL,
expandalias_only IN BOOLEAN := FALSE
)
RETURN VARCHAR2
IS
v_name PLGadmin.identifier
:= UPPER (LTRIM (RTRIM (name_in, cl), op));
v_qualifier PLGadmin.identifier := NULL;
v_coltype PLGadmin.identifier := NULL;
v_srcrec PLGdoir.src_rectype;
v_loc PLS_INTEGER;
v_sch PLGadmin.identifier
:= NVL (sch, c_schema);
need_alias BOOLEAN := TRUE;
null_name EXCEPTION;
retval PLGadmin.dbmaxvc2;
BEGIN
--tmr_start;
initcur (dyncur);
IF name_in IS NULL
THEN
retval := name_in;
RAISE null_name;
END IF;
IF debugging
THEN
pl (
'STRBYNAME: name '
|| name_in
|| ' with op/cl = '
|| op
|| cl
|| ' context '
|| context_in
);
END IF;
IF op = aliasopen
THEN
/* 10/99 - If the name contains a ".", then we assume that it
is a packaged variable and get its value. */
v_loc := INSTR (v_name, '.');
IF v_loc > 0
THEN
PLGvar.assign (v_name, v_name, dyncur);
ELSE
v_name := LOWER (v_name);
END IF;
retval := PLGdoir.alias (
drv,
PLGgenv.genrec.objname,
v_name,
sch => v_sch
);
ELSIF op = objtagopen
THEN
/* Support qualified notation like nonpkycol.colname
and unique_index.index_name or nested loops. */
IF escaping (
v_name
) -- slower: SUBSTR (v_name, 1, 1) = '!'
THEN
/* Leave intact and execute as is. */
v_qualifier := NULL;
ELSE
v_loc := INSTR (v_name, '.');
IF v_loc > 0
THEN
v_qualifier :=
SUBSTR (v_name, 1, v_loc
- 1);
v_name := SUBSTR (v_name, v_loc
+ 1);
END IF;
END IF;
/* The name is used to find the source of data for
this named element. */
v_srcrec := PLGdoir.srcinfo (
drv,
v_name,
raise_exc=> FALSE
);
IF debugging
THEN
pl (
'Srcrec string/type: '
|| v_srcrec.srcstring
);
END IF;
IF v_srcrec.srcstring IS NULL
/* 99.2.9 DEFERRED: OR v_qualifier IS NOT NULL */
THEN
DECLARE
v_boolean BOOLEAN;
BEGIN
/* Are we supposed to avoid any processing? */
IF escaping (v_name)
THEN
/* Try a direct PL/SQL translation */
v_srcrec.plsql_command :=
SUBSTR (v_name, 2);
retval :=
valbyname (
v_srcrec.plsql_command,
dyncur
);
/* Try to grab the value from the qualified array. */
ELSIF v_qualifier IS NOT NULL
THEN
/* Validate the array and convert the array name. */
PLGdoir.validate_isarray (
PLGgenv.genrec.driver,
v_qualifier,
retval
);
/* dummy value, just temporary usage, overwritten below */
v_loc :=
PLGgen.genstate (
genrec_ptr (v_qualifier)
).currrow;
IF debugging
THEN
pl (
'Array validated as '
|| v_qualifier
|| ' with name '
|| v_name
|| ' and state pointer '
|| v_loc
);
END IF;
v_srcrec.plsql_command :=
curlooprow (
v_qualifier,
v_loc,
retval
)
|| v_name;
IF debugging
THEN
pl (
'Get valbyname for array element from '
|| v_srcrec.plsql_command
);
END IF;
retval := valbyname (
v_srcrec.plsql_command,
dyncur
);
/* Use the current context array information instead. */
ELSE
v_srcrec.plsql_command :=
context_in
|| v_name;
retval :=
valbyname (
v_srcrec.plsql_command,
dyncur
);
END IF;
EXCEPTION
/* Might have failed cause it's a boolean and could not
be converted implicitly. See if it is a field in the
array and then treat it as a potential (and "unregistered")
PLGdoir boolean function call. */
WHEN plsql_compile_error
THEN
BEGIN
PLGvar.assign (
v_srcrec.plsql_command,
v_boolean,
dyncur
);
retval :=
PLGbool.stg (
v_boolean,
PLGdoir.c_truefalse
);
EXCEPTION
WHEN OTHERS
THEN
BEGIN
PLGvar.assign (
PLGdoir.func_call (
v_name,
PLGgenv.genrec.driver,
PLGgenv.genrec.objname,
PLGgenv.genrec.schema
),
v_boolean,
dyncur,
use_plgerr=> FALSE
);
retval :=
PLGbool.stg (
v_boolean,
PLGdoir.c_truefalse
);
EXCEPTION
WHEN plsql_compile_error
THEN
PLGerr.reset;
PLGerr.RAISE (
PLGerr.undefined_objtag,
'Unable to translate "'
|| v_name
|| '"'
);
END;
END;
END;
ELSIF PLGdoir.plsql_command_src (drv, v_srcrec)
THEN
/* If type = plsql command, then use the plsql_command. Check for [objname]
and [schema] and do the appropriate binds before executing the dynamic
PL/SQL. Just call this program recursively to do replacements...
*/
DECLARE
v_boolean BOOLEAN := TRUE;
v_number NUMBER;
BEGIN
/* RECURSION */
IF debugging
THEN
pl (
'Before substitution: '
|| v_srcrec.plsql_command
);
END IF;
IF v_srcrec.context = 'DEFAULT'
THEN
/* Don't need to do complex substitution. */
v_srcrec.plsql_command :=
PLGdoir.func_call (
v_name,
PLGgenv.genrec.driver,
PLGgenv.genrec.objname,
PLGgenv.genrec.schema
);
ELSE
substitute_string (
drv,
v_srcrec.plsql_command,
embed_in_quotes=> TRUE,
sch => v_sch,
context_in=> context_in
);
END IF;
IF debugging
THEN
pl (
'Dynamic OIR execution of: '
|| v_srcrec.plsql_command
);
END IF;
IF PLGadmin.isvarchar2 (v_srcrec.returntype)
THEN
PLGvar.assign (
v_srcrec.plsql_command,
retval,
dyncur
);
ELSIF PLGadmin.isnumber (v_srcrec.returntype)
THEN
PLGvar.assign (
v_srcrec.plsql_command,
v_number,
dyncur
);
retval := TO_CHAR (v_number);
ELSIF PLGadmin.isboolean (
v_srcrec.returntype
)
THEN
PLGvar.assign (
v_srcrec.plsql_command,
v_boolean,
dyncur
);
retval :=
PLGbool.stg (
v_boolean,
PLGdoir.c_truefalse
);
END IF;
IF debugging
THEN
pl (
'generated a value of : '
|| retval
);
END IF;
END;
ELSE
/* Non PL/SQL object tag: look up in array or PLGgenv */
IF v_qualifier IS NOT NULL
THEN
v_loc := genrec_ptr (v_qualifier);
END IF;
IF PLGdoir.iteration_specific_src (
drv,
v_srcrec
)
THEN
IF v_qualifier IS NOT NULL
THEN
retval := valbyname (
'PLGgen.genstate ('
|| TO_CHAR (v_loc)
|| ').'
|| v_name,
dyncur
);
ELSE
retval := valbyname (
'PLGgen.loopstate.'
|| v_name,
dyncur
);
END IF;
ELSIF PLGdoir.driver_wide_src (drv, v_srcrec)
THEN
IF v_qualifier IS NOT NULL
THEN
retval := valbyname (
'PLGgen.genstate ('
|| TO_CHAR (v_loc)
|| ').'
|| v_name,
dyncur
);
/* 99.2 Special case override of name with abbreviation */
ELSIF PLGgenv.genrec.useobjabbrev
AND v_name = PLGdoir.c_objname
THEN
retval := PLGgenv.genrec.objabbrev;
/* 99.2 Avoid dynamic PL/SQL with known elements */
ELSIF v_name = PLGdoir.c_objname
THEN
retval := PLGgenv.genrec.objname;
ELSE
retval := valbyname (
'PLGgenv.genrec.'
|| v_name,
dyncur
);
END IF;
ELSIF PLGdoir.column_specific_src (
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -