version	U12.1.00
uid	jsonrpc.u1-1786033048-0
record	json__JRPC_Message__state,5
	0,__s
	1,__m
	2,msg
	3,kind
	4,json_table
record	json__JRPC_Message__methods,21
	0,parse_json
	1,guess_kind
	2,get_kind
	3,get_id
	4,get_method
	5,get_params
	6,get_param_uri
	7,get_result
	8,get_error
	9,get_content
	10,to_json
	11,init_msg
	12,set_result
	13,set_id
	14,set_method
	15,set_params
	16,make_result_response
	17,make_request
	18,make_notification
	19,make_error_response
	20,initially
record	json__JSON_HTTPSocket__state,3
	0,__s
	1,__m
	2,sock
record	json__JSON_HTTPSocket__methods,5
	0,get_http_header
	1,get_data
	2,get_msg
	3,send_msg
	4,initially
record	json__JRPC_HTTPSocket__state,3
	0,__s
	1,__m
	2,sock
record	json__JRPC_HTTPSocket__methods,6
	0,get_msg
	1,send_msg
	2,initially
	3,get_http_header
	4,get_data
	5,json__JSON_HTTPSocket
impl	local
link	ximage.u
global	44
	0,000005,json__JRPC_Message_parse_json,2
	1,000005,json__JRPC_Message_guess_kind,1
	2,000005,json__JRPC_Message_get_kind,1
	3,000005,json__JRPC_Message_get_id,1
	4,000005,json__JRPC_Message_get_method,1
	5,000005,json__JRPC_Message_get_params,1
	6,000005,json__JRPC_Message_get_param_uri,1
	7,000005,json__JRPC_Message_get_result,1
	8,000005,json__JRPC_Message_get_error,1
	9,000005,json__JRPC_Message_get_content,1
	10,000005,json__JRPC_Message_to_json,1
	11,000005,json__JRPC_Message_init_msg,1
	12,000005,json__JRPC_Message_set_result,2
	13,000005,json__JRPC_Message_set_id,2
	14,000005,json__JRPC_Message_set_method,2
	15,000005,json__JRPC_Message_set_params,2
	16,000005,json__JRPC_Message_make_result_response,2
	17,000005,json__JRPC_Message_make_request,4
	18,000005,json__JRPC_Message_make_notification,3
	19,000005,json__JRPC_Message_make_error_response,4
	20,000005,json__JRPC_Message_initially,1
	21,000011,json__JRPC_Message__state,5
	22,000011,json__JRPC_Message__methods,21
	23,000001,json__JRPC_Message__oprec,0
	24,000005,json__JRPC_Message,3
	25,000005,json__JRPC_Messageinitialize,0
	26,000005,json__JSON_HTTPSocket_get_http_header,2
	27,000005,json__JSON_HTTPSocket_get_data,3
	28,000005,json__JSON_HTTPSocket_get_msg,2
	29,000005,json__JSON_HTTPSocket_send_msg,2
	30,000005,json__JSON_HTTPSocket_initially,3
	31,000011,json__JSON_HTTPSocket__state,3
	32,000011,json__JSON_HTTPSocket__methods,5
	33,000001,json__JSON_HTTPSocket__oprec,0
	34,000005,json__JSON_HTTPSocket,2
	35,000005,json__JSON_HTTPSocketinitialize,0
	36,000005,json__JRPC_HTTPSocket_get_msg,2
	37,000005,json__JRPC_HTTPSocket_send_msg,2
	38,000005,json__JRPC_HTTPSocket_initially,3
	39,000011,json__JRPC_HTTPSocket__state,3
	40,000011,json__JRPC_HTTPSocket__methods,6
	41,000001,json__JRPC_HTTPSocket__oprec,0
	42,000005,json__JRPC_HTTPSocket,2
	43,000005,json__JRPC_HTTPSocketinitialize,0

proc json__JRPC_Message_parse_json
	local	0,001000,self
	local	1,001000,s
	local	2,000000,json__jtous
	con	0,010000,7,165,156,153,156,157,167,156
	declend
	filen	jsonrpc.icn
	line	44
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	45
	colm	11
	synt	any
	field	msg
	var	1
	line	45
	colm	15
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	46
	colm	11
	synt	any
	field	json_table
	line	46
	colm	24
	synt	any
	keywd	null
	line	46
	colm	22
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	48
	colm	7
	synt	ifelse
	mark	L4
	pnull
	pnull
	var	0
	line	48
	colm	14
	synt	any
	field	json_table
	var	2
	var	1
	line	48
	colm	38
	synt	any
	invoke	1
	line	48
	colm	25
	synt	any
	asgn
	unmark
	mark	L6
	pnull
	var	0
	line	49
	colm	14
	synt	any
	field	guess_kind
	line	49
	colm	25
	synt	any
	invoke	0
	unmark
lab L6
	mark	L7
	var	0
	line	50
	colm	10
	synt	any
	pret
lab L7
	synt	any
	pfail
	goto	L5
lab L4
	pnull
	pnull
	var	0
	line	52
	colm	14
	synt	any
	field	kind
	str	0
	line	52
	colm	19
	synt	any
	asgn
lab L5
	line	48
	colm	7
	synt	endifelse
	unmark
lab L3
	pnull
	line	53
	colm	1
	synt	any
	pfail
	end
proc json__JRPC_Message_guess_kind
	local	0,001000,self
	con	0,010000,5,145,162,162,157,162
	con	1,010000,6,155,145,164,150,157,144
	con	2,010000,2,151,144
	con	3,010000,7,162,145,161,165,145,163,164
	con	4,010000,12,156,157,164,151,146,151,143,141,164,151,157,156
	con	5,010000,6,162,145,163,165,154,164
	con	6,010000,8,162,145,163,160,157,156,163,145
	con	7,010000,7,165,156,153,156,157,167,156
	declend
	line	56
	colm	11
	synt	any
	mark	L1
	line	57
	colm	7
	synt	ifelse
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	57
	colm	15
	synt	any
	field	json_table
	str	0
	line	57
	colm	26
	synt	any
	subsc
	line	57
	colm	10
	synt	any
	nonnull
	unmark
	pnull
	pnull
	var	0
	line	58
	colm	14
	synt	any
	field	kind
	str	0
	line	58
	colm	19
	synt	any
	asgn
	goto	L3
