first steps #911

abapGit · Sep 11, 2017 · 9f12693 · 9f12693
1 parent 23c9b69
commit 9f12693
Show file tree

Hide file tree

Showing 2 changed files with 84 additions and 0 deletions.
diff --git a/src/zcl_abapgit_syntax_check.clas.abap b/src/zcl_abapgit_syntax_check.clas.abap
@@ -0,0 +1,66 @@
+class ZCL_ABAPGIT_SYNTAX_CHECK definition
+  public
+  create public .
+
+public section.
+
+  class-methods RUN
+    importing
+      !IV_PACKAGE type DEVCLASS .
+protected section.
+
+  class-methods CREATE_OBJECTSET
+    importing
+      !IV_PACKAGE type DEVCLASS
+    returning
+      value(RO_SET) type ref to CL_CI_OBJECTSET .
+private section.
+ENDCLASS.
+
+
+
+CLASS ZCL_ABAPGIT_SYNTAX_CHECK IMPLEMENTATION.
+
+
+  METHOD create_objectset.
+
+    CONSTANTS: lc_anonymous TYPE sci_objs VALUE ''.
+
+    DATA: lt_objects TYPE scistadir,
+          ls_flags   TYPE sci_flgl.
+
+    FIELD-SYMBOLS: <ls_package> LIKE LINE OF lt_objects-sodevc.
+
+
+    ro_set = cl_ci_objectset=>create(
+      p_user = sy-uname
+      p_name = lc_anonymous ).
+
+    APPEND INITIAL LINE TO lt_objects-sodevc ASSIGNING <ls_package>.
+    <ls_package>-sign = 'I'.
+    <ls_package>-option = 'CP'.
+    CONCATENATE iv_package '*' INTO <ls_package>-low.
+* todo, find all subpackages
+
+    ls_flags-class = abap_true.
+    ls_flags-fugrs = abap_true.
+    ls_flags-repos = abap_true.
+    ls_flags-wdyns = abap_true.
+    ls_flags-ddics = abap_true.
+    ls_flags-typps = abap_true.
+
+    ro_set->save_objectset(
+      p_tadir     = lt_objects
+      p_sel_flags = ls_flags ).
+
+  ENDMETHOD.
+
+
+  METHOD run.
+
+    create_objectset( iv_package ).
+
+* todo: add returning parameter
+
+  ENDMETHOD.
+ENDCLASS.
diff --git a/src/zcl_abapgit_syntax_check.clas.xml b/src/zcl_abapgit_syntax_check.clas.xml
@@ -0,0 +1,18 @@
+<?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_ABAPGIT_SYNTAX_CHECK</CLSNAME>
+    <VERSION>1</VERSION>
+    <LANGU>E</LANGU>
+    <DESCRIPT>abapGit - Syntax check</DESCRIPT>
+    <EXPOSURE>2</EXPOSURE>
+    <STATE>1</STATE>
+    <CLSCCINCL>X</CLSCCINCL>
+    <FIXPT>X</FIXPT>
+    <UNICODE>X</UNICODE>
+   </VSEOCLASS>
+  </asx:values>
+ </asx:abap>
+</abapGit>