00001 /*******************************************************************\ 00002 00003 SESAME project software license 00004 00005 Copyright (C) 2002 University of Amsterdam 00006 00007 This program is free software; you can redistribute it and/or 00008 modify it under the terms of the GNU General Public License 00009 as published by the Free Software Foundation; either version 2 00010 of the License, or (at your option) any later version. 00011 00012 This program is distributed in the hope that it will be useful, 00013 but WITHOUT ANY WARRANTY; without even the implied warranty of 00014 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 00015 GNU General Public License for more details. 00016 00017 You should have received a copy of the GNU General Public License 00018 along with this program; if not, write to the Free Software 00019 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 00020 02111-1307, USA. 00021 00022 For information regarding the SESAME software project see 00023 http://sesamesim.sourceforge.net or email 00024 jcofflan@users.sourceforge.net 00025 00026 \*******************************************************************/ 00027 00028 /* 00029 * Pearl Compiler (c) 1989 University of Amsterdam 00030 * B.J. Overeinder & J.G. Stil, Henk Muller 00031 */ 00032 00033 #include "process.h" 00034 #include "class.h" 00035 #include "misc.h" 00036 00037 extern int pearl_nlabels; 00038 extern int pearl_economicmode; /* set if should run only during night hours */ 00039 extern int method_statistics; 00040 extern int pearl_info; /* is set if info must be displayed */ 00041 extern timet pearl_time; 00042 extern processx *pearl_head; 00043 extern processx *pearl_proc; 00044 extern processx *pearl_current; 00045 extern int pearl_njobs; 00046 00047 extern int pearl_argc; 00048 extern char **pearl_argv; 00049 extern char *pearl_argv0; 00050 00051 #define VERBOSE_OFF 0 00052 #define VERBOSE_ONCE 1 00053 #define VERBOSE_ALL 2 00054 00055 /* 00056 * Test if the mask of a received message occurs in the list of masks of the 00057 * current process. 00058 */ 00059 #define test_mask(accept, method) ((accept)[method] >= 0) 00060 00061 #ifdef __cplusplus 00062 extern "C" { 00063 #endif 00064 00065 char *whoami(); 00066 int instanceof(int jobid, char *subtype_name); 00067 00068 #ifdef __cplusplus 00069 } 00070 #endif