projects
/
rocksndiamonds.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
rnd-20091124-1-src
[rocksndiamonds.git]
/
src
/
game_sp
/
GeneralTricks.c
diff --git
a/src/game_sp/GeneralTricks.c
b/src/game_sp/GeneralTricks.c
index 19de0d6cc9244cf305daffcad66a3b70e21bab7e..4caed2f096ded01b99b5ecdade0d449259ecb694 100644
(file)
--- a/
src/game_sp/GeneralTricks.c
+++ b/
src/game_sp/GeneralTricks.c
@@
-4,7
+4,8
@@
#include "GeneralTricks.h"
#include "GeneralTricks.h"
-static char *VB_Name = "GeneralTricks_Module";
+// static char *VB_Name = "GeneralTricks_Module";
+
// --- Option Explicit
// --- Option Compare Text
// --- Option Explicit
// --- Option Compare Text
@@
-21,7
+22,7
@@
double ValEx(char *TS)
if (i != 0)
{
LS = Left(TS, i - 1);
if (i != 0)
{
LS = Left(TS, i - 1);
- RS = Right(TS,
L
en(TS) - i);
+ RS = Right(TS,
strl
en(TS) - i);
ValEx = Val(CAT(LS, ".", RS));
}
else
ValEx = Val(CAT(LS, ".", RS));
}
else
@@
-42,6
+43,8
@@
void DEC(int *VAR, int Delta)
*VAR = *VAR - Delta;
}
*VAR = *VAR - Delta;
}
+#if 0
+
char *MySplit(char *TS, char *Sep, long SCount)
{
char *MySplit;
char *MySplit(char *TS, char *Sep, long SCount)
{
char *MySplit;
@@
-51,8
+54,8
@@
char *MySplit(char *TS, char *Sep, long SCount)
char *RA;
T = TS;
char *RA;
T = TS;
- L =
L
en(TS);
- SL =
L
en(Sep);
+ L =
strl
en(TS);
+ SL =
strl
en(Sep);
J = SCount;
if (J < 1)
{
J = SCount;
if (J < 1)
{
@@
-93,7
+96,10
@@
char *MySplit(char *TS, char *Sep, long SCount)
break;
q = q + 1;
break;
q = q + 1;
+#if 0
+ /* !!! CHECK IF THIS IS REALLY NEEDED !!! */
RA[q] = Mid(T, i, k - i);
RA[q] = Mid(T, i, k - i);
+#endif
}
i = k + SL;
}
i = k + SL;
@@
-127,13
+133,15
@@
char *MySplit(char *TS, char *Sep, long SCount)
return MySplit;
}
return MySplit;
}
+#endif
+
void MyReplace(char *TS, char *Pat1, char *Pat2)
{
long k, SL1, SL2, TL;
void MyReplace(char *TS, char *Pat1, char *Pat2)
{
long k, SL1, SL2, TL;
- TL =
L
en(TS);
- SL1 =
L
en(Pat1);
- SL2 =
L
en(Pat2);
+ TL =
strl
en(TS);
+ SL1 =
strl
en(Pat1);
+ SL2 =
strl
en(Pat2);
k = InStr(1, TS, Pat1);
if (k == 0)
return;
k = InStr(1, TS, Pat1);
if (k == 0)
return;