#include <stdio.h>

/*
# if !defined OLC93SU523_H
#    include "olc93su523.h"
# endif
*/

#include "f93olc.h"


# if !defined OLC3COMMON_H
#    include "olc3common.h"
# endif


# if !defined TRANSITION_H
#    include "transition.h"
# endif


/*
** TransitionFirst
** TransitionNext
** TransitionDelete
*/
STANDARDROUTINES(Transition, TR)

FUNCTION2(
hcg_key TransitionCreate,
    hcg_key, TransitionFromThisState, 
    hcg_key, TransitionToThisState
)
{
    hcg_key TRid;

#ifdef GENV7
    char databuffer[BUFSIZE];
    KEYBUFFER(TRkey);
    KEYBUFFER(STkey1);
    KEYBUFFER(STkey2);

    decode(STkey1, &TransitionFromThisState);
    decode(STkey2, &TransitionToThisState);

    pr_gen_pkey("JuicePlant", TR, TRkey);
    sprintf(databuffer, " %s %s %s", TRkey, STkey1, STkey2);
    pr_add("JuicePlant", databuffer);
    encode(TRkey, &TRid);

#else
    struct TR *TR_elt;

    TR_elt = pr_create(TR);
    pr_set_key(TR_elt, STid1, TransitionFromThisState);
    pr_set_key(TR_elt, STid2, TransitionToThisState);
    pr_add("JuicePlant", TR, TR_elt);
    TRid = pr_get_key(TR_elt, TRid);
    
#endif

    return TRid;
}

GETROUTINE(hcg_key,Transition,TR,STid1)
GETROUTINE(hcg_key,Transition,TR,STid2)