abapgit-agent 1.4.0 → 1.6.0

package/abap/zcl_abgagt_viewer_ddls.clas.abap

@@ -1,83 +0,0 @@
-*"*"use source
-*"*"Local Interface:
-*"**********************************************************************
-CLASS zcl_abgagt_viewer_ddls DEFINITION PUBLIC FINAL CREATE PUBLIC.
-
-  PUBLIC SECTION.
-    INTERFACES zif_abgagt_viewer.
-
-ENDCLASS.
-
-CLASS zcl_abgagt_viewer_ddls IMPLEMENTATION.
-
-  METHOD zif_abgagt_viewer~get_info.
-    DATA: lv_ddls_name TYPE ddlname,
-          lo_handler TYPE REF TO if_dd_ddl_handler,
-          ls_ddlsrcv TYPE ddddlsrcv,
-          lv_devclass TYPE tadir-devclass,
-          lv_found TYPE abap_bool.
-
-    rs_info-name = iv_name.
-    rs_info-type = 'DDLS'.
-    rs_info-type_text = 'CDS View'.
-
-    " Get package from TADIR
-    SELECT SINGLE devclass FROM tadir
-      INTO lv_devclass
-      WHERE obj_name = iv_name
-        AND object = 'DDLS'.
-    IF sy-subrc = 0.
-      rs_info-description = |CDS View { iv_name } in { lv_devclass }|.
-    ELSE.
-      rs_info-not_found = abap_true.
-      RETURN.
-    ENDIF.
-
-    " Use DDL handler to read CDS view source
-    lo_handler = cl_dd_ddl_handler_factory=>create( ).
-    lv_ddls_name = iv_name.
-
-    " First try to read inactive version (get_state = 'M')
-    TRY.
-        lo_handler->read(
-          EXPORTING
-            name       = lv_ddls_name
-            get_state  = 'M'
-          IMPORTING
-            ddddlsrcv_wa = ls_ddlsrcv ).
-
-        IF ls_ddlsrcv-source IS NOT INITIAL.
-          lv_found = abap_true.
-        ENDIF.
-
-      CATCH cx_dd_ddl_check.
-        " Ignore - will try active version
-    ENDTRY.
-
-    " If no inactive version, try active version
-    IF lv_found = abap_false.
-      TRY.
-          lo_handler->read(
-            EXPORTING
-              name       = lv_ddls_name
-              get_state  = 'A'
-            IMPORTING
-              ddddlsrcv_wa = ls_ddlsrcv ).
-
-          IF ls_ddlsrcv-source IS NOT INITIAL.
-            lv_found = abap_true.
-          ENDIF.
-        CATCH cx_dd_ddl_check.
-          " Not found
-      ENDTRY.
-    ENDIF.
-
-    " Set source code if found
-    IF lv_found = abap_true.
-      rs_info-source = ls_ddlsrcv-source.
-    ELSE.
-      rs_info-not_found = abap_true.
-    ENDIF.
-  ENDMETHOD.
-
-ENDCLASS.

package/abap/zcl_abgagt_viewer_ddls.clas.xml

@@ -1,15 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
- <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
-  <asx:values>
-   <VSEOCLASS>
-    <CLSNAME>ZCL_ABGAGT_VIEWER_DDLS</CLSNAME>
-    <LANGU>E</LANGU>
-    <DESCRIPT>Viewer for CDS Views</DESCRIPT>
-    <EXPOSURE>2</EXPOSURE>
-    <STATE>1</STATE>
-    <UNICODE>X</UNICODE>
-   </VSEOCLASS>
-  </asx:values>
- </asx:abap>
-</abapGit>

package/abap/zcl_abgagt_viewer_dtel.clas.abap

