1*7c478bd9Sstevel@tonic-gate /*
2*7c478bd9Sstevel@tonic-gate  * CDDL HEADER START
3*7c478bd9Sstevel@tonic-gate  *
4*7c478bd9Sstevel@tonic-gate  * The contents of this file are subject to the terms of the
5*7c478bd9Sstevel@tonic-gate  * Common Development and Distribution License, Version 1.0 only
6*7c478bd9Sstevel@tonic-gate  * (the "License").  You may not use this file except in compliance
7*7c478bd9Sstevel@tonic-gate  * with the License.
8*7c478bd9Sstevel@tonic-gate  *
9*7c478bd9Sstevel@tonic-gate  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10*7c478bd9Sstevel@tonic-gate  * or http://www.opensolaris.org/os/licensing.
11*7c478bd9Sstevel@tonic-gate  * See the License for the specific language governing permissions
12*7c478bd9Sstevel@tonic-gate  * and limitations under the License.
13*7c478bd9Sstevel@tonic-gate  *
14*7c478bd9Sstevel@tonic-gate  * When distributing Covered Code, include this CDDL HEADER in each
15*7c478bd9Sstevel@tonic-gate  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16*7c478bd9Sstevel@tonic-gate  * If applicable, add the following below this CDDL HEADER, with the
17*7c478bd9Sstevel@tonic-gate  * fields enclosed by brackets "[]" replaced with your own identifying
18*7c478bd9Sstevel@tonic-gate  * information: Portions Copyright [yyyy] [name of copyright owner]
19*7c478bd9Sstevel@tonic-gate  *
20*7c478bd9Sstevel@tonic-gate  * CDDL HEADER END
21*7c478bd9Sstevel@tonic-gate  */
22*7c478bd9Sstevel@tonic-gate /*
23*7c478bd9Sstevel@tonic-gate  * Copyright (c) 2000 by Sun Microsystems, Inc.
24*7c478bd9Sstevel@tonic-gate  * All rights reserved.
25*7c478bd9Sstevel@tonic-gate  */
26*7c478bd9Sstevel@tonic-gate 
27*7c478bd9Sstevel@tonic-gate #ifndef	_FCODE_PRIVATE_H
28*7c478bd9Sstevel@tonic-gate #define	_FCODE_PRIVATE_H
29*7c478bd9Sstevel@tonic-gate 
30*7c478bd9Sstevel@tonic-gate #pragma ident	"%Z%%M%	%I%	%E% SMI"
31*7c478bd9Sstevel@tonic-gate 
32*7c478bd9Sstevel@tonic-gate #ifdef DEBUG
33*7c478bd9Sstevel@tonic-gate #include <fcode/debug.h>
34*7c478bd9Sstevel@tonic-gate 
35*7c478bd9Sstevel@tonic-gate #ifdef	__cplusplus
36*7c478bd9Sstevel@tonic-gate extern "C" {
37*7c478bd9Sstevel@tonic-gate #endif
38*7c478bd9Sstevel@tonic-gate 
39*7c478bd9Sstevel@tonic-gate long get_interpreter_debug_level(void);
40*7c478bd9Sstevel@tonic-gate void set_interpreter_debug_level(long lvl);
41*7c478bd9Sstevel@tonic-gate 
42*7c478bd9Sstevel@tonic-gate #define	DPRINTF(x, y)	if (get_interpreter_debug_level() & (DEBUG_##x))\
43*7c478bd9Sstevel@tonic-gate 			    printf y
44*7c478bd9Sstevel@tonic-gate #define	DEBUGF(x, y)	if (get_interpreter_debug_level() & (DEBUG_##x))\
45*7c478bd9Sstevel@tonic-gate 			    { y; }
46*7c478bd9Sstevel@tonic-gate #else
47*7c478bd9Sstevel@tonic-gate 
48*7c478bd9Sstevel@tonic-gate #ifdef	__cplusplus
49*7c478bd9Sstevel@tonic-gate extern "C" {
50*7c478bd9Sstevel@tonic-gate #endif
51*7c478bd9Sstevel@tonic-gate 
52*7c478bd9Sstevel@tonic-gate #define	DPRINTF(x, y)
53*7c478bd9Sstevel@tonic-gate #define	DEBUGF(x, y)
54*7c478bd9Sstevel@tonic-gate #endif
55*7c478bd9Sstevel@tonic-gate 
56*7c478bd9Sstevel@tonic-gate #define	PUSH(sp, n)	*(++sp) = (n)
57*7c478bd9Sstevel@tonic-gate #define	POP(sp)		*(sp--)
58*7c478bd9Sstevel@tonic-gate 
59*7c478bd9Sstevel@tonic-gate #define	ERROR(x)	printf x
60*7c478bd9Sstevel@tonic-gate 
61*7c478bd9Sstevel@tonic-gate #define	MALLOC(x)	safe_malloc((x), __FILE__, __LINE__)
62*7c478bd9Sstevel@tonic-gate #define	REALLOC(x, n)	safe_realloc((x), (n), __FILE__, __LINE__)
63*7c478bd9Sstevel@tonic-gate #define	STRDUP(x)	safe_strdup((x), __FILE__, __LINE__)
64*7c478bd9Sstevel@tonic-gate #define	FREE(x)		safe_free((x), __FILE__, __LINE__)
65*7c478bd9Sstevel@tonic-gate 
66*7c478bd9Sstevel@tonic-gate #include <fcode/engine.h>
67*7c478bd9Sstevel@tonic-gate 
68*7c478bd9Sstevel@tonic-gate extern fcode_env_t *initial_env;
69*7c478bd9Sstevel@tonic-gate extern int fcode_impl_count;
70*7c478bd9Sstevel@tonic-gate 
71*7c478bd9Sstevel@tonic-gate #define	SET_TOKEN(t, f, n, a) \
72*7c478bd9Sstevel@tonic-gate 	env->table[t].flags = f; \
73*7c478bd9Sstevel@tonic-gate 	env->table[t].name = n; \
74*7c478bd9Sstevel@tonic-gate 	env->table[t].apf = a;
75*7c478bd9Sstevel@tonic-gate 
76*7c478bd9Sstevel@tonic-gate #define	FCODE(token, fl, nm, fnc) \
77*7c478bd9Sstevel@tonic-gate 	fcode_impl_count++; \
78*7c478bd9Sstevel@tonic-gate 	env->table[token].flags = fl; \
79*7c478bd9Sstevel@tonic-gate 	do_code(env, token, nm, fnc);
80*7c478bd9Sstevel@tonic-gate 
81*7c478bd9Sstevel@tonic-gate #define	ANSI(tk, t, nm, fnc)	FCODE(tk, (ANSI_WORD|P1275_WORD|t), nm, fnc)
82*7c478bd9Sstevel@tonic-gate #define	P1275(tk, t, nm, fnc)	FCODE(tk, (P1275_WORD|t), nm, fnc)
83*7c478bd9Sstevel@tonic-gate 
84*7c478bd9Sstevel@tonic-gate #ifdef DEBUG
85*7c478bd9Sstevel@tonic-gate #define	ASSERT(x)	if (!(x)) printf("%s:%d: ASSERT FAILED!!\n",\
86*7c478bd9Sstevel@tonic-gate 			    __FILE__, __LINE__);
87*7c478bd9Sstevel@tonic-gate #ifdef NOTICE
88*7c478bd9Sstevel@tonic-gate #undef NOTICE
89*7c478bd9Sstevel@tonic-gate #define	NOTICE	printf("%s:%d: _init called\n", __FILE__, __LINE__)
90*7c478bd9Sstevel@tonic-gate #else
91*7c478bd9Sstevel@tonic-gate #define	NOTICE
92*7c478bd9Sstevel@tonic-gate #endif
93*7c478bd9Sstevel@tonic-gate #else
94*7c478bd9Sstevel@tonic-gate #define	ASSERT(x)
95*7c478bd9Sstevel@tonic-gate #define	NOTICE
96*7c478bd9Sstevel@tonic-gate #endif
97*7c478bd9Sstevel@tonic-gate 
98*7c478bd9Sstevel@tonic-gate void fc_abort(fcode_env_t *, char *type);
99*7c478bd9Sstevel@tonic-gate 
100*7c478bd9Sstevel@tonic-gate #define	TODO	fc_abort(env, "TODO")
101*7c478bd9Sstevel@tonic-gate #define	FATAL	ERROR(("%s:%d: MANGLED FCODE!! Fatal Error\n",\
102*7c478bd9Sstevel@tonic-gate 		    __FILE__, __LINE__)))
103*7c478bd9Sstevel@tonic-gate 
104*7c478bd9Sstevel@tonic-gate #ifndef USE_INTERRUPTS
105*7c478bd9Sstevel@tonic-gate #define	CHECK_INTERRUPT
106*7c478bd9Sstevel@tonic-gate #define	COMPLETE_INTERRUPT
107*7c478bd9Sstevel@tonic-gate #else
108*7c478bd9Sstevel@tonic-gate #define	CHECK_INTERRUPT		check_interrupt()
109*7c478bd9Sstevel@tonic-gate #define	COMPLETE_INTERRUPT	complete_interrupt()
110*7c478bd9Sstevel@tonic-gate #endif
111*7c478bd9Sstevel@tonic-gate 
112*7c478bd9Sstevel@tonic-gate /* dforth_t manimpulations */
113*7c478bd9Sstevel@tonic-gate #define	MAKE_DFORTH(hi, lo)	((((u_dforth_t)(hi) << 32)) | \
114*7c478bd9Sstevel@tonic-gate 	    (((u_dforth_t)(lo)) & 0xffffffff))
115*7c478bd9Sstevel@tonic-gate #define	DFORTH_LO(df)	(((u_dforth_t)(df)) & 0xffffffff)
116*7c478bd9Sstevel@tonic-gate #define	DFORTH_HI(df)	((((u_dforth_t)(df)) >> 32) & 0xffffffff)
117*7c478bd9Sstevel@tonic-gate 
118*7c478bd9Sstevel@tonic-gate #define	TRUE	(-1)
119*7c478bd9Sstevel@tonic-gate #define	FALSE	(0)
120*7c478bd9Sstevel@tonic-gate 
121*7c478bd9Sstevel@tonic-gate 
122*7c478bd9Sstevel@tonic-gate instance_t *open_instance_chain(fcode_env_t *, device_t *, int);
123*7c478bd9Sstevel@tonic-gate void close_instance_chain(fcode_env_t *, instance_t *, int);
124*7c478bd9Sstevel@tonic-gate void activate_device(fcode_env_t *, device_t *);
125*7c478bd9Sstevel@tonic-gate void deactivate_device(fcode_env_t *, device_t *);
126*7c478bd9Sstevel@tonic-gate 
127*7c478bd9Sstevel@tonic-gate void install_handlers(fcode_env_t *);
128*7c478bd9Sstevel@tonic-gate void set_defer_actions(fcode_env_t *, int);
129*7c478bd9Sstevel@tonic-gate void throw_from_fclib(fcode_env_t *, fstack_t, char *, ...);
130*7c478bd9Sstevel@tonic-gate int get_default_intprop(fcode_env_t *, char *, device_t *, int);
131*7c478bd9Sstevel@tonic-gate uint_t get_number_of_parent_address_cells(fcode_env_t *);
132*7c478bd9Sstevel@tonic-gate char *get_package_name(fcode_env_t *, device_t *);
133*7c478bd9Sstevel@tonic-gate 
134*7c478bd9Sstevel@tonic-gate token_t *get_instance_address(fcode_env_t *);
135*7c478bd9Sstevel@tonic-gate fc_resource_t *find_resource(fc_resource_t **, void *,
136*7c478bd9Sstevel@tonic-gate     int (c)(void *, void *));
137*7c478bd9Sstevel@tonic-gate void *add_resource(fc_resource_t **, void *, int (c)(void *, void *));
138*7c478bd9Sstevel@tonic-gate void free_resource(fc_resource_t **, void *, int (c)(void *, void *));
139*7c478bd9Sstevel@tonic-gate void set_temporary_compile(fcode_env_t *);
140*7c478bd9Sstevel@tonic-gate void temporary_execute(fcode_env_t *);
141*7c478bd9Sstevel@tonic-gate prop_t *lookup_package_property(fcode_env_t *, char *, device_t *);
142*7c478bd9Sstevel@tonic-gate 
143*7c478bd9Sstevel@tonic-gate #ifdef	__cplusplus
144*7c478bd9Sstevel@tonic-gate }
145*7c478bd9Sstevel@tonic-gate #endif
146*7c478bd9Sstevel@tonic-gate 
147*7c478bd9Sstevel@tonic-gate #endif /* _FCODE_PRIVATE_H */
148