[ViewVC] Diff of: cvs/Coro/Coro/State.xs

Comparing Coro/Coro/State.xs (file contents):
Revision 1.240 by root, Sun Jun 29 00:28:17 2008 UTC vs.
Revision 1.243 by root, Sat Aug 30 03:07:46 2008 UTC

…		…
686	static int (orig_sigelem_get) (pTHX_ SV sv, MAGIC *mg);	686	static int (orig_sigelem_get) (pTHX_ SV sv, MAGIC *mg);
687	static int (orig_sigelem_set) (pTHX_ SV sv, MAGIC *mg);	687	static int (orig_sigelem_set) (pTHX_ SV sv, MAGIC *mg);
688	static int (orig_sigelem_clr) (pTHX_ SV sv, MAGIC *mg);	688	static int (orig_sigelem_clr) (pTHX_ SV sv, MAGIC *mg);
689		689
690	/* apparently < 5.8.8 */	690	/* apparently < 5.8.8 */
691	#undef MgPV_nolen_const
692	#ifndef MgPV_nolen_const	691	#ifndef MgPV_nolen_const
693	#define MgPV_nolen_const(mg) (((((int)(mg)->mg_len)) == HEf_SVKEY) ? \	692	#define MgPV_nolen_const(mg) (((((int)(mg)->mg_len)) == HEf_SVKEY) ? \
694	SvPV_nolen_const((SV*)((mg)->mg_ptr)) : \	693	SvPV_nolen((SV*)((mg)->mg_ptr)) : \
695	(const char*)(mg)->mg_ptr)	694	(const char*)(mg)->mg_ptr)
696	#endif	695	#endif
697		696
698	/*	697	/*
699	* This overrides the default magic get method of %SIG elements.	698	* This overrides the default magic get method of %SIG elements.
…		…
1624	else	1623	else
1625	coro->slot->runops = RUNOPS_DEFAULT;	1624	coro->slot->runops = RUNOPS_DEFAULT;
1626	}	1625	}
1627	}	1626	}
1628		1627
		1628	static int
		1629	coro_gensub_free (pTHX_ SV sv, MAGIC mg)
		1630	{
		1631	AV *padlist;
		1632	AV av = (AV )mg->mg_obj;
		1633
		1634	abort ();
		1635
		1636	return 0;
		1637	}
		1638
		1639	static MGVTBL coro_gensub_vtbl = {
		1640	0, 0, 0, 0,
		1641	coro_gensub_free
		1642	};
		1643
1629	MODULE = Coro::State PACKAGE = Coro::State PREFIX = api_	1644	MODULE = Coro::State PACKAGE = Coro::State PREFIX = api_
1630		1645
1631	PROTOTYPES: DISABLE	1646	PROTOTYPES: DISABLE
1632		1647
1633	BOOT:	1648	BOOT:
…		…
1891	force_cctx ()	1906	force_cctx ()
1892	CODE:	1907	CODE:
1893	struct coro *coro = SvSTATE (coro_current);	1908	struct coro *coro = SvSTATE (coro_current);
1894	coro->cctx->idle_sp = 0;	1909	coro->cctx->idle_sp = 0;
1895		1910
1896	MODULE = Coro::State PACKAGE = Coro
1897
1898	BOOT:
1899	{
1900	int i;
1901
1902	av_async_pool = coro_get_av (aTHX_ "Coro::async_pool", TRUE);
1903	sv_pool_rss = coro_get_sv (aTHX_ "Coro::POOL_RSS" , TRUE);
1904	sv_pool_size = coro_get_sv (aTHX_ "Coro::POOL_SIZE" , TRUE);
1905
1906	coro_current = coro_get_sv (aTHX_ "Coro::current", FALSE);
1907	SvREADONLY_on (coro_current);
1908
1909	coro_stash = gv_stashpv ("Coro", TRUE);
1910
1911	newCONSTSUB (coro_stash, "PRIO_MAX", newSViv (PRIO_MAX));
1912	newCONSTSUB (coro_stash, "PRIO_HIGH", newSViv (PRIO_HIGH));
1913	newCONSTSUB (coro_stash, "PRIO_NORMAL", newSViv (PRIO_NORMAL));
1914	newCONSTSUB (coro_stash, "PRIO_LOW", newSViv (PRIO_LOW));
1915	newCONSTSUB (coro_stash, "PRIO_IDLE", newSViv (PRIO_IDLE));
1916	newCONSTSUB (coro_stash, "PRIO_MIN", newSViv (PRIO_MIN));
1917
1918	for (i = PRIO_MAX - PRIO_MIN + 1; i--; )
1919	coro_ready[i] = newAV ();
1920
1921	{
1922	SV *sv = perl_get_sv ("Coro::API", TRUE);
1923	perl_get_sv ("Coro::API", TRUE); /* silence 5.10 warning */
1924
1925	coroapi.schedule = api_schedule;
1926	coroapi.cede = api_cede;
1927	coroapi.cede_notself = api_cede_notself;
1928	coroapi.ready = api_ready;
1929	coroapi.is_ready = api_is_ready;
1930	coroapi.nready = &coro_nready;
1931	coroapi.current = coro_current;
1932
1933	GCoroAPI = &coroapi;
1934	sv_setiv (sv, (IV)&coroapi);
1935	SvREADONLY_on (sv);
1936	}
1937	}
1938
1939	void
1940	_set_current (SV *current)
1941	PROTOTYPE: $
1942	CODE:
1943	SvREFCNT_dec (SvRV (coro_current));
1944	SvRV_set (coro_current, SvREFCNT_inc (SvRV (current)));
1945
1946	void
1947	_set_readyhook (SV *hook)
1948	PROTOTYPE: $
1949	CODE:
1950	LOCK;
1951	SvREFCNT_dec (coro_readyhook);
1952	coro_readyhook = SvOK (hook) ? newSVsv (hook) : 0;
1953	UNLOCK;
1954
1955	int
1956	prio (Coro::State coro, int newprio = 0)
1957	ALIAS:
1958	nice = 1
1959	CODE:
1960	{
1961	RETVAL = coro->prio;
1962
1963	if (items > 1)
1964	{
1965	if (ix)
1966	newprio = coro->prio - newprio;
1967
1968	if (newprio < PRIO_MIN) newprio = PRIO_MIN;
1969	if (newprio > PRIO_MAX) newprio = PRIO_MAX;
1970
1971	coro->prio = newprio;
1972	}
1973	}
1974	OUTPUT:
1975	RETVAL
1976
1977	SV *
1978	ready (SV *self)
1979	PROTOTYPE: $
1980	CODE:
1981	RETVAL = boolSV (api_ready (self));
1982	OUTPUT:
1983	RETVAL
1984
1985	int
1986	nready (...)
1987	PROTOTYPE:
1988	CODE:
1989	RETVAL = coro_nready;
1990	OUTPUT:
1991	RETVAL
1992
1993	void	1911	void
1994	throw (Coro::State self, SV *throw = &PL_sv_undef)	1912	throw (Coro::State self, SV *throw = &PL_sv_undef)
1995	PROTOTYPE: $;$	1913	PROTOTYPE: $;$
1996	CODE:	1914	CODE:
1997	SvREFCNT_dec (self->throw);	1915	SvREFCNT_dec (self->throw);
…		…
2011	SV dst = ix ? (SV )&self->slot->defav : (SV **)&self->slot->defsv;	1929	SV dst = ix ? (SV )&self->slot->defav : (SV **)&self->slot->defsv;
2012		1930
2013	SV tmp = src; src = dst; *dst = tmp;	1931	SV tmp = src; src = dst; *dst = tmp;
2014	}	1932	}
2015		1933
		1934	MODULE = Coro::State PACKAGE = Coro
		1935
		1936	BOOT:
		1937	{
		1938	int i;
		1939
		1940	av_async_pool = coro_get_av (aTHX_ "Coro::async_pool", TRUE);
		1941	sv_pool_rss = coro_get_sv (aTHX_ "Coro::POOL_RSS" , TRUE);
		1942	sv_pool_size = coro_get_sv (aTHX_ "Coro::POOL_SIZE" , TRUE);
		1943
		1944	coro_current = coro_get_sv (aTHX_ "Coro::current", FALSE);
		1945	SvREADONLY_on (coro_current);
		1946
		1947	coro_stash = gv_stashpv ("Coro", TRUE);
		1948
		1949	newCONSTSUB (coro_stash, "PRIO_MAX", newSViv (PRIO_MAX));
		1950	newCONSTSUB (coro_stash, "PRIO_HIGH", newSViv (PRIO_HIGH));
		1951	newCONSTSUB (coro_stash, "PRIO_NORMAL", newSViv (PRIO_NORMAL));
		1952	newCONSTSUB (coro_stash, "PRIO_LOW", newSViv (PRIO_LOW));
		1953	newCONSTSUB (coro_stash, "PRIO_IDLE", newSViv (PRIO_IDLE));
		1954	newCONSTSUB (coro_stash, "PRIO_MIN", newSViv (PRIO_MIN));
		1955
		1956	for (i = PRIO_MAX - PRIO_MIN + 1; i--; )
		1957	coro_ready[i] = newAV ();
		1958
		1959	{
		1960	SV *sv = perl_get_sv ("Coro::API", TRUE);
		1961	perl_get_sv ("Coro::API", TRUE); /* silence 5.10 warning */
		1962
		1963	coroapi.schedule = api_schedule;
		1964	coroapi.cede = api_cede;
		1965	coroapi.cede_notself = api_cede_notself;
		1966	coroapi.ready = api_ready;
		1967	coroapi.is_ready = api_is_ready;
		1968	coroapi.nready = &coro_nready;
		1969	coroapi.current = coro_current;
		1970
		1971	GCoroAPI = &coroapi;
		1972	sv_setiv (sv, (IV)&coroapi);
		1973	SvREADONLY_on (sv);
		1974	}
		1975	}
		1976
		1977	void
		1978	_set_current (SV *current)
		1979	PROTOTYPE: $
		1980	CODE:
		1981	SvREFCNT_dec (SvRV (coro_current));
		1982	SvRV_set (coro_current, SvREFCNT_inc (SvRV (current)));
		1983
		1984	void
		1985	_set_readyhook (SV *hook)
		1986	PROTOTYPE: $
		1987	CODE:
		1988	LOCK;
		1989	SvREFCNT_dec (coro_readyhook);
		1990	coro_readyhook = SvOK (hook) ? newSVsv (hook) : 0;
		1991	UNLOCK;
		1992
		1993	int
		1994	prio (Coro::State coro, int newprio = 0)
		1995	ALIAS:
		1996	nice = 1
		1997	CODE:
		1998	{
		1999	RETVAL = coro->prio;
		2000
		2001	if (items > 1)
		2002	{
		2003	if (ix)
		2004	newprio = coro->prio - newprio;
		2005
		2006	if (newprio < PRIO_MIN) newprio = PRIO_MIN;
		2007	if (newprio > PRIO_MAX) newprio = PRIO_MAX;
		2008
		2009	coro->prio = newprio;
		2010	}
		2011	}
		2012	OUTPUT:
		2013	RETVAL
		2014
		2015	SV *
		2016	ready (SV *self)
		2017	PROTOTYPE: $
		2018	CODE:
		2019	RETVAL = boolSV (api_ready (self));
		2020	OUTPUT:
		2021	RETVAL
		2022
		2023	int
		2024	nready (...)
		2025	PROTOTYPE:
		2026	CODE:
		2027	RETVAL = coro_nready;
		2028	OUTPUT:
		2029	RETVAL
		2030
