/*------------------------->  Sather - configfile  <-------------------------*/
/* Copyright (C) 2000 by K Hopper, University of Waikato, New Zealand        */
/* 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:			no_pre,no_post ,var "@r $$;" ,exec "$$=BR_INVALID_ID();" "$$";
THREAD_ID_ME:			no_pre,no_post ,var "@r $$;" ,exec "$$=PSATHER_THREAD_ID;" "$$";
THREAD_ID_IS_EQ:		no_pre,no_post ,var "@r $$;" ,exec "$$=BR_THREAD_SAME($0,$1);" "$$";
THREAD_ID_IS_LT:		no_pre,no_post ,var "@r $$;" ,exec "$$=BR_THREAD_LT($0,$1);" "$$";
THREAD_ID_HASH:			no_pre,no_post ,var "@r $$;" ,exec "$$=BR_THREAD_HASH($0);" "$$";
THREAD_ID_STR:			no_pre,no_post ,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