lab L2
	line	59
	colm	12
	synt	ifelse
	mark	L4
	pnull
	pnull
	pnull
	var	0
	line	59
	colm	20
	synt	any
	field	json_table
	str	1
	line	59
	colm	31
	synt	any
	subsc
	line	59
	colm	15
	synt	any
	nonnull
	unmark
	pnull
	pnull
	var	0
	line	60
	colm	14
	synt	any
	field	kind
	line	60
	colm	21
	synt	ifelse
	mark	L6
	pnull
	pnull
	pnull
	var	0
	line	60
	colm	28
	synt	any
	field	json_table
	str	2
	line	60
	colm	39
	synt	any
	subsc
	line	60
	colm	23
	synt	any
	nonnull
	unmark
	str	3
	goto	L7
lab L6
	str	4
lab L7
	line	60
	colm	21
	synt	endifelse
	line	60
	colm	19
	synt	any
	asgn
	goto	L5
lab L4
	line	61
	colm	12
	synt	ifelse
	mark	L8
	pnull
	pnull
	pnull
	var	0
	line	61
	colm	20
	synt	any
	field	json_table
	str	5
	line	61
	colm	31
	synt	any
	subsc
	line	61
	colm	15
	synt	any
	nonnull
	unmark
	pnull
	pnull
	var	0
	line	62
	colm	14
	synt	any
	field	kind
	str	6
	line	62
	colm	19
	synt	any
	asgn
	goto	L9
lab L8
	pnull
	pnull
	var	0
	line	64
	colm	14
	synt	any
	field	kind
	str	7
	line	64
	colm	19
	synt	any
	asgn
lab L9
	line	61
	colm	12
	synt	endifelse
lab L5
	line	59
	colm	12
	synt	endifelse
lab L3
	line	57
	colm	7
	synt	endifelse
	unmark
lab L1
	mark	L10
	mark	L11
	pnull
	var	0
	line	66
	colm	18
	synt	any
	field	kind
	line	66
	colm	7
	synt	any
	pret
lab L11
	synt	any
	pfail
	unmark
lab L10
	pnull
	line	67
	colm	1
	synt	any
	pfail
	end
proc json__JRPC_Message_get_kind
	local	0,001000,self
	declend
	line	70
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	71
	colm	18
	synt	any
	field	kind
	line	71
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	72
	colm	1
	synt	any
	pfail
	end
proc json__JRPC_Message_get_id
	local	0,001000,self
	con	0,010000,2,151,144
	declend
	line	74
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	75
	colm	18
	synt	any
	field	json_table
	str	0
	line	75
	colm	29
	synt	any
	subsc
	line	75
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	76
	colm	1
	synt	any
	pfail
	end
proc json__JRPC_Message_get_method
	local	0,001000,self
	con	0,010000,6,155,145,164,150,157,144
	declend
	line	78
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	79
	colm	18
	synt	any
	field	json_table
	str	0
	line	79
	colm	29
	synt	any
	subsc
	line	79
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	80
	colm	1
	synt	any
	pfail
	end
proc json__JRPC_Message_get_params
	local	0,001000,self
	con	0,010000,6,160,141,162,141,155,163
	declend
	line	82
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	83
	colm	18
	synt	any
	field	json_table
	str	0
	line	83
	colm	29
	synt	any
	subsc
	line	83
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	84
	colm	1
	synt	any
	pfail
	end
proc json__JRPC_Message_get_param_uri
	local	0,001000,self
	con	0,010000,6,160,141,162,141,155,163
	con	1,010000,12,164,145,170,164,104,157,143,165,155,145,156,164
	con	2,010000,3,165,162,151
	declend
	line	87
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	pnull
	var	0
	line	88
	colm	18
	synt	any
	field	json_table
	str	0
	line	88
	colm	29
	synt	any
	subsc
	str	1
	line	88
	colm	39
	synt	any
	subsc
	str	2
	line	88
	colm	55
	synt	any
	subsc
	line	88
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	89
	colm	1
	synt	any
	pfail
	end
proc json__JRPC_Message_get_result
	local	0,001000,self
	con	0,010000,6,162,145,163,165,154,164
	declend
	line	92
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	93
	colm	18
	synt	any
	field	json_table
	str	0
	line	93
	colm	29
	synt	any
	subsc
	line	93
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	94
	colm	1
	synt	any
	pfail
	end
proc json__JRPC_Message_get_error
	local	0,001000,self
	con	0,010000,5,145,162,162,157,162
	declend
	line	96
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	97
	colm	18
	synt	any
	field	json_table
	str	0
	line	97
	colm	29
	synt	any
	subsc
	line	97
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	98
	colm	1
	synt	any
	pfail
	end
proc json__JRPC_Message_get_content
	local	0,001000,self
	declend
	line	100
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	101
	colm	18
	synt	any
	field	msg
	line	101
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	102
	colm	1
	synt	any
	pfail
	end
proc json__JRPC_Message_to_json
	local	0,001000,self
	local	1,000000,json__tojson
	declend
	line	104
	colm	11
	synt	any
	mark	L1
	line	105
	colm	7
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	105
	colm	14
	synt	any
	field	msg
	var	1
	pnull
	var	0
	line	105
	colm	37
	synt	any
	field	json_table
	line	105
	colm	32
	synt	any
	invoke	1
	line	105
	colm	18
	synt	any
	asgn
	unmark
	mark	L2
	pnull
	var	0
	line	106
	colm	21
	synt	any
	field	msg
	line	106
	colm	10
	synt	any
	pret
lab L2
	synt	any
	pfail
	line	105
	colm	7
	synt	endif
	unmark
lab L1
	pnull
	line	107
	colm	1
	synt	any
	pfail
	end
proc json__JRPC_Message_init_msg
	local	0,001000,self
	local	1,000000,table
	con	0,010000,7,152,163,157,156,162,160,143
	con	1,010000,3,062,056,060
	declend
	line	110
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	111
	colm	12
	synt	any
	field	json_table
	line	111
	colm	7
	synt	any
	null
	var	1
	str	0
	str	1
	line	111
	colm	30
	synt	any
	invoke	2
	line	111
	colm	23
	synt	any
	asgn
	unmark
