├── .abapgit.xml
├── LICENSE
├── README.md
└── src
├── demo
├── package.devc.xml
├── zabapgraph_demo.prog.abap
└── zabapgraph_demo.prog.xml
├── package.devc.xml
├── zabapgraph_string_template.prog.abap
├── zabapgraph_string_template.prog.xml
├── zcl_abap_graph.clas.abap
├── zcl_abap_graph.clas.locals_imp.abap
├── zcl_abap_graph.clas.xml
├── zcl_abap_graph_attr.clas.abap
├── zcl_abap_graph_attr.clas.locals_imp.abap
├── zcl_abap_graph_attr.clas.xml
├── zcl_abap_graph_node_record.clas.abap
├── zcl_abap_graph_node_record.clas.locals_imp.abap
├── zcl_abap_graph_node_record.clas.xml
├── zcl_abap_graph_node_simple.clas.abap
├── zcl_abap_graph_node_simple.clas.xml
├── zcl_abap_graph_node_table.clas.abap
├── zcl_abap_graph_node_table.clas.locals_imp.abap
├── zcl_abap_graph_node_table.clas.xml
├── zcl_abap_graph_string_template.clas.abap
├── zcl_abap_graph_string_template.clas.testclasses.abap
├── zcl_abap_graph_string_template.clas.xml
├── zcl_abap_graph_utilities.clas.abap
├── zcl_abap_graph_utilities.clas.xml
├── zcx_abap_graph.clas.abap
├── zcx_abap_graph.clas.xml
├── zif_abap_graph_node.intf.abap
└── zif_abap_graph_node.intf.xml
/.abapgit.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 | E
6 | /src/
7 | PREFIX
8 |
9 | - /.gitignore
10 | - /LICENSE
11 | - /README.md
12 | - /package.json
13 | - /.travis.yml
14 |
15 |
16 |
17 |
18 |
--------------------------------------------------------------------------------
/LICENSE:
--------------------------------------------------------------------------------
1 | MIT License
2 |
3 | Copyright (c) 2018 Marcello Urbani
4 |
5 | Permission is hereby granted, free of charge, to any person obtaining a copy
6 | of this software and associated documentation files (the "Software"), to deal
7 | in the Software without restriction, including without limitation the rights
8 | to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
9 | copies of the Software, and to permit persons to whom the Software is
10 | furnished to do so, subject to the following conditions:
11 |
12 | The above copyright notice and this permission notice shall be included in all
13 | copies or substantial portions of the Software.
14 |
15 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
16 | IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
17 | FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
18 | AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
19 | LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
20 | OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
21 | SOFTWARE.
22 |
--------------------------------------------------------------------------------
/README.md:
--------------------------------------------------------------------------------
1 | # ABAP Graph
2 |
3 | A library to create graphviz graphs in ABAP, see the example code in the demo folder.
4 |
5 | Developed for [Abap debugger object graph extension](https://github.com/marcellourbani/abap_debugger_object_graph_extension) to give a more compact layout
6 |
7 | ## Example graphs
8 |
9 | From http://zevolving.com/2012/01/iterator-design-pattern-to-access-linked-list/ )
10 |
11 | 
12 |
13 | Another example from the excellent [Writing Testable Code for ABAP](https://open.sap.com/courses/wtc1) opensap course
14 | 
15 |
--------------------------------------------------------------------------------
/src/demo/package.devc.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | Abap Graph demos
7 |
8 |
9 |
10 |
11 |
--------------------------------------------------------------------------------
/src/demo/zabapgraph_demo.prog.abap:
--------------------------------------------------------------------------------
1 | *
2 | report zabapgraph_demo.
3 |
4 | data: graph type ref to zcl_abap_graph,
5 | ex type ref to cx_root.
6 |
7 | selection-screen begin of screen 1001.
8 | * dummy for triggering screen on Java SAP GUI
9 | selection-screen end of screen 1001.
10 | selection-screen comment /1(50) text-001.
11 | parameters: p_screen radiobutton group dest,
12 | p_file radiobutton group dest.
13 |
14 |
15 | start-of-selection.
16 | try.
17 | perform main.
18 |
19 | catch cx_root into ex.
20 | message ex type 'I'.
21 | endtry.
22 |
23 | class dummy definition.
24 | public section.
25 | class-data: _instance type ref to dummy.
26 | data: tr type e070.
27 | endclass.
28 |
29 | *
30 | form main.
31 | data: gv_html_viewer type ref to cl_gui_html_viewer,
32 | simplenode1 type ref to zcl_abap_graph_node_simple,
33 | simplenode2 type ref to zcl_abap_graph_node_simple,
34 | recordnode type ref to zcl_abap_graph_node_record,
35 | tablenode type ref to zcl_abap_graph_node_table,
36 | partid1 type string,
37 | partid2 type string,
38 | cellattrs type ref to zcl_abap_graph_attr,
39 | partid3 type string.
40 |
41 | try.
42 | graph = zcl_abap_graph=>create( ).
43 | simplenode1 = zcl_abap_graph_node_simple=>create( id = '1' label = 'node 1' graph = graph ).
44 | simplenode2 = zcl_abap_graph_node_simple=>create( id = '2' label = 'node 2' graph = graph ).
45 |
46 | recordnode = zcl_abap_graph_node_record=>create( id = '3' label = 'record' graph = graph escape = abap_false ).
47 | recordnode->addcomponent( name = 'First' value = 'foo' ).
48 | recordnode->addcomponent( name = 'Second' value = 'bar' ).
49 | recordnode->headerattr->set( name = 'bgcolor' value = 'lavender' ).
50 |
51 | partid1 = recordnode->addcomponent( name = 'protected' value = 'protectedv' partid = 'p3' bgcolor = 'yellow' ).
52 | partid2 = recordnode->addcomponent( name = 'private' value = 'privatev' partid = 'p4' bgcolor = 'red' ).
53 |
54 |
55 | tablenode = zcl_abap_graph_node_table=>create( graph = graph id = '"{table1}"' label = 'Table 1' ).
56 | tablenode->setcolumn( id = 'COL1' name = 'First column' ).
57 | tablenode->setcolumn( id = 'COL2' name = 'Second column' ).
58 | tablenode->setcolumn( id = 'COL3' ).
59 | tablenode->setcell( columnid = 'COL1' row = 3 value = '3,1' ).
60 | tablenode->setcell( columnid = 'COL3' row = 1 value = '1,3' ).
61 |
62 | cellattrs = zcl_abap_graph_attr=>create( abap_true ).
63 | cellattrs->set( name = 'bgcolor' value = 'red' ).
64 |
65 | partid3 = tablenode->setcell( columnid = 'COL2' row = 2 value = '2,2' attributes = cellattrs partid = 'central' ).
66 |
67 | simplenode1->linkto( destination = simplenode2->id label = 'link' ).
68 | simplenode1->linkto( recordnode->id ).
69 | recordnode->linkto( source = partid1 destination = partid2 color = 'red' label = 'link between cells' ).
70 | simplenode2->linkto( partid2 ).
71 | simplenode1->linkto( tablenode->id ).
72 | recordnode->linkto( destination = partid3
73 | color = 'green'
74 | label = 'to table center'
75 | source = partid2 ).
76 |
77 |
78 | if p_screen is initial.
79 | zcl_abap_graph_utilities=>show_in_browser( graph ).
80 | else.
81 |
82 | create object gv_html_viewer
83 | exporting
84 | query_table_disabled = abap_true
85 | parent = cl_gui_container=>screen0.
86 |
87 | zcl_abap_graph_utilities=>show_in_viewer( viewer = gv_html_viewer graph = graph ).
88 |
89 | call selection-screen 1001. " trigger screen
90 | endif.
91 | catch cx_root into ex.
92 | message ex type 'I'.
93 | endtry.
94 |
95 | endform.
96 |
--------------------------------------------------------------------------------
/src/demo/zabapgraph_demo.prog.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | ZABAPGRAPH_DEMO
7 | S
8 | 1
9 | X
10 | D$S
11 | X
12 |
13 |
14 | -
15 | I
16 | 001
17 | Display on screen might not work in windows
18 | 82
19 |
20 | -
21 | R
22 | demo abap graph
23 | 15
24 |
25 | -
26 | S
27 | P_FILE
28 | Open graph in browser
29 | 29
30 |
31 | -
32 | S
33 | P_SCREEN
34 | Display on screen(java gui)
35 | 35
36 |
37 |
38 |
39 |
40 |
41 |
--------------------------------------------------------------------------------
/src/package.devc.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | Grapg generation classes
7 |
8 |
9 |
10 |
11 |
--------------------------------------------------------------------------------
/src/zabapgraph_string_template.prog.abap:
--------------------------------------------------------------------------------
1 | define agdefinitions.
2 | data: __abapgraph_templ type ref to zcl_abap_graph_string_template.
3 |
4 | field-symbols: <__abapgraph_varname> type string,
5 | <__abapgraph_varvalue> type any.
6 | end-of-definition.
7 |
8 | define agexpand.
9 | __abapgraph_templ = zcl_abap_graph_string_template=>create( &1 ).
10 | loop at __abapgraph_templ->varnames assigning <__abapgraph_varname>.
11 | assign (<__abapgraph_varname>) to <__abapgraph_varvalue>.
12 | if sy-subrc = 0.
13 | __abapgraph_templ->set_variable( name = <__abapgraph_varname> value = <__abapgraph_varvalue> ).
14 | endif.
15 | endloop.
16 | &2 = __abapgraph_templ->render( ).
17 |
18 | end-of-definition.
19 |
--------------------------------------------------------------------------------
/src/zabapgraph_string_template.prog.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | ZABAPGRAPH_STRING_TEMPLATE
7 | I
8 | E
9 | X
10 |
11 |
12 | -
13 | R
14 | Include ZABAPGRAPH_STRING_TEMPLATE
15 | 34
16 |
17 |
18 |
19 |
20 |
21 |
--------------------------------------------------------------------------------
/src/zcl_abap_graph.clas.abap:
--------------------------------------------------------------------------------
1 | class zcl_abap_graph definition public final create private .
2 |
3 | public section.
4 | constants: c_browser_url type string value 'https://marcellourbani.github.io/Graphviz-browser/index.html#/graph'.
5 | data: default_node_attr type ref to zcl_abap_graph_attr read-only,
6 | default_graph_attr type ref to zcl_abap_graph_attr read-only.
7 |
8 | class-methods create
9 | returning
10 | value(r_result) type ref to zcl_abap_graph.
11 | methods:
12 | generate_html_wrapper
13 | importing baseurl type string default c_browser_url
14 | value(comments) type string optional
15 | returning value(wrapper) type string,
16 |
17 | generate returning value(r_result) type string,
18 | addnode importing node type ref to zif_abap_graph_node,
19 | has_id importing i_id type string
20 | returning value(r_result) type abap_bool,
21 | register_id
22 | importing
23 | id type string,
24 | get_node importing value(nodeid) type string
25 | returning value(node) type ref to zif_abap_graph_node.
26 |
27 | protected section.
28 | private section.
29 | data temp type string.
30 | data uploadpath type string.
31 | data downloadpath type string.
32 | data nodes type zif_abap_graph_node=>tt_node.
33 | data valid_ids type hashed table of string with unique key table_line.
34 |
35 | methods get_defaults
36 | returning
37 | value(r_result) type string.
38 | endclass.
39 |
40 |
41 |
42 | class zcl_abap_graph implementation.
43 |
44 | method create.
45 |
46 | create object r_result.
47 | r_result->default_node_attr = zcl_abap_graph_attr=>create( ).
48 | r_result->default_graph_attr = zcl_abap_graph_attr=>create( ).
49 | r_result->default_node_attr->set( name = 'shape' value = 'record' ).
50 | r_result->default_graph_attr->set( name = 'rankdir' value = 'LR' ).
51 |
52 | endmethod.
53 |
54 | method generate_html_wrapper.
55 | data: lines type table of string,
56 | graphlines type table of string,
57 | graph type string,
58 | iframe type string.
59 | field-symbols: like line of graphlines.
60 | graph = generate( ).
61 | replace all occurrences of '\' in graph with '\\'.
62 | replace all occurrences of '''' in graph with '\'''.
63 |
64 | split graph at cl_abap_char_utilities=>newline into table graphlines.
65 |
66 | concatenate '' to lines,
117 | '' to lines,
118 | '' to lines,
119 | '