MJSON - Revision history

Aca20031: line break fix

2015-05-22T19:31:26Z

line break fix

← Older revision		Revision as of 19:31, 22 May 2015
Line 59:		Line 59:
	; Parse top level		; Parse top level
	var %aEmployees = $json.parse(&bvar)		var %aEmployees = $json.parse(&bvar)

	echo -atg The first employee is: $mjson(%aEmployees,0,name)		echo -atg The first employee is: $mjson(%aEmployees,0,name)

Aca20031: +mjson

2015-05-22T19:30:39Z

+mjson

@@ Line 1: / Line 1: @@
 This script is a 100% native way of parsing JSON with an easy API
 ==Example==
@@ Line 47: / Line 51: @@
    json.freeall %aEmployees
+  }
 ==Script==
@@ Line 167: / Line 186: @@
       echo -atg Unknown usage of $!json --> Prop: $prop P1: $1 P2: $2
+    }
+  }
   ; Hash table layout:

Aca20031: /* Script */

2015-01-23T06:29:16Z

Script

← Older revision		Revision as of 06:29, 23 January 2015
Line 403:		Line 403:
	return %bv		return %bv
	}		}
	$json.parsearray - returns array tables (data, types) or error code		; $json.parsearray - returns array tables (data, types) or error code
	alias -l json.parsearray {		alias -l json.parsearray {
	if ($bvar($1,1) != $json.chars().ARRAY_START) {		if ($bvar($1,1) != $json.chars().ARRAY_START) {
	return $json.errors().EXPECTED_START		return $json.errors().EXPECTED_START
	}		}
	json.trimstart $1 1		json.trimstart $1 1
	; Create a linked list for the data		; Create a linked list for the data
	var %datatable = $json.createtable(1)		var %datatable = $json.createtable(1)
	; Create a linked list for the types (associative with respect to the data list)		; Create a linked list for the types (associative with respect to the data list)
	var %typetable = $json.createtable(1)		var %typetable = $json.createtable(1)
	:member		noop $json.consumewhitespace($1)
	noop $json.consumewhitespace($1)		if ($bvar($1,1) == $json.chars().ARRAY_END) {
	; Parse members		json.debug Parsed empty array successfully
	var %any = $json.parseany($1)		json.trimstart $1 1
	var %type = $gettok(%any,1,32)		return %datatable %typetable
	var %value = $gettok(%any,2-,32)		}
	if (%type == ERROR) {		:member
	json.debug Error parsing array member: %value		noop $json.consumewhitespace($1)
	json.freeall 2 %datatable %typetable		; Parse members
	return %value		var %any = $json.parseany($1)
	}		var %type = $gettok(%any,1,32)
	else {		var %value = $gettok(%any,2-,32)
	; 0 indexed		if (%type == ERROR) {
	var %newindex = $calc($hget(%datatable,0).item)		json.debug Error parsing array member: %value
	; Binary data		json.freeall 2 %datatable %typetable
	json.debug ParseArray: Add type %type array index %newindex as %value		return %value
	if (%type == 3) {		}
	hadd -b %datatable %newindex %value		else {
	}		; 0 indexed
	else {		var %newindex = $calc($hget(%datatable,0).item)
	hadd %datatable %newindex %value		; Binary data
	}		json.debug ParseArray: Add type %type array index %newindex as %value
	hadd %typetable %newindex %type		if (%type == 3) {
	}		hadd -b %datatable %newindex %value
	noop $json.consumewhitespace($1)		}
	if ($bvar($1,1) == $json.chars().DELIMITER) {		else {
	json.trimstart $1 1		hadd %datatable %newindex %value
	goto member		}
	}		hadd %typetable %newindex %type
	elseif ($bvar($1,1) == $json.chars().ARRAY_END) {		}
	json.debug Parsed array successfully		noop $json.consumewhitespace($1)
	json.trimstart $1 1		if ($bvar($1,1) == $json.chars().DELIMITER) {
	return %datatable %typetable		json.trimstart $1 1
	}		goto member
	json.debug ParseArray failed with an unknown error. Read characters: $bvar($1,1)		}
	json.freeall 2 %datatable %typetable		elseif ($bvar($1,1) == $json.chars().ARRAY_END) {
	return $json.errors().UNEXPECTED_CHAR		json.debug Parsed array successfully
			json.trimstart $1 1
			return %datatable %typetable
			}
			:exit
			json.debug ParseArray failed with an unknown error. Read characters: $bvar($1,1)
			json.freeall 2 %datatable %typetable
			return $json.errors().UNEXPECTED_CHAR
	}		}
	; $json.consumewhitespace(&binvar) - returns number consumed		; $json.consumewhitespace(&binvar) - returns number consumed

Aca20031 at 06:07, 23 January 2015

2015-01-23T06:07:39Z

← Older revision		Revision as of 06:07, 23 January 2015
Line 383:		Line 383:
	; Add this character to the end		; Add this character to the end
	bset %bv $calc($bvar(%bv,0) +1) $bvar($1,1)		bset %bv $calc($bvar(%bv,0) +1) $bvar($1,1)
			if (%escape) { dec %escape }
	:trim		:trim
	; Trim from the start		; Trim from the start

