version	U12.1.00
uid	cvsutil.u1-1786033028-0
impl	local
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/address.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/encodinghandler.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/base64handler.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/contentdisposition.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/contenttype.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/mailbox.u
global	1
	0,000005,cvs__get_from,0

proc cvs__get_from
	local	0,000020,cvs_user
	local	1,000020,entry
	local	2,000020,mb
	local	3,000020,pwent
	local	4,000000,getenv
	local	5,000000,stop
	local	6,000000,cvs__get_cvs_user
	local	7,000000,mail__Mailbox
	local	8,000000,getpw
	local	9,000000,image
	con	0,010000,8,103,126,123,137,125,123,105,122
	con	1,010000,21,103,157,165,154,144,156,047,164,040,147,145,164,040,103,126,123,137,125,123,105,122
	con	2,010000,28,103,157,165,154,144,156,047,164,040,147,145,164,040,165,163,145,162,040,145,156,164,162,171,040,146,157,162,040
	con	3,010000,24,111,156,166,141,154,151,144,040,122,106,103,070,062,062,040,141,144,144,162,145,163,163,072,040
	con	4,010000,0
	declend
	filen	cvsutil.icn
	line	9
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	mark	L2
	var	4
	str	0
	line	12
	colm	24
	synt	any
	invoke	1
	line	12
	colm	37
	synt	any
	esusp
	goto	L3
lab L2
	var	5
	str	1
	line	12
	colm	45
	synt	any
	invoke	1
lab L3
	line	12
	colm	13
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	pnull
	var	1
	mark	L5
	var	6
	var	0
	line	14
	colm	30
	synt	any
	invoke	1
	line	14
	colm	40
	synt	any
	esusp
	goto	L6
lab L5
	var	5
	pnull
	str	2
	var	0
	line	14
	colm	76
	synt	any
	cat
	line	14
	colm	45
	synt	any
	invoke	1
lab L6
	line	14
	colm	10
	synt	any
	asgn
	unmark
lab L4
	mark	L7
	pnull
	var	2
	mark	L8
	var	7
	pnull
	var	1
	line	16
	colm	29
	synt	any
	field	get_mail
	line	16
	colm	38
	synt	any
	invoke	0
	line	16
	colm	23
	synt	any
	invoke	1
	line	16
	colm	41
	synt	any
	esusp
	goto	L9
lab L8
	var	5
	pnull
	str	3
	pnull
	var	1
	line	16
	colm	80
	synt	any
	field	get_mail
	line	16
	colm	89
	synt	any
	invoke	0
	line	16
	colm	73
	synt	any
	cat
	line	16
	colm	46
	synt	any
	invoke	1
lab L9
	line	16
	colm	7
	synt	any
	asgn
	unmark
lab L7
	mark	L10
	line	18
	colm	4
	synt	if
	mark0
	pnull
	pnull
	var	2
	line	18
	colm	10
	synt	any
	field	get_phrase
	line	18
	colm	21
	synt	any
	invoke	0
	str	4
	line	18
	colm	24
	synt	any
	lexeq
	pop
	pnull
	var	3
	var	8
	pnull
	var	1
	line	18
	colm	56
	synt	any
	field	get_user
	line	18
	colm	65
	synt	any
	invoke	0
	line	18
	colm	50
	synt	any
	invoke	1
	line	18
	colm	40
	synt	any
	asgn
	unmark
	pnull
	var	2
	line	19
	colm	9
	synt	any
	field	set_phrase
	var	9
	pnull
	var	3
	line	19
	colm	34
	synt	any
	field	gecos
	line	19
	colm	28
	synt	any
	invoke	1
	line	19
	colm	20
	synt	any
	invoke	1
	line	18
	colm	4
	synt	endif
	unmark
lab L10
	mark	L11
	mark	L12
	var	2
	line	21
	colm	4
	synt	any
	pret
lab L12
	synt	any
	pfail
	unmark
lab L11
	pnull
	line	22
	colm	2
	synt	any
	pfail
	end
