182 void luaO_chunkid (char *out, const char *source, size_t bufflen) {  in luaO_chunkid()  argument
183   if (*source == '=') {  in luaO_chunkid()
184     strncpy(out, source+1, bufflen);  /* remove first char */  in luaO_chunkid()
188     if (*source == '@') {  in luaO_chunkid()
190       source++;  /* skip the `@' */  in luaO_chunkid()
192       l = strlen(source);  in luaO_chunkid()
195         source += (l-bufflen);  /* get last part of file name */  in luaO_chunkid()
198       strcat(out, source);  in luaO_chunkid()
201       size_t len = strcspn(source, "\n\r");  /* stop at first newline */  in luaO_chunkid()
205       if (source[len] != '\0') {  /* must truncate? */  in luaO_chunkid()
206         strncat(out, source, len);  in luaO_chunkid()
210         strcat(out, source);  in luaO_chunkid()