abapgit-agent 1.4.0 → 1.6.0

package/abap/zcl_abgagt_command_inspect.clas.xml

@@ -1,16 +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_COMMAND_INSPECT</CLSNAME>
-    <LANGU>E</LANGU>
-    <DESCRIPT>Inspect Command for ABAP Git Agent</DESCRIPT>
-    <EXPOSURE>2</EXPOSURE>
-    <STATE>1</STATE>
-    <UNICODE>X</UNICODE>
-    <WITH_UNIT_TESTS>X</WITH_UNIT_TESTS>
-   </VSEOCLASS>
-  </asx:values>
- </asx:abap>
-</abapGit>

package/abap/zcl_abgagt_command_preview.clas.abap

@@ -1,386 +0,0 @@
-*"*"use source
-*"*"Local Interface:
-*"**********************************************************************
-CLASS zcl_abgagt_command_preview DEFINITION PUBLIC FINAL CREATE PUBLIC.
-
-  PUBLIC SECTION.
-    INTERFACES zif_abgagt_command.
-
-    " Parameter types matching CLI request
-    TYPES: BEGIN OF ty_preview_params,
-             objects TYPE string_table,
-             type TYPE string,
-             limit TYPE i,
-             where TYPE string,
-             columns TYPE string_table,
-           END OF ty_preview_params.
-
-    " Field metadata
-    TYPES: BEGIN OF ty_field,
-             field TYPE string,
-             type TYPE string,
-             length TYPE int4,
-             decimals TYPE int4,
-           END OF ty_field.
-
-    TYPES ty_fields TYPE STANDARD TABLE OF ty_field WITH DEFAULT KEY.
-
-    " Row data (dynamic)
-    TYPES: BEGIN OF ty_row_data,
-             row_index TYPE i,
-             data TYPE REF TO data,
-           END OF ty_row_data.
-
-    " Table/CVS view data result
-    TYPES: BEGIN OF ty_preview_object,
-             name TYPE string,
-             type TYPE string,
-             type_text TYPE string,
-             row_count TYPE i,
-             total_rows TYPE i,
-             rows TYPE string,  " JSON string of rows
-             fields TYPE ty_fields,
-             columns_displayed TYPE i,
-             columns_hidden TYPE string_table,
-             error TYPE string,
-           END OF ty_preview_object.
-
-    TYPES ty_preview_objects TYPE STANDARD TABLE OF ty_preview_object WITH DEFAULT KEY.
-
-    TYPES: BEGIN OF ty_summary,
-             total_objects TYPE i,
-             total_rows TYPE i,
-           END OF ty_summary.
-
-    TYPES: BEGIN OF ty_preview_result,
-             success TYPE abap_bool,
-             command TYPE string,
-             message TYPE string,
-             objects TYPE ty_preview_objects,
-             summary TYPE ty_summary,
-             error TYPE string,
-           END OF ty_preview_result.
-
-    " Method declarations
-    METHODS get_table_data
-      IMPORTING
-        iv_name TYPE string
-        iv_type TYPE string
-        iv_limit TYPE i
-        iv_where TYPE string
-        it_columns TYPE string_table
-      RETURNING
-        VALUE(rs_result) TYPE ty_preview_object.
-
-    METHODS detect_object_type
-      IMPORTING
-        iv_name TYPE string
-      RETURNING
-        VALUE(rv_type) TYPE string.
-
-    METHODS fetch_table_data
-      IMPORTING
-        iv_tabname TYPE string
-        iv_limit TYPE i
-        iv_where TYPE string
-        it_columns TYPE string_table
-      CHANGING
-        cs_result TYPE ty_preview_object.
-
-    METHODS get_field_metadata
-      IMPORTING
-        it_components TYPE abap_component_tab
-      RETURNING
-        VALUE(rt_fields) TYPE ty_fields.
-
-    METHODS get_field_metadata_for_columns
-      IMPORTING
-        it_components TYPE abap_component_tab
-        it_columns TYPE string_table
-      RETURNING
-        VALUE(rt_fields) TYPE ty_fields.
-
-ENDCLASS.
-
-CLASS zcl_abgagt_command_preview IMPLEMENTATION.
-
-  METHOD zif_abgagt_command~get_name.
-    rv_name = zif_abgagt_command=>gc_preview.
-  ENDMETHOD.
-
-  METHOD zif_abgagt_command~execute.
-    " Parse parameters
-    DATA: ls_params TYPE ty_preview_params,
-          ls_result TYPE ty_preview_result.
-
-    ls_result-command = zif_abgagt_command=>gc_preview.
-
-    IF is_param IS SUPPLIED.
-      ls_params = CORRESPONDING #( is_param ).
-    ENDIF.
-
-    IF ls_params-objects IS INITIAL.
-      ls_result-success = abap_false.
-      ls_result-error = 'Objects parameter is required'.
-      rv_result = /ui2/cl_json=>serialize( data = ls_result ).
-      RETURN.
-    ENDIF.
-
-    " Process each object
-    DATA lt_objects TYPE ty_preview_objects.
-    DATA lv_object TYPE string.
-    DATA lv_total_rows TYPE i.
-
-    LOOP AT ls_params-objects INTO lv_object.
-      DATA(ls_obj) = get_table_data(
-        iv_name    = lv_object
-        iv_type    = ls_params-type
-        iv_limit   = ls_params-limit
-        iv_where   = ls_params-where
-        it_columns = ls_params-columns ).
-
-      APPEND ls_obj TO lt_objects.
-      lv_total_rows = lv_total_rows + ls_obj-row_count.
-    ENDLOOP.
-
-    " Build result
-    ls_result-success = abap_true.
-    ls_result-message = 'Retrieved data'.
-    ls_result-objects = lt_objects.
-
-    " Build summary
-    DATA ls_summary TYPE ty_summary.
-    ls_summary-total_objects = lines( lt_objects ).
-    ls_summary-total_rows = lv_total_rows.
-
-    " We need to serialize with summary inline
-    DATA: BEGIN OF ls_final,
-            success TYPE abap_bool,
-            command TYPE string,
-            message TYPE string,
-            objects TYPE ty_preview_objects,
-            summary TYPE ty_summary,
-            error TYPE string,
-          END OF ls_final.
-
-    ls_final = CORRESPONDING #( ls_result ).
-    ls_final-summary = ls_summary.
-
-    rv_result = /ui2/cl_json=>serialize( data = ls_final ).
-  ENDMETHOD.
-
-  METHOD get_table_data.
-    DATA: ls_result TYPE ty_preview_object,
-          lv_tabname TYPE string,
-          lv_type TYPE string.
-
-    ls_result-name = iv_name.
-    lv_tabname = to_upper( iv_name ).
-    lv_type = to_upper( iv_type ).
-
-    IF lv_tabname IS INITIAL.
-      lv_tabname = iv_name.
-    ENDIF.
-    IF lv_type IS INITIAL.
-      lv_type = iv_type.
-    ENDIF.
-
-    " Auto-detect type if not specified
-    IF lv_type IS INITIAL.
-      lv_type = detect_object_type( lv_tabname ).
-    ENDIF.
-
-    ls_result-type = lv_type.
-
-    CASE lv_type.
-      WHEN 'TABL' OR 'DDLS' OR ''.
-        ls_result-type_text = COND #( WHEN lv_type = 'DDLS' THEN 'CDS View' ELSE 'Table' ).
-
-        " Get table metadata and data
-        fetch_table_data(
-          EXPORTING
-            iv_tabname = lv_tabname
-            iv_limit   = iv_limit
-            iv_where   = iv_where
-            it_columns = it_columns
-          CHANGING
-            cs_result  = ls_result ).
-
-        IF ls_result-error IS NOT INITIAL.
-          ls_result-type_text = lv_type.
-        ENDIF.
-
-      WHEN OTHERS.
-        ls_result-type_text = lv_type.
-        ls_result-row_count = 0.
-    ENDCASE.
-
-    rs_result = ls_result.
-  ENDMETHOD.
-
-  METHOD detect_object_type.
-    DATA lv_name TYPE string.
-    lv_name = to_upper( iv_name ).
-
-    " Check if table or CDS view exists in TADIR
-    SELECT SINGLE object FROM tadir
-      INTO rv_type
-      WHERE obj_name = lv_name
-        AND object IN ('TABL', 'DDLS').
-
-    IF sy-subrc <> 0.
-      " Default to table if not found in TADIR
-      rv_type = 'TABL'.
-    ENDIF.
-  ENDMETHOD.
-
-  METHOD fetch_table_data.
-    DATA: lv_error TYPE string,
-          lr_data TYPE REF TO data,
-          lo_tabdescr TYPE REF TO cl_abap_tabledescr,
-          lo_strucdescr TYPE REF TO cl_abap_structdescr,
-          lt_components TYPE abap_component_tab,
-          lv_field_list TYPE string,
-          lv_limit TYPE i.
-
-    FIELD-SYMBOLS <lt_data> TYPE STANDARD TABLE.
-
-    lv_limit = iv_limit.
-    IF lv_limit <= 0.
-      lv_limit = 10.
-    ENDIF.
-
-    " Check if table/view exists in DD02L
-    DATA lv_tabname_check TYPE dd02l-tabname.
-    SELECT SINGLE tabname FROM dd02l
-      INTO lv_tabname_check
-      WHERE tabname = iv_tabname
-        AND as4local = 'A'
-        AND tabclass IN ('TRANSP', 'VIEW').
-
-    IF sy-subrc <> 0.
-      cs_result-error = |Table or view not found: { iv_tabname }|.
-      cs_result-row_count = 0.
-      RETURN.
-    ENDIF.
-
-    TRY.
-        " Get structure descriptor first (describe_by_name returns struct descr for table lines)
-        lo_strucdescr ?= cl_abap_structdescr=>describe_by_name( iv_tabname ).
-        " Create table descriptor from structure
-        lo_tabdescr = cl_abap_tabledescr=>create( lo_strucdescr ).
-        lt_components = lo_strucdescr->get_components( ).
-
-        " Handle column selection
-        DATA lt_cols TYPE string_table.
-        lt_cols = it_columns.
-
-        IF lt_cols IS NOT INITIAL.
-          " Build field list from specified columns
-          LOOP AT lt_components INTO DATA(ls_comp).
-            READ TABLE lt_cols WITH KEY table_line = ls_comp-name TRANSPORTING NO FIELDS.
-            IF sy-subrc = 0.
-              IF lv_field_list IS INITIAL.
-                lv_field_list = ls_comp-name.
-              ELSE.
-                lv_field_list = lv_field_list && ',' && ls_comp-name.
-              ENDIF.
-            ELSE.
-              " Track hidden columns
-              APPEND ls_comp-name TO cs_result-columns_hidden.
-            ENDIF.
-          ENDLOOP.
-        ELSE.
-          " All columns
-          LOOP AT lt_components INTO ls_comp.
-            IF lv_field_list IS INITIAL.
-              lv_field_list = ls_comp-name.
-            ELSE.
-              lv_field_list = lv_field_list && ',' && ls_comp-name.
-            ENDIF.
-          ENDLOOP.
-        ENDIF.
-
-        " Create data reference for the internal table
-        CREATE DATA lr_data TYPE HANDLE lo_tabdescr.
-        ASSIGN lr_data->* TO <lt_data>.
-
-        " Use SELECT * - dynamic field list has parser issues
-        " Column filtering will be done in the response
-        IF iv_where IS INITIAL.
-          SELECT * FROM (iv_tabname)
-            INTO TABLE <lt_data>
-            UP TO lv_limit ROWS.
-        ELSE.
-          SELECT * FROM (iv_tabname)
-            INTO TABLE <lt_data>
-            UP TO lv_limit ROWS
-            WHERE (iv_where).
-        ENDIF.
-
-        " Get row count
-        cs_result-row_count = lines( <lt_data> ).
-        cs_result-total_rows = cs_result-row_count.
-
-        " Get field metadata for selected columns only
-        cs_result-fields = get_field_metadata_for_columns(
-          it_components = lt_components
-          it_columns    = lt_cols ).
-
-        " Serialize data to JSON
-        cs_result-rows = /ui2/cl_json=>serialize( data = <lt_data> ).
-
-        " Set column info
-        cs_result-columns_displayed = lines( cs_result-fields ).
-
-      CATCH cx_root INTO DATA(lx_error).
-        lv_error = lx_error->get_text( ).
-        cs_result-error = lv_error.
-        cs_result-row_count = 0.
-    ENDTRY.
-  ENDMETHOD.
-
-  METHOD get_field_metadata.
-    DATA ls_field TYPE ty_field.
-
-    LOOP AT it_components ASSIGNING FIELD-SYMBOL(<comp>).
-      ls_field-field = <comp>-name.
-
-      " Get type info from the component
-      IF <comp>-type IS BOUND.
-        DATA(lo_type) = <comp>-type.
-        ls_field-type = lo_type->type_kind.
-        ls_field-length = lo_type->length.
-        ls_field-decimals = lo_type->decimals.
-      ENDIF.
-
-      APPEND ls_field TO rt_fields.
-    ENDLOOP.
-  ENDMETHOD.
-
-  METHOD get_field_metadata_for_columns.
-    DATA ls_field TYPE ty_field.
-
-    " If no columns specified, return all
-    IF it_columns IS INITIAL.
-      rt_fields = get_field_metadata( it_components ).
-      RETURN.
-    ENDIF.
-
-    " Filter to selected columns only
-    LOOP AT it_components ASSIGNING FIELD-SYMBOL(<comp>).
-      READ TABLE it_columns WITH KEY table_line = <comp>-name TRANSPORTING NO FIELDS.
-      IF sy-subrc = 0.
-        ls_field-field = <comp>-name.
-        IF <comp>-type IS BOUND.
-          DATA(lo_type) = <comp>-type.
-          ls_field-type = lo_type->type_kind.
-          ls_field-length = lo_type->length.
-          ls_field-decimals = lo_type->decimals.
-        ENDIF.
-        APPEND ls_field TO rt_fields.
-      ENDIF.
-    ENDLOOP.
-  ENDMETHOD.
-
-ENDCLASS.

