#include "vb_vars.h"
#include "vb_lib.h"
+#include "main_sp.h"
+
+#include <sys/stat.h>
+
/* helper functions for constructs not supported by C */
void *REDIM_1D(int a, int b, int c)
{
- return 0;
+ return checked_calloc(a * (c - b + 1));
}
void *REDIM_2D(int a, int b, int c, int d, int e)
boolean STRING_IS_LIKE(char *a, char *b)
{
- return 0;
+ if (*b == '*') // something like "*.sp"
+ {
+ return (strSuffix(a, &b[1]));
+ }
+ else
+ {
+ // more sophisticated patterns currently not supported
+
+ return 0;
+ }
}
-int FILE_GET(FILE *a, int b, void *c, int d)
+void FILE_GET(FILE *file, int offset, void *buffer, int num_bytes)
{
- return 0;
+ fseek(file, offset - 1, SEEK_SET);
+
+ while (num_bytes--)
+ *(byte *)buffer++ = fgetc(file);
}
int FILE_PUT(FILE *a, int b, void *c, int d)
int FileLen(char *a)
{
- return 0;
+ struct stat buffer;
+
+ if (stat(a, &buffer) == 0)
+ {
+ return buffer.st_size;
+ }
+ else
+ {
+ return 0;
+ }
}
long GetTickCount()
{
- return 0;
+ return random_linux_libc(RANDOM_SIMPLE);
}
int GetAttr(char *a)