Create a struct for all perls globals (as an option)

Mainly for Mingw32 which cannot import data.
Now only Opcode tests fail (op_desc/op_name not 
       handled yet stuff)

p4raw-id: //depot/ansiperl@341

1 files changed, 345 insertions, 0 deletions

diff --git a/embedvar.h b/embedvar.h
index b68624ab69..8a3ea52b36 100644
--- a/embedvar.h
+++ b/embedvar.h
@@ -607,3 +607,348 @@
 
 #endif /* USE_THREADS */
 
+#ifdef PERL_GLOBAL_STRUCT
+
+#define amagic_generation	(Perl_Vars.Gamagic_generation)
+#define an			(Perl_Vars.Gan)
+#define bufend			(Perl_Vars.Gbufend)
+#define bufptr			(Perl_Vars.Gbufptr)
+#define collation_ix		(Perl_Vars.Gcollation_ix)
+#define collation_name		(Perl_Vars.Gcollation_name)
+#define collation_standard	(Perl_Vars.Gcollation_standard)
+#define collxfrm_base		(Perl_Vars.Gcollxfrm_base)
+#define collxfrm_mult		(Perl_Vars.Gcollxfrm_mult)
+#define compcv			(Perl_Vars.Gcompcv)
+#define compiling		(Perl_Vars.Gcompiling)
+#define comppad			(Perl_Vars.Gcomppad)
+#define comppad_name		(Perl_Vars.Gcomppad_name)
+#define comppad_name_fill	(Perl_Vars.Gcomppad_name_fill)
+#define comppad_name_floor	(Perl_Vars.Gcomppad_name_floor)
+#define cop_seqmax		(Perl_Vars.Gcop_seqmax)
+#define cryptseen		(Perl_Vars.Gcryptseen)
+#define cshlen			(Perl_Vars.Gcshlen)
+#define cshname			(Perl_Vars.Gcshname)
+#define curinterp		(Perl_Vars.Gcurinterp)
+#define curthr			(Perl_Vars.Gcurthr)
+#define debug			(Perl_Vars.Gdebug)
+#define do_undump		(Perl_Vars.Gdo_undump)
+#define egid			(Perl_Vars.Gegid)
+#define error_count		(Perl_Vars.Gerror_count)
+#define euid			(Perl_Vars.Geuid)
+#define eval_cond		(Perl_Vars.Geval_cond)
+#define eval_mutex		(Perl_Vars.Geval_mutex)
+#define eval_owner		(Perl_Vars.Geval_owner)
+#define evalseq			(Perl_Vars.Gevalseq)
+#define expect			(Perl_Vars.Gexpect)
+#define gid			(Perl_Vars.Ggid)
+#define he_root			(Perl_Vars.Ghe_root)
+#define hints			(Perl_Vars.Ghints)
+#define in_my			(Perl_Vars.Gin_my)
+#define in_my_stash		(Perl_Vars.Gin_my_stash)
+#define last_lop		(Perl_Vars.Glast_lop)
+#define last_lop_op		(Perl_Vars.Glast_lop_op)
+#define last_uni		(Perl_Vars.Glast_uni)
+#define lex_brackets		(Perl_Vars.Glex_brackets)
+#define lex_brackstack		(Perl_Vars.Glex_brackstack)
+#define lex_casemods		(Perl_Vars.Glex_casemods)
+#define lex_casestack		(Perl_Vars.Glex_casestack)
+#define lex_defer		(Perl_Vars.Glex_defer)
+#define lex_dojoin		(Perl_Vars.Glex_dojoin)
+#define lex_expect		(Perl_Vars.Glex_expect)
+#define lex_fakebrack		(Perl_Vars.Glex_fakebrack)
+#define lex_formbrack		(Perl_Vars.Glex_formbrack)
+#define lex_inpat		(Perl_Vars.Glex_inpat)
+#define lex_inwhat		(Perl_Vars.Glex_inwhat)
+#define lex_op			(Perl_Vars.Glex_op)
+#define lex_repl		(Perl_Vars.Glex_repl)
+#define lex_starts		(Perl_Vars.Glex_starts)
+#define lex_state		(Perl_Vars.Glex_state)
+#define lex_stuff		(Perl_Vars.Glex_stuff)
+#define linestr			(Perl_Vars.Glinestr)
+#define malloc_mutex		(Perl_Vars.Gmalloc_mutex)
+#define max_intro_pending	(Perl_Vars.Gmax_intro_pending)
+#define maxo			(Perl_Vars.Gmaxo)
+#define min_intro_pending	(Perl_Vars.Gmin_intro_pending)
+#define multi_close		(Perl_Vars.Gmulti_close)
+#define multi_end		(Perl_Vars.Gmulti_end)
+#define multi_open		(Perl_Vars.Gmulti_open)
+#define multi_start		(Perl_Vars.Gmulti_start)
+#define na			(Perl_Vars.Gna)
+#define nexttoke		(Perl_Vars.Gnexttoke)
+#define nexttype		(Perl_Vars.Gnexttype)
+#define nextval			(Perl_Vars.Gnextval)
+#define nice_chunk		(Perl_Vars.Gnice_chunk)
+#define nice_chunk_size		(Perl_Vars.Gnice_chunk_size)
+#define nomemok			(Perl_Vars.Gnomemok)
+#define nthreads		(Perl_Vars.Gnthreads)
+#define nthreads_cond		(Perl_Vars.Gnthreads_cond)
+#define numeric_local		(Perl_Vars.Gnumeric_local)
+#define numeric_name		(Perl_Vars.Gnumeric_name)
+#define numeric_standard	(Perl_Vars.Gnumeric_standard)
+#define oldbufptr		(Perl_Vars.Goldbufptr)
+#define oldoldbufptr		(Perl_Vars.Goldoldbufptr)
+#define op_seqmax		(Perl_Vars.Gop_seqmax)
+#define origalen		(Perl_Vars.Gorigalen)
+#define origenviron		(Perl_Vars.Gorigenviron)
+#define osname			(Perl_Vars.Gosname)
+#define pad_reset_pending	(Perl_Vars.Gpad_reset_pending)
+#define padix			(Perl_Vars.Gpadix)
+#define padix_floor		(Perl_Vars.Gpadix_floor)
+#define pidstatus		(Perl_Vars.Gpidstatus)
+#define profiledata		(Perl_Vars.Gprofiledata)
+#define rsfp			(Perl_Vars.Grsfp)
+#define rsfp_filters		(Perl_Vars.Grsfp_filters)
+#define runops			(Perl_Vars.Grunops)
+#define scrgv			(Perl_Vars.Gscrgv)
+#define sh_path			(Perl_Vars.Gsh_path)
+#define sighandlerp		(Perl_Vars.Gsighandlerp)
+#define sub_generation		(Perl_Vars.Gsub_generation)
+#define subline			(Perl_Vars.Gsubline)
+#define subname			(Perl_Vars.Gsubname)
+#define sv_mutex		(Perl_Vars.Gsv_mutex)
+#define sv_no			(Perl_Vars.Gsv_no)
+#define sv_undef		(Perl_Vars.Gsv_undef)
+#define sv_yes			(Perl_Vars.Gsv_yes)
+#define thisexpr		(Perl_Vars.Gthisexpr)
+#define thr_key			(Perl_Vars.Gthr_key)
+#define threads_mutex		(Perl_Vars.Gthreads_mutex)
+#define threadsv_names		(Perl_Vars.Gthreadsv_names)
+#define tokenbuf		(Perl_Vars.Gtokenbuf)
+#define uid			(Perl_Vars.Guid)
+#define xiv_arenaroot		(Perl_Vars.Gxiv_arenaroot)
+#define xiv_root		(Perl_Vars.Gxiv_root)
+#define xnv_root		(Perl_Vars.Gxnv_root)
+#define xpv_root		(Perl_Vars.Gxpv_root)
+#define xrv_root		(Perl_Vars.Gxrv_root)
+
+#else /* !PERL_GLOBAL_STRUCT */
+
+#define Gamagic_generation	amagic_generation
+#define Gan			an
+#define Gbufend			bufend
+#define Gbufptr			bufptr
+#define Gcollation_ix		collation_ix
+#define Gcollation_name		collation_name
+#define Gcollation_standard	collation_standard
+#define Gcollxfrm_base		collxfrm_base
+#define Gcollxfrm_mult		collxfrm_mult
+#define Gcompcv			compcv
+#define Gcompiling		compiling
+#define Gcomppad		comppad
+#define Gcomppad_name		comppad_name
+#define Gcomppad_name_fill	comppad_name_fill
+#define Gcomppad_name_floor	comppad_name_floor
+#define Gcop_seqmax		cop_seqmax
+#define Gcryptseen		cryptseen
+#define Gcshlen			cshlen
+#define Gcshname		cshname
+#define Gcurinterp		curinterp
+#define Gcurthr			curthr
+#define Gdebug			debug
+#define Gdo_undump		do_undump
+#define Gegid			egid
+#define Gerror_count		error_count
+#define Geuid			euid
+#define Geval_cond		eval_cond
+#define Geval_mutex		eval_mutex
+#define Geval_owner		eval_owner
+#define Gevalseq		evalseq
+#define Gexpect			expect
+#define Ggid			gid
+#define Ghe_root		he_root
+#define Ghints			hints
+#define Gin_my			in_my
+#define Gin_my_stash		in_my_stash
+#define Glast_lop		last_lop
+#define Glast_lop_op		last_lop_op
+#define Glast_uni		last_uni
+#define Glex_brackets		lex_brackets
+#define Glex_brackstack		lex_brackstack
+#define Glex_casemods		lex_casemods
+#define Glex_casestack		lex_casestack
+#define Glex_defer		lex_defer
+#define Glex_dojoin		lex_dojoin
+#define Glex_expect		lex_expect
+#define Glex_fakebrack		lex_fakebrack
+#define Glex_formbrack		lex_formbrack
+#define Glex_inpat		lex_inpat
+#define Glex_inwhat		lex_inwhat
+#define Glex_op			lex_op
+#define Glex_repl		lex_repl
+#define Glex_starts		lex_starts
+#define Glex_state		lex_state
+#define Glex_stuff		lex_stuff
+#define Glinestr		linestr
+#define Gmalloc_mutex		malloc_mutex
+#define Gmax_intro_pending	max_intro_pending
+#define Gmaxo			maxo
+#define Gmin_intro_pending	min_intro_pending
+#define Gmulti_close		multi_close
+#define Gmulti_end		multi_end
+#define Gmulti_open		multi_open
+#define Gmulti_start		multi_start
+#define Gna			na
+#define Gnexttoke		nexttoke
+#define Gnexttype		nexttype
+#define Gnextval		nextval
+#define Gnice_chunk		nice_chunk
+#define Gnice_chunk_size	nice_chunk_size
+#define Gnomemok		nomemok
+#define Gnthreads		nthreads
+#define Gnthreads_cond		nthreads_cond
+#define Gnumeric_local		numeric_local
+#define Gnumeric_name		numeric_name
+#define Gnumeric_standard	numeric_standard
+#define Goldbufptr		oldbufptr
+#define Goldoldbufptr		oldoldbufptr
+#define Gop_seqmax		op_seqmax
+#define Gorigalen		origalen
+#define Gorigenviron		origenviron
+#define Gosname			osname
+#define Gpad_reset_pending	pad_reset_pending
+#define Gpadix			padix
+#define Gpadix_floor		padix_floor
+#define Gpidstatus		pidstatus
+#define Gprofiledata		profiledata
+#define Grsfp			rsfp
+#define Grsfp_filters		rsfp_filters
+#define Grunops			runops
+#define Gscrgv			scrgv
+#define Gsh_path		sh_path
+#define Gsighandlerp		sighandlerp
+#define Gsub_generation		sub_generation
+#define Gsubline		subline
+#define Gsubname		subname
+#define Gsv_mutex		sv_mutex
+#define Gsv_no			sv_no
+#define Gsv_undef		sv_undef
+#define Gsv_yes			sv_yes
+#define Gthisexpr		thisexpr
+#define Gthr_key		thr_key
+#define Gthreads_mutex		threads_mutex
+#define Gthreadsv_names		threadsv_names
+#define Gtokenbuf		tokenbuf
+#define Guid			uid
+#define Gxiv_arenaroot		xiv_arenaroot
+#define Gxiv_root		xiv_root
+#define Gxnv_root		xnv_root
+#define Gxpv_root		xpv_root
+#define Gxrv_root		xrv_root
+
+#ifdef EMBED
+
+#define amagic_generation	Perl_amagic_generation
+#define an			Perl_an
+#define bufend			Perl_bufend
+#define bufptr			Perl_bufptr
+#define collation_ix		Perl_collation_ix
+#define collation_name		Perl_collation_name
+#define collation_standard	Perl_collation_standard
+#define collxfrm_base		Perl_collxfrm_base
+#define collxfrm_mult		Perl_collxfrm_mult
+#define compcv			Perl_compcv
+#define compiling		Perl_compiling
+#define comppad			Perl_comppad
+#define comppad_name		Perl_comppad_name
+#define comppad_name_fill	Perl_comppad_name_fill
+#define comppad_name_floor	Perl_comppad_name_floor
+#define cop_seqmax		Perl_cop_seqmax
+#define cryptseen		Perl_cryptseen
+#define cshlen			Perl_cshlen
+#define cshname			Perl_cshname
+#define curinterp		Perl_curinterp
+#define curthr			Perl_curthr
+#define debug			Perl_debug
+#define do_undump		Perl_do_undump
+#define egid			Perl_egid
+#define error_count		Perl_error_count
+#define euid			Perl_euid
+#define eval_cond		Perl_eval_cond
+#define eval_mutex		Perl_eval_mutex
+#define eval_owner		Perl_eval_owner
+#define evalseq			Perl_evalseq
+#define expect			Perl_expect
+#define gid			Perl_gid
+#define he_root			Perl_he_root
+#define hints			Perl_hints
+#define in_my			Perl_in_my
+#define in_my_stash		Perl_in_my_stash
+#define last_lop		Perl_last_lop
+#define last_lop_op		Perl_last_lop_op
+#define last_uni		Perl_last_uni
+#define lex_brackets		Perl_lex_brackets
+#define lex_brackstack		Perl_lex_brackstack
+#define lex_casemods		Perl_lex_casemods
+#define lex_casestack		Perl_lex_casestack
+#define lex_defer		Perl_lex_defer
+#define lex_dojoin		Perl_lex_dojoin
+#define lex_expect		Perl_lex_expect
+#define lex_fakebrack		Perl_lex_fakebrack
+#define lex_formbrack		Perl_lex_formbrack
+#define lex_inpat		Perl_lex_inpat
+#define lex_inwhat		Perl_lex_inwhat
+#define lex_op			Perl_lex_op
+#define lex_repl		Perl_lex_repl
+#define lex_starts		Perl_lex_starts
+#define lex_state		Perl_lex_state
+#define lex_stuff		Perl_lex_stuff
+#define linestr			Perl_linestr
+#define malloc_mutex		Perl_malloc_mutex
+#define max_intro_pending	Perl_max_intro_pending
+#define maxo			Perl_maxo
+#define min_intro_pending	Perl_min_intro_pending
+#define multi_close		Perl_multi_close
+#define multi_end		Perl_multi_end
+#define multi_open		Perl_multi_open
+#define multi_start		Perl_multi_start
+#define na			Perl_na
+#define nexttoke		Perl_nexttoke
+#define nexttype		Perl_nexttype
+#define nextval			Perl_nextval
+#define nice_chunk		Perl_nice_chunk
+#define nice_chunk_size		Perl_nice_chunk_size
+#define nomemok			Perl_nomemok
+#define nthreads		Perl_nthreads
+#define nthreads_cond		Perl_nthreads_cond
+#define numeric_local		Perl_numeric_local
+#define numeric_name		Perl_numeric_name
+#define numeric_standard	Perl_numeric_standard
+#define oldbufptr		Perl_oldbufptr
+#define oldoldbufptr		Perl_oldoldbufptr
+#define op_seqmax		Perl_op_seqmax
+#define origalen		Perl_origalen
+#define origenviron		Perl_origenviron
+#define osname			Perl_osname
+#define pad_reset_pending	Perl_pad_reset_pending
+#define padix			Perl_padix
+#define padix_floor		Perl_padix_floor
+#define pidstatus		Perl_pidstatus
+#define profiledata		Perl_profiledata
+#define rsfp			Perl_rsfp
+#define rsfp_filters		Perl_rsfp_filters
+#define runops			Perl_runops
+#define scrgv			Perl_scrgv
+#define sh_path			Perl_sh_path
+#define sighandlerp		Perl_sighandlerp
+#define sub_generation		Perl_sub_generation
+#define subline			Perl_subline
+#define subname			Perl_subname
+#define sv_mutex		Perl_sv_mutex
+#define sv_no			Perl_sv_no
+#define sv_undef		Perl_sv_undef
+#define sv_yes			Perl_sv_yes
+#define thisexpr		Perl_thisexpr
+#define thr_key			Perl_thr_key
+#define threads_mutex		Perl_threads_mutex
+#define threadsv_names		Perl_threadsv_names
+#define tokenbuf		Perl_tokenbuf
+#define uid			Perl_uid
+#define xiv_arenaroot		Perl_xiv_arenaroot
+#define xiv_root		Perl_xiv_root
+#define xnv_root		Perl_xnv_root
+#define xpv_root		Perl_xpv_root
+#define xrv_root		Perl_xrv_root
+
+#endif /* EMBED */
+#endif /* PERL_GLOBAL_STRUCT */
+