1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
/* Copyright INRIA */
#include <stdio.h>
#include <sys/types.h>
#ifndef __MSC__
#include <netinet/in.h>
#include <netdb.h>
#endif
#include "../machine.h"
#include "../intersci/cerro.h"
#include "../libcomm/libCalCom.h"
#include "../libcomm/libCom.h"
int isGeci = 0;
extern void ParseMessage();
static void quitter_appli_msgact();
static void FinAppli();
static void erreur_message_msgact();
/* known messages for Scilab */
static actions_messages tb_messages[]={
{ID_GeCI,MSG_QUITTER_APPLI,NBP_QUITTER_APPLI,quitter_appli_msgact},
{ID_GeCI,MSG_FIN_APPLI,NBP_FIN_APPLI,FinAppli},
{NULL,MSG_DISTRIB_LISTE_ELMNT,NBP_DISTRIB_LISTE_ELMNT,ParseMessage},
{NULL,NULL,0,erreur_message_msgact}};
extern void CloseNetwindow();
extern int nNetwindows;
extern char *Netwindows[];
/* Send message and get messages for internal use */
void SendMsg(type,msg)
char *type;
char *msg;
{
envoyer_message_parametres_var(ID_GeCI,MSG_POSTER_LISTE_ELMNT,
type,msg,NULL);
}
static void erreur_message_msgact(message)
Message message;
{
cerro("Bad received message!!!");
return;
/* envoyer_message_parametres_var(ID_GeCI, MSG_FIN_APPLI, NULL);
exit(1);*/
}
static void quitter_appli_msgact(message)
Message message;
{
exit(0);
}
static void FinAppli(message)
Message message;
{
int i;
/* If a xmetanet application is ended, put "CLOSED" flag to
corresponding Metanet Window */
for (i = 0; i < nNetwindows; i++) {
if (strcmp(Netwindows[i],message.tableau[3]) == 0) {
CloseNetwindow(i+1);
return;
}
}
}
void C2F(initcom)(in,out)
int *in,*out;
{
init_messages(tb_messages,*in,*out);
isGeci = 1;
}
|