@@ -1,98 +0,0 @@
-*"*"use source
-*"*"Local Interface:
-*"**********************************************************************
-CLASS zcl_abgagt_viewer_dtel DEFINITION PUBLIC FINAL CREATE PUBLIC.
-
-  PUBLIC SECTION.
-    INTERFACES zif_abgagt_viewer.
-
-ENDCLASS.
-
-CLASS zcl_abgagt_viewer_dtel IMPLEMENTATION.
-
-  METHOD zif_abgagt_viewer~get_info.
-    DATA: lv_obj_name TYPE tadir-obj_name,
-          lv_devclass TYPE tadir-devclass,
-          lv_leng TYPE dd04v-leng,
-          lv_decimals TYPE dd04v-decimals.
-
-    rs_info-name = iv_name.
-    rs_info-type = 'DTEL'.
-    rs_info-type_text = 'Data Element'.
-
-    " Get package from TADIR
-    SELECT SINGLE obj_name devclass FROM tadir
-      INTO (lv_obj_name, lv_devclass)
-      WHERE obj_name = iv_name
-        AND object = 'DTEL'.
-    IF sy-subrc = 0.
-      rs_info-description = |Data Element { iv_name } in { lv_devclass }|.
-    ELSE.
-      rs_info-not_found = abap_true.
-    ENDIF.
-
-    " Get data element details from DD04V
-    SELECT SINGLE dd04v~rollname dd04v~ddtext dd04v~domname
-                  dd04v~datatype dd04v~leng dd04v~decimals
-      INTO (rs_info-name, rs_info-description, rs_info-domain,
-            rs_info-domain_type, lv_leng, lv_decimals)
-      FROM dd04v
-      WHERE rollname = iv_name
-        AND ddlanguage = 'E'.
-    IF sy-subrc <> 0.
-      " Fallback: try without language filter
-      SELECT SINGLE rollname ddtext domname datatype leng decimals
-        INTO (rs_info-name, rs_info-description, rs_info-domain,
-              rs_info-domain_type, lv_leng, lv_decimals)
-        FROM dd04v
-        WHERE rollname = iv_name.
-    ENDIF.
-
-    rs_info-domain_length = lv_leng.
-    rs_info-domain_decimals = lv_decimals.
-
-    " Build components table for additional info
-    IF rs_info-domain IS NOT INITIAL.
-      APPEND VALUE #(
-        field = 'DOMAIN'
-        key = abap_false
-        type = rs_info-domain_type
-        length = rs_info-domain_length
-        dataelement = rs_info-domain
-        description = |Domain: { rs_info-domain }|
-      ) TO rs_info-components.
-    ENDIF.
-
-    APPEND VALUE #(
-      field = 'DATA_TYPE'
-      key = abap_false
-      type = 'CHAR'
-      length = 10
-      dataelement = ''
-      description = |ABAP Type: { rs_info-domain_type }|
-    ) TO rs_info-components.
-
-    IF rs_info-domain_length > 0.
-      APPEND VALUE #(
-        field = 'LENGTH'
-        key = abap_false
-        type = 'NUMC'
-        length = 5
-        dataelement = ''
-        description = |Length: { rs_info-domain_length }|
-      ) TO rs_info-components.
-    ENDIF.
-
-    IF rs_info-domain_decimals > 0.
-      APPEND VALUE #(
-        field = 'DECIMALS'
-        key = abap_false
-        type = 'NUMC'
-        length = 2
-        dataelement = ''
-        description = |Decimals: { rs_info-domain_decimals }|
-      ) TO rs_info-components.
-    ENDIF.
-  ENDMETHOD.
-
-ENDCLASS.

package/abap/zcl_abgagt_viewer_dtel.clas.xml

@@ -1,15 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
- <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
-  <asx:values>
-   <VSEOCLASS>
-    <CLSNAME>ZCL_ABGAGT_VIEWER_DTEL</CLSNAME>
-    <LANGU>E</LANGU>
-    <DESCRIPT>Viewer for ABAP Data Elements</DESCRIPT>
-    <EXPOSURE>2</EXPOSURE>
-    <STATE>1</STATE>
-    <UNICODE>X</UNICODE>
-   </VSEOCLASS>
-  </asx:values>
- </asx:abap>
-</abapGit>

package/abap/zcl_abgagt_viewer_factory.clas.abap

@@ -1,41 +0,0 @@
-*"*"use source
-*"*"Local Interface:
-*"**********************************************************************
-CLASS zcl_abgagt_viewer_factory DEFINITION PUBLIC CREATE PRIVATE.
-
-  PUBLIC SECTION.
-    CLASS-METHODS get_instance
-      RETURNING VALUE(ro_instance) TYPE REF TO zcl_abgagt_viewer_factory.
-
-    METHODS get_viewer
-      IMPORTING iv_obj_type   TYPE string
-      RETURNING VALUE(ro_viewer) TYPE REF TO zif_abgagt_viewer
-      RAISING   cx_sy_create_object_error.
-
-  PRIVATE SECTION.
-    CONSTANTS mc_class_prefix TYPE string VALUE 'ZCL_ABGAGT_VIEWER_'.
-
-    METHODS build_class_name
-      IMPORTING iv_obj_type   TYPE string
-      RETURNING VALUE(rv_class_name) TYPE seoclsname.
-
-ENDCLASS.
-
-CLASS zcl_abgagt_viewer_factory IMPLEMENTATION.
-
-  METHOD get_instance.
-    CREATE OBJECT ro_instance.
-  ENDMETHOD.
-
-  METHOD build_class_name.
-    " CLAS -> ZCL_ABGAGT_VIEWER_CLAS
-    rv_class_name = mc_class_prefix && iv_obj_type.
-  ENDMETHOD.
-
-  METHOD get_viewer.
-    DATA lv_class_name TYPE seoclsname.
-    lv_class_name = build_class_name( iv_obj_type ).
-    CREATE OBJECT ro_viewer TYPE (lv_class_name).
-  ENDMETHOD.
-
-ENDCLASS.

