247 void luaO_chunkid (char *out, const char *source, size_t bufflen) {  in luaO_chunkid()  argument
248   size_t l = strlen(source);  in luaO_chunkid()
249   if (*source == '=') {  /* 'literal' source */  in luaO_chunkid()
251       memcpy(out, source + 1, l * sizeof(char));  in luaO_chunkid()
253       addstr(out, source + 1, bufflen - 1);  in luaO_chunkid()
257   else if (*source == '@') {  /* file name */  in luaO_chunkid()
259       memcpy(out, source + 1, l * sizeof(char));  in luaO_chunkid()
263       memcpy(out, source + 1 + l - bufflen, bufflen * sizeof(char));  in luaO_chunkid()
267     const char *nl = strchr(source, '\n');  /* find first new line (if any) */  in luaO_chunkid()
271       addstr(out, source, l);  /* keep it */  in luaO_chunkid()
274       if (nl != NULL) l = nl - source;  /* stop at first newline */  in luaO_chunkid()
276       addstr(out, source, l);  in luaO_chunkid()