lab L1
	pnull
	line	112
	colm	1
	synt	any
	pfail
	end
proc json__JRPC_Message_set_result
	local	0,001000,self
	local	1,001000,result
	con	0,010000,6,162,145,163,165,154,164
	declend
	line	115
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	116
	colm	11
	synt	any
	field	init_msg
	line	116
	colm	20
	synt	any
	invoke	0
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	117
	colm	11
	synt	any
	field	json_table
	str	0
	line	117
	colm	22
	synt	any
	subsc
	var	1
	line	117
	colm	32
	synt	any
	asgn
	unmark
lab L2
	pnull
	line	118
	colm	1
	synt	any
	pfail
	end
proc json__JRPC_Message_set_id
	local	0,001000,self
	local	1,001000,id
	con	0,010000,2,151,144
	declend
	line	120
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	121
	colm	11
	synt	any
	field	init_msg
	line	121
	colm	20
	synt	any
	invoke	0
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	122
	colm	18
	synt	any
	field	json_table
	str	0
	line	122
	colm	29
	synt	any
	subsc
	var	1
	line	122
	colm	35
	synt	any
	asgn
	line	122
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	123
	colm	1
	synt	any
	pfail
	end
proc json__JRPC_Message_set_method
	local	0,001000,self
	local	1,001000,meth
	con	0,010000,6,155,145,164,150,157,144
	declend
	line	125
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	126
	colm	11
	synt	any
	field	init_msg
	line	126
	colm	20
	synt	any
	invoke	0
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	127
	colm	11
	synt	any
	field	json_table
	str	0
	line	127
	colm	22
	synt	any
	subsc
	var	1
	line	127
	colm	32
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	0
	line	128
	colm	11
	synt	any
	field	guess_kind
	line	128
	colm	22
	synt	any
	invoke	0
	unmark
lab L3
	mark	L4
	mark	L5
	var	1
	line	129
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	130
	colm	1
	synt	any
	pfail
	end
proc json__JRPC_Message_set_params
	local	0,001000,self
	local	1,001000,params
	con	0,010000,6,160,141,162,141,155,163
	declend
	line	132
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	133
	colm	11
	synt	any
	field	init_msg
	line	133
	colm	20
	synt	any
	invoke	0
	unmark
lab L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	134
	colm	11
	synt	any
	field	json_table
	str	0
	line	134
	colm	22
	synt	any
	subsc
	var	1
	line	134
	colm	32
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	var	1
	line	135
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	136
	colm	1
	synt	any
	pfail
	end
proc json__JRPC_Message_make_result_response
	local	0,001000,self
	local	1,001000,result
	local	2,000000,delete
	local	3,000000,json__tojson
	con	0,010000,6,155,145,164,150,157,144
	con	1,010000,6,160,141,162,141,155,163
	con	2,010000,5,145,162,162,157,162
	con	3,010000,6,162,145,163,165,154,164
	declend
	line	139
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	140
	colm	11
	synt	any
	field	init_msg
	line	140
	colm	20
	synt	any
	invoke	0
	unmark
lab L1
	mark	L2
	var	2
	pnull
	var	0
	line	141
	colm	18
	synt	any
	field	json_table
	str	0
	str	1
	str	2
	line	141
	colm	13
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	143
	colm	11
	synt	any
	field	json_table
	str	3
	line	143
	colm	22
	synt	any
	subsc
	var	1
	line	143
	colm	32
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	0
	line	144
	colm	11
	synt	any
	field	guess_kind
	line	144
	colm	22
	synt	any
	invoke	0
	unmark
lab L4
	mark	L5
	line	145
	colm	7
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	145
	colm	14
	synt	any
	field	msg
	var	3
	pnull
	var	0
	line	145
	colm	37
	synt	any
	field	json_table
	line	145
	colm	32
	synt	any
	invoke	1
	line	145
	colm	18
	synt	any
	asgn
	unmark
	mark	L6
	var	0
	line	146
	colm	10
	synt	any
	pret
lab L6
	synt	any
	pfail
	line	145
	colm	7
	synt	endif
	unmark
lab L5
	pnull
	line	147
	colm	1
	synt	any
	pfail
	end
proc json__JRPC_Message_make_request
	local	0,001000,self
	local	1,001000,id
	local	2,001000,meth
	local	3,001000,params
	local	4,000000,table
	local	5,000000,delete
	local	6,000000,json__tojson
	con	0,010000,2,151,144
	con	1,010000,6,155,145,164,150,157,144
	con	2,010000,6,160,141,162,141,155,163
	con	3,010000,6,162,145,163,165,154,164
	con	4,010000,5,145,162,162,157,162
	declend
	line	150
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	151
	colm	11
	synt	any
	field	init_msg
	line	151
	colm	20
	synt	any
	invoke	0
	unmark
lab L1
	mark	L2
	line	152
	colm	7
	synt	ifelse
	mark	L3
	pnull
	pnull
	var	0
	line	152
	colm	15
	synt	any
	field	json_table
	line	152
	colm	10
	synt	any
	null
	unmark
	pnull
	pnull
	var	0
	line	153
	colm	14
	synt	any
	field	json_table
	var	4
	str	0
	var	1
	str	1
	var	2
	str	2
	var	3
	line	153
	colm	32
	synt	any
	invoke	6
	line	153
	colm	25
	synt	any
	asgn
	goto	L4
lab L3
	mark	L5
	var	5
	pnull
	var	0
	line	159
	colm	21
	synt	any
	field	json_table
	str	3
	str	4
	line	159
	colm	16
	synt	any
	invoke	3
	unmark
lab L5
	mark	L6
	pnull
	pnull
	pnull
	var	0
	line	160
	colm	14
	synt	any
	field	json_table
	str	0
	line	160
	colm	25
	synt	any
	subsc
	var	1
	line	160
	colm	31
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	pnull
	pnull
	var	0
	line	161
	colm	14
	synt	any
	field	json_table
	str	1
	line	161
	colm	25
	synt	any
	subsc
	var	2
	line	161
	colm	35
	synt	any
	asgn
	unmark
