note
    description: "Summary description for {ETF_ERROR_MESSAGE}."
    author: ""
    date: "$Date$"
    revision: "$Revision$"

class
    ETF_ERROR_MESSAGE

create
    make

feature {NONE} -- Initialization

    make
        local
            output_setter : ETF_CMD_LINE_OUTPUT_HANDLER
            reg_setter : ETF_MODEL_ACCESS
        do
            create output_setter.make
            output_handler := output_setter
            reg := reg_setter.m
        end

feature {ETF_COMMAND, ETF_PUT} -- error conditions

    err : STRING
        attribute create Result.make_empty end

    err_nonpositive_id : STRING
        attribute Result := "id must be positive" end

    err_unused_id : STRING
        attribute Result := "id not identified with a person in database" end

    err_same_id : STRING
        attribute Result := "ids must be different" end

    err_id_alreadytaken : STRING
        attribute Result := "id already taken" end

    err_start_name : STRING
        attribute Result := "name must start with A-Z or a-z" end

    err_start_country : STRING
        attribute Result := "country must start with A-Z or a-Z" end

    err_date_invalid : STRING
        attribute Result := "not a valid date in 1900..3000" end

    err_cant_marry : STRING
        attribute Result := "proposed marriage invalid" end

    err_divorced : STRING
        attribute Result := "these are not married" end

    err_already_dead : STRING
        attribute Result := "person with that id already dead" end

    set_err (err_string : STRING)
        do
            err := err_string
            err_out (err)
        end

    err_out (send_err : STRING)
        do
            reg.update_model_error(send_err)
        end

feature --{NONE}
    output_handler : ETF_CMD_LINE_OUTPUT_HANDLER
    reg : ETF_MODEL

end