version	U12.1.00
uid	contentspec.u1-1786033051-0
record	xml__ContentSpec__state,6
	0,__s
	1,__m
	2,op
	3,arg1
	4,arg2
	5,is_mixed_flag
record	xml__ContentSpec__methods,6
	0,print_structure
	1,pattern_match_element
	2,is_mixed
	3,isnt_mixed
	4,pattern_match
	5,to_string
impl	local
global	11
	0,000005,xml__ContentSpec_print_structure,3
	1,000005,xml__ContentSpec_pattern_match_element,2
	2,000005,xml__ContentSpec_is_mixed,1
	3,000005,xml__ContentSpec_isnt_mixed,1
	4,000005,xml__ContentSpec_pattern_match,3
	5,000005,xml__ContentSpec_to_string,1
	6,000011,xml__ContentSpec__state,6
	7,000011,xml__ContentSpec__methods,6
	8,000001,xml__ContentSpec__oprec,0
	9,000005,xml__ContentSpec,4
	10,000005,xml__ContentSpecinitialize,0

proc xml__ContentSpec_print_structure
	local	0,001000,self
	local	1,001000,f
	local	2,001000,indent
	local	3,000020,i
	local	4,000020,j
	local	5,000020,e
	local	6,000000,repl
	local	7,000000,write
	local	8,000000,writes
	local	9,000000,string
	local	10,000000,image
	con	0,002000,1,0
	con	1,010000,1,040
	con	2,002000,1,5
	con	3,010000,5,117,160,040,072,040
	con	4,002000,1,1
	con	5,010000,1,072
	declend
	filen	contentspec.icn
	line	21
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	1
	line	23
	colm	7
	synt	any
	null
	line	23
	colm	13
	synt	any
	keywd	output
	line	23
	colm	10
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	2
	line	24
	colm	7
	synt	any
	null
	int	0
	line	24
	colm	15
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	3
	var	6
	str	1
	pnull
	var	2
	int	2
	line	25
	colm	29
	synt	any
	mult
	line	25
	colm	16
	synt	any
	invoke	2
	line	25
	colm	9
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	var	7
	var	1
	pnull
	var	3
	str	3
	line	26
	colm	18
	synt	any
	cat
	pnull
	var	0
	line	26
	colm	34
	synt	any
	field	op
	line	26
	colm	12
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	pnull
	var	4
	int	4
	line	27
	colm	9
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	line	28
	colm	7
	synt	every
	mark0
	pnull
	var	5
	mark	L9
	pnull
	pnull
	var	0
	line	28
	colm	22
	synt	any
	field	arg1
	line	28
	colm	17
	synt	any
	nonnull
	line	28
	colm	27
	synt	any
	esusp
	goto	L10
lab L9
	pnull
	pnull
	var	0
	line	28
	colm	33
	synt	any
	field	arg2
	line	28
	colm	28
	synt	any
	nonnull
lab L10
	line	28
	colm	14
	synt	any
	asgn
	pop
	mark0
	mark	L11
	var	8
	pnull
	pnull
	var	3
	var	4
	line	29
	colm	19
	synt	any
	cat
	str	5
	line	29
	colm	24
	synt	any
	cat
	line	29
	colm	16
	synt	any
	invoke	1
	unmark
lab L11
	mark	L12
	line	30
	colm	10
	synt	ifelse
	mark	L13
	var	9
	var	5
	line	30
	colm	19
	synt	any
	invoke	1
	unmark
	var	7
	var	1
	var	10
	var	5
	line	31
	colm	27
	synt	any
	invoke	1
	line	31
	colm	18
	synt	any
	invoke	2
	goto	L14
lab L13
	mark	L15
	var	7
	var	1
	line	33
	colm	18
	synt	any
	invoke	1
	unmark
lab L15
	pnull
	var	5
	line	34
	colm	14
	synt	any
	field	print_structure
	var	1
	pnull
	var	2
	int	4
	line	34
	colm	41
	synt	any
	plus
	line	34
	colm	30
	synt	any
	invoke	2
lab L14
	line	30
	colm	10
	synt	endifelse
	unmark
lab L12
	pnull
	var	4
	dup
	int	4
	line	36
	colm	12
	synt	any
	plus
	asgn
	unmark
lab L7
	efail
lab L8
	line	28
	colm	7
	synt	endevery
	unmark