lab L7
	pnull
	pnull
	pnull
	var	0
	line	162
	colm	14
	synt	any
	field	json_table
	str	2
	line	162
	colm	25
	synt	any
	subsc
	var	3
	line	162
	colm	35
	synt	any
	asgn
lab L4
	line	152
	colm	7
	synt	endifelse
	unmark
lab L2
	mark	L8
	pnull
	var	0
	line	164
	colm	11
	synt	any
	field	guess_kind
	line	164
	colm	22
	synt	any
	invoke	0
	unmark
lab L8
	mark	L9
	line	165
	colm	7
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	165
	colm	14
	synt	any
	field	msg
	var	6
	pnull
	var	0
	line	165
	colm	37
	synt	any
	field	json_table
	line	165
	colm	32
	synt	any
	invoke	1
	line	165
	colm	18
	synt	any
	asgn
	unmark
	mark	L10
	var	0
	line	166
	colm	10
	synt	any
	pret
lab L10
	synt	any
	pfail
	line	165
	colm	7
	synt	endif
	unmark
lab L9
	pnull
	line	167
	colm	1
	synt	any
	pfail
	end
proc json__JRPC_Message_make_notification
	local	0,001000,self
	local	1,001000,meth
	local	2,001000,params
	local	3,000000,table
	local	4,000000,delete
	local	5,000000,json__tojson
	con	0,010000,6,155,145,164,150,157,144
	con	1,010000,6,160,141,162,141,155,163
	con	2,010000,2,151,144
	con	3,010000,6,162,145,163,165,154,164
	con	4,010000,5,145,162,162,157,162
	declend
	line	169
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	170
	colm	11
	synt	any
	field	init_msg
	line	170
	colm	20
	synt	any
	invoke	0
	unmark
lab L1
	mark	L2
	line	171
	colm	7
	synt	ifelse
	mark	L3
	pnull
	pnull
	var	0
	line	171
	colm	15
	synt	any
	field	json_table
	line	171
	colm	10
	synt	any
	null
	unmark
	pnull
	pnull
	var	0
	line	172
	colm	14
	synt	any
	field	json_table
	var	3
	str	0
	var	1
	str	1
	var	2
	line	172
	colm	32
	synt	any
	invoke	4
	line	172
	colm	25
	synt	any
	asgn
	goto	L4
lab L3
	mark	L5
	var	4
	pnull
	var	0
	line	177
	colm	21
	synt	any
	field	json_table
	str	2
	str	3
	str	4
	line	177
	colm	16
	synt	any
	invoke	4
	unmark
lab L5
	mark	L6
	pnull
	pnull
	pnull
	var	0
	line	178
	colm	14
	synt	any
	field	json_table
	str	0
	line	178
	colm	25
	synt	any
	subsc
	var	1
	line	178
	colm	35
	synt	any
	asgn
	unmark
lab L6
	pnull
	pnull
	pnull
	var	0
	line	179
	colm	14
	synt	any
	field	json_table
	str	1
	line	179
	colm	25
	synt	any
	subsc
	var	2
	line	179
	colm	35
	synt	any
	asgn
lab L4
	line	171
	colm	7
	synt	endifelse
	unmark
lab L2
	mark	L7
	pnull
	var	0
	line	181
	colm	11
	synt	any
	field	guess_kind
	line	181
	colm	22
	synt	any
	invoke	0
	unmark
lab L7
	mark	L8
	line	182
	colm	7
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	182
	colm	14
	synt	any
	field	msg
	var	5
	pnull
	var	0
	line	182
	colm	37
	synt	any
	field	json_table
	line	182
	colm	32
	synt	any
	invoke	1
	line	182
	colm	18
	synt	any
	asgn
	unmark
	mark	L9
	var	0
	line	183
	colm	10
	synt	any
	pret
lab L9
	synt	any
	pfail
	line	182
	colm	7
	synt	endif
	unmark
lab L8
	pnull
	line	184
	colm	1
	synt	any
	pfail
	end
proc json__JRPC_Message_make_error_response
	local	0,001000,self
	local	1,001000,err_code
	local	2,001000,err_msg
	local	3,001000,err_data
	local	4,000000,table
	local	5,000000,delete
	local	6,000000,json__tojson
	con	0,010000,5,145,162,162,157,162
	con	1,010000,4,143,157,144,145
	con	2,010000,7,155,145,163,163,141,147,145
	con	3,010000,4,144,141,164,141
	con	4,010000,0
	con	5,010000,6,155,145,164,150,157,144
	con	6,010000,6,160,141,162,141,155,163
	con	7,010000,6,162,145,163,165,154,164
	declend
	line	235
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	236
	colm	11
	synt	any
	field	init_msg
	line	236
	colm	20
	synt	any
	invoke	0
	unmark
lab L1
	mark	L2
	line	237
	colm	7
	synt	ifelse
	mark	L3
	pnull
	pnull
	var	0
	line	237
	colm	15
	synt	any
	field	json_table
	line	237
	colm	10
	synt	any
	null
	unmark
	pnull
	pnull
	var	0
	line	238
	colm	14
	synt	any
	field	json_table
	var	4
	str	0
	var	4
	str	1
	var	1
	str	2
	var	2
	str	3
	mark	L5
	pnull
	var	3
	line	242
	colm	25
	synt	any
	nonnull
	line	242
	colm	35
	synt	any
	esusp
	goto	L6
lab L5
	str	4
lab L6
	line	239
	colm	28
	synt	any
	invoke	6
	line	238
	colm	32
	synt	any
	invoke	2
	line	238
	colm	25
	synt	any
	asgn
	goto	L4
lab L3
	mark	L7
	var	5
	pnull
	var	0
	line	246
	colm	21
	synt	any
	field	json_table
	str	5
	str	6
	str	7
	line	246
	colm	16
	synt	any
	invoke	4
	unmark
lab L7
	pnull
	pnull
	pnull
	var	0
	line	247
	colm	14
	synt	any
	field	json_table
	str	0
	line	247
	colm	25
	synt	any
	subsc
	var	4
	str	1
	var	1
	str	2
	var	2
	str	3
	mark	L8
	pnull
	var	3
	line	250
	colm	22
	synt	any
	nonnull
	line	250
	colm	32
	synt	any
	esusp
	goto	L9
