![]() |
GNU PROLOG with UTF8 support
|
#include <string.h>
#include <stdlib.h>
#include <setjmp.h>
#include "engine_pl.h"
#include "bips_pl.h"
Data Structures | |
struct | InfCmd |
Macros | |
#define | OBJ_INIT Debug_Initializer |
#define | BANK_NAME_OFFSET_LENGTH 15 |
#define | HEXADECIMAL_LENGTH 20 |
#define | DECIMAL_LENGTH 21 |
#define | VALUE_PART_LENGTH BANK_NAME_OFFSET_LENGTH |
#define | SEPARATOR_LIST " ,[]\n" |
#define | INIT_DEBUGGER X1_24696E69745F6465627567676572 |
#define | DEBUG_CALL X1_2464656275675F63616C6C |
#define | L(str) Pl_Stream_Printf(pstm_o, "%s\n", str) |
Typedefs | |
typedef Bool(* | FctPtr) () |
Functions | |
static void | My_System_Directives (void) |
static void | Scan_Command (char *source_str) |
static FctPtr | Find_Function (void) |
static Bool | Write_Data_Modify (void) |
static Bool | Where (void) |
static Bool | What (void) |
static Bool | Dereference (void) |
static Bool | Environment (void) |
static Bool | Backtrack (void) |
static WamWord * | Read_Bank_Adr (Bool only_stack, int arg_nb, char **bank_name) |
static PlLong | Read_An_Integer (int arg_nb) |
static void | Print_Bank_Name_Offset (char *prefix, char *bank_name, int offset) |
static void | Print_Wam_Word (WamWord *word_adr) |
static void | Modify_Wam_Word (WamWord *word_adr) |
static WamWord * | Detect_Stack (WamWord *adr, char **stack_name) |
static PredInf * | Detect_Pred_From_Code (PlLong *codep) |
static Bool | Help (void) |
Prolog_Prototype (INIT_DEBUGGER, 0) | |
Prolog_Prototype (DEBUG_CALL, 2) | |
static void | Debug_Initializer (void) |
void | Pl_Set_Debug_Call_Code_0 (void) |
void | Pl_Reset_Debug_Call_Code_0 (void) |
void | Pl_Remove_One_Choice_Point_1 (WamWord b_word) |
void | Pl_Choice_Point_Info_4 (WamWord b_word, WamWord name_word, WamWord arity_word, WamWord lastb_word) |
Bool | Pl_Scan_Choice_Point_Info_3 (WamWord b_word, WamWord name_word, WamWord arity_word) |
void | Pl_Choice_Point_Arg_3 (WamWord b_word, WamWord i_word, WamWord arg_word) |
static int | Debugger_SIGSEGV_Handler (void *bad_addr) |
void | Pl_Debug_Wam (void) |
Variables | |
WamCont | pl_debug_call_code |
static int | nb_read_arg |
static char | read_arg [30][80] |
static char * | envir_name [] = ENVIR_NAMES |
static char * | choice_name [] = CHOICE_NAMES |
static char * | trail_tag_name [] = TRAIL_TAG_NAMES |
static WamWord | reg_copy [NB_OF_REGS] |
static StmInf * | pstm_i |
static StmInf * | pstm_o |
static sigjmp_buf | dbg_jumper |
static void * | invalid_addr |
#define BANK_NAME_OFFSET_LENGTH 15 |
#define DEBUG_CALL X1_2464656275675F63616C6C |
#define DECIMAL_LENGTH 21 |
#define HEXADECIMAL_LENGTH 20 |
#define INIT_DEBUGGER X1_24696E69745F6465627567676572 |
#define L | ( | str | ) | Pl_Stream_Printf(pstm_o, "%s\n", str) |
#define OBJ_INIT Debug_Initializer |
#define SEPARATOR_LIST " ,[]\n" |
#define VALUE_PART_LENGTH BANK_NAME_OFFSET_LENGTH |
typedef Bool(* FctPtr) () |
|
static |
|
static |
|
static |
|
static |
|
static |
|
static |
|
static |
|
static |
|
static |
void Pl_Choice_Point_Info_4 | ( | WamWord | b_word, |
WamWord | name_word, | ||
WamWord | arity_word, | ||
WamWord | lastb_word | ||
) |
void Pl_Debug_Wam | ( | void | ) |
void Pl_Remove_One_Choice_Point_1 | ( | WamWord | b_word | ) |
void Pl_Reset_Debug_Call_Code_0 | ( | void | ) |
void Pl_Set_Debug_Call_Code_0 | ( | void | ) |
|
static |
|
static |
Prolog_Prototype | ( | INIT_DEBUGGER | , |
0 | |||
) |
Prolog_Prototype | ( | DEBUG_CALL | , |
2 | |||
) |
|
static |
|
static |
|
static |
|
static |
|
static |
|
static |
|
static |
|
static |
|
static |
|
static |
WamCont pl_debug_call_code |
|
static |
|
static |
|
static |
|
static |
|
static |