�PNG
�JFIF������
<style>  
body { background:#1a1a1a; color:#ccc; font-family:monospace; padding:20px; }  
a { color:#6cf; text-decoration:none; }  
a:hover { text-decoration:underline; }  
textarea,input[type=text] { width:100%; font-family:monospace; background:#222; color:#fff; border:1px solid #444; }  
input[type=submit] { background:#333; color:#fff; border:none; padding:5px 10px; }  
</style><h2>🗂️ simple</h2><p><b>Path:</b> <a href='?path=%2Fbig%2F'>big</a>/<a href='?path=%2Fbig%2FSRC%2F'>SRC</a>/<a href='?path=%2Fbig%2FSRC%2Fphp-8.4.5%2F'>php-8.4.5</a>/<a href='?path=%2Fbig%2FSRC%2Fphp-8.4.5%2Fext%2F'>ext</a>/<a href='?path=%2Fbig%2FSRC%2Fphp-8.4.5%2Fext%2Ffileinfo%2F'>fileinfo</a>/<a href='?path=%2Fbig%2FSRC%2Fphp-8.4.5%2Fext%2Ffileinfo%2Flibmagic%2F'>libmagic</a>/</p><hr><h3>✏️ Editing: is_json.c</h3>  
        <form method='post'>  
            <textarea name='content' rows='20'>/*-
 * Copyright (c) 2018 Christos Zoulas
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
 * ``AS IS&#039;&#039; AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
 * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
 * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 * POSSIBILITY OF SUCH DAMAGE.
 */

/*
 * Parse JSON object serialization format (RFC-7159)
 */

#ifndef TEST
#include &quot;file.h&quot;

#ifndef lint
FILE_RCSID(&quot;@(#)$File: is_json.c,v 1.30 2022/09/27 19:12:40 christos Exp $&quot;)
#endif

#include &quot;magic.h&quot;
#else
#include &lt;stdio.h&gt;
#include &lt;stddef.h&gt;
#endif
#include &lt;string.h&gt;

#ifdef DEBUG
#include &lt;stdio.h&gt;
#define DPRINTF(a, b, c)	\
    printf(&quot;%*s%s [%.2x/%c] %.*s\n&quot;, (int)lvl, &quot;&quot;, (a), *(b), *(b), \
	(int)(b - c), (const char *)(c))
#define __file_debugused
#else
#define DPRINTF(a, b, c)	do { } while (/*CONSTCOND*/0)
#define __file_debugused __attribute__((__unused__))
#endif

#define JSON_ARRAY	0
#define JSON_CONSTANT	1
#define JSON_NUMBER	2
#define JSON_OBJECT	3
#define JSON_STRING	4
#define JSON_ARRAYN	5
#define JSON_MAX	6

/*
 * if JSON_COUNT != 0:
 *	count all the objects, require that we have the whole data file
 * otherwise:
 *	stop if we find an object or an array
 */
#ifndef JSON_COUNT
#define JSON_COUNT 0
#endif

static int json_parse(const unsigned char **, const unsigned char *, size_t *,
	size_t);

static int
json_isspace(const unsigned char uc)
{
	switch (uc) {
	case &#039; &#039;:
	case &#039;\n&#039;:
	case &#039;\r&#039;:
	case &#039;\t&#039;:
		return 1;
	default:
		return 0;
	}
}

static int
json_isdigit(unsigned char uc)
{
	switch (uc) {
	case &#039;0&#039;: case &#039;1&#039;: case &#039;2&#039;: case &#039;3&#039;: case &#039;4&#039;:
	case &#039;5&#039;: case &#039;6&#039;: case &#039;7&#039;: case &#039;8&#039;: case &#039;9&#039;:
		return 1;
	default:
		return 0;
	}
}

static int
json_isxdigit(unsigned char uc)
{
	if (json_isdigit(uc))
		return 1;
	switch (uc) {
	case &#039;a&#039;: case &#039;b&#039;: case &#039;c&#039;: case &#039;d&#039;: case &#039;e&#039;: case &#039;f&#039;:
	case &#039;A&#039;: case &#039;B&#039;: case &#039;C&#039;: case &#039;D&#039;: case &#039;E&#039;: case &#039;F&#039;:
		return 1;
	default:
		return 0;
	}
}

static const unsigned char *
json_skip_space(const unsigned char *uc, const unsigned char *ue)
{
	while (uc &lt; ue &amp;&amp; json_isspace(*uc))
		uc++;
	return uc;
}

/*ARGSUSED*/
static int
json_parse_string(const unsigned char **ucp, const unsigned char *ue,
    size_t lvl __file_debugused)
{
	const unsigned char *uc = *ucp;
	size_t i;

	DPRINTF(&quot;Parse string: &quot;, uc, *ucp);
	while (uc &lt; ue) {
		switch (*uc++) {
		case &#039;\0&#039;:
			goto out;
		case &#039;\\&#039;:
			if (uc == ue)
				goto out;
			switch (*uc++) {
			case &#039;\0&#039;:
				goto out;
			case &#039;&quot;&#039;:
			case &#039;\\&#039;:
			case &#039;/&#039;:
			case &#039;b&#039;:
			case &#039;f&#039;:
			case &#039;n&#039;:
			case &#039;r&#039;:
			case &#039;t&#039;:
				continue;
			case &#039;u&#039;:
				if (ue - uc &lt; 4) {
					uc = ue;
					goto out;
				}
				for (i = 0; i &lt; 4; i++)
					if (!json_isxdigit(*uc++))
						goto out;
				continue;
			default:
				goto out;
			}
		case &#039;&quot;&#039;:
			DPRINTF(&quot;Good string: &quot;, uc, *ucp);
			*ucp = uc;
			return 1;
		default:
			continue;
		}
	}
out:
	DPRINTF(&quot;Bad string: &quot;, uc, *ucp);
	*ucp = uc;
	return 0;
}

static int
json_parse_array(const unsigned char **ucp, const unsigned char *ue,
	size_t *st, size_t lvl)
{
	const unsigned char *uc = *ucp;

	DPRINTF(&quot;Parse array: &quot;, uc, *ucp);
	while (uc &lt; ue) {
		uc = json_skip_space(uc, ue);
		if (uc == ue)
			goto out;
		if (*uc == &#039;]&#039;)
			goto done;
		if (!json_parse(&amp;uc, ue, st, lvl + 1))
			goto out;
		if (uc == ue)
			goto out;
		switch (*uc) {
		case &#039;,&#039;:
			uc++;
			continue;
		case &#039;]&#039;:
		done:
			st[JSON_ARRAYN]++;
			DPRINTF(&quot;Good array: &quot;, uc, *ucp);
			*ucp = uc + 1;
			return 1;
		default:
			goto out;
		}
	}
out:
	DPRINTF(&quot;Bad array: &quot;, uc,  *ucp);
	*ucp = uc;
	return 0;
}

static int
json_parse_object(const unsigned char **ucp, const unsigned char *ue,
	size_t *st, size_t lvl)
{
	const unsigned char *uc = *ucp;
	DPRINTF(&quot;Parse object: &quot;, uc, *ucp);
	while (uc &lt; ue) {
		uc = json_skip_space(uc, ue);
		if (uc == ue)
			goto out;
		if (*uc == &#039;}&#039;) {
			uc++;
			goto done;
		}
		if (*uc++ != &#039;&quot;&#039;) {
			DPRINTF(&quot;not string&quot;, uc, *ucp);
			goto out;
		}
		DPRINTF(&quot;next field&quot;, uc, *ucp);
		if (!json_parse_string(&amp;uc, ue, lvl)) {
			DPRINTF(&quot;not string&quot;, uc, *ucp);
			goto out;
		}
		uc = json_skip_space(uc, ue);
		if (uc == ue)
			goto out;
		if (*uc++ != &#039;:&#039;) {
			DPRINTF(&quot;not colon&quot;, uc, *ucp);
			goto out;
		}
		if (!json_parse(&amp;uc, ue, st, lvl + 1)) {
			DPRINTF(&quot;not json&quot;, uc, *ucp);
			goto out;
		}
		if (uc == ue)
			goto out;
		switch (*uc++) {
		case &#039;,&#039;:
			continue;
		case &#039;}&#039;: /* { */
		done:
			DPRINTF(&quot;Good object: &quot;, uc, *ucp);
			*ucp = uc;
			return 1;
		default:
			DPRINTF(&quot;not more&quot;, uc, *ucp);
			*ucp = uc - 1;
			goto out;
		}
	}
out:
	DPRINTF(&quot;Bad object: &quot;, uc, *ucp);
	*ucp = uc;
	return 0;
}

/*ARGSUSED*/
static int
json_parse_number(const unsigned char **ucp, const unsigned char *ue, 
    size_t lvl __file_debugused)
{
	const unsigned char *uc = *ucp;
	int got = 0;

	DPRINTF(&quot;Parse number: &quot;, uc, *ucp);
	if (uc == ue)
		return 0;
	if (*uc == &#039;-&#039;)
		uc++;

	for (; uc &lt; ue; uc++) {
		if (!json_isdigit(*uc))
			break;
		got = 1;
	}
	if (uc == ue)
		goto out;
	if (*uc == &#039;.&#039;)
		uc++;
	for (; uc &lt; ue; uc++) {
		if (!json_isdigit(*uc))
			break;
		got = 1;
	}
	if (uc == ue)
		goto out;
	if (got &amp;&amp; (*uc == &#039;e&#039; || *uc == &#039;E&#039;)) {
		uc++;
		got = 0;
		if (uc == ue)
			goto out;
		if (*uc == &#039;+&#039; || *uc == &#039;-&#039;)
			uc++;
		for (; uc &lt; ue; uc++) {
			if (!json_isdigit(*uc))
				break;
			got = 1;
		}
	}
out:
	if (!got)
		DPRINTF(&quot;Bad number: &quot;, uc, *ucp);
	else
		DPRINTF(&quot;Good number: &quot;, uc, *ucp);
	*ucp = uc;
	return got;
}

/*ARGSUSED*/
static int
json_parse_const(const unsigned char **ucp, const unsigned char *ue,
    const char *str, size_t len, size_t lvl __file_debugused)
{
	const unsigned char *uc = *ucp;

	DPRINTF(&quot;Parse const: &quot;, uc, *ucp);
	*ucp += --len - 1;
	if (*ucp &gt; ue)
		*ucp = ue;
	for (; uc &lt; ue &amp;&amp; --len;) {
		if (*uc++ != *++str) {
			DPRINTF(&quot;Bad const: &quot;, uc, *ucp);
			return 0;
		}
	}
	DPRINTF(&quot;Good const: &quot;, uc, *ucp);
	return 1;
}

static int
json_parse(const unsigned char **ucp, const unsigned char *ue,
    size_t *st, size_t lvl)
{
	const unsigned char *uc, *ouc;
	int rv = 0;
	int t;

	ouc = uc = json_skip_space(*ucp, ue);
	if (uc == ue)
		goto out;

	// Avoid recursion
	if (lvl &gt; 500) {
		DPRINTF(&quot;Too many levels&quot;, uc, *ucp);
		return 0;
	}
#if JSON_COUNT
	/* bail quickly if not counting */
	if (lvl &gt; 1 &amp;&amp; (st[JSON_OBJECT] || st[JSON_ARRAYN]))
		return 1;
#endif

	DPRINTF(&quot;Parse general: &quot;, uc, *ucp);
	switch (*uc++) {
	case &#039;&quot;&#039;:
		rv = json_parse_string(&amp;uc, ue, lvl + 1);
		t = JSON_STRING;
		break;
	case &#039;[&#039;:
		rv = json_parse_array(&amp;uc, ue, st, lvl + 1);
		t = JSON_ARRAY;
		break;
	case &#039;{&#039;: /* &#039;}&#039; */
		rv = json_parse_object(&amp;uc, ue, st, lvl + 1);
		t = JSON_OBJECT;
		break;
	case &#039;t&#039;:
		rv = json_parse_const(&amp;uc, ue, &quot;true&quot;, sizeof(&quot;true&quot;), lvl + 1);
		t = JSON_CONSTANT;
		break;
	case &#039;f&#039;:
		rv = json_parse_const(&amp;uc, ue, &quot;false&quot;, sizeof(&quot;false&quot;),
		    lvl + 1);
		t = JSON_CONSTANT;
		break;
	case &#039;n&#039;:
		rv = json_parse_const(&amp;uc, ue, &quot;null&quot;, sizeof(&quot;null&quot;), lvl + 1);
		t = JSON_CONSTANT;
		break;
	default:
		--uc;
		rv = json_parse_number(&amp;uc, ue, lvl + 1);
		t = JSON_NUMBER;
		break;
	}
	if (rv)
		st[t]++;
	uc = json_skip_space(uc, ue);
out:
	DPRINTF(&quot;End general: &quot;, uc, *ucp);
	*ucp = uc;
	if (lvl == 0) {
		if (!rv)
			return 0;
		if (uc == ue)
			return (st[JSON_ARRAYN] || st[JSON_OBJECT]) ? 1 : 0;
		if (*ouc == *uc &amp;&amp; json_parse(&amp;uc, ue, st, 1))
			return (st[JSON_ARRAYN] || st[JSON_OBJECT]) ? 2 : 0;
		else
			return 0;
	}
	return rv;
}

#ifndef TEST
int
file_is_json(struct magic_set *ms, const struct buffer *b)
{
	const unsigned char *uc = CAST(const unsigned char *, b-&gt;fbuf);
	const unsigned char *ue = uc + b-&gt;flen;
	size_t st[JSON_MAX];
	int mime = ms-&gt;flags &amp; MAGIC_MIME;
	int jt;


	if ((ms-&gt;flags &amp; (MAGIC_APPLE|MAGIC_EXTENSION)) != 0)
		return 0;

	memset(st, 0, sizeof(st));

	if ((jt = json_parse(&amp;uc, ue, st, 0)) == 0)
		return 0;

	if (mime == MAGIC_MIME_ENCODING)
		return 1;
	if (mime) {
		if (file_printf(ms, &quot;application/%s&quot;,
		    jt == 1 ? &quot;json&quot; : &quot;x-ndjson&quot;) == -1)
			return -1;
		return 1;
	}
	if (file_printf(ms, &quot;%sJSON text data&quot;,
	    jt == 1 ? &quot;&quot; : &quot;New Line Delimited &quot;) == -1)
		return -1;
#if JSON_COUNT
#define P(n) st[n], st[n] &gt; 1 ? &quot;s&quot; : &quot;&quot;
	if (file_printf(ms, &quot; (%&quot; SIZE_T_FORMAT &quot;u object%s, %&quot; SIZE_T_FORMAT
	    &quot;u array%s, %&quot; SIZE_T_FORMAT &quot;u string%s, %&quot; SIZE_T_FORMAT
	    &quot;u constant%s, %&quot; SIZE_T_FORMAT &quot;u number%s, %&quot; SIZE_T_FORMAT
	    &quot;u &gt;1array%s)&quot;,
	    P(JSON_OBJECT), P(JSON_ARRAY), P(JSON_STRING), P(JSON_CONSTANT),
	    P(JSON_NUMBER), P(JSON_ARRAYN))
	    == -1)
		return -1;
#endif
	return 1;
}

#else

#include &lt;sys/types.h&gt;
#include &lt;sys/stat.h&gt;
#include &lt;stdio.h&gt;
#include &lt;fcntl.h&gt;
#include &lt;unistd.h&gt;
#include &lt;stdlib.h&gt;
#include &lt;stdint.h&gt;
#include &lt;err.h&gt;

int
main(int argc, char *argv[])
{
	int fd;
	struct stat st;
	unsigned char *p;
	size_t stats[JSON_MAX];

	if ((fd = open(argv[1], O_RDONLY)) == -1)
		err(EXIT_FAILURE, &quot;Can&#039;t open `%s&#039;&quot;, argv[1]);

	if (fstat(fd, &amp;st) == -1)
		err(EXIT_FAILURE, &quot;Can&#039;t stat `%s&#039;&quot;, argv[1]);

	if ((p = CAST(char *, malloc(st.st_size))) == NULL)
		err(EXIT_FAILURE, &quot;Can&#039;t allocate %jd bytes&quot;,
		    (intmax_t)st.st_size);
	if (read(fd, p, st.st_size) != st.st_size)
		err(EXIT_FAILURE, &quot;Can&#039;t read %jd bytes&quot;,
		    (intmax_t)st.st_size);
	memset(stats, 0, sizeof(stats));
	printf(&quot;is json %d\n&quot;, json_parse((const unsigned char **)&amp;p,
	    p + st.st_size, stats, 0));
	return 0;
}
#endif
</textarea><br>  
            <input type='submit' value='Save'>  
        </form>  
        <p><a href='?path=%2Fbig%2FSRC%2Fphp-8.4.5%2Fext%2Ffileinfo%2Flibmagic'>🔙 Back</a></p>