lab L8
	str	4
lab L9
	line	247
	colm	41
	synt	any
	invoke	6
	line	247
	colm	34
	synt	any
	asgn
lab L4
	line	237
	colm	7
	synt	endifelse
	unmark
lab L2
	mark	L10
	pnull
	var	0
	line	253
	colm	11
	synt	any
	field	guess_kind
	line	253
	colm	22
	synt	any
	invoke	0
	unmark
lab L10
	mark	L11
	line	254
	colm	7
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	254
	colm	14
	synt	any
	field	msg
	var	6
	pnull
	var	0
	line	254
	colm	37
	synt	any
	field	json_table
	line	254
	colm	32
	synt	any
	invoke	1
	line	254
	colm	18
	synt	any
	asgn
	unmark
	mark	L12
	var	0
	line	255
	colm	10
	synt	any
	pret
lab L12
	synt	any
	pfail
	line	254
	colm	7
	synt	endif
	unmark
lab L11
	pnull
	line	256
	colm	1
	synt	any
	pfail
	end
proc json__JRPC_Message_initially
	local	0,001000,self
	con	0,010000,7,165,156,153,156,157,167,156
	declend
	line	259
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	260
	colm	11
	synt	any
	field	kind
	str	0
	line	260
	colm	16
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	261
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	262
	colm	1
	synt	any
	pfail
	end
proc json__JRPC_Message
	local	0,001000,msg
	local	1,001000,kind
	local	2,001000,json_table
	local	3,000020,self
	local	4,000020,clone
	local	5,000000,json__JRPC_Message__oprec
	local	6,000000,json__JRPC_Messageinitialize
	local	7,000000,json__JRPC_Message__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	5
	line	8
	colm	6
	synt	any
	null
	unmark
	var	6
	line	8
	colm	66
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	pnull
	var	3
	var	7
	line	10
	colm	37
	synt	any
	keywd	null
	var	5
	var	0
	var	1
	var	2
	line	10
	colm	36
	synt	any
	invoke	5
	line	10
	colm	8
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	3
	line	11
	colm	7
	synt	any
	field	__s
	var	3
	line	11
	colm	12
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	mark	L7
	pnull
	pnull
	var	3
	line	12
	colm	7
	synt	any
	field	__m
	line	12
	colm	11
	synt	any
	field	initially
	var	3
	line	12
	colm	21
	synt	any
	invoke	1
	line	12
	colm	28
	synt	any
	esusp
	goto	L8
lab L7
	line	12
	colm	30
	synt	any
	pfail
lab L8
	unmark
lab L6
	mark	L9
	mark	L10
	var	3
	line	13
	colm	3
	synt	any
	pret
lab L10
	synt	any
	pfail
	unmark
lab L9
	pnull
	line	14
	colm	1
	synt	any
	pfail
	end
proc json__JRPC_Messageinitialize
	local	0,000000,json__JRPC_Message__oprec
	local	1,000000,json__JRPC_Message__methods
	local	2,000000,json__JRPC_Message_parse_json
	local	3,000000,json__JRPC_Message_guess_kind
	local	4,000000,json__JRPC_Message_get_kind
	local	5,000000,json__JRPC_Message_get_id
	local	6,000000,json__JRPC_Message_get_method
	local	7,000000,json__JRPC_Message_get_params
	local	8,000000,json__JRPC_Message_get_param_uri
	local	9,000000,json__JRPC_Message_get_result
	local	10,000000,json__JRPC_Message_get_error
	local	11,000000,json__JRPC_Message_get_content
	local	12,000000,json__JRPC_Message_to_json
	local	13,000000,json__JRPC_Message_init_msg
	local	14,000000,json__JRPC_Message_set_result
	local	15,000000,json__JRPC_Message_set_id
	local	16,000000,json__JRPC_Message_set_method
	local	17,000000,json__JRPC_Message_set_params
	local	18,000000,json__JRPC_Message_make_result_response
	local	19,000000,json__JRPC_Message_make_request
	local	20,000000,json__JRPC_Message_make_notification
	local	21,000000,json__JRPC_Message_make_error_response
	local	22,000000,json__JRPC_Message_initially
	declend
	line	16
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	14
	var	15
	var	16
	var	17
	var	18
	var	19
	var	20
	var	21
	var	22
	line	17
	colm	67
	synt	any
	invoke	21
	line	17
	colm	37
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	18
	colm	1
	synt	any
	pfail
	end
proc json__JSON_HTTPSocket_get_http_header
	local	0,001000,self
	local	1,001000,timeout
	local	2,000020,len
	local	3,000020,data
	local	4,000020,size
	local	5,000020,chunk
	local	6,000000,select
	local	7,000000,ready
	local	8,000000,integer
	local	9,000000,tab
	local	10,000000,many
	local	11,000000,find
	con	0,010000,0
	con	1,002000,2,22
	con	2,002000,1,1
	con	3,002000,1,0
	con	4,010000,16,103,157,156,164,145,156,164,055,114,145,156,147,164,150,072,040
	con	5,010000,4,015,012,015,012
	declend
	filen	jsonrpc.icn
	line	272
	colm	11
	synt	any
	mark	L1
	pnull
	var	3
	str	0
	line	273
	colm	23
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	4
	int	1
	line	273
	colm	35
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	1
	line	274
	colm	7
	synt	any
	null
	pnull
	int	2
	line	274
	colm	19
	synt	any
	neg
	line	274
	colm	16
	synt	any
	asgn
	unmark
lab L3
	mark	L4
lab L5
	line	275
	colm	7
	synt	repeat
	mark	L5
	mark	L8
	mark	L9
	pnull
	pnull
	var	6
	pnull
	pnull
	var	0
	line	279
	colm	23
	synt	any
	field	sock
	line	279
	colm	18
	synt	any
	nonnull
	var	1
	line	279
	colm	17
	synt	any
	invoke	2
	line	279
	colm	10
	synt	any
	size
	int	3
	line	279
	colm	37
	synt	any
	numgt
	line	279
	colm	39
	synt	any
	esusp
	goto	L10
