Erlang/OTP Forums

ludvig@Blackbox:~/esense-1.11> ./esense.sh /usr/local/lib/erlang/lib/
/usr/local/lib/erlang/lib/edoc-0.6.9/src/edoc_doclet.erl, function run/2: at line 40: file not found: edoc_doclet.hrl
Generating index for module edoc_doclet
/usr/local/lib/erlang/lib/edoc-0.6.9/src/edoc_types.erl, function is_predefined/1: at line 33: file not found: edoc_types.hrl
Generating index for module edoc_types
{"init terminating in do_boot",{{case_clause,{'EXIT',{{badrecord,attribute},[{erl_syntax,attribute_name,1},
{esense,'-parse_erlang_record2/2-fun-0-',2},{lists,foldl,3},{esense,parse_erlang_record,2},
{esense,parse_erlang,2},{lists,foldl,3},{esense,parse_file,1},{lists,foreach,2}]}}},[{esense,parse_file,1},
{lists,foreach,2},{esense,parse_dir,1},{lists,foreach,2},{esense,parse_dir,1},{lists,foreach,2},
{esense,parse_dir,1},{esense,'-start/0-fun-0-',1}]}}

Crash dump was written to: erl_crash.dump
init terminating in do_boot ()

code:add_path("/usr/local/lib/yaws/ebin").

{"init terminating in
do_boot",{{case_clause,{'EXIT',{{badrecord,attribute},[{erl_syntax,attribute_name,1},{esens

--- esense.erl   9 Jun 2006 09:11:28 -0000   1.5
+++ esense.erl   28 Jul 2006 11:32:03 -0000
@@ -451,7 +451,15 @@
 
     Record = lists:foldl(
                fun (Arg, InnerRecord) ->
-                       parse_erlang_record2(Arg, InnerRecord)
+                       case erl_syntax:type(Arg) of
+                           atom ->
+                               InnerRecord
+                                   #record{name = erl_syntax:atom_name(Arg)};
+                           tuple ->
+                               parse_erlang_record_fields(
+                                 erl_syntax:tuple_elements(Arg),
+                                 InnerRecord)
+                       end
                end,
                #record{},
                erl_syntax:attribute_arguments(Node)),
@@ -459,13 +467,11 @@
     Record#record{line = erl_syntax:get_pos(Node),
                   doc = Doc}.
 
-parse_erlang_record2({tree, atom, {attr, _, _, _}, _} = RecordName, Record) ->
-    Record#record{name = erl_syntax:atom_name(RecordName)};
-parse_erlang_record2({tree, tuple, _, Fields}, Record) ->
+parse_erlang_record_fields(Fields, Record) ->
     lists:foldl(
       fun (Field, InnerRecord) ->
               Name = erl_syntax:atom_name(
-                       erl_syntax:attribute_name(Field)),
+                       erl_syntax:record_field_name(Field)),
 
               case erl_syntax:get_postcomments(Field) of
                   [] ->

parse_erlang_record(Node, PrevComments) ->
    case erl_syntax:get_precomments(Node) of
        [] ->
            case PrevComments of
                "" ->
                    Doc = undefined;
                _ ->
                    Doc = PrevComments
            end;
        [Comment] ->
            Doc = format_comments(Comment)
    end,
   
    Record = lists:foldl(
               fun (Arg, InnerRecord) ->
                       case erl_syntax:type(Arg) of
                           atom ->
                               InnerRecord
               #record{name = erl_syntax:atom_name(Arg)};
                           tuple ->
                               parse_erlang_record_fields(
                                 erl_syntax:tuple_elements(Arg),
                                 InnerRecord)
                       end
               end,
               #record{},
               erl_syntax:attribute_arguments(Node)),

    Record#record{line = erl_syntax:get_pos(Node),
                  doc = Doc}.

-record(?HASH_PARMS, {
      file_format_version,
      bchunk_format_version,
      file, type, keypos, hash_method,
      n,m,next,
      min,max,
      no_objects,no_keys,
      no_colls  % [{LogSz,NoColls}], NoColls >= 0
     }).

         "define" ->
                            Macro = parse_erlang_macro(Node),
                            Macros = Content#content.macros ++ [Macro],
                            {Exports, [], Content#content{macros = Macros}};
                        "record" ->
                            Record = parse_erlang_record(Node, PrevComments, Content),
                            Records = Content#content.records ++ [Record],
                            {Exports, [], Content#content{records = Records}};

case erl_syntax:type(Arg) of
                           atom ->
                               InnerRecord
               #record{name = erl_syntax:atom_name(Arg)};
                           tuple ->
                               parse_erlang_record_fields(
                                 erl_syntax:tuple_elements(Arg),
                                 InnerRecord);
            macro ->
                Macro = erl_syntax:variable_literal(erl_syntax:macro_name(Arg)),
                Li = lists:filter(fun(Mac) ->
                      Mac#macro.name == Macro
                   end,Content#content.macros),
                case Li of
               [] ->
                   Name = undefined;
               _ ->
                   Mc = hd(Li),
                   Name = Mc#macro.value
                end,
                InnerRecord
               #record{name = Name}
                       end

 
            case catch edoc_extract:source(ParseTree, Filename,
                                            edoc_lib:get_doc_env([{def, {'vsn', "current"}}]),
                                            [{def, {'vsn', "current"}}]) of
                {'EXIT', _Reason} ->
                    undefined;
                {_Module, Xml} ->
                    case catch esense_edoc_layout:layout_module(Xml) of
                        {ok, EdocInfo} ->
                            EdocInfo;
                        _Other ->
                            undefined
                    end;
      Problem ->
          io:format("Problem: ~p~n",[Problem]),
          undefined
            end

Generating index for module cerl_to_icode
/usr/local/lib/erlang/lib/hipe-3.5.5/cerl/cerl_binary_pattern_match.erl, function read_seg_size/1: at line 43: unknown error parsing type definition: {44,
edoc_parser,
["syntax error before: ","these"]}.