lab L6
	pnull
	line	38
	colm	1
	synt	any
	pfail
	end
proc xml__ContentSpec_pattern_match_element
	local	0,001000,self
	local	1,001000,el
	local	2,000020,t
	local	3,000020,x
	local	4,000000,string
	local	5,000000,put
	con	0,002000,1,1
	con	1,010000,7,145,154,145,155,145,156,164
	con	2,010000,5,143,144,141,164,141
	declend
	line	43
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	pnull
	line	50
	colm	12
	synt	any
	llist	0
	line	50
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	51
	colm	7
	synt	every
	mark0
	pnull
	var	3
	pnull
	pnull
	var	1
	line	51
	colm	21
	synt	any
	field	children
	line	51
	colm	18
	synt	any
	bang
	line	51
	colm	15
	synt	any
	asgn
	pop
	mark0
	line	52
	colm	10
	synt	ifelse
	mark	L5
	var	4
	var	3
	line	52
	colm	19
	synt	any
	invoke	1
	unmark
	mark	L7
	pnull
	pnull
	var	2
	pnull
	int	0
	line	53
	colm	16
	synt	any
	neg
	line	53
	colm	15
	synt	any
	subsc
	line	53
	colm	13
	synt	any
	null
	line	53
	colm	20
	synt	any
	esusp
	goto	L8
lab L7
	var	5
	var	2
	line	53
	colm	25
	synt	any
	invoke	1
lab L8
	goto	L6
lab L5
	line	55
	colm	13
	synt	ifelse
	mark	L9
	pnull
	pnull
	var	3
	line	55
	colm	17
	synt	any
	field	get_type
	line	55
	colm	26
	synt	any
	invoke	0
	str	1
	line	55
	colm	29
	synt	any
	lexeq
	unmark
	var	5
	var	2
	pnull
	var	3
	line	56
	colm	24
	synt	any
	field	name
	line	56
	colm	19
	synt	any
	invoke	2
	goto	L10
lab L9
	line	57
	colm	18
	synt	if
	mark0
	pnull
	pnull
	var	3
	line	57
	colm	22
	synt	any
	field	get_type
	line	57
	colm	31
	synt	any
	invoke	0
	str	2
	line	57
	colm	34
	synt	any
	lexeq
	unmark
	mark	L11
	pnull
	pnull
	var	2
	pnull
	int	0
	line	58
	colm	19
	synt	any
	neg
	line	58
	colm	18
	synt	any
	subsc
	line	58
	colm	16
	synt	any
	null
	line	58
	colm	23
	synt	any
	esusp
	goto	L12
lab L11
	var	5
	var	2
	line	58
	colm	28
	synt	any
	invoke	1
lab L12
	line	57
	colm	18
	synt	endif
lab L10
	line	55
	colm	13
	synt	endifelse
lab L6
	line	52
	colm	10
	synt	endifelse
	unmark
lab L3
	efail
lab L4
	line	51
	colm	7
	synt	endevery
	unmark
lab L2
	mark	L13
	mark	L14
	pnull
	pnull
	var	2
	line	61
	colm	14
	synt	any
	size
	pnull
	var	0
	line	61
	colm	23
	synt	any
	field	pattern_match
	var	2
	int	0
	line	61
	colm	37
	synt	any
	invoke	2
	line	61
	colm	17
	synt	any
	numeq
	line	61
	colm	7
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	62
	colm	1
	synt	any
	pfail
	end
proc xml__ContentSpec_is_mixed
	local	0,001000,self
	declend
	line	64
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	65
	colm	19
	synt	any
	field	is_mixed_flag
	line	65
	colm	14
	synt	any
	nonnull
	line	65
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	66
	colm	1
	synt	any
	pfail
	end
proc xml__ContentSpec_isnt_mixed
	local	0,001000,self
	declend
	line	68
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	69
	colm	19
	synt	any
	field	is_mixed_flag
	line	69
	colm	14
	synt	any
	null
	line	69
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	70
	colm	1
	synt	any
	pfail
	end
