lnsol/log-e-sappho
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

queue problems

Browse source
This commit is contained in:
Ellen Arvidsson 2025-04-11 23:16:29 +02:00
parent 2ac5491b44
commit 8dd2fe0e34
10 changed files with 427 additions and 59 deletions
Download patch file Download diff file Expand all files Collapse all files

138
include/spho/tp.h
View file

@ -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