Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] View of /sml/trunk/src/runtime/config/gen.h
ViewVC logotype

View of /sml/trunk/src/runtime/config/gen.h

Parent Directory Parent Directory | Revision Log Revision Log


Revision 250 - (download) (as text) (annotate)
Sat Apr 17 18:57:03 1999 UTC (21 years, 7 months ago) by monnier
File size: 645 byte(s)
This commit was generated by cvs2svn to compensate for changes in r249,
which included commits to RCS files with non-trunk default branches.
/* gen.h
 *
 * COPYRIGHT (c) 1994 by AT&T Bell Laboratories.
 */

#ifndef _GEN_COMMON_
#define _GEN_COMMON_

#include <stdio.h>

extern FILE *OpenFile (char *fname, char *flag);
extern void CloseFile (FILE *f, char *flag);

#ifndef _ML_BASE_
/* nil pointers */
#define NIL(ty)		((ty)0)

/* aliases for malloc/free, so that we can easily replace them */
#define MALLOC(sz)	malloc(sz)
#define FREE(p)		free(p)

/* Allocate a new C object of type t. */
#define NEW_OBJ(t)	((t *)MALLOC(sizeof(t)))
/* Allocate a new C array of type t objects. */
#define NEW_VEC(t,n)	((t *)MALLOC((n)*sizeof(t)))
#endif /* !_ML_BASE_ */

#endif /* !_GEN_COMMON_ */


root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0