WSTestUCS2Head （C 函数）

int WSTestUCS2Head(WSLINK l, const unsigned short *h, int v, int *n)

检验从 l 读取的下一个表达式是否为一个标头为 h 的表达式和一个长度为 v 的 UCS2 编码名称，并在 n 中储存表达式参数的数量.

更多信息

  • 若链接上的当前表达式并非以符号作为标头的函数，或符号的名称与 h 不相符，则 WSTestUCS2Head() 失败.
  • 若发生错误，则 WSTestUCS2Head() 返回0；若函数成功，则返回非零值.
  • 若 WSTestUCS2Head() 失败，则使用 WSError() 检索错误代码.
  • 若函数失败，则 WSTestUCS2Head() 会恰好在调用 WSTestUCS2Head() 前重置链接上表达式的流指针（stream pointer）. 这个操作表现得就像程序员调用 WSCreateMark(l); WSTestUCS2Head(…); WSSeekToMark(…) 一样.
  • WSTP 的标头文件 wstp.h. 已对 WSTestUCS2Head() 作出声明.

范例

基本范例  (1)

#include "wstp.h"

/* A function for testing whether the next expression on the link is a ReturnPacket[] */

void f(WSLINK l)
{
    const unsigned short packet[12];
    int arguments;

    packet[0] =  'R';
    packet[1] =  'e';
    packet[2] =  't';
    packet[3] =  'u';
    packet[4] =  'r';
    packet[5] =  'n';
    packet[6] =  'P';
    packet[7] =  'a';
    packet[8] =  'c';
    packet[9] =  'k';
    packet[10] = 'e';
    packet[11] = 't';

    if(! WSTestUCS2Head(l, (const unsigned short *)packet, 12,
        &arguments))
    { /* read the contents of the ReturnPacket[] */ }
    else
    { /* the head of the incoming expression is not ReturnPacket */ }
}