ephp

-module(ephp_class_exception).
-author('manuel@altenwald.com').
-compile([warnings_as_errors]).

-include("ephp.hrl").

-export([
    get_classes/0,
    get_trace/1,
    get_message/1,
    exception_construct/4,
    exception_get_message/3,
    exception_get_code/3,
    exception_get_file/3,
    exception_get_line/3,
    exception_get_trace/3,
    exception_get_previous/3,
    exception_get_trace_as_string/3,
    exception_to_string/3
]).

-import(ephp_class, [class_attr/2, class_attr/3]).

-spec get_classes() -> [class()].

get_classes() -> [
    #class{
        name = <<"Exception">>,
        attrs = [
            class_attr(<<"message">>, protected, <<"Unknown exception">>),
            class_attr(<<"string">>, private, <<>>),
            class_attr(<<"code">>, protected, 0),
            class_attr(<<"file">>, protected),
            class_attr(<<"line">>, protected),
            class_attr(<<"trace">>, private, ephp_array:new()),
            class_attr(<<"previous">>, private)
        ],
        methods = [
            #class_method{
                name = <<"__construct">>,
                code_type = builtin,
                args = [
                    #variable{name = <<"message">>, default_value = <<>>},
                    #variable{name = <<"code">>, default_value = 0},
                    #variable{name = <<"previous">>,
                              data_type = <<"Exception">>}
                ],
                builtin = {?MODULE, exception_construct},
                pack_args = true
            },
            #class_method{
                name = <<"__clone">>,
                code_type = builtin,
                args = [],
                access = private,
                final = true
            },
            #class_method{
                name = <<"getMessage">>,
                code_type = builtin,
                args = [],
                builtin = {?MODULE, exception_get_message},
                final = true
            },
            #class_method{
                name = <<"getCode">>,
                code_type = builtin,
                args = [],
                builtin = {?MODULE, exception_get_code},
                final = true
            },
            #class_method{
                name = <<"getFile">>,
                code_type = builtin,
                args = [],
                builtin = {?MODULE, exception_get_file},
                final = true
            },
            #class_method{
                name = <<"getLine">>,
                code_type = builtin,
                args = [],
                builtin = {?MODULE, exception_get_line},
                final = true
            },
            #class_method{
                name = <<"getTrace">>,
                code_type = builtin,
                args = [],
                builtin = {?MODULE, exception_get_trace},
                final = true
            },
            #class_method{
                name = <<"getPrevious">>,
                code_type = builtin,
                args = [],
                builtin = {?MODULE, exception_get_previous},
                final = true
            },
            #class_method{
                name = <<"getTraceAsString">>,
                code_type = builtin,
                args = [],
                builtin = {?MODULE, exception_get_trace_as_string},
                final = true
            },
            #class_method{
                name = <<"__toString">>,
                code_type = builtin,
                args = [],
                builtin = {?MODULE, exception_to_string}
            }
        ]
    },
    #class{
        name = <<"LogicException">>,
        extends = <<"Exception">>
    }
].

get_trace(ObjRef) when ?IS_OBJECT(ObjRef) ->
    ClassCtx = ephp_object:get_context(ObjRef),
    ephp_context:get(ClassCtx, #variable{name = <<"trace">>}).

get_message(ObjRef) when ?IS_OBJECT(ObjRef) ->
    ClassCtx = ephp_object:get_context(ObjRef),
    ephp_context:get(ClassCtx, #variable{name = <<"message">>}).

exception_construct(Ctx, ObjRef, {{line,Line},_},
                    [{_, Message}, {_, Code}, {_, Previous}]) ->
    ClassCtx = ephp_object:get_context(ObjRef),
    File = ephp_context:get_active_file(Ctx),
    Traces = ephp_stack:get_array(Ctx),
    %% TODO: get content for string
    ephp_context:set_bulk(ClassCtx, [{#variable{name = <<"message">>}, Message},
                                     {#variable{name = <<"string">>}, <<>>},
                                     {#variable{name = <<"code">>}, Code},
                                     {#variable{name = <<"previous">>}, Previous},
                                     {#variable{name = <<"file">>}, File},
                                     {#variable{name = <<"line">>}, Line},
                                     {#variable{name = <<"trace">>}, Traces}]),
    Message.

exception_get_message(_Ctx, Object, _Line) ->
    get_message(Object).

exception_get_code(_Ctx, ObjRef, _Line) ->
    ClassCtx = ephp_object:get_context(ObjRef),
    ephp_context:get(ClassCtx, #variable{name = <<"code">>}).

exception_get_file(_Ctx, ObjRef, _Line) ->
    ClassCtx = ephp_object:get_context(ObjRef),
    ephp_context:get(ClassCtx, #variable{name = <<"file">>}).

exception_get_line(_Ctx, ObjRef, _Line) ->
    ClassCtx = ephp_object:get_context(ObjRef),
    ephp_context:get(ClassCtx, #variable{name = <<"line">>}).

exception_get_trace(_Ctx, Object, _Line) ->
    get_trace(Object).

exception_get_previous(_Ctx, ObjRef, _Line) ->
    ClassCtx = ephp_object:get_context(ObjRef),
    ephp_context:get(ClassCtx, #variable{name = <<"previous">>}).

exception_get_trace_as_string(_Ctx, ObjRef, _L) ->
    _ClassCtx = ephp_object:get_context(ObjRef),
    %% TODO
    <<>>.

exception_to_string(_Ctx, ObjRef, _Line) ->
    ClassCtx = ephp_object:get_context(ObjRef),
    ephp_context:get(ClassCtx, #variable{name = <<"file">>}).