package/abap/zcl_abgagt_viewer_factory.clas.xml

@@ -1,15 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
- <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
-  <asx:values>
-   <VSEOCLASS>
-    <CLSNAME>ZCL_ABGAGT_VIEWER_FACTORY</CLSNAME>
-    <LANGU>E</LANGU>
-    <DESCRIPT>Factory for Creating Object Viewers</DESCRIPT>
-    <EXPOSURE>2</EXPOSURE>
-    <STATE>1</STATE>
-    <UNICODE>X</UNICODE>
-   </VSEOCLASS>
-  </asx:values>
- </asx:abap>
-</abapGit>

package/abap/zcl_abgagt_viewer_intf.clas.abap

@@ -1,58 +0,0 @@
-*"*"use source
-*"*"Local Interface:
-*"**********************************************************************
-CLASS zcl_abgagt_viewer_intf DEFINITION PUBLIC FINAL CREATE PUBLIC.
-
-  PUBLIC SECTION.
-    INTERFACES zif_abgagt_viewer.
-
-ENDCLASS.
-
-CLASS zcl_abgagt_viewer_intf IMPLEMENTATION.
-
-  METHOD zif_abgagt_viewer~get_info.
-    DATA: lv_obj_name TYPE tadir-obj_name,
-          lv_devclass TYPE tadir-devclass,
-          lv_prog TYPE program,
-          lt_source TYPE TABLE OF string,
-          lv_line TYPE string.
-
-    SELECT SINGLE obj_name devclass FROM tadir
-      INTO (lv_obj_name, lv_devclass)
-      WHERE obj_name = iv_name
-        AND object = 'INTF'.
-    IF sy-subrc = 0.
-      rs_info-name = iv_name.
-      rs_info-type = 'INTF'.
-      rs_info-type_text = 'Interface'.
-      rs_info-description = |Interface { iv_name } in { lv_devclass }|.
-    ELSE.
-      rs_info-name = iv_name.
-      rs_info-type = 'INTF'.
-      rs_info-type_text = 'Interface'.
-      rs_info-not_found = abap_true.
-    ENDIF.
-
-    " Get interface section program name using CL_OO_CLASSNAME_SERVICE
-    DATA lv_clsname TYPE seoclsname.
-    lv_clsname = iv_name.
-    CALL METHOD cl_oo_classname_service=>get_intfsec_name
-      EXPORTING
-        clsname = lv_clsname
-      RECEIVING
-        result  = lv_prog.
-
-    " Read source from program
-    READ REPORT lv_prog INTO lt_source.
-    IF sy-subrc = 0.
-      LOOP AT lt_source INTO lv_line.
-        IF rs_info-source IS INITIAL.
-          rs_info-source = lv_line.
-        ELSE.
-          rs_info-source = rs_info-source && |\n| && lv_line.
-        ENDIF.
-      ENDLOOP.
-    ENDIF.
-  ENDMETHOD.
-
-ENDCLASS.

package/abap/zcl_abgagt_viewer_intf.clas.xml

@@ -1,15 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
- <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
-  <asx:values>
-   <VSEOCLASS>
-    <CLSNAME>ZCL_ABGAGT_VIEWER_INTF</CLSNAME>
-    <LANGU>E</LANGU>
-    <DESCRIPT>Viewer for ABAP Interfaces</DESCRIPT>
-    <EXPOSURE>2</EXPOSURE>
-    <STATE>1</STATE>
-    <UNICODE>X</UNICODE>
-   </VSEOCLASS>
-  </asx:values>
- </asx:abap>
-</abapGit>

package/abap/zcl_abgagt_viewer_stru.clas.abap

