mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 04:59:31 -06:00
remove the pgf-service util which is obsolete anyway
This commit is contained in:
kr.angelov
@@ -1,291 +0,0 @@
|
||||
#include <stdarg.h>
|
||||
#include <gu/map.h>
|
||||
#include <gu/dump.h>
|
||||
#include <gu/log.h>
|
||||
#include <gu/enum.h>
|
||||
#include <gu/file.h>
|
||||
#include <pgf/pgf.h>
|
||||
#include <pgf/literals.h>
|
||||
#include <pgf/parser.h>
|
||||
|
||||
#define NO_FCGI_DEFINES
|
||||
#include <fcgi_stdio.h>
|
||||
#include <unistd.h>
|
||||
#include <stdlib.h>
|
||||
|
||||
#define ISXDIGIT(c) ( \
|
||||
(c >= 48 && c <= 57) || \
|
||||
((c & ~0x20) >= 65 && (c & ~0x20) <= 70) \
|
||||
)
|
||||
|
||||
void
|
||||
url_escape(char *str)
|
||||
{
|
||||
char *pr = str, *pw = str;
|
||||
size_t len = strlen(str);
|
||||
|
||||
for (;;) {
|
||||
if (((size_t) (pr - str)) >= len)
|
||||
break;
|
||||
|
||||
if (*pr == '%' &&
|
||||
(((size_t) (pr - str))+2) < len &&
|
||||
ISXDIGIT(*(pr+1)) &&
|
||||
ISXDIGIT(*(pr+2)))
|
||||
{
|
||||
pr++;
|
||||
|
||||
char hexstr[3];
|
||||
hexstr[0] = *pr++;
|
||||
hexstr[1] = *pr++;
|
||||
hexstr[2] = 0;
|
||||
|
||||
char *ptr;
|
||||
int ch = strtoul(hexstr, &ptr, 16);
|
||||
*pw++ = (char) (ch & 0x7f);
|
||||
}
|
||||
else if(*pr == '+') {
|
||||
*pw++ = ' ';
|
||||
}
|
||||
else {
|
||||
*pw++ = *pr++;
|
||||
}
|
||||
}
|
||||
|
||||
*pw++ = 0;
|
||||
}
|
||||
|
||||
static int
|
||||
render(PgfPGF* pgf, PgfExpr expr, GuPool* pool)
|
||||
{
|
||||
int pid;
|
||||
int pc[2]; /* Parent to child pipe */
|
||||
int cp[2]; /* Child to parent pipe */
|
||||
char ch;
|
||||
|
||||
/* Make pipes */
|
||||
if (pipe(pc) < 0)
|
||||
return 0;
|
||||
if (pipe(cp) < 0)
|
||||
return 0;
|
||||
|
||||
/* Create a child to run command. */
|
||||
switch (pid = fork())
|
||||
{
|
||||
case -1:
|
||||
return 0;
|
||||
case 0:
|
||||
/* Child. */
|
||||
dup2(cp[1], 1); /* Make stdout go to write
|
||||
end of pipe. */
|
||||
dup2(pc[0], 0); /* Make stdin come from read
|
||||
end of pipe. */
|
||||
close(pc[1]);
|
||||
close(cp[0]);
|
||||
|
||||
char *args[] = {"dot", "-Tsvg", NULL};
|
||||
execvp(args[0], args);
|
||||
|
||||
exit(1);
|
||||
default: {
|
||||
/* Parent. */
|
||||
FILE* fstream = fdopen(pc[1], "w");
|
||||
GuOut* out = gu_file_out(fstream, pool);
|
||||
GuExn* err = gu_new_exn(NULL, gu_kind(type), pool);
|
||||
|
||||
pgf_graphviz_abstract_tree(pgf, expr, out, err);
|
||||
fclose(fstream);
|
||||
|
||||
close(cp[1]);
|
||||
while (read(cp[0], &ch, 1) == 1)
|
||||
{
|
||||
FCGI_putchar(ch);
|
||||
}
|
||||
return 1;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
static void
|
||||
put_gu_string(GuString s) {
|
||||
GuWord w = s.w_;
|
||||
uint8_t buf[sizeof(GuWord)];
|
||||
|
||||
char* src;
|
||||
size_t len;
|
||||
if (w & 1) {
|
||||
len = (w & 0xff) >> 1;
|
||||
gu_assert(len <= sizeof(GuWord));
|
||||
size_t i = len;
|
||||
while (i > 0) {
|
||||
w >>= 8;
|
||||
buf[--i] = w & 0xff;
|
||||
}
|
||||
src = (char*) buf;
|
||||
} else {
|
||||
uint8_t* p = (void*) w;
|
||||
len = (p[0] == 0) ? ((size_t*) p)[-1] : p[0];
|
||||
src = (char*) &p[1];
|
||||
}
|
||||
|
||||
for (size_t i = 0; i < len; i++) {
|
||||
FCGI_putchar(src[i]);
|
||||
}
|
||||
}
|
||||
|
||||
static void
|
||||
linearize(PgfConcr* concr, PgfExpr expr, GuPool* pool)
|
||||
{
|
||||
GuStringBuf* sbuf = gu_string_buf(pool);
|
||||
GuOut* out = gu_string_buf_out(sbuf);
|
||||
|
||||
GuExn* err = gu_new_exn(NULL, gu_kind(type), pool);
|
||||
|
||||
pgf_linearize(concr, expr, out, err);
|
||||
|
||||
GuString s = gu_string_buf_freeze(sbuf, pool);
|
||||
put_gu_string(s);
|
||||
}
|
||||
|
||||
static void
|
||||
print_lang(GuMapItor* fn, const void* key, void* value, GuExn* err)
|
||||
{
|
||||
PgfCId lang = *((PgfCId*) key);
|
||||
put_gu_string(lang);
|
||||
FCGI_putchar(' ');
|
||||
}
|
||||
|
||||
int main ()
|
||||
{
|
||||
// Create the pool that is used to allocate everything
|
||||
GuPool* pool = gu_new_pool();
|
||||
int status = EXIT_SUCCESS;
|
||||
|
||||
// Create an exception frame that catches all errors.
|
||||
GuExn* err = gu_new_exn(NULL, gu_kind(type), pool);
|
||||
|
||||
char* grammar_path = getenv("GRAMMAR_PATH");
|
||||
if (grammar_path == NULL) {
|
||||
fprintf(stderr, "Please set the GRAMMAR_PATH variable\n");
|
||||
status = EXIT_FAILURE;
|
||||
goto fail;
|
||||
}
|
||||
|
||||
// Read the PGF grammar.
|
||||
char* grammar_name = "/ParseEngAbs.pgf";
|
||||
char* grammar_file = malloc(strlen(grammar_path)+strlen(grammar_name)+1);
|
||||
strcpy(grammar_file,grammar_path);
|
||||
strcat(grammar_file,grammar_name);
|
||||
PgfPGF* pgf = pgf_read(grammar_file, pool, err);
|
||||
free(grammar_file);
|
||||
|
||||
// If an error occured, it shows in the exception frame
|
||||
if (!gu_ok(err)) {
|
||||
fprintf(stderr, "Reading PGF failed\n");
|
||||
status = EXIT_FAILURE;
|
||||
goto fail;
|
||||
}
|
||||
|
||||
// Read the extra probs.
|
||||
char* probs_name = "/ParseEngAbs3.probs";
|
||||
char* probs_file = malloc(strlen(grammar_path)+strlen(probs_name)+1);
|
||||
strcpy(probs_file,grammar_path);
|
||||
strcat(probs_file,probs_name);
|
||||
pgf_load_meta_child_probs(pgf, probs_file, pool, err);
|
||||
free(probs_file);
|
||||
|
||||
if (!gu_ok(err)) {
|
||||
fprintf(stderr, "Loading meta child probs failed\n");
|
||||
status = EXIT_FAILURE;
|
||||
goto fail;
|
||||
}
|
||||
|
||||
GuString cat = "Phr";
|
||||
GuString from_lang = "ParseEng";
|
||||
PgfConcr* from_concr =
|
||||
pgf_get_language(pgf, from_lang);
|
||||
if (!from_concr) {
|
||||
status = EXIT_FAILURE;
|
||||
goto fail;
|
||||
}
|
||||
|
||||
// Register a callback for the literal category Symbol
|
||||
pgf_parser_add_literal(from_concr, "Symb",
|
||||
&pgf_nerc_literal_callback);
|
||||
|
||||
while (FCGI_Accept() >= 0) {
|
||||
char* query = getenv("QUERY_STRING");
|
||||
|
||||
char sentence[202];
|
||||
char to_lang_buf[51] = "";
|
||||
if (query == NULL ||
|
||||
sscanf(query, "sentence=%200[^&]&to=%50[^&]", sentence, to_lang_buf) < 1) {
|
||||
FCGI_printf("Status: 200 OK\r\n");
|
||||
FCGI_printf("Content-type: text/plain; charset=utf-8\r\n\r\n");
|
||||
|
||||
GuMapItor clo = { print_lang };
|
||||
pgf_iter_languages(pgf, &clo, NULL);
|
||||
FCGI_putchar('\n');
|
||||
} else {
|
||||
// We create a temporary pool for translating a single
|
||||
// sentence, so our memory usage doesn't increase over time.
|
||||
GuPool* ppool = gu_new_pool();
|
||||
|
||||
PgfConcr* to_concr = NULL;
|
||||
if (strlen(to_lang_buf) > 0) {
|
||||
GuString to_lang = to_lang_buf;
|
||||
to_concr =
|
||||
pgf_get_language(pgf, to_lang);
|
||||
if (!to_concr) {
|
||||
status = EXIT_FAILURE;
|
||||
goto fail;
|
||||
}
|
||||
}
|
||||
|
||||
url_escape(sentence);
|
||||
int len = strlen(sentence);
|
||||
sentence[len] = '\n';
|
||||
sentence[len+1] = '\0';
|
||||
|
||||
GuReader *rdr =
|
||||
gu_string_reader(sentence, ppool);
|
||||
PgfLexer *lexer =
|
||||
pgf_new_simple_lexer(rdr, ppool);
|
||||
|
||||
GuEnum* result =
|
||||
pgf_parse(from_concr, cat, lexer, ppool, ppool);
|
||||
if (result == NULL) {
|
||||
FCGI_printf("Status: 500 Internal Server Error\r\n");
|
||||
FCGI_printf("Content-type: text/plain\r\n"
|
||||
"\r\n"
|
||||
"Parsing failed");
|
||||
goto done;
|
||||
}
|
||||
|
||||
PgfExprProb* ep = gu_next(result, PgfExprProb*, ppool);
|
||||
if (ep == NULL) {
|
||||
FCGI_printf("Status: 500 Internal Server Error\r\n");
|
||||
FCGI_printf("Content-type: text/plain\r\n"
|
||||
"\r\n"
|
||||
"The sentence was parsed but there was no tree constructed");
|
||||
goto done;
|
||||
}
|
||||
|
||||
FCGI_printf("Status: 200 OK\r\n");
|
||||
if (to_concr == NULL) {
|
||||
FCGI_printf("Content-type: image/svg+xml\r\n\r\n");
|
||||
render(pgf, ep->expr, ppool);
|
||||
} else {
|
||||
FCGI_printf("Content-type: text/plain; charset=utf-8\r\n\r\n");
|
||||
linearize(to_concr, ep->expr, ppool);
|
||||
}
|
||||
|
||||
done:
|
||||
gu_pool_free(ppool);
|
||||
}
|
||||
}
|
||||
|
||||
fail:
|
||||
gu_pool_free(pool);
|
||||
return status;
|
||||
}
|
||||
Reference in New Issue
Block a user