Aca20031: /* Script */

2015-01-23T02:31:38Z

Script

← Older revision		Revision as of 02:31, 23 January 2015
Line 354:		Line 354:
	if ($bvar($1,1) != $json.chars().STRING_START) { return $json.errors().EXPECTED_START }		if ($bvar($1,1) != $json.chars().STRING_START) { return $json.errors().EXPECTED_START }
	json.trimstart $1 1		json.trimstart $1 1

	var %escape = 0		var %escape = 0
	:loop		:loop
Line 369:		Line 368:
	}		}
	}		}

	if (%escape) {		if (%escape) {
	if ($bvar($1,1) == $asc(r)) { bset $1 1 $cr \| dec %escape }		if ($bvar($1,1) == $asc(r)) { bset $1 1 $cr \| dec %escape }
Line 376:		Line 374:
	if ($bvar($1,1) == $asc(b)) { bset $1 1 8 \| dec %escape }		if ($bvar($1,1) == $asc(b)) { bset $1 1 8 \| dec %escape }
	}		}

	:append		:append
	; If we're at the end of a string and not escaped, bail out		; If we're at the end of a string and not escaped, bail out
Line 389:		Line 386:
	; Trim from the start		; Trim from the start
	json.trimstart $1 1		json.trimstart $1 1


	; Make sure we haven't consumed all the input		; Make sure we haven't consumed all the input
	if ($bvar($1,0)) {		if ($bvar($1,0)) {
Line 397:		Line 392:
	return %bv		return %bv
	}		}

	; $json.parseint(&binvar) - returns an int or error code		; $json.parseint(&binvar) - returns an int or error code
	alias -l json.parseint {		alias -l json.parseint {

Aca20031: Parse string puts a null terminates and reads empty strings correctly now

2015-01-23T02:24:01Z

Parse string puts a null terminates and reads empty strings correctly now

← Older revision		Revision as of 02:24, 23 January 2015
Line 351:		Line 351:
	; $json.parsestring(&binvar) - returns string (binvar) or error code		; $json.parsestring(&binvar) - returns string (binvar) or error code
	alias -l json.parsestring {		alias -l json.parsestring {
	var %bv = $json.createbvar		var %bv = $json.createbvar
	if ($bvar($1,1) != $json.chars().STRING_START) { return $json.errors().EXPECTED_START }		if ($bvar($1,1) != $json.chars().STRING_START) { return $json.errors().EXPECTED_START }
	json.trimstart $1 1		json.trimstart $1 1
	var %escape = 0
	:loop		var %escape = 0
	if ($bvar($1,1) == $json.chars().STRING_ESCAPE) {		:loop
	if (%escape) {		if ($bvar($1,1) == $json.chars().STRING_ESCAPE) {
	; If the escape character is escaped, append it		if (%escape) {
	dec %escape		; If the escape character is escaped, append it
	goto append		dec %escape
	}		goto append
	else {		}
	inc %escape		else {
	; Skip appending		inc %escape
	goto trim		; Skip appending
	}		goto trim
	}		}
	if (%escape) {		}
	if ($bvar($1,1) == $asc(r)) { bset $1 1 $cr \| dec %escape }
	if ($bvar($1,1) == $asc(n)) { bset $1 1 $lf \| dec %escape }		if (%escape) {
	if ($bvar($1,1) == $asc(t)) { bset $1 1 9 \| dec %escape }		if ($bvar($1,1) == $asc(r)) { bset $1 1 $cr \| dec %escape }
	if ($bvar($1,1) == $asc(b)) { bset $1 1 8 \| dec %escape }		if ($bvar($1,1) == $asc(n)) { bset $1 1 $lf \| dec %escape }
	}		if ($bvar($1,1) == $asc(t)) { bset $1 1 9 \| dec %escape }
	:append		if ($bvar($1,1) == $asc(b)) { bset $1 1 8 \| dec %escape }
	~~; Add this character to the end~~		}
	~~bset %bv $calc($bvar(%bv,0) +1) $bvar($1,1)~~
	~~:trim~~		:append
	~~; Trim from the start~~		; If we're at the end of a string and not escaped, bail out
	~~json.trimstart $1 1~~		if ($bvar($1,1) == $json.chars().STRING_END && !%escape) {
	; If we're at the end of a string and not escaped, bail out		json.trimstart $1 1
	if ($bvar($1,1) == $json.chars().STRING_END && !%escape) {		bset %bv $calc($bvar(%bv,0) +1) 0
	json.trimstart $1 1		return %bv
	return %bv		}
	}		; Add this character to the end
	; Make sure we haven't consumed all the input		bset %bv $calc($bvar(%bv,0) +1) $bvar($1,1)
	if ($bvar($1,0)) {		:trim
	goto loop		; Trim from the start
	}		json.trimstart $1 1
	return %bv

			; Make sure we haven't consumed all the input
			if ($bvar($1,0)) {
			goto loop
			}
			return %bv
	}		}

	; $json.parseint(&binvar) - returns an int or error code		; $json.parseint(&binvar) - returns an int or error code
	alias -l json.parseint {		alias -l json.parseint {

Aca20031: Indexing into objects to get property count and name

2014-12-12T17:29:56Z

Indexing into objects to get property count and name

← Older revision		Revision as of 17:29, 12 December 2014
Line 49:		Line 49:

	==Script==		==Script==

	;$json.parse(&bvar \| json string) - Parses a json and returns you a "handle". Use this in the other functions		;$json.parse(&bvar \| json string) - Parses a json and returns you a "handle". Use this in the other functions
	; If the handle is "ERROR N" then N is an error code		; If the handle is "ERROR N" then N is an error code
	; $json(handle,N/PROPERTY)		; $json(handle,N/PROPERTY)
	; ~~Give~~ a handle (use json.parse first) allows you to index an array get a handle to a property		; Given a handle (use json.parse first) allows you to index an array or get a handle to a property by its name
	; .text - Returns a data property or array index as text, e.g. $json($json.parse({"foo":"bar"}),bar).text		; .text - Returns a data property or array index as text, e.g. $json($json.parse({"foo":"bar"}),bar).text
	; .bvar - Returns a data property or array index as a binvar		; .bvar - Returns a data property or array index as a binvar
Line 80:		Line 79:
	}		}
	; $json(handle [,N/PROPERTY])		; $json(handle [,N/PROPERTY])
	; Give a handle (use json.parse first) allows you to ~~index~~ an array ~~get a handle to a~~ property		; Give a handle (use json.parse first) allows you to
			; Get a property value
			; Index into an array
			; Get the Nth property name of an object
	; .text - Returns a data property or array index as text, e.g. $json($json.parse({"foo":"bar"}),bar).text		; .text - Returns a data property or array index as text, e.g. $json($json.parse({"foo":"bar"}),bar).text
	; .bvar - Returns a data property or array index as a binvar		; .bvar - Returns a data property or array index as a binvar
Line 87:		Line 89:
	var %type = $gettok($1,1,32)		var %type = $gettok($1,1,32)
	var %value = $gettok($1,2-,32)		var %value = $gettok($1,2-,32)
	if ($2 isnum && %type != 2) {		if ($2 isnum && %type == 3) {
	; Can't index non array		; Can't index non array
	echo -atg $json Cannot ~~use indexer on non-array value~~		echo -atg $json Cannot index data type
	return		return
	}		}
Line 122:		Line 124:
	}		}
	; Getting a property of an object		; Getting a property of an object
	elseif (%type == 1) {		elseif (%type == 1 && $2 !isnum) {
	var %proptype = $json.getproperty(%value,$2).type		var %proptype = $json.getproperty(%value,$2).type
	var %propvalue = $json.getproperty(%value,$2).value		var %propvalue = $json.getproperty(%value,$2).value
Line 142:		Line 144:
	else {		else {
	return %proptype %propvalue		return %proptype %propvalue
			}
			}
			elseif (%type == 1 && $2 isnum) {
			; Indexing object by index offset
			var %thisIndex = 0
			var %i = 1
			while ($hget(%value,%i).item) {
			inc %i
			var %item = $ifmatch
			var %propName = $gettok(%item,2-,$asc(.))
			if (type.* iswm %item) {
			inc %thisIndex
			}
			if (%thisIndex == $2) {
			return %propName
			}
			if ($2 == 0) { return %thisIndex }
			return $null
	}		}
	}		}

