/usr/share/yacas/include/plat/linux32/stubs.inl is in yacas 1.3.3-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 | #include <stdlib.h>
#include <string.h>
inline LispInt PlatStrLen(const LispChar * aString)
{
return strlen(aString);
/*Generic version
LispInt nr=0;
while ((*aString) != '\0')
{
aString++;
nr++;
}
return nr;
*/
}
inline LispInt StrEqual(const LispChar * ptr1, const LispChar * 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(void * aTarget, const void * aSource, LispInt aNrBytes)
{
memcpy(aTarget, aSource, aNrBytes);
}
inline void PlatMemMove(void * aTarget, const void * aSource, LispInt aNrBytes)
{
memmove(aTarget, aSource, aNrBytes);
}
inline void PlatMemSet(LispChar * aTarget, LispChar aByte, LispInt aNrBytes)
{
memset(aTarget, aByte, aNrBytes);
}
#define StrCompare(s1,s2) strcmp((char*)s1,(char*)s2)
|