Add bindings_perl and examples/perl_api_example

2020-10-05 16:22:55 +02:00
parent d352c8bf39
commit 20e3912a5f
8 changed files with 256 additions and 0 deletions
@@ -0,0 +1,46 @@
+cmake_minimum_required (VERSION 2.6)
+
+set(EXAMPLE_NAME "perl_api_example")
+
+# --- Configure Sourcetrail Project File ---
+
+add_custom_target(
+	${EXAMPLE_NAME} ALL
+	COMMAND ${CMAKE_COMMAND} -E copy ${CMAKE_CURRENT_SOURCE_DIR}/src/example.pl ${CMAKE_CURRENT_BINARY_DIR}/example.pl
+)
+
+add_dependencies(${EXAMPLE_NAME} _${PERL_BINDING_TARGET_NAME})
+
+if (MSVC)
+	STRING(REGEX REPLACE "/" "\\\\" BACKSLASHED_PERL_BINDING_OUTPUT_DIR ${PERL_BINDING_OUTPUT_DIR})
+	STRING(REGEX REPLACE "/" "\\\\" BACKSLASHED_CMAKE_CURRENT_BINARY_DIR ${CMAKE_CURRENT_BINARY_DIR})
+
+	add_custom_command(
+		TARGET ${EXAMPLE_NAME} POST_BUILD
+		COMMAND xcopy \"${BACKSLASHED_PERL_BINDING_OUTPUT_DIR}\\$(Configuration)\\sourcetraildb*\" \"${BACKSLASHED_CMAKE_CURRENT_BINARY_DIR}\" /Y
+	)
+	add_custom_command(
+		TARGET ${EXAMPLE_NAME} POST_BUILD
+		COMMAND xcopy \"${BACKSLASHED_PERL_BINDING_OUTPUT_DIR}\\sourcetraildb.pm\" \"${BACKSLASHED_CMAKE_CURRENT_BINARY_DIR}\" /Y
+	)
+else()
+	add_custom_command(
+		TARGET ${EXAMPLE_NAME} POST_BUILD
+		COMMAND ${CMAKE_COMMAND} -E copy ${PERL_BINDING_OUTPUT_DIR}/sourcetraildb* ${CMAKE_CURRENT_BINARY_DIR}
+	)
+
+	if (APPLE)
+		add_custom_command(
+			TARGET ${EXAMPLE_NAME} POST_BUILD
+			COMMAND ${CMAKE_COMMAND} -E rename ${CMAKE_CURRENT_BINARY_DIR}/sourcetraildb.dylib ${CMAKE_CURRENT_BINARY_DIR}/sourcetraildb.so
+		)
+	endif()
+endif()
+
+
+set(PERL_API_EXAMPLE_DATA_PATH "${CMAKE_CURRENT_SOURCE_DIR}/data")
+
+configure_file(
+	"${CMAKE_CURRENT_SOURCE_DIR}/${EXAMPLE_NAME}.srctrlprj.in"
+	"${CMAKE_CURRENT_BINARY_DIR}/${EXAMPLE_NAME}.srctrlprj"
+)
@@ -0,0 +1,30 @@
+
+## Python API Example
+
+### Requirements
+
+* CMake
+* C++ Compiler
+* Perl
+* SWIG
+
+### Running from Command Line
+
+* Run cmake with `BUILD_BINDINGS_PERL=ON`
+* Build target `sourcetraildb`
+* Copy two files from the `bindings_perl` build directory into `SourcetrailDB/examples/perl_api_example/src`:
+	- `sourcetraildb.pm`
+	- Windows: `sourcetraildb.dll`
+	- Linux: `sourcetraildb.so`
+	- macOS: `sourcetraildb.dylib` and rename to `sourcetraildb.so`
+* Run example from the directory `SourcetrailDB/examples/perl_api_example/src` with:
+
+```
+$ perl example.pl --database-file-path=absolute/path/to/SourcetrailDB/examples/perl_api_example/src/example.srctrldb --source-file-path=absolute/path/to/SourcetrailDB/examples/perl_api_example/data/file.pl
+```
+
+### Running with Sourcetrail
+
+* Run cmake with `BUILD_EXAMPLES=ON` and `BUILD_BINDINGS_PERL=ON`
+* Build target `sourcetraildb` and `perl_api_example`.
+* Open `perl_api_exampl.srctrlprj` located in the build directory of `perl_api_example` with Sourcetrail and index the project.
@@ -0,0 +1,7 @@
+package MyClass;
+
+my $my_member = 1;
+
+sub my_method {
+	return $my_member;
+}
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<config>
+    <source_groups>
+        <source_group_2e83e5fa-b0f8-453b-a1fc-2abdb66bd967>
+            <custom_command>perl example.pl --database-file-path=%{DATABASE_FILE_PATH} --source-file-path=%{SOURCE_FILE_PATH} --database-version=%{DATABASE_VERSION}</custom_command>
+            <name>Custom Command Source Group</name>
+            <run_in_parallel>0</run_in_parallel>
+            <source_extensions>
+                <source_extension>.pl</source_extension>
+                <source_extension>.pm</source_extension>
+            </source_extensions>
+            <source_paths>
+                <source_path>@PERL_API_EXAMPLE_DATA_PATH@/file.pl</source_path>
+            </source_paths>
+            <status>enabled</status>
+            <type>Custom Command Source Group</type>
+        </source_group_2e83e5fa-b0f8-453b-a1fc-2abdb66bd967>
+    </source_groups>
+    <version>7</version>
+</config>
@@ -0,0 +1,75 @@
+#!/usr/bin/perl
+
+use v5.10;
+
+use strict;
+use warnings;
+
+use Getopt::Long;
+
+use FindBin;
+use lib $FindBin::Bin;
+use sourcetraildb;
+
+my ( $database_file_path, $source_file_path );
+my $db_version = 0;
+
+GetOptions(
+	'database-file-path=s' => \$database_file_path,
+	'source-file-path=s'   => \$source_file_path,
+	'database-version=i'   => \$db_version,
+);
+
+say "SourcetrailDB Perl API Example";
+my $supported_db_version = sourcetraildb::getSupportedDatabaseVersion;
+say "Supported database version: $supported_db_version";
+
+die "ERROR: Only supports database version: $supported_db_version. Requested version: $db_version\n"
+	if $db_version > 0 and $db_version != $supported_db_version;
+
+die "ERROR: " . sourcetraildb::getLastError unless sourcetraildb::open($database_file_path);
+
+say "Clearing loaded database now...";
+sourcetraildb::clear;
+
+say "start indexing";
+sourcetraildb::beginTransaction;
+
+my $file_id = sourcetraildb::recordFile($source_file_path);
+sourcetraildb::recordFileLanguage( $file_id, 'perl' );
+die "ERROR: " . sourcetraildb::getLastError if sourcetraildb::getLastError;
+
+my $symbol_id = sourcetraildb::recordSymbol(
+	'{ "name_delimiter": "::", "name_elements": [ { "prefix": "", "name": "MyClass", "postfix": "" } ] }');
+sourcetraildb::recordSymbolDefinitionKind( $symbol_id, $sourcetraildb::DEFINITION_EXPLICIT );
+sourcetraildb::recordSymbolKind( $symbol_id, $sourcetraildb::SYMBOL_PACKAGE );
+sourcetraildb::recordSymbolLocation( $symbol_id, $file_id, 1, 9, 1, 15 );
+sourcetraildb::recordSymbolScopeLocation( $symbol_id, $file_id, 1, 1, 7, 2 );
+
+my $member_id
+	= sourcetraildb::recordSymbol( '{ "name_delimiter": "::", "name_elements": [ '
+		. '{ "prefix": "", "name": "MyClass", "postfix": "" }, '
+		. '{ "prefix": "$", "name": "my_member", "postfix": "" } '
+		. '] }' );
+sourcetraildb::recordSymbolDefinitionKind( $member_id, $sourcetraildb::DEFINITION_EXPLICIT );
+sourcetraildb::recordSymbolKind( $member_id, $sourcetraildb::SYMBOL_FIELD );
+sourcetraildb::recordSymbolLocation( $member_id, $file_id, 3, 4, 3, 13 );
+
+my $method_id
+	= sourcetraildb::recordSymbol( '{ "name_delimiter": "::", "name_elements": [ '
+		. '{ "prefix": "", "name": "MyClass", "postfix": "" }, '
+		. '{ "prefix": "&", "name": "my_method", "postfix": "" } '
+		. '] }' );
+sourcetraildb::recordSymbolDefinitionKind( $method_id, $sourcetraildb::DEFINITION_EXPLICIT );
+sourcetraildb::recordSymbolKind( $method_id, $sourcetraildb::SYMBOL_METHOD );
+sourcetraildb::recordSymbolLocation( $method_id, $file_id, 5, 5, 5, 13 );
+sourcetraildb::recordSymbolScopeLocation( $method_id, $file_id, 6, 1, 7, 1 );
+
+my $usage_id = sourcetraildb::recordReference( $method_id, $member_id, $sourcetraildb::REFERENCE_USAGE );
+sourcetraildb::recordReferenceLocation( $usage_id, $file_id, 6, 9, 6, 18 );
+
+sourcetraildb::commitTransaction;
+die "ERROR: " . sourcetraildb::getLastError if sourcetraildb::getLastError;
+die "ERROR: " . sourcetraildb::getLastError unless sourcetraildb::close;
+
+say "done";