From 964bbc08445ae64cdd61752b5cb605483ad4e855 Mon Sep 17 00:00:00 2001
From: Geert-Jan Klaps <geert-jan@klaps.org>
Date: Wed, 12 Jul 2017 14:02:14 +0200
Subject: [PATCH] Function groups with namespaces - not implemented

Function groups with namespaces - not implemented #824
---
 src/zabapgit_object_fugr.prog.abap | 22 ++++++++++++++++++----
 1 file changed, 18 insertions(+), 4 deletions(-)

diff --git a/src/zabapgit_object_fugr.prog.abap b/src/zabapgit_object_fugr.prog.abap
index 3fd94c39f..7fb10f6c9 100644
--- a/src/zabapgit_object_fugr.prog.abap
+++ b/src/zabapgit_object_fugr.prog.abap
@@ -206,9 +206,11 @@ CLASS lcl_object_fugr IMPLEMENTATION.
 
   METHOD deserialize_functions.
 
-    DATA: lv_include TYPE rs38l-include,
-          lv_area    TYPE rs38l-area,
-          lt_source  TYPE TABLE OF abaptxt255.
+    DATA: lv_include   TYPE rs38l-include,
+          lv_area      TYPE rs38l-area,
+          lv_namespace TYPE rs38l-namespace,
+          lt_source    TYPE TABLE OF abaptxt255,
+          lv_dummy     TYPE string.
 
     FIELD-SYMBOLS: <ls_func> LIKE LINE OF it_functions.
 
@@ -219,6 +221,18 @@ CLASS lcl_object_fugr IMPLEMENTATION.
 
       lv_area = ms_item-obj_name.
 
+*     Determine the namespace of the imported function (if a namespace is used)
+      IF <ls_func>-funcname(1) EQ '/'.
+*       Get namespace from function name
+        lv_namespace = <ls_func>-funcname.
+        SHIFT lv_namespace BY 1 PLACES LEFT.
+        SPLIT lv_namespace AT '/' INTO lv_namespace lv_dummy.
+        CONCATENATE '/' lv_namespace '/' INTO lv_namespace.
+
+*       Remove namespace from area (namespace and area are concatenated in RS_FUNCTIONMODULE_INSERT)
+        REPLACE ALL OCCURRENCES OF lv_namespace IN lv_area WITH ''.
+      ENDIF.
+
       CALL FUNCTION 'FUNCTION_EXISTS'
         EXPORTING
           funcname           = <ls_func>-funcname
@@ -250,7 +264,7 @@ CLASS lcl_object_fugr IMPLEMENTATION.
           short_text              = <ls_func>-short_text
           update_task             = <ls_func>-update_task
           exception_class         = <ls_func>-exception_classes
-*         NAMESPACE               = ' ' todo
+          namespace               = lv_namespace
           remote_basxml_supported = <ls_func>-remote_basxml
         IMPORTING
           function_include        = lv_include