Changeset 986 for trunk/optimizer/src/plugin_pgapack.c

Timestamp:

Apr 2, 2008, 2:32:58 PM (16 years ago)

Author:

gah

Message:

added global pgapack_abort flag to plugin and abort operation to optimizer

File:

• trunk/optimizer/src/plugin_pgapack.c (modified) (4 diffs)

trunk/optimizer/src/plugin_pgapack.c

@@ -79 +79 @@
     dataPtr->popRepl = PGA_POPREPL_BEST;
     dataPtr->popSize = 200;
-
     return (ClientData)dataPtr;
 }
+
+int pgapack_abort = 0;
 
 /*
@@ -103 +104 @@
     /* fake it here by just saying something like "rappture" */
     int argc = 1; char *argv[] = {"rappture"};
+
+    pgapack_abort = 0;          /* FALSE */
+    PGASetAbortVar(&pgapack_abort);
 
     ctx = PGACreate(&argc, argv, PGA_DATATYPE_USER, envPtr->numParams,
@@ -143 +147 @@
     PgapUnlinkContext2Env(ctx);
 
+    if (pgapack_abort) {
+        return RP_OPTIM_ABORTED;
+    }
     return RP_OPTIM_SUCCESS;
 }
@@ -172 +179 @@
     status = (*envPtr->evalProc)(envPtr, paramPtr, envPtr->numParams, &fit);
 
+    if (pgapack_abort) {
+        fprintf(stderr, "==WARNING: run aborted!");
+        return 0.0;
+    }
+        
     if (status != RP_OPTIM_SUCCESS) {
         fprintf(stderr, "==WARNING: run failed!");