blob: 4a84c3bd9fb999cf088528d935567aba208cf4ce (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
//===-- PrintFlangFunctionNames.cpp ---------------------------------------===//
//
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
// See https://llvm.org/LICENSE.txt for license information.
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
//
//===----------------------------------------------------------------------===//
//
// Small example Flang plugin to count/print Functions & Subroutines names.
// It walks the Parse Tree using a Visitor struct that has Post functions for
// FunctionStmt and SubroutineStmt to access the names of functions &
// subroutines. It also has Pre functions for FunctionSubprogram and
// SubroutineSubprogram so a Bool can be set to show that it is the definition
// of a function/subroutine, and not print those that are in an Interface.
// This plugin does not recognise Statement Functions or Module Procedures,
// which could be dealt with through StmtFunctionStmt and MpSubprogramStmt nodes
// respectively.
//
//===----------------------------------------------------------------------===//
#include "flang/Frontend/FrontendActions.h"
#include "flang/Frontend/FrontendPluginRegistry.h"
#include "flang/Parser/dump-parse-tree.h"
#include "flang/Parser/parsing.h"
using namespace Fortran::frontend;
class PrintFunctionNamesAction : public PluginParseTreeAction {
// Visitor struct that defines Pre/Post functions for different types of nodes
struct ParseTreeVisitor {
template <typename A> bool Pre(const A &) { return true; }
template <typename A> void Post(const A &) {}
bool Pre(const Fortran::parser::FunctionSubprogram &) {
isInSubprogram_ = true;
return true;
}
void Post(const Fortran::parser::FunctionStmt &f) {
if (isInSubprogram_) {
llvm::outs() << "Function:\t"
<< std::get<Fortran::parser::Name>(f.t).ToString() << "\n";
fcounter++;
isInSubprogram_ = false;
}
}
bool Pre(const Fortran::parser::SubroutineSubprogram &) {
isInSubprogram_ = true;
return true;
}
void Post(const Fortran::parser::SubroutineStmt &s) {
if (isInSubprogram_) {
llvm::outs() << "Subroutine:\t"
<< std::get<Fortran::parser::Name>(s.t).ToString() << "\n";
scounter++;
isInSubprogram_ = false;
}
}
int fcounter{0};
int scounter{0};
private:
bool isInSubprogram_{false};
};
void executeAction() override {
ParseTreeVisitor visitor;
Fortran::parser::Walk(getParsing().parseTree(), visitor);
llvm::outs() << "\n==== Functions: " << visitor.fcounter << " ====\n";
llvm::outs() << "==== Subroutines: " << visitor.scounter << " ====\n";
}
};
static FrontendPluginRegistry::Add<PrintFunctionNamesAction> X(
"print-fns", "Print Function names");
|
