src/game_sp/DemoBufferObject.c

   1 // ----------------------------------------------------------------------------
   2 // DemoBufferObject.c
   3 // ----------------------------------------------------------------------------
   4
   5 #include "DemoBufferObject.h"
   6
   7 // static void Class_Terminate();
   8 // static int RemoveLastDemoKey();
   9
  10 // --- VERSION 1.0 CLASS
  11 // --- BEGIN
  12 // ---   MultiUse = -1  'True  // True
  13 // ---   Persistable = 0  'NotPersistable  // NotPersistable
  14 // ---   DataBindingBehavior = 0  'vbNone  // vbNone
  15 // ---   DataSourceBehavior  = 0  'vbNone  // vbNone
  16 // ---   MTSTransactionMode  = 0  'NotAnMTSObject  // NotAnMTSObject
  17 // --- END
  18
  19 // static char *VB_Name = "DemoBufferObject";
  20 // static boolean VB_GlobalNameSpace = False;
  21 // static boolean VB_Creatable = True;
  22 // static boolean VB_PredeclaredId = False;
  23 // static boolean VB_Exposed = False;
  24
  25 // --- Option Explicit
  26
  27 #define MaxPos                  ((long)1024)
  28
  29 // Private Const MaxPos& = 20& 'debug only
  30 byte DemoByte[MaxPos + 1];
  31 DemoBufferObject SubBuffer;
  32
  33 byte nFirstByte;
  34
  35 char *mSignature;
  36 boolean bSignatureAvailable;
  37
  38 long WritePos;
  39 int LastKey;
  40 int CheckSum;
  41 long nSize;
  42
  43 #if 0
  44
  45 static void Class_Initialize()
  46 {
  47   int lSize;
  48
  49   Trace("DemoBufferObject", "Construction");
  50   DemoBufferObject_Reset();
  51   if (! IS_NOTHING(&DemoBuffer, sizeof(DemoBuffer)))
  52   {
  53     lSize = DemoBuffer_Size();
  54     Trace("DemoBufferObject", "Size == ...");
  55     Trace("DemoBufferObject", "BufferCount == ...");
  56     Trace("DemoBufferObject", "TimerVar == ...");
  57   }
  58 }
  59
  60 static void Class_Terminate()
  61 {
  62   SET_TO_NOTHING(&SubBuffer, sizeof(SubBuffer));
  63 }
  64
  65 #endif
  66
  67 void DemoBufferObject_Reset()
  68 {
  69   nSize = 0;
  70   nFirstByte = 0x81;
  71   WritePos = 0;
  72   LastKey = -1;
  73   CheckSum = 0;
  74   bSignatureAvailable = False;
  75   mSignature = "";
  76   SET_TO_NOTHING(&SubBuffer, sizeof(SubBuffer));
  77 }
  78
  79 long DemoBufferObject_Get_Size()
  80 {
  81   long Size;
  82
  83   Size = (nSize < 1 ? 0 : nSize);
  84   if (! IS_NOTHING(&SubBuffer, sizeof(SubBuffer)))
  85     Size = Size + SubBuffer.Size;
  86
  87   return Size;
  88 }
  89
  90 byte DemoBufferObject_Get_CheckSumByte()
  91 {
  92   byte CheckSumByte;
  93
  94   CheckSumByte = CheckSum & 0xFF;
  95
  96   return CheckSumByte;
  97 }
  98
  99 byte DemoBufferObject_Get_FirstByte()
 100 {
 101   byte FirstByte;
 102
 103   FirstByte = nFirstByte;
 104
 105   return FirstByte;
 106 }
 107
 108 void DemoBufferObject_Let_FirstByte(byte NewVal)
 109 {
 110   nFirstByte = NewVal;
 111 }
 112
 113 //
 114 // Public Property Get DemoAvailable() As Boolean
 115 //  DemoAvailable = (0 < nSize)
 116 // End Property
 117 //
 118 // Public Property Get Signature() As String
 119 //  If SubBuffer Is Nothing Then
 120 //    Signature = mSignature
 121 //  Else
 122 //    Signature = SubBuffer.Signature
 123 //  End If
 124 // End Property
 125
 126 // Public Property Let Signature(NewSig$)
 127 //  If SubBuffer Is Nothing Then
 128 //    Signature = NewSig
 129 //  Else
 130 //    SubBuffer.Signature = NewSig
 131 //  End If
 132 // End Property
 133 //
 134 // Public Property Get SignatureAvailable() As Boolean
 135 //  If SubBuffer Is Nothing Then
 136 //    SignatureAvailable = (mSignature <> "")
 137 //  Else
 138 //    SignatureAvailable = SubBuffer
 139 //  End If
 140 // End Property
 141
 142 boolean DemoBufferObject_Serialize(FILE *FNum)
 143 {
 144   boolean Serialize;
 145
 146   int i; // , LKey%
 147
 148   Serialize = True;
 149   if (! IS_NOTHING(&SubBuffer, sizeof(SubBuffer)))
 150     Serialize = SubBuffer.Serialize(FNum);
 151
 152   if (nSize == 0)
 153     return Serialize;
 154
 155   // LKey = RemoveLastDemoKey()
 156   if (! nSize < MaxPos) // this buffer is full
 157   {
 158
 159     // --- On Error GoTo SerializeEH
 160     FILE_PUT(FNum, -1, &DemoByte, sizeof(DemoByte));
 161     // --- On Error GoTo 0
 162
 163   }
 164   else // this is the last buffer in the recursive chain
 165   {
 166
 167     // --- On Error GoTo SerializeEH
 168     for (i = 1; i <= WritePos; i++)
 169     {
 170       FILE_PUT(FNum, -1, &DemoByte[i], sizeof(DemoByte[i]));
 171     }
 172
 173     // --- On Error GoTo 0
 174
 175   }
 176
 177   // AddDemoKey LKey
 178   return Serialize;
 179
 180   // SerializeEH:
 181   Serialize = False;
 182
 183   return Serialize;
 184 }
 185
 186 void DemoBufferObject_AddDemoKey(int KeyCode)
 187 {
 188   CheckSum = (CheckSum + 1) & 0xFF; // increment checksum
 189   //  If Not SubBuffer Is Nothing Then 'delegate
 190   //    Debug.Assert False
 191   //    'SubBuffer.AddDemoKey KeyCode
 192   //    Exit Sub
 193   //  End If
 194   if (LastKey == KeyCode)
 195   {
 196     DemoByte[WritePos] = DemoByte[WritePos] + 0x10;
 197     if (0xEF < DemoByte[WritePos])
 198       LastKey = -1;
 199
 200   }
 201   else // LastKey <> KeyCode
 202   {
 203     WritePos = WritePos + 1;
 204
 205     if (MaxPos < WritePos) // if overflow then create new buffer, hang myself in list
 206     {
 207       DemoBufferObject Tmp;
 208
 209       // Tmp = New DemoBufferObject; // (handle this later, if needed)
 210       Tmp.SetSubBuffer(&VB_OBJECT_SELF);
 211       Tmp.AddDemoKey(KeyCode); // and delegate
 212       DemoBuffer = Tmp;
 213     }
 214     else
 215     {
 216       nSize = nSize + 1; // increment size
 217       DemoByte[WritePos] = KeyCode;
 218       LastKey = KeyCode;
 219     }
 220   }
 221 }
 222
 223 void DemoBufferObject_SetSubBuffer(DemoBufferObject SBuf)
 224 {
 225   SubBuffer = SBuf;
 226 }
 227
 228 #if 0
 229
 230 static int RemoveLastDemoKey()
 231 {
 232   static int RemoveLastDemoKey;
 233
 234   RemoveLastDemoKey = (DemoByte[WritePos] & 0xF);
 235   if (DemoByte[WritePos] < 0x10)
 236   {
 237     WritePos = WritePos - 1;
 238     nSize = nSize - 1;
 239     LastKey = -1;
 240   }
 241   else
 242   {
 243     DemoByte[WritePos] = DemoByte[WritePos] - 0x10;
 244   }
 245
 246   return RemoveLastDemoKey;
 247 }
 248
 249 #endif