queue problems
This commit is contained in:
parent
2ac5491b44
commit
8dd2fe0e34
10 changed files with 427 additions and 59 deletions
25
include/spho/ctx.h
Normal file
25
include/spho/ctx.h
Normal file
|
|
@ -0,0 +1,25 @@
|
|||
#ifndef _SPHO_CTX_H
|
||||
#define _SPHO_CTX_H
|
||||
|
||||
#include "spho/data.h"
|
||||
|
||||
struct spho_ctx {
|
||||
int err;
|
||||
int err_info;
|
||||
|
||||
struct spho_nom_l noms;
|
||||
struct spho_const_l cnsts;
|
||||
|
||||
#ifdef SPHO_DEBUG
|
||||
char filebuf[SPHO_ERR_FILEBUF_LEN];
|
||||
int errline;
|
||||
#else
|
||||
char errbuf[SPHO_ERR_BUF_LEN];
|
||||
#endif
|
||||
};
|
||||
|
||||
struct spho_ctx *spho_ctx_create(void);
|
||||
void spho_ctx_destroy(struct spho_ctx *);
|
||||
char *spho_ctx_strerror(struct spho_ctx *);
|
||||
|
||||
#endif
|
||||
|
|
@ -1,4 +1,36 @@
|
|||
#ifndef _SPHO_DATA_H
|
||||
#define _SPHO_DATA_H
|
||||
|
||||
#endif
|
||||
#include <sys/queue.h>
|
||||
|
||||
struct spho_name {
|
||||
char str[128];
|
||||
};
|
||||
|
||||
struct spho_var {
|
||||
struct spho_name name;
|
||||
};
|
||||
|
||||
struct spho_cnst {
|
||||
struct spho_name name;
|
||||
};
|
||||
|
||||
struct spho_nom {
|
||||
struct spho_name name;
|
||||
};
|
||||
|
||||
struct spho_nom_le {
|
||||
struct spho_nom nom;
|
||||
SLIST_ENTRY(spho_nom_le) next;
|
||||
};
|
||||
|
||||
struct spho_const_le {
|
||||
struct spho_cnst cnst;
|
||||
SLIST_ENTRY(spho_const_le) next;
|
||||
};
|
||||
|
||||
|
||||
SLIST_HEAD(spho_nom_l, struct spho_nom_le);
|
||||
SLIST_HEAD(spho_const_l, struct spho_const_le);
|
||||
|
||||
#endif
|
||||
|
|
|
|||
67
include/spho/err.h
Normal file
67
include/spho/err.h
Normal file
|
|
@ -0,0 +1,67 @@
|
|||
#ifndef _SPHO_ERR_H
|
||||
#define _SPHO_ERR_H
|
||||
|
||||
#define SPHO_ERR_SYSTEM 0x000001
|
||||
|
||||
#define SPHO_ERR_INTERNAL 0x010001
|
||||
|
||||
#define SPHO_ERR_IS_SYSERR(err) (SPHO_ERR_SYSTEM == err)
|
||||
|
||||
#ifdef SPHO_DEBUG
|
||||
|
||||
#define SPHO_ERR(ctx, err) \
|
||||
do { \
|
||||
ctx->err = err; \
|
||||
if (err == SPHO_ERR_SYSTEM) \
|
||||
ctx->err_info = errno; \
|
||||
snprintf(ctx->filebuf, sizeof(ctx->filebuf), "%s", \
|
||||
__FILE__); \
|
||||
ctx->errline = __LINE__; \
|
||||
} while (0)
|
||||
|
||||
#else /* SPHO_DEBUG */
|
||||
|
||||
#define SPHO_ERR(ctx, err) \
|
||||
do { \
|
||||
ctx->err = err; \
|
||||
if (err == SPHO_ERR_SYSTEM) \
|
||||
ctx->err_info = errno; \
|
||||
} while (0)
|
||||
|
||||
#endif /* SPHO_DEBUG */
|
||||
|
||||
/* debug stuff */
|
||||
#ifdef SPHO_DEBUG
|
||||
|
||||
/* PRECOND/ASSERT/POSTCOND */
|
||||
#define SPHO_PRECOND(cond) do { \
|
||||
if (! (cond) ) { \
|
||||
fprintf(stderr, "SPHO_PRECOND(" #cond ")@" __FILE__ ":" __LINE__ \
|
||||
" failed. Aborting."); \
|
||||
abort(); \
|
||||
} \
|
||||
} while (0)
|
||||
|
||||
#define SPHO_ASSERT(cond) do { \
|
||||
if (! (cond) ) { \
|
||||
fprintf(stderr, "SPHO_ASSERT(" #cond ")@" __FILE__ ":" __LINE__ \
|
||||
" failed. Aborting."); \
|
||||
abort(); \
|
||||
} \
|
||||
} while (0)
|
||||
|
||||
#define SPHO_POSTCOND(cond) do { \
|
||||
if (! (cond) ) { \
|
||||
fprintf(stderr, "SPHO_POSTCOND(" #cond ")@" __FILE__ ":" __LINE__ \
|
||||
" failed. Aborting."); \
|
||||
abort(); \
|
||||
} \
|
||||
} while (0)
|
||||
|
||||
#else
|
||||
#define SPHO_PRECOND(cond)
|
||||
#define SPHO_ASSERT(cond)
|
||||
#define SPHO_POSTCOND(cond)
|
||||
#endif
|
||||
|
||||
#endif
|
||||
34
include/spho/loc.h
Normal file
34
include/spho/loc.h
Normal file
|
|
@ -0,0 +1,34 @@
|
|||
#ifndef _SPHO_LOC_H
|
||||
#define _SPHO_LOC_H
|
||||
|
||||
#define SPHO_LOCTYPE_LINE 1
|
||||
#define SPHO_LOCTYPE_LINE_COL 2
|
||||
|
||||
|
||||
struct spho_loc_line {
|
||||
char *fpath;
|
||||
unsigned int lineno;
|
||||
};
|
||||
|
||||
struct spho_loc_line {
|
||||
char *fpath;
|
||||
unsigned int lineno;
|
||||
unsigned int colno;
|
||||
};
|
||||
|
||||
union spho_loc_info {
|
||||
struct spho_loc_line line;
|
||||
};
|
||||
|
||||
struct spho_loc {
|
||||
struct spho_ctx *ctx;
|
||||
int loctype;
|
||||
union spho_loc_info locinfo;
|
||||
};
|
||||
|
||||
char *spho_loc_str(struct spho_loc *);
|
||||
struct spho_loc *spho_loc_create_line(struct spho_ctx *, char *, int);
|
||||
struct spho_loc *spho_loc_create_linecol(struct spho_ctx *, char *, int, int);
|
||||
void spho_loc_destroy(struct spho_loc *);
|
||||
|
||||
#endif
|
||||
32
include/spho/spho.h
Normal file
32
include/spho/spho.h
Normal file
|
|
@ -0,0 +1,32 @@
|
|||
#ifndef _SPHO_SPHO_H
|
||||
#define _SPHO_SPHO_H
|
||||
|
||||
#include <sys/queue.h>
|
||||
|
||||
#include "spho/err.h"
|
||||
|
||||
#include "spho/data.h"
|
||||
|
||||
#define SPHO_ERR_BUF_LEN 2048
|
||||
#define SPHO_ERR_FILEBUF_LEN 128
|
||||
|
||||
struct spho_ctx {
|
||||
int err;
|
||||
int err_info;
|
||||
|
||||
struct spho_nom_l noms;
|
||||
struct spho_const_l cnsts;
|
||||
|
||||
#ifdef SPHO_DEBUG
|
||||
char filebuf[SPHO_ERR_FILEBUF_LEN];
|
||||
int errline;
|
||||
#else
|
||||
char errbuf[SPHO_ERR_BUF_LEN];
|
||||
#endif
|
||||
};
|
||||
|
||||
struct spho_ctx *spho_ctx_create(void);
|
||||
void spho_ctx_destroy(struct spho_ctx *);
|
||||
char *spho_ctx_strerror(struct spho_ctx *);
|
||||
|
||||
#endif
|
||||
|
|
@ -1,94 +1,124 @@
|
|||
#ifndef _SPHO_TP_H
|
||||
#define _SPHO_TP_H
|
||||
|
||||
#define SPHO_TP_FORM_UNKNOWN 0x00
|
||||
|
||||
#define SPHO_TP_FORM_DISJ 0x10
|
||||
#define SPHO_TP_FORM_CONJ 0x11
|
||||
#define SPHO_TP_FORM_IMPL 0x12
|
||||
#define SPHO_TP_FORM_BOX 0x13
|
||||
#define SPHO_TP_FORM_FORALL 0x14
|
||||
#define SPHO_TP_FORM_ALIAS 0x15
|
||||
|
||||
#define SPHO_TP_FORM_FALSE 0x20
|
||||
#define SPHO_TP_FORM_TRUE 0x21
|
||||
#define SPHO_TP_FORM_VAR 0x22
|
||||
#define SPHO_TP_FORM_NOM 0x23
|
||||
|
||||
#define SPHO_TP_FORM_REC 0x23
|
||||
|
||||
// TODO explain
|
||||
#define SPHO_TP_FORM_SUB 0x96
|
||||
|
||||
/* base defs */
|
||||
struct spho_name {
|
||||
char str[128];
|
||||
};
|
||||
|
||||
struct spho_var {
|
||||
struct spho_name name;
|
||||
};
|
||||
|
||||
struct spho_alias {
|
||||
struct spho_name name;
|
||||
struct spho_name name;
|
||||
struct spho_tp *tp;
|
||||
};
|
||||
|
||||
struct spho_nominal {
|
||||
struct spho_name name;
|
||||
};
|
||||
|
||||
struct spho_record {
|
||||
struct spho_name mname;
|
||||
struct spho_tp *tp;
|
||||
struct spho_rec {
|
||||
struct spho_name mname;
|
||||
struct spho_tp *tp;
|
||||
};
|
||||
|
||||
/* type data */
|
||||
struct tp_bin_data {
|
||||
struct spho_tp *left;
|
||||
struct spho_tp *right;
|
||||
struct spho_tp *left;
|
||||
struct spho_tp *right;
|
||||
};
|
||||
|
||||
struct tp_box_data {
|
||||
struct spho_tp *tp;
|
||||
struct spho_tp *tp;
|
||||
};
|
||||
|
||||
struct tp_forall_data {
|
||||
struct spho_var *var;
|
||||
struct spho_tp *tp;
|
||||
struct spho_var *var;
|
||||
struct spho_tp *tp;
|
||||
};
|
||||
|
||||
struct tp_alias_data {
|
||||
struct spho_alias *alias;
|
||||
struct spho_tp_list *l;
|
||||
struct spho_alias *alias;
|
||||
struct spho_tp_list *l;
|
||||
};
|
||||
|
||||
struct tp_const_data {
|
||||
struct spho_const *c;
|
||||
struct spho_const *c;
|
||||
};
|
||||
|
||||
struct tp_var_data {
|
||||
struct spho_var *v;
|
||||
};
|
||||
|
||||
struct tp_nominal_data {
|
||||
struct spho_nominal *name;
|
||||
struct spho_nom *n;
|
||||
};
|
||||
|
||||
struct tp_record_data {
|
||||
struct spho_record *r;
|
||||
struct spho_rec *r;
|
||||
};
|
||||
|
||||
/* type data union */
|
||||
union tp_data {
|
||||
struct tp_bin_data binop;
|
||||
struct tp_box_data box;
|
||||
struct tp_forall_data fa;
|
||||
struct tp_alias_data alias;
|
||||
struct tp_const_data cnst;
|
||||
struct tp_nominal_data nom;
|
||||
struct tp_record_data rec;
|
||||
struct tp_bin_data binop;
|
||||
struct tp_box_data box;
|
||||
struct tp_forall_data fa;
|
||||
struct tp_alias_data alias;
|
||||
struct tp_const_data cnst;
|
||||
struct tp_var_data var;
|
||||
struct tp_nominal_data nom;
|
||||
struct tp_record_data rec;
|
||||
};
|
||||
|
||||
#define SPHO_TP_FORM_UNKNOWN 0x00
|
||||
|
||||
#define SPHO_TP_FORM_DISJ 0x10
|
||||
#define SPHO_TP_FORM_CONJ 0x11
|
||||
#define SPHO_TP_FORM_IMPL 0x12
|
||||
#define SPHO_TP_FORM_BOX 0x13
|
||||
#define SPHO_TP_FORM_FORALL 0x14
|
||||
#define SPHO_TP_FORM_ALIAS 0x15
|
||||
|
||||
#define SPHO_TP_FORM_FALSE 0x20
|
||||
#define SPHO_TP_FORM_TRUE 0x21
|
||||
#define SPHO_TP_FORM_VAR 0x22
|
||||
#define SPHO_TP_FORM_NOM 0x23
|
||||
|
||||
#define SPHO_TP_FORM_REC 0x23
|
||||
|
||||
// TODO explain
|
||||
#define SPHO_TP_FORM_SUB 0x96
|
||||
|
||||
/* sappho type */
|
||||
struct spho_tp {
|
||||
int form;
|
||||
union tp_data data;
|
||||
int form;
|
||||
union tp_data data;
|
||||
};
|
||||
|
||||
#endif
|
||||
struct spho_nom *spho_nom_add(struct spho_ctx *, char *, size_t);
|
||||
struct spho_nom *spho_nom_get_or_add(struct spho_ctx *, char *, size_t);
|
||||
// struct spho_nom *spho_tp_nom_get(char *, size_t);
|
||||
|
||||
struct spho_var *spho_var_create(struct spho_ctx *, char *, size_t);
|
||||
struct spho_var *spho_var_get(struct spho_ctx *, char *, size_t);
|
||||
|
||||
struct spho_alias *spho_alias_add(struct spho_ctx *, char *, size_t);
|
||||
struct spho_alias *spho_alias_get(struct spho_ctx *, char *, size_t);
|
||||
|
||||
struct spho_tp *spho_tp_create_disj(struct spho_ctx *, struct spho_tp *,
|
||||
struct spho_tp *, struct spho_tp *);
|
||||
struct spho_tp *spho_tp_create_conj(struct spho_ctx *, struct spho_tp *,
|
||||
struct spho_tp *, struct spho_tp *);
|
||||
struct spho_tp *spho_tp_create_impl(struct spho_ctx *, struct spho_tp *,
|
||||
struct spho_tp *, struct spho_tp *);
|
||||
struct spho_tp *spho_tp_create_box(struct spho_ctx *, struct spho_tp *,
|
||||
struct spho_tp *);
|
||||
struct spho_tp *spho_tp_create_forall(struct spho_ctx *, struct spho_name *,
|
||||
struct spho_tp *);
|
||||
struct spho_tp *spho_tp_create_alias(struct spho_ctx *, struct spho_alias *,
|
||||
struct spho_tp *);
|
||||
struct spho_tp *spho_tp_create_const(struct spho_ctx *, struct spho_const *);
|
||||
struct spho_tp *spho_tp_create_nominal(struct spho_ctx *,
|
||||
struct spho_nom *);
|
||||
struct spho_tp *spho_tp_create_var(struct spho_ctx *, struct spho_var *);
|
||||
struct spho_tp *spho_tp_create_record(struct spho_ctx *, struct spho_rec *);
|
||||
//struct spho_tp *spho_tp_create_sub(struct spho_ctx *, struct spho_tp *,
|
||||
// struct spho_tp *);
|
||||
|
||||
void spho_tp_destroy(struct spho_tp*);
|
||||
|
||||
void spho_tp_free(struct spho_tp *);
|
||||
|
||||
|
||||
#endif
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue