abapgit-agent 1.0.0

package/abap/zcl_abgagt_agent.clas.xml

@@ -0,0 +1,15 @@
+<?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_AGENT</CLSNAME>
+    <LANGU>E</LANGU>
+    <DESCRIPT>ABAP Git Agent - Main Agent API</DESCRIPT>
+    <EXPOSURE>2</EXPOSURE>
+    <STATE>1</STATE>
+    <UNICODE>X</UNICODE>
+   </VSEOCLASS>
+  </asx:values>
+ </asx:abap>
+</abapGit>

package/abap/zcl_abgagt_cmd_factory.clas.abap

@@ -0,0 +1,43 @@
+CLASS zcl_abgagt_cmd_factory DEFINITION PUBLIC CREATE PRIVATE.
+  PUBLIC SECTION.
+    INTERFACES zif_abgagt_cmd_factory.
+    CLASS-METHODS get_instance
+      RETURNING VALUE(ro_factory) TYPE REF TO zif_abgagt_cmd_factory.
+  PRIVATE SECTION.
+    METHODS constructor.
+    TYPES: BEGIN OF ty_command_map,
+             command TYPE string,
+             class_name TYPE string,
+           END OF ty_command_map.
+    DATA mt_command_map TYPE TABLE OF ty_command_map.
+ENDCLASS.
+
+CLASS zcl_abgagt_cmd_factory IMPLEMENTATION.
+  METHOD get_instance.
+    DATA lo_factory TYPE REF TO zcl_abgagt_cmd_factory.
+    CREATE OBJECT lo_factory.
+    ro_factory = lo_factory.
+  ENDMETHOD.
+
+  METHOD constructor.
+    " Build command to class name mapping
+    mt_command_map = VALUE #(
+      ( command = zif_abgagt_command=>gc_pull     class_name = 'ZCL_ABGAGT_COMMAND_PULL' )
+      ( command = zif_abgagt_command=>gc_inspect class_name = 'ZCL_ABGAGT_COMMAND_INSPECT' )
+      ( command = zif_abgagt_command=>gc_unit   class_name = 'ZCL_ABGAGT_COMMAND_UNIT' )
+    ).
+  ENDMETHOD.
+
+  METHOD zif_abgagt_cmd_factory~get_command.
+    " Find class name for command
+    READ TABLE mt_command_map WITH KEY command = iv_command
+      ASSIGNING FIELD-SYMBOL(<ls_map>).
+    IF sy-subrc <> 0.
+      RETURN.
+    ENDIF.
+
+    " Create command instance dynamically
+    CREATE OBJECT ro_command TYPE (<ls_map>-class_name).
+  ENDMETHOD.
+
+ENDCLASS.

package/abap/zcl_abgagt_cmd_factory.clas.xml

@@ -0,0 +1,15 @@
+<?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_CMD_FACTORY</CLSNAME>
+    <LANGU>E</LANGU>
+    <DESCRIPT>Command Factory for ABAP Git Agent</DESCRIPT>
+    <EXPOSURE>2</EXPOSURE>
+    <STATE>1</STATE>
+    <UNICODE>X</UNICODE>
+   </VSEOCLASS>
+  </asx:values>
+ </asx:abap>
+</abapGit>

package/abap/zcl_abgagt_command_inspect.clas.abap

