jsonwriter.functions

# This file is part of shellfire jsonwriter. It is subject to the licence terms in the COPYRIGHT file found in the top-level directory of this distribution and at https://raw.githubusercontent.com/shellfire-dev/jsonwriter/master/COPYRIGHT. No part of shellfire jsonwriter, including this file, may be copied, modified, propagated, or distributed except according to the terms contained in the COPYRIGHT file.
# Copyright © 2014-2015 The developers of shellfire jsonwriter. See the COPYRIGHT file in the top-level directory of this distribution and at https://raw.githubusercontent.com/shellfire-dev/jsonwriter/master/COPYRIGHT.


jsonwriter_object()
{
	local fieldName
	local fieldType
	
	printf '{'
	
	local isAfterFirst=0
	while [ $# -ne 0 ]
	do
		if [ $isAfterFirst -eq 1 ]; then
			printf ','
		else
			isAfterFirst=1
		fi
		
		fieldType="$1"
		
		fieldName="$2"
		jsonwriter_string "$fieldName"
		printf ':'
		shift 2
		
		case "$fieldType" in
			
			null)
				printf 'null'
				shift 1
			;;
			
			boolean|number|string|objectCallback|listCallback)
				jsonwriter_${fieldType} "$1"
				shift 1
			;;
			
			*)
				core_exitError $core_commandLine_exitCode_SOFTWARE "Unknown fieldType '$fieldType' for fieldName '$fieldName'"
			;;
			
		esac
		
	done
	
	printf '}'
}

jsonwriter_list()
{
	local fieldType
	
	printf '['
	
	local isAfterFirst=0
	while [ $# -ne 0 ]
	do
		if [ $isAfterFirst -eq 1 ]; then
			printf ','
		else
			isAfterFirst=1
		fi
		
		fieldType="$1"
		shift 1
		
		case "$fieldType" in
			
			null)
				printf 'null'
				shift 1
			;;
			
			boolean|number|string|objectCallback|listCallback)
				jsonwriter_${fieldKind} "$1"
				shift 1
			;;
			
			*)
				core_exitError $core_commandLine_exitCode_SOFTWARE "Unknown fieldType '$fieldType'"
			;;
			
		esac
		
	done
	
	printf ']'
}

jsonwriter_objectCallback()
{
	local callback="$1"
	
	printf '{'
	
	local isAfterFirst=0
	while true
	do
		if [ $isAfterFirst -eq 1 ]; then
			printf ','
		else
			isAfterFirst=1
		fi
		
		 if $callback; then
			 break
		 fi
	done
	
	printf '}'
}

jsonwriter_listCallback()
{
	local callback="$1"
	
	printf '['
	
	local isAfterFirst=0
	while true
	do
		if [ $isAfterFirst -eq 1 ]; then
			printf ','
		else
			isAfterFirst=1
		fi
		
		 if $callback; then
			 break
		 fi
	done
	
	printf ']'
}

# Not currently supported
jsonwriter_array()
{
	local arrayType="$1"
	local arrayName="$2"
	
	printf '['
	
	case "$arrayType" in
		
		string)
			local isAfterFirst=0
			jsonwriter_array_callback()
			{
				if [ $isAfterFirst -eq 1 ]; then
					printf ','
				else
					isAfterFirst=1
				fi
				jsonwriter_string "$core_variable_array_element"
			}
		
			core_variable_array_iterate "$arrayName" jsonwriter_array_callback
		;;
		
		integer)
			core_variable_array_string "$arrayName" jsonwriter_array_callback ','
		;;
		
		boolean)
			core_variable_array_string "$arrayName" jsonwriter_array_callback ','
		;;
		
		null)
			local length="$(core_variable_array_length "$arrayName")"
			local index=0
			while [ $index -lt $length ]
			do
				if [ $index -gt 0 ]; then
					printf ','
				fi
				printf 'null'
			done
		;;
			
		*)
			core_exitError $core_commandLine_exitCode_SOFTWARE "Unsupported arrayType '$arrayType'"
		;;
		
	esac
	
	printf ']'
}

jsonwriter_number()
{
	printf '%s' "$1"
}

jsonwriter_boolean()
{
	if [ $# -eq 0 ]; then
		printf 'null'
		return 0
	fi
	
	case "$1" in
		
		''|null|Null|NULL|2)
			printf 'null'
			return 0
		;;
		
	esac
	
	if core_variable_isTrue "$1"; then
		printf 'true'
	else
		printf 'false'
	fi
}

jsonwriter_null()
{
	printf 'null'
}

# There might be flaws in the escaping of UTF-8 encoding in this routine
core_dependency_requires '*' awk
jsonwriter_string()
{	
	printf '"'
	printf '%s' "$1" | awk '
BEGIN {
	srand()
	FS=""
	RS="n/o/m/a/t/c/h" rand()
	ORS=""
	
	for (n = 0; n < 256; n++)
	{
		ord[sprintf("%c", n)] = n
	}
}

{
	for (i = 1; i <= NF; i++)
	{
		x=ord[$i]
		if (x < 32)
		{
			if (x == 8)
			{
				print "\\b"
			}
			else if (x == 10)
			{
				print "\\n"
			}
			else if (x == 12)
			{
				print "\\f"
			}
			else if (x == 13)
			{
				print "\\r"
			}
			else if (x == 9)
			{
				print "\\t"
			}
			else
			{
				print "\\u"
				printf("%04x", x)
			}
		}
		else
		{
			if (x == 34)
			{
				print "\\" "\""
			}
			else if (x == 47)
			{
				print "\\/"
			}
			else if (x == 92)
			{
				print "\\\\"
			}
			else
			{
				print $i
			}
		}
	}
}'
	printf '"'
}