// This file is under GNU General Public License 3.0

 // see LICENSE.txt

 // generate conditions and actions

 // Copyleft (c) 2017, 2018, p≡p foundation

 // Written by Volker Birk

 include yslt.yml2

 decl _func *name (*type) alias - {

     template %name=*name, %type=*type, "%type[@name='%name']"

         call *type with "content" content;

 };

 decl condition is _func (*type="condition");

 decl action is _func (*type="action");

 decl timeout is _func (*type="fsm");

 tstylesheet {

     include standardlib.ysl2

     include ./functions.ysl2

     include ./cond_act_*.yml2

     template "/protocol" {

         document "generated/{@name}_actions.c", "text" {

             ||

             // This file is under GNU General Public License 3.0

             // see LICENSE.txt

             #include "pEp_internal.h"

             #include "map_asn1.h"

             #include "«@name»_impl.h"

             `` for "fsm" | #include "«@name»_fsm.h"

             static bool _TID_greater(TID_t *t1, TID_t *t2)

             {

                 assert(t1 && t2);

                 if (t1 && !t2)

                     return true;

                 if (!t1)

                     return false;

                 if (t1->size > t2->size)

                     return true;

                 if (t2->size > t1->size)

                     return false;

                 for (int i=0; i<t1->size; i++) {

                     if (t1->buf[i] > t2->buf[i])

                         return true;

                     if (t2->buf[i] > t1->buf[i])

                         return false;

                 }

                 return false;

             }

             ||

             apply "func:distinctName(//condition)", 0;

             apply "func:distinctName(//action)", 0;

             apply "/protocol/fsm", 0;

         }

     }

     template "condition" | #error condition «@name» not implemented\n

     template "action" | #error action «@name» not implemented\n

     function "condition" {

         param "content";

         ||

         PEP_STATUS «@name»(PEP_SESSION session, bool *result)

         {

             assert(session && result);

             if (!(session && result))

                 return PEP_ILLEGAL_VALUE;

         ||

         copy "$content";

         ||

             return PEP_STATUS_OK;

         }

         ||

     }

     function "action" {

         param "content";

         ||

         PEP_STATUS «@name»(PEP_SESSION session)

         {

             assert(session);

             if (!session)

                 return PEP_ILLEGAL_VALUE;

         ||

         copy "$content";

         ||

             return PEP_STATUS_OK;

         }

         ||

     }

     function "fsm" {

         param "content";

         ||

         PEP_STATUS «@name»TimeoutHandler(PEP_SESSION session)

         {

             assert(session);

             if (!session)

                 return PEP_ILLEGAL_VALUE;

         ||

         copy "$content";

         ||

             return PEP_STATUS_OK;

         }

         ||

     }

 }