proc xml__ContentSpec_pattern_match
	local	0,001000,self
	local	1,001000,subject
	local	2,001000,pos
	local	3,000020,x
	local	4,000020,y
	local	5,000020,b
	local	6,000040,max
	local	7,000000,proc
	con	0,010000,3,155,141,170
	con	1,002000,1,0
	con	2,010000,3,101,116,131
	con	3,002000,1,1
	con	4,010000,5,105,115,120,124,131
	con	5,010000,7,043,120,103,104,101,124,101
	con	6,010000,4,156,141,155,145
	con	7,010000,1,054
	con	8,010000,1,174
	con	9,010000,1,052
	con	10,010000,1,053
	con	11,010000,1,077
	declend
	line	76
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	6
	var	7
	str	0
	int	1
	line	79
	colm	26
	synt	any
	invoke	2
	line	79
	colm	19
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	line	81
	colm	7
	synt	case
	mark0
	pnull
	var	0
	line	81
	colm	16
	synt	any
	field	op
	eret
	mark	L6
	ccase
	str	2
	line	82
	colm	16
	synt	any
	eqv
	unmark
	pop
	mark	L7
	pnull
	pnull
	pnull
	var	1
	line	83
	colm	20
	synt	any
	size
	var	2
	line	83
	colm	29
	synt	any
	minus
	int	3
	line	83
	colm	35
	synt	any
	plus
	line	83
	colm	13
	synt	any
	pret
lab L7
	synt	any
	pfail
	goto	L5
lab L6
	mark	L8
	ccase
	str	4
	line	85
	colm	18
	synt	any
	eqv
	unmark
	pop
	mark	L9
	int	1
	line	86
	colm	13
	synt	any
	pret
lab L9
	synt	any
	pfail
	goto	L5
lab L8
	mark	L10
	ccase
	str	5
	line	88
	colm	20
	synt	any
	eqv
	unmark
	pop
	line	89
	colm	13
	synt	ifelse
	mark	L11
	pnull
	pnull
	var	1
	var	2
	line	89
	colm	24
	synt	any
	subsc
	line	89
	colm	16
	synt	any
	null
	unmark
	mark	L13
	int	3
	line	90
	colm	16
	synt	any
	pret
lab L13
	synt	any
	pfail
	goto	L12
lab L11
	mark	L14
	int	1
	line	92
	colm	16
	synt	any
	pret
lab L14
	synt	any
	pfail
lab L12
	line	89
	colm	13
	synt	endifelse
	goto	L5
lab L10
	mark	L15
	ccase
	str	6
	line	95
	colm	17
	synt	any
	eqv
	unmark
	pop
	line	96
	colm	13
	synt	if
	mark0
	pnull
	pnull
	var	1
	var	2
	line	96
	colm	23
	synt	any
	subsc
	pnull
	var	0
	line	96
	colm	37
	synt	any
	field	arg1
	line	96
	colm	29
	synt	any
	eqv
	unmark
	mark	L16
	int	3
	line	97
	colm	16
	synt	any
	pret
lab L16
	synt	any
	pfail
	line	96
	colm	13
	synt	endif
	goto	L5
lab L15
	mark	L17
	ccase
	str	7
	line	100
	colm	14
	synt	any
	eqv
	unmark
	pop
	line	101
	colm	13
	synt	every
	mark0
	pnull
	var	3
	pnull
	pnull
	var	0
	line	101
	colm	28
	synt	any
	field	arg1
	line	101
	colm	33
	synt	any
	field	pattern_match
	var	1
	var	2
	line	101
	colm	47
	synt	any
	invoke	2
	line	101
	colm	21
	synt	any
	asgn
	pop
	mark0
	line	102
	colm	16
	synt	suspend
	mark0
	pnull
	var	3
	pnull
	pnull
	var	0
	line	102
	colm	32
	synt	any
	field	arg2
	line	102
	colm	37
	synt	any
	field	pattern_match
	var	1
	pnull
	var	2
	var	3
	line	102
	colm	63
	synt	any
	plus
	line	102
	colm	51
	synt	any
	invoke	2
	line	102
	colm	26
	synt	any
	plus
	line	102
	colm	16
	synt	any
	psusp
	pop
lab L20
	efail
lab L21
	line	102
	colm	16
	synt	endsuspend
	unmark
lab L18
	efail
lab L19
	line	101
	colm	13
	synt	endevery
	goto	L5
lab L17
	mark	L22
	ccase
	str	8
	line	106
	colm	14
	synt	any
	eqv
	unmark
	pop
	line	107
	colm	13
	synt	suspend
	mark0
	pnull
	mark	L25
	pnull
	var	0
	line	107
	colm	26
	synt	any
	field	arg1
	line	107
	colm	31
	synt	any
	esusp
	goto	L26
