vorax 0.4.2 → 5.0

data/spec/plsql_structure_spec.rb

@@ -1,68 +0,0 @@
-# encoding: UTF-8
-
-include Vorax
-
-describe 'plsql structure' do
-
-	before(:each) do# {{{
-		@result = ""
-	end# }}}
-
-	def compute_tree(node, level = 0)# {{{
-		if node.is_root?
-			@result << "*"
-		else
-			@result << "|" unless node.parent.is_last_sibling?
-			@result << (' ' * (node.level - 1) * 4)
-			@result << (node.is_last_sibling? ? "+" : "|")
-			@result << "---"
-			@result << (node.has_children? ? "+" : ">")
-		end
-
-		@result << " #{node.name} - #{(node.content ? node.content.end_pos : '')} -> begin=#{(node.content ? node.content.body_start_pos : '')}\n"
-
-		node.children { |child| compute_tree(child, level + 1)}
-	end# }}}
-
-  it 'should work for complex plsql code' do# {{{
-    text = File.open('spec/sql/test.pkg', 'rb') { |file| file.read }
-    structure = Parser::PlsqlStructure.new(text)
-    compute_tree(structure.tree)
-    @result.should eq(<<STR
-* root -  -> begin=
-|---+ test[SPEC]: 25 - 154 -> begin=0
-|    |---> test[PROCEDURE]: 61 - 61 -> begin=0
-|    +---> muci[FUNCTION]: 91 - 91 -> begin=0
-+---+ test[BODY]: 180 - 1672 -> begin=1635
-    |---+ private_proc[PROCEDURE]: 232 - 1373 -> begin=454
-|        |---> abc[FUNCTION]: 325 - 392 -> begin=360
-|        |---> xyz[PROCEDURE]: 403 - 449 -> begin=424
-|        |---+ for[FOR_BLOCK]: 485 - 1042 -> begin=530
-|            |---> if[IF_BLOCK]: 563 - 636 -> begin=564
-|            +---+ if[IF_BLOCK]: 645 - 1016 -> begin=646
-                |---+ if[IF_BLOCK]: 667 - 924 -> begin=668
-|                    +---> for[FOR_BLOCK]: 691 - 858 -> begin=736
-                +---> if[IF_BLOCK]: 935 - 1002 -> begin=936
-|        |---> if[IF_BLOCK]: 1088 - 1167 -> begin=1089
-|        +---> loop[LOOP_BLOCK]: 1223 - 1318 -> begin=1224
-    |---+ test[PROCEDURE]: 1378 - 1544 -> begin=1410
-|        +---> anonymous[BLOCK]: 1466 - 1537 -> begin=1461
-    +---> muci[FUNCTION]: 1549 - 1632 -> begin=1603
-STR
-)
-  end# }}}
-
-  it 'should work for a function' do# {{{
-    text = File.open('spec/sql/test.fnc', 'rb') { |file| file.read }
-    structure = Parser::PlsqlStructure.new(text)
-    compute_tree(structure.tree)
-    @result.should eq(<<STR
-* root -  -> begin=
-+---+ test[FUNCTION]: 18 - 134 -> begin=118
-    +---> muci[PROCEDURE]: 78 - 115 -> begin=97
-STR
-)
-  end# }}}
-
-end
-

data/spec/spec_helper.rb

@@ -1,13 +0,0 @@
-# encoding: UTF-8
-
-$LOAD_PATH << File.expand_path('../../lib', __FILE__)
-
-# Initialize the VORAX_TEST_CSTR environment variable with
-# the user/pwd@db connection string, pointing to VORAX test
-# user, or change the below line accordingly.
-VORAX_CSTR = "connect #{ENV['VORAX_TEST_CSTR']}"
-
-require 'tempfile'
-require 'timeout'
-require 'vorax'
-

data/spec/sql/create_objects.sql