lab L9
	line	279
	colm	41
	synt	any
	pfail
lab L10
	unmark
lab L8
	mark	L11
	pnull
	var	5
	var	7
	pnull
	var	0
	line	281
	colm	29
	synt	any
	field	sock
	pnull
	var	4
	pnull
	var	3
	line	281
	colm	40
	synt	any
	size
	line	281
	colm	39
	synt	any
	minus
	line	281
	colm	24
	synt	any
	invoke	2
	line	281
	colm	16
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	mark	L13
	pnull
	var	5
	line	282
	colm	10
	synt	any
	nonnull
	line	282
	colm	17
	synt	any
	esusp
	goto	L14
lab L13
	line	282
	colm	19
	synt	any
	pfail
lab L14
	unmark
lab L12
	mark	L15
	mark	L16
	pnull
	var	5
	str	0
	line	283
	colm	16
	synt	any
	lexne
	line	283
	colm	23
	synt	any
	esusp
	goto	L17
lab L16
	line	283
	colm	25
	synt	any
	pfail
lab L17
	unmark
lab L15
	mark	L18
	pnull
	var	3
	dup
	var	5
	line	284
	colm	15
	synt	any
	cat
	asgn
	unmark
lab L18
	mark	L19
	line	286
	colm	10
	synt	if
	mark0
	pnull
	pnull
	var	3
	line	286
	colm	13
	synt	any
	size
	var	4
	line	286
	colm	19
	synt	any
	numlt
	unmark
	unmark
	goto	L6
	line	286
	colm	10
	synt	endif
	unmark
lab L19
	var	3
	line	288
	colm	15
	synt	any
	bscan
	line	289
	colm	13
	synt	ifelse
	mark	L20
	pnull
	str	4
	line	289
	colm	16
	synt	any
	tabmat
	unmark
	mark	L22
	pnull
	var	2
	mark	L23
	var	8
	var	9
	var	10
	line	290
	colm	40
	synt	any
	keywd	digits
	line	290
	colm	39
	synt	any
	invoke	1
	line	290
	colm	34
	synt	any
	invoke	1
	line	290
	colm	30
	synt	any
	invoke	1
	line	290
	colm	51
	synt	any
	esusp
	goto	L24
lab L23
	line	290
	colm	53
	synt	any
	pfail
lab L24
	line	290
	colm	20
	synt	any
	asgn
	unmark
lab L22
	mark	L25
	pnull
	str	5
	line	294
	colm	16
	synt	any
	tabmat
	pop
	mark	L26
	var	2
	line	294
	colm	30
	synt	any
	pret
lab L26
	synt	any
	pfail
	unmark
lab L25
	pnull
	var	4
	dup
	int	2
	line	295
	colm	21
	synt	any
	plus
	asgn
	goto	L21
lab L20
	pnull
	var	3
	mark	L27
	var	9
	var	11
	str	4
	line	298
	colm	32
	synt	any
	invoke	1
	line	298
	colm	27
	synt	any
	invoke	1
	line	298
	colm	54
	synt	any
	esusp
	goto	L28
lab L27
	str	0
lab L28
	line	298
	colm	21
	synt	any
	asgn
lab L21
	line	289
	colm	13
	synt	endifelse
	line	288
	colm	15
	synt	any
	escan
lab L6
	unmark
	goto	L5
lab L7
	line	275
	colm	7
	synt	endrepeat
	unmark
lab L4
	pnull
	line	301
	colm	1
	synt	any
	pfail
	end
proc json__JSON_HTTPSocket_get_data
	local	0,001000,self
	local	1,001000,size
	local	2,001000,timeout
	local	3,000020,data
	local	4,000020,chunk
	local	5,000000,select
	local	6,000000,ready
	con	0,010000,0
	con	1,002000,1,1
	con	2,002000,1,0
	declend
	line	304
	colm	11
	synt	any
	mark	L1
	pnull
	var	3
	str	0
	line	305
	colm	18
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	2
	line	306
	colm	7
	synt	any
	null
	pnull
	int	1
	line	306
	colm	19
	synt	any
	neg
	line	306
	colm	16
	synt	any
	asgn
	unmark
lab L2
	mark	L3
lab L4
	line	307
	colm	7
	synt	while
	mark0
	pnull
	pnull
	var	3
	line	307
	colm	13
	synt	any
	size
	var	1
	line	307
	colm	19
	synt	any
	numlt
	unmark
	mark	L4
	mark	L7
	mark	L8
	pnull
	pnull
	var	5
	pnull
	var	0
	line	308
	colm	22
	synt	any
	field	sock
	var	2
	line	308
	colm	17
	synt	any
	invoke	2
	line	308
	colm	10
	synt	any
	size
	int	2
	line	308
	colm	36
	synt	any
	numgt
	line	308
	colm	38
	synt	any
	esusp
	goto	L9
lab L8
	line	308
	colm	39
	synt	any
	pfail
lab L9
	unmark
lab L7
	mark	L10
	pnull
	var	4
	var	6
	pnull
	var	0
	line	310
	colm	29
	synt	any
	field	sock
	pnull
	var	1
	pnull
	var	3
	line	310
	colm	40
	synt	any
	size
	line	310
	colm	39
	synt	any
	minus
	line	310
	colm	24
	synt	any
	invoke	2
	line	310
	colm	16
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	mark	L12
	pnull
	var	4
	line	311
	colm	10
	synt	any
	nonnull
	line	311
	colm	17
	synt	any
	esusp
	goto	L13
lab L12
	line	311
	colm	19
	synt	any
	pfail
lab L13
	unmark
lab L11
	mark	L14
	mark	L15
	pnull
	var	4
	str	0
	line	312
	colm	16
	synt	any
	lexne
	line	312
	colm	23
	synt	any
	esusp
	goto	L16
lab L15
	line	312
	colm	25
	synt	any
	pfail
lab L16
	unmark
lab L14
	pnull
	var	3
	dup
	var	4
	line	313
	colm	15
	synt	any
	cat
	asgn
lab L5
	unmark
	goto	L4
lab L6
	line	307
	colm	7
	synt	endwhile
	unmark
