add getSource to get source of a package spec or body

Author: PhilippSalvisberg

sqldev/src/main/java/org/utplsql/sqldev/dal/UtplsqlDao.xtend

@@ -858,4 +858,43 @@ class UtplsqlDao {
 		return deps
 	}
 
+	/**
+	 * gets source of an object from the database via DBMS_METADATA
+	 * 
+	 * @param owner owner of the object (schema)
+	 * @param objectType expected object types are PACKAGE, PACKAGE BODY
+	 * @param objectName name of the object
+	 * @return the source code of the object
+	 * @throws DataAccessException if there is a problem
+	 */
+	def getSource(String owner, String objectType, String objectName) {
+		// dbms_metadata uses slightly different objectTypes
+		val fixedObjectType = if (objectType == "PACKAGE") {
+				"PACKAGE_SPEC"
+			} else if (objectType == "PACKAGE BODY") {
+				"PACKAGE_BODY"
+			} else {
+				objectType
+			}
+		val sql = '''
+			BEGIN
+				? := sys.dbms_metadata.get_ddl(
+				        schema      => ?,
+				        object_type => ?, 
+				        name        => ?
+				     );
+			END;
+		'''
+		val ret = jdbcTemplate.execute(sql, new CallableStatementCallback<String>() {
+			override String doInCallableStatement(CallableStatement cs) throws SQLException, DataAccessException {
+				cs.registerOutParameter(1, Types.CLOB);
+				cs.setString(2, owner)
+				cs.setString(3, fixedObjectType)
+				cs.setString(4, objectName)
+				cs.execute
+				return cs.getString(1)
+			}
+		})
+		return ret
+	}
 }

sqldev/src/test/java/org/utplsql/sqldev/test/dal/DalTest.xtend

@@ -37,6 +37,11 @@ class DalTest extends AbstractJdbcTest {
 		} catch (BadSqlGrammarException e) {
 			// ignore
 		}
+		try {
+			jdbcTemplate.execute("DROP PACKAGE BODY junit_utplsql_test_pkg")
+		} catch (BadSqlGrammarException e) {
+			// ignore
+		}
 		try {
 			jdbcTemplate.execute("DROP PACKAGE junit_no_test_pkg")
 		} catch (BadSqlGrammarException e) {
@@ -472,5 +477,42 @@ class DalTest extends AbstractJdbcTest {
 		Assert.assertEquals(expected, actual)
 
 	}
+	
+	@Test
+	def void getSourceOfPackage() {
+		val dao = new UtplsqlDao(dataSource.connection)
+		jdbcTemplate.execute('''
+			CREATE OR REPLACE PACKAGE junit_utplsql_test_pkg IS
+			   -- %suite
+
+			   -- %test
+			   PROCEDURE p1;
+			END junit_utplsql_test_pkg;
+		''')
+		val actual = dao.getSource("SCOTT", "PACKAGE", "JUNIT_UTPLSQL_TEST_PKG")
+		Assert.assertTrue(actual.contains("-- %suite"))
+		Assert.assertTrue(actual.contains("PROCEDURE p1;"))
+		jdbcTemplate.execute("DROP PACKAGE junit_utplsql_test_pkg")
+	}
+
+	@Test
+	def void getSourceOfPackageBody() {
+		val dao = new UtplsqlDao(dataSource.connection)
+		jdbcTemplate.execute('''
+			CREATE OR REPLACE PACKAGE BODY junit_utplsql_test_pkg IS
+			   PROCEDURE p1 IS
+			      l_expected INTEGER := 1;
+			      l_actual   INTEGER;
+			   BEGIN
+			      l_actual := junit_f;
+			      ut.expect(l_actual).to_equal(l_expected);
+			   END p1;
+			END junit_utplsql_test_pkg;
+		''');
+		val actual = dao.getSource("SCOTT", "PACKAGE BODY", "JUNIT_UTPLSQL_TEST_PKG")
+		Assert.assertTrue(actual.contains("PACKAGE BODY"))
+		Assert.assertTrue(actual.contains("PROCEDURE p1 IS"))
+		jdbcTemplate.execute("DROP PACKAGE BODY junit_utplsql_test_pkg")
+	}
 
 }