WSCreateMark (C 関数)
例題
例 (1)
#include "wstp.h"
/* check for a ReturnPacket and go back in the expression stream if necessary */
void f(WSLINK lp)
{
WSMARK mark;
int args;
mark = WSCreateMark(lp);
if(mark == (WSMARK)0)
{ /* mark creation failed */ }
if(! WSTestHead(lp, "ReturnPacket", args))
{
WSSeekToMark(lp, mark, 0);
WSDestroyMark(lp, mark);
}
else
{ /* read the ReturnPacket[] */ }
}