@@ -1,69 +0,0 @@
-set verify off
-set feedback off
-
-prompt Create DEPARTMENTS_ID sequence
-create sequence departments_id;
-
-prompt Create DEPARTMENTS table
-create table departments (
-  id integer,
-  name varchar2(50),
-  description varchar2(4000)
-);
-
-alter table departments add constraint pk_departments primary key (id);
-
-comment on table departments is 'All departments.';
-comment on column departments.id is 'The department id.';
-comment on column departments.name is 'The department name.';
-comment on column departments.description is 'The description of this department.';
-
-insert into departments (id, name, description) 
-     values (departments_id.nextval, 'Bookkeeping', 'This department is responsible for:' ||
-                                                    chr(10) || '- financial reporting' ||
-                                                    chr(10) || '- analysis' ||
-                                                    chr(10) || '- other boring tasks');
-insert into departments (id, name)
-     values (departments_id.nextval, 'Marketing');
-insert into departments (id, name)
-     values (departments_id.nextval, 'Deliveries');
-insert into departments (id, name)
-     values (departments_id.nextval, 'CRM');
-insert into departments (id, name)
-     values (departments_id.nextval, 'Legal Stuff');
-insert into departments (id, name, description)
-     values (departments_id.nextval, 'Management', 'The bad guys department');
-insert into departments (id, name)
-     values (departments_id.nextval, 'Cooking');
-insert into departments (id, name)
-     values (departments_id.nextval, 'Public Relations');
-insert into departments (id, name)
-     values (departments_id.nextval, 'Aquisitions');
-insert into departments (id, name)
-     values (departments_id.nextval, 'Cleaning');
-commit;
-
-prompt Create EMPLOYEES_ID sequence
-create sequence employees_id;
-
-prompt Create EMPLOYEES table
-create table EMPLOYEES (
-  id integer,
-  name nvarchar2(100),
-  salary number,
-  department_id integer);
-
-alter table employees add constraint pk_employees primary key (id);
-alter table employees add constraint fk_employees_departments foreign key (department_id) references departments(id);
-
-comment on table employees is 'All employees baby.';
-comment on column employees.id is 'The employee identifier.';
-comment on column employees.name is 'The name of the employee.';
-comment on column employees.salary is 'The employee salary.';
-comment on column employees.department_id is 'The department identifier to which the employee is registered.';
-
-insert into employees (id, name, salary, department_id) values (employees_id.nextval, 'Tic' || unistr('\0103') || ' ' || unistr('\0218') || 'erban', 570, 1);
-commit;
-
-prompt Done.
-quit

data/spec/sql/dbms_crypto.spc

