lctype.h

Version: - FREEBSD - FREEBSD-13-STABLE - FREEBSD-13-0 - FREEBSD-12-STABLE - FREEBSD-12-0 - FREEBSD-11-STABLE - FREEBSD-11-0 - FREEBSD-10-STABLE - FREEBSD-10-0 - FREEBSD-9-STABLE - FREEBSD-9-0 - FREEBSD-8-STABLE - FREEBSD-8-0 - FREEBSD-7-STABLE - FREEBSD-7-0 - FREEBSD-6-STABLE - FREEBSD-6-0 - FREEBSD-5-STABLE - FREEBSD-5-0 - FREEBSD-4-STABLE - FREEBSD-3-STABLE - FREEBSD22 - l41 - OPENBSD - linux-2.6 - MK84 - PLAN9 - xnu-8792
SearchContext: - none - 3 - 10

    1 /*
    2 ** $Id: lctype.h,v 1.12.1.1 2013/04/12 18:48:47 roberto Exp $
    3 ** 'ctype' functions for Lua
    4 ** See Copyright Notice in lua.h
    5 */
    6 
    7 #ifndef lctype_h
    8 #define lctype_h
    9 
   10 #include <sys/lua/lua.h>
   11 
   12 
   13 /*
   14 ** WARNING: the functions defined here do not necessarily correspond
   15 ** to the similar functions in the standard C ctype.h. They are
   16 ** optimized for the specific needs of Lua
   17 */
   18 
   19 #if !defined(LUA_USE_CTYPE)
   20 
   21 #if 'A' == 65 && '' == 48
   22 /* ASCII case: can use its own tables; faster and fixed */
   23 #define LUA_USE_CTYPE   0
   24 #else
   25 /* must use standard C ctype */
   26 #define LUA_USE_CTYPE   1
   27 #endif
   28 
   29 #endif
   30 
   31 
   32 #if !LUA_USE_CTYPE      /* { */
   33 
   34 #include "llimits.h"
   35 
   36 
   37 #define ALPHABIT        0
   38 #define DIGITBIT        1
   39 #define PRINTBIT        2
   40 #define SPACEBIT        3
   41 #define XDIGITBIT       4
   42 
   43 
   44 #define MASK(B)         (1 << (B))
   45 
   46 
   47 /*
   48 ** add 1 to char to allow index -1 (EOZ)
   49 */
   50 #define testprop(c,p)   (luai_ctype_[(lu_byte)(c)+1] & (p))
   51 
   52 /*
   53 ** 'lalpha' (Lua alphabetic) and 'lalnum' (Lua alphanumeric) both include '_'
   54 */
   55 #define lislalpha(c)    testprop(c, MASK(ALPHABIT))
   56 #define lislalnum(c)    testprop(c, (MASK(ALPHABIT) | MASK(DIGITBIT)))
   57 #define lisdigit(c)     testprop(c, MASK(DIGITBIT))
   58 #define lisspace(c)     testprop(c, MASK(SPACEBIT))
   59 #define lisprint(c)     testprop(c, MASK(PRINTBIT))
   60 #define lisxdigit(c)    testprop(c, MASK(XDIGITBIT))
   61 
   62 /*
   63 ** this 'ltolower' only works for alphabetic characters
   64 */
   65 #define ltolower(c)     ((c) | ('A' ^ 'a'))
   66 
   67 
   68 /* two more entries for 0 and -1 (EOZ) */
   69 LUAI_DDEC const lu_byte luai_ctype_[UCHAR_MAX + 2];
   70 
   71 
   72 #else                   /* }{ */
   73 
   74 /*
   75 ** use standard C ctypes
   76 */
   77 
   78 #include <ctype.h>
   79 
   80 
   81 #define lislalpha(c)    (isalpha(c) || (c) == '_')
   82 #define lislalnum(c)    (isalnum(c) || (c) == '_')
   83 #define lisdigit(c)     (isdigit(c))
   84 #define lisspace(c)     (isspace(c))
   85 #define lisprint(c)     (isprint(c))
   86 #define lisxdigit(c)    (isxdigit(c))
   87 
   88 #define ltolower(c)     (tolower(c))
   89 
   90 #endif                  /* } */
   91 
   92 #endif

Cache object: 7cf2d870512242b068c74ddcfbfa4a69

[ source navigation ] [ diff markup ] [ identifier search ] [ freetext search ] [ file search ] [ list types ] [ track identifier ]

This page is part of the FreeBSD/Linux Linux Kernel Cross-Reference, and was automatically generated using a modified version of the LXR engine.

FreeBSD/Linux Kernel Cross Reference sys/contrib/openzfs/module/lua/lctype.h

FreeBSD/Linux Kernel Cross Reference
sys/contrib/openzfs/module/lua/lctype.h