zdoom/acc
0
0
Fork 0
mirror of https://github.com/ZDoom/acc.git synced 2024-11-29 07:01:55 +00:00
Code Issues Projects Releases Packages Wiki Activity
acc/pcode.c

1610 lines
37 KiB
C
Raw Normal View History

Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
//**************************************************************************
//**
//** pcode.c
//**
//**************************************************************************
// HEADER FILES ------------------------------------------------------------
#include <string.h>
#include <stddef.h>
- Added the -hh switch, which works like the old -h but with an additional message if the scripts could not be written in a Hexen-compatible manner. - Fixed logic for Hexen-compatibility errors: pc_NoShrink by itself does not imply -h. SVN r3407 (trunk)
2012-03-08 22:06:57 +00:00
#include <stdio.h>
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
#include "pcode.h"
#include "common.h"
#include "error.h"
#include "misc.h"
#include "strlist.h"
#include "token.h"
#include "symbol.h"
#include "parse.h"
// MACROS ------------------------------------------------------------------
// TYPES -------------------------------------------------------------------
typedef struct scriptInfo_s
{
- Added support for named scripts. (Of course, without engine support, it doesn't matter. :) - Increase the maximum script number from 999 to 32767. - Only create dummy scripts for scripts WadAuthor's error checker might be interested in: If its number doesn't fit in a byte, WadAuthor doesn't need to know about it, because you can't call it directly from a Hexen-format map. SVN r3358 (trunk)
2012-02-15 00:21:37 +00:00
S_WORD number;
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
U_BYTE type;
U_BYTE argCount;
Add script/function arrays to ACC - Script arrays are semantically identical to map arrays: They have fixed sizes and can be multidimensional. They can also be initialized, although this is just syntactic sugar. e.g. int init_array[2] = { 10, 20 } produces code identical to: int init_array[2]; init_array[0] = 10; init_array[1] = 20; Script arrays are also implicitly initialized to 0, just like any other variable in ACS. - Unlike map arrays, they only exist for the life of the script, and each script gets its own copy of the array. - Script arrays exists in a separate space from script variables. I did not repeat the bullshittery of map arrays here. (I still have no idea what I was thinking when I designed them that way.) - Each script and function that uses local arrays is recorded with a new chunk: SARY for scripts and FARY for functions. The first two bytes are the script/function number, and the rest of the chunk consists of four-byte integers describing the size (in ints) of each array used by that script/function. To determine how many arrays a script/function uses, take the chunk length, subtract two, and divide by four.
2014-07-24 19:41:39 +00:00
U_BYTE arrayCount;
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
U_WORD varCount;
U_WORD flags;
int address;
int srcLine;
boolean imported;
Add script/function arrays to ACC - Script arrays are semantically identical to map arrays: They have fixed sizes and can be multidimensional. They can also be initialized, although this is just syntactic sugar. e.g. int init_array[2] = { 10, 20 } produces code identical to: int init_array[2]; init_array[0] = 10; init_array[1] = 20; Script arrays are also implicitly initialized to 0, just like any other variable in ACS. - Unlike map arrays, they only exist for the life of the script, and each script gets its own copy of the array. - Script arrays exists in a separate space from script variables. I did not repeat the bullshittery of map arrays here. (I still have no idea what I was thinking when I designed them that way.) - Each script and function that uses local arrays is recorded with a new chunk: SARY for scripts and FARY for functions. The first two bytes are the script/function number, and the rest of the chunk consists of four-byte integers describing the size (in ints) of each array used by that script/function. To determine how many arrays a script/function uses, take the chunk length, subtract two, and divide by four.
2014-07-24 19:41:39 +00:00
int arraySizes[MAX_SCRIPT_ARRAYS];
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
} scriptInfo_t;
typedef struct functionInfo_s
{
U_BYTE hasReturnValue;
U_BYTE argCount;
U_BYTE localCount;
Add script/function arrays to ACC - Script arrays are semantically identical to map arrays: They have fixed sizes and can be multidimensional. They can also be initialized, although this is just syntactic sugar. e.g. int init_array[2] = { 10, 20 } produces code identical to: int init_array[2]; init_array[0] = 10; init_array[1] = 20; Script arrays are also implicitly initialized to 0, just like any other variable in ACS. - Unlike map arrays, they only exist for the life of the script, and each script gets its own copy of the array. - Script arrays exists in a separate space from script variables. I did not repeat the bullshittery of map arrays here. (I still have no idea what I was thinking when I designed them that way.) - Each script and function that uses local arrays is recorded with a new chunk: SARY for scripts and FARY for functions. The first two bytes are the script/function number, and the rest of the chunk consists of four-byte integers describing the size (in ints) of each array used by that script/function. To determine how many arrays a script/function uses, take the chunk length, subtract two, and divide by four.
2014-07-24 19:41:39 +00:00
U_BYTE arrayCount;
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
int address;
int name;
Add script/function arrays to ACC - Script arrays are semantically identical to map arrays: They have fixed sizes and can be multidimensional. They can also be initialized, although this is just syntactic sugar. e.g. int init_array[2] = { 10, 20 } produces code identical to: int init_array[2]; init_array[0] = 10; init_array[1] = 20; Script arrays are also implicitly initialized to 0, just like any other variable in ACS. - Unlike map arrays, they only exist for the life of the script, and each script gets its own copy of the array. - Script arrays exists in a separate space from script variables. I did not repeat the bullshittery of map arrays here. (I still have no idea what I was thinking when I designed them that way.) - Each script and function that uses local arrays is recorded with a new chunk: SARY for scripts and FARY for functions. The first two bytes are the script/function number, and the rest of the chunk consists of four-byte integers describing the size (in ints) of each array used by that script/function. To determine how many arrays a script/function uses, take the chunk length, subtract two, and divide by four.
2014-07-24 19:41:39 +00:00
int arraySizes[MAX_SCRIPT_ARRAYS];
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
} functionInfo_t;
typedef struct mapVarInfo_s
{
int initializer;
boolean isString;
char *name;
boolean imported;
} mapVarInfo_t;
// EXTERNAL FUNCTION PROTOTYPES --------------------------------------------
// PUBLIC FUNCTION PROTOTYPES ----------------------------------------------
// PRIVATE FUNCTION PROTOTYPES ---------------------------------------------
static void GrowBuffer(void);
static void Append(void *buffer, size_t size);
static void Write(void *buffer, size_t size, int address);
static void Skip(size_t size);
static void CloseOld(void);
static void CloseNew(void);
static void CreateDummyScripts(void);
static void RecordDummyScripts(void);
// EXTERNAL DATA DECLARATIONS ----------------------------------------------
// PUBLIC DATA DEFINITIONS -------------------------------------------------
int pc_Address;
byte *pc_Buffer;
byte *pc_BufferPtr;
int pc_ScriptCount;
int pc_FunctionCount;
boolean pc_NoShrink;
boolean pc_HexenCase;
- Added the -hh switch, which works like the old -h but with an additional message if the scripts could not be written in a Hexen-compatible manner. - Fixed logic for Hexen-compatibility errors: pc_NoShrink by itself does not imply -h. SVN r3407 (trunk)
2012-03-08 22:06:57 +00:00
boolean pc_EnforceHexen;
boolean pc_WarnNotHexen;
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
boolean pc_WadAuthor = TRUE;
boolean pc_EncryptStrings;
int pc_LastAppendedCommand;
int pc_DummyAddress;
// PRIVATE DATA DEFINITIONS ------------------------------------------------
static size_t BufferSize;
static boolean ObjectOpened = NO;
static scriptInfo_t ScriptInfo[MAX_SCRIPT_COUNT];
static functionInfo_t FunctionInfo[MAX_FUNCTION_COUNT];
static int ArraySizes[MAX_MAP_VARIABLES];
static int *ArrayInits[MAX_MAP_VARIABLES];
static boolean ArrayOfStrings[MAX_MAP_VARIABLES];
static int NumArrays;
static mapVarInfo_t MapVariables[MAX_MAP_VARIABLES];
static boolean MapVariablesInit = NO;
static char ObjectName[MAX_FILE_NAME_LENGTH];
static int ObjectFlags;
static int PushByteAddr;
static char Imports[MAX_IMPORTS][9];
static int NumImports;
- Added support for named scripts. (Of course, without engine support, it doesn't matter. :) - Increase the maximum script number from 999 to 32767. - Only create dummy scripts for scripts WadAuthor's error checker might be interested in: If its number doesn't fit in a byte, WadAuthor doesn't need to know about it, because you can't call it directly from a Hexen-format map. SVN r3358 (trunk)
2012-02-15 00:21:37 +00:00
static boolean HaveExtendedScripts;
Add script/function arrays to ACC - Script arrays are semantically identical to map arrays: They have fixed sizes and can be multidimensional. They can also be initialized, although this is just syntactic sugar. e.g. int init_array[2] = { 10, 20 } produces code identical to: int init_array[2]; init_array[0] = 10; init_array[1] = 20; Script arrays are also implicitly initialized to 0, just like any other variable in ACS. - Unlike map arrays, they only exist for the life of the script, and each script gets its own copy of the array. - Script arrays exists in a separate space from script variables. I did not repeat the bullshittery of map arrays here. (I still have no idea what I was thinking when I designed them that way.) - Each script and function that uses local arrays is recorded with a new chunk: SARY for scripts and FARY for functions. The first two bytes are the script/function number, and the rest of the chunk consists of four-byte integers describing the size (in ints) of each array used by that script/function. To determine how many arrays a script/function uses, take the chunk length, subtract two, and divide by four.
2014-07-24 19:41:39 +00:00
static boolean HaveScriptArrays;
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
static char *PCDNames[PCODE_COMMAND_COUNT] =
{
"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",
- Renamed PlayerOnTeam with IsNetworkGame.
2016-06-19 23:39:15 +00:00
"PCD_ISNETWORKGAME",
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
"PCD_PLAYERTEAM",
"PCD_PLAYERHEALTH",
"PCD_PLAYERARMORPOINTS",
"PCD_PLAYERFRAGS",
"PCD_PLAYEREXPERT",
"PCD_BLUETEAMCOUNT",
"PCD_REDTEAMCOUNT",
"PCD_BLUETEAMSCORE",
"PCD_REDTEAMSCORE",
"PCD_ISONEFLAGCTF",
"PCD_LSPEC6",
"PCD_LSPEC6DIRECT",
"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",
"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_GELEVELINFO",
"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",
Added PCD_PRINTCOLOR support to ACC. SVN r305 (trunk)
2006-08-22 21:46:38 +00:00
"PCD_MOVEMOUSEPOINTER",
SVN r241 (trunk)
2006-07-09 20:15:38 +00:00
"PCD_SPAWNPROJECTILE",
"PCD_GETSECTORLIGHTLEVEL",
"PCD_GETACTORCEILINGZ",
"PCD_SETACTORPOSITION",
"PCD_CLEARACTORINVENTORY",
"PCD_GIVEACTORINVENTORY",
"PCD_TAKEACTORINVENTORY",
"PCD_CHECKACTORINVENTORY",
"PCD_THINGCOUNTNAME",
"PCD_SPAWNSPOTFACING",
- Generalized Hexen's class-based spawning to be a property of the player class so now it is available in all games. - Replaced the call to A_FlameSnd in the HereticPlayer's burn death sequence with A_FireScream and defined *burndeath for Heretic. - Added Grubber's custom player class support. SVN r250 (trunk)
2006-07-13 10:17:56 +00:00
"PCD_PLAYERCLASS",
- Added NecroMage's submission for bitwise/shift assignment operators for ACS. SVN r261 (trunk)
2006-07-16 20:13:24 +00:00
//[MW] start my p-codes
"PCD_ANDSCRIPTVAR",
"PCD_ANDMAPVAR",
"PCD_ANDWORLDVAR",
"PCD_ANDGLOBALVAR",
"PCD_ANDMAPARRAY",
"PCD_ANDWORLDARRAY",
"PCD_ANDGLOBALARRAY",
"PCD_EORSCRIPTVAR",
"PCD_EORMAPVAR",
"PCD_EORWORLDVAR",
"PCD_EORGLOBALVAR",
"PCD_EORMAPARRAY",
"PCD_EORWORLDARRAY",
"PCD_EORGLOBALARRAY",
"PCD_ORSCRIPTVAR",
"PCD_ORMAPVAR",
"PCD_ORWORLDVAR",
"PCD_ORGLOBALVAR",
"PCD_ORMAPARRAY",
"PCD_ORWORLDARRAY",
"PCD_ORGLOBALARRAY",
"PCD_LSSCRIPTVAR",
"PCD_LSMAPVAR",
"PCD_LSWORLDVAR",
"PCD_LSGLOBALVAR",
"PCD_LSMAPARRAY",
"PCD_LSWORLDARRAY",
"PCD_LSGLOBALARRAY",
"PCD_RSSCRIPTVAR",
"PCD_RSMAPVAR",
"PCD_RSWORLDVAR",
"PCD_RSGLOBALVAR",
"PCD_RSMAPARRAY",
"PCD_RSWORLDARRAY",
"PCD_RSGLOBALARRAY",
//[MW] end my p-codes
- Added Grubber's GetPlayerInfo ACS function. SVN r276 (trunk)
2006-07-30 22:56:20 +00:00
"PCD_GETPLAYERINFO",
August 10, 2006 (Changes by Graf Zahl) - Fixed: CheckActorInventory stored the return value in the wrong address on the ACS stack. - Fixed: Skin sounds weren't properly restored after a SNDINFO reset. - Added a more flexible ACS ChangeLevel function. It gets passed a level name instead of a level number and has several additional options (e.g. changing skill, starting the map without monsters and clearing the players' inventories. (UNTESTED!) - Changed Thing_Activate so that passing a tid of 0 activates the calling actor. - Changed Thing_Remove so that passing a tid of 0 removes the calling actor. - Added DECORATE parameters to A_Saw. SVN r283 (trunk)
2006-08-10 15:28:12 +00:00
"PCD_CHANGELEVEL",
Added PCD_SECTORDAMAGE and PCD_REPLACETEXTURES support. SVN r287 (trunk)
2006-08-12 02:30:14 +00:00
"PCD_SECTORDAMAGE",
"PCD_REPLACETEXTURES",
- Fixed: PrintAlias passed FString objects directly to Printf. - Added bitwise not (~) operator to ACS. SVN r352 (trunk)
2006-10-09 15:55:47 +00:00
"PCD_NEGATEBINARY",
- Added MF5_PIERCEARMOR flag that allows damaging objects that aren't affected by armor. - Added an unfreeze CCMD so that frozen players can be unfrozen for testing. - Added special death states for projectiles hitting actors. - Added ACS SetActorPitch/GetActorPitch functions. - Added cameraheight property for actors. SVN r359 (trunk)
2006-10-22 10:32:41 +00:00
"PCD_GETACTORPITCH",
"PCD_SETACTORPITCH",
- Fixed: In the Doom2 cast finale it was impossible to toggle the console. - Added APROP_Friendly actor property for ACS. - Added a new flag, MF2_DONTREFLECT that prevents missiles from being reflected. - Fixed: ALoreShot::DoSpecialDamage must check whether the shooter is still present. If it had been removed before the projectile hits its target a crash could occur. - Fixed: GetPlayerInfo was missing breaks and always returned 0 as a result. - Added Grubber's submission for printing key bindings in ACS. SVN r491 (trunk)
2007-02-24 12:09:36 +00:00
"PCD_PRINTBIND",
Committed ACC changes. SVN r516 (trunk)
2007-04-22 17:08:17 +00:00
"PCD_SETACTORSTATE",
"PCD_THINGDAMAGE2",
- added UseInventory/UseActorInventory ACS functions. SVN r636 (trunk)
2007-12-25 08:44:13 +00:00
"PCD_USEINVENTORY",
"PCD_USEACTORINVENTORY",
- fixed: A_CountdownArg used 0 based indices although all uses of it assumed it is 1-based. - added MF5_DONTRIP flag. - added CheckActorFloorTexture, CheckActorCeilingTexture and GetActorLightLevel ACS functions. - added IF_ADDITIVETIME flag to create powerups that add their duration to the one of the currently active item of the same type. - fixed: bouncecount wasn't decreased when bouncing on walls. - Added MF5_ALWAYSRESPAWN and MF5_NEVERRESPAWN flags that selectively enable or disable monster respawning regardless of skill setting. - Prettified deprecated flag handling. SVN r780 (trunk)
2008-03-01 16:59:17 +00:00
"PCD_CHECKACTORCEILINGTEXTURE",
"PCD_CHECKACTORFLOORTEXTURE",
"PCD_GETACTORLIGHTLEVEL",
- ACC related parts of SetMugShot addition. SVN r813 (trunk)
2008-03-19 09:53:57 +00:00
"PCD_SETMUGSHOTSTATE",
- ACC part of ThingCountSector SVN r829 (trunk)
2008-03-21 12:24:13 +00:00
"PCD_THINGCOUNTSECTOR",
"PCD_THINGCOUNTNAMESECTOR",
- ACC psrt of CheckPlayerCamera. SVN r913 (trunk)
2008-04-15 09:58:39 +00:00
"PCD_CHECKPLAYERCAMERA",
- ACC Changes for morph update. SVN r988 (trunk)
2008-05-22 19:36:21 +00:00
"PCD_MORPHACTOR",
"PCD_UNMORPHACTOR",
- Add ClassifyActor pcode to ACC. SVN r1309 (trunk)
2008-12-07 02:11:38 +00:00
"PCD_GETPLAYERINPUT",
- Add x and b casts for ACS printing. - Add ClassifyActor constants to zdefs.acs. SVN r1311 (trunk)
2008-12-07 03:59:06 +00:00
"PCD_CLASSIFYACTOR",
"PCD_PRINTBINARY",
"PCD_PRINTHEX",
- ACC changes for externally definable functions. SVN r1576 (trunk)
2009-05-11 21:07:27 +00:00
"PCD_CALLFUNC",
- Optimize away PCD_DUP when the preceding instruction is PCD_PUSHBYTE. - Added NamedScriptWait (PCD_SCRIPTWAITNAMED) and ACS_NamedExecuteWait. SVN r3755 (trunk)
2012-07-11 03:59:01 +00:00
"PCD_SAVESTRING", // [FDARI]
"PCD_PRINTMAPCHRANGE", // [FDARI] output range
- Fixed: Most recent p-codes were missing their names. SVN r3668 (trunk)
2012-05-31 03:01:25 +00:00
"PCD_PRINTWORLDCHRANGE",
"PCD_PRINTGLOBALCHRANGE",
"PCD_STRCPYTOMAPCHRANGE", // [FDARI] input range
"PCD_STRCPYTOWORLDCHRANGE",
"PCD_STRCPYTOGLOBALCHRANGE",
- Optimize away PCD_DUP when the preceding instruction is PCD_PUSHBYTE. - Added NamedScriptWait (PCD_SCRIPTWAITNAMED) and ACS_NamedExecuteWait. SVN r3755 (trunk)
2012-07-11 03:59:01 +00:00
"PCD_PUSHFUNCTION", // from Eternity
"PCD_CALLSTACK", // from Eternity
"PCD_SCRIPTWAITNAMED",
- Added desaturation translation support to ACC. This is the same as the % syntax introduced by DECORATE. Note that the values in the color range are fixed point numbers. i.e. You must use 1.0 and not 1. This is in keeping with the existing convention. SVN r3879 (trunk)
2012-09-20 02:26:58 +00:00
"PCD_TRANSLATIONRANGE3",
Add PCD_GOTOSTACK - It's not used. It's just there as a placeholder.
2014-07-25 23:10:50 +00:00
"PCD_GOTOSTACK",
Add script/function arrays to ACC - Script arrays are semantically identical to map arrays: They have fixed sizes and can be multidimensional. They can also be initialized, although this is just syntactic sugar. e.g. int init_array[2] = { 10, 20 } produces code identical to: int init_array[2]; init_array[0] = 10; init_array[1] = 20; Script arrays are also implicitly initialized to 0, just like any other variable in ACS. - Unlike map arrays, they only exist for the life of the script, and each script gets its own copy of the array. - Script arrays exists in a separate space from script variables. I did not repeat the bullshittery of map arrays here. (I still have no idea what I was thinking when I designed them that way.) - Each script and function that uses local arrays is recorded with a new chunk: SARY for scripts and FARY for functions. The first two bytes are the script/function number, and the rest of the chunk consists of four-byte integers describing the size (in ints) of each array used by that script/function. To determine how many arrays a script/function uses, take the chunk length, subtract two, and divide by four.
2014-07-24 19:41:39 +00:00
"PCD_ASSIGNSCRIPTARRAY",
"PCD_PUSHSCRIPTARRAY",
"PCD_ADDSCRIPTARRAY",
"PCD_SUBSCRIPTARRAY",
"PCD_MULSCRIPTARRAY",
"PCD_DIVSCRIPTARRAY",
"PCD_MODSCRIPTARRAY",
"PCD_INCSCRIPTARRAY",
"PCD_DECSCRIPTARRAY",
"PCD_ANDSCRIPTARRAY",
"PCD_EORSCRIPTARRAY",
"PCD_ORSCRIPTARRAY",
"PCD_LSSCRIPTARRAY",
"PCD_RSSCRIPTARRAY",
"PCD_PRINTSCRIPTCHARARRAY",
"PCD_PRINTSCRIPTCHRANGE",
"PCD_STRCPYTOSCRIPTCHRANGE",
- added new PCodes to handle action specials > 255. - added some new specials and parameters from EE.
2016-01-25 12:06:36 +00:00
"PCD_LSPEC5EX",
"PCD_LSPEC5EXRESULT",
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
};
// CODE --------------------------------------------------------------------
//==========================================================================
//
// PC_OpenObject
//
//==========================================================================
void PC_OpenObject(char *name, size_t size, int flags)
{
if(ObjectOpened == YES)
{
PC_CloseObject();
}
if(strlen(name) >= MAX_FILE_NAME_LENGTH)
{
ERR_Exit(ERR_FILE_NAME_TOO_LONG, NO, name);
}
strcpy(ObjectName, name);
pc_Buffer = MS_Alloc(size, ERR_ALLOC_PCODE_BUFFER);
pc_BufferPtr = pc_Buffer;
pc_Address = 0;
ObjectFlags = flags;
BufferSize = size;
pc_ScriptCount = 0;
ObjectOpened = YES;
PC_AppendString("ACS");
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
PC_SkipInt(); // Script table offset
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
}
//==========================================================================
//
// PC_CloseObject
//
//==========================================================================
void PC_CloseObject(void)
{
MS_Message(MSG_DEBUG, "---- PC_CloseObject ----\n");
while (pc_Address & 3)
{
PC_AppendByte (0);
}
Remove dead "language" code from ACC - This is a feature that never saw the light of day in this form, so get rid of its vestigial remnants. (Note that this is NOT the l: print formatter that causes the game to look up a string in the LANGUAGE lump.)
2014-07-24 20:16:30 +00:00
if(!pc_NoShrink || (NumStringLists > 0) ||
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
(pc_FunctionCount > 0) || MapVariablesInit || NumArrays != 0 ||
Add script/function arrays to ACC - Script arrays are semantically identical to map arrays: They have fixed sizes and can be multidimensional. They can also be initialized, although this is just syntactic sugar. e.g. int init_array[2] = { 10, 20 } produces code identical to: int init_array[2]; init_array[0] = 10; init_array[1] = 20; Script arrays are also implicitly initialized to 0, just like any other variable in ACS. - Unlike map arrays, they only exist for the life of the script, and each script gets its own copy of the array. - Script arrays exists in a separate space from script variables. I did not repeat the bullshittery of map arrays here. (I still have no idea what I was thinking when I designed them that way.) - Each script and function that uses local arrays is recorded with a new chunk: SARY for scripts and FARY for functions. The first two bytes are the script/function number, and the rest of the chunk consists of four-byte integers describing the size (in ints) of each array used by that script/function. To determine how many arrays a script/function uses, take the chunk length, subtract two, and divide by four.
2014-07-24 19:41:39 +00:00
pc_EncryptStrings || NumImports != 0 || HaveExtendedScripts ||
HaveScriptArrays)
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
{
- Added the -hh switch, which works like the old -h but with an additional message if the scripts could not be written in a Hexen-compatible manner. - Fixed logic for Hexen-compatibility errors: pc_NoShrink by itself does not imply -h. SVN r3407 (trunk)
2012-03-08 22:06:57 +00:00
if(pc_EnforceHexen)
{
ERR_Exit(ERR_NOT_HEXEN, NO);
}
if(pc_WarnNotHexen)
{
fprintf(stderr, "\nThese scripts have been upgraded because they use new features.\n"
"They will not be compatible with Hexen.\n");
}
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
CloseNew();
}
else
{
CloseOld();
}
if(MS_SaveFile(ObjectName, pc_Buffer, pc_Address) == FALSE)
{
ERR_Exit(ERR_SAVE_OBJECT_FAILED, NO);
}
}
//==========================================================================
//
// CloseOld
//
//==========================================================================
static void CloseOld(void)
{
int i;
STR_WriteStrings();
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
PC_WriteInt((U_INT)pc_Address, 4);
PC_AppendInt((U_INT)pc_ScriptCount);
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
for(i = 0; i < pc_ScriptCount; ++i)
{
scriptInfo_t *info = &ScriptInfo[i];
MS_Message(MSG_DEBUG, "Script %d, address = %d, arg count = %d\n",
info->number, info->address, info->argCount);
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
PC_AppendInt((U_INT)(info->number + info->type * 1000));
PC_AppendInt((U_INT)info->address);
PC_AppendInt((U_INT)info->argCount);
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
}
STR_WriteList();
}
//==========================================================================
//
// CloseNew
//
// Creates a new-format ACS file. For programs that don't know any better,
// this will look just like an old ACS file with no scripts or strings but
// with some extra junk in the middle. Both WadAuthor and DeePsea will not
// accept ACS files that do not have the ACS\0 header. Worse, WadAuthor
// will hang if the file begins with ACS\0 but does not look like something
// that might have been created with Raven's ACC. Thus, the chunks live in
// the string block, and there are two 0 dwords at the end of the file.
//
//==========================================================================
static void CloseNew(void)
{
int i, j, count;
int chunkStart;
if(pc_WadAuthor)
{
CreateDummyScripts();
}
chunkStart = pc_Address;
// Only write out those scripts that this acs file actually provides.
for(i = j = 0; i < pc_ScriptCount; ++i)
{
if(!ScriptInfo[i].imported)
{
++j;
}
}
if(j > 0)
{
PC_Append("SPTR", 4);
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
PC_AppendInt(j * 8);
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
for(i = 0; i < pc_ScriptCount; i++)
{
scriptInfo_t *info = &ScriptInfo[i];
if(!info->imported)
{
MS_Message(MSG_DEBUG, "Script %d, address = %d, arg count = %d\n",
info->number, info->address, info->argCount);
PC_AppendWord(info->number);
PC_AppendByte(info->type);
PC_AppendByte(info->argCount);
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
PC_AppendInt((U_INT)info->address);
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
}
}
}
// If any scripts have more than the maximum number of arguments, output them.
for(i = j = 0; i < pc_ScriptCount; ++i)
{
if(!ScriptInfo[i].imported && ScriptInfo[i].varCount > MAX_SCRIPT_VARIABLES)
{
++j;
}
}
if(j > 0)
{
PC_Append("SVCT", 4);
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
PC_AppendInt(j * 4);
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
for(i = 0; i < pc_ScriptCount; ++i)
{
scriptInfo_t *info = &ScriptInfo[i];
if(!info->imported && info->varCount > MAX_SCRIPT_VARIABLES)
{
MS_Message(MSG_DEBUG, "Script %d, var count = %d\n",
info->number, info->varCount);
PC_AppendWord(info->number);
PC_AppendWord(info->varCount);
}
}
}
// Write script flags in a separate chunk, so older ZDooms don't get confused
for(i = j = 0; i < pc_ScriptCount; ++i)
{
if(!ScriptInfo[i].imported && ScriptInfo[i].flags != 0)
{
++j;
}
}
if (j > 0)
{
PC_Append("SFLG", 4);
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
PC_AppendInt(j * 4);
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
for(i = 0; i < pc_ScriptCount; ++i)
{
scriptInfo_t *info = &ScriptInfo[i];
if(!info->imported && info->flags != 0)
{
PC_AppendWord(info->number);
PC_AppendWord(info->flags);
}
}
}
Add script/function arrays to ACC - Script arrays are semantically identical to map arrays: They have fixed sizes and can be multidimensional. They can also be initialized, although this is just syntactic sugar. e.g. int init_array[2] = { 10, 20 } produces code identical to: int init_array[2]; init_array[0] = 10; init_array[1] = 20; Script arrays are also implicitly initialized to 0, just like any other variable in ACS. - Unlike map arrays, they only exist for the life of the script, and each script gets its own copy of the array. - Script arrays exists in a separate space from script variables. I did not repeat the bullshittery of map arrays here. (I still have no idea what I was thinking when I designed them that way.) - Each script and function that uses local arrays is recorded with a new chunk: SARY for scripts and FARY for functions. The first two bytes are the script/function number, and the rest of the chunk consists of four-byte integers describing the size (in ints) of each array used by that script/function. To determine how many arrays a script/function uses, take the chunk length, subtract two, and divide by four.
2014-07-24 19:41:39 +00:00
// Add chunks for scripts with arrays
for(i = 0; i < pc_ScriptCount; ++i)
{
if(ScriptInfo[i].arrayCount)
{
PC_Append("SARY", 4);
PC_AppendInt(2 + ScriptInfo[i].arrayCount * 4);
PC_AppendWord(ScriptInfo[i].number);
for(j = 0; j < ScriptInfo[i].arrayCount; ++j)
{
PC_AppendInt(ScriptInfo[i].arraySizes[j]);
}
}
}
- Added support for named scripts. (Of course, without engine support, it doesn't matter. :) - Increase the maximum script number from 999 to 32767. - Only create dummy scripts for scripts WadAuthor's error checker might be interested in: If its number doesn't fit in a byte, WadAuthor doesn't need to know about it, because you can't call it directly from a Hexen-format map. SVN r3358 (trunk)
2012-02-15 00:21:37 +00:00
// Write the string table for named scripts.
STR_WriteListChunk(STRLIST_NAMEDSCRIPTS, MAKE4CC('S','N','A','M'), NO);
Add script/function arrays to ACC - Script arrays are semantically identical to map arrays: They have fixed sizes and can be multidimensional. They can also be initialized, although this is just syntactic sugar. e.g. int init_array[2] = { 10, 20 } produces code identical to: int init_array[2]; init_array[0] = 10; init_array[1] = 20; Script arrays are also implicitly initialized to 0, just like any other variable in ACS. - Unlike map arrays, they only exist for the life of the script, and each script gets its own copy of the array. - Script arrays exists in a separate space from script variables. I did not repeat the bullshittery of map arrays here. (I still have no idea what I was thinking when I designed them that way.) - Each script and function that uses local arrays is recorded with a new chunk: SARY for scripts and FARY for functions. The first two bytes are the script/function number, and the rest of the chunk consists of four-byte integers describing the size (in ints) of each array used by that script/function. To determine how many arrays a script/function uses, take the chunk length, subtract two, and divide by four.
2014-07-24 19:41:39 +00:00
// Write the functions provided by this file.
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
if(pc_FunctionCount > 0)
{
PC_Append("FUNC", 4);
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
PC_AppendInt(pc_FunctionCount * 8);
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
for(i = 0; i < pc_FunctionCount; ++i)
{
functionInfo_t *info = &FunctionInfo[i];
MS_Message(MSG_DEBUG, "Function %d:%s, address = %d, arg count = %d, var count = %d\n",
i, STR_GetString(STRLIST_FUNCTIONS, info->name),
info->address, info->argCount, info->localCount);
PC_AppendByte(info->argCount);
PC_AppendByte(info->localCount);
PC_AppendByte((U_BYTE)(info->hasReturnValue?1:0));
PC_AppendByte(0);
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
PC_AppendInt((U_INT)info->address);
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
}
STR_WriteListChunk(STRLIST_FUNCTIONS, MAKE4CC('F','N','A','M'), NO);
}
Add script/function arrays to ACC - Script arrays are semantically identical to map arrays: They have fixed sizes and can be multidimensional. They can also be initialized, although this is just syntactic sugar. e.g. int init_array[2] = { 10, 20 } produces code identical to: int init_array[2]; init_array[0] = 10; init_array[1] = 20; Script arrays are also implicitly initialized to 0, just like any other variable in ACS. - Unlike map arrays, they only exist for the life of the script, and each script gets its own copy of the array. - Script arrays exists in a separate space from script variables. I did not repeat the bullshittery of map arrays here. (I still have no idea what I was thinking when I designed them that way.) - Each script and function that uses local arrays is recorded with a new chunk: SARY for scripts and FARY for functions. The first two bytes are the script/function number, and the rest of the chunk consists of four-byte integers describing the size (in ints) of each array used by that script/function. To determine how many arrays a script/function uses, take the chunk length, subtract two, and divide by four.
2014-07-24 19:41:39 +00:00
// Add chunks for functions with arrays
for(i = 0; i < pc_FunctionCount; ++i)
{
if(FunctionInfo[i].arrayCount)
{
PC_Append("FARY", 4);
PC_AppendInt(2 + FunctionInfo[i].arrayCount * 4);
Fixed: scriptarray[i] += x generated &= x instead
2014-07-29 00:52:33 +00:00
PC_AppendWord((U_WORD)i);
Add script/function arrays to ACC - Script arrays are semantically identical to map arrays: They have fixed sizes and can be multidimensional. They can also be initialized, although this is just syntactic sugar. e.g. int init_array[2] = { 10, 20 } produces code identical to: int init_array[2]; init_array[0] = 10; init_array[1] = 20; Script arrays are also implicitly initialized to 0, just like any other variable in ACS. - Unlike map arrays, they only exist for the life of the script, and each script gets its own copy of the array. - Script arrays exists in a separate space from script variables. I did not repeat the bullshittery of map arrays here. (I still have no idea what I was thinking when I designed them that way.) - Each script and function that uses local arrays is recorded with a new chunk: SARY for scripts and FARY for functions. The first two bytes are the script/function number, and the rest of the chunk consists of four-byte integers describing the size (in ints) of each array used by that script/function. To determine how many arrays a script/function uses, take the chunk length, subtract two, and divide by four.
2014-07-24 19:41:39 +00:00
for(j = 0; j < FunctionInfo[i].arrayCount; ++j)
{
PC_AppendInt(FunctionInfo[i].arraySizes[j]);
}
}
}
Remove dead "language" code from ACC - This is a feature that never saw the light of day in this form, so get rid of its vestigial remnants. (Note that this is NOT the l: print formatter that causes the game to look up a string in the LANGUAGE lump.)
2014-07-24 20:16:30 +00:00
if(STR_ListSize() > 0)
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
{
Remove dead "language" code from ACC - This is a feature that never saw the light of day in this form, so get rid of its vestigial remnants. (Note that this is NOT the l: print formatter that causes the game to look up a string in the LANGUAGE lump.)
2014-07-24 20:16:30 +00:00
STR_WriteChunk(pc_EncryptStrings);
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
}
STR_WriteListChunk(STRLIST_PICS, MAKE4CC('P','I','C','S'), NO);
if(MapVariablesInit)
{
int j;
for(i = 0; i < pa_MapVarCount; ++i)
{
if(MapVariables[i].initializer != 0)
break;
}
for(j = pa_MapVarCount-1; j > i; --j)
{
if(MapVariables[j].initializer != 0)
break;
}
++j;
if (i < j)
{
PC_Append("MINI", 4);
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
PC_AppendInt((j-i)*4+4);
PC_AppendInt(i); // First map var defined
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
for(; i < j; ++i)
{
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
PC_AppendInt(MapVariables[i].initializer);
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
}
}
}
// If this is a library, record which map variables are
// initialized with strings.
if(ImportMode == IMPORT_Exporting)
{
count = 0;
for(i = 0; i < pa_MapVarCount; ++i)
{
if(MapVariables[i].isString)
{
++count;
}
}
if(count > 0)
{
PC_Append("MSTR", 4);
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
PC_AppendInt(count*4);
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
for(i = 0; i < pa_MapVarCount; ++i)
{
if(MapVariables[i].isString)
{
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
PC_AppendInt(i);
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
}
}
}
// Now do the same thing for arrays.
for(count = 0, i = 0; i < pa_MapVarCount; ++i)
{
if(ArrayOfStrings[i])
{
++count;
}
}
if(count > 0)
{
PC_Append("ASTR", 4);
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
PC_AppendInt(count*4);
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
for(i = 0; i < pa_MapVarCount; ++i)
{
if(ArrayOfStrings[i])
{
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
PC_AppendInt(i);
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
}
}
}
}
// Publicize the names of map variables in a library.
if(ImportMode == IMPORT_Exporting)
{
for(i = 0; i < pa_MapVarCount; ++i)
{
if(!MapVariables[i].imported)
{
STR_AppendToList(STRLIST_MAPVARS, MapVariables[i].name);
}
else
{
STR_AppendToList(STRLIST_MAPVARS, NULL);
}
}
STR_WriteListChunk(STRLIST_MAPVARS, MAKE4CC('M','E','X','P'), NO);
}
// Record the names of imported map variables
count = 0;
for(i = 0; i < pa_MapVarCount; ++i)
{
if(MapVariables[i].imported && !ArraySizes[i])
{
count += 5 + strlen(MapVariables[i].name);
}
}
if(count > 0)
{
PC_Append("MIMP", 4);
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
PC_AppendInt(count);
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
for(i = 0; i < pa_MapVarCount; ++i)
{
if(MapVariables[i].imported && !ArraySizes[i])
{
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
PC_AppendInt(i);
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
PC_AppendString(MapVariables[i].name);
}
}
}
if(NumArrays)
{
int count;
// Arrays defined here
for(count = 0, i = 0; i < pa_MapVarCount; ++i)
{
if(ArraySizes[i] && !MapVariables[i].imported)
{
++count;
}
}
if(count)
{
PC_Append("ARAY", 4);
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
PC_AppendInt(count*8);
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
for(i = 0; i < pa_MapVarCount; ++i)
{
if(ArraySizes[i] && !MapVariables[i].imported)
{
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
PC_AppendInt(i);
PC_AppendInt(ArraySizes[i]);
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
}
}
for(i = 0; i < pa_MapVarCount; ++i)
{
if(ArrayInits[i])
{
int j;
PC_Append("AINI", 4);
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
PC_AppendInt(ArraySizes[i]*4+4);
PC_AppendInt((U_INT)i);
- Better error message for trying to cram too many values into an array. - Fixed: Array initialization in ACC was incorrect for partial initializers, especially with higher dimensions. SVN r2416 (trunk)
2010-07-08 22:08:20 +00:00
MS_Message(MSG_DEBUG, "Writing array initializers for array %d (size %d)\n", i, ArraySizes[i]);
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
for(j = 0; j < ArraySizes[i]; ++j)
{
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
PC_AppendInt((U_INT)ArrayInits[i][j]);
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
}
}
}
}
// Arrays imported from elsewhere
for(count = 0, j = i = 0; i < pa_MapVarCount; ++i)
{
if(ArraySizes[i] && MapVariables[i].imported)
{
count += 9 + strlen(MapVariables[i].name);
++j;
}
}
if(count)
{
PC_Append("AIMP", 4);
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
PC_AppendInt(count+4);
PC_AppendInt(j);
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
for(i = 0; i < pa_MapVarCount; ++i)
{
if(ArraySizes[i] && MapVariables[i].imported)
{
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
PC_AppendInt(i);
PC_AppendInt(ArraySizes[i]);
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
PC_AppendString(MapVariables[i].name);
}
}
}
}
// Add a dummy chunk to indicate if this object is a library.
if(ImportMode == IMPORT_Exporting)
{
PC_Append("ALIB", 4);
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
PC_AppendInt(0);
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
}
// Record libraries imported by this object.
if(NumImports > 0)
{
count = 0;
for(i = 0; i < NumImports; ++i)
{
count += strlen(Imports[i]) + 1;
}
if(count > 0)
{
PC_Append("LOAD", 4);
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
PC_AppendInt(count);
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
for(i = 0; i < NumImports; ++i)
{
PC_AppendString(Imports[i]);
}
}
}
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
PC_AppendInt((U_INT)chunkStart);
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
if(pc_NoShrink)
{
PC_Append("ACSE", 4);
}
else
{
PC_Append("ACSe", 4);
}
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
PC_WriteInt((U_INT)pc_Address, 4);
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
// WadAuthor compatibility when creating a library is pointless, because
// that editor does not know anything about libraries and will never
// find their scripts ever.
if(pc_WadAuthor && ImportMode != IMPORT_Exporting)
{
RecordDummyScripts();
}
else
{
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
PC_AppendInt(0);
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
}
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
PC_AppendInt(0);
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
}
//==========================================================================
//
// CreateDummyScripts
//
//==========================================================================
static void CreateDummyScripts(void)
{
int i;
MS_Message(MSG_DEBUG, "Creating dummy scripts to make WadAuthor happy.\n");
if(pc_Address%4 != 0)
{ // Need to align
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
U_INT pad = 0;
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
PC_Append((void *)&pad, 4-(pc_Address%4));
}
pc_DummyAddress = pc_Address;
for(i = 0; i < pc_ScriptCount; ++i)
{
- Added support for named scripts. (Of course, without engine support, it doesn't matter. :) - Increase the maximum script number from 999 to 32767. - Only create dummy scripts for scripts WadAuthor's error checker might be interested in: If its number doesn't fit in a byte, WadAuthor doesn't need to know about it, because you can't call it directly from a Hexen-format map. SVN r3358 (trunk)
2012-02-15 00:21:37 +00:00
// Only create dummies for scripts WadAuthor could care about.
if(!ScriptInfo[i].imported && ScriptInfo[i].number >= 0 && ScriptInfo[i].number <= 255)
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
{
PC_AppendCmd(PCD_TERMINATE);
if(!pc_NoShrink)
{
PC_AppendCmd(PCD_NOP);
PC_AppendCmd(PCD_NOP);
PC_AppendCmd(PCD_NOP);
}
}
}
}
//==========================================================================
//
// RecordDummyScripts
//
//==========================================================================
static void RecordDummyScripts(void)
{
- Added support for named scripts. (Of course, without engine support, it doesn't matter. :) - Increase the maximum script number from 999 to 32767. - Only create dummy scripts for scripts WadAuthor's error checker might be interested in: If its number doesn't fit in a byte, WadAuthor doesn't need to know about it, because you can't call it directly from a Hexen-format map. SVN r3358 (trunk)
2012-02-15 00:21:37 +00:00
int i, j, count;
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
for(i = count = 0; i < pc_ScriptCount; ++i)
{
- Added support for named scripts. (Of course, without engine support, it doesn't matter. :) - Increase the maximum script number from 999 to 32767. - Only create dummy scripts for scripts WadAuthor's error checker might be interested in: If its number doesn't fit in a byte, WadAuthor doesn't need to know about it, because you can't call it directly from a Hexen-format map. SVN r3358 (trunk)
2012-02-15 00:21:37 +00:00
if(!ScriptInfo[i].imported && ScriptInfo[i].number >= 0 && ScriptInfo[i].number <= 255)
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
{
++count;
}
}
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
PC_AppendInt((U_INT)count);
- Added support for named scripts. (Of course, without engine support, it doesn't matter. :) - Increase the maximum script number from 999 to 32767. - Only create dummy scripts for scripts WadAuthor's error checker might be interested in: If its number doesn't fit in a byte, WadAuthor doesn't need to know about it, because you can't call it directly from a Hexen-format map. SVN r3358 (trunk)
2012-02-15 00:21:37 +00:00
for(i = j = 0; i < pc_ScriptCount; ++i)
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
{
scriptInfo_t *info = &ScriptInfo[i];
- Added support for named scripts. (Of course, without engine support, it doesn't matter. :) - Increase the maximum script number from 999 to 32767. - Only create dummy scripts for scripts WadAuthor's error checker might be interested in: If its number doesn't fit in a byte, WadAuthor doesn't need to know about it, because you can't call it directly from a Hexen-format map. SVN r3358 (trunk)
2012-02-15 00:21:37 +00:00
if(!info->imported && info->number >= 0 && ScriptInfo[i].number <= 255)
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
{
MS_Message(MSG_DEBUG, "Dummy script %d, address = %d, arg count = %d\n",
info->number, info->address, info->argCount);
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
PC_AppendInt((U_INT)info->number);
- Added support for named scripts. (Of course, without engine support, it doesn't matter. :) - Increase the maximum script number from 999 to 32767. - Only create dummy scripts for scripts WadAuthor's error checker might be interested in: If its number doesn't fit in a byte, WadAuthor doesn't need to know about it, because you can't call it directly from a Hexen-format map. SVN r3358 (trunk)
2012-02-15 00:21:37 +00:00
PC_AppendInt((U_INT)pc_DummyAddress + j*4);
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
PC_AppendInt((U_INT)info->argCount);
- Added support for named scripts. (Of course, without engine support, it doesn't matter. :) - Increase the maximum script number from 999 to 32767. - Only create dummy scripts for scripts WadAuthor's error checker might be interested in: If its number doesn't fit in a byte, WadAuthor doesn't need to know about it, because you can't call it directly from a Hexen-format map. SVN r3358 (trunk)
2012-02-15 00:21:37 +00:00
j++;
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
}
}
}
//==========================================================================
//
// GrowBuffer
//
//==========================================================================
void GrowBuffer(void)
{
ptrdiff_t buffpos = pc_BufferPtr - pc_Buffer;
BufferSize *= 2;
pc_Buffer = MS_Realloc(pc_Buffer, BufferSize, ERR_PCODE_BUFFER_OVERFLOW);
pc_BufferPtr = pc_Buffer + buffpos;
}
//==========================================================================
//
// PC_Append functions
//
//==========================================================================
static void Append(void *buffer, size_t size)
{
if (ImportMode != IMPORT_Importing)
{
if(pc_Address+size > BufferSize)
{
GrowBuffer ();
}
memcpy(pc_BufferPtr, buffer, size);
pc_BufferPtr += size;
pc_Address += size;
}
}
void PC_Append(void *buffer, size_t size)
{
if (ImportMode != IMPORT_Importing)
{
MS_Message(MSG_DEBUG, "AD> %06d = (%d bytes)\n", pc_Address, size);
Append(buffer, size);
}
}
void PC_AppendByte(U_BYTE val)
{
if (ImportMode != IMPORT_Importing)
{
MS_Message(MSG_DEBUG, "AB> %06d = %d\n", pc_Address, val);
Append(&val, sizeof(U_BYTE));
}
}
void PC_AppendWord(U_WORD val)
{
if (ImportMode != IMPORT_Importing)
{
MS_Message(MSG_DEBUG, "AW> %06d = %d\n", pc_Address, val);
val = MS_LittleUWORD(val);
Append(&val, sizeof(U_WORD));
}
}
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
void PC_AppendInt(U_INT val)
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
{
if (ImportMode != IMPORT_Importing)
{
MS_Message(MSG_DEBUG, "AL> %06d = %d\n", pc_Address, val);
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
val = MS_LittleUINT(val);
Append(&val, sizeof(U_INT));
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
}
}
void PC_AppendString(char *string)
{
if (ImportMode != IMPORT_Importing)
{
int length;
length = strlen(string)+1;
MS_Message(MSG_DEBUG, "AS> %06d = \"%s\" (%d bytes)\n",
pc_Address, string, length);
Append(string, length);
}
}
void PC_AppendCmd(pcd_t command)
{
- Optimize away PCD_DUP when the preceding instruction is PCD_PUSHBYTE. - Added NamedScriptWait (PCD_SCRIPTWAITNAMED) and ACS_NamedExecuteWait. SVN r3755 (trunk)
2012-07-11 03:59:01 +00:00
boolean dupbyte = NO;
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
if (ImportMode != IMPORT_Importing)
{
pc_LastAppendedCommand = command;
if (pc_NoShrink)
{
MS_Message(MSG_DEBUG, "AC> %06d = #%d:%s\n", pc_Address,
command, PCDNames[command]);
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
command = MS_LittleUINT(command);
Append(&command, sizeof(U_INT));
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
}
else
{
U_BYTE cmd;
- Optimize away PCD_DUP when the preceding instruction is PCD_PUSHBYTE. - Added NamedScriptWait (PCD_SCRIPTWAITNAMED) and ACS_NamedExecuteWait. SVN r3755 (trunk)
2012-07-11 03:59:01 +00:00
if (command == PCD_DUP && PushByteAddr)
{ // If the last instruction was PCD_PUSHBYTE, convert this PCD_DUP to a
// duplicate PCD_PUSHBYTE, so it can be merged into a single instruction below.
command = PCD_PUSHBYTE;
dupbyte = YES;
MS_Message(MSG_DEBUG, "AC> PCD_DUP changed to PCD_PUSHBYTE\n");
}
else if (command != PCD_PUSHBYTE && PushByteAddr)
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
{ // Maybe shrink a PCD_PUSHBYTE sequence into PCD_PUSHBYTES
int runlen = (pc_Address - PushByteAddr) / 2;
int i;
if (runlen > 5)
{
pc_Buffer[PushByteAddr] = PCD_PUSHBYTES;
for (i = 0; i < runlen; i++)
{
pc_Buffer[PushByteAddr+i+2] = pc_Buffer[PushByteAddr+i*2+1];
}
pc_Buffer[PushByteAddr+1] = runlen;
pc_Address = PushByteAddr + runlen + 2;
pc_BufferPtr = pc_Buffer + pc_Address;
- Optimize away PCD_DUP when the preceding instruction is PCD_PUSHBYTE. - Added NamedScriptWait (PCD_SCRIPTWAITNAMED) and ACS_NamedExecuteWait. SVN r3755 (trunk)
2012-07-11 03:59:01 +00:00
MS_Message(MSG_DEBUG, "AC> Last %d PCD_PUSHBYTEs changed to #%d:PCD_PUSHBYTES\n",
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
runlen, PCD_PUSHBYTES);
}
else if (runlen > 1)
{
pc_Buffer[PushByteAddr] = PCD_PUSH2BYTES + runlen - 2;
for (i = 1; i < runlen; i++)
{
pc_Buffer[PushByteAddr+1+i] = pc_Buffer[PushByteAddr+1+i*2];
}
pc_Address = PushByteAddr + runlen + 1;
pc_BufferPtr = pc_Buffer + pc_Address;
- Optimize away PCD_DUP when the preceding instruction is PCD_PUSHBYTE. - Added NamedScriptWait (PCD_SCRIPTWAITNAMED) and ACS_NamedExecuteWait. SVN r3755 (trunk)
2012-07-11 03:59:01 +00:00
MS_Message(MSG_DEBUG, "AC> Last %d PCD_PUSHBYTEs changed to #%d:PCD_PUSH%dBYTES\n",
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
runlen, PCD_PUSH2BYTES+runlen-2, runlen);
}
PushByteAddr = 0;
}
- Optimize away PCD_DUP when the preceding instruction is PCD_PUSHBYTE. - Added NamedScriptWait (PCD_SCRIPTWAITNAMED) and ACS_NamedExecuteWait. SVN r3755 (trunk)
2012-07-11 03:59:01 +00:00
else if(command == PCD_PUSHBYTE && PushByteAddr == 0)
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
{ // Remember the first PCD_PUSHBYTE, in case there are more
PushByteAddr = pc_Address;
}
MS_Message(MSG_DEBUG, "AC> %06d = #%d:%s\n", pc_Address,
command, PCDNames[command]);
if (command < 256-16)
{
cmd = command;
Append(&cmd, sizeof(U_BYTE));
}
else
{
// Room for expansion: The top 16 pcodes in the [0,255]
// range select a set of pcodes, and the next byte is
// the pcode in that set.
cmd = ((command - (256-16)) >> 8) + (256-16);
Append(&cmd, sizeof(U_BYTE));
cmd = (command - (256-16)) & 255;
Append(&cmd, sizeof(U_BYTE));
}
- Optimize away PCD_DUP when the preceding instruction is PCD_PUSHBYTE. - Added NamedScriptWait (PCD_SCRIPTWAITNAMED) and ACS_NamedExecuteWait. SVN r3755 (trunk)
2012-07-11 03:59:01 +00:00
if (dupbyte)
{
PC_AppendByte(pc_Buffer[pc_Address-2]);
}
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
}
}
}
//==========================================================================
//
// PC_AppendShrink
//
//==========================================================================
void PC_AppendShrink(U_BYTE val)
{
if(pc_NoShrink)
{
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
PC_AppendInt(val);
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
}
else
{
PC_AppendByte(val);
}
}
//==========================================================================
//
// PC_AppendPushVal
//
//==========================================================================
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
void PC_AppendPushVal(U_INT val)
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
{
if(pc_NoShrink || val > 255)
{
PC_AppendCmd(PCD_PUSHNUMBER);
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
PC_AppendInt(val);
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
}
else
{
PC_AppendCmd(PCD_PUSHBYTE);
PC_AppendByte((U_BYTE)val);
}
}
//==========================================================================
//
// PC_Write functions
//
//==========================================================================
static void Write(void *buffer, size_t size, int address)
{
if (ImportMode != IMPORT_Importing)
{
if(address+size > BufferSize)
{
GrowBuffer();
}
memcpy(pc_Buffer+address, buffer, size);
}
}
void PC_Write(void *buffer, size_t size, int address)
{
if (ImportMode != IMPORT_Importing)
{
MS_Message(MSG_DEBUG, "WD> %06d = (%d bytes)\n", address, size);
Write(buffer, size, address);
}
}
void PC_WriteByte(U_BYTE val, int address)
{
if (ImportMode != IMPORT_Importing)
{
MS_Message(MSG_DEBUG, "WB> %06d = %d\n", address, val);
Write(&val, sizeof(U_BYTE), address);
}
}
/*
void PC_WriteWord(U_WORD val, int address)
{
MS_Message(MSG_DEBUG, "WW> %06d = %d\n", address, val);
val = MS_LittleUWORD(val);
Write(&val, sizeof(U_WORD), address);
}
*/
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
void PC_WriteInt(U_INT val, int address)
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
{
if (ImportMode != IMPORT_Importing)
{
MS_Message(MSG_DEBUG, "WL> %06d = %d\n", address, val);
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
val = MS_LittleUINT(val);
Write(&val, sizeof(U_INT), address);
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
}
pc_LastAppendedCommand = PCD_NOP;
}
void PC_WriteString(char *string, int address)
{
if (ImportMode != IMPORT_Importing)
{
int length;
length = strlen(string)+1;
MS_Message(MSG_DEBUG, "WS> %06d = \"%s\" (%d bytes)\n",
address, string, length);
Write(string, length, address);
}
}
void PC_WriteCmd(pcd_t command, int address)
{
if (ImportMode != IMPORT_Importing)
{
MS_Message(MSG_DEBUG, "WC> %06d = #%d:%s\n", address,
command, PCDNames[command]);
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
command = MS_LittleUINT(command);
Write(&command, sizeof(U_INT), address);
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
}
}
//==========================================================================
//
// PC_Skip functions
//
//==========================================================================
static void Skip(size_t size)
{
if (ImportMode != IMPORT_Importing)
{
if(pc_Address+size > BufferSize)
{
GrowBuffer();
}
pc_BufferPtr += size;
pc_Address += size;
}
}
void PC_Skip(size_t size)
{
if (ImportMode != IMPORT_Importing)
{
MS_Message(MSG_DEBUG, "SD> %06d (skip %d bytes)\n", pc_Address, size);
Skip(size);
}
}
/*
void PC_SkipByte(void)
{
MS_Message(MSG_DEBUG, "SB> %06d (skip byte)\n", pc_Address);
Skip(sizeof(U_BYTE));
}
*/
/*
void PC_SkipWord(void)
{
MS_Message(MSG_DEBUG, "SW> %06d (skip word)\n", pc_Address);
Skip(sizeof(U_WORD));
}
*/
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
void PC_SkipInt(void)
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
{
if (ImportMode != IMPORT_Importing)
{
- added ACC 64bit patch from Agent ME. SVN r1073 (trunk)
2008-07-19 08:01:33 +00:00
MS_Message(MSG_DEBUG, "SL> %06d (skip int)\n", pc_Address);
Skip(sizeof(U_INT));
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
}
}
//==========================================================================
//
// PC_PutMapVariable
//
//==========================================================================
void PC_PutMapVariable(int index, int value)
{
if(index < MAX_MAP_VARIABLES)
{
MapVariables[index].isString = pa_ConstExprIsString;
MapVariables[index].initializer = value;
MapVariablesInit = YES;
- Added the -hh switch, which works like the old -h but with an additional message if the scripts could not be written in a Hexen-compatible manner. - Fixed logic for Hexen-compatibility errors: pc_NoShrink by itself does not imply -h. SVN r3407 (trunk)
2012-03-08 22:06:57 +00:00
if(pc_EnforceHexen)
{
- Removed pcode escalation with -h since the only thing is does is confuse people into thinking the ZDoom ACC is incompatible with Hexen. ACC will now produce an error when the user attempts to use a feature unsupported by the ACS0 bytecode format. SVN r3403 (trunk)
2012-03-06 01:56:14 +00:00
ERR_Error(ERR_HEXEN_COMPAT, YES);
- Added the -hh switch, which works like the old -h but with an additional message if the scripts could not be written in a Hexen-compatible manner. - Fixed logic for Hexen-compatibility errors: pc_NoShrink by itself does not imply -h. SVN r3407 (trunk)
2012-03-08 22:06:57 +00:00
}
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
}
}
//==========================================================================
//
// PC_NameMapVariable
//
//==========================================================================
void PC_NameMapVariable(int index, symbolNode_t *sym)
{
if(index < MAX_MAP_VARIABLES)
{
MapVariables[index].name = sym->name;
MapVariables[index].imported = sym->imported;
}
}
//==========================================================================
//
// PC_AddScript
//
//==========================================================================
- Added support for named scripts. (Of course, without engine support, it doesn't matter. :) - Increase the maximum script number from 999 to 32767. - Only create dummy scripts for scripts WadAuthor's error checker might be interested in: If its number doesn't fit in a byte, WadAuthor doesn't need to know about it, because you can't call it directly from a Hexen-format map. SVN r3358 (trunk)
2012-02-15 00:21:37 +00:00
void PC_AddScript(int number, int type, int flags, int argCount)
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
{
scriptInfo_t *script;
int i;
- Added support for named scripts. (Of course, without engine support, it doesn't matter. :) - Increase the maximum script number from 999 to 32767. - Only create dummy scripts for scripts WadAuthor's error checker might be interested in: If its number doesn't fit in a byte, WadAuthor doesn't need to know about it, because you can't call it directly from a Hexen-format map. SVN r3358 (trunk)
2012-02-15 00:21:37 +00:00
if (flags != 0 || number < 0 || number >= 1000)
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
{
- Added support for named scripts. (Of course, without engine support, it doesn't matter. :) - Increase the maximum script number from 999 to 32767. - Only create dummy scripts for scripts WadAuthor's error checker might be interested in: If its number doesn't fit in a byte, WadAuthor doesn't need to know about it, because you can't call it directly from a Hexen-format map. SVN r3358 (trunk)
2012-02-15 00:21:37 +00:00
HaveExtendedScripts = YES;
- Added the -hh switch, which works like the old -h but with an additional message if the scripts could not be written in a Hexen-compatible manner. - Fixed logic for Hexen-compatibility errors: pc_NoShrink by itself does not imply -h. SVN r3407 (trunk)
2012-03-08 22:06:57 +00:00
if(pc_EnforceHexen)
{
- Removed pcode escalation with -h since the only thing is does is confuse people into thinking the ZDoom ACC is incompatible with Hexen. ACC will now produce an error when the user attempts to use a feature unsupported by the ACS0 bytecode format. SVN r3403 (trunk)
2012-03-06 01:56:14 +00:00
ERR_Error(ERR_HEXEN_COMPAT, YES);
- Added the -hh switch, which works like the old -h but with an additional message if the scripts could not be written in a Hexen-compatible manner. - Fixed logic for Hexen-compatibility errors: pc_NoShrink by itself does not imply -h. SVN r3407 (trunk)
2012-03-08 22:06:57 +00:00
}
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
}
for (i = 0; i < pc_ScriptCount; i++)
{
if (ScriptInfo[i].number == number)
{
ERR_Error(ERR_SCRIPT_ALREADY_DEFINED, YES);
}
}
if(pc_ScriptCount == MAX_SCRIPT_COUNT)
{
ERR_Error(ERR_TOO_MANY_SCRIPTS, YES);
}
else
{
script = &ScriptInfo[pc_ScriptCount];
script->number = number;
script->type = type;
script->address = (ImportMode == IMPORT_Importing) ? 0 : pc_Address;
script->argCount = argCount;
script->flags = flags;
script->srcLine = tk_Line;
script->imported = (ImportMode == IMPORT_Importing) ? YES : NO;
Add script/function arrays to ACC - Script arrays are semantically identical to map arrays: They have fixed sizes and can be multidimensional. They can also be initialized, although this is just syntactic sugar. e.g. int init_array[2] = { 10, 20 } produces code identical to: int init_array[2]; init_array[0] = 10; init_array[1] = 20; Script arrays are also implicitly initialized to 0, just like any other variable in ACS. - Unlike map arrays, they only exist for the life of the script, and each script gets its own copy of the array. - Script arrays exists in a separate space from script variables. I did not repeat the bullshittery of map arrays here. (I still have no idea what I was thinking when I designed them that way.) - Each script and function that uses local arrays is recorded with a new chunk: SARY for scripts and FARY for functions. The first two bytes are the script/function number, and the rest of the chunk consists of four-byte integers describing the size (in ints) of each array used by that script/function. To determine how many arrays a script/function uses, take the chunk length, subtract two, and divide by four.
2014-07-24 19:41:39 +00:00
script->arrayCount = 0;
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
pc_ScriptCount++;
}
}
//==========================================================================
//
// PC_SetScriptVarCount
//
// Sets the number of local variables used by a script, including
// arguments.
//
//==========================================================================
Add script/function arrays to ACC - Script arrays are semantically identical to map arrays: They have fixed sizes and can be multidimensional. They can also be initialized, although this is just syntactic sugar. e.g. int init_array[2] = { 10, 20 } produces code identical to: int init_array[2]; init_array[0] = 10; init_array[1] = 20; Script arrays are also implicitly initialized to 0, just like any other variable in ACS. - Unlike map arrays, they only exist for the life of the script, and each script gets its own copy of the array. - Script arrays exists in a separate space from script variables. I did not repeat the bullshittery of map arrays here. (I still have no idea what I was thinking when I designed them that way.) - Each script and function that uses local arrays is recorded with a new chunk: SARY for scripts and FARY for functions. The first two bytes are the script/function number, and the rest of the chunk consists of four-byte integers describing the size (in ints) of each array used by that script/function. To determine how many arrays a script/function uses, take the chunk length, subtract two, and divide by four.
2014-07-24 19:41:39 +00:00
void PC_SetScriptVarCount(int number, int type, int varCount, int arrayCount, int *arraySizes)
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
{
int i;
for(i = 0; i < pc_ScriptCount; i++)
{
- Added support for named scripts. (Of course, without engine support, it doesn't matter. :) - Increase the maximum script number from 999 to 32767. - Only create dummy scripts for scripts WadAuthor's error checker might be interested in: If its number doesn't fit in a byte, WadAuthor doesn't need to know about it, because you can't call it directly from a Hexen-format map. SVN r3358 (trunk)
2012-02-15 00:21:37 +00:00
if(ScriptInfo[i].number == number && ScriptInfo[i].type == type)
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
{
ScriptInfo[i].varCount = varCount;
Add script/function arrays to ACC - Script arrays are semantically identical to map arrays: They have fixed sizes and can be multidimensional. They can also be initialized, although this is just syntactic sugar. e.g. int init_array[2] = { 10, 20 } produces code identical to: int init_array[2]; init_array[0] = 10; init_array[1] = 20; Script arrays are also implicitly initialized to 0, just like any other variable in ACS. - Unlike map arrays, they only exist for the life of the script, and each script gets its own copy of the array. - Script arrays exists in a separate space from script variables. I did not repeat the bullshittery of map arrays here. (I still have no idea what I was thinking when I designed them that way.) - Each script and function that uses local arrays is recorded with a new chunk: SARY for scripts and FARY for functions. The first two bytes are the script/function number, and the rest of the chunk consists of four-byte integers describing the size (in ints) of each array used by that script/function. To determine how many arrays a script/function uses, take the chunk length, subtract two, and divide by four.
2014-07-24 19:41:39 +00:00
if (arrayCount > 0 && arrayCount < MAX_SCRIPT_ARRAYS)
{
ScriptInfo[i].arrayCount = (U_BYTE)arrayCount;
memcpy(ScriptInfo[i].arraySizes, arraySizes, arrayCount * sizeof(int));
HaveScriptArrays = YES;
}
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
break;
}
}
}
//==========================================================================
//
// PC_AddFunction
//
//==========================================================================
Add script/function arrays to ACC - Script arrays are semantically identical to map arrays: They have fixed sizes and can be multidimensional. They can also be initialized, although this is just syntactic sugar. e.g. int init_array[2] = { 10, 20 } produces code identical to: int init_array[2]; init_array[0] = 10; init_array[1] = 20; Script arrays are also implicitly initialized to 0, just like any other variable in ACS. - Unlike map arrays, they only exist for the life of the script, and each script gets its own copy of the array. - Script arrays exists in a separate space from script variables. I did not repeat the bullshittery of map arrays here. (I still have no idea what I was thinking when I designed them that way.) - Each script and function that uses local arrays is recorded with a new chunk: SARY for scripts and FARY for functions. The first two bytes are the script/function number, and the rest of the chunk consists of four-byte integers describing the size (in ints) of each array used by that script/function. To determine how many arrays a script/function uses, take the chunk length, subtract two, and divide by four.
2014-07-24 19:41:39 +00:00
void PC_AddFunction(symbolNode_t *sym, int arrayCount, int *arraySizes)
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
{
functionInfo_t *function;
if(pc_FunctionCount == MAX_FUNCTION_COUNT)
{
ERR_Error(ERR_TOO_MANY_FUNCTIONS, YES, NULL);
}
function = &FunctionInfo[pc_FunctionCount];
function->hasReturnValue = (U_BYTE)sym->info.scriptFunc.hasReturnValue;
function->argCount = (U_BYTE)sym->info.scriptFunc.argCount;
function->localCount = (U_BYTE)sym->info.scriptFunc.varCount;
function->name = STR_AppendToList (STRLIST_FUNCTIONS, sym->name);
function->address = sym->info.scriptFunc.address;
sym->info.scriptFunc.funcNumber = pc_FunctionCount;
Add script/function arrays to ACC - Script arrays are semantically identical to map arrays: They have fixed sizes and can be multidimensional. They can also be initialized, although this is just syntactic sugar. e.g. int init_array[2] = { 10, 20 } produces code identical to: int init_array[2]; init_array[0] = 10; init_array[1] = 20; Script arrays are also implicitly initialized to 0, just like any other variable in ACS. - Unlike map arrays, they only exist for the life of the script, and each script gets its own copy of the array. - Script arrays exists in a separate space from script variables. I did not repeat the bullshittery of map arrays here. (I still have no idea what I was thinking when I designed them that way.) - Each script and function that uses local arrays is recorded with a new chunk: SARY for scripts and FARY for functions. The first two bytes are the script/function number, and the rest of the chunk consists of four-byte integers describing the size (in ints) of each array used by that script/function. To determine how many arrays a script/function uses, take the chunk length, subtract two, and divide by four.
2014-07-24 19:41:39 +00:00
if (arrayCount > 0 && arrayCount < MAX_SCRIPT_ARRAYS)
{
function->arrayCount = (U_BYTE)arrayCount;
memcpy(function->arraySizes, arraySizes, arrayCount * sizeof(int));
HaveScriptArrays = YES;
}
else
{
function->arrayCount = 0;
}
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
pc_FunctionCount++;
}
//==========================================================================
//
// PC_AddArray
//
//==========================================================================
void PC_AddArray(int index, int size)
{
NumArrays++;
ArraySizes[index] = size;
- Added the -hh switch, which works like the old -h but with an additional message if the scripts could not be written in a Hexen-compatible manner. - Fixed logic for Hexen-compatibility errors: pc_NoShrink by itself does not imply -h. SVN r3407 (trunk)
2012-03-08 22:06:57 +00:00
if(pc_EnforceHexen)
{
- Removed pcode escalation with -h since the only thing is does is confuse people into thinking the ZDoom ACC is incompatible with Hexen. ACC will now produce an error when the user attempts to use a feature unsupported by the ACS0 bytecode format. SVN r3403 (trunk)
2012-03-06 01:56:14 +00:00
ERR_Error(ERR_HEXEN_COMPAT, YES);
- Added the -hh switch, which works like the old -h but with an additional message if the scripts could not be written in a Hexen-compatible manner. - Fixed logic for Hexen-compatibility errors: pc_NoShrink by itself does not imply -h. SVN r3407 (trunk)
2012-03-08 22:06:57 +00:00
}
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
}
//==========================================================================
//
// PC_InitArray
//
//==========================================================================
void PC_InitArray(int index, int *entries, boolean hasStrings)
{
int i;
// If the array is just initialized to zeros, then we don't need to
// remember the initializer.
for(i = 0; i < ArraySizes[index]; ++i)
{
if(entries[i] != 0)
{
break;
}
}
if(i < ArraySizes[index])
{
ArrayInits[index] = MS_Alloc(ArraySizes[index]*sizeof(int), ERR_OUT_OF_MEMORY);
memcpy(ArrayInits[index], entries, ArraySizes[index]*sizeof(int));
}
ArrayOfStrings[index] = hasStrings;
}
//==========================================================================
//
// PC_AddImport
//
//==========================================================================
int PC_AddImport(char *name)
{
if (NumImports >= MAX_IMPORTS)
{
ERR_Exit(ERR_TOO_MANY_IMPORTS, YES);
}
- Added the -hh switch, which works like the old -h but with an additional message if the scripts could not be written in a Hexen-compatible manner. - Fixed logic for Hexen-compatibility errors: pc_NoShrink by itself does not imply -h. SVN r3407 (trunk)
2012-03-08 22:06:57 +00:00
else if(pc_EnforceHexen)
- Removed pcode escalation with -h since the only thing is does is confuse people into thinking the ZDoom ACC is incompatible with Hexen. ACC will now produce an error when the user attempts to use a feature unsupported by the ACS0 bytecode format. SVN r3403 (trunk)
2012-03-06 01:56:14 +00:00
{
- Added the -hh switch, which works like the old -h but with an additional message if the scripts could not be written in a Hexen-compatible manner. - Fixed logic for Hexen-compatibility errors: pc_NoShrink by itself does not imply -h. SVN r3407 (trunk)
2012-03-08 22:06:57 +00:00
ERR_Error(ERR_HEXEN_COMPAT, YES);
- Removed pcode escalation with -h since the only thing is does is confuse people into thinking the ZDoom ACC is incompatible with Hexen. ACC will now produce an error when the user attempts to use a feature unsupported by the ACS0 bytecode format. SVN r3403 (trunk)
2012-03-06 01:56:14 +00:00
}
Initial commit for ACC. SVN r8 (trunk)
2006-02-24 05:03:04 +00:00
strncpy(Imports[NumImports], name, 8);
return NumImports++;
}
Reference in a new issue Copy permalink