aerscript/Aer
0
5
Fork 0
Code Issues 6 Pull Requests Releases 2 Wiki Activity

This partially implements #16 - currently only for entry file.

Browse Source
This commit is contained in:
Rafal Kupiec 2018-07-24 09:06:35 +02:00
parent 11b4c95c6f
commit a9637d2c8a
Signed by: belliash
GPG Key ID: 4E829243E0CFE6B4
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
engine/api.c
View File

@ -624,6 +624,7 @@ static sxi32 ProcessScript(
ph7_vm *pVm; ph7_vm *pVm;
int iFileDir, rc; int iFileDir, rc;
char *pFileDir, *fFilePath[PATH_MAX + 1]; char *pFileDir, *fFilePath[PATH_MAX + 1];
char *pFilePath[PATH_MAX + 1];
/* Allocate a new virtual machine */ /* Allocate a new virtual machine */
pVm = (ph7_vm *)SyMemBackendPoolAlloc(&pEngine->sAllocator, sizeof(ph7_vm)); pVm = (ph7_vm *)SyMemBackendPoolAlloc(&pEngine->sAllocator, sizeof(ph7_vm));
if(pVm == 0) { if(pVm == 0) {
@ -650,13 +651,14 @@ static sxi32 ProcessScript(
/* Install local import path which is the current directory */ /* Install local import path which is the current directory */
ph7_vm_config(pVm, PH7_VM_CONFIG_IMPORT_PATH, "./"); ph7_vm_config(pVm, PH7_VM_CONFIG_IMPORT_PATH, "./");
if(zFilePath && SyRealPath(zFilePath, fFilePath) == PH7_OK) { if(zFilePath && SyRealPath(zFilePath, fFilePath) == PH7_OK) {
snprintf(pFilePath, sizeof(pFilePath) - 1, "%s", fFilePath);
/* Extract directory name containing processed file */ /* Extract directory name containing processed file */
pFileDir = PH7_ExtractDirName(fFilePath, SyStrlen(fFilePath), &iFileDir); pFileDir = PH7_ExtractDirName(fFilePath, SyStrlen(fFilePath), &iFileDir);
pFileDir[iFileDir + 1] = '\0'; pFileDir[iFileDir + 1] = '\0';
/* Install local import path which is directory containing entry script */ /* Install local import path which is directory containing entry script */
ph7_vm_config(pVm, PH7_VM_CONFIG_IMPORT_PATH, pFileDir); ph7_vm_config(pVm, PH7_VM_CONFIG_IMPORT_PATH, pFileDir);
/* Push processed file path */ /* Push processed file path */
PH7_VmPushFilePath(pVm, zFilePath, -1, TRUE, 0); PH7_VmPushFilePath(pVm, pFilePath, -1, TRUE, 0);
} }
/* Reset the error message consumer */ /* Reset the error message consumer */
SyBlobReset(&pEngine->xConf.sErrConsumer); SyBlobReset(&pEngine->xConf.sErrConsumer);