Return to motif.h CVS log

Up to [local] / rpl / modules / motif

Ajout des premiers bouts d'un module motif.

    1: #include <pthread.h>
    2: 
    3: #ifdef string
    4: #   undef string
    5: #endif
    6: 
    7: enum types { WIDGET, APPCONTEXT };
    8: 
    9: #include <Xm/XmAll.h>
   10: 
   11: declareStructure
   12:     void                    target(s_etat_processus);
   13:     struct_objet            target(s_objet);
   14:     Widget                  widget;
   15: as(callbackArg);
   16: 
   17: #ifdef __RPLC_MAIN
   18:     integer8            nombre_callbacks;
   19:     integer8            nombre_widgets;
   20:     logical             setFalse(initialisation);
   21:     Widget              target(widgets);
   22:     unsigned char       target(presence_widget);
   23:     callbackArg         target(callbacks);
   24:     unsigned char       target(presence_callback);
   25: 
   26:     XtAppContext        app;
   27:     Window              mainWindow;
   28:     integer8            mainWidget = -1;
   29: 
   30:     pthread_mutex_t     callback_mutex = PTHREAD_MUTEX_INITIALIZER;
   31: #else
   32:     extern integer8             nombre_callbacks;
   33:     extern integer8             nombre_widgets;
   34:     extern logical              initialisation;
   35:     extern Widget               target(widgets);
   36:     extern unsigned char        target(presence_widget);
   37:     extern callbackArg          target(callbacks);
   38:     extern unsigned char        target(presence_callback);
   39: 
   40:     extern XtAppContext         app;
   41:     extern Window               mainWindow;
   42:     extern integer8             mainWidget;
   43: 
   44:     extern pthread_mutex_t      callback_mutex;
   45: #endif
   46: 
   47: #include "variables.h"
   48: 
   49: integer8 ajout_widget(Widget w);
   50: integer8 ajout_callback(Widget widget, struct_objet *s_objet,
   51:         struct_rpl_arguments *rpl_arguments);
   52: 
   53: logical1 evaluation(struct_processus *s_etat_processus, struct_objet *s_objet,
   54:                 unsigned char type_evaluation);
   55: 
   56: void destroyChildrenAndCallbacks(Widget w);
   57: void rplCallback(Widget x_objet, XtPointer argument, XtPointer call);
   58: 
   59: // vim: ts=4