#ifndef _UI_H #define _UI_H #ifdef BIG_ENDIAN #undef BIG_ENDIAN #endif #ifndef TRUE #define TRUE 1 #define FALSE 0 #endif #include #include /*#include */ #include /* #include */ #include #include #include #include #include #include #include #include #include "haskell2c.h" #include "bytecode.h" #include "getconstr.h" #include "nodecache.h" #include "fileformat.h" /*#include "outputtrace.h"*/ #define DEFAULT_DEPTH 7 #define DBGPORT 6710 #define DBGMAXTRIES 32 extern int terminated, interrupted, reductions; extern int redTT, redTS, redST, redSS; extern int trace_enter, trace_bpregexp, trace_singlestep; extern NodePtr dbg_last_trace; extern FileOffset outputContext; NodePtr shortCircuitSelectors (NodePtr node); void showSymbol (NodePtr t, char **pmodule, char **pname , int *pdefpos, int *ppri); int checkEvaluation (NodePtr nodeptr, NodePtr *bot); void stackTrace (NodePtr t); /*int startDbg (NodePtr trace, int exitok);*/ #define MASK_K (0x00003f0) #define CONINFO_DIST(p) (((p)>>8)&0x3f) #define INF_AGE 63 #endif