src_partikle/tests/test_long_jump.c

   1 // -----------------------------------------------------------------------
   2 //  Copyright (C) 2006 - 2008 FRESCOR consortium partners:
   3 //
   4 //    Universidad de Cantabria,              SPAIN
   5 //    University of York,                    UK
   6 //    Scuola Superiore Sant'Anna,            ITALY
   7 //    Kaiserslautern University,             GERMANY
   8 //    Univ. Politécnica  Valencia,           SPAIN
   9 //    Czech Technical University in Prague,  CZECH REPUBLIC
  10 //    ENEA                                   SWEDEN
  11 //    Thales Communication S.A.              FRANCE
  12 //    Visual Tools S.A.                      SPAIN
  13 //    Rapita Systems Ltd                     UK
  14 //    Evidence                               ITALY
  15 //
  16 //    See http://www.frescor.org for a link to partners' websites
  17 //
  18 //           FRESCOR project (FP6/2005/IST/5-034026) is funded
  19 //        in part by the European Union Sixth Framework Programme
  20 //        The European Union is not liable of any use that may be
  21 //        made of this code.
  22 //
  23 //
  24 //  based on previous work (FSF) done in the FIRST project
  25 //
  26 //   Copyright (C) 2005  Mälardalen University, SWEDEN
  27 //                       Scuola Superiore S.Anna, ITALY
  28 //                       Universidad de Cantabria, SPAIN
  29 //                       University of York, UK
  30 //
  31 //   FSF API web pages: http://marte.unican.es/fsf/docs
  32 //                      http://shark.sssup.it/contrib/first/docs/
  33 //
  34 //   This file is part of FOSA (Frsh Operating System Adaption)
  35 //
  36 //  FOSA is free software; you can redistribute it and/or modify it
  37 //  under terms of the GNU General Public License as published by the
  38 //  Free Software Foundation; either version 2, or (at your option) any
  39 //  later version.  FOSA is distributed in the hope that it will be
  40 //  useful, but WITHOUT ANY WARRANTY; without even the implied warranty
  41 //  of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  42 //  General Public License for more details. You should have received a
  43 //  copy of the GNU General Public License along with FOSA; see file
  44 //  COPYING. If not, write to the Free Software Foundation, 675 Mass Ave,
  45 //  Cambridge, MA 02139, USA.
  46 //
  47 //  As a special exception, including FOSA header files in a file,
  48 //  instantiating FOSA generics or templates, or linking other files
  49 //  with FOSA objects to produce an executable application, does not
  50 //  by itself cause the resulting executable application to be covered
  51 //  by the GNU General Public License. This exception does not
  52 //  however invalidate any other reasons why the executable file might be
  53 //  covered by the GNU Public License.
  54 // -----------------------------------------------------------------------
  55 //==============================================
  56 //  ********  ******    ********  **********
  57 //  **///// /**    **  **//////  /**     /**
  58 //  **      /**    ** /**        /**     /**
  59 //  ******* /**    ** /********* /**********
  60 //  **////  /**    ** ////////** /**//////**
  61 //  **      /**    **        /** /**     /**
  62 //  **      /**    **  ********  /**     /**
  63 //  //       /******/  ////////   //      //
  64 //
  65 // FOSA(Frescor Operating System Adaptation layer)
  66 //================================================
  67
  68 #include <fosa_long_jump.h>
  69 #include <fosa_threads_and_signals.h>
  70 #include <stdio.h>
  71 #include <assert.h>
  72
  73 void f1 (void)
  74 {
  75         fosa_long_jump_context_t ctx;
  76         fosa_signal_t sig;
  77         fosa_thread_id_t th;
  78         int jmp;
  79         fosa_signal_info_t ctx_info;
  80         sigset_t s;
  81
  82         pthread_sigmask (SIG_SETMASK, NULL, &s);
  83         printf (">>> Current signal mask = 0x%x\n", (unsigned int) s.sig);
  84
  85         assert (fosa_long_jump_save_context (NULL));
  86
  87         printf (">>> save context\n\n");
  88         if (fosa_long_jump_save_context (&ctx)) {
  89                 printf ("fosa_long_jump_save_context");
  90                 exit (-1);
  91         }
  92
  93         printf (">>> check jump performed\n\n");
  94         if (fosa_long_jump_was_performed ((const fosa_long_jump_context_t *) &ctx, &jmp)) {
  95                 printf ("fosa_long_jump_was_performed");
  96                 exit (-2);
  97         }
  98
  99         if (jmp) {
 100                 printf ("\t <<<< JUMPED\n\n");
 101                 pthread_sigmask (SIG_SETMASK, NULL, &s);
 102                 printf (">>> Current signal mask = 0x%x\n",(unsigned int) s.sig);
 103                 exit (10);
 104         }
 105
 106         printf (">>> install handler\n\n");
 107         if (fosa_long_jump_install_handler (&sig, &th)) {
 108                 printf ("fosa_long_jump_install_handler()");
 109                 exit (-3);
 110         }
 111
 112         printf ("\t signal=%d, thread=0x%x (self=0x%x)\n",  sig, (unsigned int) th, (unsigned int) fosa_thread_self());
 113
 114         printf (">>> trigger a long jump using a signal\n\n");
 115         ctx_info.sival_ptr = &ctx;
 116         if (fosa_signal_queue (sig, ctx_info, th)) {
 117                 printf ("fosa_signal_queue");
 118                 exit (-4);
 119         }
 120 }
 121
 122
 123 int main (void)
 124 {
 125   sigset_t s;
 126
 127   sigemptyset (&s);
 128   sigaddset (&s, SIGRTMIN);
 129   sigaddset (&s, SIGRTMAX);
 130   pthread_sigmask (SIG_SETMASK, &s, NULL);
 131
 132   f1 ();
 133   return 0;
 134 }
 135