package/abap/zcl_abgagt_command_preview.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_COMMAND_PREVIEW</CLSNAME>
-    <LANGU>E</LANGU>
-    <DESCRIPT>PREVIEW command - preview table/CDS view data</DESCRIPT>
-    <EXPOSURE>2</EXPOSURE>
-    <STATE>1</STATE>
-    <UNICODE>X</UNICODE>
-   </VSEOCLASS>
-  </asx:values>
- </asx:abap>
-</abapGit>

package/abap/zcl_abgagt_command_pull.clas.abap

@@ -1,80 +0,0 @@
-*"*"use source
-*"*"Local Interface:
-*"**********************************************************************
-CLASS zcl_abgagt_command_pull DEFINITION PUBLIC FINAL CREATE PUBLIC.
-  PUBLIC SECTION.
-    INTERFACES zif_abgagt_command.
-
-    TYPES: BEGIN OF ty_pull_params,
-             url TYPE string,
-             branch TYPE string,
-             username TYPE string,
-             password TYPE string,
-             transport_request TYPE string,
-             files TYPE string_table,
-           END OF ty_pull_params.
-
-ENDCLASS.
-
-CLASS zcl_abgagt_command_pull IMPLEMENTATION.
-
-  METHOD zif_abgagt_command~get_name.
-    rv_name = zif_abgagt_command=>gc_pull.
-  ENDMETHOD.
-
-  METHOD zif_abgagt_command~execute.
-    DATA: ls_params TYPE ty_pull_params,
-          lo_agent TYPE REF TO zcl_abgagt_agent,
-          ls_pull_result TYPE zif_abgagt_agent=>ty_result,
-          lx_error TYPE REF TO zcx_abapgit_exception.
-
-    " Parse parameters from is_param
-    IF is_param IS SUPPLIED.
-      ls_params = CORRESPONDING #( is_param ).
-    ENDIF.
-
-    " Get agent instance and execute pull
-    lo_agent = NEW zcl_abgagt_agent( ).
-
-    TRY.
-        ls_pull_result = lo_agent->zif_abgagt_agent~pull(
-          iv_url            = ls_params-url
-          iv_branch         = ls_params-branch
-          iv_username       = ls_params-username
-          iv_password       = ls_params-password
-          iv_transport_request = ls_params-transport_request
-          it_files          = ls_params-files ).
-      CATCH zcx_abapgit_exception INTO lx_error.
-        ls_pull_result-success = abap_false.
-        ls_pull_result-message = lx_error->get_text( ).
-    ENDTRY.
-
-    " Convert result to JSON string using /ui2/cl_json
-    DATA: BEGIN OF ls_response,
-            success TYPE string,
-            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 zif_abgagt_agent=>ty_object_list,
-            activated_objects TYPE zif_abgagt_agent=>ty_object_list,
-            failed_objects TYPE zif_abgagt_agent=>ty_object_list,
-          END OF ls_response.
-
-    ls_response-success = COND string( WHEN ls_pull_result-success = abap_true THEN 'X' ELSE '' ).
-    ls_response-job_id = ls_pull_result-job_id.
-    ls_response-message = ls_pull_result-message.
-    ls_response-error_detail = ls_pull_result-error_detail.
-    ls_response-transport_request = ls_pull_result-transport_request.
-    ls_response-activated_count = ls_pull_result-activated_count.
-    ls_response-failed_count = ls_pull_result-failed_count.
-    ls_response-log_messages = ls_pull_result-log_messages.
-    ls_response-activated_objects = ls_pull_result-activated_objects.
-    ls_response-failed_objects = ls_pull_result-failed_objects.
-
-    rv_result = /ui2/cl_json=>serialize( data = ls_response ).
-  ENDMETHOD.
-
-ENDCLASS.

