mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 04:59:31 -06:00
a skeletal module for higher-order pattern unification in the C runtime
This commit is contained in:
@@ -76,10 +76,11 @@ libpgf_la_SOURCES = \
|
||||
pgf/typechecker.c \
|
||||
pgf/reasoner.c \
|
||||
pgf/evaluator.c \
|
||||
pgf/hopu.c \
|
||||
pgf/printer.c \
|
||||
pgf/graphviz.c \
|
||||
pgf/pgf.c \
|
||||
pgf/pgf.h
|
||||
pgf/pgf.h \
|
||||
libpgf_la_LDFLAGS = "-no-undefined"
|
||||
libpgf_la_LIBADD = libgu.la
|
||||
|
||||
|
||||
10
src/runtime/c/pgf/hopu.c
Normal file
10
src/runtime/c/pgf/hopu.c
Normal file
@@ -0,0 +1,10 @@
|
||||
#include "data.h"
|
||||
#include "evaluator.h"
|
||||
#include "hopu.h"
|
||||
|
||||
void pgf_pattern_unify(PgfEvalState* state, PgfClosure* c1, PgfClosure* c2)
|
||||
{
|
||||
c1 = state->eval_gates->enter(state, c1);
|
||||
c2 = state->eval_gates->enter(state, c2);
|
||||
}
|
||||
|
||||
7
src/runtime/c/pgf/hopu.h
Normal file
7
src/runtime/c/pgf/hopu.h
Normal file
@@ -0,0 +1,7 @@
|
||||
#ifndef HOPU_H
|
||||
#define HOPU_H
|
||||
|
||||
void pgf_pattern_unify(PgfEvalState* state, PgfClosure* c1, PgfClosure* c2);
|
||||
|
||||
#endif
|
||||
|
||||
Reference in New Issue
Block a user