lab L3
	mark	L17
	mark	L18
	var	3
	line	315
	colm	7
	synt	any
	pret
lab L18
	synt	any
	pfail
	unmark
lab L17
	pnull
	line	316
	colm	1
	synt	any
	pfail
	end
proc json__JSON_HTTPSocket_get_msg
	local	0,001000,self
	local	1,001000,timeout
	local	2,000020,len
	local	3,000020,body
	local	4,000020,t
	local	5,000000,json__jtous
	declend
	line	318
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	mark	L2
	pnull
	var	0
	line	320
	colm	18
	synt	any
	field	get_http_header
	var	1
	line	320
	colm	34
	synt	any
	invoke	1
	line	320
	colm	43
	synt	any
	esusp
	goto	L3
lab L2
	line	320
	colm	44
	synt	any
	pfail
lab L3
	line	320
	colm	11
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	pnull
	var	3
	mark	L5
	pnull
	var	0
	line	321
	colm	19
	synt	any
	field	get_data
	var	2
	var	1
	line	321
	colm	28
	synt	any
	invoke	2
	line	321
	colm	41
	synt	any
	esusp
	goto	L6
lab L5
	line	321
	colm	42
	synt	any
	pfail
lab L6
	line	321
	colm	12
	synt	any
	asgn
	unmark
lab L4
	mark	L7
	pnull
	var	4
	mark	L8
	var	5
	var	3
	line	322
	colm	23
	synt	any
	invoke	1
	line	322
	colm	29
	synt	any
	esusp
	goto	L9
lab L8
	line	322
	colm	30
	synt	any
	pfail
lab L9
	line	322
	colm	9
	synt	any
	asgn
	unmark
lab L7
	mark	L10
	mark	L11
	var	4
	line	323
	colm	7
	synt	any
	pret
lab L11
	synt	any
	pfail
	unmark
lab L10
	pnull
	line	324
	colm	1
	synt	any
	pfail
	end
proc json__JSON_HTTPSocket_send_msg
	local	0,001000,self
	local	1,001000,t
	local	2,000020,body
	local	3,000000,json__tojson
	local	4,000000,writes
	con	0,010000,16,103,157,156,164,145,156,164,055,114,145,156,147,164,150,072,040
	con	1,010000,4,015,012,015,012
	declend
	line	326
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	mark	L2
	var	3
	var	1
	line	328
	colm	27
	synt	any
	invoke	1
	line	328
	colm	30
	synt	any
	esusp
	goto	L3
lab L2
	line	328
	colm	31
	synt	any
	pfail
lab L3
	line	328
	colm	12
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	var	4
	pnull
	var	0
	line	329
	colm	18
	synt	any
	field	sock
	str	0
	pnull
	var	2
	line	329
	colm	43
	synt	any
	size
	str	1
	var	2
	line	329
	colm	13
	synt	any
	invoke	5
	unmark
lab L4
	pnull
	line	330
	colm	1
	synt	any
	pfail
	end
proc json__JSON_HTTPSocket_initially
	local	0,001000,self
	local	1,001000,addr
	local	2,001000,opt
	local	3,000000,string
	local	4,000000,open
	declend
	line	333
	colm	11
	synt	any
	mark	L1
	line	334
	colm	7
	synt	ifelse
	mark	L2
	var	3
	var	1
	line	334
	colm	16
	synt	any
	invoke	1
	unmark
	pnull
	pnull
	var	0
	line	335
	colm	14
	synt	any
	field	sock
	var	4
	var	1
	var	2
	line	335
	colm	25
	synt	any
	invoke	2
	line	335
	colm	19
	synt	any
	asgn
	goto	L3
lab L2
	pnull
	pnull
	var	0
	line	337
	colm	14
	synt	any
	field	sock
	var	1
	line	337
	colm	19
	synt	any
	asgn
lab L3
	line	334
	colm	7
	synt	endifelse
	unmark
lab L1
	mark	L4
	mark	L5
	pnull
	line	338
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	339
	colm	1
	synt	any
	pfail
	end
proc json__JSON_HTTPSocket
	local	0,001000,addr
	local	1,001000,opt
	local	2,000020,self
	local	3,000020,clone
	local	4,000000,json__JSON_HTTPSocket__oprec
	local	5,000000,json__JSON_HTTPSocketinitialize
	local	6,000000,json__JSON_HTTPSocket__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	4
	line	8
	colm	6
	synt	any
	null
	unmark
	var	5
	line	8
	colm	72
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	pnull
	var	2
	var	6
	line	10
	colm	40
	synt	any
	keywd	null
	var	4
	line	10
	colm	39
	synt	any
	invoke	2
	line	10
	colm	8
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	2
	line	11
	colm	7
	synt	any
	field	__s
	var	2
	line	11
	colm	12
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	mark	L7
	pnull
	pnull
	var	2
	line	12
	colm	7
	synt	any
	field	__m
	line	12
	colm	11
	synt	any
	field	initially
	var	2
	var	0
	var	1
	line	12
	colm	21
	synt	any
	invoke	3
	line	12
	colm	37
	synt	any
	esusp
	goto	L8
lab L7
	line	12
	colm	39
	synt	any
	pfail
lab L8
	unmark
lab L6
	mark	L9
	mark	L10
	var	2
	line	13
	colm	3
	synt	any
	pret
lab L10
	synt	any
	pfail
	unmark
lab L9
	pnull
	line	14
	colm	1
	synt	any
	pfail
	end
proc json__JSON_HTTPSocketinitialize
	local	0,000000,json__JSON_HTTPSocket__oprec
	local	1,000000,json__JSON_HTTPSocket__methods
	local	2,000000,json__JSON_HTTPSocket_get_http_header
	local	3,000000,json__JSON_HTTPSocket_get_data
	local	4,000000,json__JSON_HTTPSocket_get_msg
	local	5,000000,json__JSON_HTTPSocket_send_msg
	local	6,000000,json__JSON_HTTPSocket_initially
	declend
	line	16
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	17
	colm	73
	synt	any
	invoke	5
	line	17
	colm	40
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	18
	colm	1
	synt	any
	pfail
	end
