abapgit-agent 1.0.0

package/abap/zcl_abgagt_util.clas.abap

@@ -0,0 +1,93 @@
+"* Use this source text module for the class definition
+CLASS zcl_abgagt_util DEFINITION PUBLIC FINAL CREATE PUBLIC.
+  PUBLIC SECTION.
+    INTERFACES zif_abgagt_util.
+    CLASS-METHODS get_instance
+      RETURNING VALUE(ro_util) TYPE REF TO zcl_abgagt_util.
+  PRIVATE SECTION.
+    DATA mv_log TYPE string.
+    DATA mv_has_error TYPE abap_bool.
+ENDCLASS.
+
+CLASS zcl_abgagt_util IMPLEMENTATION.
+  METHOD get_instance.
+    DATA lo_util TYPE REF TO zcl_abgagt_util.
+    CREATE OBJECT lo_util.
+    ro_util = lo_util.
+  ENDMETHOD.
+
+  METHOD zif_abgagt_util~parse_file_to_object.
+    " Parse file path to extract obj_type and obj_name
+    " Example: "zcl_my_class.clas.abap" -> CLAS, ZCL_MY_CLASS
+    " Example: "src/zcl_my_class.clas.abap" -> CLAS, ZCL_MY_CLASS
+
+    DATA lv_upper TYPE string.
+    lv_upper = iv_file.
+    TRANSLATE lv_upper TO UPPER CASE.
+
+    " Split filename by '.' to get parts
+    DATA lt_parts TYPE TABLE OF string.
+    SPLIT lv_upper AT '.' INTO TABLE lt_parts.
+    DATA lv_part_count TYPE i.
+    lv_part_count = lines( lt_parts ).
+
+    IF lv_part_count < 3.
+      RETURN.
+    ENDIF.
+
+    " Last part should be 'ABAP' for verification
+    READ TABLE lt_parts INDEX lv_part_count INTO DATA(lv_last).
+    IF lv_last <> 'ABAP'.
+      RETURN.
+    ENDIF.
+
+    " First part is obj_name (may contain path), second part is obj_type
+    DATA lv_obj_name TYPE string.
+    DATA lv_obj_type_raw TYPE string.
+    READ TABLE lt_parts INDEX 1 INTO lv_obj_name.
+    READ TABLE lt_parts INDEX 2 INTO lv_obj_type_raw.
+
+    " Convert file extension to object type
+    CASE lv_obj_type_raw.
+      WHEN 'CLAS' OR 'CLASS'.
+        ev_obj_type = 'CLAS'.
+      WHEN 'INTF' OR 'INTERFACE'.
+        ev_obj_type = 'INTF'.
+      WHEN 'PROG' OR 'PROGRAM'.
+        ev_obj_type = 'PROG'.
+      WHEN 'FUGR' OR 'FUGROUP'.
+        ev_obj_type = 'FUGR'.
+      WHEN 'TABL' OR 'TABLE'.
+        ev_obj_type = 'TABL'.
+      WHEN 'DDLS'.
+        ev_obj_type = 'DDLS'.
+      WHEN OTHERS.
+        ev_obj_type = lv_obj_type_raw.
+    ENDCASE.
+
+    " Extract file name from obj_name (remove path prefix)
+    DATA lv_len TYPE i.
+    lv_len = strlen( lv_obj_name ).
+    DATA lv_offs TYPE i.
+    lv_offs = find( val = reverse( lv_obj_name ) sub = '/' ).
+    IF lv_offs > 0.
+      lv_offs = lv_len - lv_offs - 1.
+      lv_obj_name = lv_obj_name+lv_offs.
+    ENDIF.
+
+    " Remove leading '/' if present
+    IF lv_obj_name(1) = '/'.
+      lv_obj_name = lv_obj_name+1.
+    ENDIF.
+
+    ev_obj_name = lv_obj_name.
+  ENDMETHOD.
+
+  METHOD zif_abgagt_util~check_log_for_errors.
+    rv_has_error = mv_has_error.
+  ENDMETHOD.
+
+  METHOD zif_abgagt_util~get_log_detail.
+    rv_detail = mv_log.
+  ENDMETHOD.
+ENDCLASS.

package/abap/zcl_abgagt_util.clas.testclasses.abap

