@@ -1023,20 +1023,6 @@ public void alloc_opt(Token allocOpt) {
10231023 contextClose ();
10241024 }
10251025
1026- public void alloc_opt_list__begin () {
1027- contextOpen ("keyword-arguments" );
1028- if (verbosity >= 100 )
1029- super .alloc_opt_list__begin ();
1030- }
1031-
1032- public void alloc_opt_list (int count ) {
1033- contextCloseAllInner ("keyword-arguments" );
1034- setAttribute ("count" , count );
1035- if (verbosity >= 100 )
1036- super .alloc_opt_list (count );
1037- contextClose ();
1038- }
1039-
10401026 public void allocation (boolean hasAllocateShapeSpecList , boolean hasAllocateCoarraySpec ) {
10411027 if (hasAllocateShapeSpecList || hasAllocateCoarraySpec )
10421028 cleanUpAfterError ("didn't expect hasAllocateShapeSpecList=" + hasAllocateShapeSpecList
@@ -1085,20 +1071,6 @@ public void dealloc_opt(Token id) {
10851071 contextClose ();
10861072 }
10871073
1088- public void dealloc_opt_list__begin () {
1089- // contextOpen("keyword-arguments");
1090- // if (verbosity >= 100)
1091- super .dealloc_opt_list__begin ();
1092- }
1093-
1094- public void dealloc_opt_list (int count ) {
1095- // contextCloseAllInner("keyword-arguments");
1096- // setAttribute("count", count);
1097- // if (verbosity >= 100)
1098- super .dealloc_opt_list (count );
1099- // contextClose();
1100- }
1101-
11021074 public void primary () {
11031075 context = contextNode (-1 ); // temporarily reopen previously-closed context
11041076 if (verbosity >= 100 )
@@ -1405,20 +1377,6 @@ public void forall_triplet_spec(Token id, boolean hasStride) {
14051377 contextClose ();
14061378 }
14071379
1408- public void forall_triplet_spec_list__begin () {
1409- // contextOpen("index-variables");
1410- // if (verbosity >= 100)
1411- super .forall_triplet_spec_list__begin ();
1412- }
1413-
1414- public void forall_triplet_spec_list (int count ) {
1415- // contextCloseAllInner("index-variables");
1416- // setAttribute("count", count);
1417- // if (verbosity >= 100)
1418- super .forall_triplet_spec_list (count );
1419- // contextClose();
1420- }
1421-
14221380 public void forall_assignment_stmt (boolean isPointerAssignment ) {
14231381 Element assignment = contextNode (-1 );
14241382 if (!context .getTagName ().equals ("header" ))
@@ -1599,19 +1557,13 @@ public void case_value_range_list__begin() {
15991557 contextOpen ("case" );
16001558 setAttribute ("type" , "specific" );
16011559 contextOpen ("header" );
1602- // contextOpen("value-ranges");
1603- // if (verbosity >= 100)
1604- super .case_value_range_list__begin ();
1560+ super .case_value_range_list__begin ();
16051561 contextOpen ("value-range" );
16061562 contextOpen ("value" );
16071563 }
16081564
16091565 public void case_value_range_list (int count ) {
1610- // contextCloseAllInner("value-ranges");
1611- // if (verbosity >= 100)
1612- super .case_value_range_list (count );
1613- // setAttribute("count", count);
1614- // contextClose();
1566+ super .case_value_range_list (count );
16151567 contextClose ("header" );
16161568 }
16171569
@@ -1645,20 +1597,6 @@ public void associate_stmt(Token label, Token id, Token associateKeyword, Token
16451597 contextOpen ("statement" );
16461598 }
16471599
1648- public void association_list__begin () {
1649- // contextOpen("keyword-arguments");
1650- // if (verbosity >= 100)
1651- super .association_list__begin ();
1652- }
1653-
1654- public void association_list (int count ) {
1655- // contextCloseAllInner("keyword-arguments");
1656- // setAttribute("count", count);
1657- // if (verbosity >= 100)
1658- super .association_list (count );
1659- // contextClose();
1660- }
1661-
16621600 public void association (Token id ) {
16631601 context = contextNode (-1 );
16641602 assert context .getNodeName ().equals ("keyword-argument" );
@@ -1842,19 +1780,13 @@ public void connect_spec(Token id) {
18421780 }
18431781
18441782 public void connect_spec_list__begin () {
1845- // contextOpen("keyword-arguments");
1846- // if (verbosity >= 100)
1847- super .connect_spec_list__begin ();
1783+ super .connect_spec_list__begin ();
18481784 contextOpen ("keyword-argument" );
18491785 }
18501786
18511787 public void connect_spec_list (int count ) {
18521788 contextClose ("keyword-argument" );
1853- // contextCloseAllInner("keyword-arguments");
1854- // if (verbosity >= 100)
1855- super .connect_spec_list (count );
1856- // setAttribute("count", count);
1857- // contextClose();
1789+ super .connect_spec_list (count );
18581790 }
18591791
18601792 public void close_stmt (Token label , Token closeKeyword , Token eos ) {
@@ -1875,19 +1807,13 @@ public void close_spec(Token closeSpec) {
18751807 }
18761808
18771809 public void close_spec_list__begin () {
1878- // contextOpen("keyword-arguments");
1879- // if (verbosity >= 100)
1880- super .close_spec_list__begin ();
1810+ super .close_spec_list__begin ();
18811811 contextOpen ("keyword-argument" );
18821812 }
18831813
18841814 public void close_spec_list (int count ) {
18851815 contextClose ("keyword-argument" );
1886- // contextCloseAllInner("keyword-arguments");
1887- // if (verbosity >= 100)
1888- super .close_spec_list (count );
1889- // setAttribute("count", count);
1890- // contextClose();
1816+ super .close_spec_list (count );
18911817 }
18921818
18931819 public void read_stmt (Token label , Token readKeyword , Token eos , boolean hasInputItemList ) {
@@ -1938,20 +1864,6 @@ public void io_control_spec(boolean hasExpression, Token keyword, boolean hasAst
19381864 contextClose ("io-control" );
19391865 }
19401866
1941- public void io_control_spec_list__begin () {
1942- // contextOpen("io-controls");
1943- // if (verbosity >= 100)
1944- super .io_control_spec_list__begin ();
1945- }
1946-
1947- public void io_control_spec_list (int count ) {
1948- // contextCloseAllInner("io-controls");
1949- // if (verbosity >= 100)
1950- super .io_control_spec_list (count );
1951- // setAttribute("count", count);
1952- // contextClose();
1953- }
1954-
19551867 public void format () {
19561868 Element label = null ;
19571869 if (contextNodesCount () > 0 ) {
@@ -1977,20 +1889,6 @@ public void input_item() {
19771889 contextClose ("input" );
19781890 }
19791891
1980- public void input_item_list__begin () {
1981- // contextOpen("inputs");
1982- // if (verbosity >= 100)
1983- super .input_item_list__begin ();
1984- }
1985-
1986- public void input_item_list (int count ) {
1987- // contextCloseAllInner("inputs");
1988- // if (verbosity >= 100)
1989- super .input_item_list (count );
1990- // setAttribute("count", count);
1991- // contextClose();
1992- }
1993-
19941892 public void output_item () {
19951893 Element element = contextNode (-1 );
19961894 contextOpen ("output" );
@@ -2000,20 +1898,6 @@ public void output_item() {
20001898 contextClose ();
20011899 }
20021900
2003- public void output_item_list__begin () {
2004- // contextOpen("outputs");
2005- // if (verbosity >= 100)
2006- super .output_item_list__begin ();
2007- }
2008-
2009- public void output_item_list (int count ) {
2010- // contextCloseAllInner("outputs");
2011- // if (verbosity >= 100)
2012- super .output_item_list (count );
2013- // setAttribute("count", count);
2014- // contextClose();
2015- }
2016-
20171901 public void io_implied_do () {
20181902 ArrayList <Element > elements = contextNodes ();
20191903 Element header = contextNode (-1 );
@@ -2066,20 +1950,6 @@ public void format_specification(boolean hasFormatItemList) {
20661950 contextClose ();
20671951 }
20681952
2069- public void format_item_list__begin () {
2070- // contextOpen("format-items");
2071- // if (verbosity >= 100)
2072- super .format_item_list__begin ();
2073- }
2074-
2075- public void format_item_list (int count ) {
2076- // contextCloseAllInner("format-items");
2077- // if (verbosity >= 100)
2078- super .format_item_list (count );
2079- // setAttribute("count", count);
2080- // contextClose("format-items");
2081- }
2082-
20831953 public void main_program__begin () {
20841954 contextOpen ("program" );
20851955 if (verbosity >= 100 )
@@ -2200,14 +2070,7 @@ public void rename_list__begin() {
22002070 }
22012071 if (!context .getTagName ().equals ("use" ))
22022072 contextOpen ("use" );
2203- // contextOpen("rename");
2204- // if (verbosity >= 100)
2205- super .rename_list__begin ();
2206- }
2207-
2208- public void rename_list (int count ) {
2209- super .rename_list (count );
2210- // contextClose("rename");
2073+ super .rename_list__begin ();
22112074 }
22122075
22132076 public void only_list__begin () {
@@ -2217,14 +2080,7 @@ public void only_list__begin() {
22172080 }
22182081 if (!context .getTagName ().equals ("use" ))
22192082 contextOpen ("use" );
2220- // contextOpen("only");
2221- // if (verbosity >= 100)
2222- super .only_list__begin ();
2223- }
2224-
2225- public void only_list (int count ) {
2226- super .only_list (count );
2227- // contextClose("only");
2083+ super .only_list__begin ();
22282084 }
22292085
22302086 public void block_data () {
@@ -2329,17 +2185,7 @@ public void proc_decl_list__begin() {
23292185 if (!context .getTagName ().equals ("declaration" ))
23302186 contextOpen ("declaration" );
23312187 setAttribute ("type" , "procedures" );
2332- // contextOpen("procedures");
2333- // if (verbosity >= 100)
2334- super .proc_decl_list__begin ();
2335- }
2336-
2337- public void proc_decl_list (int count ) {
2338- // contextCloseAllInner("procedures");
2339- // setAttribute("count", count);
2340- // if (verbosity >= 100)
2341- super .proc_decl_list (count );
2342- // contextClose();
2188+ super .proc_decl_list__begin ();
23432189 }
23442190
23452191 public void intrinsic_stmt (Token label , Token intrinsicKeyword , Token eos ) {
@@ -2386,18 +2232,13 @@ public void actual_arg_spec(Token keyword) {
23862232 }
23872233
23882234 public void actual_arg_spec_list__begin () {
2389- // contextOpen("arguments");
2390- // if (verbosity >= 100)
2391- super .actual_arg_spec_list__begin ();
2235+ super .actual_arg_spec_list__begin ();
23922236 contextOpen ("argument" );
23932237 }
23942238
23952239 public void actual_arg_spec_list (int count ) {
23962240 contextClose ("argument" );
2397- // setAttribute("count", count);
2398- // if (verbosity >= 100)
2399- super .actual_arg_spec_list (count );
2400- // contextClose("arguments");
2241+ super .actual_arg_spec_list (count );
24012242 }
24022243
24032244 public void actual_arg (boolean hasExpr , Token label ) {
@@ -2475,20 +2316,6 @@ public void dummy_arg(Token dummy) {
24752316 contextClose ();
24762317 }
24772318
2478- public void dummy_arg_list__begin () {
2479- // contextOpen("arguments");
2480- // if (verbosity >= 100)
2481- super .dummy_arg_list__begin ();
2482- }
2483-
2484- public void dummy_arg_list (int count ) {
2485- // contextCloseAllInner("arguments");
2486- // setAttribute("count", count);
2487- // if (verbosity >= 100)
2488- super .dummy_arg_list (count );
2489- // contextClose();
2490- }
2491-
24922319 public void end_subroutine_stmt (Token label , Token keyword1 , Token keyword2 , Token name , Token eos ) {
24932320 contextCloseAllInner ("subroutine" );
24942321 super .end_subroutine_stmt (label , keyword1 , keyword2 , name , eos );
0 commit comments