@@ -0,0 +1,192 @@
+*"*"use source
+*"*"Local Interface:
+*"**********************************************************************
+" INSPECT command implementation - uses SCI/SCIC for syntax check
+CLASS zcl_abgagt_command_inspect DEFINITION PUBLIC FINAL CREATE PUBLIC.
+  PUBLIC SECTION.
+    INTERFACES zif_abgagt_command.
+
+    TYPES: BEGIN OF ty_error,
+             line TYPE string,
+             column TYPE string,
+             text TYPE string,
+             word TYPE string,
+           END OF ty_error.
+
+    TYPES ty_errors TYPE STANDARD TABLE OF ty_error WITH NON-UNIQUE DEFAULT KEY.
+
+    TYPES: BEGIN OF ty_inspect_result,
+             success TYPE abap_bool,
+             error_count TYPE i,
+             errors TYPE ty_errors,
+           END OF ty_inspect_result.
+
+    TYPES: BEGIN OF ty_inspect_params,
+             files TYPE string_table,
+           END OF ty_inspect_params.
+
+    TYPES ty_object_keys TYPE TABLE OF scir_objs WITH NON-UNIQUE DEFAULT KEY.
+
+    METHODS run_syntax_check
+      IMPORTING it_objects TYPE ty_object_keys
+      RETURNING VALUE(rs_result) TYPE ty_inspect_result.
+
+ENDCLASS.
+
+CLASS zcl_abgagt_command_inspect IMPLEMENTATION.
+
+  METHOD zif_abgagt_command~get_name.
+    rv_name = zif_abgagt_command=>gc_inspect.
+  ENDMETHOD.
+
+  METHOD zif_abgagt_command~execute.
+    DATA: ls_params TYPE ty_inspect_params,
+          lv_file TYPE string,
+          lv_obj_type TYPE string,
+          lv_obj_name TYPE string,
+          lo_util TYPE REF TO zcl_abgagt_util,
+          ls_result TYPE ty_inspect_result,
+          lt_objects TYPE ty_object_keys,
+          ls_obj TYPE scir_objs.
+
+    " Parse parameters from is_param
+    IF is_param IS SUPPLIED.
+      ls_params = CORRESPONDING #( is_param ).
+    ENDIF.
+
+    IF ls_params-files IS INITIAL.
+      ls_result-success = abap_false.
+      ls_result-error_count = 1.
+      rv_result = /ui2/cl_json=>serialize( data = ls_result ).
+      RETURN.
+    ENDIF.
+
+    " Parse all files to objects
+    lo_util = zcl_abgagt_util=>get_instance( ).
+
+    LOOP AT ls_params-files INTO lv_file.
+      CLEAR: lv_obj_type, lv_obj_name.
+      lo_util->zif_abgagt_util~parse_file_to_object(
+        EXPORTING iv_file = lv_file
+        IMPORTING ev_obj_type = lv_obj_type
+                  ev_obj_name = lv_obj_name ).
+
+      IF lv_obj_type IS NOT INITIAL AND lv_obj_name IS NOT INITIAL.
+        CLEAR ls_obj.
+        ls_obj-objtype = lv_obj_type.
+        ls_obj-objname = lv_obj_name.
+        APPEND ls_obj TO lt_objects.
+      ENDIF.
+    ENDLOOP.
+
+    IF lt_objects IS INITIAL.
+      ls_result-success = abap_false.
+      ls_result-error_count = 1.
+      rv_result = /ui2/cl_json=>serialize( data = ls_result ).
+      RETURN.
+    ENDIF.
+
+    " Run syntax check for all objects together
+    ls_result = run_syntax_check( lt_objects ).
+
+    rv_result = /ui2/cl_json=>serialize( data = ls_result ).
+  ENDMETHOD.
+
+  METHOD run_syntax_check.
+    DATA: lv_name TYPE sci_objs,
+          lo_objset TYPE REF TO cl_ci_objectset,
+          lo_variant TYPE REF TO cl_ci_checkvariant,
+          lo_inspection TYPE REF TO cl_ci_inspection,
+          lt_list TYPE scit_alvlist,
+          ls_error TYPE ty_error,
+          lx_error TYPE REF TO cx_root.
+
+    rs_result-success = abap_true.
+
+    TRY.
+        " Create unique name for inspection
+        CONCATENATE 'SYNT_' sy-uname sy-datum sy-uzeit INTO lv_name.
+
+        " Create object set
+        lo_objset = cl_ci_objectset=>save_from_list(
+          p_name    = lv_name
+          p_objects = it_objects ).
+
+        " Get check variant for syntax check
+        lo_variant = cl_ci_checkvariant=>get_ref(
+          p_user = ''
+          p_name = 'SYNTAX_CHECK' ).
+
+        " Create inspection
+        cl_ci_inspection=>create(
+          EXPORTING
+            p_user = sy-uname
+            p_name = lv_name
+          RECEIVING
+            p_ref = lo_inspection ).
+
+        " Set inspection with object set and variant
+        lo_inspection->set(
+          EXPORTING
+            p_chkv = lo_variant
+            p_objs = lo_objset ).
+
+        " Save inspection
+        lo_inspection->save( ).
+
+        " Run inspection
+        lo_inspection->run(
+          EXPORTING
+            p_howtorun = 'R'
+          EXCEPTIONS
+            invalid_check_version = 1
+            OTHERS = 2 ).
+
+        " Get results
+        lo_inspection->plain_list( IMPORTING p_list = lt_list ).
+
+        " Parse results - aggregate all errors
+        LOOP AT lt_list INTO DATA(ls_list).
+          CLEAR ls_error.
+          ls_error-line = ls_list-line.
+          ls_error-column = ls_list-col.
+          ls_error-text = ls_list-text.
+          ls_error-word = ls_list-code.
+          APPEND ls_error TO rs_result-errors.
+        ENDLOOP.
+
+        " Cleanup
+        lo_inspection->delete(
+          EXCEPTIONS
+            locked = 1
+            error_in_enqueue = 2
+            not_authorized = 3
+            exceptn_appl_exists = 4
+            OTHERS = 5 ).
+
+        lo_objset->delete(
+          EXCEPTIONS
+            exists_in_insp = 1
+            locked = 2
+            error_in_enqueue = 3
+            not_authorized = 4
+            exists_in_objs = 5
+            OTHERS = 6 ).
+
+        rs_result-error_count = lines( rs_result-errors ).
+        IF rs_result-error_count > 0.
+          rs_result-success = abap_false.
+        ENDIF.
+
+      CATCH cx_root INTO lx_error.
+        rs_result-success = abap_false.
+        rs_result-error_count = 1.
+        ls_error-line = '1'.
+        ls_error-column = '1'.
+        ls_error-text = lx_error->get_text( ).
+        ls_error-word = ''.
+        APPEND ls_error TO rs_result-errors.
+    ENDTRY.
+  ENDMETHOD.
+
+ENDCLASS.

