Lines Matching refs:source
557 void luaO_chunkid (char *out, const char *source, size_t srclen) {
559 if (*source == '=') { /* 'literal' source */
561 memcpy(out, source + 1, srclen * sizeof(char));
563 addstr(out, source + 1, bufflen - 1);
567 else if (*source == '@') { /* file name */
569 memcpy(out, source + 1, srclen * sizeof(char));
573 memcpy(out, source + 1 + srclen - bufflen, bufflen * sizeof(char));
576 else { /* string; format as [string "source"] */
577 const char *nl = strchr(source, '\n'); /* find first new line (if any) */
580 if (srclen < bufflen && nl == NULL) { /* small one-line source? */
581 addstr(out, source, srclen); /* keep it */
584 if (nl != NULL) srclen = nl - source; /* stop at first newline */
586 addstr(out, source, srclen);