----------------->  GNU Sather - compiler configuration file  <----------------
-- Copyright (C) 199x by International Computer Science Institute            --
-- This file is part of the GNU Sather library. It is free software; you may --
-- redistribute  and/or modify it under the terms of the GNU Library General --
-- Public  License (LGPL)  as published  by the  Free  Software  Foundation; --
-- either version 2 of the license, or (at your option) any later version.   --
-- This  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 Doc/LGPL for more details.       --
-- The license text is also available from:  Free Software Foundation, Inc., --
-- 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA                     --
-------------->  Please email comments to <bug-sather@gnu.org>  <--------------

#ifndef PID_CONFIG
#define PID_CONFIG

#ifdef PP
#undef PP
#endif

#ifdef I
#undef I
#endif

#ifdef E
#undef E
#endif

#ifdef B
#undef B
#endif

#define PP	no_pre,no_post
#define I	import
#define E	export
#define B	block
#define V	var "@r $$;"

-- most of the functions and macros used in this file are defined
-- in am.h, the rest in pSather.h
THREAD_ID_NIL:			PP,V,exec "$$=BR_INVALID_ID();" "$$";
THREAD_ID_ME:			PP,V,exec "$$=PSATHER_THREAD_ID;" "$$";
THREAD_ID_IS_EQ:		PP,V,exec "$$=BR_SAME_THREAD($0,$1);" "$$";
THREAD_ID_IS_LT:		PP,V,exec "$$=BR_THREAD_LT($0,$1);" "$$";
THREAD_ID_HASH:			PP,V,exec "$$=BR_THREAD_HASH($0);" "$$";
THREAD_ID_STR:			PP,var "@r $$;char $$p[30];",
				   exec "thr_print_id($0,$$p);"
				        "$$=(@r)rt_arr_alloc(sizeof(struct STR_struct),STR_tag,sizeof(CHAR),strlen($$p)+1);"
					"$$->asize=strlen($$p);"
					"strcpy($$->arr_part,$$p);"
					"$$";
#endif