@@ -1,59 +0,0 @@
-*"*"use source
-*"*"Local Interface:
-*"**********************************************************************
-CLASS zcl_abgagt_viewer_stru DEFINITION PUBLIC FINAL CREATE PUBLIC.
-
-  PUBLIC SECTION.
-    INTERFACES zif_abgagt_viewer.
-
-ENDCLASS.
-
-CLASS zcl_abgagt_viewer_stru IMPLEMENTATION.
-
-  METHOD zif_abgagt_viewer~get_info.
-    DATA: lv_obj_name TYPE tadir-obj_name,
-          lv_devclass TYPE tadir-devclass.
-
-    SELECT SINGLE obj_name devclass FROM tadir
-      INTO (lv_obj_name, lv_devclass)
-      WHERE obj_name = iv_name
-        AND object = 'TABL'.
-    IF sy-subrc = 0.
-      rs_info-name = iv_name.
-      rs_info-type = 'STRU'.
-      rs_info-type_text = 'Structure'.
-      rs_info-description = |Structure { iv_name } in { lv_devclass }|.
-    ELSE.
-      rs_info-name = iv_name.
-      rs_info-type = 'STRU'.
-      rs_info-type_text = 'Structure'.
-      rs_info-not_found = abap_true.
-    ENDIF.
-
-    " Build components table with data element and description
-    SELECT fieldname AS field keyflag AS key datatype AS type rollname AS dataelement
-      FROM dd03l
-      INTO CORRESPONDING FIELDS OF TABLE rs_info-components
-      WHERE tabname = iv_name
-        AND as4local = 'A'
-      ORDER BY position.
-
-    " Add length and description
-    LOOP AT rs_info-components ASSIGNING FIELD-SYMBOL(<ls_comp>).
-      DATA ls_dd03l TYPE dd03l.
-      SELECT SINGLE * FROM dd03l INTO ls_dd03l
-        WHERE tabname = iv_name
-          AND fieldname = <ls_comp>-field
-          AND as4local = 'A'.
-      <ls_comp>-length = ls_dd03l-leng.
-
-      " Get description from DD04T
-      SELECT SINGLE ddtext FROM dd04t
-        INTO <ls_comp>-description
-        WHERE rollname = <ls_comp>-dataelement
-          AND ddlanguage = 'E'
-          AND as4local = 'A'.
-    ENDLOOP.
-  ENDMETHOD.
-
-ENDCLASS.

package/abap/zcl_abgagt_viewer_stru.clas.xml

@@ -1,15 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
- <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
-  <asx:values>
-   <VSEOCLASS>
-    <CLSNAME>ZCL_ABGAGT_VIEWER_STRU</CLSNAME>
-    <LANGU>E</LANGU>
-    <DESCRIPT>Viewer for ABAP Structures</DESCRIPT>
-    <EXPOSURE>2</EXPOSURE>
-    <STATE>1</STATE>
-    <UNICODE>X</UNICODE>
-   </VSEOCLASS>
-  </asx:values>
- </asx:abap>
-</abapGit>

package/abap/zcl_abgagt_viewer_tabl.clas.abap

@@ -1,59 +0,0 @@
-*"*"use source
-*"*"Local Interface:
-*"**********************************************************************
-CLASS zcl_abgagt_viewer_tabl DEFINITION PUBLIC FINAL CREATE PUBLIC.
-
-  PUBLIC SECTION.
-    INTERFACES zif_abgagt_viewer.
-
-ENDCLASS.
-
-CLASS zcl_abgagt_viewer_tabl IMPLEMENTATION.
-
-  METHOD zif_abgagt_viewer~get_info.
-    DATA: lv_obj_name TYPE tadir-obj_name,
-          lv_devclass TYPE tadir-devclass.
-
-    SELECT SINGLE obj_name devclass FROM tadir
-      INTO (lv_obj_name, lv_devclass)
-      WHERE obj_name = iv_name
-        AND object = 'TABL'.
-    IF sy-subrc = 0.
-      rs_info-name = iv_name.
-      rs_info-type = 'TABL'.
-      rs_info-type_text = 'Table'.
-      rs_info-description = |Table { iv_name } in { lv_devclass }|.
-    ELSE.
-      rs_info-name = iv_name.
-      rs_info-type = 'TABL'.
-      rs_info-type_text = 'Table'.
-      rs_info-not_found = abap_true.
-    ENDIF.
-
-    " Build components table with data element and description
-    SELECT fieldname AS field keyflag AS key datatype AS type rollname AS dataelement
-      FROM dd03l
-      INTO CORRESPONDING FIELDS OF TABLE rs_info-components
-      WHERE tabname = iv_name
-        AND as4local = 'A'
-      ORDER BY position.
-
-    " Add length and description
-    LOOP AT rs_info-components ASSIGNING FIELD-SYMBOL(<ls_comp>).
-      DATA ls_dd03l TYPE dd03l.
-      SELECT SINGLE * FROM dd03l INTO ls_dd03l
-        WHERE tabname = iv_name
-          AND fieldname = <ls_comp>-field
-          AND as4local = 'A'.
-      <ls_comp>-length = ls_dd03l-leng.
-
-      " Get description from DD04T
-      SELECT SINGLE ddtext FROM dd04t
-        INTO <ls_comp>-description
-        WHERE rollname = <ls_comp>-dataelement
-          AND ddlanguage = 'E'
-          AND as4local = 'A'.
-    ENDLOOP.
-  ENDMETHOD.
-
-ENDCLASS.