lab L25
	pnull
	var	0
	line	107
	colm	36
	synt	any
	field	arg2
lab L26
	line	107
	colm	42
	synt	any
	field	pattern_match
	var	1
	var	2
	line	107
	colm	56
	synt	any
	invoke	2
	line	107
	colm	13
	synt	any
	psusp
	pop
lab L23
	efail
lab L24
	line	107
	colm	13
	synt	endsuspend
	goto	L5
lab L22
	mark	L27
	ccase
	str	9
	line	110
	colm	14
	synt	any
	eqv
	unmark
	pop
	mark	L28
	line	111
	colm	13
	synt	suspend
	mark0
	pnull
	var	3
	int	1
	line	111
	colm	23
	synt	any
	asgn
	line	111
	colm	13
	synt	any
	psusp
	pop
lab L29
	efail
lab L30
	line	111
	colm	13
	synt	endsuspend
	unmark
lab L28
lab L31
	line	112
	colm	13
	synt	repeat
	mark	L31
	mark	L34
	pnull
	var	5
	int	1
	line	113
	colm	18
	synt	any
	asgn
	unmark
lab L34
	mark	L35
	line	114
	colm	16
	synt	every
	mark0
	pnull
	var	4
	pnull
	pnull
	var	0
	line	114
	colm	31
	synt	any
	field	arg1
	line	114
	colm	36
	synt	any
	field	pattern_match
	var	1
	pnull
	var	2
	var	3
	line	114
	colm	62
	synt	any
	plus
	line	114
	colm	50
	synt	any
	invoke	2
	line	114
	colm	24
	synt	any
	asgn
	pop
	mark0
	mark	L38
	line	115
	colm	19
	synt	suspend
	mark0
	pnull
	var	3
	var	4
	line	115
	colm	29
	synt	any
	plus
	line	115
	colm	19
	synt	any
	psusp
	pop
lab L39
	efail
lab L40
	line	115
	colm	19
	synt	endsuspend
	unmark
lab L38
	pnull
	var	5
	var	6
	var	5
	var	4
	line	116
	colm	27
	synt	any
	invoke	2
	line	116
	colm	21
	synt	any
	asgn
	unmark
lab L36
	efail
lab L37
	line	114
	colm	16
	synt	endevery
	unmark
lab L35
	mark	L41
	mark	L42
	pnull
	var	5
	int	1
	line	118
	colm	18
	synt	any
	numgt
	line	118
	colm	22
	synt	any
	esusp
	goto	L43
lab L42
	line	118
	colm	24
	synt	any
	pfail
lab L43
	unmark
lab L41
	pnull
	var	3
	dup
	var	5
	line	119
	colm	18
	synt	any
	plus
	asgn
lab L32
	unmark
	goto	L31
lab L33
	line	112
	colm	13
	synt	endrepeat
	goto	L5
lab L27
	mark	L44
	ccase
	str	10
	line	123
	colm	14
	synt	any
	eqv
	unmark
	pop
	mark	L45
	pnull
	var	3
	int	1
	line	124
	colm	15
	synt	any
	asgn
	unmark
lab L45
lab L46
	line	125
	colm	13
	synt	repeat
	mark	L46
	mark	L49
	pnull
	var	5
	int	1
	line	126
	colm	18
	synt	any
	asgn
	unmark
lab L49
	mark	L50
	line	127
	colm	16
	synt	every
	mark0
	pnull
	var	4
	pnull
	pnull
	var	0
	line	127
	colm	31
	synt	any
	field	arg1
	line	127
	colm	36
	synt	any
	field	pattern_match
	var	1
	pnull
	var	2
	var	3
	line	127
	colm	62
	synt	any
	plus
	line	127
	colm	50
	synt	any
	invoke	2
	line	127
	colm	24
	synt	any
	asgn
	pop
	mark0
	mark	L53
	line	128
	colm	19
	synt	suspend
	mark0
	pnull
	var	3
	var	4
	line	128
	colm	29
	synt	any
	plus
	line	128
	colm	19
	synt	any
	psusp
	pop
lab L54
	efail
lab L55
	line	128
	colm	19
	synt	endsuspend
	unmark
lab L53
	pnull
	var	5
	var	6
	var	5
	var	4
	line	129
	colm	27
	synt	any
	invoke	2
	line	129
	colm	21
	synt	any
	asgn
	unmark