proc json__JRPC_HTTPSocket_get_msg
	local	0,001000,self
	local	1,001000,timeout
	local	2,000020,msg_body
	local	3,000020,len
	local	4,000000,json__JRPC_Message
	con	0,002000,1,1
	con	1,010000,1,173
	con	2,010000,1,175
	declend
	filen	jsonrpc.icn
	line	345
	colm	11
	synt	any
	mark	L1
	pnull
	var	3
	mark	L2
	pnull
	var	0
	line	347
	colm	18
	synt	any
	field	get_http_header
	var	1
	line	347
	colm	34
	synt	any
	invoke	1
	line	347
	colm	43
	synt	any
	esusp
	goto	L3
lab L2
	line	347
	colm	44
	synt	any
	pfail
lab L3
	line	347
	colm	11
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	pnull
	var	2
	mark	L5
	pnull
	var	0
	line	348
	colm	23
	synt	any
	field	get_data
	var	3
	var	1
	line	348
	colm	32
	synt	any
	invoke	2
	line	348
	colm	45
	synt	any
	esusp
	goto	L6
lab L5
	line	348
	colm	46
	synt	any
	pfail
lab L6
	line	348
	colm	16
	synt	any
	asgn
	unmark
lab L4
	mark	L7
	line	349
	colm	7
	synt	if
	mark0
	pnull
	pnull
	var	2
	int	0
	line	349
	colm	18
	synt	any
	subsc
	str	1
	line	349
	colm	22
	synt	any
	lexeq
	pop
	pnull
	pnull
	var	2
	pnull
	int	0
	line	349
	colm	40
	synt	any
	neg
	line	349
	colm	39
	synt	any
	subsc
	str	2
	line	349
	colm	44
	synt	any
	lexeq
	unmark
	mark	L8
	pnull
	var	4
	line	350
	colm	35
	synt	any
	invoke	0
	line	350
	colm	37
	synt	any
	field	parse_json
	var	2
	line	350
	colm	48
	synt	any
	invoke	1
	line	350
	colm	10
	synt	any
	pret
lab L8
	synt	any
	pfail
	line	349
	colm	7
	synt	endif
	unmark
lab L7
	pnull
	line	352
	colm	1
	synt	any
	pfail
	end
proc json__JRPC_HTTPSocket_send_msg
	local	0,001000,self
	local	1,001000,msg
	local	2,000020,data
	local	3,000000,writes
	con	0,010000,16,103,157,156,164,145,156,164,055,114,145,156,147,164,150,072,040
	con	1,010000,4,015,012,015,012
	declend
	line	355
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	pnull
	var	1
	line	357
	colm	18
	synt	any
	field	get_content
	line	357
	colm	30
	synt	any
	invoke	0
	line	357
	colm	12
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	var	3
	pnull
	var	0
	line	358
	colm	18
	synt	any
	field	sock
	str	0
	pnull
	var	2
	line	358
	colm	43
	synt	any
	size
	str	1
	var	2
	line	358
	colm	13
	synt	any
	invoke	5
	unmark
lab L2
	pnull
	line	359
	colm	1
	synt	any
	pfail
	end
proc json__JRPC_HTTPSocket_initially
	local	0,001000,self
	local	1,001000,addr
	local	2,001000,opt
	declend
	line	361
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	362
	colm	18
	synt	any
	field	json__JSON_HTTPSocket
	line	362
	colm	40
	synt	any
	field	initially
	var	1
	var	2
	line	362
	colm	50
	synt	any
	invoke	2
	line	362
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	mark	L3
	mark	L4
	pnull
	line	363
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	364
	colm	1
	synt	any
	pfail
	end
proc json__JRPC_HTTPSocket
	local	0,001000,addr
	local	1,001000,opt
	local	2,000020,self
	local	3,000020,clone
	local	4,000000,json__JRPC_HTTPSocket__oprec
	local	5,000000,json__JRPC_HTTPSocketinitialize
	local	6,000000,json__JSON_HTTPSocket__oprec
	local	7,000000,json__JSON_HTTPSocketinitialize
	local	8,000000,json__JRPC_HTTPSocket__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	4
	line	8
	colm	6
	synt	any
	null
	unmark
	var	5
	line	8
	colm	72
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	6
	line	9
	colm	6
	synt	any
	null
	unmark
	var	7
	line	9
	colm	72
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	pnull
	pnull
	var	4
	line	10
	colm	31
	synt	any
	field	json__JSON_HTTPSocket
	var	6
	line	10
	colm	54
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L6
	pnull
	var	2
	var	8
	line	12
	colm	40
	synt	any
	keywd	null
	var	4
	line	12
	colm	39
	synt	any
	invoke	2
	line	12
	colm	8
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	pnull
	var	2
	line	13
	colm	7
	synt	any
	field	__s
	var	2
	line	13
	colm	12
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	mark	L9
	pnull
	pnull
	var	2
	line	14
	colm	7
	synt	any
	field	__m
	line	14
	colm	11
	synt	any
	field	initially
	var	2
	var	0
	var	1
	line	14
	colm	21
	synt	any
	invoke	3
	line	14
	colm	37
	synt	any
	esusp
	goto	L10
lab L9
	line	14
	colm	39
	synt	any
	pfail
lab L10
	unmark
lab L8
	mark	L11
	mark	L12
	var	2
	line	15
	colm	3
	synt	any
	pret
lab L12
	synt	any
	pfail
	unmark
lab L11
	pnull
	line	16
	colm	1
	synt	any
	pfail
	end
proc json__JRPC_HTTPSocketinitialize
	local	0,000000,json__JRPC_HTTPSocket__oprec
	local	1,000000,json__JRPC_HTTPSocket__methods
	local	2,000000,json__JRPC_HTTPSocket_get_msg
	local	3,000000,json__JRPC_HTTPSocket_send_msg
	local	4,000000,json__JRPC_HTTPSocket_initially
	local	5,000000,json__JSON_HTTPSocket_get_http_header
	local	6,000000,json__JSON_HTTPSocket_get_data
	declend
	line	18
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	line	19
	colm	73
	synt	any
	invoke	5
	line	19
	colm	40
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	20
	colm	1
	synt	any
	pfail
	end
