view release on metacpan or  search on metacpan

libjit/dpas/dpas-internal.h  view on Meta::CPAN

/*
 * dpas-internal.h - Internal definitions for the Dynamic Pascal compiler.
 *
 * Copyright (C) 2004  Southern Storm Software, Pty Ltd.
 *
 * This file is part of the libjit library.
 *
 * The libjit library is free software: you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public License
 * as published by the Free Software Foundation, either version 2.1 of
 * the License, or (at your option) any later version.
 *
 * The libjit library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with the libjit library.  If not, see
 * <http://www.gnu.org/licenses/>.
 */

#ifndef	_DPAS_INTERNAL_H
#define	_DPAS_INTERNAL_H

#include <jit/jit.h>
#include <stdio.h>

#include "dpas-scope.h"
#include "dpas-types.h"
#include "dpas-semantics.h"

#ifdef	__cplusplus
extern	"C" {
#endif

/*
 * Current filename and line number.
 */
extern char *dpas_filename;
extern long dpas_linenum;

/*
 * Flag that indicates that functions should be dumped as they are compiled.
 */
extern int dpas_dump_functions;

/*
 * Information about a parameter list (also used for record fields).
 */
typedef struct
{
	char		  **names;
	jit_type_t	   *types;
	int				len;
	jit_abi_t		abi;

} dpas_params;

/*
 * Flag that is set when an error is encountered.
 */
extern int dpas_error_reported;

/*
 * Function that is called when the system runs out of memory.
 */
void dpas_out_of_memory(void);

/*
 * Process an "import" clause within a program.
 */
void dpas_import(const char *name);

/*
 * Load the contents of a source file.
 */
void dpas_load_file(char *filename, FILE *file);

/*