2016	# for async_pool speedup	2031	# for async_pool speedup
2017	void	2032	void
2018	_pool_1 (SV *cb)	2033	_pool_1 (SV *cb)
2019	CODE:	2034	CODE:
2020	{	2035	{
…		…
2084	api_trace (coro_current, 0);	2099	api_trace (coro_current, 0);
2085		2100
2086	av_push (av_async_pool, newSVsv (coro_current));	2101	av_push (av_async_pool, newSVsv (coro_current));
2087	}	2102	}
2088		2103
		2104	#if 0
		2105
		2106	void
		2107	_generator_call (...)
		2108	PROTOTYPE: @
		2109	PPCODE:
		2110	fprintf (stderr, "call %p\n", CvXSUBANY(cv).any_ptr);
		2111	xxxx
		2112	abort ();
		2113
		2114	SV *
		2115	gensub (SV *sub, ...)
		2116	PROTOTYPE: &;@
		2117	CODE:
		2118	{
		2119	struct coro *coro;
		2120	MAGIC *mg;
		2121	CV *xcv;
		2122	CV ncv = (CV )newSV_type (SVt_PVCV);
		2123	int i;
		2124
		2125	CvGV (ncv) = CvGV (cv);
		2126	CvFILE (ncv) = CvFILE (cv);
		2127
		2128	Newz (0, coro, 1, struct coro);
		2129	coro->args = newAV ();
		2130	coro->flags = CF_NEW;
		2131
		2132	av_extend (coro->args, items - 1);
		2133	for (i = 1; i < items; i++)
		2134	av_push (coro->args, newSVsv (ST (i)));
		2135
		2136	CvISXSUB_on (ncv);
		2137	CvXSUBANY (ncv).any_ptr = (void *)coro;
		2138
		2139	xcv = GvCV (gv_fetchpv ("Coro::_generator_call", 0, SVt_PVCV));
		2140
		2141	CvXSUB (ncv) = CvXSUB (xcv);
		2142	CvANON_on (ncv);
		2143
		2144	mg = sv_magicext ((SV )ncv, 0, CORO_MAGIC_type_state, &coro_gensub_vtbl, (char )coro, 0);
		2145	RETVAL = newRV_noinc ((SV *)ncv);
		2146	}
		2147	OUTPUT:
		2148	RETVAL
		2149
		2150	#endif
		2151
2089		2152
2090	MODULE = Coro::State PACKAGE = Coro::AIO	2153	MODULE = Coro::State PACKAGE = Coro::AIO
2091		2154
2092	SV *	2155	SV *
2093	_get_state ()	2156	_get_state ()

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing Coro/Coro/State.xs (file contents): Revision 1.240 by root, Sun Jun 29 00:28:17 2008 UTC vs. Revision 1.243 by root, Sat Aug 30 03:07:46 2008 UTC

Diff Legend

Comparing Coro/Coro/State.xs (file contents):
Revision 1.240 by root, Sun Jun 29 00:28:17 2008 UTC vs.
Revision 1.243 by root, Sat Aug 30 03:07:46 2008 UTC