lab L51
	efail
lab L52
	line	127
	colm	16
	synt	endevery
	unmark
lab L50
	mark	L56
	mark	L57
	pnull
	var	5
	int	1
	line	131
	colm	18
	synt	any
	numgt
	line	131
	colm	22
	synt	any
	esusp
	goto	L58
lab L57
	line	131
	colm	24
	synt	any
	pfail
lab L58
	unmark
lab L56
	pnull
	var	3
	dup
	var	5
	line	132
	colm	18
	synt	any
	plus
	asgn
lab L47
	unmark
	goto	L46
lab L48
	line	125
	colm	13
	synt	endrepeat
	goto	L5
lab L44
	mark	L59
	ccase
	str	11
	line	136
	colm	14
	synt	any
	eqv
	unmark
	pop
	line	137
	colm	13
	synt	suspend
	mark0
	mark	L62
	int	1
	line	137
	colm	23
	synt	any
	esusp
	goto	L63
lab L62
	pnull
	pnull
	var	0
	line	137
	colm	29
	synt	any
	field	arg1
	line	137
	colm	34
	synt	any
	field	pattern_match
	var	1
	var	2
	line	137
	colm	48
	synt	any
	invoke	2
lab L63
	line	137
	colm	13
	synt	any
	psusp
	pop
lab L60
	efail
lab L61
	line	137
	colm	13
	synt	endsuspend
	goto	L5
lab L59
	efail
lab L5
	line	81
	colm	7
	synt	endcase
	unmark
lab L4
	pnull
	line	141
	colm	1
	synt	any
	pfail
	end
proc xml__ContentSpec_to_string
	local	0,001000,self
	local	1,000020,s
	local	2,000020,x
	con	0,010000,3,101,116,131
	con	1,010000,5,105,115,120,124,131
	con	2,010000,7,043,120,103,104,101,124,101
	con	3,010000,4,156,141,155,145
	con	4,010000,1,054
	con	5,010000,1,174
	con	6,010000,0
	con	7,010000,1,050
	con	8,010000,1,051
	con	9,010000,1,053
	con	10,010000,1,052
	con	11,010000,1,077
	declend
	line	146
	colm	11
	synt	any
	mark	L1
	line	148
	colm	7
	synt	case
	mark0
	pnull
	var	0
	line	148
	colm	16
	synt	any
	field	op
	eret
	mark	L3
	ccase
	mark	L4
	str	0
	line	149
	colm	16
	synt	any
	esusp
	goto	L5
lab L4
	mark	L6
	str	1
	line	149
	colm	26
	synt	any
	esusp
	goto	L7
lab L6
	str	2
lab L7
lab L5
	line	149
	colm	38
	synt	any
	eqv
	unmark
	pop
	mark	L8
	pnull
	var	0
	line	150
	colm	24
	synt	any
	field	op
	line	150
	colm	13
	synt	any
	pret
lab L8
	synt	any
	pfail
	goto	L2
lab L3
	mark	L9
	ccase
	str	3
	line	152
	colm	17
	synt	any
	eqv
	unmark
	pop
	mark	L10
	pnull
	var	0
	line	153
	colm	24
	synt	any
	field	arg1
	line	153
	colm	13
	synt	any
	pret
lab L10
	synt	any
	pfail
	goto	L2
lab L9
	mark	L11
	ccase
	mark	L12
	str	4
	line	155
	colm	14
	synt	any
	esusp
	goto	L13
lab L12
	str	5
lab L13
	line	155
	colm	20
	synt	any
	eqv
	unmark
	pop
	mark	L14
	pnull
	var	1
	str	6
	line	156
	colm	15
	synt	any
	asgn
	unmark
lab L14
	mark	L15
	pnull
	var	2
	var	0
	line	157
	colm	15
	synt	any
	asgn
	unmark
lab L15
	mark	L16
lab L17
	line	158
	colm	13
	synt	repeat
	mark	L17
	mark	L20
	pnull
	var	1
	dup
	pnull
	pnull
	var	2
	line	159
	colm	24
	synt	any
	field	arg1
	line	159
	colm	29
	synt	any
	field	to_string
	line	159
	colm	39
	synt	any
	invoke	0
	line	159
	colm	18
	synt	any
	cat
	asgn
	unmark