@@ -0,0 +1,84 @@
+*"* use this source file for your test class implementation
+*"* local test class
+CLASS ltcl_zcl_abgagt_util DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
+  PRIVATE SECTION.
+    DATA mo_util TYPE REF TO zcl_abgagt_util.
+
+    METHODS setup.
+    METHODS test_parse_clas FOR TESTING.
+    METHODS test_parse_intf FOR TESTING.
+    METHODS test_parse_with_path FOR TESTING.
+    METHODS test_parse_invalid FOR TESTING.
+ENDCLASS.
+
+CLASS ltcl_zcl_abgagt_util IMPLEMENTATION.
+
+  METHOD setup.
+    mo_util = zcl_abgagt_util=>get_instance( ).
+  ENDMETHOD.
+
+  METHOD test_parse_clas.
+    " Test parsing CLAS file
+    DATA lv_obj_type TYPE string.
+    DATA lv_obj_name TYPE string.
+
+    mo_util->zif_abgagt_util~parse_file_to_object(
+      EXPORTING iv_file = 'zcl_my_class.clas.abap'
+      IMPORTING ev_obj_type = lv_obj_type
+                ev_obj_name = lv_obj_name ).
+
+    cl_abap_unit_assert=>assert_equals(
+      act = lv_obj_type exp = 'CLAS' msg = 'Object type should be CLAS' ).
+    cl_abap_unit_assert=>assert_equals(
+      act = lv_obj_name exp = 'ZCL_MY_CLASS' msg = 'Object name mismatch' ).
+  ENDMETHOD.
+
+  METHOD test_parse_intf.
+    " Test parsing INTF file
+    DATA lv_obj_type TYPE string.
+    DATA lv_obj_name TYPE string.
+
+    mo_util->zif_abgagt_util~parse_file_to_object(
+      EXPORTING iv_file = 'zif_my_intf.intf.abap'
+      IMPORTING ev_obj_type = lv_obj_type
+                ev_obj_name = lv_obj_name ).
+
+    cl_abap_unit_assert=>assert_equals(
+      act = lv_obj_type exp = 'INTF' msg = 'Object type should be INTF' ).
+    cl_abap_unit_assert=>assert_equals(
+      act = lv_obj_name exp = 'ZIF_MY_INTF' msg = 'Object name mismatch' ).
+  ENDMETHOD.
+
+  METHOD test_parse_with_path.
+    " Test parsing file with path
+    DATA lv_obj_type TYPE string.
+    DATA lv_obj_name TYPE string.
+
+    mo_util->zif_abgagt_util~parse_file_to_object(
+      EXPORTING iv_file = 'src/zcl_my_class.clas.abap'
+      IMPORTING ev_obj_type = lv_obj_type
+                ev_obj_name = lv_obj_name ).
+
+    cl_abap_unit_assert=>assert_equals(
+      act = lv_obj_type exp = 'CLAS' msg = 'Object type should be CLAS' ).
+    cl_abap_unit_assert=>assert_equals(
+      act = lv_obj_name exp = 'ZCL_MY_CLASS' msg = 'Path should be stripped' ).
+  ENDMETHOD.
+
+  METHOD test_parse_invalid.
+    " Test parsing invalid file (should return empty)
+    DATA lv_obj_type TYPE string.
+    DATA lv_obj_name TYPE string.
+
+    mo_util->zif_abgagt_util~parse_file_to_object(
+      EXPORTING iv_file = 'invalid_file.txt'
+      IMPORTING ev_obj_type = lv_obj_type
+                ev_obj_name = lv_obj_name ).
+
+    cl_abap_unit_assert=>assert_initial(
+      act = lv_obj_type msg = 'Invalid file should return empty type' ).
+    cl_abap_unit_assert=>assert_initial(
+      act = lv_obj_name msg = 'Invalid file should return empty name' ).
+  ENDMETHOD.
+
+ENDCLASS.

package/abap/zcl_abgagt_util.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_UTIL</CLSNAME>
+    <LANGU>E</LANGU>
+    <DESCRIPT>Utility Class 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/zif_abgagt_agent.intf.abap