Aca20031: json.freeall is not a public alias

2014-12-07T01:50:38Z

json.freeall is not a public alias

← Older revision		Revision as of 01:50, 7 December 2014
Line 160:		Line 160:
	}		}
	; /json.freeall <type> <value>		; /json.freeall <type> <value>
	alias -l json.freeall {		alias json.freeall {
	if (!$isid) {		if (!$isid) {
	noop $json.proxyrecurse2(json.freeall,$1,$2-)		noop $json.proxyrecurse2(json.freeall,$1,$2-)

Aca20031: Fixed ParseObject failures not being cleaned up because we were not passing the type

2014-12-07T01:47:05Z

Fixed ParseObject failures not being cleaned up because we were not passing the type

← Older revision		Revision as of 01:47, 7 December 2014
Line 324:		Line 324:
	if (%error) {		if (%error) {
	json.debug ParseObject Exiting with error %error		json.debug ParseObject Exiting with error %error
	json.freeall %table		json.freeall 1 %table
	return %error		return %error
	}		}

Aca20031 at 01:40, 7 December 2014

2014-12-07T01:40:48Z

← Older revision		Revision as of 01:40, 7 December 2014
Line 47:		Line 47:
	json.freeall %aEmployees		json.freeall %aEmployees
	}		}

			==Script==

	;$json.parse(&bvar \| json string) - Parses a json and returns you a "handle". Use this in the other functions		;$json.parse(&bvar \| json string) - Parses a json and returns you a "handle". Use this in the other functions