diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

experiment in or-parallel threads.

Browse Source
This commit is contained in:
Vítor Manuel de Morais Santos Costa
2010-01-14 15:58:19 +00:00
parent ac104aac9c
commit 5ef31fbfd2
29 changed files with 902 additions and 177 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
OPTYap/opt.preds.c
View File

@@ -46,6 +46,7 @@ static qg_ans_fr_ptr actual_answer;
** Local functions declaration **
** ------------------------------------- */
static Int p_yapor_threads(void);
#ifdef YAPOR
static realtime current_time(void);
static Int p_yapor_on(void);
@@ -60,6 +61,7 @@ static int parallel_new_answer_putchar(int sno, int ch);
static void show_answers(void);
static void answer_to_stdout(char *answer);
static Int p_or_statistics(void);
static Int p_worker(void);
#endif /* YAPOR */
#ifdef TABLING
@@ -123,7 +125,9 @@ static void shm_suspension_frames(long *pages_in_use, long *bytes_in_use);
** -------------------------- */
void Yap_init_optyap_preds(void) {
Yap_InitCPred("$yapor_threads", 1, p_yapor_threads, SafePredFlag|SyncPredFlag|HiddenPredFlag);
#ifdef YAPOR
Yap_InitCPred("$worker", 0, p_worker, SafePredFlag|SyncPredFlag|HiddenPredFlag);
Yap_InitCPred("$yapor_on", 0, p_yapor_on, SafePredFlag|SyncPredFlag|HiddenPredFlag);
Yap_InitCPred("$start_yapor", 0, p_start_yapor, SafePredFlag|SyncPredFlag|HiddenPredFlag);
Yap_InitCPred("$sequential", 1, p_sequential, SafePredFlag|SyncPredFlag|HiddenPredFlag);
@@ -173,6 +177,16 @@ void finish_yapor(void) {
** Local functions **
** ------------------------- */
static
Int p_yapor_threads(void) {
#if defined(YAPOR) && defined(THREADS)
return Yap_unify(MkIntegerTerm(number_workers),ARG1);
#else
return FALSE;
#endif
}
#ifdef YAPOR
static
realtime current_time(void) {
@@ -193,7 +207,6 @@ Int p_yapor_on(void) {
return (PARALLEL_EXECUTION_MODE);
}
static
Int p_start_yapor(void) {
#ifdef TIMESTAMP_CHECK
@@ -214,6 +227,12 @@ Int p_start_yapor(void) {
return (TRUE);
}
static
Int p_worker(void) {
CurrentModule = USER_MODULE;
P = GETWORK_FIRST_TIME;
return TRUE;
}
static
Int p_sequential(void) {