@@ -0,0 +1,134 @@
+" TODO: Implement detailed syntax error parsing
+" When a syntax error occurs, the log shows the affected object name
+" but not the specific line/column. For better error reporting:
+" - Parse the error message to extract object info
+" - For syntax errors, query SEPSA or TRINT_OBJECT_LOG for details
+" - Return structured error with line numbers and fix suggestions
+
+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.
+
+  TYPES: BEGIN OF ty_pull_params,
+    url TYPE string,
+    branch TYPE string,
+    username TYPE string,
+    password TYPE string,
+    package TYPE devclass,
+    folder_logic TYPE string,
+    create_new TYPE abap_bool,
+  END OF ty_pull_params.
+
+  " Types for inspect (syntax check)
+  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,
+           object_type TYPE string,
+           object_name TYPE string,
+           error_count TYPE i,
+           errors TYPE ty_errors,
+         END OF ty_inspect_result.
+
+  " Types for unit tests
+  TYPES: BEGIN OF ty_test_result,
+           object_type TYPE string,
+           object_name TYPE string,
+           test_method TYPE string,
+           status TYPE string,
+           message TYPE string,
+           line TYPE string,
+         END OF ty_test_result.
+
+  TYPES ty_test_results TYPE STANDARD TABLE OF ty_test_result WITH NON-UNIQUE DEFAULT KEY.
+
+  TYPES: BEGIN OF ty_unit_result,
+           success TYPE abap_bool,
+           message TYPE string,
+           test_count TYPE i,
+           passed_count TYPE i,
+           failed_count TYPE i,
+           results TYPE ty_test_results,
+         END OF ty_unit_result.
+
+  TYPES: BEGIN OF ty_object_key,
+           object_type TYPE string,
+           object_name TYPE string,
+         END OF ty_object_key.
+
+  TYPES ty_object_keys TYPE STANDARD TABLE OF ty_object_key WITH NON-UNIQUE DEFAULT KEY.
+
+  TYPES: ty_log_table TYPE TABLE OF string.
+  TYPES: ty_job_status TYPE string.
+
+  CONSTANTS:
+    gc_status_pending TYPE ty_job_status VALUE 'PENDING',
+    gc_status_running TYPE ty_job_status VALUE 'RUNNING',
+    gc_status_completed TYPE ty_job_status VALUE 'COMPLETED',
+    gc_status_failed TYPE ty_job_status VALUE 'FAILED'.
+
+  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.
+
+  METHODS inspect
+    IMPORTING
+      iv_file TYPE string
+    RETURNING
+      VALUE(rs_result) TYPE ty_inspect_result.
+
+  METHODS run_tests
+    IMPORTING
+      iv_package TYPE devclass OPTIONAL
+      it_objects TYPE ty_object_keys OPTIONAL
+    RETURNING
+      VALUE(rs_result) TYPE ty_unit_result.
+
+ENDINTERFACE.

package/abap/zif_abgagt_agent.intf.xml

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

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

package/abap/zif_abgagt_cmd_factory.intf.xml

@@ -0,0 +1,15 @@
+<?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_CMD_FACTORY</CLSNAME>
+    <LANGU>E</LANGU>
+    <DESCRIPT>Command Factory 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_command.intf.abap

@@ -0,0 +1,21 @@
+"* Use this source text module for the interface definition
+"! <p class="shorttext synchronized">Command Interface for ABAP Git Agent</p>
+INTERFACE zif_abgagt_command PUBLIC.
+
+  CONSTANTS:
+    gc_pull TYPE string VALUE 'PULL',
+    gc_inspect TYPE string VALUE 'INSPECT',
+    gc_unit TYPE string VALUE 'UNIT'.
+
+  " Get command name
+  METHODS get_name
+    RETURNING VALUE(rv_name) TYPE string.
+
+  " Execute command with optional parameters
+  " @parameter is_param | Generic parameters (structure varies by command)
+  " @parameter rv_result | JSON result string
+  METHODS execute
+    IMPORTING is_param TYPE data OPTIONAL
+    RETURNING VALUE(rv_result) TYPE string.
+
+ENDINTERFACE.

package/abap/zif_abgagt_command.intf.xml

@@ -0,0 +1,15 @@
+<?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_COMMAND</CLSNAME>
+    <LANGU>E</LANGU>
+    <DESCRIPT>Command 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_util.intf.abap

@@ -0,0 +1,28 @@
+"* Use this source text module for the interface definition
+"! <p class="shorttext synchronized">Utility Interface for ABAP Git Agent</p>
+INTERFACE zif_abgagt_util PUBLIC.
+
+  "! Parse file name to extract object type and name
+  "! @parameter iv_file | File name (e.g., 'zcl_my_class.clas.abap')
+  "! @parameter ev_obj_type | Object type (e.g., 'CLAS')
+  "! @parameter ev_obj_name | Object name (e.g., 'ZCL_MY_CLASS')
+  METHODS parse_file_to_object
+    IMPORTING
+      iv_file TYPE string
+    EXPORTING
+      ev_obj_type TYPE string
+                ev_obj_name TYPE string.
+
+  "! Check activation log for errors
+  "! @return rv_has_error | ABAP_TRUE if errors found
+  METHODS check_log_for_errors
+    RETURNING
+      VALUE(rv_has_error) TYPE abap_bool.
+
+  "! Get detailed log information
+  "! @return rv_detail | Detailed log message
+  METHODS get_log_detail
+    RETURNING
+      VALUE(rv_detail) TYPE string.
+
+ENDINTERFACE.

package/abap/zif_abgagt_util.intf.xml

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