/*
 * we should format labels in a readable form like
 *			    label="
 *			    {vbf_stp_startfetch:|
 *				    {vcl_backend_fetch\{\}|bereq.*}|
 *				    {abandon|
 *					    <fetch>fetch}}"
 *
 * <rant>
 * ... but some servers in the v-c.o build farm use old graphviz 2.26.3
 * which cannot handle labels with additional whitespace properly, so
 * for the time being we need to fall back into dark middle ages and
 * use illegibly long lines
 * </rant>
 * -- slink 20141013
 */

digraph cache_fetch {
	margin="0.5"
	center="1"

	/*** cache_fetch.c ***/
	subgraph cluster_backend {
		style=filled
		color=aliceblue
		RETRY [shape=plaintext]
		v_b_f_BGFETCH [label="BGFETCH",
			       shape=box,
			       style=filled,
			       color=turquoise]
		v_b_f_FETCH [label="FETCH",
			       shape=box,
			       style=filled,
			       color=turquoise]
		v_b_f_BGFETCH -> v_b_f [style=bold,color=green]
		v_b_f_FETCH -> v_b_f [style=bold,color=blue]
		v_b_f_FETCH -> v_b_f [style=bold,color=red]
		RETRY -> v_b_f [color=purple]
		/* vbf_stp_startfetch() */
		v_b_f [
			    shape=record
			    label="{vbf_stp_startfetch:|{vcl_backend_fetch\{\}|bereq.*}|{<error>error|fail|abandon|<fetch>fetch}}"
		]
		v_b_f:error:s -> v_b_e
		v_b_f:fetch:s -> v_b_hdrs [style=bold]
		v_b_hdrs [ label="send bereq,\nread beresp (headers)"]
		v_b_hdrs -> v_b_r [style=bold]
		v_b_hdrs -> v_b_e
		v_b_r [
			    shape=record
			    label="{vbf_stp_startfetch:|{vcl_backend_response\{\}|{bereq.*|beresp.*}}|{<error>error|fail|{retry|{<max>max?|<retry>ok?}}|abandon|{deliver or pass|{<fetch_304>304?|<non_304>other?}}}}"
		]
		v_b_r:error:s -> v_b_e
		v_b_r:retry -> v_b_r_retry [color=purple]
		v_b_r:max -> v_b_e
		v_b_r:fetch_304:s -> vbf_stp_condfetch
		v_b_r:non_304:s -> vbf_stp_fetch

		v_b_r_retry [label="RETRY",shape=plaintext]

		vbf_stp_fetchbody [
			       shape=record
			       fontcolor=grey
			       color=grey
			       label="{vbf_stp_fetchbody:|get storage|read body, run VFPs|{fetch_fail?|error?|<ok>ok?}}"
			       ]
		vbf_stp_fetchbody:ok:s -> vbf_stp_fetchend

		vbf_stp_fetch [
			       shape=record
			       fontcolor=grey
			       color=grey
			       label="{vbf_stp_fetch:|setup VFPs|get object|{error?|<body>body?}}"
			       ]
		vbf_stp_fetch:body:s -> vbf_stp_fetchbody
		vbf_stp_fetch:body:s -> vbf_stp_fetchend

		vbf_stp_fetchend [
			       shape=record
			       fontcolor=grey
			       color=grey
			       label="{vbf_stp_fetchend:|finalize object and director|<done>done}"
			       ]
		vbf_stp_fetchend:done:s -> FETCH_DONE

		vbf_stp_condfetch [
			       shape=record
			       fontcolor=grey
			       color=grey
			       label="{vbf_stp_condfetch:|copy obj attr|steal body|{fetch_fail?|<ok>ok?}}"

		]
		vbf_stp_condfetch:ok:s -> vbf_stp_fetchend

		fail [shape=plaintext]
		fail -> FETCH_FAIL

		/* vbf_stp_error */
		v_b_e [
			    shape=record
			    label="{vbf_stp_error:|{vcl_backend_error\{\}|{bereq.*|beresp.*}}|{{retry|{<fail>fail|<max>max?|<retry>ok?}}|abandon|<deliver>deliver}}}"
			    ]
		// v_b_e:deliver aka "backend synth" - goes into cache
		v_b_e:deliver -> FETCH_DONE [label="\"backend synth\""]
		v_b_e:retry -> v_b_e_retry [color=purple]
		v_b_e_retry [label="RETRY",shape=plaintext]
		v_b_e:max:s -> FETCH_FAIL

		v_b_e_retry [label="RETRY",shape=plaintext]

		FETCH_DONE [label="FETCH_DONE",
			    shape=box,style=filled,color=turquoise]

		abandon [shape=plaintext]
		abandon -> FETCH_FAIL
		// F_STP_FAIL
		FETCH_FAIL [label="FETCH_FAIL",
			    shape=box,style=filled,color=turquoise]
	}
}
