/* $Id: db_lang.c,v 1.666 2004/09/20 10:50:19 shrike Exp $ */
/************************************************************************************
* Copyright 2004 Astrum Metaphora consortium *
* *
* Licensed under the Apache License, Version 2.0 (the "License"); *
* you may not use this file except in compliance with the License. *
* You may obtain a copy of the License at *
* *
* http://www.apache.org/licenses/LICENSE-2.0 *
* *
* Unless required by applicable law or agreed to in writing, software *
* distributed under the License is distributed on an "AS IS" BASIS, *
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. *
* See the License for the specific language governing permissions and *
* limitations under the License. *
* *
************************************************************************************/
/************************************************************************************
* ANATOLIA 2.1 is copyright 1996-1997 Serdar BULUT, Ibrahim CANPUNAR *
* ANATOLIA has been brought to you by ANATOLIA consortium *
* Serdar BULUT {Chronos} bulut@rorqual.cc.metu.edu.tr *
* Ibrahim Canpunar {Asena} canpunar@rorqual.cc.metu.edu.tr *
* Murat BICER {KIO} mbicer@rorqual.cc.metu.edu.tr *
* D.Baris ACAR {Powerman} dbacar@rorqual.cc.metu.edu.tr *
* By using this code, you have agreed to follow the terms of the *
* ANATOLIA license, in the file Anatolia/anatolia.licence *
***********************************************************************************/
/************************************************************************************
* Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer, *
* Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe. *
* *
* Merc Diku Mud improvments copyright (C) 1992, 1993 by Michael *
* Chastain, Michael Quan, and Mitchell Tse. *
* *
* In order to use any part of this Merc Diku Mud, you must comply with *
* both the original Diku license in 'license.doc' as well the Merc *
* license in 'license.txt'. In particular, you may not remove either of *
* these copyright notices. *
* *
* Much time and thought has gone into this software and you are *
* benefitting. We hope that you share your changes too. What goes *
* around, comes around. *
************************************************************************************/
/************************************************************************************
* ROM 2.4 is copyright 1993-1995 Russ Taylor *
* ROM has been brought to you by the ROM consortium *
* Russ Taylor (rtaylor@pacinfo.com) *
* Gabrielle Taylor (gtaylor@pacinfo.com) *
* Brian Moore (rom@rom.efn.org) *
* By using this code, you have agreed to follow the terms of the *
* ROM license, in the file Rom24/doc/rom.license *
*************************************************************************************/
/************************************************************************************
* Copyright (c) 1998 fjoe <fjoe@iclub.nsu.ru> *
* All rights reserved. *
* *
* Redistribution and use in source and binary forms, with or without *
* modification, are permitted provided that the following conditions *
* are met: *
* 1. Redistributions of source code must retain the above copyright *
* notice, this list of conditions and the following disclaimer. *
* 2. Redistributions in binary form must reproduce the above copyright *
* notice, this list of conditions and the following disclaimer in the *
* documentation and/or other materials provided with the distribution. *
* *
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND *
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE *
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE *
* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE *
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL *
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS *
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) *
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT *
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY *
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF *
* SUCH DAMAGE. *
************************************************************************************/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "merc.h"
#include "db.h"
#include "lang.h"
static lang_t *lang_curr;
static rulecl_t *rcl_curr;
DECLARE_DBLOAD_FUN(load_lang);
DECLARE_DBLOAD_FUN(load_rulecl);
DBFUN db_load_langs[] =
{
{ "LANG", load_lang },
{ "RULECLASS", load_rulecl },
{ NULL }
};
DECLARE_DBLOAD_FUN(load_expl);
DECLARE_DBLOAD_FUN(load_impl);
DBFUN db_load_expl[] =
{
{ "RULE", load_expl },
{ NULL }
};
DBFUN db_load_impl[] =
{
{ "RULE", load_impl },
{ NULL }
};
/*----------------------------------------------------------------------------
* lang loader
*/
DBINIT_FUN(init_lang)
{
lang_curr = NULL;
}
DBLOAD_FUN(load_lang)
{
lang_curr = lang_new();
lang_curr->file_name = get_filename(filename);
for (;;) {
char *word = feof(fp) ? "End" : fread_word(fp);
bool fMatch = FALSE;
switch (UPPER(*word)) {
case 'E':
if (!str_cmp(word, "End")) {
if (IS_NULLSTR(lang_curr->name)) {
db_error("load_lang",
"lang name undefined");
langs.nused--;
return;
}
return;
}
break;
case 'F':
KEY("Flags", lang_curr->flags,
fread_fstring(lang_flags, fp));
break;
case 'N':
KEY("Name", lang_curr->name, str_dup(fread_word(fp)));
break;
case 'S':
KEY("SlangOf", lang_curr->slang_of,
lang_lookup(fread_word(fp)));
}
if (!fMatch)
db_error("load_lang", "%s: Unknown keyword", word);
}
}
DBLOAD_FUN(load_rulecl)
{
lang_t *l = lang_curr;
char *word;
if (!l) {
db_error("load_rulecl", "#RULECLASS before #LANG");
return;
}
word = feof(fp) ? "End" : fread_word(fp);
if (!str_cmp(word, "Class"))
rcl_curr = l->rules + fread_fword(rulecl_names, fp);
else {
db_error("load_rulecl", "Class must be defined first");
return;
}
for (;;) {
char *word = feof(fp) ? "End" : fread_word(fp);
bool fMatch = FALSE;
switch (UPPER(*word)) {
case 'E':
SKEY("Expl", rcl_curr->file_expl);
if (!str_cmp(word, "End")) {
const char *s;
char path[PATH_MAX];
s = strrchr(filename, PATH_SEPARATOR);
if (s) {
strnzncpy(path, sizeof(path),
filename, s - filename);
}
else
path[0] = '\0';
if (rcl_curr->file_expl)
db_load_file(path, rcl_curr->file_expl,
db_load_expl, NULL);
if (rcl_curr->file_impl)
db_load_file(path, rcl_curr->file_impl,
db_load_impl, NULL);
return;
}
break;
case 'I':
SKEY("Impl", rcl_curr->file_impl);
break;
}
if (!fMatch)
db_error("load_rulecl", "%s: Unknown keyword", word);
}
}
static void
load_rules(FILE *fp, rulecl_t *rcl, rule_t* (*add_rule)(rulecl_t*, rule_t*));
DBLOAD_FUN(load_expl)
{
load_rules(fp, rcl_curr, erule_add);
}
DBLOAD_FUN(load_impl)
{
load_rules(fp, rcl_curr, irule_add);
}
static void
load_rules(FILE *fp, rulecl_t *rcl, rule_t* (*rule_add)(rulecl_t*, rule_t*))
{
rule_t r;
rule_init(&r);
for (;;) {
char *word = feof(fp) ? "End" : fread_word(fp);
bool fMatch = FALSE;
switch(UPPER(*word)) {
case 'B':
KEY("BaseLen", r.arg, fread_number(fp));
break;
case 'E':
if (!str_cmp(word, "End")) {
if (IS_NULLSTR(r.name)) {
db_error("load_rules",
"rule name undefined");
rule_clear(&r);
}
else if (!rule_add(rcl, &r))
rule_clear(&r);
return;
}
break;
case 'F':
if (!str_cmp(word, "Form")) {
int fnum = fread_number(fp);
const char *fstring = fread_string(fp);
vform_add(r.f, fnum, fstring);
free_string(fstring);
fMatch = TRUE;
}
break;
case 'N':
SKEY("Name", r.name);
break;
}
if (!fMatch)
db_error("load_rules", "%s: Unknown keyword", word);
}
}