← Back to branch summary

~ubuntu-branches/debian/squeeze/erlang/squeeze

« back to all changes in this revision

Viewing changes to lib/syntax_tools/src/erl_recomment.erl

  • Committer: Bazaar Package Importer
  • Author(s): Sergei Golovan
  • Date: 2010-03-09 17:34:57 UTC
  • mfrom: (10.1.2 sid)
  • Revision ID: james.westby@ubuntu.com-20100309173457-4yd6hlcb2osfhx31
Tags: 1:13.b.4-dfsg-3
Manpages in section 1 are needed even if only arch-dependent packages are
built. So, re-enabled them.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/syntax_tools/src/erl_recomment.erl
47
47
%% comments. Comments within function definitions or declarations
48
48
%% ("forms") are simply ignored.
49
49
 
 
50
-spec quick_recomment_forms(erl_syntax:forms(), [erl_comment_scan:comment()]) ->
 
51
        erl_syntax:syntaxTree().
 
52
 
50
53
quick_recomment_forms(Tree, Cs) ->
51
54
    recomment_forms(Tree, Cs, false).
52
55
 
109
112
%% @see recomment_tree/2
110
113
%% @see quick_recomment_forms/2
111
114
 
 
115
-spec recomment_forms(erl_syntax:forms(), [erl_comment_scan:comment()]) ->
 
116
        erl_syntax:syntaxTree().
 
117
 
112
118
recomment_forms(Tree, Cs) ->
113
119
    recomment_forms(Tree, Cs, true).
114
120
 
209
215
%% the source file itself, but have been included by preprocessing. This
210
216
%% way, comments will not be inserted into such parts by mistake.
211
217
 
212
 
-record(filter, {file = undefined, line = 0}).
 
218
-record(filter, {file = undefined, line = 0 :: integer()}).
213
219
 
214
220
filter_forms(Fs) ->
215
221
    filter_forms(Fs, false, #filter{}).
330
336
%%
331
337
%% @see recomment_forms/2
332
338
 
 
339
-spec recomment_tree(erl_syntax:syntaxTree(), [erl_comment_scan:comment()]) ->
 
340
        {erl_syntax:syntaxTree(), [erl_comment_scan:comment()]}.
 
341
 
333
342
recomment_tree(Tree, Cs) ->
334
343
    {Tree1, Cs1} = insert_comments(Cs, build_tree(Tree)),
335
344
    {revert_tree(Tree1), Cs1}.
592
601
%% syntax tree for any such tree that can have no subtrees, i.e., such
593
602
%% that `erl_syntax:is_leaf' yields `true'.
594
603
 
595
 
-record(leaf, {min = 0,
596
 
               max = 0,
597
 
               precomments = [],
598
 
               postcomments = [],
599
 
               value}).
600
 
 
601
 
-record(tree, {min = 0,
602
 
               max = 0,
603
 
               type,
604
 
               attrs,
605
 
               precomments = [],
606
 
               postcomments = [],
607
 
               subtrees = []}).
608
 
 
609
 
-record(list, {min = 0,
610
 
               max = 0,
611
 
               subtrees = []}).
 
604
-record(leaf, {min = 0           :: integer(),
 
605
               max = 0           :: integer(),
 
606
               precomments  = [] :: [erl_syntax:syntaxTree()],
 
607
               postcomments = [] :: [erl_syntax:syntaxTree()],
 
608
               value             :: erl_syntax:syntaxTree()}).
 
609
 
 
610
-record(tree, {min = 0           :: integer(),
 
611
               max = 0           :: integer(),
 
612
               type              :: atom(),
 
613
               attrs             :: erl_syntax:syntaxTreeAttributes(),
 
614
               precomments  = [] :: [erl_syntax:syntaxTree()],
 
615
               postcomments = [] :: [erl_syntax:syntaxTree()],
 
616
               subtrees     = [] :: [erl_syntax:syntaxTree()]}).
 
617
 
 
618
-record(list, {min = 0           :: integer(),
 
619
               max = 0           :: integer(),
 
620
               subtrees = []     :: [erl_syntax:syntaxTree()]}).
612
621
 
613
622
leaf_node(Min, Max, Value) ->
614
623
    #leaf{min = Min,