CL_ABAP_CONV_CODEPAGE CL_ABAP_CONV_CODEPAGEXCO_CP | Class | Details/Code Snippet | +
CL_WEB_HTTP_CLIENT_MANAGERCL_HTTP_DESTINATION_PROVIDER |
+
+
+ +``` abap +CLASS zcl_some_class DEFINITION PUBLIC FINAL CREATE PUBLIC. + PUBLIC SECTION. + INTERFACES if_oo_adt_classrun. + PRIVATE SECTION. + CONSTANTS url_cs TYPE string VALUE `https://api.github.com/repos/SAP-samples/abap-cheat-sheets/git/trees/main`. + CONSTANTS url_gh TYPE string VALUE `https://raw.githubusercontent.com/SAP-samples/abap-cheat-sheets/main/`. + CONSTANTS url_api TYPE string VALUE `https://api.github.com/markdown`. + DATA url TYPE string. + TYPES: BEGIN OF s, + file_name TYPE string, + title TYPE string, + code_snippets TYPE string_table, + error TYPE abap_bool, + END OF s. + DATA tab TYPE TABLE OF s WITH EMPTY KEY. + DATA snippets TYPE string_table. + DATA html TYPE string. +ENDCLASS. +CLASS zcl_some_class IMPLEMENTATION. + METHOD if_oo_adt_classrun~main. + TRY. + "Creating a client object using a destination + "In the example, the HTTP destination is created using a plain URL. + "Here, a GitHub API is used to retrieve file names of the ABAP cheat sheet repository. + DATA(http_client) = cl_web_http_client_manager=>create_by_http_destination( i_destination = cl_http_destination_provider=>create_by_url( i_url = url_cs ) ). + "Sending an HTTP GET request and returning the response + "In the example, the HTTP body is retrieved as string data. + DATA(response) = http_client->execute( if_web_http_client=>get )->get_text( ). + CATCH cx_root INTO DATA(err). + out->write( err->get_text( ) ). + ENDTRY. + IF err IS INITIAL. + "Markdown file names are contained in the returned string in a specific + "pattern. In the following code, the markdown file names are extracted + "using a regular expression (pattern: "path":"04_ABAP_Object_Orientation.md") + "After '"path":"' (not including this part, indivated by \K), two + "digits must follow. Then, the further file name is captured with a + "non-greedy capturing up to '.md'. + FIND ALL OCCURRENCES OF PCRE `("path":")\K\d\d.*?\.md` IN response + RESULTS DATA(results) + IGNORING CASE. + + "The 'results' internal table contains all findings and includes their + "offset and length information. + "Using a loop, the actual file names are extracted from the 'response' + "string and added to an internal table that is to receive more information + "in the code below. + LOOP AT results REFERENCE INTO DATA(md). + tab = VALUE #( BASE tab ( file_name = substring( val = response off = md->offset len = md->length ) ) ). + ENDLOOP. + SORT tab BY file_name ASCENDING. + + "In the following loop, the raw markdown content is retrieved using an HTTP GET request, also + "by creating a client object and using a destination (another plain URL). The URL is constructed + "using the constant value plus the markdown file that was retreived before. + LOOP AT tab REFERENCE INTO DATA(cs). + url = url_gh && cs->file_name. + TRY. + http_client = cl_web_http_client_manager=>create_by_http_destination( i_destination = cl_http_destination_provider=>create_by_url( i_url = url ) ). + DATA(raw_md) = http_client->execute( if_web_http_client=>get )->get_text( ). + "Putting the long string that was retrieved in an internal table of type string + "for further processing (extracting the code snippets). + SPLIT raw_md AT |\n| INTO TABLE snippets. + DATA(flag) = ''. + "In the loop, all content from the markdown that is not part of a code + "snippet (indicated by the triple ```) is deleted. + "The replacements with dummy content in the loop are only done so that + "the POST request further down can work with the provided content + "(i.e. avoiding issues characters such as "; they are inserted later again). + LOOP AT snippets REFERENCE INTO DATA(line). + DATA(tabix) = sy-tabix. + FIND PCRE '^\s*```' IN line->*. + IF sy-subrc = 0 AND flag = ''. + line->* = `%%%--START--%%%%`. + flag = 'X'. + ELSEIF sy-subrc = 0 AND flag = 'X'. + line->* = `%%%--END--%%%%`. + flag = ''. + ELSEIF flag <> 'X'. + DELETE snippets INDEX tabix. + ELSE. + FIND PCRE `^\s*"` IN line->*. + IF sy-subrc = 0. + DATA(comment1) = 'X'. + ENDIF. + FIND PCRE `^\*` IN line->*. + IF sy-subrc = 0. + DATA(comment2) = 'X'. + ENDIF. + FIND `***********************************************************************` + IN line->*. + IF sy-subrc = 0. + DATA(divider) = 'X'. + ENDIF. + IF comment1 = 'X' OR comment2 = 'X' OR divider = 'X'. + DELETE snippets INDEX tabix. + CLEAR: comment1, comment2, divider. + ELSE. + REPLACE ALL OCCURRENCES OF `"` IN line->* WITH `§§§§§`. + REPLACE ALL OCCURRENCES OF `\` IN line->* WITH `%%%%%`. + ENDIF. + ENDIF. + ENDLOOP. + "Adding the code snippets to the information table + cs->code_snippets = snippets. + CLEAR snippets. + CATCH cx_root INTO err. + cs->error = abap_true. + ENDTRY. + DELETE ADJACENT DUPLICATES FROM cs->code_snippets COMPARING table_line. + ENDLOOP. + "Creating the final html to be displayed + LOOP AT tab REFERENCE INTO cs WHERE code_snippets IS NOT INITIAL AND error = abap_false. + LOOP AT cs->code_snippets REFERENCE INTO DATA(code). + tabix = sy-tabix. + IF code->* = `%%%--START--%%%%`. + code->* = |```|. + ENDIF. + IF code->* = `%%%--END--%%%%`. + code->* = |```|. + INSERT `*****************` && |\\n| + INTO cs->code_snippets INDEX tabix + 1. + ENDIF. + code->* = code->* && |\\n|. + ENDLOOP. + "For the POST request, concatenating the string table to a single string. + DATA(code_string) = concat_lines_of( table = cs->code_snippets ). + TRY. + "Another creation of a client object using a destination + "This example deals with a POST request. + http_client = cl_web_http_client_manager=>create_by_http_destination( i_destination = cl_http_destination_provider=>create_by_url( i_url = url_api ) ). + DATA(request) = http_client->get_http_request( ). + request->set_text( `{"text":"` && code_string && `"}` ). + request->set_header_fields( VALUE #( ( name = 'Accept' value = 'application/vnd.github+json' ) ) ). + DATA(post) = http_client->execute( if_web_http_client=>post ). + DATA(status) = post->get_status( ). + IF status-code <> 200. + cs->error = abap_true. + DATA(status_error) = |Post request error: { status-code } / { status-reason }|. + ELSE. + "Retrieving the created html code + DATA(html_code) = post->get_text( ). + REPLACE ALL OCCURRENCES OF `§§§§§` IN html_code WITH `"`. + REPLACE ALL OCCURRENCES OF `%%%%%` IN html_code WITH `\`. + REPLACE ALL OCCURRENCES OF PCRE `( )(\w.*)` IN html_code WITH `$1 $2`.
+ ENDIF.
+ CATCH cx_root INTO DATA(error).
+ cs->error = abap_true.
+ ENDTRY.
+ "Preparing the title for expandable sections
+ DATA(title) = cs->file_name.
+ REPLACE ALL OCCURRENCES OF `_` IN title WITH ` `.
+ REPLACE PCRE `^..` IN title WITH ``.
+ REPLACE `.md` IN title WITH ``.
+ "Assembling expandable sections
+ html = html &&
+ ` |
+