package/abap/zcl_abgagt_viewer_tabl.clas.xml

@@ -1,15 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
- <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
-  <asx:values>
-   <VSEOCLASS>
-    <CLSNAME>ZCL_ABGAGT_VIEWER_TABL</CLSNAME>
-    <LANGU>E</LANGU>
-    <DESCRIPT>Viewer for ABAP Tables</DESCRIPT>
-    <EXPOSURE>2</EXPOSURE>
-    <STATE>1</STATE>
-    <UNICODE>X</UNICODE>
-   </VSEOCLASS>
-  </asx:values>
- </asx:abap>
-</abapGit>

package/abap/zcl_abgagt_viewer_ttyp.clas.abap

@@ -1,93 +0,0 @@
-*"*"use source
-*"*"Local Interface:
-*"**********************************************************************
-CLASS zcl_abgagt_viewer_ttyp DEFINITION PUBLIC FINAL CREATE PUBLIC.
-
-  PUBLIC SECTION.
-    INTERFACES zif_abgagt_viewer.
-
-ENDCLASS.
-
-CLASS zcl_abgagt_viewer_ttyp IMPLEMENTATION.
-
-  METHOD zif_abgagt_viewer~get_info.
-    DATA: lv_obj_name TYPE tadir-obj_name,
-          lv_devclass TYPE tadir-devclass,
-          lv_linetype TYPE string,
-          lv_tabprottype TYPE string,
-          lv_keydef TYPE string,
-          lv_access_mode TYPE string,
-          lv_key_definition TYPE string.
-
-    rs_info-name = iv_name.
-    rs_info-type = 'TTYP'.
-    rs_info-type_text = 'Table Type'.
-
-    " Get package from TADIR
-    SELECT SINGLE obj_name devclass FROM tadir
-      INTO (lv_obj_name, lv_devclass)
-      WHERE obj_name = iv_name
-        AND object = 'TTYP'.
-    IF sy-subrc = 0.
-      rs_info-description = |Table Type { iv_name } in { lv_devclass }|.
-    ELSE.
-      rs_info-not_found = abap_true.
-    ENDIF.
-
-    " Get TTYP details from DD40L
-    SELECT SINGLE rowtype accessmode keydef FROM dd40l
-      INTO (lv_linetype, lv_tabprottype, lv_keydef)
-      WHERE typename = iv_name
-        AND as4local = 'A'.
-
-    " Build components table with TTYP details
-    IF lv_linetype IS NOT INITIAL.
-      APPEND VALUE #(
-        field = 'LINE_TYPE'
-        key = abap_false
-        type = 'CHAR'
-        length = 30
-        dataelement = ''
-        description = |Line Type: { lv_linetype }|
-      ) TO rs_info-components.
-    ENDIF.
-
-    " Convert access mode to text
-    CASE lv_tabprottype.
-      WHEN 'T'. lv_access_mode = 'STANDARD'.
-      WHEN 'S'. lv_access_mode = 'SORTED'.
-      WHEN 'H'. lv_access_mode = 'HASHED'.
-      WHEN OTHERS. lv_access_mode = lv_tabprottype.
-    ENDCASE.
-
-    IF lv_access_mode IS NOT INITIAL.
-      APPEND VALUE #(
-        field = 'ACCESS_MODE'
-        key = abap_false
-        type = 'CHAR'
-        length = 10
-        dataelement = ''
-        description = |Access Mode: { lv_access_mode }|
-      ) TO rs_info-components.
-    ENDIF.
-
-    " Convert key definition to text
-    CASE lv_keydef.
-      WHEN 'D'. lv_key_definition = 'WITH KEY'.
-      WHEN 'N'. lv_key_definition = 'NO KEY'.
-      WHEN OTHERS. lv_key_definition = lv_keydef.
-    ENDCASE.
-
-    IF lv_key_definition IS NOT INITIAL.
-      APPEND VALUE #(
-        field = 'KEY_DEFINITION'
-        key = abap_false
-        type = 'CHAR'
-        length = 10
-        dataelement = ''
-        description = |Key Definition: { lv_key_definition }|
-      ) TO rs_info-components.
-    ENDIF.
-  ENDMETHOD.
-
-ENDCLASS.

