mirror of
https://github.com/ZDoom/acc.git
synced 2024-11-22 03:51:21 +00:00
Initial commit for ACC.
SVN r8 (trunk)
This commit is contained in:
Randy Heit
commit
56f3ff15d8
23 changed files with 10887 additions and 0 deletions
144
Makefile
Normal file
144
Makefile
Normal file
|
|
@ -0,0 +1,144 @@
|
|||
# get the target for the compiler
|
||||
target = $(strip $(shell $(CC) -dumpmachine))
|
||||
|
||||
# DOS and Windows executables should have the .exe extension.
|
||||
# Other operating systems should be extension-less.
|
||||
|
||||
ifeq ($(findstring mingw32,$(target)),mingw32)
|
||||
EXENAME = acc.exe
|
||||
else
|
||||
ifeq ($(findstring djgpp,$(target)),djgpp)
|
||||
EXENAME = acc.exe
|
||||
else
|
||||
EXENAME = acc
|
||||
endif
|
||||
endif
|
||||
|
||||
CFLAGS = -Os -Wall -W -march=pentium -mtune=athlon-4 -fomit-frame-pointer
|
||||
LDFLAGS = -s
|
||||
VERNUM = 136
|
||||
|
||||
OBJS = \
|
||||
acc.o \
|
||||
error.o \
|
||||
misc.o \
|
||||
parse.o \
|
||||
pcode.o \
|
||||
strlist.o \
|
||||
symbol.o \
|
||||
token.o
|
||||
|
||||
SRCS = \
|
||||
acc.c \
|
||||
error.c \
|
||||
misc.c \
|
||||
parse.c \
|
||||
pcode.c \
|
||||
strlist.c \
|
||||
symbol.c \
|
||||
token.c \
|
||||
common.h \
|
||||
error.h \
|
||||
misc.h \
|
||||
parse.h \
|
||||
pcode.h \
|
||||
strlist.h \
|
||||
symbol.h \
|
||||
token.h \
|
||||
Makefile \
|
||||
acc.dsp \
|
||||
acc.dsw
|
||||
|
||||
ACS = \
|
||||
zcommon.acs \
|
||||
zdefs.acs \
|
||||
zspecial.acs \
|
||||
zwvars.acs
|
||||
|
||||
$(EXENAME) : $(OBJS)
|
||||
$(CC) $(OBJS) -o $(EXENAME) $(LDFLAGS)
|
||||
|
||||
acc.o: acc.c \
|
||||
common.h \
|
||||
error.h \
|
||||
misc.h \
|
||||
parse.h \
|
||||
pcode.h \
|
||||
strlist.h \
|
||||
symbol.h \
|
||||
token.h \
|
||||
|
||||
|
||||
error.o: error.c \
|
||||
common.h \
|
||||
error.h \
|
||||
misc.h \
|
||||
token.h \
|
||||
|
||||
|
||||
misc.o: misc.c \
|
||||
common.h \
|
||||
error.h \
|
||||
misc.h \
|
||||
|
||||
|
||||
parse.o: parse.c \
|
||||
common.h \
|
||||
error.h \
|
||||
misc.h \
|
||||
parse.h \
|
||||
pcode.h \
|
||||
strlist.h \
|
||||
symbol.h \
|
||||
token.h \
|
||||
|
||||
|
||||
pcode.o: pcode.c \
|
||||
common.h \
|
||||
error.h \
|
||||
misc.h \
|
||||
pcode.h \
|
||||
strlist.h \
|
||||
|
||||
|
||||
strlist.o: strlist.c \
|
||||
common.h \
|
||||
error.h \
|
||||
misc.h \
|
||||
pcode.h \
|
||||
strlist.h \
|
||||
|
||||
|
||||
symbol.o: symbol.c \
|
||||
common.h \
|
||||
error.h \
|
||||
misc.h \
|
||||
pcode.h \
|
||||
symbol.h \
|
||||
parse.h \
|
||||
|
||||
|
||||
token.o: token.c \
|
||||
common.h \
|
||||
error.h \
|
||||
misc.h \
|
||||
pcode.h \
|
||||
symbol.h \
|
||||
token.h \
|
||||
parse.h \
|
||||
|
||||
|
||||
clean:
|
||||
rm -f $(OBJS) $(EXENAME)
|
||||
|
||||
# These targets can only be made with MinGW's make and not DJGPP's, because
|
||||
# they use Win32 tools.
|
||||
|
||||
zipsrc: $(SRCS)
|
||||
kzip /y acc$(VERNUM)-src.zip $(SRCS) "End User License ACC Source Code.doc"
|
||||
|
||||
zipbin: $(EXENAME) $(ACS)
|
||||
kzip /y acc$(VERNUM).zip $(EXENAME) $(ACS)
|
||||
|
||||
zipwbin: Release/acc.exe $(ACS)
|
||||
kzip /y acc$(VERNUM)win.zip Release/acc.exe $(ACS)
|
||||
283
acc.c
Normal file
283
acc.c
Normal file
|
|
@ -0,0 +1,283 @@
|
|||
|
||||
//**************************************************************************
|
||||
//**
|
||||
//** acc.c
|
||||
//**
|
||||
//**************************************************************************
|
||||
|
||||
// HEADER FILES ------------------------------------------------------------
|
||||
|
||||
#include <stdio.h>
|
||||
#include <string.h>
|
||||
#include <stdlib.h>
|
||||
#include <ctype.h>
|
||||
#include "common.h"
|
||||
#include "token.h"
|
||||
#include "error.h"
|
||||
#include "symbol.h"
|
||||
#include "misc.h"
|
||||
#include "pcode.h"
|
||||
#include "parse.h"
|
||||
#include "strlist.h"
|
||||
|
||||
// MACROS ------------------------------------------------------------------
|
||||
|
||||
#define VERSION_TEXT "1.36"
|
||||
#define COPYRIGHT_YEARS_TEXT "1995"
|
||||
|
||||
// TYPES -------------------------------------------------------------------
|
||||
|
||||
// EXTERNAL FUNCTION PROTOTYPES --------------------------------------------
|
||||
|
||||
// PUBLIC FUNCTION PROTOTYPES ----------------------------------------------
|
||||
|
||||
// PRIVATE FUNCTION PROTOTYPES ---------------------------------------------
|
||||
|
||||
static void Init(void);
|
||||
static void DisplayBanner(void);
|
||||
static void DisplayUsage(void);
|
||||
static void OpenDebugFile(char *name);
|
||||
static void ProcessArgs(void);
|
||||
|
||||
// EXTERNAL DATA DECLARATIONS ----------------------------------------------
|
||||
|
||||
// PUBLIC DATA DEFINITIONS -------------------------------------------------
|
||||
|
||||
boolean acs_BigEndianHost;
|
||||
boolean acs_VerboseMode;
|
||||
boolean acs_DebugMode;
|
||||
FILE *acs_DebugFile;
|
||||
char acs_SourceFileName[MAX_FILE_NAME_LENGTH];
|
||||
|
||||
// PRIVATE DATA DEFINITIONS ------------------------------------------------
|
||||
|
||||
static int ArgCount;
|
||||
static char **ArgVector;
|
||||
static char ObjectFileName[MAX_FILE_NAME_LENGTH];
|
||||
|
||||
// CODE --------------------------------------------------------------------
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// main
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
int main(int argc, char **argv)
|
||||
{
|
||||
int i;
|
||||
|
||||
ArgCount = argc;
|
||||
ArgVector = argv;
|
||||
DisplayBanner();
|
||||
Init();
|
||||
TK_OpenSource(acs_SourceFileName);
|
||||
PC_OpenObject(ObjectFileName, DEFAULT_OBJECT_SIZE, 0);
|
||||
PA_Parse();
|
||||
PC_CloseObject();
|
||||
TK_CloseSource();
|
||||
|
||||
MS_Message(MSG_NORMAL, "\n\"%s\":\n %d line%s (%d included)\n",
|
||||
acs_SourceFileName, tk_Line, tk_Line == 1 ? "" : "s",
|
||||
tk_IncludedLines);
|
||||
MS_Message(MSG_NORMAL, " %d function%s\n %d script%s\n",
|
||||
pc_FunctionCount, pc_FunctionCount == 1 ? "" : "s",
|
||||
pa_ScriptCount, pa_ScriptCount == 1 ? "" : "s");
|
||||
for (i = 0; pa_TypedScriptCounts[i].TypeName; i++)
|
||||
{
|
||||
if (pa_TypedScriptCounts[i].TypeCount > 0)
|
||||
{
|
||||
MS_Message(MSG_NORMAL, "%5d %s\n",
|
||||
pa_TypedScriptCounts[i].TypeCount,
|
||||
pa_TypedScriptCounts[i].TypeName);
|
||||
}
|
||||
}
|
||||
MS_Message(MSG_NORMAL, " %d global variable%s\n"
|
||||
" %d world variable%s\n"
|
||||
" %d map variable%s\n"
|
||||
" %d global array%s\n"
|
||||
" %d world array%s\n",
|
||||
pa_GlobalVarCount, pa_GlobalVarCount == 1 ? "" : "s",
|
||||
pa_WorldVarCount, pa_WorldVarCount == 1 ? "" : "s",
|
||||
pa_MapVarCount, pa_MapVarCount == 1 ? "" : "s",
|
||||
pa_GlobalArrayCount, pa_GlobalArrayCount == 1 ? "" : "s",
|
||||
pa_WorldArrayCount, pa_WorldArrayCount == 1 ? "" : "s"
|
||||
);
|
||||
MS_Message(MSG_NORMAL, " object \"%s\": %d bytes\n",
|
||||
ObjectFileName, pc_Address);
|
||||
ERR_RemoveErrorFile();
|
||||
return 0;
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// DisplayBanner
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
static void DisplayBanner(void)
|
||||
{
|
||||
fprintf(stderr, "\nOriginal ACC Version 1.10 by Ben Gokey\n");
|
||||
fprintf(stderr, "Copyright (c) "COPYRIGHT_YEARS_TEXT
|
||||
" Raven Software, Corp.\n\n");
|
||||
fprintf(stderr, "This is version "VERSION_TEXT" ("__DATE__")\n");
|
||||
fprintf(stderr, "This software is not supported by Raven Software or Activision\n");
|
||||
fprintf(stderr, "ZDoom changes and language extensions by Randy Heit\n");
|
||||
fprintf(stderr, "Further changes by Brad Carney\n");
|
||||
fprintf(stderr, "Even more changes by James Bentler\n");
|
||||
fprintf(stderr, "Error reporting improvements and limit expansion by Ty Halderman\n");
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// Init
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
static void Init(void)
|
||||
{
|
||||
short endianTest = 1;
|
||||
|
||||
if (*(char *)&endianTest)
|
||||
acs_BigEndianHost = NO;
|
||||
else
|
||||
acs_BigEndianHost = YES;
|
||||
acs_VerboseMode = YES;
|
||||
acs_DebugMode = NO;
|
||||
acs_DebugFile = NULL;
|
||||
TK_Init();
|
||||
SY_Init();
|
||||
STR_Init();
|
||||
ProcessArgs();
|
||||
MS_Message(MSG_NORMAL, "Host byte order: %s endian\n",
|
||||
acs_BigEndianHost ? "BIG" : "LITTLE");
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// ProcessArgs
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
static void ProcessArgs(void)
|
||||
{
|
||||
int i;
|
||||
int count;
|
||||
char *text;
|
||||
char option;
|
||||
|
||||
count = 0;
|
||||
for(i = 1; i < ArgCount; i++)
|
||||
{
|
||||
text = ArgVector[i];
|
||||
if(*text == '-')
|
||||
{
|
||||
text++;
|
||||
if(*text == 0)
|
||||
{
|
||||
DisplayUsage();
|
||||
}
|
||||
option = toupper(*text++);
|
||||
switch(option)
|
||||
{
|
||||
case 'D':
|
||||
acs_DebugMode = YES;
|
||||
acs_VerboseMode = YES;
|
||||
if(*text != 0)
|
||||
{
|
||||
OpenDebugFile(text);
|
||||
}
|
||||
break;
|
||||
case 'H':
|
||||
pc_NoShrink = TRUE;
|
||||
pc_HexenCase = TRUE;
|
||||
break;
|
||||
default:
|
||||
DisplayUsage();
|
||||
break;
|
||||
}
|
||||
continue;
|
||||
}
|
||||
count++;
|
||||
switch(count)
|
||||
{
|
||||
case 1:
|
||||
strcpy(acs_SourceFileName, text);
|
||||
MS_SuggestFileExt(acs_SourceFileName, ".acs");
|
||||
break;
|
||||
case 2:
|
||||
strcpy(ObjectFileName, text);
|
||||
MS_SuggestFileExt(ObjectFileName, ".o");
|
||||
break;
|
||||
default:
|
||||
DisplayUsage();
|
||||
break;
|
||||
}
|
||||
}
|
||||
if(count == 0)
|
||||
{
|
||||
DisplayUsage();
|
||||
}
|
||||
if(count == 1)
|
||||
{
|
||||
strcpy(ObjectFileName, acs_SourceFileName);
|
||||
MS_StripFileExt(ObjectFileName);
|
||||
MS_SuggestFileExt(ObjectFileName, ".o");
|
||||
}
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// DisplayUsage
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
static void DisplayUsage(void)
|
||||
{
|
||||
puts("\nUsage: ACC [options] source[.acs] [object[.o]]\n");
|
||||
puts("-d[file] Output debugging information");
|
||||
puts("-h Create pcode compatible with Hexen and old ZDooms");
|
||||
exit(1);
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// OpenDebugFile
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
static void OpenDebugFile(char *name)
|
||||
{
|
||||
if((acs_DebugFile = fopen(name, "w")) == NULL)
|
||||
{
|
||||
ERR_Exit(ERR_CANT_OPEN_DBGFILE, NO, "File: \"%s\".", name);
|
||||
}
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// OptionExists
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
/*
|
||||
static boolean OptionExists(char *name)
|
||||
{
|
||||
int i;
|
||||
char *arg;
|
||||
|
||||
for(i = 1; i < ArgCount; i++)
|
||||
{
|
||||
arg = ArgVector[i];
|
||||
if(*arg == '-')
|
||||
{
|
||||
arg++;
|
||||
if(MS_StrCmp(name, arg) == 0)
|
||||
{
|
||||
return YES;
|
||||
}
|
||||
}
|
||||
}
|
||||
return NO;
|
||||
}
|
||||
*/
|
||||
186
acc.dsp
Normal file
186
acc.dsp
Normal file
|
|
@ -0,0 +1,186 @@
|
|||
# Microsoft Developer Studio Project File - Name="acc" - Package Owner=<4>
|
||||
# Microsoft Developer Studio Generated Build File, Format Version 6.00
|
||||
# ** DO NOT EDIT **
|
||||
|
||||
# TARGTYPE "Win32 (x86) Console Application" 0x0103
|
||||
|
||||
CFG=acc - Win32 Debug
|
||||
!MESSAGE This is not a valid makefile. To build this project using NMAKE,
|
||||
!MESSAGE use the Export Makefile command and run
|
||||
!MESSAGE
|
||||
!MESSAGE NMAKE /f "acc.mak".
|
||||
!MESSAGE
|
||||
!MESSAGE You can specify a configuration when running NMAKE
|
||||
!MESSAGE by defining the macro CFG on the command line. For example:
|
||||
!MESSAGE
|
||||
!MESSAGE NMAKE /f "acc.mak" CFG="acc - Win32 Debug"
|
||||
!MESSAGE
|
||||
!MESSAGE Possible choices for configuration are:
|
||||
!MESSAGE
|
||||
!MESSAGE "acc - Win32 Release" (based on "Win32 (x86) Console Application")
|
||||
!MESSAGE "acc - Win32 Debug" (based on "Win32 (x86) Console Application")
|
||||
!MESSAGE
|
||||
|
||||
# Begin Project
|
||||
# PROP AllowPerConfigDependencies 0
|
||||
# PROP Scc_ProjName "Perforce Project"
|
||||
# PROP Scc_LocalPath "."
|
||||
CPP=cl.exe
|
||||
RSC=rc.exe
|
||||
|
||||
!IF "$(CFG)" == "acc - Win32 Release"
|
||||
|
||||
# PROP BASE Use_MFC 0
|
||||
# PROP BASE Use_Debug_Libraries 0
|
||||
# PROP BASE Output_Dir "Release"
|
||||
# PROP BASE Intermediate_Dir "Release"
|
||||
# PROP BASE Target_Dir ""
|
||||
# PROP Use_MFC 0
|
||||
# PROP Use_Debug_Libraries 0
|
||||
# PROP Output_Dir "Release"
|
||||
# PROP Intermediate_Dir "Release"
|
||||
# PROP Ignore_Export_Lib 0
|
||||
# PROP Target_Dir ""
|
||||
# ADD BASE CPP /nologo /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /c
|
||||
# ADD CPP /nologo /MD /W3 /GX /O1 /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /c
|
||||
# ADD BASE RSC /l 0x409 /d "NDEBUG"
|
||||
# ADD RSC /l 0x409 /d "NDEBUG"
|
||||
BSC32=bscmake.exe
|
||||
# ADD BASE BSC32 /nologo
|
||||
# ADD BSC32 /nologo
|
||||
LINK32=link.exe
|
||||
# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /machine:I386
|
||||
# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /debug /machine:I386 /opt:nowin98
|
||||
# SUBTRACT LINK32 /pdb:none
|
||||
|
||||
!ELSEIF "$(CFG)" == "acc - Win32 Debug"
|
||||
|
||||
# PROP BASE Use_MFC 0
|
||||
# PROP BASE Use_Debug_Libraries 1
|
||||
# PROP BASE Output_Dir "Debug"
|
||||
# PROP BASE Intermediate_Dir "Debug"
|
||||
# PROP BASE Target_Dir ""
|
||||
# PROP Use_MFC 0
|
||||
# PROP Use_Debug_Libraries 1
|
||||
# PROP Output_Dir "Debug"
|
||||
# PROP Intermediate_Dir "Debug"
|
||||
# PROP Target_Dir ""
|
||||
# ADD BASE CPP /nologo /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /GZ /c
|
||||
# ADD CPP /nologo /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /GZ /c
|
||||
# ADD BASE RSC /l 0x409 /d "_DEBUG"
|
||||
# ADD RSC /l 0x409 /d "_DEBUG"
|
||||
BSC32=bscmake.exe
|
||||
# ADD BASE BSC32 /nologo
|
||||
# ADD BSC32 /nologo
|
||||
LINK32=link.exe
|
||||
# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /debug /machine:I386 /pdbtype:sept
|
||||
# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /debug /machine:I386 /pdbtype:sept
|
||||
|
||||
!ENDIF
|
||||
|
||||
# Begin Target
|
||||
|
||||
# Name "acc - Win32 Release"
|
||||
# Name "acc - Win32 Debug"
|
||||
# Begin Group "Source Files"
|
||||
|
||||
# PROP Default_Filter "cpp;c;cxx;rc;def;r;odl;idl;hpj;bat"
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=.\Acc.c
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=.\Error.c
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=.\Misc.c
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=.\Parse.c
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=.\Pcode.c
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=.\Strlist.c
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=.\Symbol.c
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=.\Token.c
|
||||
# End Source File
|
||||
# End Group
|
||||
# Begin Group "Header Files"
|
||||
|
||||
# PROP Default_Filter "h;hpp;hxx;hm;inl"
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=.\Common.h
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=.\Error.h
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=.\Misc.h
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=.\Parse.h
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=.\Pcode.h
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=.\Strlist.h
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=.\Symbol.h
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=.\Token.h
|
||||
# End Source File
|
||||
# End Group
|
||||
# Begin Group "ACS Headers"
|
||||
|
||||
# PROP Default_Filter "acs"
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=.\zcommon.acs
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=.\zdefs.acs
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=.\zspecial.acs
|
||||
# End Source File
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=.\zwvars.acs
|
||||
# End Source File
|
||||
# End Group
|
||||
# Begin Group "Resource Files"
|
||||
|
||||
# PROP Default_Filter "ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe"
|
||||
# End Group
|
||||
# Begin Source File
|
||||
|
||||
SOURCE=.\Makefile
|
||||
# End Source File
|
||||
# End Target
|
||||
# End Project
|
||||
33
acc.dsw
Normal file
33
acc.dsw
Normal file
|
|
@ -0,0 +1,33 @@
|
|||
Microsoft Developer Studio Workspace File, Format Version 6.00
|
||||
# WARNING: DO NOT EDIT OR DELETE THIS WORKSPACE FILE!
|
||||
|
||||
###############################################################################
|
||||
|
||||
Project: "acc"=.\acc.dsp - Package Owner=<4>
|
||||
|
||||
Package=<5>
|
||||
{{{
|
||||
begin source code control
|
||||
Perforce Project
|
||||
.
|
||||
end source code control
|
||||
}}}
|
||||
|
||||
Package=<4>
|
||||
{{{
|
||||
}}}
|
||||
|
||||
###############################################################################
|
||||
|
||||
Global:
|
||||
|
||||
Package=<5>
|
||||
{{{
|
||||
}}}
|
||||
|
||||
Package=<3>
|
||||
{{{
|
||||
}}}
|
||||
|
||||
###############################################################################
|
||||
|
||||
110
common.h
Normal file
110
common.h
Normal file
|
|
@ -0,0 +1,110 @@
|
|||
|
||||
//**************************************************************************
|
||||
//**
|
||||
//** common.h
|
||||
//**
|
||||
//**************************************************************************
|
||||
|
||||
#ifndef __COMMON_H__
|
||||
#define __COMMON_H__
|
||||
|
||||
// HEADER FILES ------------------------------------------------------------
|
||||
|
||||
// MACROS ------------------------------------------------------------------
|
||||
|
||||
#define ARRAY_SIZE(a) (sizeof(a)/sizeof(*(a)))
|
||||
#ifndef TRUE
|
||||
#define TRUE 1
|
||||
#endif
|
||||
#ifndef FALSE
|
||||
#define FALSE 0
|
||||
#endif
|
||||
#ifndef YES
|
||||
#define YES 1
|
||||
#endif
|
||||
#ifndef NO
|
||||
#define NO 0
|
||||
#endif
|
||||
// Increased limits - Ty 03jan2000
|
||||
// 32 is okay
|
||||
#define MAX_IDENTIFIER_LENGTH 32
|
||||
// 256 long quoted string is okay
|
||||
#define MAX_QUOTED_LENGTH 256
|
||||
// 512 max file name is okay in DOS/Win
|
||||
#define MAX_FILE_NAME_LENGTH 512
|
||||
// Was 64
|
||||
#define MAX_SCRIPT_COUNT 1000
|
||||
// Was 32
|
||||
#define MAX_MAP_VARIABLES 128
|
||||
// Left alone--there's something in the docs about this...
|
||||
// [RH] Bumped up to 20 for fun.
|
||||
#define MAX_SCRIPT_VARIABLES 20
|
||||
// Was 64
|
||||
#define MAX_WORLD_VARIABLES 256
|
||||
// [RH] New
|
||||
#define MAX_GLOBAL_VARIABLES 64
|
||||
// Was 128
|
||||
#define MAX_STRINGS 32768
|
||||
// Don't know what this is
|
||||
#define DEFAULT_OBJECT_SIZE 65536
|
||||
// Added Ty 07Jan2000 for error details
|
||||
#define MAX_STATEMENT_LENGTH 4096
|
||||
|
||||
#define MAX_LANGUAGES 256
|
||||
|
||||
#define MAX_FUNCTION_COUNT 256
|
||||
|
||||
#define MAX_IMPORTS 256
|
||||
|
||||
// Maximum number of translations that can be used
|
||||
#define MAX_TRANSLATIONS 32
|
||||
|
||||
enum
|
||||
{
|
||||
STRLIST_PICS,
|
||||
STRLIST_FUNCTIONS,
|
||||
STRLIST_MAPVARS,
|
||||
|
||||
NUM_STRLISTS
|
||||
};
|
||||
|
||||
// These are just defs and have not been messed with
|
||||
#define ASCII_SPACE 32
|
||||
#define ASCII_QUOTE 34
|
||||
#define ASCII_UNDERSCORE 95
|
||||
#define EOF_CHARACTER 127
|
||||
#ifdef __NeXT__
|
||||
#define DIRECTORY_DELIMITER "/"
|
||||
#define DIRECTORY_DELIMITER_CHAR ('/')
|
||||
#else
|
||||
#define DIRECTORY_DELIMITER "\\"
|
||||
#define DIRECTORY_DELIMITER_CHAR ('\\')
|
||||
#endif
|
||||
|
||||
|
||||
|
||||
#define MAKE4CC(a,b,c,d) ((a)|((b)<<8)|((c)<<16)|((d)<<24))
|
||||
|
||||
// TYPES -------------------------------------------------------------------
|
||||
|
||||
typedef unsigned long boolean;
|
||||
typedef unsigned char byte;
|
||||
typedef signed char S_BYTE;
|
||||
typedef unsigned char U_BYTE;
|
||||
typedef signed short S_WORD;
|
||||
typedef unsigned short U_WORD;
|
||||
typedef signed long S_LONG;
|
||||
typedef unsigned long U_LONG;
|
||||
|
||||
enum ImportModes
|
||||
{
|
||||
IMPORT_None,
|
||||
IMPORT_Importing,
|
||||
IMPORT_Exporting
|
||||
};
|
||||
|
||||
// PUBLIC FUNCTION PROTOTYPES ----------------------------------------------
|
||||
|
||||
// PUBLIC DATA DECLARATIONS ------------------------------------------------
|
||||
|
||||
#endif
|
||||
418
error.c
Normal file
418
error.c
Normal file
|
|
@ -0,0 +1,418 @@
|
|||
|
||||
//**************************************************************************
|
||||
//**
|
||||
//** error.c
|
||||
//**
|
||||
//**************************************************************************
|
||||
|
||||
// HEADER FILES ------------------------------------------------------------
|
||||
|
||||
#include <stdio.h>
|
||||
#include <stdlib.h>
|
||||
#include <stdarg.h>
|
||||
#include <string.h>
|
||||
#include "common.h"
|
||||
#include "error.h"
|
||||
#include "token.h"
|
||||
#include "misc.h"
|
||||
|
||||
// MACROS ------------------------------------------------------------------
|
||||
|
||||
#define ERROR_FILE_NAME "acs.err"
|
||||
|
||||
// TYPES -------------------------------------------------------------------
|
||||
|
||||
typedef enum
|
||||
{
|
||||
ERRINFO_GCC,
|
||||
ERRINFO_VCC
|
||||
} errorInfo_e;
|
||||
|
||||
// EXTERNAL FUNCTION PROTOTYPES --------------------------------------------
|
||||
|
||||
// PUBLIC FUNCTION PROTOTYPES ----------------------------------------------
|
||||
|
||||
// PRIVATE FUNCTION PROTOTYPES ---------------------------------------------
|
||||
|
||||
static char *ErrorText(error_t error);
|
||||
static char *ErrorFileName(void);
|
||||
static void eprintf(const char *fmt, ...);
|
||||
static void veprintf(const char *fmt, va_list args);
|
||||
|
||||
// EXTERNAL DATA DECLARATIONS ----------------------------------------------
|
||||
|
||||
extern char acs_SourceFileName[MAX_FILE_NAME_LENGTH];
|
||||
|
||||
// PUBLIC DATA DEFINITIONS -------------------------------------------------
|
||||
|
||||
// PRIVATE DATA DEFINITIONS ------------------------------------------------
|
||||
|
||||
static struct
|
||||
{
|
||||
error_t number;
|
||||
char *name;
|
||||
} ErrorNames[] =
|
||||
{
|
||||
{ ERR_MISSING_SEMICOLON, "Missing semicolon." },
|
||||
{ ERR_MISSING_LPAREN, "Missing '('." },
|
||||
{ ERR_MISSING_RPAREN, "Missing ')'." },
|
||||
{ ERR_MISSING_LBRACE, "Missing '{'." },
|
||||
{ ERR_MISSING_SCRIPT_NUMBER, "Missing script number." },
|
||||
{ ERR_IDENTIFIER_TOO_LONG, "Identifier too long." },
|
||||
{ ERR_STRING_TOO_LONG, "String too long." },
|
||||
{ ERR_FILE_NAME_TOO_LONG, "File name too long.\nFile: \"%s\"" },
|
||||
{ ERR_BAD_CHARACTER, "Bad character in script text." },
|
||||
{ ERR_BAD_CHARACTER_CONSTANT, "Bad character constant in script text." },
|
||||
{ ERR_ALLOC_PCODE_BUFFER, "Failed to allocate PCODE buffer." },
|
||||
{ ERR_PCODE_BUFFER_OVERFLOW, "PCODE buffer overflow." },
|
||||
{ ERR_TOO_MANY_SCRIPTS, "Too many scripts." },
|
||||
{ ERR_TOO_MANY_FUNCTIONS, "Too many functions." },
|
||||
{ ERR_SAVE_OBJECT_FAILED, "Couldn't save object file." },
|
||||
{ ERR_MISSING_LPAREN_SCR, "Missing '(' in script definition." },
|
||||
{ ERR_INVALID_IDENTIFIER, "Invalid identifier." },
|
||||
{ ERR_REDEFINED_IDENTIFIER, "%s : Redefined identifier." },
|
||||
{ ERR_MISSING_COMMA, "Missing comma." },
|
||||
{ ERR_BAD_VAR_TYPE, "Invalid variable type." },
|
||||
{ ERR_BAD_RETURN_TYPE, "Invalid return type." },
|
||||
{ ERR_TOO_MANY_SCRIPT_ARGS, "Too many script arguments." },
|
||||
{ ERR_MISSING_LBRACE_SCR, "Missing opening '{' in script definition." },
|
||||
{ ERR_MISSING_RBRACE_SCR, "Missing closing '}' in script definition." },
|
||||
{ ERR_TOO_MANY_MAP_VARS, "Too many map variables." },
|
||||
{ ERR_TOO_MANY_SCRIPT_VARS, "Too many script variables." },
|
||||
{ ERR_TOO_MANY_FUNCTION_VARS, "Too many function variables." },
|
||||
{ ERR_MISSING_WVAR_INDEX, "Missing index in world variable declaration." },
|
||||
{ ERR_MISSING_GVAR_INDEX, "Missing index in global variable declaration." },
|
||||
{ ERR_BAD_WVAR_INDEX, "World variable index out of range." },
|
||||
{ ERR_MISSING_WVAR_COLON, "Missing colon in world variable declaration." },
|
||||
{ ERR_MISSING_GVAR_COLON, "Missing colon in global variable declaration." },
|
||||
{ ERR_MISSING_SPEC_VAL, "Missing value in special declaration." },
|
||||
{ ERR_MISSING_SPEC_COLON, "Missing colon in special declaration." },
|
||||
{ ERR_MISSING_SPEC_ARGC, "Missing argument count in special declaration." },
|
||||
{ ERR_CANT_READ_FILE, "Couldn't read file.\nFile: \"%s\"" },
|
||||
{ ERR_CANT_OPEN_FILE, "Couldn't open file.\nFile: \"%s\"" },
|
||||
{ ERR_CANT_OPEN_DBGFILE, "Couldn't open debug file." },
|
||||
{ ERR_INVALID_DIRECTIVE, "Invalid directive." },
|
||||
{ ERR_BAD_DEFINE, "Non-numeric constant found in #define." },
|
||||
{ ERR_INCL_NESTING_TOO_DEEP, "Include nesting too deep.\nUnable to include file \"%s\"." },
|
||||
{ ERR_STRING_LIT_NOT_FOUND, "String literal not found." },
|
||||
{ ERR_INVALID_DECLARATOR, "Invalid declarator." },
|
||||
{ ERR_BAD_LSPEC_ARG_COUNT, "Incorrect number of special arguments." },
|
||||
{ ERR_BAD_ARG_COUNT, "Incorrect number of arguments." },
|
||||
{ ERR_UNKNOWN_IDENTIFIER, "%s : Identifier has not been declared." },
|
||||
{ ERR_MISSING_COLON, "Missing colon." },
|
||||
{ ERR_BAD_EXPR, "Syntax error in expression." },
|
||||
{ ERR_BAD_CONST_EXPR, "Syntax error in constant expression." },
|
||||
{ ERR_NO_DIRECT_VER, "Internal function has no direct version." },
|
||||
{ ERR_ILLEGAL_EXPR_IDENT, "%s : Illegal identifier in expression." },
|
||||
{ ERR_EXPR_FUNC_NO_RET_VAL, "Function call in expression has no return value." },
|
||||
{ ERR_MISSING_ASSIGN_OP, "Missing assignment operator." },
|
||||
{ ERR_INCDEC_OP_ON_NON_VAR, "'++' or '--' used on a non-variable." },
|
||||
{ ERR_MISSING_RBRACE, "Missing '}' at end of compound statement." },
|
||||
{ ERR_INVALID_STATEMENT, "Invalid statement." },
|
||||
{ ERR_BAD_DO_STATEMENT, "Do statement not followed by 'while' or 'until'." },
|
||||
{ ERR_BAD_SCRIPT_DECL, "Bad script declaration." },
|
||||
{ ERR_CASE_OVERFLOW, "Internal Error: Case stack overflow." },
|
||||
{ ERR_BREAK_OVERFLOW, "Internal Error: Break stack overflow." },
|
||||
{ ERR_CONTINUE_OVERFLOW, "Internal Error: Continue stack overflow." },
|
||||
{ ERR_STATEMENT_OVERFLOW, "Internal Error: Statement overflow." },
|
||||
{ ERR_MISPLACED_BREAK, "Misplaced BREAK statement." },
|
||||
{ ERR_MISPLACED_CONTINUE, "Misplaced CONTINUE statement." },
|
||||
{ ERR_CASE_NOT_IN_SWITCH, "CASE must appear in switch statement." },
|
||||
{ ERR_DEFAULT_NOT_IN_SWITCH, "DEFAULT must appear in switch statement." },
|
||||
{ ERR_MULTIPLE_DEFAULT, "Only 1 DEFAULT per switch allowed." },
|
||||
{ ERR_EXPR_STACK_OVERFLOW, "Expression stack overflow." },
|
||||
{ ERR_EXPR_STACK_EMPTY, "Tried to POP empty expression stack." },
|
||||
{ ERR_UNKNOWN_CONST_EXPR_PCD, "Unknown PCD in constant expression." },
|
||||
{ ERR_BAD_RADIX_CONSTANT, "Radix out of range in integer constant." },
|
||||
{ ERR_BAD_ASSIGNMENT, "Syntax error in multiple assignment statement." },
|
||||
{ ERR_OUT_OF_MEMORY, "Out of memory." },
|
||||
{ ERR_TOO_MANY_STRINGS, "Too many strings. Current max is %d" },
|
||||
{ ERR_UNKNOWN_PRTYPE, "Unknown cast type in print statement." },
|
||||
{ ERR_SCRIPT_OUT_OF_RANGE, "Script number must be between 1 and 999." },
|
||||
{ ERR_MISSING_PARAM, "Missing required argument." },
|
||||
{ ERR_SCRIPT_ALREADY_DEFINED, "Script already has a body." },
|
||||
{ ERR_FUNCTION_ALREADY_DEFINED, "Function already has a body." },
|
||||
{ ERR_PARM_MUST_BE_VAR, "Parameter must be a variable." },
|
||||
{ ERR_LANGCODE_SIZE, "Language code must be 2 or 3 characters long." },
|
||||
{ ERR_MISSING_LBRACE_LOC, "Missing opening '{' in localization definition." },
|
||||
{ ERR_MISSING_RBRACE_LOC, "Missing closing '}' in localization definition." },
|
||||
{ ERR_MISSING_LOCALIZED, "Missing localized string." },
|
||||
{ ERR_BAD_LANGCODE, "Language code must be all letters." },
|
||||
{ ERR_MISSING_LANGCODE, "Missing language code in localization definiton." },
|
||||
{ ERR_MISSING_FONT_NAME, "Missing font name." },
|
||||
{ ERR_MISSING_LBRACE_FONTS, "Missing opening '{' in font list." },
|
||||
{ ERR_MISSING_RBRACE_FONTS, "Missing closing '}' in font list." },
|
||||
{ ERR_NOCOMPACT_NOT_HERE, "#nocompact must appear before any scripts." },
|
||||
{ ERR_MISSING_ASSIGN, "Missing '='." },
|
||||
{ ERR_PREVIOUS_NOT_VOID, "Previous use of function expected a return value." },
|
||||
{ ERR_MUST_RETURN_A_VALUE, "Function must return a value." },
|
||||
{ ERR_MUST_NOT_RETURN_A_VALUE, "Void functions cannot return a value." },
|
||||
{ ERR_SUSPEND_IN_FUNCTION, "Suspend cannot be used inside a function." },
|
||||
{ ERR_TERMINATE_IN_FUNCTION, "Terminate cannot be used inside a function." },
|
||||
{ ERR_RESTART_IN_FUNCTION, "Restart cannot be used inside a function." },
|
||||
{ ERR_RETURN_OUTSIDE_FUNCTION, "Return can only be used inside a function." },
|
||||
{ ERR_FUNC_ARGUMENT_COUNT, "Function %s should have %d argument%s." },
|
||||
{ ERR_EOF, "Unexpected end of file." },
|
||||
{ ERR_UNDEFINED_FUNC, "Function %s is used but not defined." },
|
||||
{ ERR_TOO_MANY_ARRAY_DIMS, "Too many array dimensions." },
|
||||
{ ERR_MISSING_LBRACKET, "Missing '['." },
|
||||
{ ERR_MISSING_RBRACKET, "Missing ']'." },
|
||||
{ ERR_ZERO_DIMENSION, "Arrays cannot have a dimension of zero." },
|
||||
{ ERR_TOO_MANY_DIM_USED, "%s only has %d dimensions." },
|
||||
{ ERR_ARRAY_MAPVAR_ONLY, "Only map variables can be arrays." },
|
||||
{ ERR_NOT_AN_ARRAY, "%s is not an array." },
|
||||
{ ERR_MISSING_LBRACE_ARR, "Missing opening '{' in array initializer." },
|
||||
{ ERR_MISSING_RBRACE_ARR, "Missing closing '}' in array initializer." },
|
||||
{ ERR_LATENT_IN_FUNC, "Latent functions cannot be used inside functions." },
|
||||
{ ERR_LOCAL_VAR_SHADOWED, "A global identifier already has this name." },
|
||||
{ ERR_MULTIPLE_IMPORTS, "You can only #import one file." },
|
||||
{ ERR_IMPORT_IN_EXPORT, "You cannot #import from inside an imported file." },
|
||||
{ ERR_EXPORTER_NOT_FLAGGED, "A file that you #import must have an #imported line." },
|
||||
{ ERR_TOO_MANY_IMPORTS, "Too many files imported." },
|
||||
{ ERR_NO_NEED_ARRAY_SIZE, "Only map arrays need a size." },
|
||||
{ ERR_NO_MULTIDIMENSIONS, "Only map arrays can have more than one dimension." },
|
||||
{ ERR_NEED_ARRAY_SIZE, "Missing array size." },
|
||||
{ ERR_DISCONNECT_NEEDS_1_ARG, "Disconnect scripts must have 1 argument." },
|
||||
{ ERR_UNCLOSED_WITH_ARGS, "Most special scripts must not have arguments." },
|
||||
{ ERR_NOT_A_CHAR_ARRAY, "%s has %d dimensions. Use %d subscripts to get a char array." },
|
||||
{ ERR_NONE, NULL }
|
||||
};
|
||||
|
||||
static FILE *ErrorFile;
|
||||
static int ErrorCount;
|
||||
static errorInfo_e ErrorFormat;
|
||||
static char *ErrorSourceName;
|
||||
static int ErrorSourceLine;
|
||||
|
||||
// CODE --------------------------------------------------------------------
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// ERR_ErrorAt
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
void ERR_ErrorAt(char *source, int line)
|
||||
{
|
||||
ErrorSourceName = source;
|
||||
ErrorSourceLine = line;
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// ERR_Error
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
void ERR_Error(error_t error, boolean info, ...)
|
||||
{
|
||||
va_list args;
|
||||
va_start(args, info);
|
||||
ERR_ErrorV(error, info, args);
|
||||
va_end(args);
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// ERR_Exit
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
void ERR_Exit(error_t error, boolean info, ...)
|
||||
{
|
||||
va_list args;
|
||||
va_start(args, info);
|
||||
ERR_ErrorV(error, info, args);
|
||||
va_end(args);
|
||||
ERR_Finish();
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// ERR_Finish
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
void ERR_Finish(void)
|
||||
{
|
||||
if(ErrorFile)
|
||||
{
|
||||
fclose(ErrorFile);
|
||||
ErrorFile = NULL;
|
||||
}
|
||||
if(ErrorCount)
|
||||
{
|
||||
exit(1);
|
||||
}
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// ShowError
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
void ERR_ErrorV(error_t error, boolean info, va_list args)
|
||||
{
|
||||
char *text;
|
||||
boolean showLine = NO;
|
||||
static boolean showedInfo = NO;
|
||||
|
||||
if(!ErrorFile)
|
||||
{
|
||||
ErrorFile = fopen(ErrorFileName(), "w");
|
||||
}
|
||||
if(ErrorCount == 0)
|
||||
{
|
||||
fprintf(stderr, "\n**** ERROR ****\n");
|
||||
}
|
||||
else if(ErrorCount == 100)
|
||||
{
|
||||
eprintf("More than 100 errors. Can't continue.\n");
|
||||
ERR_Finish();
|
||||
}
|
||||
ErrorCount++;
|
||||
if(info == YES)
|
||||
{
|
||||
char *source;
|
||||
int line;
|
||||
|
||||
if(ErrorSourceName)
|
||||
{
|
||||
source = ErrorSourceName;
|
||||
line = ErrorSourceLine;
|
||||
ErrorSourceName = NULL;
|
||||
}
|
||||
else
|
||||
{
|
||||
source = tk_SourceName;
|
||||
line = tk_Line;
|
||||
showLine = YES;
|
||||
}
|
||||
if(showedInfo == NO)
|
||||
{ // Output info compatible with older ACCs
|
||||
// for editors that expect it.
|
||||
showedInfo = YES;
|
||||
eprintf("Line %d in file \"%s\" ...\n", line, source);
|
||||
}
|
||||
if(ErrorFormat == ERRINFO_GCC)
|
||||
{
|
||||
eprintf("%s:%d: ", source, line);
|
||||
}
|
||||
else
|
||||
{
|
||||
eprintf("%s(%d) : ", source, line);
|
||||
if(error != ERR_NONE)
|
||||
{
|
||||
eprintf("error %04d: ", error);
|
||||
}
|
||||
}
|
||||
}
|
||||
if(error != ERR_NONE)
|
||||
{
|
||||
text = ErrorText(error);
|
||||
if(text != NULL)
|
||||
{
|
||||
veprintf(text, args);
|
||||
}
|
||||
eprintf("\n");
|
||||
if(showLine)
|
||||
{
|
||||
// deal with master source line and position indicator - Ty 07jan2000
|
||||
MasterSourceLine[MasterSourcePos] = '\0'; // pre-incremented already
|
||||
eprintf("> %s\n", MasterSourceLine); // the string
|
||||
eprintf(">%*s\n", MasterSourcePos, "^"); // pointer to error
|
||||
}
|
||||
}
|
||||
#if 0
|
||||
else
|
||||
{
|
||||
va_list args2;
|
||||
va_start(va_arg(args,char*), args2);
|
||||
veprintf(va_arg(args,char*), args2);
|
||||
va_end(args2);
|
||||
}
|
||||
#endif
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// ERR_RemoveErrorFile
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
void ERR_RemoveErrorFile(void)
|
||||
{
|
||||
remove(ErrorFileName());
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// ERR_ErrorFileName
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
static char *ErrorFileName(void)
|
||||
{
|
||||
static char errFileName[MAX_FILE_NAME_LENGTH];
|
||||
|
||||
strcpy(errFileName, acs_SourceFileName);
|
||||
if(MS_StripFilename(errFileName) == NO)
|
||||
{
|
||||
strcpy(errFileName, ERROR_FILE_NAME);
|
||||
}
|
||||
else
|
||||
{
|
||||
strcat(errFileName, DIRECTORY_DELIMITER ERROR_FILE_NAME);
|
||||
}
|
||||
return errFileName;
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// ErrorText
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
static char *ErrorText(error_t error)
|
||||
{
|
||||
int i;
|
||||
|
||||
for(i = 0; ErrorNames[i].number != ERR_NONE; i++)
|
||||
{
|
||||
if(error == ErrorNames[i].number)
|
||||
{
|
||||
return ErrorNames[i].name;
|
||||
}
|
||||
}
|
||||
return NULL;
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// eprintf
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
static void eprintf(const char *fmt, ...)
|
||||
{
|
||||
va_list args;
|
||||
va_start(args, fmt);
|
||||
veprintf(fmt, args);
|
||||
va_end(args);
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// veprintf
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
static void veprintf(const char *fmt, va_list args)
|
||||
{
|
||||
vfprintf(stderr, fmt, args);
|
||||
if(ErrorFile)
|
||||
{
|
||||
vfprintf(ErrorFile, fmt, args);
|
||||
}
|
||||
}
|
||||
159
error.h
Normal file
159
error.h
Normal file
|
|
@ -0,0 +1,159 @@
|
|||
|
||||
//**************************************************************************
|
||||
//**
|
||||
//** error.h
|
||||
//**
|
||||
//**************************************************************************
|
||||
|
||||
#ifndef __ERROR_H__
|
||||
#define __ERROR_H__
|
||||
|
||||
// HEADER FILES ------------------------------------------------------------
|
||||
|
||||
#include <stdarg.h>
|
||||
#include "common.h"
|
||||
|
||||
// MACROS ------------------------------------------------------------------
|
||||
|
||||
// TYPES -------------------------------------------------------------------
|
||||
|
||||
typedef enum
|
||||
{
|
||||
ERR_NONE = 0,
|
||||
ERR_NO_SYMBOL_MEM = 10,
|
||||
ERR_IDENTIFIER_TOO_LONG,
|
||||
ERR_STRING_TOO_LONG,
|
||||
ERR_FILE_NAME_TOO_LONG,
|
||||
ERR_MISSING_LPAREN,
|
||||
ERR_MISSING_RPAREN,
|
||||
ERR_MISSING_SEMICOLON,
|
||||
ERR_MISSING_SCRIPT_NUMBER,
|
||||
ERR_ALLOC_PCODE_BUFFER,
|
||||
ERR_PCODE_BUFFER_OVERFLOW,
|
||||
ERR_TOO_MANY_SCRIPTS,
|
||||
ERR_TOO_MANY_FUNCTIONS,
|
||||
ERR_SAVE_OBJECT_FAILED,
|
||||
ERR_MISSING_LPAREN_SCR,
|
||||
ERR_INVALID_IDENTIFIER,
|
||||
ERR_REDEFINED_IDENTIFIER,
|
||||
ERR_MISSING_COMMA,
|
||||
ERR_BAD_VAR_TYPE,
|
||||
ERR_BAD_RETURN_TYPE,
|
||||
ERR_TOO_MANY_SCRIPT_ARGS,
|
||||
ERR_MISSING_LBRACE_SCR,
|
||||
ERR_MISSING_RBRACE_SCR,
|
||||
ERR_TOO_MANY_MAP_VARS,
|
||||
ERR_MISSING_WVAR_INDEX,
|
||||
ERR_MISSING_GVAR_INDEX,
|
||||
ERR_BAD_WVAR_INDEX,
|
||||
ERR_MISSING_WVAR_COLON,
|
||||
ERR_MISSING_GVAR_COLON,
|
||||
ERR_MISSING_SPEC_VAL,
|
||||
ERR_MISSING_SPEC_COLON,
|
||||
ERR_MISSING_SPEC_ARGC,
|
||||
ERR_CANT_READ_FILE,
|
||||
ERR_CANT_OPEN_FILE,
|
||||
ERR_CANT_OPEN_DBGFILE,
|
||||
ERR_INVALID_DIRECTIVE,
|
||||
ERR_BAD_DEFINE,
|
||||
ERR_INCL_NESTING_TOO_DEEP,
|
||||
ERR_STRING_LIT_NOT_FOUND,
|
||||
ERR_TOO_MANY_SCRIPT_VARS,
|
||||
ERR_TOO_MANY_FUNCTION_VARS,
|
||||
ERR_INVALID_DECLARATOR,
|
||||
ERR_BAD_LSPEC_ARG_COUNT,
|
||||
ERR_BAD_ARG_COUNT,
|
||||
ERR_UNKNOWN_IDENTIFIER,
|
||||
ERR_MISSING_COLON,
|
||||
ERR_BAD_EXPR,
|
||||
ERR_BAD_CONST_EXPR,
|
||||
ERR_NO_DIRECT_VER,
|
||||
ERR_ILLEGAL_EXPR_IDENT,
|
||||
ERR_EXPR_FUNC_NO_RET_VAL,
|
||||
ERR_MISSING_ASSIGN_OP,
|
||||
ERR_INCDEC_OP_ON_NON_VAR,
|
||||
ERR_MISSING_RBRACE,
|
||||
ERR_INVALID_STATEMENT,
|
||||
ERR_BAD_DO_STATEMENT,
|
||||
ERR_BAD_SCRIPT_DECL,
|
||||
ERR_CASE_OVERFLOW,
|
||||
ERR_BREAK_OVERFLOW,
|
||||
ERR_CONTINUE_OVERFLOW,
|
||||
ERR_STATEMENT_OVERFLOW,
|
||||
ERR_MISPLACED_BREAK,
|
||||
ERR_MISPLACED_CONTINUE,
|
||||
ERR_CASE_NOT_IN_SWITCH,
|
||||
ERR_DEFAULT_NOT_IN_SWITCH,
|
||||
ERR_MULTIPLE_DEFAULT,
|
||||
ERR_EXPR_STACK_OVERFLOW,
|
||||
ERR_EXPR_STACK_EMPTY,
|
||||
ERR_UNKNOWN_CONST_EXPR_PCD,
|
||||
ERR_BAD_RADIX_CONSTANT,
|
||||
ERR_BAD_ASSIGNMENT,
|
||||
ERR_OUT_OF_MEMORY,
|
||||
ERR_TOO_MANY_STRINGS,
|
||||
ERR_UNKNOWN_PRTYPE,
|
||||
ERR_BAD_CHARACTER,
|
||||
ERR_SCRIPT_OUT_OF_RANGE,
|
||||
ERR_MISSING_PARAM,
|
||||
ERR_SCRIPT_ALREADY_DEFINED,
|
||||
ERR_FUNCTION_ALREADY_DEFINED,
|
||||
ERR_PARM_MUST_BE_VAR,
|
||||
ERR_LANGCODE_SIZE,
|
||||
ERR_MISSING_LBRACE_LOC,
|
||||
ERR_MISSING_RBRACE_LOC,
|
||||
ERR_MISSING_LOCALIZED,
|
||||
ERR_BAD_LANGCODE,
|
||||
ERR_MISSING_LANGCODE,
|
||||
ERR_MISSING_FONT_NAME,
|
||||
ERR_MISSING_LBRACE_FONTS,
|
||||
ERR_MISSING_RBRACE_FONTS,
|
||||
ERR_NOCOMPACT_NOT_HERE,
|
||||
ERR_MISSING_ASSIGN,
|
||||
ERR_MUST_RETURN_A_VALUE,
|
||||
ERR_MUST_NOT_RETURN_A_VALUE,
|
||||
ERR_SUSPEND_IN_FUNCTION,
|
||||
ERR_TERMINATE_IN_FUNCTION,
|
||||
ERR_RESTART_IN_FUNCTION,
|
||||
ERR_RETURN_OUTSIDE_FUNCTION,
|
||||
ERR_PREVIOUS_NOT_VOID,
|
||||
ERR_MISSING_LBRACE,
|
||||
ERR_FUNC_ARGUMENT_COUNT,
|
||||
ERR_UNDEFINED_FUNC,
|
||||
ERR_TOO_MANY_ARRAY_DIMS,
|
||||
ERR_MISSING_LBRACKET,
|
||||
ERR_MISSING_RBRACKET,
|
||||
ERR_ZERO_DIMENSION,
|
||||
ERR_TOO_MANY_DIM_USED,
|
||||
ERR_EOF,
|
||||
ERR_ARRAY_MAPVAR_ONLY,
|
||||
ERR_NOT_AN_ARRAY,
|
||||
ERR_MISSING_LBRACE_ARR,
|
||||
ERR_MISSING_RBRACE_ARR,
|
||||
ERR_LATENT_IN_FUNC,
|
||||
ERR_LOCAL_VAR_SHADOWED,
|
||||
ERR_BAD_CHARACTER_CONSTANT,
|
||||
ERR_MULTIPLE_IMPORTS,
|
||||
ERR_IMPORT_IN_EXPORT,
|
||||
ERR_EXPORTER_NOT_FLAGGED,
|
||||
ERR_TOO_MANY_IMPORTS,
|
||||
ERR_NO_NEED_ARRAY_SIZE,
|
||||
ERR_NO_MULTIDIMENSIONS,
|
||||
ERR_NEED_ARRAY_SIZE,
|
||||
ERR_DISCONNECT_NEEDS_1_ARG,
|
||||
ERR_UNCLOSED_WITH_ARGS,
|
||||
ERR_NOT_A_CHAR_ARRAY
|
||||
} error_t;
|
||||
|
||||
// PUBLIC FUNCTION PROTOTYPES ----------------------------------------------
|
||||
|
||||
void ERR_ErrorAt(char *sourceName, int sourceLine);
|
||||
void ERR_Error(error_t error, boolean info, ...);
|
||||
void ERR_ErrorV(error_t error, boolean info, va_list args);
|
||||
void ERR_Finish(void);
|
||||
void ERR_Exit(error_t error, boolean info, ...);
|
||||
void ERR_RemoveErrorFile(void);
|
||||
|
||||
// PUBLIC DATA DECLARATIONS ------------------------------------------------
|
||||
|
||||
#endif
|
||||
355
misc.c
Normal file
355
misc.c
Normal file
|
|
@ -0,0 +1,355 @@
|
|||
|
||||
//**************************************************************************
|
||||
//**
|
||||
//** misc.c
|
||||
//**
|
||||
//**************************************************************************
|
||||
|
||||
// HEADER FILES ------------------------------------------------------------
|
||||
|
||||
#ifdef __NeXT__
|
||||
#include <libc.h>
|
||||
#else
|
||||
#include <fcntl.h>
|
||||
#include <stdlib.h>
|
||||
#ifndef unix
|
||||
#include <io.h>
|
||||
#endif
|
||||
#endif
|
||||
#ifdef __GNUC__
|
||||
#include <sys/stat.h>
|
||||
#include <unistd.h>
|
||||
#endif
|
||||
#ifdef _WIN32
|
||||
#include <sys/stat.h>
|
||||
#include <sys/types.h>
|
||||
#endif
|
||||
#include <stdio.h>
|
||||
#include <stddef.h>
|
||||
#include <stdarg.h>
|
||||
#include <string.h>
|
||||
#include <ctype.h>
|
||||
#include "common.h"
|
||||
#include "misc.h"
|
||||
#include "error.h"
|
||||
|
||||
// MACROS ------------------------------------------------------------------
|
||||
|
||||
#ifndef O_BINARY
|
||||
#define O_BINARY 0
|
||||
#endif
|
||||
|
||||
// TYPES -------------------------------------------------------------------
|
||||
|
||||
// EXTERNAL FUNCTION PROTOTYPES --------------------------------------------
|
||||
|
||||
// PUBLIC FUNCTION PROTOTYPES ----------------------------------------------
|
||||
|
||||
// PRIVATE FUNCTION PROTOTYPES ---------------------------------------------
|
||||
|
||||
// EXTERNAL DATA DECLARATIONS ----------------------------------------------
|
||||
|
||||
extern boolean acs_BigEndianHost;
|
||||
extern boolean acs_VerboseMode;
|
||||
extern boolean acs_DebugMode;
|
||||
extern FILE *acs_DebugFile;
|
||||
|
||||
// PUBLIC DATA DEFINITIONS -------------------------------------------------
|
||||
|
||||
// PRIVATE DATA DEFINITIONS ------------------------------------------------
|
||||
|
||||
// CODE --------------------------------------------------------------------
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// MS_Alloc
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
void *MS_Alloc(size_t size, error_t error)
|
||||
{
|
||||
void *mem;
|
||||
|
||||
if((mem = malloc(size)) == NULL)
|
||||
{
|
||||
ERR_Exit(error, NO);
|
||||
}
|
||||
return mem;
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// MS_Realloc
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
void *MS_Realloc(void *base, size_t size, error_t error)
|
||||
{
|
||||
void *mem;
|
||||
|
||||
if((mem = realloc(base, size)) == NULL)
|
||||
{
|
||||
ERR_Exit(error, NO);
|
||||
}
|
||||
return mem;
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// MS_LittleUWORD
|
||||
//
|
||||
// Converts a host U_WORD (2 bytes) to little endian byte order.
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
U_WORD MS_LittleUWORD(U_WORD val)
|
||||
{
|
||||
if(acs_BigEndianHost == NO)
|
||||
{
|
||||
return val;
|
||||
}
|
||||
return ((val&255)<<8)+((val>>8)&255);
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// MS_LittleULONG
|
||||
//
|
||||
// Converts a host U_LONG (4 bytes) to little endian byte order.
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
U_LONG MS_LittleULONG(U_LONG val)
|
||||
{
|
||||
if(acs_BigEndianHost == NO)
|
||||
{
|
||||
return val;
|
||||
}
|
||||
return ((val&255)<<24)+(((val>>8)&255)<<16)+(((val>>16)&255)<<8)
|
||||
+((val>>24)&255);
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// MS_LoadFile
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
int MS_LoadFile(char *name, char **buffer)
|
||||
{
|
||||
int handle;
|
||||
int size;
|
||||
int count;
|
||||
char *addr;
|
||||
struct stat fileInfo;
|
||||
|
||||
if(strlen(name) >= MAX_FILE_NAME_LENGTH)
|
||||
{
|
||||
ERR_Exit(ERR_FILE_NAME_TOO_LONG, NO, name);
|
||||
}
|
||||
if((handle = open(name, O_RDONLY|O_BINARY, 0666)) == -1)
|
||||
{
|
||||
ERR_Exit(ERR_CANT_OPEN_FILE, NO, name);
|
||||
}
|
||||
if(fstat(handle, &fileInfo) == -1)
|
||||
{
|
||||
ERR_Exit(ERR_CANT_READ_FILE, NO, name);
|
||||
}
|
||||
size = fileInfo.st_size;
|
||||
if((addr = malloc(size)) == NULL)
|
||||
{
|
||||
ERR_Exit(ERR_NONE, NO, "Couldn't malloc %d bytes for "
|
||||
"file \"%s\".", size, name);
|
||||
}
|
||||
count = read(handle, addr, size);
|
||||
close(handle);
|
||||
if(count < size)
|
||||
{
|
||||
ERR_Exit(ERR_CANT_READ_FILE, NO, name);
|
||||
}
|
||||
*buffer = addr;
|
||||
return size;
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// MS_SaveFile
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
boolean MS_SaveFile(char *name, void *buffer, int length)
|
||||
{
|
||||
int handle;
|
||||
int count;
|
||||
|
||||
handle = open(name, O_WRONLY|O_CREAT|O_TRUNC|O_BINARY, 0666);
|
||||
if(handle == -1)
|
||||
{
|
||||
return FALSE;
|
||||
}
|
||||
count = write(handle, buffer, length);
|
||||
close(handle);
|
||||
if(count < length)
|
||||
{
|
||||
return FALSE;
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// MS_StrCmp
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
int MS_StrCmp(char *s1, char *s2)
|
||||
{
|
||||
for(; tolower(*s1) == tolower(*s2); s1++, s2++)
|
||||
{
|
||||
if(*s1 == '\0')
|
||||
{
|
||||
return 0;
|
||||
}
|
||||
}
|
||||
return tolower(*s1)-tolower(*s2);
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// MS_StrLwr
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
char *MS_StrLwr(char *string)
|
||||
{
|
||||
char *c;
|
||||
|
||||
c = string;
|
||||
while(*c)
|
||||
{
|
||||
*c = tolower(*c);
|
||||
c++;
|
||||
}
|
||||
return string;
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// MS_StrUpr
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
char *MS_StrUpr(char *string)
|
||||
{
|
||||
char *c;
|
||||
|
||||
c = string;
|
||||
while(*c)
|
||||
{
|
||||
*c = toupper(*c);
|
||||
c++;
|
||||
}
|
||||
return string;
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// MS_SuggestFileExt
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
void MS_SuggestFileExt(char *base, char *extension)
|
||||
{
|
||||
char *search;
|
||||
|
||||
search = base+strlen(base)-1;
|
||||
while(*search != ASCII_SLASH && *search != ASCII_BACKSLASH
|
||||
&& search != base)
|
||||
{
|
||||
if(*search-- == '.')
|
||||
{
|
||||
return;
|
||||
}
|
||||
}
|
||||
strcat(base, extension);
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// MS_StripFileExt
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
void MS_StripFileExt(char *name)
|
||||
{
|
||||
char *search;
|
||||
|
||||
search = name+strlen(name)-1;
|
||||
while(*search != ASCII_SLASH && *search != ASCII_BACKSLASH
|
||||
&& search != name)
|
||||
{
|
||||
if(*search == '.')
|
||||
{
|
||||
*search = '\0';
|
||||
return;
|
||||
}
|
||||
search--;
|
||||
}
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// MS_StripFilename
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
boolean MS_StripFilename(char *name)
|
||||
{
|
||||
char *c;
|
||||
|
||||
c = name+strlen(name);
|
||||
do
|
||||
{
|
||||
if(--c == name)
|
||||
{ // No directory delimiter
|
||||
return NO;
|
||||
}
|
||||
} while(*c != DIRECTORY_DELIMITER_CHAR);
|
||||
*c = 0;
|
||||
return YES;
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// MS_Message
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
void MS_Message(msg_t type, char *text, ...)
|
||||
{
|
||||
FILE *fp;
|
||||
va_list argPtr;
|
||||
|
||||
if(type == MSG_VERBOSE && acs_VerboseMode == NO)
|
||||
{
|
||||
return;
|
||||
}
|
||||
fp = stdout;
|
||||
if(type == MSG_DEBUG)
|
||||
{
|
||||
if(acs_DebugMode == NO)
|
||||
{
|
||||
return;
|
||||
}
|
||||
if(acs_DebugFile != NULL)
|
||||
{
|
||||
fp = acs_DebugFile;
|
||||
}
|
||||
}
|
||||
if(text)
|
||||
{
|
||||
va_start(argPtr, text);
|
||||
vfprintf(fp, text, argPtr);
|
||||
va_end(argPtr);
|
||||
}
|
||||
}
|
||||
48
misc.h
Normal file
48
misc.h
Normal file
|
|
@ -0,0 +1,48 @@
|
|||
|
||||
//**************************************************************************
|
||||
//**
|
||||
//** misc.h
|
||||
//**
|
||||
//**************************************************************************
|
||||
|
||||
#ifndef __MISC_H__
|
||||
#define __MISC_H__
|
||||
|
||||
// HEADER FILES ------------------------------------------------------------
|
||||
|
||||
#include <stddef.h>
|
||||
#include "error.h"
|
||||
|
||||
// MACROS ------------------------------------------------------------------
|
||||
|
||||
#define ASCII_SLASH 47
|
||||
#define ASCII_BACKSLASH 92
|
||||
|
||||
// TYPES -------------------------------------------------------------------
|
||||
|
||||
typedef enum
|
||||
{
|
||||
MSG_NORMAL,
|
||||
MSG_VERBOSE,
|
||||
MSG_DEBUG
|
||||
} msg_t;
|
||||
|
||||
// PUBLIC FUNCTION PROTOTYPES ----------------------------------------------
|
||||
|
||||
void *MS_Alloc(size_t size, error_t error);
|
||||
void *MS_Realloc(void *base, size_t size, error_t error);
|
||||
U_WORD MS_LittleUWORD(U_WORD val);
|
||||
U_LONG MS_LittleULONG(U_LONG val);
|
||||
int MS_LoadFile(char *name, char **buffer);
|
||||
boolean MS_SaveFile(char *name, void *buffer, int length);
|
||||
int MS_StrCmp(char *s1, char *s2);
|
||||
char *MS_StrLwr(char *string);
|
||||
char *MS_StrUpr(char *string);
|
||||
void MS_SuggestFileExt(char *base, char *extension);
|
||||
void MS_StripFileExt(char *name);
|
||||
boolean MS_StripFilename(char *path);
|
||||
void MS_Message(msg_t type, char *text, ...);
|
||||
|
||||
// PUBLIC DATA DECLARATIONS ------------------------------------------------
|
||||
|
||||
#endif
|
||||
41
parse.h
Normal file
41
parse.h
Normal file
|
|
@ -0,0 +1,41 @@
|
|||
|
||||
//**************************************************************************
|
||||
//**
|
||||
//** parse.h
|
||||
//**
|
||||
//**************************************************************************
|
||||
|
||||
#ifndef __PARSE_H__
|
||||
#define __PARSE_H__
|
||||
|
||||
// HEADER FILES ------------------------------------------------------------
|
||||
|
||||
// MACROS ------------------------------------------------------------------
|
||||
|
||||
// TYPES -------------------------------------------------------------------
|
||||
|
||||
struct ScriptTypes
|
||||
{
|
||||
const char *TypeName;
|
||||
int TypeBase;
|
||||
int TypeCount;
|
||||
};
|
||||
|
||||
// PUBLIC FUNCTION PROTOTYPES ----------------------------------------------
|
||||
|
||||
void PA_Parse(void);
|
||||
|
||||
// PUBLIC DATA DECLARATIONS ------------------------------------------------
|
||||
|
||||
extern int pa_ScriptCount;
|
||||
extern struct ScriptTypes *pa_TypedScriptCounts;
|
||||
extern int pa_MapVarCount;
|
||||
extern int pa_WorldVarCount;
|
||||
extern int pa_GlobalVarCount;
|
||||
extern int pa_WorldArrayCount;
|
||||
extern int pa_GlobalArrayCount;
|
||||
extern enum ImportModes ImportMode;
|
||||
extern boolean ExporterFlagged;
|
||||
extern boolean pa_ConstExprIsString;
|
||||
|
||||
#endif
|
||||
389
pcode.h
Normal file
389
pcode.h
Normal file
|
|
@ -0,0 +1,389 @@
|
|||
|
||||
//**************************************************************************
|
||||
//**
|
||||
//** pcode.h
|
||||
//**
|
||||
//**************************************************************************
|
||||
|
||||
#ifndef __PCODE_H__
|
||||
#define __PCODE_H__
|
||||
|
||||
// HEADER FILES ------------------------------------------------------------
|
||||
|
||||
#include <stddef.h>
|
||||
#include "common.h"
|
||||
|
||||
// MACROS ------------------------------------------------------------------
|
||||
|
||||
// Values added to script number to indicate its type
|
||||
enum
|
||||
{
|
||||
OPEN_SCRIPTS_BASE = 1000,
|
||||
RESPAWN_SCRIPTS_BASE = 2000, // [BC]
|
||||
DEATH_SCRIPTS_BASE = 3000, // [BC]
|
||||
ENTER_SCRIPTS_BASE = 4000, // [BC]
|
||||
PICKUP_SCRIPTS_BASE = 5000, // [BC]
|
||||
BLUE_RETURN_SCRIPTS_BASE = 6000, // [BC]
|
||||
RED_RETURN_SCRIPTS_BASE = 7000, // [BC]
|
||||
WHITE_RETURN_SCRIPTS_BASE = 8000, // [BC]
|
||||
LIGHTNING_SCRIPTS_BASE = 12000,
|
||||
UNLOADING_SCRIPTS_BASE = 13000,
|
||||
DISCONNECT_SCRIPTS_BASE = 14000
|
||||
};
|
||||
|
||||
// Values added to script number to indicate flags (requires new-style .o)
|
||||
enum
|
||||
{
|
||||
NET_SCRIPT_FLAG = 0x00010000
|
||||
};
|
||||
|
||||
// Or'ed with variable index when passing variables of type "out"
|
||||
// An idea that was never realized.
|
||||
enum
|
||||
{
|
||||
OUTVAR_SCRIPT_SPEC = 0x40000000,
|
||||
OUTVAR_MAP_SPEC = 0x80000000,
|
||||
OUTVAR_WORLD_SPEC = 0xc0000000,
|
||||
OUTVAR_GLOBAL_SPEC = 0x00000000
|
||||
};
|
||||
|
||||
// TYPES -------------------------------------------------------------------
|
||||
|
||||
struct symbolNode_s; // Defined in symbol.h
|
||||
|
||||
typedef enum
|
||||
{
|
||||
PCD_NOP,
|
||||
PCD_TERMINATE,
|
||||
PCD_SUSPEND,
|
||||
PCD_PUSHNUMBER,
|
||||
PCD_LSPEC1,
|
||||
PCD_LSPEC2,
|
||||
PCD_LSPEC3,
|
||||
PCD_LSPEC4,
|
||||
PCD_LSPEC5,
|
||||
PCD_LSPEC1DIRECT,
|
||||
PCD_LSPEC2DIRECT,
|
||||
PCD_LSPEC3DIRECT,
|
||||
PCD_LSPEC4DIRECT,
|
||||
PCD_LSPEC5DIRECT,
|
||||
PCD_ADD,
|
||||
PCD_SUBTRACT,
|
||||
PCD_MULTIPLY,
|
||||
PCD_DIVIDE,
|
||||
PCD_MODULUS,
|
||||
PCD_EQ,
|
||||
PCD_NE,
|
||||
PCD_LT,
|
||||
PCD_GT,
|
||||
PCD_LE,
|
||||
PCD_GE,
|
||||
PCD_ASSIGNSCRIPTVAR,
|
||||
PCD_ASSIGNMAPVAR,
|
||||
PCD_ASSIGNWORLDVAR,
|
||||
PCD_PUSHSCRIPTVAR,
|
||||
PCD_PUSHMAPVAR,
|
||||
PCD_PUSHWORLDVAR,
|
||||
PCD_ADDSCRIPTVAR,
|
||||
PCD_ADDMAPVAR,
|
||||
PCD_ADDWORLDVAR,
|
||||
PCD_SUBSCRIPTVAR,
|
||||
PCD_SUBMAPVAR,
|
||||
PCD_SUBWORLDVAR,
|
||||
PCD_MULSCRIPTVAR,
|
||||
PCD_MULMAPVAR,
|
||||
PCD_MULWORLDVAR,
|
||||
PCD_DIVSCRIPTVAR,
|
||||
PCD_DIVMAPVAR,
|
||||
PCD_DIVWORLDVAR,
|
||||
PCD_MODSCRIPTVAR,
|
||||
PCD_MODMAPVAR,
|
||||
PCD_MODWORLDVAR,
|
||||
PCD_INCSCRIPTVAR,
|
||||
PCD_INCMAPVAR,
|
||||
PCD_INCWORLDVAR,
|
||||
PCD_DECSCRIPTVAR,
|
||||
PCD_DECMAPVAR,
|
||||
PCD_DECWORLDVAR,
|
||||
PCD_GOTO,
|
||||
PCD_IFGOTO,
|
||||
PCD_DROP,
|
||||
PCD_DELAY,
|
||||
PCD_DELAYDIRECT,
|
||||
PCD_RANDOM,
|
||||
PCD_RANDOMDIRECT,
|
||||
PCD_THINGCOUNT,
|
||||
PCD_THINGCOUNTDIRECT,
|
||||
PCD_TAGWAIT,
|
||||
PCD_TAGWAITDIRECT,
|
||||
PCD_POLYWAIT,
|
||||
PCD_POLYWAITDIRECT,
|
||||
PCD_CHANGEFLOOR,
|
||||
PCD_CHANGEFLOORDIRECT,
|
||||
PCD_CHANGECEILING,
|
||||
PCD_CHANGECEILINGDIRECT,
|
||||
PCD_RESTART,
|
||||
PCD_ANDLOGICAL,
|
||||
PCD_ORLOGICAL,
|
||||
PCD_ANDBITWISE,
|
||||
PCD_ORBITWISE,
|
||||
PCD_EORBITWISE,
|
||||
PCD_NEGATELOGICAL,
|
||||
PCD_LSHIFT,
|
||||
PCD_RSHIFT,
|
||||
PCD_UNARYMINUS,
|
||||
PCD_IFNOTGOTO,
|
||||
PCD_LINESIDE,
|
||||
PCD_SCRIPTWAIT,
|
||||
PCD_SCRIPTWAITDIRECT,
|
||||
PCD_CLEARLINESPECIAL,
|
||||
PCD_CASEGOTO,
|
||||
PCD_BEGINPRINT,
|
||||
PCD_ENDPRINT,
|
||||
PCD_PRINTSTRING,
|
||||
PCD_PRINTNUMBER,
|
||||
PCD_PRINTCHARACTER,
|
||||
PCD_PLAYERCOUNT,
|
||||
PCD_GAMETYPE,
|
||||
PCD_GAMESKILL,
|
||||
PCD_TIMER,
|
||||
PCD_SECTORSOUND,
|
||||
PCD_AMBIENTSOUND,
|
||||
PCD_SOUNDSEQUENCE,
|
||||
PCD_SETLINETEXTURE,
|
||||
PCD_SETLINEBLOCKING,
|
||||
PCD_SETLINESPECIAL,
|
||||
PCD_THINGSOUND,
|
||||
PCD_ENDPRINTBOLD,
|
||||
// [RH] End of Hexen p-codes
|
||||
PCD_ACTIVATORSOUND,
|
||||
PCD_LOCALAMBIENTSOUND,
|
||||
PCD_SETLINEMONSTERBLOCKING,
|
||||
// [BC] Start of new pcodes
|
||||
PCD_PLAYERBLUESKULL,
|
||||
PCD_PLAYERREDSKULL,
|
||||
PCD_PLAYERYELLOWSKULL,
|
||||
PCD_PLAYERMASTERSKULL,
|
||||
PCD_PLAYERBLUECARD,
|
||||
PCD_PLAYERREDCARD,
|
||||
PCD_PLAYERYELLOWCARD,
|
||||
PCD_PLAYERMASTERCARD,
|
||||
PCD_PLAYERBLACKSKULL,
|
||||
PCD_PLAYERSILVERSKULL,
|
||||
PCD_PLAYERGOLDSKULL,
|
||||
PCD_PLAYERBLACKCARD,
|
||||
PCD_PLAYERSILVERCARD,
|
||||
PCD_PLAYERONTEAM,
|
||||
PCD_PLAYERTEAM,
|
||||
PCD_PLAYERHEALTH,
|
||||
PCD_PLAYERARMORPOINTS,
|
||||
PCD_PLAYERFRAGS,
|
||||
PCD_PLAYEREXPERT,
|
||||
PCD_BLUETEAMCOUNT,
|
||||
PCD_REDTEAMCOUNT,
|
||||
PCD_BLUETEAMSCORE,
|
||||
PCD_REDTEAMSCORE,
|
||||
PCD_ISONEFLAGCTF,
|
||||
PCD_LSPEC6, // [RH] LSPEC6 is never actually used.
|
||||
PCD_LSPEC6DIRECT, // Should these be removed?
|
||||
PCD_PRINTNAME,
|
||||
PCD_MUSICCHANGE,
|
||||
PCD_CONSOLECOMMANDDIRECT,
|
||||
PCD_CONSOLECOMMAND,
|
||||
PCD_SINGLEPLAYER,
|
||||
// [RH] End of Skull Tag p-codes
|
||||
PCD_FIXEDMUL,
|
||||
PCD_FIXEDDIV,
|
||||
PCD_SETGRAVITY,
|
||||
PCD_SETGRAVITYDIRECT,
|
||||
PCD_SETAIRCONTROL,
|
||||
PCD_SETAIRCONTROLDIRECT,
|
||||
PCD_CLEARINVENTORY,
|
||||
PCD_GIVEINVENTORY,
|
||||
PCD_GIVEINVENTORYDIRECT,
|
||||
PCD_TAKEINVENTORY,
|
||||
PCD_TAKEINVENTORYDIRECT,
|
||||
PCD_CHECKINVENTORY,
|
||||
PCD_CHECKINVENTORYDIRECT,
|
||||
PCD_SPAWN,
|
||||
PCD_SPAWNDIRECT,
|
||||
PCD_SPAWNSPOT,
|
||||
PCD_SPAWNSPOTDIRECT,
|
||||
PCD_SETMUSIC,
|
||||
PCD_SETMUSICDIRECT,
|
||||
PCD_LOCALSETMUSIC,
|
||||
PCD_LOCALSETMUSICDIRECT,
|
||||
PCD_PRINTFIXED,
|
||||
PCD_PRINTLOCALIZED,
|
||||
PCD_MOREHUDMESSAGE,
|
||||
PCD_OPTHUDMESSAGE,
|
||||
PCD_ENDHUDMESSAGE,
|
||||
PCD_ENDHUDMESSAGEBOLD,
|
||||
PCD_SETSTYLE,
|
||||
PCD_SETSTYLEDIRECT,
|
||||
PCD_SETFONT,
|
||||
PCD_SETFONTDIRECT,
|
||||
PCD_PUSHBYTE, // Valid in compact-script mode only
|
||||
PCD_LSPEC1DIRECTB, // "
|
||||
PCD_LSPEC2DIRECTB, // "
|
||||
PCD_LSPEC3DIRECTB, // "
|
||||
PCD_LSPEC4DIRECTB, // "
|
||||
PCD_LSPEC5DIRECTB, // "
|
||||
PCD_DELAYDIRECTB, // "
|
||||
PCD_RANDOMDIRECTB, // "
|
||||
PCD_PUSHBYTES, // "
|
||||
PCD_PUSH2BYTES, // "
|
||||
PCD_PUSH3BYTES, // "
|
||||
PCD_PUSH4BYTES, // "
|
||||
PCD_PUSH5BYTES, // "
|
||||
PCD_SETTHINGSPECIAL,
|
||||
PCD_ASSIGNGLOBALVAR,
|
||||
PCD_PUSHGLOBALVAR,
|
||||
PCD_ADDGLOBALVAR,
|
||||
PCD_SUBGLOBALVAR,
|
||||
PCD_MULGLOBALVAR,
|
||||
PCD_DIVGLOBALVAR,
|
||||
PCD_MODGLOBALVAR,
|
||||
PCD_INCGLOBALVAR,
|
||||
PCD_DECGLOBALVAR,
|
||||
PCD_FADETO,
|
||||
PCD_FADERANGE,
|
||||
PCD_CANCELFADE,
|
||||
PCD_PLAYMOVIE,
|
||||
PCD_SETFLOORTRIGGER,
|
||||
PCD_SETCEILINGTRIGGER,
|
||||
PCD_GETACTORX,
|
||||
PCD_GETACTORY,
|
||||
PCD_GETACTORZ,
|
||||
PCD_STARTTRANSLATION,
|
||||
PCD_TRANSLATIONRANGE1,
|
||||
PCD_TRANSLATIONRANGE2,
|
||||
PCD_ENDTRANSLATION,
|
||||
PCD_CALL,
|
||||
PCD_CALLDISCARD,
|
||||
PCD_RETURNVOID,
|
||||
PCD_RETURNVAL,
|
||||
PCD_PUSHMAPARRAY,
|
||||
PCD_ASSIGNMAPARRAY,
|
||||
PCD_ADDMAPARRAY,
|
||||
PCD_SUBMAPARRAY,
|
||||
PCD_MULMAPARRAY,
|
||||
PCD_DIVMAPARRAY,
|
||||
PCD_MODMAPARRAY,
|
||||
PCD_INCMAPARRAY,
|
||||
PCD_DECMAPARRAY,
|
||||
PCD_DUP,
|
||||
PCD_SWAP,
|
||||
PCD_WRITETOINI,
|
||||
PCD_GETFROMINI,
|
||||
PCD_SIN,
|
||||
PCD_COS,
|
||||
PCD_VECTORANGLE,
|
||||
PCD_CHECKWEAPON,
|
||||
PCD_SETWEAPON,
|
||||
PCD_TAGSTRING,
|
||||
PCD_PUSHWORLDARRAY,
|
||||
PCD_ASSIGNWORLDARRAY,
|
||||
PCD_ADDWORLDARRAY,
|
||||
PCD_SUBWORLDARRAY,
|
||||
PCD_MULWORLDARRAY,
|
||||
PCD_DIVWORLDARRAY,
|
||||
PCD_MODWORLDARRAY,
|
||||
PCD_INCWORLDARRAY,
|
||||
PCD_DECWORLDARRAY,
|
||||
PCD_PUSHGLOBALARRAY,
|
||||
PCD_ASSIGNGLOBALARRAY,
|
||||
PCD_ADDGLOBALARRAY,
|
||||
PCD_SUBGLOBALARRAY,
|
||||
PCD_MULGLOBALARRAY,
|
||||
PCD_DIVGLOBALARRAY,
|
||||
PCD_MODGLOBALARRAY,
|
||||
PCD_INCGLOBALARRAY,
|
||||
PCD_DECGLOBALARRAY,
|
||||
PCD_SETMARINEWEAPON,
|
||||
PCD_SETACTORPROPERTY,
|
||||
PCD_GETACTORPROPERTY,
|
||||
PCD_PLAYERNUMBER,
|
||||
PCD_ACTIVATORTID,
|
||||
PCD_SETMARINESPRITE,
|
||||
PCD_GETSCREENWIDTH,
|
||||
PCD_GETSCREENHEIGHT,
|
||||
PCD_THING_PROJECTILE2,
|
||||
PCD_STRLEN,
|
||||
PCD_SETHUDSIZE,
|
||||
PCD_GETCVAR,
|
||||
PCD_CASEGOTOSORTED,
|
||||
PCD_SETRESULTVALUE,
|
||||
PCD_GETLINEROWOFFSET,
|
||||
PCD_GETACTORFLOORZ,
|
||||
PCD_GETACTORANGLE,
|
||||
PCD_GETSECTORFLOORZ,
|
||||
PCD_GETSECTORCEILINGZ,
|
||||
PCD_LSPEC5RESULT,
|
||||
PCD_GETSIGILPIECES,
|
||||
PCD_GETLEVELINFO,
|
||||
PCD_CHANGESKY,
|
||||
PCD_PLAYERINGAME,
|
||||
PCD_PLAYERISBOT,
|
||||
PCD_SETCAMERATOTEXTURE,
|
||||
PCD_ENDLOG,
|
||||
PCD_GETAMMOCAPACITY,
|
||||
PCD_SETAMMOCAPACITY,
|
||||
// [JB] start of new pcodes
|
||||
PCD_PRINTMAPCHARARRAY,
|
||||
PCD_PRINTWORLDCHARARRAY,
|
||||
PCD_PRINTGLOBALCHARARRAY,
|
||||
// [JB] end of new pcodes
|
||||
PCD_SETACTORANGLE,
|
||||
PCD_GRABINPUT,
|
||||
PCD_SETMOUSEPOINTER,
|
||||
PCD_MOVEMOUSEPOINTER,
|
||||
|
||||
PCODE_COMMAND_COUNT
|
||||
} pcd_t;
|
||||
|
||||
// PUBLIC FUNCTION PROTOTYPES ----------------------------------------------
|
||||
|
||||
void PC_OpenObject(char *name, size_t size, int flags);
|
||||
void PC_CloseObject(void);
|
||||
void PC_Append(void *buffer, size_t size);
|
||||
void PC_AppendByte(U_BYTE val);
|
||||
void PC_AppendWord(U_WORD val);
|
||||
void PC_AppendLong(U_LONG val);
|
||||
void PC_AppendString(char *string);
|
||||
void PC_AppendCmd(pcd_t command);
|
||||
void PC_AppendPushVal(U_LONG val);
|
||||
void PC_AppendShrink(U_BYTE val);
|
||||
void PC_Write(void *buffer, size_t size, int address);
|
||||
void PC_WriteByte(U_BYTE val, int address);
|
||||
//void PC_WriteWord(U_WORD val, int address);
|
||||
void PC_WriteLong(U_LONG val, int address);
|
||||
void PC_WriteString(char *string, int address);
|
||||
void PC_WriteCmd(pcd_t command, int address);
|
||||
void PC_Skip(size_t size);
|
||||
//void PC_SkipByte(void);
|
||||
//void PC_SkipWord(void);
|
||||
void PC_SkipLong(void);
|
||||
void PC_AddScript(int number, int argCount);
|
||||
void PC_SetScriptVarCount(int number, int varCount);
|
||||
void PC_AddFunction(struct symbolNode_s *sym);
|
||||
void PC_PutMapVariable(int index, int value);
|
||||
void PC_NameMapVariable(int index, struct symbolNode_s *sym);
|
||||
void PC_AddArray(int index, int size);
|
||||
void PC_InitArray(int index, int *entries, boolean hasStrings);
|
||||
int PC_AddImport(char *name);
|
||||
|
||||
// PUBLIC DATA DECLARATIONS ------------------------------------------------
|
||||
|
||||
extern int pc_Address;
|
||||
extern byte *pc_Buffer;
|
||||
extern byte *pc_BufferPtr;
|
||||
extern int pc_ScriptCount;
|
||||
extern int pc_FunctionCount;
|
||||
extern boolean pc_NoShrink;
|
||||
extern boolean pc_HexenCase;
|
||||
extern boolean pc_WadAuthor;
|
||||
extern boolean pc_EncryptStrings;
|
||||
extern int pc_LastAppendedCommand;
|
||||
|
||||
#endif
|
||||
428
strlist.c
Normal file
428
strlist.c
Normal file
|
|
@ -0,0 +1,428 @@
|
|||
|
||||
//**************************************************************************
|
||||
//**
|
||||
//** strlist.c
|
||||
//**
|
||||
//**************************************************************************
|
||||
|
||||
// HEADER FILES ------------------------------------------------------------
|
||||
|
||||
#include <string.h>
|
||||
#include <malloc.h>
|
||||
#include "common.h"
|
||||
#include "strlist.h"
|
||||
#include "error.h"
|
||||
#include "misc.h"
|
||||
#include "pcode.h"
|
||||
|
||||
// MACROS ------------------------------------------------------------------
|
||||
|
||||
// TYPES -------------------------------------------------------------------
|
||||
|
||||
typedef struct
|
||||
{
|
||||
char *name;
|
||||
int address;
|
||||
} stringInfo_t;
|
||||
|
||||
typedef struct
|
||||
{
|
||||
int stringCount;
|
||||
stringInfo_t strings[MAX_STRINGS];
|
||||
} stringList_t;
|
||||
|
||||
typedef struct
|
||||
{
|
||||
char name[4];
|
||||
stringList_t list;
|
||||
} languageInfo_t;
|
||||
|
||||
// EXTERNAL FUNCTION PROTOTYPES --------------------------------------------
|
||||
|
||||
// PUBLIC FUNCTION PROTOTYPES ----------------------------------------------
|
||||
|
||||
// PRIVATE FUNCTION PROTOTYPES ---------------------------------------------
|
||||
|
||||
static int STR_PutStringInSomeList(stringList_t *list, int index, char *name);
|
||||
static int STR_FindInSomeList(stringList_t *list, char *name);
|
||||
static void DumpStrings(stringList_t *list, int lenadr, boolean quad, boolean crypt);
|
||||
static void Encrypt(void *data, int key, int len);
|
||||
|
||||
// EXTERNAL DATA DECLARATIONS ----------------------------------------------
|
||||
|
||||
// PUBLIC DATA DEFINITIONS -------------------------------------------------
|
||||
|
||||
int NumLanguages, NumStringLists;
|
||||
|
||||
// PRIVATE DATA DEFINITIONS ------------------------------------------------
|
||||
|
||||
static languageInfo_t *LanguageInfo[MAX_LANGUAGES];
|
||||
static stringList_t *StringLists[NUM_STRLISTS];
|
||||
|
||||
// CODE --------------------------------------------------------------------
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// STR_Init
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
void STR_Init(void)
|
||||
{
|
||||
NumLanguages = NumStringLists = 0;
|
||||
STR_FindLanguage(NULL); // Default language is always number 0
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// STR_FindLanguage
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
int STR_FindLanguage(char *name)
|
||||
{
|
||||
int i;
|
||||
|
||||
if (name == NULL)
|
||||
{
|
||||
if (NumLanguages > 0)
|
||||
{
|
||||
return 0;
|
||||
}
|
||||
i = 0;
|
||||
}
|
||||
else
|
||||
{
|
||||
for(i = 0; i < NumLanguages; i++)
|
||||
{
|
||||
if (strcmp (name, LanguageInfo[i]->name) == 0)
|
||||
{
|
||||
return i;
|
||||
}
|
||||
}
|
||||
}
|
||||
if(i == NumLanguages)
|
||||
{
|
||||
LanguageInfo[i] = MS_Alloc(sizeof(languageInfo_t), ERR_OUT_OF_MEMORY);
|
||||
memset(LanguageInfo[i]->name, 0, 4);
|
||||
if(name != NULL)
|
||||
{
|
||||
strncpy(LanguageInfo[i]->name, name, 3);
|
||||
}
|
||||
LanguageInfo[i]->list.stringCount = 0;
|
||||
NumLanguages++;
|
||||
}
|
||||
return i;
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// STR_Find
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
int STR_Find(char *name)
|
||||
{
|
||||
return STR_FindInLanguage(0, name);
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// STR_FindInLanguage
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
int STR_FindInLanguage(int language, char *name)
|
||||
{
|
||||
return STR_FindInSomeList (&LanguageInfo[language]->list, name);
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// STR_FindInList
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
int STR_FindInList(int list, char *name)
|
||||
{
|
||||
if (StringLists[list] == NULL)
|
||||
{
|
||||
StringLists[list] = MS_Alloc(sizeof(stringList_t), ERR_OUT_OF_MEMORY);
|
||||
StringLists[list]->stringCount = 0;
|
||||
NumStringLists++;
|
||||
}
|
||||
return STR_FindInSomeList (StringLists[list], name);
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// STR_FindInSomeList
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
static int STR_FindInSomeList(stringList_t *list, char *name)
|
||||
{
|
||||
int i;
|
||||
|
||||
for(i = 0; i < list->stringCount; i++)
|
||||
{
|
||||
if(strcmp(list->strings[i].name, name) == 0)
|
||||
{
|
||||
return i;
|
||||
}
|
||||
}
|
||||
// Add to list
|
||||
return STR_PutStringInSomeList(list, i, name);
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// STR_GetString
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
const char *STR_GetString(int list, int index)
|
||||
{
|
||||
if (StringLists[list] == NULL)
|
||||
{
|
||||
return NULL;
|
||||
}
|
||||
if (index < 0 || index >= StringLists[list]->stringCount)
|
||||
{
|
||||
return NULL;
|
||||
}
|
||||
return StringLists[list]->strings[index].name;
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// STR_AppendToList
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
int STR_AppendToList(int list, char *name)
|
||||
{
|
||||
if (StringLists[list] == NULL)
|
||||
{
|
||||
StringLists[list] = MS_Alloc(sizeof(stringList_t), ERR_OUT_OF_MEMORY);
|
||||
StringLists[list]->stringCount = 0;
|
||||
NumStringLists++;
|
||||
}
|
||||
return STR_PutStringInSomeList(StringLists[list], StringLists[list]->stringCount, name);
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// STR_PutStringInSomeList
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
static int STR_PutStringInSomeList(stringList_t *list, int index, char *name)
|
||||
{
|
||||
int i;
|
||||
|
||||
if(index >= MAX_STRINGS)
|
||||
{
|
||||
ERR_Error(ERR_TOO_MANY_STRINGS, YES, MAX_STRINGS);
|
||||
return 0;
|
||||
}
|
||||
MS_Message(MSG_DEBUG, "Adding string %d:\n \"%s\"\n",
|
||||
list->stringCount, name);
|
||||
if(index >= list->stringCount)
|
||||
{
|
||||
for(i = list->stringCount; i <= index; i++)
|
||||
{
|
||||
list->strings[i].name = NULL;
|
||||
}
|
||||
list->stringCount = index + 1;
|
||||
}
|
||||
if(list->strings[index].name != NULL)
|
||||
{
|
||||
free(list->strings[index].name);
|
||||
}
|
||||
if(name != NULL)
|
||||
{
|
||||
list->strings[index].name = MS_Alloc(strlen(name)+1, ERR_OUT_OF_MEMORY);
|
||||
strcpy(list->strings[index].name, name);
|
||||
}
|
||||
else
|
||||
{
|
||||
list->strings[index].name = NULL;
|
||||
}
|
||||
return index;
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// STR_ListSize
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
int STR_ListSize(int list)
|
||||
{
|
||||
return LanguageInfo[list]->list.stringCount;
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// STR_WriteStrings
|
||||
//
|
||||
// Writes all the strings to the p-code buffer.
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
void STR_WriteStrings(void)
|
||||
{
|
||||
int i;
|
||||
U_LONG pad;
|
||||
|
||||
MS_Message(MSG_DEBUG, "---- STR_WriteStrings ----\n");
|
||||
for(i = 0; i < LanguageInfo[0]->list.stringCount; i++)
|
||||
{
|
||||
LanguageInfo[0]->list.strings[i].address = pc_Address;
|
||||
PC_AppendString(LanguageInfo[0]->list.strings[i].name);
|
||||
}
|
||||
if(pc_Address%4 != 0)
|
||||
{ // Need to align
|
||||
pad = 0;
|
||||
PC_Append((void *)&pad, 4-(pc_Address%4));
|
||||
}
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// STR_WriteList
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
void STR_WriteList(void)
|
||||
{
|
||||
int i;
|
||||
|
||||
MS_Message(MSG_DEBUG, "---- STR_WriteList ----\n");
|
||||
PC_AppendLong((U_LONG)LanguageInfo[0]->list.stringCount);
|
||||
for(i = 0; i < LanguageInfo[0]->list.stringCount; i++)
|
||||
{
|
||||
PC_AppendLong((U_LONG)LanguageInfo[0]->list.strings[i].address);
|
||||
}
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// STR_WriteChunk
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
void STR_WriteChunk(int language, boolean encrypt)
|
||||
{
|
||||
languageInfo_t *lang = LanguageInfo[language];
|
||||
int lenadr;
|
||||
|
||||
MS_Message(MSG_DEBUG, "---- STR_WriteChunk %d ----\n", language);
|
||||
PC_Append(encrypt ? "STRE" : "STRL", 4);
|
||||
lenadr = pc_Address;
|
||||
PC_SkipLong();
|
||||
PC_Append(&lang->name, 4);
|
||||
PC_AppendLong(lang->list.stringCount);
|
||||
PC_AppendLong(0); // Used in-game for stringing lists together
|
||||
|
||||
DumpStrings (&lang->list, lenadr, NO, encrypt);
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// STR_WriteListChunk
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
void STR_WriteListChunk(int list, int id, boolean quad)
|
||||
{
|
||||
int lenadr;
|
||||
|
||||
if (StringLists[list] != NULL && StringLists[list]->stringCount > 0)
|
||||
{
|
||||
MS_Message(MSG_DEBUG, "---- STR_WriteListChunk %d %c%c%c%c----\n", list,
|
||||
id&255, (id>>8)&255, (id>>16)&255, (id>>24)&255);
|
||||
PC_AppendLong((U_LONG)id);
|
||||
lenadr = pc_Address;
|
||||
PC_SkipLong();
|
||||
PC_AppendLong(StringLists[list]->stringCount);
|
||||
if (quad && pc_Address%8 != 0)
|
||||
{ // If writing quadword indices, align the indices to an
|
||||
// 8-byte boundary.
|
||||
U_LONG pad = 0;
|
||||
PC_Append (&pad, 4);
|
||||
}
|
||||
DumpStrings(StringLists[list], lenadr, quad, NO);
|
||||
}
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// DumpStrings
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
static void DumpStrings(stringList_t *list, int lenadr, boolean quad, boolean crypt)
|
||||
{
|
||||
int i, ofs, startofs;
|
||||
|
||||
startofs = ofs = pc_Address - lenadr - 4 + list->stringCount*(quad?8:4);
|
||||
|
||||
for(i = 0; i < list->stringCount; i++)
|
||||
{
|
||||
if (list->strings[i].name != NULL)
|
||||
{
|
||||
PC_AppendLong((U_LONG)ofs);
|
||||
ofs += strlen(list->strings[i].name) + 1;
|
||||
}
|
||||
else
|
||||
{
|
||||
PC_AppendLong(0);
|
||||
}
|
||||
if (quad)
|
||||
{
|
||||
PC_AppendLong(0);
|
||||
}
|
||||
}
|
||||
|
||||
ofs = startofs;
|
||||
|
||||
for(i = 0; i < list->stringCount; i++)
|
||||
{
|
||||
if(list->strings[i].name != NULL)
|
||||
{
|
||||
int stringlen = strlen(list->strings[i].name) + 1;
|
||||
if(crypt)
|
||||
{
|
||||
int cryptkey = ofs*157135;
|
||||
|
||||
Encrypt(list->strings[i].name, cryptkey, stringlen);
|
||||
PC_Append(list->strings[i].name, stringlen);
|
||||
ofs += stringlen;
|
||||
Encrypt(list->strings[i].name, cryptkey, stringlen);
|
||||
}
|
||||
else
|
||||
{
|
||||
PC_AppendString(list->strings[i].name);
|
||||
}
|
||||
}
|
||||
}
|
||||
if(pc_Address%4 != 0)
|
||||
{ // Need to align
|
||||
U_LONG pad = 0;
|
||||
PC_Append((void *)&pad, 4-(pc_Address%4));
|
||||
}
|
||||
|
||||
PC_WriteLong(pc_Address - lenadr - 4, lenadr);
|
||||
}
|
||||
|
||||
static void Encrypt(void *data, int key, int len)
|
||||
{
|
||||
int p = (byte)key, i;
|
||||
|
||||
for(i = 0; i < len; ++i)
|
||||
{
|
||||
((byte *)data)[i] ^= (byte)(p+(i>>1));
|
||||
}
|
||||
}
|
||||
38
strlist.h
Normal file
38
strlist.h
Normal file
|
|
@ -0,0 +1,38 @@
|
|||
|
||||
//**************************************************************************
|
||||
//**
|
||||
//** strlist.h
|
||||
//**
|
||||
//**************************************************************************
|
||||
|
||||
#ifndef __STRLIST_H__
|
||||
#define __STRLIST_H__
|
||||
|
||||
// HEADER FILES ------------------------------------------------------------
|
||||
|
||||
#include "common.h"
|
||||
|
||||
// MACROS ------------------------------------------------------------------
|
||||
|
||||
// TYPES -------------------------------------------------------------------
|
||||
|
||||
// PUBLIC FUNCTION PROTOTYPES ----------------------------------------------
|
||||
|
||||
void STR_Init(void);
|
||||
int STR_Find(char *name);
|
||||
void STR_WriteStrings(void);
|
||||
void STR_WriteList(void);
|
||||
int STR_FindLanguage(char *name);
|
||||
int STR_FindInLanguage(int language, char *name);
|
||||
int STR_FindInList(int list, char *name);
|
||||
int STR_AppendToList(int list, char *name);
|
||||
const char *STR_GetString(int list, int index);
|
||||
void STR_WriteChunk(int language, boolean encrypt);
|
||||
void STR_WriteListChunk(int list, int id, boolean quad);
|
||||
int STR_ListSize(int list);
|
||||
|
||||
// PUBLIC DATA DECLARATIONS ------------------------------------------------
|
||||
|
||||
extern int NumLanguages, NumStringLists;
|
||||
|
||||
#endif
|
||||
470
symbol.c
Normal file
470
symbol.c
Normal file
|
|
@ -0,0 +1,470 @@
|
|||
|
||||
//**************************************************************************
|
||||
//**
|
||||
//** symbol.c
|
||||
//**
|
||||
//**************************************************************************
|
||||
|
||||
// HEADER FILES ------------------------------------------------------------
|
||||
|
||||
#include <string.h>
|
||||
#include <stdlib.h>
|
||||
#include "common.h"
|
||||
#include "symbol.h"
|
||||
#include "misc.h"
|
||||
#include "parse.h"
|
||||
|
||||
// MACROS ------------------------------------------------------------------
|
||||
|
||||
// TYPES -------------------------------------------------------------------
|
||||
|
||||
typedef struct
|
||||
{
|
||||
char *name;
|
||||
pcd_t directCommand;
|
||||
pcd_t stackCommand;
|
||||
int argCount;
|
||||
int optMask;
|
||||
int outMask;
|
||||
boolean hasReturnValue;
|
||||
boolean latent;
|
||||
} internFuncDef_t;
|
||||
|
||||
// EXTERNAL FUNCTION PROTOTYPES --------------------------------------------
|
||||
|
||||
// PUBLIC FUNCTION PROTOTYPES ----------------------------------------------
|
||||
|
||||
// PRIVATE FUNCTION PROTOTYPES ---------------------------------------------
|
||||
|
||||
static symbolNode_t *Find(char *name, symbolNode_t *root);
|
||||
static symbolNode_t *Insert(char *name, symbolType_t type,
|
||||
symbolNode_t **root);
|
||||
static void FreeNodes(symbolNode_t *root);
|
||||
static void ClearShared(symbolNode_t *root);
|
||||
|
||||
// EXTERNAL DATA DECLARATIONS ----------------------------------------------
|
||||
|
||||
// PUBLIC DATA DEFINITIONS -------------------------------------------------
|
||||
|
||||
// PRIVATE DATA DEFINITIONS ------------------------------------------------
|
||||
|
||||
static symbolNode_t *LocalRoot;
|
||||
static symbolNode_t *GlobalRoot;
|
||||
|
||||
static internFuncDef_t InternalFunctions[] =
|
||||
{
|
||||
{ "tagwait", PCD_TAGWAITDIRECT, PCD_TAGWAIT, 1, 0, 0, NO, YES },
|
||||
{ "polywait", PCD_POLYWAITDIRECT, PCD_POLYWAIT, 1, 0, 0, NO, YES },
|
||||
{ "scriptwait", PCD_SCRIPTWAITDIRECT, PCD_SCRIPTWAIT, 1, 0, 0, NO, YES},
|
||||
{ "delay", PCD_DELAYDIRECT, PCD_DELAY, 1, 0, 0, NO, YES },
|
||||
{ "random", PCD_RANDOMDIRECT, PCD_RANDOM, 2, 0, 0, YES, NO },
|
||||
{ "thingcount", PCD_THINGCOUNTDIRECT, PCD_THINGCOUNT, 2, 0, 0, YES, NO },
|
||||
{ "changefloor", PCD_CHANGEFLOORDIRECT, PCD_CHANGEFLOOR, 2, 0, 0, NO, NO },
|
||||
{ "changeceiling", PCD_CHANGECEILINGDIRECT, PCD_CHANGECEILING, 2, 0, 0, NO, NO },
|
||||
{ "lineside", PCD_NOP, PCD_LINESIDE, 0, 0, 0, YES, NO },
|
||||
{ "clearlinespecial", PCD_NOP, PCD_CLEARLINESPECIAL, 0, 0, 0, NO, NO },
|
||||
{ "playercount", PCD_NOP, PCD_PLAYERCOUNT, 0, 0, 0, YES, NO },
|
||||
{ "gametype", PCD_NOP, PCD_GAMETYPE, 0, 0, 0, YES, NO },
|
||||
{ "gameskill", PCD_NOP, PCD_GAMESKILL, 0, 0, 0, YES, NO },
|
||||
{ "timer", PCD_NOP, PCD_TIMER, 0, 0, 0, YES, NO },
|
||||
{ "sectorsound", PCD_NOP, PCD_SECTORSOUND, 2, 0, 0, NO, NO },
|
||||
{ "ambientsound", PCD_NOP, PCD_AMBIENTSOUND, 2, 0, 0, NO, NO },
|
||||
{ "soundsequence", PCD_NOP, PCD_SOUNDSEQUENCE, 1, 0, 0, NO, NO },
|
||||
{ "setlinetexture", PCD_NOP, PCD_SETLINETEXTURE, 4, 0, 0, NO, NO },
|
||||
{ "setlineblocking", PCD_NOP, PCD_SETLINEBLOCKING, 2, 0, 0, NO, NO },
|
||||
{ "setlinespecial", PCD_NOP, PCD_SETLINESPECIAL, 7, 4|8|16|32|64, 0, NO, NO },
|
||||
{ "thingsound", PCD_NOP, PCD_THINGSOUND, 3, 0, 0, NO, NO },
|
||||
{ "activatorsound", PCD_NOP, PCD_ACTIVATORSOUND, 2, 0, 0, NO, NO },
|
||||
{ "localambientsound", PCD_NOP, PCD_LOCALAMBIENTSOUND, 2, 0, 0, NO, NO },
|
||||
{ "setlinemonsterblocking", PCD_NOP, PCD_SETLINEMONSTERBLOCKING, 2, 0, 0, NO, NO },
|
||||
{ "fixedmul", PCD_NOP, PCD_FIXEDMUL, 2, 0, 0, YES, NO },
|
||||
{ "fixeddiv", PCD_NOP, PCD_FIXEDDIV, 2, 0, 0, YES, NO },
|
||||
// [BC] Start of new pcodes
|
||||
{ "playerblueskull", PCD_NOP, PCD_PLAYERBLUESKULL, 0, 0, 0, YES, NO },
|
||||
{ "playerredskull", PCD_NOP, PCD_PLAYERREDSKULL, 0, 0, 0, YES, NO },
|
||||
{ "playeryellowskull", PCD_NOP, PCD_PLAYERYELLOWSKULL, 0, 0, 0, YES, NO },
|
||||
{ "playerbluecard", PCD_NOP, PCD_PLAYERBLUECARD, 0, 0, 0, YES, NO },
|
||||
{ "playerredcard", PCD_NOP, PCD_PLAYERREDCARD, 0, 0, 0, YES, NO },
|
||||
{ "playeryellowcard", PCD_NOP, PCD_PLAYERYELLOWCARD, 0, 0, 0, YES, NO },
|
||||
{ "playeronteam", PCD_NOP, PCD_PLAYERONTEAM, 0, 0, 0, YES, NO },
|
||||
{ "playerteam", PCD_NOP, PCD_PLAYERTEAM, 0, 0, 0, YES, NO },
|
||||
{ "playerfrags", PCD_NOP, PCD_PLAYERFRAGS, 0, 0, 0, YES, NO },
|
||||
{ "playerhealth", PCD_NOP, PCD_PLAYERHEALTH, 0, 0, 0, YES, NO },
|
||||
{ "playerarmorpoints", PCD_NOP, PCD_PLAYERARMORPOINTS, 0, 0, 0, YES, NO },
|
||||
{ "playerexpert", PCD_NOP, PCD_PLAYEREXPERT, 0, 0, 0, YES, NO },
|
||||
{ "bluecount", PCD_NOP, PCD_BLUETEAMCOUNT, 0, 0, 0, YES, NO },
|
||||
{ "redcount", PCD_NOP, PCD_REDTEAMCOUNT, 0, 0, 0, YES, NO },
|
||||
{ "bluescore", PCD_NOP, PCD_BLUETEAMSCORE, 0, 0, 0, YES, NO },
|
||||
{ "redscore", PCD_NOP, PCD_REDTEAMSCORE, 0, 0, 0, YES, NO },
|
||||
{ "isoneflagctf", PCD_NOP, PCD_ISONEFLAGCTF, 0, 0, 0, YES, NO },
|
||||
{ "music_change", PCD_NOP, PCD_MUSICCHANGE, 2, 0, 0, NO, NO },
|
||||
{ "consolecommand", PCD_CONSOLECOMMANDDIRECT, PCD_CONSOLECOMMAND, 3, 2|4, 0, NO, NO },
|
||||
{ "singleplayer", PCD_NOP, PCD_SINGLEPLAYER, 0, 0, 0, YES, NO },
|
||||
// [RH] end of Skull Tag functions
|
||||
{ "setgravity", PCD_SETGRAVITYDIRECT, PCD_SETGRAVITY, 1, 0, 0, NO, NO },
|
||||
{ "setaircontrol", PCD_SETAIRCONTROLDIRECT, PCD_SETAIRCONTROL, 1, 0, 0, NO, NO },
|
||||
{ "clearinventory", PCD_NOP, PCD_CLEARINVENTORY, 0, 0, 0, NO, NO },
|
||||
{ "giveinventory", PCD_GIVEINVENTORYDIRECT, PCD_GIVEINVENTORY, 2, 0, 0, NO, NO },
|
||||
{ "takeinventory", PCD_TAKEINVENTORYDIRECT, PCD_TAKEINVENTORY, 2, 0, 0, NO, NO },
|
||||
{ "checkinventory", PCD_CHECKINVENTORYDIRECT, PCD_CHECKINVENTORY, 1, 0, 0, YES, NO },
|
||||
{ "spawn", PCD_SPAWNDIRECT, PCD_SPAWN, 6, 16|32, 0, YES, NO },
|
||||
{ "spawnspot", PCD_SPAWNSPOTDIRECT, PCD_SPAWNSPOT, 4, 4|8, 0, YES, NO },
|
||||
{ "setmusic", PCD_SETMUSICDIRECT, PCD_SETMUSIC, 3, 2|4, 0, NO, NO },
|
||||
{ "localsetmusic", PCD_LOCALSETMUSICDIRECT, PCD_LOCALSETMUSIC, 3, 2|4, 0, NO, NO },
|
||||
{ "setstyle", PCD_SETSTYLEDIRECT, PCD_SETSTYLE, 1, 0, 0, NO, NO },
|
||||
{ "setfont", PCD_SETFONTDIRECT, PCD_SETFONT, 1, 0, 0, NO, NO },
|
||||
{ "setthingspecial", PCD_NOP, PCD_SETTHINGSPECIAL, 7, 4|8|16|32|64, 0, NO, NO },
|
||||
{ "fadeto", PCD_NOP, PCD_FADETO, 5, 0, 0, NO, NO },
|
||||
{ "faderange", PCD_NOP, PCD_FADERANGE, 9, 0, 0, NO, NO },
|
||||
{ "cancelfade", PCD_NOP, PCD_CANCELFADE, 0, 0, 0, NO, NO },
|
||||
{ "playmovie", PCD_NOP, PCD_PLAYMOVIE, 1, 0, 0, YES, NO },
|
||||
{ "setfloortrigger", PCD_NOP, PCD_SETFLOORTRIGGER, 8, 8|16|32|64|128, 0, NO, NO },
|
||||
{ "setceilingtrigger", PCD_NOP, PCD_SETCEILINGTRIGGER, 8, 8|16|32|64|128, 0, NO, NO },
|
||||
{ "getactorx", PCD_NOP, PCD_GETACTORX, 1, 0, 0, YES, NO },
|
||||
{ "getactory", PCD_NOP, PCD_GETACTORY, 1, 0, 0, YES, NO },
|
||||
{ "getactorz", PCD_NOP, PCD_GETACTORZ, 1, 0, 0, YES, NO },
|
||||
{ "getactorfloorz", PCD_NOP, PCD_GETACTORFLOORZ, 1, 0, 0, YES, NO },
|
||||
{ "getactorangle", PCD_NOP, PCD_GETACTORANGLE, 1, 0, 0, YES, NO },
|
||||
{ "writetoini", PCD_NOP, PCD_WRITETOINI, 3, 0, 0, NO, NO },
|
||||
{ "getfromini", PCD_NOP, PCD_GETFROMINI, 3, 0, 0, YES, NO },
|
||||
{ "sin", PCD_NOP, PCD_SIN, 1, 0, 0, YES, NO },
|
||||
{ "cos", PCD_NOP, PCD_COS, 1, 0, 0, YES, NO },
|
||||
{ "vectorangle", PCD_NOP, PCD_VECTORANGLE, 2, 0, 0, YES, NO },
|
||||
{ "checkweapon", PCD_NOP, PCD_CHECKWEAPON, 1, 0, 0, YES, NO },
|
||||
{ "setweapon", PCD_NOP, PCD_SETWEAPON, 1, 0, 0, YES, NO },
|
||||
{ "setmarineweapon", PCD_NOP, PCD_SETMARINEWEAPON, 2, 0, 0, NO, NO },
|
||||
{ "setactorproperty", PCD_NOP, PCD_SETACTORPROPERTY, 3, 0, 0, NO, NO },
|
||||
{ "getactorproperty", PCD_NOP, PCD_GETACTORPROPERTY, 2, 0, 0, YES, NO },
|
||||
{ "playernumber", PCD_NOP, PCD_PLAYERNUMBER, 0, 0, 0, YES, NO },
|
||||
{ "activatortid", PCD_NOP, PCD_ACTIVATORTID, 0, 0, 0, YES, NO },
|
||||
{ "setmarinesprite", PCD_NOP, PCD_SETMARINESPRITE, 2, 0, 0, NO, NO },
|
||||
{ "getscreenwidth", PCD_NOP, PCD_GETSCREENWIDTH, 0, 0, 0, YES, NO },
|
||||
{ "getscreenheight", PCD_NOP, PCD_GETSCREENHEIGHT, 0, 0, 0, YES, NO },
|
||||
{ "thing_projectile2", PCD_NOP, PCD_THING_PROJECTILE2, 7, 0, 0, NO, NO },
|
||||
{ "strlen", PCD_NOP, PCD_STRLEN, 1, 0, 0, YES, NO },
|
||||
{ "sethudsize", PCD_NOP, PCD_SETHUDSIZE, 3, 0, 0, NO, NO },
|
||||
{ "getcvar", PCD_NOP, PCD_GETCVAR, 1, 0, 0, YES, NO },
|
||||
{ "setresultvalue", PCD_NOP, PCD_SETRESULTVALUE, 1, 0, 0, NO, NO },
|
||||
{ "getlinerowoffset", PCD_NOP, PCD_GETLINEROWOFFSET, 0, 0, 0, YES, NO },
|
||||
{ "getsectorfloorz", PCD_NOP, PCD_GETSECTORFLOORZ, 3, 0, 0, YES, NO },
|
||||
{ "getsectorceilingz", PCD_NOP, PCD_GETSECTORCEILINGZ, 3, 0, 0, YES, NO },
|
||||
{ "getsigilpieces", PCD_NOP, PCD_GETSIGILPIECES, 0, 0, 0, YES, NO },
|
||||
{ "getlevelinfo", PCD_NOP, PCD_GETLEVELINFO, 1, 0, 0, YES, NO },
|
||||
{ "changesky", PCD_NOP, PCD_CHANGESKY, 2, 0, 0, NO, NO },
|
||||
{ "playeringame", PCD_NOP, PCD_PLAYERINGAME, 1, 0, 0, YES, NO },
|
||||
{ "playerisbot", PCD_NOP, PCD_PLAYERISBOT, 1, 0, 0, YES, NO },
|
||||
{ "setcameratotexture", PCD_NOP, PCD_SETCAMERATOTEXTURE, 3, 0, 0, NO, NO },
|
||||
{ "grabinput", PCD_NOP, PCD_GRABINPUT, 2, 0, 0, NO, NO },
|
||||
{ "setmousepointer", PCD_NOP, PCD_SETMOUSEPOINTER, 3, 0, 0, NO, NO },
|
||||
{ "movemousepointer", PCD_NOP, PCD_MOVEMOUSEPOINTER, 2, 0, 0, NO, NO },
|
||||
{ "getammocapacity", PCD_NOP, PCD_GETAMMOCAPACITY, 1, 0, 0, YES, NO },
|
||||
{ "setammocapacity", PCD_NOP, PCD_SETAMMOCAPACITY, 2, 0, 0, NO, NO },
|
||||
{ "setactorangle", PCD_NOP, PCD_SETACTORANGLE, 2, 0, 0, NO, NO },
|
||||
|
||||
{ NULL, PCD_NOP, PCD_NOP, 0, 0, 0, NO, NO }
|
||||
};
|
||||
|
||||
static char *SymbolTypeNames[] =
|
||||
{
|
||||
"SY_DUMMY",
|
||||
"SY_LABEL",
|
||||
"SY_SCRIPTVAR",
|
||||
"SY_SCRIPTALIAS",
|
||||
"SY_MAPVAR",
|
||||
"SY_WORLDVAR",
|
||||
"SY_GLOBALVAR",
|
||||
"SY_MAPARRAY",
|
||||
"SY_WORLDARRAY",
|
||||
"SY_GLOBALARRAY",
|
||||
"SY_SPECIAL",
|
||||
"SY_CONSTANT",
|
||||
"SY_INTERNFUNC",
|
||||
"SY_SCRIPTFUNC"
|
||||
};
|
||||
|
||||
// CODE --------------------------------------------------------------------
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// SY_Init
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
void SY_Init(void)
|
||||
{
|
||||
symbolNode_t *sym;
|
||||
internFuncDef_t *def;
|
||||
|
||||
LocalRoot = NULL;
|
||||
GlobalRoot = NULL;
|
||||
for(def = InternalFunctions; def->name != NULL; def++)
|
||||
{
|
||||
sym = SY_InsertGlobal(def->name, SY_INTERNFUNC);
|
||||
sym->info.internFunc.directCommand = def->directCommand;
|
||||
sym->info.internFunc.stackCommand = def->stackCommand;
|
||||
sym->info.internFunc.argCount = def->argCount;
|
||||
sym->info.internFunc.optMask = def->optMask;
|
||||
sym->info.internFunc.outMask = def->outMask;
|
||||
sym->info.internFunc.hasReturnValue = def->hasReturnValue;
|
||||
sym->info.internFunc.latent = def->latent;
|
||||
}
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// SY_Find
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
symbolNode_t *SY_Find(char *name)
|
||||
{
|
||||
symbolNode_t *node;
|
||||
|
||||
if((node = SY_FindGlobal(name)) == NULL)
|
||||
{
|
||||
return SY_FindLocal(name);
|
||||
}
|
||||
return node;
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// SY_FindGlobal
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
symbolNode_t *SY_FindGlobal(char *name)
|
||||
{
|
||||
symbolNode_t *sym = Find(name, GlobalRoot);
|
||||
if(sym != NULL && sym->unused)
|
||||
{
|
||||
MS_Message(MSG_DEBUG, "Symbol %s marked as used.\n", name);
|
||||
sym->unused = NO;
|
||||
if(sym->type == SY_SCRIPTFUNC)
|
||||
{
|
||||
PC_AddFunction(sym);
|
||||
}
|
||||
else if(sym->type == SY_MAPVAR)
|
||||
{
|
||||
if(pa_MapVarCount >= MAX_MAP_VARIABLES)
|
||||
{
|
||||
ERR_Error(ERR_TOO_MANY_MAP_VARS, YES);
|
||||
}
|
||||
else
|
||||
{
|
||||
sym->info.var.index = pa_MapVarCount++;
|
||||
PC_NameMapVariable(sym->info.var.index, sym);
|
||||
}
|
||||
}
|
||||
else if(sym->type == SY_MAPARRAY)
|
||||
{
|
||||
if(pa_MapVarCount >= MAX_MAP_VARIABLES)
|
||||
{
|
||||
ERR_Error(ERR_TOO_MANY_MAP_VARS, YES);
|
||||
}
|
||||
else
|
||||
{
|
||||
sym->info.array.index = pa_MapVarCount++;
|
||||
PC_NameMapVariable(sym->info.array.index, sym);
|
||||
if(sym->type == SY_MAPARRAY)
|
||||
{
|
||||
PC_AddArray(sym->info.array.index, sym->info.array.size);
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
return sym;
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// SY_Findlocal
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
symbolNode_t *SY_FindLocal(char *name)
|
||||
{
|
||||
return Find(name, LocalRoot);
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// Find
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
static symbolNode_t *Find(char *name, symbolNode_t *root)
|
||||
{
|
||||
int compare;
|
||||
symbolNode_t *node;
|
||||
|
||||
node = root;
|
||||
while(node != NULL)
|
||||
{
|
||||
compare = strcmp(name, node->name);
|
||||
if(compare == 0)
|
||||
{
|
||||
if(node->type != SY_DUMMY)
|
||||
{
|
||||
return node;
|
||||
}
|
||||
else
|
||||
{
|
||||
return NULL;
|
||||
}
|
||||
}
|
||||
node = compare < 0 ? node->left : node->right;
|
||||
}
|
||||
return NULL;
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// SY_InsertLocal
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
symbolNode_t *SY_InsertLocal(char *name, symbolType_t type)
|
||||
{
|
||||
if(Find(name, GlobalRoot))
|
||||
{
|
||||
ERR_Error(ERR_LOCAL_VAR_SHADOWED, YES);
|
||||
}
|
||||
MS_Message(MSG_DEBUG, "Inserting local identifier: %s (%s)\n",
|
||||
name, SymbolTypeNames[type]);
|
||||
return Insert(name, type, &LocalRoot);
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// SY_InsertGlobal
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
symbolNode_t *SY_InsertGlobal(char *name, symbolType_t type)
|
||||
{
|
||||
MS_Message(MSG_DEBUG, "Inserting global identifier: %s (%s)\n",
|
||||
name, SymbolTypeNames[type]);
|
||||
return Insert(name, type, &GlobalRoot);
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// SY_InsertGlobalUnique
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
symbolNode_t *SY_InsertGlobalUnique(char *name, symbolType_t type)
|
||||
{
|
||||
if(SY_FindGlobal(name) != NULL)
|
||||
{ // Redefined
|
||||
ERR_Exit(ERR_REDEFINED_IDENTIFIER, YES, name);
|
||||
}
|
||||
return SY_InsertGlobal(name, type);
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// Insert
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
static symbolNode_t *Insert(char *name, symbolType_t type,
|
||||
symbolNode_t **root)
|
||||
{
|
||||
int compare;
|
||||
symbolNode_t *newNode;
|
||||
symbolNode_t *node;
|
||||
|
||||
newNode = MS_Alloc(sizeof(symbolNode_t), ERR_NO_SYMBOL_MEM);
|
||||
newNode->name = MS_Alloc(strlen(name)+1, ERR_NO_SYMBOL_MEM);
|
||||
strcpy(newNode->name, name);
|
||||
newNode->left = newNode->right = NULL;
|
||||
newNode->type = type;
|
||||
newNode->unused = NO;
|
||||
newNode->imported = ImportMode == IMPORT_Importing;
|
||||
while((node = *root) != NULL)
|
||||
{
|
||||
compare = strcmp(name, node->name);
|
||||
root = compare < 0 ? &(node->left) : &(node->right);
|
||||
}
|
||||
*root = newNode;
|
||||
return(newNode);
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// SY_FreeLocals
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
void SY_FreeLocals(void)
|
||||
{
|
||||
MS_Message(MSG_DEBUG, "Freeing local identifiers\n");
|
||||
FreeNodes(LocalRoot);
|
||||
LocalRoot = NULL;
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// SY_FreeGlobals
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
void SY_FreeGlobals(void)
|
||||
{
|
||||
MS_Message(MSG_DEBUG, "Freeing global identifiers\n");
|
||||
FreeNodes(GlobalRoot);
|
||||
GlobalRoot = NULL;
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// FreeNodes
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
static void FreeNodes(symbolNode_t *root)
|
||||
{
|
||||
if(root == NULL)
|
||||
{
|
||||
return;
|
||||
}
|
||||
FreeNodes(root->left);
|
||||
FreeNodes(root->right);
|
||||
free(root->name);
|
||||
free(root);
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// SY_ClearShared
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
void SY_ClearShared(void)
|
||||
{
|
||||
MS_Message(MSG_DEBUG, "Marking library exports as unused\n");
|
||||
ClearShared(GlobalRoot);
|
||||
}
|
||||
|
||||
//==========================================================================
|
||||
//
|
||||
// ClearShared
|
||||
//
|
||||
//==========================================================================
|
||||
|
||||
static void ClearShared(symbolNode_t *root)
|
||||
{
|
||||
while(root != NULL)
|
||||
{
|
||||
if( root->type == SY_SCRIPTFUNC ||
|
||||
root->type == SY_MAPVAR ||
|
||||
root->type == SY_MAPARRAY)
|
||||
{
|
||||
root->unused = YES;
|
||||
}
|
||||
ClearShared(root->left);
|
||||
root = root->right;
|
||||
}
|
||||
}
|
||||
127
symbol.h
Normal file
127
symbol.h
Normal file
|
|
@ -0,0 +1,127 @@
|
|||
|
||||
//**************************************************************************
|
||||
//**
|
||||
//** symbol.h
|
||||
//**
|
||||
//**************************************************************************
|
||||
|
||||
#ifndef __SYMBOL_H__
|
||||
#define __SYMBOL_H__
|
||||
|
||||
// HEADER FILES ------------------------------------------------------------
|
||||
|
||||
#include "common.h"
|
||||
#include "pcode.h"
|
||||
|
||||
// MACROS ------------------------------------------------------------------
|
||||
|
||||
#define MAX_ARRAY_DIMS 8
|
||||
|
||||
// TYPES -------------------------------------------------------------------
|
||||
|
||||
typedef enum
|
||||
{
|
||||
SY_DUMMY,
|
||||
SY_LABEL,
|
||||
SY_SCRIPTVAR,
|
||||
SY_SCRIPTALIAS,
|
||||
SY_MAPVAR,
|
||||
SY_WORLDVAR,
|
||||
SY_GLOBALVAR,
|
||||
SY_MAPARRAY,
|
||||
SY_WORLDARRAY,
|
||||
SY_GLOBALARRAY,
|
||||
SY_SPECIAL,
|
||||
SY_CONSTANT,
|
||||
SY_INTERNFUNC,
|
||||
SY_SCRIPTFUNC
|
||||
} symbolType_t;
|
||||
|
||||
typedef struct
|
||||
{
|
||||
U_BYTE index;
|
||||
} symVar_t;
|
||||
|
||||
typedef struct
|
||||
{
|
||||
U_BYTE index;
|
||||
int dimensions[MAX_ARRAY_DIMS];
|
||||
int ndim;
|
||||
int size;
|
||||
} symArray_t;
|
||||
|
||||
typedef struct
|
||||
{
|
||||
int address;
|
||||
} symLabel_t;
|
||||
|
||||
typedef struct
|
||||
{
|
||||
U_BYTE value;
|
||||
int argCount;
|
||||
} symSpecial_t;
|
||||
|
||||
typedef struct
|
||||
{
|
||||
int value;
|
||||
} symConstant_t;
|
||||
|
||||
typedef struct
|
||||
{
|
||||
pcd_t directCommand;
|
||||
pcd_t stackCommand;
|
||||
int argCount;
|
||||
int optMask;
|
||||
int outMask;
|
||||
boolean hasReturnValue;
|
||||
boolean latent;
|
||||
} symInternFunc_t;
|
||||
|
||||
typedef struct
|
||||
{
|
||||
int address;
|
||||
int argCount;
|
||||
int varCount;
|
||||
int funcNumber;
|
||||
boolean hasReturnValue;
|
||||
int sourceLine;
|
||||
char *sourceName;
|
||||
boolean predefined;
|
||||
} symScriptFunc_t;
|
||||
|
||||
typedef struct symbolNode_s
|
||||
{
|
||||
struct symbolNode_s *left;
|
||||
struct symbolNode_s *right;
|
||||
char *name;
|
||||
symbolType_t type;
|
||||
boolean unused;
|
||||
boolean imported;
|
||||
union
|
||||
{
|
||||
symVar_t var;
|
||||
symArray_t array;
|
||||
symLabel_t label;
|
||||
symSpecial_t special;
|
||||
symConstant_t constant;
|
||||
symInternFunc_t internFunc;
|
||||
symScriptFunc_t scriptFunc;
|
||||
} info;
|
||||
} symbolNode_t;
|
||||
|
||||
// PUBLIC FUNCTION PROTOTYPES ----------------------------------------------
|
||||
|
||||
void SY_Init(void);
|
||||
symbolNode_t *SY_Find(char *name);
|
||||
symbolNode_t *SY_FindLocal(char *name);
|
||||
symbolNode_t *SY_FindGlobal(char *name);
|
||||
symbolNode_t *SY_InsertLocal(char *name, symbolType_t type);
|
||||
symbolNode_t *SY_InsertGlobal(char *name, symbolType_t type);
|
||||
symbolNode_t *SY_InsertGlobalUnique(char *name, symbolType_t type);
|
||||
void SY_FreeLocals(void);
|
||||
void SY_FreeGlobals(void);
|
||||
void SY_ClearShared(void);
|
||||
|
||||
// PUBLIC DATA DECLARATIONS ------------------------------------------------
|
||||
|
||||
#endif
|
||||
159
token.h
Normal file
159
token.h
Normal file
|
|
@ -0,0 +1,159 @@
|
|||
|
||||
//**************************************************************************
|
||||
//**
|
||||
//** token.h
|
||||
//**
|
||||
//**************************************************************************
|
||||
|
||||
#ifndef __TOKEN_H__
|
||||
#define __TOKEN_H__
|
||||
|
||||
// HEADER FILES ------------------------------------------------------------
|
||||
|
||||
#include "common.h"
|
||||
#include "error.h"
|
||||
|
||||
// MACROS ------------------------------------------------------------------
|
||||
|
||||
// TYPES -------------------------------------------------------------------
|
||||
|
||||
typedef enum
|
||||
{
|
||||
TK_NONE,
|
||||
TK_EOF,
|
||||
TK_IDENTIFIER, // VALUE: (char *) tk_String
|
||||
TK_STRING, // VALUE: (char *) tk_String
|
||||
TK_NUMBER, // VALUE: (int) tk_Number
|
||||
TK_LINESPECIAL, // VALUE: (int) tk_LineSpecial
|
||||
TK_PLUS, // '+'
|
||||
TK_MINUS, // '-'
|
||||
TK_ASTERISK, // '*'
|
||||
TK_SLASH, // '/'
|
||||
TK_PERCENT, // '%'
|
||||
TK_ASSIGN, // '='
|
||||
TK_ADDASSIGN, // '+='
|
||||
TK_SUBASSIGN, // '-='
|
||||
TK_MULASSIGN, // '*='
|
||||
TK_DIVASSIGN, // '/='
|
||||
TK_MODASSIGN, // '%='
|
||||
TK_INC, // '++'
|
||||
TK_DEC, // '--'
|
||||
TK_EQ, // '=='
|
||||
TK_NE, // '!='
|
||||
TK_LT, // '<'
|
||||
TK_GT, // '>'
|
||||
TK_LE, // '<='
|
||||
TK_GE, // '>='
|
||||
TK_LSHIFT, // '<<'
|
||||
TK_RSHIFT, // '>>'
|
||||
TK_ANDLOGICAL, // '&&'
|
||||
TK_ORLOGICAL, // '||'
|
||||
TK_ANDBITWISE, // '&'
|
||||
TK_ORBITWISE, // '|'
|
||||
TK_EORBITWISE, // '^'
|
||||
TK_TILDE, // '~'
|
||||
TK_LPAREN, // '('
|
||||
TK_RPAREN, // ')'
|
||||
TK_LBRACE, // '{'
|
||||
TK_RBRACE, // '}'
|
||||
TK_LBRACKET, // '['
|
||||
TK_RBRACKET, // ']'
|
||||
TK_COLON, // ':'
|
||||
TK_SEMICOLON, // ';'
|
||||
TK_COMMA, // ','
|
||||
TK_PERIOD, // '.'
|
||||
TK_NOT, // '!'
|
||||
TK_NUMBERSIGN, // '#'
|
||||
TK_CPPCOMMENT, // '//'
|
||||
TK_STARTCOMMENT, // '/*'
|
||||
TK_ENDCOMMENT, // '*/'
|
||||
TK_BREAK, // 'break'
|
||||
TK_CASE, // 'case'
|
||||
TK_CONST, // 'const'
|
||||
TK_CONTINUE, // 'continue'
|
||||
TK_DEFAULT, // 'default'
|
||||
TK_DEFINE, // 'define'
|
||||
TK_DO, // 'do'
|
||||
TK_ELSE, // 'else'
|
||||
TK_FOR, // 'for'
|
||||
TK_GOTO, // 'goto'
|
||||
TK_IF, // 'if'
|
||||
TK_INCLUDE, // 'include'
|
||||
TK_INT, // 'int'
|
||||
TK_OPEN, // 'open'
|
||||
TK_PRINT, // 'print'
|
||||
TK_PRINTBOLD, // 'printbold'
|
||||
TK_LOG, // 'log'
|
||||
TK_HUDMESSAGE, // 'hudmessage'
|
||||
TK_HUDMESSAGEBOLD, // 'hudmessagebold'
|
||||
TK_RESTART, // 'restart'
|
||||
TK_SCRIPT, // 'script'
|
||||
TK_SPECIAL, // 'special'
|
||||
TK_STR, // 'str'
|
||||
TK_SUSPEND, // 'suspend'
|
||||
TK_SWITCH, // 'switch'
|
||||
TK_TERMINATE, // 'terminate'
|
||||
TK_UNTIL, // 'until'
|
||||
TK_VOID, // 'void'
|
||||
TK_WHILE, // 'while'
|
||||
TK_WORLD, // 'world'
|
||||
TK_GLOBAL, // 'global'
|
||||
TK_RESPAWN, // 'respawn' [BC]
|
||||
TK_DEATH, // 'death' [BC]
|
||||
TK_ENTER, // 'enter' [BC]
|
||||
TK_PICKUP, // 'pickup' [BC]
|
||||
TK_BLUERETURN, // 'bluereturn' [BC]
|
||||
TK_REDRETURN, // 'redreturn' [BC]
|
||||
TK_WHITERETURN, // 'whitereturn' [BC]
|
||||
TK_NOCOMPACT, // 'nocompact'
|
||||
TK_LIGHTNING, // 'ligtning'
|
||||
TK_CREATETRANSLATION,// 'createtranslation'
|
||||
TK_FUNCTION, // 'function'
|
||||
TK_RETURN, // 'return'
|
||||
TK_WADAUTHOR, // 'wadauthor'
|
||||
TK_NOWADAUTHOR, // 'nowadauthor'
|
||||
TK_ACSEXECUTEWAIT, // 'acs_executewait'
|
||||
TK_ENCRYPTSTRINGS, // 'encryptstrings'
|
||||
TK_IMPORT, // 'import'
|
||||
TK_LIBRARY, // 'library'
|
||||
TK_LIBDEFINE, // 'libdefine'
|
||||
TK_BOOL, // 'bool'
|
||||
TK_NET, // 'net'
|
||||
TK_DISCONNECT, // 'disconnect'
|
||||
TK_UNLOADING, // 'unloading'
|
||||
TK_STATIC, // 'static'
|
||||
} tokenType_t;
|
||||
|
||||
// PUBLIC FUNCTION PROTOTYPES ----------------------------------------------
|
||||
|
||||
void TK_Init(void);
|
||||
void TK_OpenSource(char *fileName);
|
||||
void TK_Include(char *fileName);
|
||||
void TK_Import(char *fileName, enum ImportModes prevMode);
|
||||
void TK_CloseSource(void);
|
||||
tokenType_t TK_NextToken(void);
|
||||
int TK_NextCharacter(void);
|
||||
boolean TK_NextTokenMustBe(tokenType_t token, error_t error);
|
||||
boolean TK_TokenMustBe(tokenType_t token, error_t error);
|
||||
boolean TK_Member(tokenType_t *list);
|
||||
void TK_Undo(void);
|
||||
void TK_SkipLine(void);
|
||||
void TK_SkipPast(tokenType_t token);
|
||||
void TK_SkipTo(tokenType_t token);
|
||||
|
||||
// PUBLIC DATA DECLARATIONS ------------------------------------------------
|
||||
|
||||
extern tokenType_t tk_Token;
|
||||
extern int tk_Line;
|
||||
extern int tk_Number;
|
||||
extern char *tk_String;
|
||||
extern U_BYTE tk_SpecialValue;
|
||||
extern int tk_SpecialArgCount;
|
||||
extern char *tk_SourceName;
|
||||
extern int tk_IncludedLines;
|
||||
extern boolean forSemicolonHack;
|
||||
extern char MasterSourceLine[]; // master line - Ty 07jan2000
|
||||
extern int MasterSourcePos; // master position - Ty 07jan2000
|
||||
extern boolean ClearMasterSourceLine; // ready for new line - Ty 07jan2000
|
||||
|
||||
#endif
|
||||
15
zcommon.acs
Normal file
15
zcommon.acs
Normal file
|
|
@ -0,0 +1,15 @@
|
|||
|
||||
//**************************************************************************
|
||||
//**
|
||||
//** zcommon.acs
|
||||
//**
|
||||
//**************************************************************************
|
||||
|
||||
// If you are not using the -h command line switch and do not want to use
|
||||
// WadAuthor's error checker, you can uncomment the following line to shave
|
||||
// a few bytes off the size of compiled scripts.
|
||||
//#nowadauthor
|
||||
|
||||
#include "zspecial.acs"
|
||||
#include "zdefs.acs"
|
||||
#include "zwvars.acs"
|
||||
466
zdefs.acs
Normal file
466
zdefs.acs
Normal file
|
|
@ -0,0 +1,466 @@
|
|||
|
||||
//**************************************************************************
|
||||
//**
|
||||
//** zdefs.acs
|
||||
//**
|
||||
//** Common definitions for use when compiling ACS scripts for ZDoom
|
||||
//**
|
||||
//**************************************************************************
|
||||
|
||||
#define TRUE 1
|
||||
#define FALSE 0
|
||||
#define ON 1
|
||||
#define OFF 0
|
||||
#define YES 1
|
||||
#define NO 0
|
||||
|
||||
#define LINE_FRONT 0
|
||||
#define LINE_BACK 1
|
||||
|
||||
#define SIDE_FRONT 0
|
||||
#define SIDE_BACK 1
|
||||
|
||||
#define TEXTURE_TOP 0
|
||||
#define TEXTURE_MIDDLE 1
|
||||
#define TEXTURE_BOTTOM 2
|
||||
|
||||
#define GAME_SINGLE_PLAYER 0
|
||||
#define GAME_NET_COOPERATIVE 1
|
||||
#define GAME_NET_DEATHMATCH 2
|
||||
#define GAME_TITLE_MAP 3
|
||||
|
||||
// Classes are only useful with Hexen
|
||||
#define CLASS_FIGHTER 0
|
||||
#define CLASS_CLERIC 1
|
||||
#define CLASS_MAGE 2
|
||||
|
||||
#define SKILL_VERY_EASY 0
|
||||
#define SKILL_EASY 1
|
||||
#define SKILL_NORMAL 2
|
||||
#define SKILL_HARD 3
|
||||
#define SKILL_VERY_HARD 4
|
||||
|
||||
#define BLOCK_NOTHING 0
|
||||
#define BLOCK_CREATURES 1
|
||||
#define BLOCK_EVERYTHING 2
|
||||
#define BLOCK_RAILING 3
|
||||
|
||||
#define SCROLL 0
|
||||
#define CARRY 1
|
||||
#define SCROLL_AND_CARRY 2
|
||||
|
||||
// Means-of-death for Sector_SetDamage --------------------------------------
|
||||
|
||||
#define MOD_UNKNOWN 0
|
||||
#define MOD_ROCKET 5
|
||||
#define MOD_R_SPLASH 6
|
||||
#define MOD_PLASMARIFLE 7
|
||||
#define MOD_BFG_BOOM 8
|
||||
#define MOD_BFG_SPLASH 9
|
||||
#define MOD_CHAINSAW 10
|
||||
#define MOD_SSHOTGUN 11
|
||||
#define MOD_WATER 12
|
||||
#define MOD_SLIME 13
|
||||
#define MOD_LAVA 14
|
||||
#define MOD_CRUSH 15
|
||||
#define MOD_TELEFRAG 16
|
||||
#define MOD_FALLING 17
|
||||
#define MOD_SUICIDE 18
|
||||
#define MOD_BARREL 19
|
||||
#define MOD_EXIT 20
|
||||
#define MOD_SPLASH 21
|
||||
#define MOD_HIT 22
|
||||
#define MOD_RAILGUN 23
|
||||
#define MOD_ICE 24
|
||||
#define MOD_DISINTEGRATE 25
|
||||
#define MOD_POISON 26
|
||||
#define MOD_ELECTRIC 27
|
||||
|
||||
// Return values for PlayMovie ----------------------------------------------
|
||||
|
||||
#define MOVIE_Played 0
|
||||
#define MOVIE_Played_NoVideo 1
|
||||
#define MOVIE_Played_Aborted 2
|
||||
#define MOVIE_Failed -1
|
||||
|
||||
|
||||
// Player properties --------------------------------------------------------
|
||||
|
||||
#define PROP_FROZEN 0
|
||||
#define PROP_NOTARGET 1
|
||||
#define PROP_INSTANTWEAPONSWITCH 2
|
||||
#define PROP_FLY 3
|
||||
#define PROP_TOTALLYFROZEN 4
|
||||
|
||||
// The following properties correspond to powers given by certain items
|
||||
#define PROP_INVULNERABILITY 5
|
||||
#define PROP_STRENGTH 6
|
||||
#define PROP_INVISIBILITY 7
|
||||
#define PROP_RADIATIONSUIT 8
|
||||
#define PROP_ALLMAP 9
|
||||
#define PROP_INFRARED 10
|
||||
#define PROP_WEAPONLEVEL2 11
|
||||
#define PROP_FLIGHT 12
|
||||
#define PROP_SPEED 15
|
||||
|
||||
// Text colors for hudmessage -----------------------------------------------
|
||||
|
||||
#define CR_UNTRANSLATED -1
|
||||
#define CR_BRICK 0
|
||||
#define CR_TAN 1
|
||||
#define CR_GRAY 2
|
||||
#define CR_GREY 2
|
||||
#define CR_GREEN 3
|
||||
#define CR_BROWN 4
|
||||
#define CR_GOLD 5
|
||||
#define CR_RED 6
|
||||
#define CR_BLUE 7
|
||||
#define CR_ORANGE 8
|
||||
#define CR_WHITE 9
|
||||
#define CR_YELLOW 10
|
||||
|
||||
// HUD message types --------------------------------------------------------
|
||||
|
||||
#define HUDMSG_PLAIN 0
|
||||
#define HUDMSG_FADEOUT 1
|
||||
#define HUDMSG_TYPEON 2
|
||||
#define HUDMSG_FADEINOUT 3
|
||||
|
||||
// OR this with one of the above to log the hudmessage to the console.
|
||||
// i.e. instead of HUDMSG_PLAIN, you can use HUDMSG_PLAIN | HUDMSG_LOG
|
||||
#define HUDMSG_LOG 0x80000000
|
||||
|
||||
// "Scripted" Marine weapon types -------------------------------------------
|
||||
|
||||
#define MARINEWEAPON_Dummy 0
|
||||
#define MARINEWEAPON_Fist 1
|
||||
#define MARINEWEAPON_BerserkFist 2
|
||||
#define MARINEWEAPON_Chainsaw 3
|
||||
#define MARINEWEAPON_Pistol 4
|
||||
#define MARINEWEAPON_Shotgun 5
|
||||
#define MARINEWEAPON_SuperShotgun 6
|
||||
#define MARINEWEAPON_Chaingun 7
|
||||
#define MARINEWEAPON_RocketLauncher 8
|
||||
#define MARINEWEAPON_PlasmaRifle 9
|
||||
#define MARINEWEAPON_Railgun 10
|
||||
#define MARINEWEAPON_BFG 11
|
||||
|
||||
// Actor properties you can get/set -----------------------------------------
|
||||
|
||||
#define APROP_Health 0
|
||||
#define APROP_Speed 1
|
||||
#define APROP_Damage 2
|
||||
#define APROP_Alpha 3
|
||||
#define APROP_RenderStyle 4
|
||||
#define APROP_Ambush 10
|
||||
#define APROP_Invulnerable 11
|
||||
#define APROP_SeeSound 5 // Sounds can only be set, not gotten
|
||||
#define APROP_AttackSound 6
|
||||
#define APROP_PainSound 7
|
||||
#define APROP_DeathSound 8
|
||||
#define APROP_ActiveSound 9
|
||||
|
||||
// Render Styles ------------------------------------------------------------
|
||||
|
||||
#define STYLE_None 0 // Do not draw
|
||||
#define STYLE_Normal 1 // Normal; just copy the image to the screen
|
||||
#define STYLE_Fuzzy 2 // Draw silhouette using "fuzz" effect
|
||||
#define STYLE_SoulTrans 3 // Draw translucent with amount in r_transsouls
|
||||
#define STYLE_OptFuzzy 4 // Draw as fuzzy or translucent, based on user preference
|
||||
#define STYLE_Translucent 64 // Draw translucent
|
||||
#define STYLE_Add 65 // Draw additive
|
||||
|
||||
// Properties you can use with GetLevelInfo() -------------------------------
|
||||
|
||||
#define LEVELINFO_PAR_TIME 0
|
||||
#define LEVELINFO_CLUSTERNUM 1
|
||||
#define LEVELINFO_LEVELNUM 2
|
||||
#define LEVELINFO_TOTAL_SECRETS 3
|
||||
#define LEVELINFO_FOUND_SECRETS 4
|
||||
#define LEVELINFO_TOTAL_ITEMS 5
|
||||
#define LEVELINFO_FOUND_ITEMS 6
|
||||
#define LEVELINFO_TOTAL_MONSTERS 7
|
||||
#define LEVELINFO_KILLED_MONSTERS 8
|
||||
#define LEVELINFO_SUCK_TIME 9
|
||||
|
||||
|
||||
// Shared spawnable things from Hexen. You can spawn these in the other -----
|
||||
// games if you provide sprites for them, otherwise they'll be invisible. ---
|
||||
|
||||
#define T_ROCK1 41
|
||||
#define T_ROCK2 42
|
||||
#define T_ROCK3 43
|
||||
#define T_DIRT1 44
|
||||
#define T_DIRT2 45
|
||||
#define T_DIRT3 46
|
||||
#define T_DIRT4 47
|
||||
#define T_DIRT5 48
|
||||
#define T_DIRT6 49
|
||||
#define T_STAINEDGLASS1 54
|
||||
#define T_STAINEDGLASS2 55
|
||||
#define T_STAINEDGLASS3 56
|
||||
#define T_STAINEDGLASS4 57
|
||||
#define T_STAINEDGLASS5 58
|
||||
#define T_STAINEDGLASS6 59
|
||||
#define T_STAINEDGLASS7 60
|
||||
#define T_STAINEDGLASS8 61
|
||||
#define T_STAINEDGLASS9 62
|
||||
#define T_STAINEDGLASS0 63
|
||||
|
||||
// Doom Spawnable things (used for thingcount() and thing spawners) ---------
|
||||
|
||||
#define T_NONE 0
|
||||
#define T_SHOTGUY 1
|
||||
#define T_CHAINGUY 2
|
||||
#define T_BARON 3
|
||||
#define T_ZOMBIE 4
|
||||
#define T_IMP 5
|
||||
#define T_ARACHNOTRON 6
|
||||
#define T_SPIDERMASTERMIND 7
|
||||
#define T_DEMON 8
|
||||
#define T_SPECTRE 9
|
||||
#define T_IMPFIREBALL 10
|
||||
#define T_CLIP 11
|
||||
#define T_SHELLS 12
|
||||
#define T_CACODEMON 19
|
||||
#define T_REVENANT 20
|
||||
#define T_BRIDGE 21
|
||||
#define T_ARMORBONUS 22
|
||||
#define T_STIMPACK 23
|
||||
#define T_MEDKIT 24
|
||||
#define T_SOULSPHERE 25
|
||||
#define T_SHOTGUN 27
|
||||
#define T_CHAINGUN 28
|
||||
#define T_ROCKETLAUNCHER 29
|
||||
#define T_PLASMAGUN 30
|
||||
#define T_BFG 31
|
||||
#define T_CHAINSAW 32
|
||||
#define T_SUPERSHOTGUN 33
|
||||
#define T_PLASMABOLT 51
|
||||
#define T_TRACER 53
|
||||
#define T_GREENARMOR 68
|
||||
#define T_BLUEARMOR 69
|
||||
#define T_CELL 75
|
||||
#define T_BLUEKEYCARD 85
|
||||
#define T_REDKEYCARD 86
|
||||
#define T_YELLOWKEYCARD 87
|
||||
#define T_YELLOWSKULLKEY 88
|
||||
#define T_REDSKULLKEY 89
|
||||
#define T_BLUESKULLKEY 90
|
||||
#define T_TEMPLARGEFLAME 98
|
||||
#define T_STEALTHBARON 100
|
||||
#define T_STEALTHKNIGHT 101
|
||||
#define T_STEALTHZOMBIE 102
|
||||
#define T_STEALTHSHOTGUY 103
|
||||
|
||||
#define T_LOSTSOUL 110
|
||||
#define T_VILE 111
|
||||
#define T_MANCUBUS 112
|
||||
#define T_HELLKNIGHT 113
|
||||
#define T_CYBERDEMON 114
|
||||
#define T_PAINELEMENTAL 115
|
||||
#define T_WOLFSS 116
|
||||
#define T_STEALTHARACHNOTRON 117
|
||||
#define T_STEALTHVILE 118
|
||||
#define T_STEALTHCACODEMON 119
|
||||
#define T_STEALTHCHAINGUY 120
|
||||
#define T_STEALTHSERGEANT 121
|
||||
#define T_STEALTHIMP 122
|
||||
#define T_STEALTHMANCUBUS 123
|
||||
#define T_STEALTHREVENANT 124
|
||||
#define T_BARREL 125
|
||||
#define T_CACODEMONSHOT 126
|
||||
#define T_ROCKET 127
|
||||
#define T_BFGSHOT 128
|
||||
#define T_ARACHNOTRONPLASMA 129
|
||||
#define T_BLOOD 130
|
||||
#define T_PUFF 131
|
||||
#define T_MEGASPHERE 132
|
||||
#define T_INVULNERABILITY 133
|
||||
#define T_BERSERK 134
|
||||
#define T_INVISIBILITY 135
|
||||
#define T_IRONFEET 136
|
||||
#define T_COMPUTERMAP 137
|
||||
#define T_LIGHTAMP 138
|
||||
#define T_AMMOBOX 139
|
||||
#define T_ROCKETAMMO 140
|
||||
#define T_ROCKETBOX 141
|
||||
#define T_BATTERY 142
|
||||
#define T_SHELLBOX 143
|
||||
#define T_BACKPACK 144
|
||||
#define T_GUTS 145
|
||||
#define T_BLOODPOOL 146
|
||||
#define T_BLOODPOOL1 147
|
||||
#define T_BLOODPOOL2 148
|
||||
#define T_FLAMINGBARREL 149
|
||||
#define T_BRAINS 150
|
||||
#define T_SCRIPTEDMARINE 151
|
||||
#define T_HEALTHBONUS 152
|
||||
#define T_MANCUBUSSHOT 153
|
||||
#define T_BARONBALL 154
|
||||
|
||||
// Heretic Spawnable things (used for thingcount() and thing spawners) ------
|
||||
|
||||
#define T_CLINK 1
|
||||
#define T_MUMMYLEADER 2
|
||||
#define T_BEAST 3
|
||||
#define T_MUMMY 4
|
||||
//#define T_IMP 5 // Defined above
|
||||
#define T_KNIGHT 6
|
||||
#define T_IMPLEADER 7
|
||||
#define T_MUMMYGHOST 8
|
||||
#define T_MUMMYLEADERGHOST 9
|
||||
//#define T_IMPFIREBALL 10
|
||||
#define T_WIMPYWANDAMMO 11
|
||||
#define T_HEFTYWANDAMMO 12
|
||||
#define T_ITEMEGG 14
|
||||
#define T_ITEMFLIGHT 15
|
||||
#define T_ITEMTELEPORT 18
|
||||
#define T_WIZARD 19
|
||||
#define T_IRONLICH 20
|
||||
#define T_ITEMHEALTHPOTION 23
|
||||
#define T_ITEMHEALTHFLASH 24
|
||||
#define T_ITEMHEALTHFULL 25
|
||||
#define T_CROSSBOW 27
|
||||
#define T_BLASTER 28
|
||||
#define T_PHOENIXROD 29
|
||||
#define T_SKULLROD 30
|
||||
#define T_MACE 31
|
||||
#define T_GAUNTLETS 32
|
||||
#define T_WIMPYCROSSBOWAMMO 33
|
||||
#define T_HEFTYCROSSBOWAMMO 34
|
||||
#define T_WIMPYMACEAMMO 35
|
||||
#define T_HEFTYMACEAMMO 36
|
||||
#define T_WIMPYBLASTERAMMO 37
|
||||
#define T_HEFTYBLASTERAMMO 38
|
||||
#define T_MORPHBLAST 40
|
||||
#define T_SHIELD1 68
|
||||
#define T_SHIELD2 69
|
||||
#define T_ITEMTIMEBOMB 72
|
||||
#define T_ITEMTORCH 73
|
||||
#define T_BLUEKEY 85
|
||||
#define T_GREENKEY 86
|
||||
#define T_YELLOWKEY 87
|
||||
|
||||
#define T_SOUND_WIND 110
|
||||
#define T_SOUND_WATERFALL 111
|
||||
|
||||
#define T_BEASTBALL 120
|
||||
#define T_FEATHER 121
|
||||
#define T_CHICKEN 122
|
||||
#define T_VOLCANOBALL 123
|
||||
#define T_TINYVOLCANOBALL 124
|
||||
#define T_POD 125
|
||||
#define T_PODGENERATOR 126
|
||||
#define T_KNIGHTAXE 127
|
||||
#define T_KNIGHTBLOODAXE 128
|
||||
#define T_KNIGHTGHOST 129
|
||||
#define T_MUMMYHEAD 131
|
||||
#define T_SNAKE 132
|
||||
#define T_ITEMINVULNERABILITY 133
|
||||
#define T_ITEMTOME 134
|
||||
#define T_ITEMINVISIBILITY 135
|
||||
#define T_ITEMBAGOFHOLDING 136
|
||||
#define T_ITEMALLMAP 137
|
||||
#define T_SNAKEPROJECTILE 138
|
||||
#define T_SNAKEPROJECTILEBIG 139
|
||||
#define T_WIZARDSHOT 140
|
||||
|
||||
// All D'Sparil teleport destinations must be spawned before D'Sparil alone.
|
||||
// D'Sparil can be spawned alone manually, and he is also spawned automatically
|
||||
// when he "dies" on his serpent.
|
||||
#define T_DSPARILTELEPORTDEST 141
|
||||
#define T_DSPARILONSERPENT 142
|
||||
#define T_DSPARILALONE 143
|
||||
#define T_SERPENTFIREBALL 144
|
||||
#define T_DSPARILBLUESHOT 145
|
||||
#define T_DSPARILWIZARDSPAWNER 146
|
||||
|
||||
#define T_CROSSBOWMAINBLAST 147
|
||||
#define T_CROSSBOWMINIBLAST 148
|
||||
#define T_CROSSBOWPOWERBLAST 149
|
||||
#define T_VOLCANO 150
|
||||
#define T_POWERWANDMINIBLAST 151
|
||||
#define T_POWERWANDBIGGERBLAST 152
|
||||
#define T_DEATHBALL 153
|
||||
#define T_NOGRAVITYMACEBALL 154
|
||||
#define T_BOUNCYMACEBALL 155
|
||||
#define T_HEAVYMACEBALL 156
|
||||
#define T_RIPPER 157
|
||||
#define T_WIMPYSKULLRODAMMO 158
|
||||
#define T_HEFTYSKULLRODAMMO 159
|
||||
#define T_SKULLRODBLAST 160
|
||||
#define T_WIMPYPHOENIXRODAMMO 161
|
||||
#define T_HEFTYPHOENIXRODAMMO 162
|
||||
#define T_PHOENIXSHOT 163
|
||||
#define T_IRONLICHBLUESHOT 164
|
||||
#define T_WHIRLWIND 165
|
||||
#define T_REDTELEGLITTER 166
|
||||
#define T_BLUETELEGLITTER 167
|
||||
|
||||
// Events when you have input grabbed
|
||||
|
||||
#define EV_KeyDown 1 // data1: unshifted ASCII, data2: shifted ASCII
|
||||
#define EV_KeyRepeat 2 // data1: unshifted ASCII, data2: shifted ASCII
|
||||
#define EV_KeyUp 3 // data1: unshifted ASCII, data2: shifted ASCII
|
||||
#define EV_Char 4 // data1: translated character for text input
|
||||
#define EV_MouseMove 5 // data1: x, data2: y
|
||||
#define EV_LButtonDown 6
|
||||
#define EV_LButtonUp 7
|
||||
#define EV_LButtonDblClick 8
|
||||
#define EV_MButtonDown 9
|
||||
#define EV_MButtonUp 10
|
||||
#define EV_MButtonDblClick 11
|
||||
#define EV_RButtonDown 12
|
||||
#define EV_RButtonUp 13
|
||||
#define EV_RButtonDblClick 14
|
||||
#define EV_WheelDown 15
|
||||
#define EV_WheelUp 16
|
||||
|
||||
// Key modifiers (or'd with event type)
|
||||
|
||||
#define GKM_SHIFT 256
|
||||
#define GKM_CTRL 512
|
||||
#define GKM_ALT 1024
|
||||
|
||||
// Button modifiers are only valid for EV_MouseMove events
|
||||
|
||||
#define GKM_LBUTTON 2048
|
||||
#define GKM_MBUTTON 4096
|
||||
#define GKM_RBUTTON 8192
|
||||
|
||||
// Special codes for some GUI keys, including a few real ASCII codes.
|
||||
|
||||
#define GK_PGDN 1
|
||||
#define GK_PGUP 2
|
||||
#define GK_HOME 3
|
||||
#define GK_END 4
|
||||
#define GK_LEFT 5
|
||||
#define GK_RIGHT 6
|
||||
#define GK_ALERT 7 // ASCII bell
|
||||
#define GK_BACKSPACE 8 // ASCII
|
||||
#define GK_TAB 9 // ASCII
|
||||
#define GK_LINEFEED 10 // ASCII
|
||||
#define GK_DOWN 10
|
||||
#define GK_VTAB 11 // ASCII
|
||||
#define GK_UP 11
|
||||
#define GK_FORMFEED 12 // ASCII
|
||||
#define GK_RETURN 13 // ASCII
|
||||
#define GK_F1 14
|
||||
#define GK_F2 15
|
||||
#define GK_F3 16
|
||||
#define GK_F4 17
|
||||
#define GK_F5 18
|
||||
#define GK_F6 19
|
||||
#define GK_F7 20
|
||||
#define GK_F8 21
|
||||
#define GK_F9 22
|
||||
#define GK_F10 23
|
||||
#define GK_F11 24
|
||||
#define GK_F12 25
|
||||
#define GK_DEL 26
|
||||
#define GK_ESCAPE 27 // ASCII
|
||||
#define GK_FREE1 28
|
||||
#define GK_FREE2 29
|
||||
#define GK_FREE3 30
|
||||
#define GK_CESCAPE 31 // color escape
|
||||
187
zspecial.acs
Normal file
187
zspecial.acs
Normal file
|
|
@ -0,0 +1,187 @@
|
|||
//**************************************************************************
|
||||
//**
|
||||
//** zspecials.acs
|
||||
//**
|
||||
//**************************************************************************
|
||||
|
||||
special
|
||||
80:ACS_Execute(2,5),
|
||||
81:ACS_Suspend(2),
|
||||
82:ACS_Terminate(2),
|
||||
83:ACS_LockedExecute(5),
|
||||
42:Ceiling_CrushAndRaise(3),
|
||||
44:Ceiling_CrushStop(1),
|
||||
43:Ceiling_LowerAndCrush(3),
|
||||
40:Ceiling_LowerByValue(3),
|
||||
41:Ceiling_RaiseByValue(3),
|
||||
45:Ceiling_CrushRaiseAndStay(3),
|
||||
69:Ceiling_MoveToValueTimes8(4),
|
||||
10:Door_Close(2),
|
||||
11:Door_Open(2,3),
|
||||
12:Door_Raise(3,4),
|
||||
13:Door_LockedRaise(4,5),
|
||||
20:Floor_LowerByValue(3),
|
||||
36:Floor_LowerByValueTimes8(3),
|
||||
66:Floor_LowerInstant(3),
|
||||
68:Floor_MoveToValueTimes8(4),
|
||||
21:Floor_LowerToLowest(2),
|
||||
22:Floor_LowerToNearest(2),
|
||||
28:Floor_RaiseAndCrush(3),
|
||||
23:Floor_RaiseByValue(3),
|
||||
35:Floor_RaiseByValueTimes8(3),
|
||||
67:Floor_RaiseInstant(3),
|
||||
24:Floor_RaiseToHighest(2),
|
||||
25:Floor_RaiseToNearest(2),
|
||||
95:FloorAndCeiling_LowerByValue(3),
|
||||
96:FloorAndCeiling_RaiseByValue(3),
|
||||
46:Floor_CrushStop(1),
|
||||
109:Light_ForceLightning(1),
|
||||
110:Light_RaiseByValue(2),
|
||||
111:Light_LowerByValue(2),
|
||||
112:Light_ChangeToValue(2),
|
||||
113:Light_Fade(3),
|
||||
114:Light_Glow(4),
|
||||
115:Light_Flicker(3),
|
||||
116:Light_Strobe(5),
|
||||
117:Light_Stop(1),
|
||||
29:Pillar_Build(3),
|
||||
94:Pillar_BuildAndCrush(4),
|
||||
30:Pillar_Open(4),
|
||||
62:Plat_DownWaitUpStay(3),
|
||||
63:Plat_DownByValue(4),
|
||||
64:Plat_UpWaitDownStay(3),
|
||||
65:Plat_UpByValue(4),
|
||||
60:Plat_PerpetualRaise(3),
|
||||
61:Plat_Stop(1),
|
||||
6:Polyobj_MoveTimes8(4),
|
||||
4:Polyobj_Move(4),
|
||||
2:Polyobj_RotateLeft(3),
|
||||
3:Polyobj_RotateRight(3),
|
||||
7:Polyobj_DoorSwing(4),
|
||||
8:Polyobj_DoorSlide(5),
|
||||
93:Polyobj_OR_MoveTimes8(4),
|
||||
92:Polyobj_OR_Move(4),
|
||||
90:Polyobj_OR_RotateLeft(3),
|
||||
91:Polyobj_OR_RotateRight(3),
|
||||
120:Radius_Quake(5),
|
||||
140:Sector_ChangeSound(2),
|
||||
26:Stairs_BuildDown(5),
|
||||
27:Stairs_BuildUp(5),
|
||||
31:Stairs_BuildDownSync(4),
|
||||
32:Stairs_BuildUpSync(4),
|
||||
70:Teleport(1,3),
|
||||
71:Teleport_NoFog(1,3),
|
||||
74:Teleport_NewMap(2,3),
|
||||
75:Teleport_EndGame(0),
|
||||
72:ThrustThing(2,4),
|
||||
73:DamageThing(1),
|
||||
130:Thing_Activate(1),
|
||||
131:Thing_Deactivate(1),
|
||||
133:Thing_Destroy(1,2),
|
||||
134:Thing_Projectile(5),
|
||||
136:Thing_ProjectileGravity(5),
|
||||
132:Thing_Remove(1),
|
||||
135:Thing_Spawn(3,4),
|
||||
137:Thing_SpawnNoFog(3,4),
|
||||
138:Floor_Waggle(5),
|
||||
|
||||
9:Line_Horizon(0),
|
||||
14:Door_Animated(3),
|
||||
15:Autosave(0),
|
||||
33:ForceField(0),
|
||||
34:ClearForceField(1),
|
||||
38:Ceiling_Waggle(5),
|
||||
39:Teleport_ZombieChanger(2),
|
||||
49:GlassBreak(0,1),
|
||||
76:TeleportOther(3),
|
||||
77:TeleportGroup(5),
|
||||
78:TeleportInSector(4,5),
|
||||
84:ACS_ExecuteWithResult(1,4),
|
||||
119:Thing_Damage(2,3),
|
||||
125:Thing_Move(2),
|
||||
127:Thing_SetSpecial(5),
|
||||
128:ThrustThingZ(4),
|
||||
139:Thing_SpawnFacing(2,4),
|
||||
172:Plat_UpNearestWaitDownStay(3),
|
||||
173:NoiseAlert(2),
|
||||
174:SendToCommunicator(4),
|
||||
175:Thing_ProjectileIntercept(5),
|
||||
176:Thing_ChangeTID(2),
|
||||
177:Thing_Hate(2,3),
|
||||
178:Thing_ProjectileAimed(4,5),
|
||||
179:ChangeSkill(1),
|
||||
180:Thing_SetTranslation(2),
|
||||
// 181:Plane_Align,
|
||||
182:Line_Mirror(0),
|
||||
183:Line_AlignCeiling(2),
|
||||
184:Line_AlignFloor(2),
|
||||
185:Sector_SetRotation(3),
|
||||
186:Sector_SetCeilingPanning(5),
|
||||
187:Sector_SetFloorPanning(5),
|
||||
188:Sector_SetCeilingScale(5),
|
||||
189:Sector_SetFloorScale(5),
|
||||
191:SetPlayerProperty(3),
|
||||
192:Ceiling_LowerToHighestFloor(2),
|
||||
193:Ceiling_LowerInstant(3),
|
||||
194:Ceiling_RaiseInstant(3),
|
||||
195:Ceiling_CrushRaiseAndStayA(4),
|
||||
196:Ceiling_CrushAndRaiseA(4),
|
||||
197:Ceiling_CrushAndRaiseSilentA(4),
|
||||
198:Ceiling_RaiseByValueTimes8(3),
|
||||
199:Ceiling_LowerByValueTimes8(3),
|
||||
200:Generic_Floor(5),
|
||||
201:Generic_Ceiling(5),
|
||||
202:Generic_Door(5),
|
||||
203:Generic_Lift(5),
|
||||
204:Generic_Stairs(5),
|
||||
205:Generic_Crusher(5),
|
||||
206:Plat_DownWaitUpStayLip(4,5),
|
||||
207:Plat_PerpetualRaiseLip(4),
|
||||
208:TranslucentLine(2,3),
|
||||
// 209:Transfer_Heights,
|
||||
// 210:Transfer_FloorLight,
|
||||
// 211:Transfer_CeilingLight,
|
||||
212:Sector_SetColor(4,5),
|
||||
213:Sector_SetFade(4),
|
||||
214:Sector_SetDamage(3),
|
||||
215:Teleport_Line(2),
|
||||
216:Sector_SetGravity(3),
|
||||
217:Stairs_BuildUpDoom(5),
|
||||
218:Sector_SetWind(4),
|
||||
219:Sector_SetFriction(2),
|
||||
220:Sector_SetCurrent(4),
|
||||
221:Scroll_Texture_Both(5),
|
||||
// 222:Scroll_Texture_Model,
|
||||
223:Scroll_Floor(4),
|
||||
224:Scroll_Ceiling(4),
|
||||
// 225:Scroll_Texture_Offsets,
|
||||
226:ACS_ExecuteAlways(2,5),
|
||||
// 227:PointPush_SetForce,
|
||||
228:Plat_RaiseAndStayTx0(2),
|
||||
229:Thing_SetGoal(3),
|
||||
230:Plat_UpByValueStayTx(3),
|
||||
231:Plat_ToggleCeiling(1),
|
||||
232:Light_StrobeDoom(3),
|
||||
233:Light_MinNeighbor(1),
|
||||
234:Light_MaxNeighbor(1),
|
||||
235:Floor_TransferTrigger(1),
|
||||
236:Floor_TransferNumeric(1),
|
||||
237:ChangeCamera(3),
|
||||
238:Floor_RaiseToLowestCeiling(2),
|
||||
239:Floor_RaiseByValueTxTy(3),
|
||||
240:Floor_RaiseByTexture(2),
|
||||
241:Floor_LowerToLowestTxTy(2),
|
||||
242:Floor_LowerToHighest(3),
|
||||
243:Exit_Normal(1),
|
||||
244:Exit_Secret(1),
|
||||
245:Elevator_RaiseToNearest(2),
|
||||
246:Elevator_MoveToFloor(2),
|
||||
247:Elevator_LowerToNearest(2),
|
||||
248:HealThing(1,2),
|
||||
249:Door_CloseWaitOpen(3),
|
||||
250:Floor_Donut(3),
|
||||
251:FloorAndCeiling_LowerRaise(3),
|
||||
252:Ceiling_RaiseToNearest(2),
|
||||
253:Ceiling_LowerToLowest(2),
|
||||
254:Ceiling_LowerToFloor(2),
|
||||
255:Ceiling_CrushRaiseAndStaySilA(4);
|
||||
8
zwvars.acs
Normal file
8
zwvars.acs
Normal file
|
|
@ -0,0 +1,8 @@
|
|||
|
||||
//**************************************************************************
|
||||
//**
|
||||
//** zwvars.acs
|
||||
//**
|
||||
//**************************************************************************
|
||||
|
||||
// include your world-variable declarations here.
|
||||
Loading…
Reference in a new issue