% compiler: GNU Prolog 1.4.2
% file    : pl_error.pl


file_name('/home/diaz/GP/src/src/BipsPl/pl_error.pl').


predicate(set_bip_name/2,43,static,private,monofile,built_in,[
    call_c('Pl_Set_Bip_Name_2',[],[x(0),x(1)]),
    proceed]).


predicate(current_bip_name/2,46,static,private,monofile,built_in,[
    call_c('Pl_Current_Bip_Name_2',[boolean],[x(0),x(1)]),
    proceed]).


predicate('$pl_err_instantiation'/0,52,static,private,monofile,built_in,[
    put_atom(instantiation_error,0),
    execute('$pl_error'/1)]).


predicate('$pl_err_uninstantiation'/1,55,static,private,monofile,built_in,[
    get_variable(x(1),0),
    put_structure(uninstantiation_error/1,0),
    unify_local_value(x(1)),
    execute('$pl_error'/1)]).


predicate('$pl_err_type'/2,58,static,private,monofile,built_in,[
    get_variable(x(2),0),
    put_structure(type_error/2,0),
    unify_local_value(x(2)),
    unify_local_value(x(1)),
    execute('$pl_error'/1)]).


predicate('$pl_err_domain'/2,61,static,private,monofile,built_in,[
    get_variable(x(2),0),
    put_structure(domain_error/2,0),
    unify_local_value(x(2)),
    unify_local_value(x(1)),
    execute('$pl_error'/1)]).


predicate('$pl_err_existence'/2,64,static,private,monofile,built_in,[
    get_variable(x(2),0),
    put_structure(existence_error/2,0),
    unify_local_value(x(2)),
    unify_local_value(x(1)),
    execute('$pl_error'/1)]).


predicate('$pl_err_permission'/3,67,static,private,monofile,built_in,[
    get_variable(x(3),0),
    put_structure(permission_error/3,0),
    unify_local_value(x(3)),
    unify_local_value(x(1)),
    unify_local_value(x(2)),
    execute('$pl_error'/1)]).


predicate('$pl_err_representation'/1,70,static,private,monofile,built_in,[
    get_variable(x(1),0),
    put_structure(representation_error/1,0),
    unify_local_value(x(1)),
    execute('$pl_error'/1)]).


predicate('$pl_err_evaluation'/1,73,static,private,monofile,built_in,[
    get_variable(x(1),0),
    put_structure(evaluation_error/1,0),
    unify_local_value(x(1)),
    execute('$pl_error'/1)]).


predicate('$pl_err_resource'/1,76,static,private,monofile,built_in,[
    get_variable(x(1),0),
    put_structure(resource_error/1,0),
    unify_local_value(x(1)),
    execute('$pl_error'/1)]).


predicate('$pl_err_syntax'/1,79,static,private,monofile,built_in,[
    get_variable(x(1),0),
    put_structure(syntax_error/1,0),
    unify_local_value(x(1)),
    execute('$pl_error'/1)]).


predicate('$pl_err_system'/1,82,static,private,monofile,built_in,[
    get_variable(x(1),0),
    put_structure(system_error/1,0),
    unify_local_value(x(1)),
    execute('$pl_error'/1)]).


predicate('$pl_error'/1,89,static,private,monofile,built_in,[
    get_variable(x(2),0),
    put_variable(x(1),0),
    call_c('Pl_Context_Error_1',[],[x(0)]),
    put_structure(error/2,0),
    unify_local_value(x(2)),
    unify_value(x(1)),
    put_atom('$pl_error',1),
    put_integer(1,2),
    put_atom(true,3),
    execute('$throw'/4)]).


predicate(syntax_error_info/4,96,static,private,monofile,built_in,[
    call_c('Pl_Set_Bip_Name_Untagged_2',[by_value],[syntax_error_info,4]),
    call_c('Pl_Syntax_Error_Info_4',[boolean],[x(0),x(1),x(2),x(3)]),
    proceed]).
