567 void luaO_chunkid (char *out, const char *source, size_t srclen) {  in luaO_chunkid()  argument
570     if (srclen <= bufflen)  /* small enough? */  in luaO_chunkid()
571       memcpy(out, source + 1, srclen * sizeof(char));  in luaO_chunkid()
578     if (srclen <= bufflen)  /* small enough? */  in luaO_chunkid()
579       memcpy(out, source + 1, srclen * sizeof(char));  in luaO_chunkid()
583       memcpy(out, source + 1 + srclen - bufflen, bufflen * sizeof(char));  in luaO_chunkid()
590     if (srclen < bufflen && nl == NULL) {  /* small one-line source? */  in luaO_chunkid()
591       addstr(out, source, srclen);  /* keep it */  in luaO_chunkid()
594       if (nl != NULL) srclen = nl - source;  /* stop at first newline */  in luaO_chunkid()
595       if (srclen > bufflen) srclen = bufflen;  in luaO_chunkid()
596       addstr(out, source, srclen);  in luaO_chunkid()