![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to instructions_p7.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [local] / rpl / src|
Return to instructions_p7.c CVS log | Up to [local] / rpl / src |
1.1 bertrand 1: /*
2: ================================================================================
1.76 ! bertrand 3: RPL/2 (R) version 4.1.30
1.75 bertrand 4: Copyright (C) 1989-2018 Dr. BERTRAND Joël
1.1 bertrand 5:
6: This file is part of RPL/2.
7:
8: RPL/2 is free software; you can redistribute it and/or modify it
9: under the terms of the CeCILL V2 License as published by the french
10: CEA, CNRS and INRIA.
11:
12: RPL/2 is distributed in the hope that it will be useful, but WITHOUT
13: ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
14: FITNESS FOR A PARTICULAR PURPOSE. See the CeCILL V2 License
15: for more details.
16:
17: You should have received a copy of the CeCILL License
18: along with RPL/2. If not, write to info@cecill.info.
19: ================================================================================
20: */
21:
22:
1.14 bertrand 23: #include "rpl-conv.h"
1.1 bertrand 24:
25:
26: /*
27: ================================================================================
28: Fonction 'protect'
29: ================================================================================
30: Entrées :
31: --------------------------------------------------------------------------------
32: Sorties :
33: --------------------------------------------------------------------------------
34: Effets de bord : néant
35: ================================================================================
36: */
37:
38: void
39: instruction_protect(struct_processus *s_etat_processus)
40: {
41: struct_liste_chainee *l_element_courant;
42:
43: struct_objet *s_objet;
44:
45: (*s_etat_processus).erreur_execution = d_ex;
46:
47: if ((*s_etat_processus).affichage_arguments == 'Y')
48: {
49: printf("\n PROTECT ");
50:
51: if ((*s_etat_processus).langue == 'F')
52: {
53: printf("(verrouille une variable)\n\n");
54: }
55: else
56: {
57: printf("(lock a variable)\n\n");
58: }
59:
60: printf(" 1: %s, %s\n", d_NOM, d_LST);
61:
62: return;
63: }
64: else if ((*s_etat_processus).test_instruction == 'Y')
65: {
66: (*s_etat_processus).nombre_arguments = -1;
67: return;
68: }
69:
70: if (test_cfsf(s_etat_processus, 31) == d_vrai)
71: {
72: if (empilement_pile_last(s_etat_processus, 1) == d_erreur)
73: {
74: return;
75: }
76: }
77:
78: if (depilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
79: &s_objet) == d_erreur)
80: {
81: (*s_etat_processus).erreur_execution = d_ex_manque_argument;
82: return;
83: }
84:
85: if ((*s_objet).type == NOM)
86: {
87: if (recherche_variable(s_etat_processus, ((*((struct_nom *)
88: (*s_objet).objet)).nom)) == d_faux)
89: {
90: liberation(s_etat_processus, s_objet);
91:
92: (*s_etat_processus).erreur_systeme = d_es;
93: (*s_etat_processus).erreur_execution = d_ex_variable_non_definie;
94: return;
95: }
96:
1.24 bertrand 97: (*(*s_etat_processus).pointeur_variable_courante)
98: .variable_verrouillee = d_vrai;
1.1 bertrand 99: }
100: else if ((*s_objet).type == LST)
101: {
102: l_element_courant = (struct_liste_chainee *) (*s_objet).objet;
103:
104: while(l_element_courant != NULL)
105: {
106: if ((*(*l_element_courant).donnee).type != NOM)
107: {
108: liberation(s_etat_processus, s_objet);
109:
110: (*s_etat_processus).erreur_execution = d_ex_nom_invalide;
111: return;
112: }
113:
114: if (recherche_variable(s_etat_processus, (*((struct_nom *)
115: (*(*l_element_courant).donnee).objet)).nom) == d_faux)
116: {
117: liberation(s_etat_processus, s_objet);
118:
119: (*s_etat_processus).erreur_systeme = d_es;
120: (*s_etat_processus).erreur_execution =
121: d_ex_variable_non_definie;
122: return;
123: }
124:
1.24 bertrand 125: (*(*s_etat_processus).pointeur_variable_courante)
126: .variable_verrouillee = d_vrai;
1.1 bertrand 127:
128: l_element_courant = (*l_element_courant).suivant;
129: }
130: }
131: else
132: {
133: liberation(s_etat_processus, s_objet);
134:
135: (*s_etat_processus).erreur_execution = d_ex_erreur_type_argument;
136: return;
137: }
138:
139: liberation(s_etat_processus, s_objet);
140:
141: return;
142: }
143:
144:
145: /*
146: ================================================================================
147: Fonction 'parameter'
148: ================================================================================
149: Entrées :
150: --------------------------------------------------------------------------------
151: Sorties :
152: --------------------------------------------------------------------------------
153: Effets de bord : néant
154: ================================================================================
155: */
156:
157: void
158: instruction_parameter(struct_processus *s_etat_processus)
159: {
160: struct_liste_chainee *l_element_courant;
161:
162: struct_objet *s_objet;
163:
164: (*s_etat_processus).erreur_execution = d_ex;
165:
166: if ((*s_etat_processus).affichage_arguments == 'Y')
167: {
168: printf("\n PARAMETER ");
169:
170: if ((*s_etat_processus).langue == 'F')
171: {
172: printf("(verrouille une variable globale)\n\n");
173: }
174: else
175: {
176: printf("(lock a global variable)\n\n");
177: }
178:
179: printf(" 1: %s, %s\n", d_NOM, d_LST);
180:
181: return;
182: }
183: else if ((*s_etat_processus).test_instruction == 'Y')
184: {
185: (*s_etat_processus).nombre_arguments = -1;
186: return;
187: }
188:
189: if (test_cfsf(s_etat_processus, 31) == d_vrai)
190: {
191: if (empilement_pile_last(s_etat_processus, 1) == d_erreur)
192: {
193: return;
194: }
195: }
196:
197: if (depilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
198: &s_objet) == d_erreur)
199: {
200: (*s_etat_processus).erreur_execution = d_ex_manque_argument;
201: return;
202: }
203:
204: if ((*s_objet).type == NOM)
205: {
1.24 bertrand 206: if (recherche_variable_globale(s_etat_processus, ((*((struct_nom *)
1.1 bertrand 207: (*s_objet).objet)).nom)) == d_faux)
208: {
209: liberation(s_etat_processus, s_objet);
210:
211: (*s_etat_processus).erreur_systeme = d_es;
212: (*s_etat_processus).erreur_execution = d_ex_variable_non_definie;
213: return;
214: }
215:
1.24 bertrand 216: (*(*s_etat_processus).pointeur_variable_courante)
217: .variable_verrouillee = d_vrai;
1.1 bertrand 218: }
219: else if ((*s_objet).type == LST)
220: {
221: l_element_courant = (struct_liste_chainee *) (*s_objet).objet;
222:
223: while(l_element_courant != NULL)
224: {
225: if ((*(*l_element_courant).donnee).type != NOM)
226: {
227: liberation(s_etat_processus, s_objet);
228:
229: (*s_etat_processus).erreur_execution = d_ex_nom_invalide;
230: return;
231: }
232:
1.24 bertrand 233: if (recherche_variable_globale(s_etat_processus, (*((struct_nom *)
1.1 bertrand 234: (*(*l_element_courant).donnee).objet)).nom) == d_faux)
235: {
236: liberation(s_etat_processus, s_objet);
237:
238: (*s_etat_processus).erreur_systeme = d_es;
239: (*s_etat_processus).erreur_execution =
240: d_ex_variable_non_definie;
241: return;
242: }
243:
1.24 bertrand 244: (*(*s_etat_processus).pointeur_variable_courante)
245: .variable_verrouillee = d_vrai;
1.1 bertrand 246:
247: l_element_courant = (*l_element_courant).suivant;
248: }
249: }
250: else
251: {
252: liberation(s_etat_processus, s_objet);
253:
254: (*s_etat_processus).erreur_execution = d_ex_erreur_type_argument;
255: return;
256: }
257:
258: liberation(s_etat_processus, s_objet);
259:
260: return;
261: }
262:
263:
264: /*
265: ================================================================================
266: Fonction 'pshcntxt'
267: ================================================================================
268: Entrées :
269: --------------------------------------------------------------------------------
270: Sorties :
271: --------------------------------------------------------------------------------
272: Effets de bord : néant
273: ================================================================================
274: */
275:
276: void
277: instruction_pshcntxt(struct_processus *s_etat_processus)
278: {
279: struct_objet *s_objet;
280:
281: (*s_etat_processus).erreur_execution = d_ex;
282:
283: if ((*s_etat_processus).affichage_arguments == 'Y')
284: {
285: printf("\n PSHCNTXT ");
286:
287: if ((*s_etat_processus).langue == 'F')
288: {
289: printf("(sauvegarde de contexte)\n\n");
290: printf(" Aucun argument\n");
291: }
292: else
293: {
294: printf("(pushes context)\n\n");
295: printf(" No argument\n");
296: }
297:
298: return;
299: }
300: else if ((*s_etat_processus).test_instruction == 'Y')
301: {
302: (*s_etat_processus).nombre_arguments = -1;
303: return;
304: }
305:
306: if (test_cfsf(s_etat_processus, 31) == d_vrai)
307: {
308: if (empilement_pile_last(s_etat_processus, 0) == d_erreur)
309: {
310: return;
311: }
312: }
313:
314: if ((s_objet = allocation(s_etat_processus, LST)) == NULL)
315: {
316: (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
317: return;
318: }
319:
320: (*s_objet).objet = (*s_etat_processus).l_base_pile;
321:
322: if (empilement(s_etat_processus, &((*s_etat_processus).
323: l_base_pile_contextes), s_objet) == d_erreur)
324: {
325: return;
326: }
327:
328: if ((s_objet = allocation(s_etat_processus, INT)) == NULL)
329: {
330: (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
331: return;
332: }
333:
334: (*((integer8 *) (*s_objet).objet)) = (*s_etat_processus)
335: .hauteur_pile_operationnelle;
336:
337: if (empilement(s_etat_processus, &((*s_etat_processus)
338: .l_base_pile_taille_contextes), s_objet) == d_erreur)
339: {
340: return;
341: }
342:
343: /*
344: * Vidage de la pile opérationnelle
345: */
346:
347: (*s_etat_processus).l_base_pile = NULL;
348: (*s_etat_processus).hauteur_pile_operationnelle = 0;
349:
350: return;
351: }
352:
353:
354: /*
355: ================================================================================
356: Fonction 'pulcntxt'
357: ================================================================================
358: Entrées :
359: --------------------------------------------------------------------------------
360: Sorties :
361: --------------------------------------------------------------------------------
362: Effets de bord : néant
363: ================================================================================
364: */
365:
366: void
367: instruction_pulcntxt(struct_processus *s_etat_processus)
368: {
369: struct_objet *s_objet;
370:
371: (*s_etat_processus).erreur_execution = d_ex;
372:
373: if ((*s_etat_processus).affichage_arguments == 'Y')
374: {
375: printf("\n PULCNTXT ");
376:
377: if ((*s_etat_processus).langue == 'F')
378: {
379: printf("(restauration de contexte)\n\n");
380: printf(" Aucun argument\n");
381: }
382: else
383: {
384: printf("(pulls context)\n\n");
385: printf(" No argument\n");
386: }
387:
388: return;
389: }
390: else if ((*s_etat_processus).test_instruction == 'Y')
391: {
392: (*s_etat_processus).nombre_arguments = -1;
393: return;
394: }
395:
396: if (test_cfsf(s_etat_processus, 31) == d_vrai)
397: {
398: if (empilement_pile_last(s_etat_processus, 0) == d_erreur)
399: {
400: return;
401: }
402: }
403:
404: if (((*s_etat_processus).l_base_pile_contextes == NULL) ||
405: ((*s_etat_processus).l_base_pile_taille_contextes == NULL))
406: {
407: (*s_etat_processus).erreur_execution = d_ex_contexte;
408: return;
409: }
410:
411: instruction_clear(s_etat_processus);
412:
413: if (depilement(s_etat_processus, &((*s_etat_processus)
414: .l_base_pile_contextes), &s_objet) == d_erreur)
415: {
416: return;
417: }
418:
419: if ((*s_objet).type != LST)
420: {
421: (*s_etat_processus).erreur_systeme = d_es_contexte;
422: return;
423: }
424:
425: (*s_etat_processus).l_base_pile = (*s_objet).objet;
426:
427: BUG((*s_objet).nombre_occurrences != 1,
428: printf("(*s_objet).nombre_occurrences=%ld\n",
429: (*s_objet).nombre_occurrences));
430: free(s_objet);
431:
432: if (depilement(s_etat_processus, &((*s_etat_processus)
433: .l_base_pile_taille_contextes), &s_objet) == d_erreur)
434: {
435: return;
436: }
437:
438: if ((*s_objet).type != INT)
439: {
440: (*s_etat_processus).erreur_systeme = d_es_contexte;
441: return;
442: }
443:
444: if ((*((integer8 *) (*s_objet).objet)) < 0)
445: {
446: (*s_etat_processus).erreur_systeme = d_es_contexte;
447: return;
448: }
449:
450: (*s_etat_processus).hauteur_pile_operationnelle =
451: (*((integer8 *) (*s_objet).objet));
452: liberation(s_etat_processus, s_objet);
453:
454: return;
455: }
456:
457:
458: /*
459: ================================================================================
460: Fonction 'peek'
461: ================================================================================
462: Entrées :
463: --------------------------------------------------------------------------------
464: Sorties :
465: --------------------------------------------------------------------------------
466: Effets de bord : néant
467: ================================================================================
468: */
469:
470: void
471: instruction_peek(struct_processus *s_etat_processus)
472: {
473: sig_atomic_t registre;
474:
475: struct_objet *s_objet;
476: struct_objet *s_objet_drapeau;
477:
478: (*s_etat_processus).erreur_execution = d_ex;
479:
480: if ((*s_etat_processus).affichage_arguments == 'Y')
481: {
482: printf("\n PEEK ");
483:
484: if ((*s_etat_processus).langue == 'F')
485: {
486: printf("(réception de données d'un processus père)\n\n");
487: }
488: else
489: {
490: printf("(data reception from parent process)\n\n");
491: }
492:
493: printf("-> 1: %s (0)\n\n", d_INT);
494:
495: printf("-> 2: %s, %s, %s, %s, %s, %s,\n"
496: " %s, %s, %s, %s, %s,\n"
497: " %s, %s, %s, %s\n",
498: d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX,
499: d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN);
500: printf(" 1: %s (-1)\n", d_INT);
501:
502: return;
503: }
504: else if ((*s_etat_processus).test_instruction == 'Y')
505: {
506: (*s_etat_processus).nombre_arguments = -1;
507: return;
508: }
509:
510: if (test_cfsf(s_etat_processus, 31) == d_vrai)
511: {
512: if (empilement_pile_last(s_etat_processus, 0) == d_erreur)
513: {
514: return;
515: }
516: }
517:
518: if ((*s_etat_processus).presence_pipes == d_faux)
519: {
520: (*s_etat_processus).erreur_execution =
521: d_ex_absence_processus_pere;
522: return;
523: }
524:
525: if ((s_objet_drapeau = allocation(s_etat_processus, INT)) == NULL)
526: {
527: (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
528: return;
529: }
530:
531: if ((*s_etat_processus).nombre_objets_injectes > 0)
532: {
533: registre = (*s_etat_processus).var_volatile_traitement_retarde_stop;
534: (*s_etat_processus).var_volatile_traitement_retarde_stop = 1;
535:
536: if ((*s_etat_processus).profilage == d_vrai)
537: {
538: profilage(s_etat_processus, "Interprocess or interthread "
539: "communications (PEEK)");
540:
541: if ((*s_etat_processus).erreur_systeme != d_es)
542: {
543: return;
544: }
545: }
546:
547: if ((s_objet = lecture_pipe(s_etat_processus,
548: (*s_etat_processus).pipe_injections)) == NULL)
549: {
550: if (registre == 0)
551: {
552: if ((*s_etat_processus).var_volatile_traitement_retarde_stop
553: == -1)
554: {
555: (*s_etat_processus).var_volatile_requete_arret = -1;
556: }
557:
558: (*s_etat_processus).var_volatile_traitement_retarde_stop
559: = registre;
560: }
561:
562: if ((*s_etat_processus).profilage == d_vrai)
563: {
564: profilage(s_etat_processus, NULL);
565: }
566:
567: return;
568: }
569:
570: if ((*s_etat_processus).profilage == d_vrai)
571: {
572: profilage(s_etat_processus, NULL);
573: }
574:
575: if (registre == 0)
576: {
577: if ((*s_etat_processus).var_volatile_traitement_retarde_stop == -1)
578: {
579: (*s_etat_processus).var_volatile_requete_arret = -1;
580: }
581:
582: (*s_etat_processus).var_volatile_traitement_retarde_stop = registre;
583: }
584:
585: (*s_etat_processus).nombre_objets_injectes--;
586:
587: if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
588: s_objet) == d_erreur)
589: {
590: return;
591: }
592:
593: (*((integer8 *) (*s_objet_drapeau).objet)) = -1;
594: }
595: else
596: {
597: (*((integer8 *) (*s_objet_drapeau).objet)) = 0;
598: }
599:
600: if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
601: s_objet_drapeau) == d_erreur)
602: {
603: return;
604: }
605:
606: return;
607: }
608:
609:
610: /*
611: ================================================================================
612: Fonction 'poke'
613: ================================================================================
614: Entrées :
615: --------------------------------------------------------------------------------
616: Sorties :
617: --------------------------------------------------------------------------------
618: Effets de bord : néant
619: ================================================================================
620: */
621:
622: void
623: instruction_poke(struct_processus *s_etat_processus)
624: {
625: sig_atomic_t registre_stop;
626:
627: ssize_t longueur_ecriture;
628:
629: struct sigaction action;
630: struct sigaction registre;
631:
632: struct_liste_chainee *l_element_courant;
633:
634: struct_objet *s_objet_argument_1;
635: struct_objet *s_objet_argument_2;
636:
637: (*s_etat_processus).erreur_execution = d_ex;
638:
639: if ((*s_etat_processus).affichage_arguments == 'Y')
640: {
641: printf("\n POKE ");
642:
643: if ((*s_etat_processus).langue == 'F')
644: {
645: printf("(envoi d'une donnée à un processus fils)\n\n");
646: }
647: else
648: {
649: printf("(send data to child process)\n\n");
650: }
651:
652: printf(" 2: %s, %s, %s, %s, %s, %s,\n"
653: " %s, %s, %s, %s, %s,\n"
654: " %s, %s, %s, %s, %s\n",
655: d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX,
656: d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_TAB);
657: printf(" 1: %s\n", d_PRC);
658:
659: return;
660: }
661: else if ((*s_etat_processus).test_instruction == 'Y')
662: {
663: (*s_etat_processus).nombre_arguments = -1;
664: return;
665: }
666:
667: if (test_cfsf(s_etat_processus, 31) == d_vrai)
668: {
669: if (empilement_pile_last(s_etat_processus, 2) == d_erreur)
670: {
671: return;
672: }
673: }
674:
675: if (depilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
676: &s_objet_argument_1) == d_erreur)
677: {
678: (*s_etat_processus).erreur_execution = d_ex_manque_argument;
679: return;
680: }
681:
682: if (depilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
683: &s_objet_argument_2) == d_erreur)
684: {
685: liberation(s_etat_processus, s_objet_argument_1);
686:
687: (*s_etat_processus).erreur_execution = d_ex_manque_argument;
688: return;
689: }
690:
691: if ((*s_objet_argument_1).type == PRC)
692: {
693: /*
694: * Vérification du type de la donnée transmise
695: */
696:
697: if (((*s_objet_argument_2).type != INT) &&
698: ((*s_objet_argument_2).type != REL) &&
699: ((*s_objet_argument_2).type != CPL) &&
700: ((*s_objet_argument_2).type != VIN) &&
701: ((*s_objet_argument_2).type != VRL) &&
702: ((*s_objet_argument_2).type != VCX) &&
703: ((*s_objet_argument_2).type != MIN) &&
704: ((*s_objet_argument_2).type != MRL) &&
705: ((*s_objet_argument_2).type != MCX) &&
706: ((*s_objet_argument_2).type != BIN) &&
707: ((*s_objet_argument_2).type != NOM) &&
708: ((*s_objet_argument_2).type != CHN) &&
709: ((*s_objet_argument_2).type != LST) &&
710: ((*s_objet_argument_2).type != ALG) &&
711: ((*s_objet_argument_2).type != RPN) &&
712: ((*s_objet_argument_2).type != TBL))
713: {
714: liberation(s_etat_processus, s_objet_argument_1);
715: liberation(s_etat_processus, s_objet_argument_2);
716:
717: (*s_etat_processus).erreur_execution = d_ex_erreur_type_argument;
718: return;
719: }
720:
1.55 bertrand 721: if (pthread_mutex_lock(&((*s_etat_processus).mutex_pile_processus))
722: != 0)
1.1 bertrand 723: {
724: (*s_etat_processus).erreur_systeme = d_es_processus;
725: return;
726: }
727:
728: l_element_courant = (struct_liste_chainee *)
729: (*s_etat_processus).l_base_pile_processus;
730:
731: while(l_element_courant != NULL)
732: {
733: if ((*(*((struct_processus_fils *) (*s_objet_argument_1).objet))
734: .thread).processus_detache == d_vrai)
735: {
736: if ((*(*((struct_processus_fils *) (*(*l_element_courant)
737: .donnee).objet)).thread).processus_detache == d_faux)
738: {
739: l_element_courant = (*l_element_courant).suivant;
740: continue;
741: }
742:
743: if ((*(*((struct_processus_fils *) (*s_objet_argument_1).objet))
744: .thread).pid == (*(*((struct_processus_fils *)
745: (*(*l_element_courant).donnee).objet)).thread).pid)
746: {
747: // Envoi des données
748: // Attention : si le processus n'existe plus, il n'y a plus
749: // de lecteur et on peut se prendre un SIGPIPE dans la
750: // figure !
751:
752: action.sa_handler = SIG_IGN;
753: action.sa_flags = SA_ONSTACK;
754:
755: if (sigaction(SIGPIPE, &action, ®istre) != 0)
756: {
1.55 bertrand 757: pthread_mutex_unlock(&((*s_etat_processus)
758: .mutex_pile_processus));
1.1 bertrand 759:
760: (*s_etat_processus).erreur_systeme = d_es_signal;
761: return;
762: }
763:
764: // Validation des données. On envoie un signal pour
765: // débloquer les instructions de type WF* pour les
766: // lectures bloquantes.
767:
1.34 bertrand 768: if (envoi_signal_processus((*(*((struct_processus_fils *)
1.1 bertrand 769: (*(*l_element_courant).donnee).objet))
1.70 bertrand 770: .thread).pid, rpl_siginject, d_faux) != 0)
1.1 bertrand 771: {
772: // Le processus fils peut s'être terminé.
773: break;
774: }
775:
776: registre_stop = (*s_etat_processus)
777: .var_volatile_traitement_retarde_stop;
778: (*s_etat_processus).var_volatile_traitement_retarde_stop
779: = 1;
780:
781: if ((*s_etat_processus).profilage == d_vrai)
782: {
783: profilage(s_etat_processus,
784: "Interprocess communications (POKE)");
785:
786: if ((*s_etat_processus).erreur_systeme != d_es)
787: {
1.55 bertrand 788: pthread_mutex_unlock(&((*s_etat_processus)
789: .mutex_pile_processus));
1.1 bertrand 790: return;
791: }
792: }
793:
1.38 bertrand 794: # ifndef SEMAPHORES_NOMMES
795: if (sem_post(&((*s_etat_processus).semaphore_fork))
796: != 0)
797: # else
798: if (sem_post((*s_etat_processus).semaphore_fork) != 0)
799: # endif
1.1 bertrand 800: {
801: (*s_etat_processus).erreur_systeme = d_es_processus;
802: return;
803: }
804:
805: while((longueur_ecriture = write_atomic(s_etat_processus,
806: (*(*((struct_processus_fils *)
807: (*(*l_element_courant).donnee).objet)).thread)
808: .pipe_nombre_injections[1], "-",
809: sizeof(unsigned char))) != sizeof(unsigned char))
810: {
1.38 bertrand 811: # ifndef SEMAPHORES_NOMMES
812: while(sem_wait(
813: &((*s_etat_processus).semaphore_fork)) != 0)
814: # else
815: while(sem_wait(
816: (*s_etat_processus).semaphore_fork) != 0)
817: # endif
1.1 bertrand 818: {
1.37 bertrand 819: if (errno != EINTR)
820: {
821: (*s_etat_processus).erreur_systeme =
822: d_es_processus;
823: return;
824: }
1.1 bertrand 825: }
826:
827: if (longueur_ecriture == -1)
828: {
1.55 bertrand 829: pthread_mutex_unlock(&((*s_etat_processus)
830: .mutex_pile_processus));
1.1 bertrand 831:
832: liberation(s_etat_processus, s_objet_argument_1);
833: liberation(s_etat_processus, s_objet_argument_2);
834:
835: if (registre_stop == 0)
836: {
837: if ((*s_etat_processus)
838: .var_volatile_traitement_retarde_stop
839: == -1)
840: {
841: (*s_etat_processus)
842: .var_volatile_requete_arret = -1;
843: }
844:
845: (*s_etat_processus)
846: .var_volatile_traitement_retarde_stop
847: = registre_stop;
848: }
849:
850: if ((*s_etat_processus).profilage == d_vrai)
851: {
852: profilage(s_etat_processus, NULL);
853: }
854:
855: if (sigaction(SIGPIPE, ®istre, NULL) != 0)
856: {
857: (*s_etat_processus).erreur_systeme =
858: d_es_signal;
859: return;
860: }
861:
862: return;
863: }
864:
1.38 bertrand 865: # ifndef SEMAPHORES_NOMMES
866: if (sem_post(
867: &((*s_etat_processus).semaphore_fork)) != 0)
868: # else
869: if (sem_post(
870: (*s_etat_processus).semaphore_fork) != 0)
871: # endif
1.1 bertrand 872: {
873: (*s_etat_processus).erreur_systeme = d_es_processus;
874: return;
875: }
876: }
877:
878: if (ecriture_pipe(s_etat_processus,
879: (*(*((struct_processus_fils *)
880: (*(*l_element_courant).donnee).objet)).thread)
881: .pipe_injections[1], s_objet_argument_2)
882: == d_erreur)
883: {
884: // Le processus fils peut s'être terminé.
885:
886: if ((*s_etat_processus).erreur_systeme != d_es)
887: {
888: (*s_etat_processus).erreur_systeme = d_es;
889: }
890: }
891:
1.38 bertrand 892: # ifndef SEMAPHORES_NOMMES
893: while(sem_wait(&((*s_etat_processus).semaphore_fork))
894: != 0)
895: # else
896: while(sem_wait((*s_etat_processus).semaphore_fork) != 0)
897: # endif
1.1 bertrand 898: {
1.37 bertrand 899: if (errno != EINTR)
900: {
901: (*s_etat_processus).erreur_systeme = d_es_processus;
902: return;
903: }
1.1 bertrand 904: }
905:
906: if (registre_stop == 0)
907: {
908: if ((*s_etat_processus)
909: .var_volatile_traitement_retarde_stop
910: == -1)
911: {
912: (*s_etat_processus).var_volatile_requete_arret = -1;
913: }
914:
915: (*s_etat_processus).var_volatile_traitement_retarde_stop
916: = registre_stop;
917: }
918:
919: if ((*s_etat_processus).profilage == d_vrai)
920: {
921: profilage(s_etat_processus, NULL);
922: }
923:
924: if (sigaction(SIGPIPE, ®istre, NULL) != 0)
925: {
1.55 bertrand 926: pthread_mutex_unlock(&((*s_etat_processus)
927: .mutex_pile_processus));
1.1 bertrand 928:
929: (*s_etat_processus).erreur_systeme = d_es_signal;
930: return;
931: }
932:
933: break;
934: }
935: }
936: else
937: {
938: if ((*(*((struct_processus_fils *) (*(*l_element_courant)
939: .donnee).objet)).thread).processus_detache == d_vrai)
940: {
941: l_element_courant = (*l_element_courant).suivant;
942: continue;
943: }
944:
945: if (((pthread_equal((*(*((struct_processus_fils *)
946: (*s_objet_argument_1).objet)).thread).tid,
947: (*(*((struct_processus_fils *)
948: (*(*l_element_courant).donnee).objet)).thread).tid)
949: != 0)) && ((*(*((struct_processus_fils *)
950: (*s_objet_argument_1).objet)).thread).pid ==
951: (*(*((struct_processus_fils *)
952: (*(*l_element_courant).donnee).objet)).thread).pid))
953: {
954: // Envoi des données
955: // Attention : si le processus n'existe plus, il n'y a plus
956: // de lecteur et on peut se prendre un SIGPIPE dans la
957: // figure !
958:
959: action.sa_handler = SIG_IGN;
960: action.sa_flags = SA_ONSTACK;
961:
962: if (sigaction(SIGPIPE, &action, ®istre) != 0)
963: {
1.55 bertrand 964: pthread_mutex_unlock(&((*s_etat_processus)
965: .mutex_pile_processus));
1.1 bertrand 966:
967: (*s_etat_processus).erreur_systeme = d_es_signal;
968: return;
969: }
970:
971: // Validation des données. On envoie un signal pour
972: // débloquer les instructions de type WF* pour les
973: // lectures bloquantes.
974:
975: if (pthread_mutex_lock(&((*(*((struct_processus_fils *)
976: (*(*l_element_courant).donnee).objet)).thread)
977: .mutex)) != 0)
978: {
979: (*s_etat_processus).erreur_systeme = d_es_processus;
980: return;
981: }
982:
983: if ((*(*((struct_processus_fils *)
984: (*(*l_element_courant).donnee).objet)).thread)
985: .thread_actif == d_vrai)
986: {
1.34 bertrand 987: if (envoi_signal_thread((*(*((struct_processus_fils *)
1.1 bertrand 988: (*(*l_element_courant).donnee).objet)).thread)
1.34 bertrand 989: .tid, rpl_siginject) != 0)
1.1 bertrand 990: {
991: // Le processus fils peut s'être terminé.
992:
993: if (pthread_mutex_unlock(
994: &((*(*((struct_processus_fils *)
995: (*(*l_element_courant).donnee).objet))
996: .thread).mutex)) != 0)
997: {
998: (*s_etat_processus).erreur_systeme =
999: d_es_processus;
1000: return;
1001: }
1002:
1003: break;
1004: }
1005: }
1006: else
1007: {
1008: if (pthread_mutex_unlock(
1009: &((*(*((struct_processus_fils *)
1010: (*(*l_element_courant).donnee).objet))
1011: .thread).mutex)) != 0)
1012: {
1013: (*s_etat_processus).erreur_systeme = d_es_processus;
1014: return;
1015: }
1016:
1017: break;
1018: }
1019:
1020: if (pthread_mutex_unlock(&((*(*((struct_processus_fils *)
1021: (*(*l_element_courant).donnee).objet)).thread)
1022: .mutex)) != 0)
1023: {
1024: (*s_etat_processus).erreur_systeme = d_es_processus;
1025: return;
1026: }
1027:
1028: registre_stop = (*s_etat_processus)
1029: .var_volatile_traitement_retarde_stop;
1030: (*s_etat_processus).var_volatile_traitement_retarde_stop
1031: = 1;
1032:
1033: if ((*s_etat_processus).profilage == d_vrai)
1034: {
1035: profilage(s_etat_processus,
1036: "Interthread communications (POKE)");
1037:
1038: if ((*s_etat_processus).erreur_systeme != d_es)
1039: {
1.55 bertrand 1040: pthread_mutex_unlock(&((*s_etat_processus)
1041: .mutex_pile_processus));
1.1 bertrand 1042: return;
1043: }
1044: }
1045:
1.38 bertrand 1046: # ifndef SEMAPHORES_NOMMES
1047: if (sem_post(
1048: &((*s_etat_processus).semaphore_fork)) != 0)
1049: # else
1050: if (sem_post(
1051: (*s_etat_processus).semaphore_fork) != 0)
1052: # endif
1.1 bertrand 1053: {
1054: (*s_etat_processus).erreur_systeme = d_es_processus;
1055: return;
1056: }
1057:
1058: while((longueur_ecriture = write_atomic(s_etat_processus,
1059: (*(*((struct_processus_fils *)
1060: (*(*l_element_courant).donnee).objet)).thread)
1061: .pipe_nombre_injections[1], "-",
1062: sizeof(unsigned char))) != sizeof(unsigned char))
1063: {
1.38 bertrand 1064: # ifndef SEMAPHORES_NOMMES
1065: while(sem_wait(
1066: &((*s_etat_processus).semaphore_fork)) != 0)
1067: # else
1068: while(sem_wait(
1069: (*s_etat_processus).semaphore_fork) != 0)
1070: # endif
1.1 bertrand 1071: {
1.37 bertrand 1072: if (errno != EINTR)
1073: {
1074: (*s_etat_processus).erreur_systeme =
1075: d_es_processus;
1076: return;
1077: }
1.1 bertrand 1078: }
1079:
1080: if (longueur_ecriture == -1)
1081: {
1.55 bertrand 1082: pthread_mutex_unlock(&((*s_etat_processus)
1083: .mutex_pile_processus));
1.1 bertrand 1084:
1085: liberation(s_etat_processus, s_objet_argument_1);
1086: liberation(s_etat_processus, s_objet_argument_2);
1087:
1088: if (registre_stop == 0)
1089: {
1090: if ((*s_etat_processus)
1091: .var_volatile_traitement_retarde_stop
1092: == -1)
1093: {
1094: (*s_etat_processus)
1095: .var_volatile_requete_arret = -1;
1096: }
1097:
1098: (*s_etat_processus)
1099: .var_volatile_traitement_retarde_stop
1100: = registre_stop;
1101: }
1102:
1103: if ((*s_etat_processus).profilage == d_vrai)
1104: {
1105: profilage(s_etat_processus, NULL);
1106: }
1107:
1108: if (sigaction(SIGPIPE, ®istre, NULL) != 0)
1109: {
1110: (*s_etat_processus).erreur_systeme =
1111: d_es_signal;
1112: return;
1113: }
1114:
1115: return;
1116: }
1117:
1.38 bertrand 1118: # ifndef SEMAPHORES_NOMMES
1119: if (sem_post(
1120: &((*s_etat_processus).semaphore_fork)) != 0)
1121: # else
1122: if (sem_post(
1123: (*s_etat_processus).semaphore_fork) != 0)
1124: # endif
1.1 bertrand 1125: {
1126: (*s_etat_processus).erreur_systeme = d_es_processus;
1127: return;
1128: }
1129: }
1130:
1131: if (ecriture_pipe(s_etat_processus,
1132: (*(*((struct_processus_fils *)
1133: (*(*l_element_courant).donnee).objet)).thread)
1134: .pipe_injections[1], s_objet_argument_2)
1135: == d_erreur)
1136: {
1137: // Le processus fils peut s'être terminé.
1138:
1139: if ((*s_etat_processus).erreur_systeme != d_es)
1140: {
1141: (*s_etat_processus).erreur_systeme = d_es;
1142: }
1143: }
1144:
1.38 bertrand 1145: # ifndef SEMAPHORES_NOMMES
1146: while(sem_wait(
1147: &((*s_etat_processus).semaphore_fork)) != 0)
1148: # else
1149: while(sem_wait(
1150: (*s_etat_processus).semaphore_fork) != 0)
1151: # endif
1.1 bertrand 1152: {
1.37 bertrand 1153: if (errno != EINTR)
1154: {
1155: (*s_etat_processus).erreur_systeme = d_es_processus;
1156: return;
1157: }
1.1 bertrand 1158: }
1159:
1160: if (registre_stop == 0)
1161: {
1162: if ((*s_etat_processus)
1163: .var_volatile_traitement_retarde_stop
1164: == -1)
1165: {
1166: (*s_etat_processus).var_volatile_requete_arret = -1;
1167: }
1168:
1169: (*s_etat_processus).var_volatile_traitement_retarde_stop
1170: = registre_stop;
1171: }
1172:
1173: if ((*s_etat_processus).profilage == d_vrai)
1174: {
1175: profilage(s_etat_processus, NULL);
1176: }
1177:
1178: if (sigaction(SIGPIPE, ®istre, NULL) != 0)
1179: {
1.55 bertrand 1180: pthread_mutex_unlock(&((*s_etat_processus)
1181: .mutex_pile_processus));
1.1 bertrand 1182:
1183: (*s_etat_processus).erreur_systeme = d_es_signal;
1184: return;
1185: }
1186:
1187: break;
1188: }
1189: }
1190:
1191: l_element_courant = (*l_element_courant).suivant;
1192: }
1193:
1.55 bertrand 1194: if (pthread_mutex_unlock(&((*s_etat_processus).mutex_pile_processus))
1195: != 0)
1.1 bertrand 1196: {
1197: (*s_etat_processus).erreur_systeme = d_es_processus;
1198: return;
1199: }
1200:
1201: if (l_element_courant == NULL)
1202: {
1203: liberation(s_etat_processus, s_objet_argument_1);
1204: liberation(s_etat_processus, s_objet_argument_2);
1205:
1206: (*s_etat_processus).erreur_execution = d_ex_processus;
1207: return;
1208: }
1209: }
1210: else
1211: {
1212: liberation(s_etat_processus, s_objet_argument_1);
1213: liberation(s_etat_processus, s_objet_argument_2);
1214:
1215: (*s_etat_processus).erreur_execution = d_ex_erreur_type_argument;
1216: return;
1217: }
1218:
1219: liberation(s_etat_processus, s_objet_argument_1);
1220: liberation(s_etat_processus, s_objet_argument_2);
1221:
1222: return;
1223: }
1224:
1225:
1226: /*
1227: ================================================================================
1228: Fonction 'private'
1229: ================================================================================
1230: Entrées :
1231: --------------------------------------------------------------------------------
1232: Sorties :
1233: --------------------------------------------------------------------------------
1234: Effets de bord : néant
1235: ================================================================================
1236: */
1237:
1238: void
1239: instruction_private(struct_processus *s_etat_processus)
1240: {
1241: struct_liste_chainee *l_element_courant;
1242:
1243: struct_objet *s_objet;
1244:
1245: (*s_etat_processus).erreur_execution = d_ex;
1246:
1247: if ((*s_etat_processus).affichage_arguments == 'Y')
1248: {
1249: printf("\n PRIVATE ");
1250:
1251: if ((*s_etat_processus).langue == 'F')
1252: {
1253: printf("(rend privée une variable partagée)\n\n");
1254: }
1255: else
1256: {
1257: printf("(switch a shared variable to private one)\n\n");
1258: }
1259:
1260: printf(" 1: %s, %s\n", d_NOM, d_LST);
1261:
1262: return;
1263: }
1264: else if ((*s_etat_processus).test_instruction == 'Y')
1265: {
1266: (*s_etat_processus).nombre_arguments = -1;
1267: return;
1268: }
1269:
1270: if (test_cfsf(s_etat_processus, 31) == d_vrai)
1271: {
1272: if (empilement_pile_last(s_etat_processus, 1) == d_erreur)
1273: {
1274: return;
1275: }
1276: }
1277:
1278: if (depilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
1279: &s_objet) == d_erreur)
1280: {
1281: (*s_etat_processus).erreur_execution = d_ex_manque_argument;
1282: return;
1283: }
1284:
1285: if ((*s_objet).type == NOM)
1286: {
1287: if (recherche_variable(s_etat_processus, ((*((struct_nom *)
1288: (*s_objet).objet)).nom)) == d_faux)
1289: {
1290: liberation(s_etat_processus, s_objet);
1291:
1292: (*s_etat_processus).erreur_systeme = d_es;
1293: (*s_etat_processus).erreur_execution = d_ex_variable_non_definie;
1294: return;
1295: }
1296:
1297: if (recherche_variable_partagee(s_etat_processus, ((*((struct_nom *)
1.24 bertrand 1298: (*s_objet).objet)).nom), (*(*s_etat_processus)
1299: .pointeur_variable_courante).variable_partagee,
1300: (*(*s_etat_processus).pointeur_variable_courante).origine)
1.49 bertrand 1301: == NULL)
1.1 bertrand 1302: {
1303: liberation(s_etat_processus, s_objet);
1304:
1305: (*s_etat_processus).erreur_systeme = d_es;
1306: return;
1307: }
1308:
1.24 bertrand 1309: (*(*s_etat_processus).pointeur_variable_courante).objet =
1.48 bertrand 1310: (*(*s_etat_processus).pointeur_variable_partagee_courante)
1311: .objet;
1312: (*(*s_etat_processus).pointeur_variable_partagee_courante).objet = NULL;
1.1 bertrand 1313:
1314: if (retrait_variable_partagee(s_etat_processus,
1315: (*((struct_nom *) (*s_objet).objet)).nom,
1.24 bertrand 1316: (*(*s_etat_processus).pointeur_variable_courante)
1317: .variable_partagee) == d_erreur)
1.1 bertrand 1318: {
1319: liberation(s_etat_processus, s_objet);
1320: return;
1321: }
1322:
1.24 bertrand 1323: if ((*(*s_etat_processus).pointeur_variable_courante).origine == 'P')
1.1 bertrand 1324: {
1.24 bertrand 1325: (*(*s_etat_processus).pointeur_variable_courante)
1326: .variable_partagee.adresse = 0;
1.1 bertrand 1327: }
1328: else
1329: {
1.24 bertrand 1330: (*(*s_etat_processus).pointeur_variable_courante)
1331: .variable_partagee.pointeur = NULL;
1.1 bertrand 1332: }
1333: }
1334: else if ((*s_objet).type == LST)
1335: {
1336: l_element_courant = (struct_liste_chainee *) (*s_objet).objet;
1337:
1338: while(l_element_courant != NULL)
1339: {
1340: if ((*(*l_element_courant).donnee).type != NOM)
1341: {
1342: liberation(s_etat_processus, s_objet);
1343:
1344: (*s_etat_processus).erreur_execution = d_ex_nom_invalide;
1345: return;
1346: }
1347:
1348: if (recherche_variable(s_etat_processus, ((*((struct_nom *)
1349: (*s_objet).objet)).nom)) == d_faux)
1350: {
1351: liberation(s_etat_processus, s_objet);
1352:
1353: (*s_etat_processus).erreur_systeme = d_es;
1354: (*s_etat_processus).erreur_execution =
1355: d_ex_variable_non_definie;
1356: return;
1357: }
1358:
1359: if (recherche_variable_partagee(s_etat_processus, ((*((struct_nom *)
1.24 bertrand 1360: (*s_objet).objet)).nom), (*(*s_etat_processus)
1361: .pointeur_variable_courante).variable_partagee,
1362: (*(*s_etat_processus).pointeur_variable_courante).origine)
1.49 bertrand 1363: == NULL)
1.1 bertrand 1364: {
1365: liberation(s_etat_processus, s_objet);
1366:
1367: (*s_etat_processus).erreur_systeme = d_es;
1368: (*s_etat_processus).erreur_execution =
1369: d_ex_variable_non_definie;
1370: return;
1371: }
1372:
1.24 bertrand 1373: (*(*s_etat_processus).pointeur_variable_courante).objet =
1.48 bertrand 1374: (*(*s_etat_processus).pointeur_variable_partagee_courante)
1375: .objet;
1376: (*(*s_etat_processus).pointeur_variable_partagee_courante).objet
1377: = NULL;
1.1 bertrand 1378:
1.24 bertrand 1379: if ((*(*s_etat_processus).pointeur_variable_courante).origine
1380: == 'P')
1.1 bertrand 1381: {
1.24 bertrand 1382: (*(*s_etat_processus).pointeur_variable_courante)
1383: .variable_partagee.adresse = 0;
1.1 bertrand 1384: }
1385: else
1386: {
1.24 bertrand 1387: (*(*s_etat_processus).pointeur_variable_courante)
1388: .variable_partagee.pointeur = NULL;
1.1 bertrand 1389: }
1390:
1391: if (retrait_variable_partagee(s_etat_processus,
1392: (*((struct_nom *) (*s_objet).objet)).nom,
1.24 bertrand 1393: (*(*s_etat_processus).pointeur_variable_courante)
1394: .variable_statique) == d_erreur)
1.1 bertrand 1395: {
1396: liberation(s_etat_processus, s_objet);
1397: return;
1398: }
1399:
1400: l_element_courant = (*l_element_courant).suivant;
1401: }
1402: }
1403: else
1404: {
1405: liberation(s_etat_processus, s_objet);
1406:
1407: (*s_etat_processus).erreur_execution = d_ex_erreur_type_argument;
1408: return;
1409: }
1410:
1411: liberation(s_etat_processus, s_objet);
1412:
1413: return;
1414: }
1415:
1416:
1417: /*
1418: ================================================================================
1419: Fonction 'pshprfl'
1420: ================================================================================
1421: Entrées : pointeur sur une structure struct_processus
1422: --------------------------------------------------------------------------------
1423: Sorties :
1424: --------------------------------------------------------------------------------
1425: Effets de bord : néant
1426: ================================================================================
1427: */
1428:
1429: void
1430: instruction_pshprfl(struct_processus *s_etat_processus)
1431: {
1432: struct_objet *s_objet_argument;
1433:
1434: (*s_etat_processus).erreur_execution = d_ex;
1435:
1436: if ((*s_etat_processus).affichage_arguments == 'Y')
1437: {
1438: printf("\n PSHPRFL ");
1439:
1440: if ((*s_etat_processus).langue == 'F')
1441: {
1442: printf("(empilement d'un point de profilage)\n\n");
1443: }
1444: else
1445: {
1446: printf("(push profile data)\n\n");
1447: }
1448:
1449: printf(" 1: %s\n", d_CHN);
1450:
1451: return;
1452: }
1453: else if ((*s_etat_processus).test_instruction == 'Y')
1454: {
1455: (*s_etat_processus).nombre_arguments = -1;
1456: return;
1457: }
1458:
1459: if (test_cfsf(s_etat_processus, 31) == d_vrai)
1460: {
1461: if (empilement_pile_last(s_etat_processus, 1) == d_erreur)
1462: {
1463: return;
1464: }
1465: }
1466:
1467: if (depilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
1468: &s_objet_argument) == d_erreur)
1469: {
1470: (*s_etat_processus).erreur_execution = d_ex_manque_argument;
1471: return;
1472: }
1473:
1474: if ((*s_objet_argument).type == CHN)
1475: {
1476: if ((*s_etat_processus).profilage == d_vrai)
1477: {
1478: profilage(s_etat_processus, (unsigned char *)
1479: (*s_objet_argument).objet);
1480: }
1481: }
1482: else
1483: {
1484: liberation(s_etat_processus, s_objet_argument);
1485:
1486: (*s_etat_processus).erreur_execution = d_ex_erreur_type_argument;
1487: return;
1488: }
1489:
1490: liberation(s_etat_processus, s_objet_argument);
1491:
1492: return;
1493: }
1494:
1495:
1496: /*
1497: ================================================================================
1498: Fonction 'pulprfl'
1499: ================================================================================
1500: Entrées : pointeur sur une structure struct_processus
1501: --------------------------------------------------------------------------------
1502: Sorties :
1503: --------------------------------------------------------------------------------
1504: Effets de bord : néant
1505: ================================================================================
1506: */
1507:
1508: void
1509: instruction_pulprfl(struct_processus *s_etat_processus)
1510: {
1511: (*s_etat_processus).erreur_execution = d_ex;
1512:
1513: if ((*s_etat_processus).affichage_arguments == 'Y')
1514: {
1515: printf("\n PULPRFL ");
1516:
1517: if ((*s_etat_processus).langue == 'F')
1518: {
1519: printf("(dépilement d'un point de profilage)\n\n");
1520: printf(" Aucun argument\n");
1521: }
1522: else
1523: {
1524: printf("(pull profile data)\n\n");
1525: printf(" No argument\n");
1526: }
1527:
1528: return;
1529: }
1530: else if ((*s_etat_processus).test_instruction == 'Y')
1531: {
1532: (*s_etat_processus).nombre_arguments = -1;
1533: return;
1534: }
1535:
1536: if (test_cfsf(s_etat_processus, 31) == d_vrai)
1537: {
1538: if (empilement_pile_last(s_etat_processus, 0) == d_erreur)
1539: {
1540: return;
1541: }
1542: }
1543:
1544: if ((*s_etat_processus).profilage == d_vrai)
1545: {
1546: profilage(s_etat_processus, NULL);
1547: }
1548:
1549: return;
1550: }
1551:
1552:
1553: /*
1554: ================================================================================
1555: Fonction 'plot'
1556: ================================================================================
1557: Entrées : pointeur sur une structure struct_processus
1558: --------------------------------------------------------------------------------
1559: Sorties :
1560: --------------------------------------------------------------------------------
1561: Effets de bord : néant
1562: ================================================================================
1563: */
1564:
1565: void
1566: instruction_plot(struct_processus *s_etat_processus)
1567: {
1568: (*s_etat_processus).erreur_execution = d_ex;
1569:
1570: if ((*s_etat_processus).affichage_arguments == 'Y')
1571: {
1572: printf("\n PLOT ");
1573:
1574: if ((*s_etat_processus).langue == 'F')
1575: {
1576: printf("(affiche les données graphiques mémorisées)\n\n");
1577: printf(" Aucun argument\n");
1578: }
1579: else
1580: {
1581: printf("(plot buffered graphic)\n\n");
1582: printf(" No argument\n");
1583: }
1584:
1585: return;
1586: }
1587: else if ((*s_etat_processus).test_instruction == 'Y')
1588: {
1589: (*s_etat_processus).nombre_arguments = -1;
1590: return;
1591: }
1592:
1593: if (test_cfsf(s_etat_processus, 31) == d_vrai)
1594: {
1595: if (empilement_pile_last(s_etat_processus, 0) == d_erreur)
1596: {
1597: return;
1598: }
1599: }
1600:
1601: if ((*s_etat_processus).fichiers_graphiques != NULL)
1602: {
1603: appel_gnuplot(s_etat_processus, 'N');
1604: }
1605:
1606: (*s_etat_processus).mise_a_jour_trace_requise = d_faux;
1607:
1608: return;
1609: }
1610:
1.9 bertrand 1611:
1612: /*
1613: ================================================================================
1614: Fonction 'procid'
1615: ================================================================================
1616: Entrées : pointeur sur une structure struct_processus
1617: --------------------------------------------------------------------------------
1618: Sorties :
1619: --------------------------------------------------------------------------------
1620: Effets de bord : néant
1621: ================================================================================
1622: */
1623:
1624: void
1625: instruction_procid(struct_processus *s_etat_processus)
1626: {
1627: pthread_mutexattr_t attributs_mutex;
1628:
1629: struct_objet *s_objet;
1630:
1631: (*s_etat_processus).erreur_execution = d_ex;
1632:
1633: if ((*s_etat_processus).affichage_arguments == 'Y')
1634: {
1635: printf("\n PROCID ");
1636:
1637: if ((*s_etat_processus).langue == 'F')
1638: {
1639: printf("(identifiant du processus)\n\n");
1640: }
1641: else
1642: {
1643: printf("(process identifier)\n\n");
1644: }
1645:
1646: printf("-> 1: %s\n", d_PRC);
1647:
1648: return;
1649: }
1650: else if ((*s_etat_processus).test_instruction == 'Y')
1651: {
1652: (*s_etat_processus).nombre_arguments = -1;
1653: return;
1654: }
1655:
1656: if (test_cfsf(s_etat_processus, 31) == d_vrai)
1657: {
1658: if (empilement_pile_last(s_etat_processus, 0) == d_erreur)
1659: {
1660: return;
1661: }
1662: }
1663:
1664: if ((s_objet = allocation(s_etat_processus, PRC)) == NULL)
1665: {
1666: (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
1667: return;
1668: }
1669:
1670: if (((*((struct_processus_fils *) (*s_objet).objet)).thread =
1671: malloc(sizeof(struct_descripteur_thread))) == NULL)
1672: {
1673: (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
1674: return;
1675: }
1676:
1677: (*(*((struct_processus_fils *) (*s_objet).objet)).thread)
1678: .nombre_references = 1;
1679: (*(*((struct_processus_fils *) (*s_objet).objet)).thread)
1680: .pid = getpid();
1681: (*(*((struct_processus_fils *) (*s_objet).objet)).thread)
1682: .tid = pthread_self();
1683: (*(*((struct_processus_fils *) (*s_objet).objet)).thread)
1684: .processus_detache = (*s_etat_processus).processus_detache;
1.10 bertrand 1685: (*(*((struct_processus_fils *) (*s_objet).objet)).thread)
1686: .argument = NULL;
1.9 bertrand 1687:
1688: pthread_mutexattr_init(&attributs_mutex);
1689: pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_RECURSIVE);
1690: pthread_mutex_init(&((*(*((struct_processus_fils *)
1691: (*s_objet).objet)).thread).mutex), &attributs_mutex);
1692: pthread_mutexattr_destroy(&attributs_mutex);
1693:
1.18 bertrand 1694: pthread_mutexattr_init(&attributs_mutex);
1695: pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_RECURSIVE);
1696: pthread_mutex_init(&((*(*((struct_processus_fils *)
1697: (*s_objet).objet)).thread).mutex_nombre_references),
1698: &attributs_mutex);
1699: pthread_mutexattr_destroy(&attributs_mutex);
1700:
1.9 bertrand 1701: if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
1702: s_objet) == d_erreur)
1703: {
1704: return;
1705: }
1706:
1707: return;
1708: }
1709:
1.1 bertrand 1710: // vim: ts=4