package/abap/zcl_abgagt_command_inspect.clas.testclasses.abap

@@ -0,0 +1,121 @@
+*"* use this source file for your test class implementation
+*"* local test class
+CLASS ltcl_cmd_inspect DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
+  PRIVATE SECTION.
+    DATA mo_cut TYPE REF TO zcl_abgagt_command_inspect.
+
+    METHODS setup.
+    METHODS test_get_name FOR TESTING.
+    METHODS test_interface FOR TESTING.
+    METHODS test_exec_no_files FOR TESTING.
+    METHODS test_exec_single_file FOR TESTING.
+    METHODS test_exec_multi_files FOR TESTING.
+ENDCLASS.
+
+CLASS ltcl_cmd_inspect 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_inspect
+      msg = 'Command name should be INSPECT' ).
+  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_inspect.
+    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_no_files.
+    " Test execute with no files - should return error
+    DATA: BEGIN OF ls_param,
+            files TYPE string_table,
+          END OF ls_param.
+
+    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' ).
+
+    " Result should contain ERROR_COUNT or error_count
+    cl_abap_unit_assert=>assert_char_cp(
+      act = lv_result
+      exp = '*ERROR_COUNT*'
+      msg = 'Result should contain error_count field' ).
+  ENDMETHOD.
+
+  METHOD test_exec_single_file.
+    " Test execute with a single file
+    DATA: BEGIN OF ls_param,
+            files TYPE string_table,
+          END OF ls_param.
+
+    APPEND 'zcl_my_class.clas.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
+    cl_abap_unit_assert=>assert_char_cp(
+      act = lv_result
+      exp = '*{*'
+      msg = 'Result should be valid JSON object' ).
+
+    " Result should contain SUCCESS or success field
+    cl_abap_unit_assert=>assert_char_cp(
+      act = lv_result
+      exp = '*SUCCESS*'
+      msg = 'Result should contain success field' ).
+  ENDMETHOD.
+
+  METHOD test_exec_multi_files.
+    " Test execute with multiple files
+    DATA: BEGIN OF ls_param,
+            files TYPE string_table,
+          END OF ls_param.
+
+    APPEND 'zcl_my_class.clas.abap' TO ls_param-files.
+    APPEND 'zif_my_intf.intf.abap' TO ls_param-files.
+    APPEND 'zcl_another.clas.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
+    cl_abap_unit_assert=>assert_char_cp(
+      act = lv_result
+      exp = '*{*'
+      msg = 'Result should be valid JSON object' ).
+
+    " Result should contain ERROR_COUNT or error_count
+    cl_abap_unit_assert=>assert_char_cp(
+      act = lv_result
+      exp = '*ERROR_COUNT*'
+      msg = 'Result should contain error_count field' ).
+  ENDMETHOD.
+
+ENDCLASS.

package/abap/zcl_abgagt_command_inspect.clas.xml

@@ -0,0 +1,16 @@
+<?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_pull.clas.abap

@@ -0,0 +1,80 @@
+*"*"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

@@ -0,0 +1,87 @@
+*"* 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

@@ -0,0 +1,16 @@
+<?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>