stubs.inl

来自「计算机代数系统」· INL 代码 · 共 46 行

#include <E32STD.H>

inline LispInt PlatStrLen(const LispCharPtr aString)
{
    LispInt nr=0;
    while ((*aString) != '\0')
    {
        aString++;                 
        nr++;
    }
    return nr;
}

inline LispInt StrEqual(LispCharPtr ptr1, LispCharPtr ptr2)
{
//    return !strcmp(ptr1,ptr2);
    while (*ptr1 != 0 && *ptr2 != 0)
    {
        if (*ptr1++ != *ptr2++)
            return 0;
    }
    if (*ptr1 != *ptr2)
        return 0;
    return 1;
}

inline void PlatMemCopy(LispCharPtr aTarget, LispCharPtr aSource, LispInt aNrBytes)
{
  Mem::Copy(aTarget, aSource, aNrBytes);
}

inline void PlatMemMove(LispCharPtr aTarget, LispCharPtr aSource, LispInt aNrBytes)
{
    Mem::Copy(aTarget, aSource, aNrBytes);
}

inline void PlatMemSet(LispCharPtr aTarget, LispChar aByte, LispInt aNrBytes)
{
  Mem::Fill(aTarget,aNrBytes,aByte);
}

#define StrCompare(s1,s2) strcmp((char*)s1,(char*)s2)