lab L20
	mark	L21
	pnull
	var	1
	dup
	pnull
	var	0
	line	160
	colm	27
	synt	any
	field	op
	line	160
	colm	18
	synt	any
	cat
	asgn
	unmark
lab L21
	mark	L22
	line	161
	colm	16
	synt	if
	mark0
	pnull
	pnull
	pnull
	var	2
	line	161
	colm	20
	synt	any
	field	arg2
	line	161
	colm	25
	synt	any
	field	op
	pnull
	var	0
	line	161
	colm	37
	synt	any
	field	op
	line	161
	colm	29
	synt	any
	lexne
	unmark
	unmark
	unmark
	pnull
	goto	L19
	line	161
	colm	16
	synt	endif
	unmark
lab L22
	pnull
	var	2
	pnull
	var	2
	line	163
	colm	22
	synt	any
	field	arg2
	line	163
	colm	18
	synt	any
	asgn
lab L18
	unmark
	goto	L17
lab L19
	line	158
	colm	13
	synt	endrepeat
	unmark
lab L16
	mark	L23
	pnull
	pnull
	pnull
	str	7
	var	1
	line	165
	colm	24
	synt	any
	cat
	pnull
	pnull
	var	2
	line	165
	colm	33
	synt	any
	field	arg2
	line	165
	colm	38
	synt	any
	field	to_string
	line	165
	colm	48
	synt	any
	invoke	0
	line	165
	colm	29
	synt	any
	cat
	str	8
	line	165
	colm	51
	synt	any
	cat
	line	165
	colm	13
	synt	any
	pret
lab L23
	synt	any
	pfail
	goto	L2
lab L11
	mark	L24
	ccase
	mark	L25
	str	9
	line	168
	colm	14
	synt	any
	esusp
	goto	L26
lab L25
	mark	L27
	str	10
	line	168
	colm	20
	synt	any
	esusp
	goto	L28
lab L27
	str	11
lab L28
lab L26
	line	168
	colm	26
	synt	any
	eqv
	unmark
	pop
	mark	L29
	pnull
	pnull
	pnull
	var	0
	line	169
	colm	24
	synt	any
	field	arg1
	line	169
	colm	29
	synt	any
	field	to_string
	line	169
	colm	39
	synt	any
	invoke	0
	pnull
	var	0
	line	169
	colm	47
	synt	any
	field	op
	line	169
	colm	41
	synt	any
	cat
	line	169
	colm	13
	synt	any
	pret
lab L29
	synt	any
	pfail
	goto	L2
lab L24
	efail
lab L2
	line	148
	colm	7
	synt	endcase
	unmark
lab L1
	pnull
	line	171
	colm	1
	synt	any
	pfail
	end
proc xml__ContentSpec
	local	0,001000,op
	local	1,001000,arg1
	local	2,001000,arg2
	local	3,001000,is_mixed_flag
	local	4,000020,self
	local	5,000020,clone
	local	6,000000,xml__ContentSpec__oprec
	local	7,000000,xml__ContentSpecinitialize
	local	8,000000,xml__ContentSpec__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	6
	line	8
	colm	6
	synt	any
	null
	unmark
	var	7
	line	8
	colm	62
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	pnull
	var	4
	var	8
	line	10
	colm	35
	synt	any
	keywd	null
	var	6
	var	0
	var	1
	var	2
	var	3
	line	10
	colm	34
	synt	any
	invoke	6
	line	10
	colm	8
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	4
	line	11
	colm	7
	synt	any
	field	__s
	var	4
	line	11
	colm	12
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	mark	L7
	var	4
	line	12
	colm	3
	synt	any
	pret
lab L7
	synt	any
	pfail
	unmark
lab L6
	pnull
	line	13
	colm	1
	synt	any
	pfail
	end
proc xml__ContentSpecinitialize
	local	0,000000,xml__ContentSpec__oprec
	local	1,000000,xml__ContentSpec__methods
	local	2,000000,xml__ContentSpec_print_structure
	local	3,000000,xml__ContentSpec_pattern_match_element
	local	4,000000,xml__ContentSpec_is_mixed
	local	5,000000,xml__ContentSpec_isnt_mixed
	local	6,000000,xml__ContentSpec_pattern_match
	local	7,000000,xml__ContentSpec_to_string
	declend
	line	15
	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
	line	16
	colm	63
	synt	any
	invoke	6
	line	16
	colm	35
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	17
	colm	1
	synt	any
	pfail
	end
