📄 posix.xs

📁 UNIX下perl实现代码
💻 XS
📖 第 1 页 / 共 5 页
字号:
	if (strEQ(name, "B200"))#ifdef B200	    return B200;#else	    goto not_there;#endif	if (strEQ(name, "B2400"))#ifdef B2400	    return B2400;#else	    goto not_there;#endif	if (strEQ(name, "B300"))#ifdef B300	    return B300;#else	    goto not_there;#endif	if (strEQ(name, "B4800"))#ifdef B4800	    return B4800;#else	    goto not_there;#endif	if (strEQ(name, "B50"))#ifdef B50	    return B50;#else	    goto not_there;#endif	if (strEQ(name, "B600"))#ifdef B600	    return B600;#else	    goto not_there;#endif	if (strEQ(name, "B75"))#ifdef B75	    return B75;#else	    goto not_there;#endif	break;    case 'C':	if (strEQ(name, "CHAR_BIT"))#ifdef CHAR_BIT	    return CHAR_BIT;#else	    goto not_there;#endif	if (strEQ(name, "CHAR_MAX"))#ifdef CHAR_MAX	    return CHAR_MAX;#else	    goto not_there;#endif	if (strEQ(name, "CHAR_MIN"))#ifdef CHAR_MIN	    return CHAR_MIN;#else	    goto not_there;#endif	if (strEQ(name, "CHILD_MAX"))#ifdef CHILD_MAX	    return CHILD_MAX;#else	    goto not_there;#endif	if (strEQ(name, "CLK_TCK"))#ifdef CLK_TCK	    return CLK_TCK;#else	    goto not_there;#endif	if (strEQ(name, "CLOCAL"))#ifdef CLOCAL	    return CLOCAL;#else	    goto not_there;#endif	if (strEQ(name, "CLOCKS_PER_SEC"))#ifdef CLOCKS_PER_SEC	    return CLOCKS_PER_SEC;#else	    goto not_there;#endif	if (strEQ(name, "CREAD"))#ifdef CREAD	    return CREAD;#else	    goto not_there;#endif	if (strEQ(name, "CS5"))#ifdef CS5	    return CS5;#else	    goto not_there;#endif	if (strEQ(name, "CS6"))#ifdef CS6	    return CS6;#else	    goto not_there;#endif	if (strEQ(name, "CS7"))#ifdef CS7	    return CS7;#else	    goto not_there;#endif	if (strEQ(name, "CS8"))#ifdef CS8	    return CS8;#else	    goto not_there;#endif	if (strEQ(name, "CSIZE"))#ifdef CSIZE	    return CSIZE;#else	    goto not_there;#endif	if (strEQ(name, "CSTOPB"))#ifdef CSTOPB	    return CSTOPB;#else	    goto not_there;#endif	break;    case 'D':	if (strEQ(name, "DBL_MAX"))#ifdef DBL_MAX	    return DBL_MAX;#else	    goto not_there;#endif	if (strEQ(name, "DBL_MIN"))#ifdef DBL_MIN	    return DBL_MIN;#else	    goto not_there;#endif	if (strEQ(name, "DBL_DIG"))#ifdef DBL_DIG	    return DBL_DIG;#else	    goto not_there;#endif	if (strEQ(name, "DBL_EPSILON"))#ifdef DBL_EPSILON	    return DBL_EPSILON;#else	    goto not_there;#endif	if (strEQ(name, "DBL_MANT_DIG"))#ifdef DBL_MANT_DIG	    return DBL_MANT_DIG;#else	    goto not_there;#endif	if (strEQ(name, "DBL_MAX_10_EXP"))#ifdef DBL_MAX_10_EXP	    return DBL_MAX_10_EXP;#else	    goto not_there;#endif	if (strEQ(name, "DBL_MAX_EXP"))#ifdef DBL_MAX_EXP	    return DBL_MAX_EXP;#else	    goto not_there;#endif	if (strEQ(name, "DBL_MIN_10_EXP"))#ifdef DBL_MIN_10_EXP	    return DBL_MIN_10_EXP;#else	    goto not_there;#endif	if (strEQ(name, "DBL_MIN_EXP"))#ifdef DBL_MIN_EXP	    return DBL_MIN_EXP;#else	    goto not_there;#endif	break;    case 'E':	switch (name[1]) {	case 'A':	    if (strEQ(name, "EACCES"))#ifdef EACCES		return EACCES;#else		goto not_there;#endif	    if (strEQ(name, "EADDRINUSE"))#ifdef EADDRINUSE		return EADDRINUSE;#else		goto not_there;#endif	    if (strEQ(name, "EADDRNOTAVAIL"))#ifdef EADDRNOTAVAIL		return EADDRNOTAVAIL;#else		goto not_there;#endif	    if (strEQ(name, "EAFNOSUPPORT"))#ifdef EAFNOSUPPORT		return EAFNOSUPPORT;#else		goto not_there;#endif	    if (strEQ(name, "EAGAIN"))#ifdef EAGAIN		return EAGAIN;#else		goto not_there;#endif	    if (strEQ(name, "EALREADY"))#ifdef EALREADY		return EALREADY;#else		goto not_there;#endif	    break;	case 'B':	    if (strEQ(name, "EBADF"))#ifdef EBADF		return EBADF;#else		goto not_there;#endif	    if (strEQ(name, "EBUSY"))#ifdef EBUSY		return EBUSY;#else		goto not_there;#endif	    break;	case 'C':	    if (strEQ(name, "ECHILD"))#ifdef ECHILD		return ECHILD;#else		goto not_there;#endif	    if (strEQ(name, "ECHO"))#ifdef ECHO		return ECHO;#else		goto not_there;#endif	    if (strEQ(name, "ECHOE"))#ifdef ECHOE		return ECHOE;#else		goto not_there;#endif	    if (strEQ(name, "ECHOK"))#ifdef ECHOK		return ECHOK;#else		goto not_there;#endif	    if (strEQ(name, "ECHONL"))#ifdef ECHONL		return ECHONL;#else		goto not_there;#endif	    if (strEQ(name, "ECONNABORTED"))#ifdef ECONNABORTED		return ECONNABORTED;#else		goto not_there;#endif	    if (strEQ(name, "ECONNREFUSED"))#ifdef ECONNREFUSED		return ECONNREFUSED;#else		goto not_there;#endif	    if (strEQ(name, "ECONNRESET"))#ifdef ECONNRESET		return ECONNRESET;#else		goto not_there;#endif	    break;	case 'D':	    if (strEQ(name, "EDEADLK"))#ifdef EDEADLK		return EDEADLK;#else		goto not_there;#endif	    if (strEQ(name, "EDESTADDRREQ"))#ifdef EDESTADDRREQ		return EDESTADDRREQ;#else		goto not_there;#endif	    if (strEQ(name, "EDOM"))#ifdef EDOM		return EDOM;#else		goto not_there;#endif	    if (strEQ(name, "EDQUOT"))#ifdef EDQUOT		return EDQUOT;#else		goto not_there;#endif	    break;	case 'E':	    if (strEQ(name, "EEXIST"))#ifdef EEXIST		return EEXIST;#else		goto not_there;#endif	    break;	case 'F':	    if (strEQ(name, "EFAULT"))#ifdef EFAULT		return EFAULT;#else		goto not_there;#endif	    if (strEQ(name, "EFBIG"))#ifdef EFBIG		return EFBIG;#else		goto not_there;#endif	    break;	case 'H':	    if (strEQ(name, "EHOSTDOWN"))#ifdef EHOSTDOWN		return EHOSTDOWN;#else		goto not_there;#endif	    if (strEQ(name, "EHOSTUNREACH"))#ifdef EHOSTUNREACH		return EHOSTUNREACH;#else		goto not_there;#endif    	    break;	case 'I':	    if (strEQ(name, "EINPROGRESS"))#ifdef EINPROGRESS		return EINPROGRESS;#else		goto not_there;#endif	    if (strEQ(name, "EINTR"))#ifdef EINTR		return EINTR;#else		goto not_there;#endif	    if (strEQ(name, "EINVAL"))#ifdef EINVAL		return EINVAL;#else		goto not_there;#endif	    if (strEQ(name, "EIO"))#ifdef EIO		return EIO;#else		goto not_there;#endif	    if (strEQ(name, "EISCONN"))#ifdef EISCONN		return EISCONN;#else		goto not_there;#endif	    if (strEQ(name, "EISDIR"))#ifdef EISDIR		return EISDIR;#else		goto not_there;#endif	    break;	case 'L':	    if (strEQ(name, "ELOOP"))#ifdef ELOOP		return ELOOP;#else		goto not_there;#endif	    break;	case 'M':	    if (strEQ(name, "EMFILE"))#ifdef EMFILE		return EMFILE;#else		goto not_there;#endif	    if (strEQ(name, "EMLINK"))#ifdef EMLINK		return EMLINK;#else		goto not_there;#endif	    if (strEQ(name, "EMSGSIZE"))#ifdef EMSGSIZE		return EMSGSIZE;#else		goto not_there;#endif	    break;	case 'N':	    if (strEQ(name, "ENETDOWN"))#ifdef ENETDOWN		return ENETDOWN;#else		goto not_there;#endif	    if (strEQ(name, "ENETRESET"))#ifdef ENETRESET		return ENETRESET;#else		goto not_there;#endif	    if (strEQ(name, "ENETUNREACH"))#ifdef ENETUNREACH		return ENETUNREACH;#else		goto not_there;#endif	    if (strEQ(name, "ENOBUFS"))#ifdef ENOBUFS		return ENOBUFS;#else		goto not_there;#endif	    if (strEQ(name, "ENOEXEC"))#ifdef ENOEXEC		return ENOEXEC;#else		goto not_there;#endif	    if (strEQ(name, "ENOMEM"))#ifdef ENOMEM		return ENOMEM;#else		goto not_there;#endif	    if (strEQ(name, "ENOPROTOOPT"))#ifdef ENOPROTOOPT		return ENOPROTOOPT;#else		goto not_there;#endif	    if (strEQ(name, "ENOSPC"))#ifdef ENOSPC		return ENOSPC;#else		goto not_there;#endif	    if (strEQ(name, "ENOTBLK"))#ifdef ENOTBLK		return ENOTBLK;#else		goto not_there;#endif	    if (strEQ(name, "ENOTCONN"))#ifdef ENOTCONN		return ENOTCONN;#else		goto not_there;#endif	    if (strEQ(name, "ENOTDIR"))#ifdef ENOTDIR		return ENOTDIR;#else		goto not_there;#endif	    if (strEQ(name, "ENOTEMPTY"))#ifdef ENOTEMPTY		return ENOTEMPTY;#else		goto not_there;#endif	    if (strEQ(name, "ENOTSOCK"))#ifdef ENOTSOCK		return ENOTSOCK;#else		goto not_there;#endif	    if (strEQ(name, "ENOTTY"))#ifdef ENOTTY		return ENOTTY;#else		goto not_there;#endif	    if (strEQ(name, "ENFILE"))#ifdef ENFILE		return ENFILE;#else		goto not_there;#endif	    if (strEQ(name, "ENODEV"))#ifdef ENODEV		return ENODEV;#else		goto not_there;#endif	    if (strEQ(name, "ENOENT"))#ifdef ENOENT		return ENOENT;#else		goto not_there;#endif	    if (strEQ(name, "ENOLCK"))#ifdef ENOLCK		return ENOLCK;#else		goto not_there;#endif	    if (strEQ(name, "ENOSYS"))#ifdef ENOSYS		return ENOSYS;#else		goto not_there;#endif	    if (strEQ(name, "ENXIO"))#ifdef ENXIO		return ENXIO;#else		goto not_there;#endif	    if (strEQ(name, "ENAMETOOLONG"))#ifdef ENAMETOOLONG		return ENAMETOOLONG;#else		goto not_there;#endif	    break;	case 'O':	    if (strEQ(name, "EOF"))#ifdef EOF		return EOF;#else		goto not_there;#endif	    if (strEQ(name, "EOPNOTSUPP"))#ifdef EOPNOTSUPP		return EOPNOTSUPP;#else		goto not_there;#endif	    break;	case 'P':	    if (strEQ(name, "EPERM"))#ifdef EPERM		return EPERM;#else		goto not_there;#endif	    if (strEQ(name, "EPFNOSUPPORT"))#ifdef EPFNOSUPPORT		return EPFNOSUPPORT;#else		goto not_there;#endif	    if (strEQ(name, "EPIPE"))#ifdef EPIPE		return EPIPE;#else		goto not_there;#endif	    if (strEQ(name, "EPROCLIM"))#ifdef EPROCLIM		return EPROCLIM;#else		goto not_there;#endif	    if (strEQ(name, "EPROTONOSUPPORT"))#ifdef EPROTONOSUPPORT		return EPROTONOSUPPORT;#else		goto not_there;#endif	    if (strEQ(name, "EPROTOTYPE"))#ifdef EPROTOTYPE		return EPROTOTYPE;#else		goto not_there;#endif	    break;	case 'R':	    if (strEQ(name, "ERANGE"))#ifdef ERANGE		return ERANGE;#else		goto not_there;#endif	    if (strEQ(name, "EREMOTE"))#ifdef EREMOTE		return EREMOTE;#else		goto not_there;#endif	    if (strEQ(name, "ERESTART"))#ifdef ERESTART		return ERESTART;#else		goto not_there;#endif	    if (strEQ(name, "EROFS"))#ifdef EROFS		return EROFS;#else		goto not_there;#endif	    break;	case 'S':	    if (strEQ(name, "ESHUTDOWN"))#ifdef ESHUTDOWN		return ESHUTDOWN;#else		goto not_there;#endif	    if (strEQ(name, "ESOCKTNOSUPPORT"))#ifdef ESOCKTNOSUPPORT		return ESOCKTNOSUPPORT;#else		goto not_there;#endif	    if (strEQ(name, "ESPIPE"))#ifdef ESPIPE		return ESPIPE;#else		goto not_there;#endif	    if (strEQ(name, "ESRCH"))#ifdef ESRCH		return ESRCH;#else
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -