#3107 Send SIGALRM to children when the alarm is triggered

sjoelund · sjoelund · commit 0fbfc876980c · 2015-01-28T10:34:20.000Z
git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@24243 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
diff --git a/Compiler/FrontEnd/ModelicaBuiltin.mo b/Compiler/FrontEnd/ModelicaBuiltin.mo
@@ -1560,6 +1560,7 @@ impure function alarm
   output Integer previousSeconds;
 external "builtin" annotation(__OpenModelica_Impure=true,Library = {"omcruntime"},Documentation(info="<html>
 <p>Like <a href=\"http://linux.die.net/man/2/alarm\">alarm(2)</a>.</p>
+<p>Note that OpenModelica also sends SIGALRM to the process group when the alarm is triggered (in order to kill running simulations).</p>
 </html>"));
 end alarm;
 
diff --git a/Compiler/runtime/systemimpl.c b/Compiler/runtime/systemimpl.c
@@ -2683,11 +2683,38 @@ int SystemImpl__stat(const char *filename, double *size, double *mtime)
   return 1;
 }
 
+#if defined(__MINGW32__) || defined(_MSC_VER)
+static int default_alarm_action_set = 0;
+static struct sigaction default_alarm_action;
+
+static void alarm_handler(int signo, siginfo_t *si, void *ptr)
+{
+  assert(signo==SIGALRM);
+  kill(-getpid(), SIGALRM);
+  sigaction(SIGALRM, &default_alarm_action, 0);
+}
+
+int SystemImpl__alarm(int seconds)
+{
+  if (default_alarm_action_set == 0) {
+    struct sigaction sa = {
+      .sa_sigaction = alarm_handler,
+      .sa_flags = SA_SIGINFO
+    };
+    sigaction(SIGALRM, &sa, NULL);
+    default_alarm_action_set = 1;
+  }
+  return alarm(seconds);
+}
+#else
+
 int SystemImpl__alarm(int seconds)
 {
   return alarm(seconds);
 }
 
+#endif
+
 int SystemImpl__covertTextFileToCLiteral(const char *textFile, const char *outFile)
 {
   FILE *fin;
