用erlang提取目录下文件中的所有record定义

可以使用erlang自带的leex和yecc库来完成这个任务。具体实现步骤如下：

1. 首先，需要定义一个leex词法分析器来将文件解析成token序列。这里需要定义一些正则表达式来匹配record定义及其名称，如下所示：

%% 定义 leex 词法分析器
-define(TOKEN_RECORD, {record, Token}).
-define(TOKEN_ID, {id, Token}).

% 定义正则表达式
RECORD_NAME_RE = "[a-zA-Z_][a-zA-Z0-9_]*".
RECORD_START_RE = "-record\\(".
RECORD_END_RE = "\\)\\.?\n?".

% 定义 token 匹配规则
RecordStart = {regex, RECORD_START_RE, fun(_, _) -> {skip, token} end}.
RecordEnd = {regex, RECORD_END_RE, fun(_, _) -> {skip, token} end}.
RecordName = {regex, RECORD_NAME_RE, fun(TokenStr, _) ->
{ok, [{?TOKEN_RECORD, TokenStr}]}
end}.
Id = {regex, "[a-zA-Z_][a-zA-Z0-9_]*", fun(TokenStr, _) ->
{ok, [{?TOKEN_ID, TokenStr}]}
end}.

% 定义完整的 leex 规则
Rules = [RecordStart, RecordEnd, RecordName, Id].

2. 接下来，需要定义一个yecc语法分析器来解析token序列，并提取所有的record定义。这里使用的是递归下降算法，具体实现如下：

% 定义语法规则
-define(RULES, [
{expression, [
{any, [
{?TOKEN_RECORD, fun process_record/1},
{_, fun ignore/1}
]}
]}
]).

% 定义语法动作
process_record(Token) ->
TokenStr = element(2, Token),
io:format("Found record definition: ~s\n", [TokenStr]).
ignore(_) -> ok.

% 定义完整的语法规则
Grammar = {grammar, ?RULES}.

% 定义解析函数
parse(TokenList) ->
Yecc = yecc:new(Grammar),
{ok, AST, _} = yecc:parse(Yecc, expression, TokenList),
AST.

3. 最后，需要将leex和yecc整合起来，并编写一个主函数来调用它们。具体实现如下：

% 定义主函数
main(FileName) ->
{ok, FileData} = file:read_file(FileName),
TokenList = leex:scan_tokens(string:strip(FileData)),
AST = parse(TokenList),
io:format("Finished parsing file: ~s\n", [FileName]),
ok.

% 调用主函数
main("test.erl").

其中，test.erl是待解析的文件名。运行结果将打印出所有的record定义名称。