#include "nodes.h" #include <stdlib.h>#include <stdio.h>#include <string.h>#include "util.h"#include "datatypes.h"#include "parse.h"#include "doors.h"#include "terminals.h" /*Copyright (c) 2013-2021 Devine Lu Linvega2018 web port by rezmason2021 C89 port by rezmason Permission to use, copy, modify, and distribute this software for anypurpose with or without fee is hereby granted, provided that the abovecopyright notice and this permission notice appear in all copies. THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIESWITH REGARD TO THIS SOFTWARE.*/ static Node (*nodes)[] = NULL;static int numNodes;static Subject defaultSubject;static char firstNodeName[10] = "xx\0"; voidparseNodeSubject(Subject *sub, char *nodeName, char *orientationName, int mapIgnore){	sub->type = SUBJECTTYPE_NODE;	sub->data.node.node = Nodes_Get(nodeName);	parseOrientation(&sub->data.node.orientation, orientationName);	sub->data.node.mapIgnore = mapIgnore;} voidparseTerminalSubject(Subject *sub, char *name){	Terminal *terminal = Terminals_Get(name);	sub->type = SUBJECTTYPE_TERMINAL;	if(terminal == NULL) {		printf("Node data error: no terminal with name %s\n", name);	} else {		sub->data.terminal.terminal = terminal;	}} voidparseDoorSubject(Subject *sub, char *name, char *nodeName, char *orientationName, char *altNodeName, char *altOrientationName){	Door *door = Doors_Get(name);	sub->type = SUBJECTTYPE_DOOR;	if(door == NULL) {		printf("Node data error: no door with name %s\n", name);	} else {		sub->data.door.door = door;	}	sub->data.node.node = Nodes_Get(nodeName);	parseOrientation(&sub->data.door.node.orientation, orientationName);	sub->data.door.altNode.node = Nodes_Get(altNodeName);	parseOrientation(&sub->data.door.altNode.orientation, altOrientationName);} voidparseMazeSubject(Subject *sub, char *nodeName, char *orientationName, char *altNodeName, char *altOrientationName, char *axisName, int changeAmount, int isExit){	sub->type = SUBJECTTYPE_MAZE;	sub->data.node.node = Nodes_Get(nodeName);	parseOrientation(&sub->data.maze.node.orientation, orientationName);	sub->data.door.altNode.node = Nodes_Get(altNodeName);	parseOrientation(&sub->data.maze.altNode.orientation, altOrientationName);	parseMazeAxis(&sub->data.maze.axis, axisName);	sub->data.maze.changeAmount = changeAmount;	sub->data.maze.isExit = isExit;} static voidparseSubject(Subject *sub, char name[100], char params[200]){	int missing;	char nodeName[10], altNodeName[10];	char orientation[15], altOrientation[15];	char entityName[40]; 	strcpy(nodeName, "");	strcpy(altNodeName, "");	strcpy(orientation, "");	strcpy(altOrientation, "");	strcpy(entityName, ""); 	*sub = defaultSubject; 	if(strcmp(name, "none") == 0) {		/*			example: none(0)		*/		missing = 0;	} else if(strcmp(name, "to") == 0) {		/*			example: to("nodeName", NORTH)		*/		missing = 2 - sscanf(params, "\"%[^\"]\", %[^,]", nodeName, orientation);		parseNodeSubject(sub, nodeName, orientation, 0);	} else if(strcmp(name, "mapIgnoreTo") == 0) {		/*			example: mapIgnoreTo("nodeName")		*/		missing = 1 - sscanf(params, "\"%[^\"]\"", nodeName);		parseNodeSubject(sub, nodeName, "STRAIGHT", 1);	} else if(strcmp(name, "straightTo") == 0) {		/*			example: straightTo("nodeName")		*/		missing = 1 - sscanf(params, "\"%[^\"]\"", nodeName);		parseNodeSubject(sub, nodeName, "STRAIGHT", 0);	} else if(strcmp(name, "terminal") == 0) {		/*			example: terminal("name")		*/		missing = 1 - sscanf(params, "\"%[^\"]\"", entityName);		parseTerminalSubject(sub, entityName);	} else if(strcmp(name, "door") == 0) {		/*			example: door("name", "nodeName", STRAIGHT, "altNodeName", STRAIGHT)		*/		strcpy(altOrientation, "STRAIGHT");		missing = 3 - sscanf(params, "\"%[^\"]\", \"%[^\"]\", %[^,], \"%[^\"]\", %[^,]", entityName, nodeName, orientation, altNodeName, altOrientation);		parseDoorSubject(sub, entityName, nodeName, orientation, altNodeName, altOrientation);	} else if(strcmp(name, "maze") == 0) {		/*			example: maze("nodeName", STRAIGHT, "altNodeName", STRAIGHT, X, 123, 0)		*/		int changeAmount, isExit;		char axisName[5];		strcpy(axisName, "");		missing = 7 - sscanf(params,						  "\"%[^\"]\", %[^,], \"%[^\"]\", %[^,], %[^,], %d, %d",						  nodeName,						  orientation,						  altNodeName,						  altOrientation,						  axisName,						  &changeAmount,						  &isExit);		parseMazeSubject(sub, nodeName, orientation, altNodeName, altOrientation, axisName, changeAmount, isExit);	} else {		printf("Node data error: unknown subject constructor %s\n", name);		return;	} 	if(missing > 0) {		printf("Node data error: missing %d params in subject %s(%s)\n", missing, name, params);	}} static voidparseNode(Node *node, int lineNumber, char *line){	int numFound;	char name[10];	char zoneName[20];	char subjectNames[4][100];	char subjectParams[4][100];	char tag[10];	int isFirstNode, isNode; 	strcpy(name, "");	strcpy(zoneName, "");	strcpy(subjectNames[0], "");	strcpy(subjectNames[1], "");	strcpy(subjectNames[2], "");	strcpy(subjectNames[3], "");	strcpy(subjectParams[0], "");	strcpy(subjectParams[1], "");	strcpy(subjectParams[2], "");	strcpy(subjectParams[3], "");	strcpy(tag, ""); 	sscanf(line, "%[^(](", tag);	isFirstNode = strcmp(tag, "first") == 0;	isNode = isFirstNode || strcmp(tag, "node") == 0;	if(!isNode) {		return;	} 	/*		example: node("name", NATANIEV, straightTo("xx"), none(0), none(0), none(0));	*/ 	numFound = sscanf(line,		"%[^(](\"%[^\"]\", %[^,], %[^(](%[^)]), %[^(](%[^)]), %[^(](%[^)]), %[^(](%[^)]));",		tag,		name,		zoneName,		subjectNames[0],		subjectParams[0],		subjectNames[1],		subjectParams[1],		subjectNames[2],		subjectParams[2],		subjectNames[3],		subjectParams[3]); 	if(numFound < 11) {		printf("Node data error: only %d terms matched on line %d: %s\n", numFound, lineNumber, line);	} else {		int i;		strcpy(node->name, name);		if(isFirstNode) {			strcpy(firstNodeName, name);		}		parseZone(&node->zone, zoneName);		for(i = 0; i < 4; i++) {			parseSubject(&node->subjects[i], subjectNames[i], subjectParams[i]);		}	}} intNodes_Init(char *data){	const char *lineDelim = "\n"; 	if(nodes != NULL) {		printf("Node data error: the nodes were already initialized.\n");		return 0;	} 	numNodes = getNumLines(data);	nodes = calloc(numNodes, sizeof(Node)); 	/*		We populate the nodes' names before we parse the rest of them.		That way, we can resolve pointers between nodes as we parse them.	*/	{		char *dupe = duplicate(data);		int i = 0;		char *lineSave = NULL;		char *line = getNextToken(dupe, lineDelim, &lineSave);		while(line != NULL) {			sscanf(line, "node(\"%[^\"]\",", (*nodes)[i].name);			line = getNextToken(NULL, lineDelim, &lineSave);			i++;		}		free(dupe);	} 	{		int i = 0, lineNumber = 1;		char *lineSave = NULL;		char *line = getNextToken(data, lineDelim, &lineSave);		while(line != NULL) {			parseNode(&(*nodes)[i], lineNumber, line);			line = getNextToken(NULL, lineDelim, &lineSave);			lineNumber++;			i++;		}	} 	return 1;} voidNodes_Quit(){	free(nodes);	nodes = NULL;} voidNodes_Reset(GameState *state){	strcpy(state->nodeName, firstNodeName);	state->orientation = ORIENTATION_NORTH;} Node *Nodes_Get(char *name){	int i;	for(i = 0; i < numNodes; i++) {		Node *node = &(*nodes)[i];		if(strcmp(node->name, name) == 0) {			return node;		}	}	return NULL;}