package/abap/zcl_abgagt_command_pull.clas.testclasses.abap

@@ -1,87 +0,0 @@
-*"* use this source file for your test class implementation
-*"* local test class
-CLASS ltcl_zcl_abgagt_command_pull DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
-  PRIVATE SECTION.
-    DATA mo_cut TYPE REF TO zcl_abgagt_command_pull.
-
-    METHODS setup.
-    METHODS test_get_name FOR TESTING.
-    METHODS test_exec_minimal FOR TESTING.
-    METHODS test_exec_files FOR TESTING.
-    METHODS test_interface FOR TESTING.
-ENDCLASS.
-
-CLASS ltcl_zcl_abgagt_command_pull IMPLEMENTATION.
-
-  METHOD setup.
-    CREATE OBJECT mo_cut.
-  ENDMETHOD.
-
-  METHOD test_get_name.
-    " Test that get_name returns the correct command name
-    DATA(lv_name) = mo_cut->zif_abgagt_command~get_name( ).
-    cl_abap_unit_assert=>assert_equals(
-      act = lv_name
-      exp = zif_abgagt_command=>gc_pull
-      msg = 'Command name should be PULL' ).
-  ENDMETHOD.
-
-  METHOD test_interface.
-    " Test that the class implements the command interface
-    DATA lo_interface TYPE REF TO zif_abgagt_command.
-    CREATE OBJECT mo_cut TYPE zcl_abgagt_command_pull.
-    lo_interface = mo_cut.
-    cl_abap_unit_assert=>assert_bound(
-      act = lo_interface
-      msg = 'Object should implement zif_abgagt_command interface' ).
-  ENDMETHOD.
-
-  METHOD test_exec_minimal.
-    " Test execute with minimal parameters (url only)
-    DATA: BEGIN OF ls_param,
-            url TYPE string,
-          END OF ls_param.
-
-    ls_param-url = 'https://github.test/repo.git'.
-
-    " Execute should return a JSON string
-    DATA(lv_result) = mo_cut->zif_abgagt_command~execute( is_param = ls_param ).
-
-    cl_abap_unit_assert=>assert_not_initial(
-      act = lv_result
-      msg = 'Result should not be initial' ).
-
-    " Result should be valid JSON (starts with { and ends with })
-    cl_abap_unit_assert=>assert_char_cp(
-      act = lv_result
-      exp = '*{*'
-      msg = 'Result should be valid JSON object' ).
-  ENDMETHOD.
-
-  METHOD test_exec_files.
-    " Test execute with files parameter
-    DATA: BEGIN OF ls_param,
-            url TYPE string,
-            files TYPE string_table,
-          END OF ls_param.
-
-    ls_param-url = 'https://github.test/repo.git'.
-    APPEND 'zcl_test.clas.abap' TO ls_param-files.
-    APPEND 'zif_test.intf.abap' TO ls_param-files.
-
-    DATA(lv_result) = mo_cut->zif_abgagt_command~execute( is_param = ls_param ).
-
-    cl_abap_unit_assert=>assert_not_initial(
-      act = lv_result
-      msg = 'Result should not be initial' ).
-
-    " Result should be valid JSON
-    DATA lv_json TYPE string.
-    lv_json = lv_result.
-    cl_abap_unit_assert=>assert_char_cp(
-      act = lv_json
-      exp = '*{"success"*' " JSON-like structure
-      msg = 'Result should be valid JSON' ).
-  ENDMETHOD.
-
-ENDCLASS.

package/abap/zcl_abgagt_command_pull.clas.xml

@@ -1,16 +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_COMMAND_PULL</CLSNAME>
-    <LANGU>E</LANGU>
-    <DESCRIPT>Pull Command for ABAP Git Agent</DESCRIPT>
-    <EXPOSURE>2</EXPOSURE>
-    <STATE>1</STATE>
-    <UNICODE>X</UNICODE>
-    <WITH_UNIT_TESTS>X</WITH_UNIT_TESTS>
-   </VSEOCLASS>
-  </asx:values>
- </asx:abap>
-</abapGit>