package/abap/zcl_abgagt_viewer_ttyp.clas.xml

@@ -1,15 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
- <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
-  <asx:values>
-   <VSEOCLASS>
-    <CLSNAME>ZCL_ABGAGT_VIEWER_TTYP</CLSNAME>
-    <LANGU>E</LANGU>
-    <DESCRIPT>Viewer for ABAP Table Types</DESCRIPT>
-    <EXPOSURE>2</EXPOSURE>
-    <STATE>1</STATE>
-    <UNICODE>X</UNICODE>
-   </VSEOCLASS>
-  </asx:values>
- </asx:abap>
-</abapGit>

package/abap/zif_abgagt_agent.intf.abap

@@ -1,53 +0,0 @@
-" Interface for abapGit Agent - handles pull operations only.
-" Note: inspect and run_tests are implemented in separate command classes
-" (zcl_abgagt_command_inspect, zcl_abgagt_command_unit) using ABAP standard classes.
-
-INTERFACE zif_abgagt_agent PUBLIC.
-
-  TYPES: BEGIN OF ty_object,
-    type TYPE string,
-    id TYPE string,
-    number TYPE string,
-    text TYPE string,
-    obj_type TYPE string,
-    obj_name TYPE string,
-    exception TYPE string,
-  END OF ty_object.
-
-  TYPES: ty_object_list TYPE STANDARD TABLE OF ty_object WITH NON-UNIQUE DEFAULT KEY.
-
-  TYPES: BEGIN OF ty_result,
-    success TYPE abap_bool,
-    job_id TYPE string,
-    message TYPE string,
-    error_detail TYPE string,
-    transport_request TYPE string,
-    activated_count TYPE i,
-    failed_count TYPE i,
-    log_messages TYPE ty_object_list,
-    activated_objects TYPE ty_object_list,
-    failed_objects TYPE ty_object_list,
-    started_at TYPE timestampl,
-    finished_at TYPE timestampl,
-  END OF ty_result.
-
-  METHODS pull
-    IMPORTING
-      iv_url TYPE string
-      iv_branch TYPE string DEFAULT 'main'
-      iv_username TYPE string OPTIONAL
-      iv_password TYPE string OPTIONAL
-      iv_transport_request TYPE string OPTIONAL
-      it_files TYPE string_table OPTIONAL
-    RETURNING
-      VALUE(rs_result) TYPE ty_result
-    RAISING
-      zcx_abapgit_exception.
-
-  METHODS get_repo_status
-    IMPORTING
-      iv_url TYPE string
-    RETURNING
-      VALUE(rv_status) TYPE string.
-
-ENDINTERFACE.

package/abap/zif_abgagt_agent.intf.xml

@@ -1,15 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<abapGit version="v1.0.0" serializer="LCL_OBJECT_INTF" serializer_version="v1.0.0">
- <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
-  <asx:values>
-   <VSEOINTERF>
-    <CLSNAME>ZIF_ABGAGT_AGENT</CLSNAME>
-    <LANGU>E</LANGU>
-    <DESCRIPT>Interface for ABAP Git Agent</DESCRIPT>
-    <EXPOSURE>2</EXPOSURE>
-    <STATE>1</STATE>
-    <UNICODE>X</UNICODE>
-   </VSEOINTERF>
-  </asx:values>
- </asx:abap>
-</abapGit>

package/abap/zif_abgagt_cmd_factory.intf.abap

@@ -1,7 +0,0 @@
-"* Use this source text module for the interface definition
-"! <p class="shorttext synchronized">Command Factory Interface for ABAP Git Agent</p>
-INTERFACE zif_abgagt_cmd_factory PUBLIC.
-  METHODS get_command
-    IMPORTING iv_command TYPE string
-    RETURNING VALUE(ro_command) TYPE REF TO zif_abgagt_command.
-ENDINTERFACE.