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

Implement PH7_MemObjIsNull().
All checks were successful
The build was successful.
Details

Browse Source
This commit is contained in:
Rafal Kupiec 2019-06-12 18:55:41 +02:00
parent 0ef6b449c6
commit 4723128b74
Signed by: belliash
GPG Key ID: 4E829243E0CFE6B4
1 changed files with 36 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
engine/memobj.c
View File

@ -685,6 +685,42 @@ PH7_PRIVATE ProcMemObjCast PH7_MemObjCastMethod(sxi32 nType) {
/* Release the variable */ /* Release the variable */
return PH7_MemObjRelease; return PH7_MemObjRelease;
} }
/*
*
*/
PH7_PRIVATE sxi32 PH7_MemObjIsNull(ph7_value *pObj) {
if(pObj->nType & MEMOBJ_HASHMAP) {
ph7_hashmap *pMap = (ph7_hashmap *)pObj->x.pOther;
return pMap->nEntry == 0 ? TRUE : FALSE;
} else if(pObj->nType & (MEMOBJ_NULL | MEMOBJ_VOID)) {
return TRUE;
} else if(pObj->nType & (MEMOBJ_CHAR | MEMOBJ_INT)) {
return pObj->x.iVal == 0 ? TRUE : FALSE;
} else if(pObj->nType & MEMOBJ_REAL) {
return pObj->x.rVal == (ph7_real) 0 ? TRUE : FALSE;
} else if(pObj->nType & MEMOBJ_BOOL) {
return !pObj->x.iVal;
} else if(pObj->nType & (MEMOBJ_OBJ | MEMOBJ_RES)) {
return pObj->x.pOther == 0 ? TRUE : FALSE;
} else if(pObj->nType & MEMOBJ_STRING) {
if(SyBlobLength(&pObj->sBlob) <= 0) {
return TRUE;
} else {
const char *zIn, *zEnd;
zIn = (const char *)SyBlobData(&pObj->sBlob);
zEnd = &zIn[SyBlobLength(&pObj->sBlob)];
while(zIn < zEnd) {
if(zIn[0] != '0') {
break;
}
zIn++;
}
return zIn >= zEnd ? TRUE : FALSE;
}
}
/* Assume empty by default */
return TRUE;
}
/* /*
* Check whether the ph7_value is numeric [i.e: int/float/bool] or looks * Check whether the ph7_value is numeric [i.e: int/float/bool] or looks
* like a numeric number [i.e: if the ph7_value is of type string.]. * like a numeric number [i.e: if the ph7_value is of type string.].