@@ -1,339 +0,0 @@
-CREATE OR REPLACE PACKAGE SYS.DBMS_CRYPTO AS
-
-    ---------------------------------------------------------------------------
-    --
-    -- PACKAGE NOTES
-    --
-    -- DBMS_CRYPTO contains basic cryptographic functions and
-    -- procedures.  To use correctly and securely, a general level of
-    -- security expertise is assumed.
-    --
-    -- VARCHAR2 datatype is not supported.  Cryptographic operations
-    -- on this type should be prefaced with conversions to a uniform
-    -- character set (AL32UTF8) and conversion to RAW type.
-    --
-    -- Prior to encryption, hashing or keyed hashing, CLOB datatype is
-    -- converted to AL32UTF8.  This allows cryptographic data to be
-    -- transferred and understood between databases with different
-    -- character sets, across character set changes and between
-    -- separate processes (for example, Java programs).
-    --
-    ---------------------------------------------------------------------------
-
-
-    -------------------------- ALGORITHM CONSTANTS ----------------------------
-    -- The following constants refer to various types of cryptographic
-    -- functions available from this package.  Some of the constants
-    -- represent modifiers to these algorithms.
-    ---------------------------------------------------------------------------
-
-    -- Hash Functions
-    HASH_MD4           CONSTANT PLS_INTEGER            :=     1;
-    HASH_MD5           CONSTANT PLS_INTEGER            :=     2;
-    HASH_SH1           CONSTANT PLS_INTEGER            :=     3;
-
-    -- MAC Functions
-    HMAC_MD5           CONSTANT PLS_INTEGER            :=     1;
-    HMAC_SH1           CONSTANT PLS_INTEGER            :=     2;
-
-    -- Block Cipher Algorithms
-    ENCRYPT_DES        CONSTANT PLS_INTEGER            :=     1;  -- 0x0001
-    ENCRYPT_3DES_2KEY  CONSTANT PLS_INTEGER            :=     2;  -- 0x0002
-    ENCRYPT_3DES       CONSTANT PLS_INTEGER            :=     3;  -- 0x0003
-    ENCRYPT_AES        CONSTANT PLS_INTEGER            :=     4;  -- 0x0004
-    ENCRYPT_PBE_MD5DES CONSTANT PLS_INTEGER            :=     5;  -- 0x0005
-    ENCRYPT_AES128     CONSTANT PLS_INTEGER            :=     6;  -- 0x0006
-    ENCRYPT_AES192     CONSTANT PLS_INTEGER            :=     7;  -- 0x0007
-    ENCRYPT_AES256     CONSTANT PLS_INTEGER            :=     8;  -- 0x0008
-
-    -- Block Cipher Chaining Modifiers
-    CHAIN_CBC          CONSTANT PLS_INTEGER            :=   256;  -- 0x0100
-    CHAIN_CFB          CONSTANT PLS_INTEGER            :=   512;  -- 0x0200
-    CHAIN_ECB          CONSTANT PLS_INTEGER            :=   768;  -- 0x0300
-    CHAIN_OFB          CONSTANT PLS_INTEGER            :=  1024;  -- 0x0400
-
-    -- Block Cipher Padding Modifiers
-    PAD_PKCS5          CONSTANT PLS_INTEGER            :=  4096;  -- 0x1000
-    PAD_NONE           CONSTANT PLS_INTEGER            :=  8192;  -- 0x2000
-    PAD_ZERO           CONSTANT PLS_INTEGER            := 12288;  -- 0x3000
-    PAD_ORCL           CONSTANT PLS_INTEGER            := 16384;  -- 0x4000
-
-    -- Stream Cipher Algorithms
-    ENCRYPT_RC4        CONSTANT PLS_INTEGER            :=   129;  -- 0x0081
-
-
-    -- Convenience Constants for Block Ciphers
-    DES_CBC_PKCS5      CONSTANT PLS_INTEGER            := ENCRYPT_DES
-                                                          + CHAIN_CBC
-                                                          + PAD_PKCS5;
-
-    DES3_CBC_PKCS5     CONSTANT PLS_INTEGER            := ENCRYPT_3DES
-                                                          + CHAIN_CBC
-                                                          + PAD_PKCS5;
-
-    AES_CBC_PKCS5      CONSTANT PLS_INTEGER            := ENCRYPT_AES
-                                                          + CHAIN_CBC
-                                                          + PAD_PKCS5;
-
-
-    ----------------------------- EXCEPTIONS ----------------------------------
-    -- Invalid Cipher Suite
-    CipherSuiteInvalid EXCEPTION;
-    PRAGMA EXCEPTION_INIT(CipherSuiteInvalid, -28827);
-
-    -- Null Cipher Suite
-    CipherSuiteNull EXCEPTION;
-    PRAGMA EXCEPTION_INIT(CipherSuiteNull,    -28829);
-
-    -- Key Null
-    KeyNull EXCEPTION;
-    PRAGMA EXCEPTION_INIT(KeyNull,            -28239);
-
-    -- Key Bad Size
-    KeyBadSize EXCEPTION;
-    PRAGMA EXCEPTION_INIT(KeyBadSize,         -28234);
-
-    -- Double Encryption
-    DoubleEncryption EXCEPTION;
-    PRAGMA EXCEPTION_INIT(DoubleEncryption,   -28233);
-
-
-    ---------------------- FUNCTIONS AND PROCEDURES ------------------------
-
-    ------------------------------------------------------------------------
-    --
-    -- NAME:  Encrypt
-    --
-    -- DESCRIPTION:
-    --
-    --   Encrypt plain text data using stream or block cipher with user
-    --   supplied key and optional iv.
-    --
-    -- PARAMETERS
-    --
-    --   plaintext   - Plaintext data to be encrypted
-    --   crypto_type - Stream or block cipher type plus modifiers
-    --   key         - Key to be used for encryption
-    --   iv          - Optional IV for block ciphers.  Default all zeros.
-    --
-    -- USAGE NOTES:
-    --
-    --   Block ciphers may be modified with chaining type (CBC most
-    --   common) and padding type (PKCS5 recommended).  Of the four
-    --   common data formats, three have been provided: RAW, BLOB,
-    --   CLOB. For VARCHAR2 encryption, callers should first convert
-    --   to AL32UTF8 character set and then encrypt.
-    --
-    --     Encrypt(UTL_RAW.CAST_TO_RAW(CONVERT(src,'AL32UTF8')),typ,key);
-    --
-    --   As return type for encrypt is RAW, callers should consider
-    --   encoding it with RAWTOHEX or UTL_ENCODE.BASE64_ENCODE to make
-    --   it suitable for VARCHAR2 storage.  These functions expand
-    --   data size by 2 and 4/3, respectively.
-    --
-    --   To improve readability, callers should define their own
-    --   package level constants to represent the ciphersuites used
-    --   for encryption and decryption.
-    --
-    --   For example:
-    --
-    --   DES_CBC_PKCS5 CONSTANT PLS_INTEGER := DBMS_CRYPTO.ENCRYPT_DES
-    --                                       + DBMS_CRYPTO.CHAIN_CBC
-    --                                       + DBMS_CRYPTO.PAD_PKCS5;
-    --
-    --
-    -- STREAM CIPHERS (RC4) ARE NOT RECOMMENDED FOR STORED DATA ENCRYPTION.
-    --
-    --
-    ------------------------------------------------------------------------
-
-    FUNCTION  Encrypt (src IN            RAW,
-                       typ IN            PLS_INTEGER,
-                       key IN            RAW,
-                       iv  IN            RAW          DEFAULT NULL)
-      RETURN RAW;
-
-    PROCEDURE Encrypt (dst IN OUT NOCOPY BLOB,
-                       src IN            BLOB,
-                       typ IN            PLS_INTEGER,
-                       key IN            RAW,
-                       iv  IN            RAW          DEFAULT NULL);
-
-    PROCEDURE Encrypt (dst IN OUT NOCOPY BLOB,
-                       src IN            CLOB         CHARACTER SET ANY_CS,
-                       typ IN            PLS_INTEGER,
-                       key IN            RAW,
-                       iv  IN            RAW          DEFAULT NULL);
-
-
-    ------------------------------------------------------------------------
-    --
-    -- NAME:  Decrypt
-    --
-    -- DESCRIPTION:
-    --
-    --   Decrypt crypt text data using stream or block cipher with user
-    --   supplied key and optional iv.
-    --
-    -- PARAMETERS
-    --
-    --   cryptext    - Crypt text data to be decrypted
-    --   crypto_type - Stream or block cipher type plus modifiers
-    --   key         - Key to be used for encryption
-    --   iv          - Optional IV for block ciphers.  Default all zeros.
-    --
-    -- USAGE NOTES:
-    --   To retrieve original plain text data, Decrypt must be called
-    --   with the same cipher, modifiers, key and iv used for
-    --   encryption.  If crypt text data was converted to hex or
-    --   base64 prior to storage, it must be decoded using HEXTORAW or
-    --   UTL_ENCODE.BASE64_DECODE prior to decryption.
-    --
-    ------------------------------------------------------------------------
-
-    FUNCTION  Decrypt (src IN            RAW,
-                       typ IN            PLS_INTEGER,
-                       key IN            RAW,
-                       iv  IN            RAW          DEFAULT NULL)
-       RETURN RAW;
-
-    PROCEDURE Decrypt (dst IN OUT NOCOPY BLOB,
-                       src IN            BLOB,
-                       typ IN            PLS_INTEGER,
-                       key IN            RAW,
-                       iv  IN            RAW          DEFAULT NULL);
-
-    PROCEDURE Decrypt (dst IN OUT NOCOPY CLOB         CHARACTER SET ANY_CS,
-                       src IN            BLOB,
-                       typ IN            PLS_INTEGER,
-                       key IN            RAW,
-                       iv  IN            RAW          DEFAULT NULL);
-
-
-    ------------------------------------------------------------------------
-    --
-    -- NAME:  Hash
-    --
-    -- DESCRIPTION:
-    --
-    --   Hash source data by cryptographic hash type.
-    --
-    -- PARAMETERS
-    --
-    --   source    - Source data to be hashed
-    --   hash_type - Hash algorithm to be used
-    --
-    -- USAGE NOTES:
-    --   SHA-1 (HASH_SH1) is recommended.  Consider encoding returned
-    --   raw value to hex or base64 prior to storage.
-    --
-    ------------------------------------------------------------------------
-
-    FUNCTION Hash (src IN RAW,
-                   typ IN PLS_INTEGER)
-      RETURN RAW DETERMINISTIC;
-
-    FUNCTION Hash (src IN BLOB,
-                   typ IN PLS_INTEGER)
-      RETURN RAW DETERMINISTIC;
-
-    FUNCTION Hash (src IN CLOB        CHARACTER SET ANY_CS,
-                   typ IN PLS_INTEGER)
-      RETURN RAW DETERMINISTIC;
-
-
-    ------------------------------------------------------------------------
-    --
-    -- NAME:  Mac
-    --
-    -- DESCRIPTION:
-    --
-    --   Message Authentication Code algorithms provide keyed message
-    --   protection.
-    --
-    -- PARAMETERS
-    --
-    --   source   - Source data to be mac-ed
-    --   mac_type - Mac algorithm to be used
-    --   key      - Key to be used for mac
-    --
-    -- USAGE NOTES:
-    --   Callers should consider encoding returned raw value to hex or
-    --   base64 prior to storage.
-    --
-    ------------------------------------------------------------------------
-    FUNCTION Mac (src IN RAW,
-                  typ IN PLS_INTEGER,
-                  key IN RAW)
-      RETURN RAW;
-
-    FUNCTION Mac (src IN BLOB,
-                  typ IN PLS_INTEGER,
-                  key IN RAW)
-      RETURN RAW;
-
-    FUNCTION Mac (src IN CLOB         CHARACTER SET ANY_CS,
-                  typ IN PLS_INTEGER,
-                  key IN RAW)
-      RETURN RAW;
-
-
-    ------------------------------------------------------------------------
-    --
-    -- NAME:  RandomBytes
-    --
-    -- DESCRIPTION:
-    --
-    --   Returns a raw value containing a pseudo-random sequence of
-    --   bytes.
-    --
-    -- PARAMETERS
-    --
-    --   number_bytes - Number of pseudo-random bytes to be generated.
-    --
-    -- USAGE NOTES:
-    --   number_bytes should not exceed maximum RAW length.
-    --
-    ------------------------------------------------------------------------
-    FUNCTION RandomBytes (number_bytes IN PLS_INTEGER)
-      RETURN RAW;
-
-
-    ------------------------------------------------------------------------
-    --
-    -- NAME:  RandomNumber
-    --
-    -- DESCRIPTION:
-    --
-    --   Returns a random Oracle Number.
-    --
-    -- PARAMETERS
-    --
-    --  None.
-    --
-    ------------------------------------------------------------------------
-    FUNCTION RandomNumber
-      RETURN NUMBER;
-
-
-    ------------------------------------------------------------------------
-    --
-    -- NAME:  RandomInteger
-    --
-    -- DESCRIPTION:
-    --
-    --   Returns a random BINARY_INTEGER.
-    --
-    -- PARAMETERS
-    --
-    --  None.
-    --
-    ------------------------------------------------------------------------
-    FUNCTION RandomInteger
-      RETURN BINARY_INTEGER;
-
-
-    PRAGMA RESTRICT_REFERENCES(DEFAULT, WNDS, RNDS, WNPS, RNPS);
-
-END DBMS_CRYPTO;
-/