![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to instructions_r4.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_r4.c CVS log | Up to [local] / rpl / src |
1.1 bertrand 1: /*
2: ================================================================================
1.47 bertrand 3: RPL/2 (R) version 4.1.5
1.48 ! bertrand 4: Copyright (C) 1989-2012 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.19 bertrand 23: #include "rpl-conv.h"
1.1 bertrand 24:
25:
26: /*
27: ================================================================================
28: Fonction 'r->b'
29: ================================================================================
30: Entrées : pointeur sur une structure struct_processus
31: --------------------------------------------------------------------------------
32: Sorties :
33: --------------------------------------------------------------------------------
34: Effets de bord : néant
35: ================================================================================
36: */
37:
38: void
39: instruction_r_vers_b(struct_processus *s_etat_processus)
40: {
41: struct_objet *s_objet_argument;
42: struct_objet *s_objet_resultat;
43:
44: (*s_etat_processus).erreur_execution = d_ex;
45:
46: if ((*s_etat_processus).affichage_arguments == 'Y')
47: {
48: printf("\n R->B ");
49:
50: if ((*s_etat_processus).langue == 'F')
51: {
52: printf("(réel vers binaire)\n\n");
53: }
54: else
55: {
56: printf("(real to binary)\n\n");
57: }
58:
59: printf(" 1: %s\n", d_INT);
60: printf("-> 1: %s\n", d_BIN);
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_argument) == d_erreur)
80: {
81: (*s_etat_processus).erreur_execution = d_ex_manque_argument;
82: return;
83: }
84:
85: if ((*s_objet_argument).type == INT)
86: {
87: if ((s_objet_resultat = allocation(s_etat_processus, BIN)) == NULL)
88: {
89: (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
90: return;
91: }
92:
93: if ((*((integer8 *) (*s_objet_argument).objet)) < 0)
94: {
95: (*((logical8 *) (*s_objet_resultat).objet)) = 0;
96: }
97: else
98: {
99: (*((logical8 *) (*s_objet_resultat).objet)) = (*((integer8 *)
100: (*s_objet_argument).objet));
101: }
102: }
103: else
104: {
105: liberation(s_etat_processus, s_objet_argument);
106:
107: (*s_etat_processus).erreur_execution = d_ex_erreur_type_argument;
108: return;
109: }
110:
111: if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
112: s_objet_resultat) == d_erreur)
113: {
114: return;
115: }
116:
117: liberation(s_etat_processus, s_objet_argument);
118: return;
119: }
120:
121:
122: /*
123: ================================================================================
124: Fonction 'rl'
125: ================================================================================
126: Entrées : pointeur sur une structure struct_processus
127: --------------------------------------------------------------------------------
128: Sorties :
129: --------------------------------------------------------------------------------
130: Effets de bord : néant
131: ================================================================================
132: */
133:
134: void
135: instruction_rl(struct_processus *s_etat_processus)
136: {
137: logical8 masque;
138: logical8 tampon;
139:
140: struct_objet *s_copie;
141: struct_objet *s_objet;
142:
143: unsigned long i;
144: unsigned long j;
145: unsigned long longueur;
146:
147: (*s_etat_processus).erreur_execution = d_ex;
148:
149: if ((*s_etat_processus).affichage_arguments == 'Y')
150: {
151: printf("\n RL ");
152:
153: if ((*s_etat_processus).langue == 'F')
154: {
155: printf("(rotation à gauche)\n\n");
156: }
157: else
158: {
159: printf("(rotate left)\n\n");
160: }
161:
162: printf(" 1: %s\n", d_BIN);
163: printf("-> 1: %s\n", d_BIN);
164:
165: return;
166: }
167: else if ((*s_etat_processus).test_instruction == 'Y')
168: {
169: (*s_etat_processus).nombre_arguments = -1;
170: return;
171: }
172:
173: if (test_cfsf(s_etat_processus, 31) == d_vrai)
174: {
175: if (empilement_pile_last(s_etat_processus, 1) == d_erreur)
176: {
177: return;
178: }
179: }
180:
181: if (depilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
182: &s_objet) == d_erreur)
183: {
184: (*s_etat_processus).erreur_execution = d_ex_manque_argument;
185: return;
186: }
187:
188: if ((*s_objet).type == BIN)
189: {
190: if ((s_copie = copie_objet(s_etat_processus, s_objet, 'O')) == NULL)
191: {
192: (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
193: return;
194: }
195:
196: longueur = 1;
197: j = 1;
198:
199: for(i = 37; i <= 42; i++)
200: {
201: longueur += (test_cfsf(s_etat_processus, (unsigned char) i)
202: == d_vrai) ? j : 0;
203: j *= 2;
204: }
205:
206: tampon = (*((logical8 *) (*s_copie).objet));
207: masque = ((logical8) 1) << (longueur - 1);
208:
209: if ((tampon & masque) == 0)
210: {
211: tampon <<= 1;
212: }
213: else
214: {
215: tampon <<= 1;
216: tampon |= (logical8) 1;
217: }
218:
219: for(masque = 0, i = 0; i < longueur; i++)
220: {
221: masque <<= 1;
222: masque |= (logical8) 1;
223: }
224:
225: tampon &= masque;
226: (*((logical8 *) (*s_copie).objet)) = tampon;
227:
228: if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
229: s_copie) == d_erreur)
230: {
231: return;
232: }
233: }
234: else
235: {
236: liberation(s_etat_processus, s_objet);
237:
238: (*s_etat_processus).erreur_execution = d_ex_erreur_type_argument;
239: return;
240: }
241:
242: liberation(s_etat_processus, s_objet);
243:
244: return;
245: }
246:
247:
248: /*
249: ================================================================================
250: Fonction 'rlb'
251: ================================================================================
252: Entrées : pointeur sur une structure struct_processus
253: --------------------------------------------------------------------------------
254: Sorties :
255: --------------------------------------------------------------------------------
256: Effets de bord : néant
257: ================================================================================
258: */
259:
260: void
261: instruction_rlb(struct_processus *s_etat_processus)
262: {
263: struct_liste_chainee *l_base_pile;
264:
265: unsigned long i;
266:
267: (*s_etat_processus).erreur_execution = d_ex;
268:
269: if ((*s_etat_processus).affichage_arguments == 'Y')
270: {
271: printf("\n RLB ");
272:
273: if ((*s_etat_processus).langue == 'F')
274: {
275: printf("(rotation d'un octet vers la gauche)\n\n");
276: }
277: else
278: {
279: printf("(rotate left byte)\n\n");
280: }
281:
282: printf(" 1: %s\n", d_BIN);
283: printf("-> 1: %s\n", d_BIN);
284:
285: return;
286: }
287: else if ((*s_etat_processus).test_instruction == 'Y')
288: {
289: (*s_etat_processus).nombre_arguments = -1;
290: return;
291: }
292:
293: if (test_cfsf(s_etat_processus, 31) == d_vrai)
294: {
295: if (empilement_pile_last(s_etat_processus, 1) == d_erreur)
296: {
297: return;
298: }
299: }
300:
301: l_base_pile = (*s_etat_processus).l_base_pile_last;
302: (*s_etat_processus).l_base_pile_last = NULL;
303:
304: for(i = 0; i < 8; i++)
305: {
306: instruction_rl(s_etat_processus);
307:
308: if (((*s_etat_processus).erreur_systeme != d_es) ||
309: ((*s_etat_processus).erreur_execution != d_ex))
310: {
311: break;
312: }
313: }
314:
315: if (test_cfsf(s_etat_processus, 31) == d_vrai)
316: {
317: if (empilement_pile_last(s_etat_processus, 0) == d_erreur)
318: {
319: return;
320: }
321: }
322:
323: (*s_etat_processus).l_base_pile_last = l_base_pile;
324: return;
325: }
326:
327:
328: /*
329: ================================================================================
330: Fonction 'rr'
331: ================================================================================
332: Entrées : pointeur sur une structure struct_processus
333: --------------------------------------------------------------------------------
334: Sorties :
335: --------------------------------------------------------------------------------
336: Effets de bord : néant
337: ================================================================================
338: */
339:
340: void
341: instruction_rr(struct_processus *s_etat_processus)
342: {
343: logical8 masque;
344: logical8 tampon;
345:
346: struct_objet *s_copie;
347: struct_objet *s_objet;
348:
349: unsigned long i;
350: unsigned long j;
351: unsigned long longueur;
352:
353: (*s_etat_processus).erreur_execution = d_ex;
354:
355: if ((*s_etat_processus).affichage_arguments == 'Y')
356: {
357: printf("\n RR ");
358:
359: if ((*s_etat_processus).langue == 'F')
360: {
361: printf("(rotation à droite)\n\n");
362: }
363: else
364: {
365: printf("(rotate right)\n\n");
366: }
367:
368: printf(" 1: %s\n", d_BIN);
369: printf("-> 1: %s\n", d_BIN);
370:
371: return;
372: }
373: else if ((*s_etat_processus).test_instruction == 'Y')
374: {
375: (*s_etat_processus).nombre_arguments = -1;
376: return;
377: }
378:
379: if (test_cfsf(s_etat_processus, 31) == d_vrai)
380: {
381: if (empilement_pile_last(s_etat_processus, 1) == d_erreur)
382: {
383: return;
384: }
385: }
386:
387: if (depilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
388: &s_objet) == d_erreur)
389: {
390: (*s_etat_processus).erreur_execution = d_ex_manque_argument;
391: return;
392: }
393:
394: if ((*s_objet).type == BIN)
395: {
396: if ((s_copie = copie_objet(s_etat_processus, s_objet, 'O')) == NULL)
397: {
398: (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
399: return;
400: }
401:
402: longueur = 1;
403: j = 1;
404:
405: for(i = 37; i <= 42; i++)
406: {
407: longueur += (test_cfsf(s_etat_processus, (unsigned char) i)
408: == d_vrai) ? j : 0;
409: j *= 2;
410: }
411:
412: tampon = (*((logical8 *) (*s_copie).objet));
413: masque = (logical8) 1;
414:
415: if ((tampon & masque) == 0)
416: {
417: tampon >>= 1;
418: }
419: else
420: {
421: tampon >>= 1;
422: tampon |= (((logical8) 1) << (longueur - 1));
423: }
424:
425: for(masque = 0, i = 0; i < longueur; i++)
426: {
427: masque <<= 1;
428: masque |= 1;
429: }
430:
431: tampon &= masque;
432: (*((logical8 *) (*s_copie).objet)) = tampon;
433:
434: if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
435: s_copie) == d_erreur)
436: {
437: return;
438: }
439: }
440: else
441: {
442: liberation(s_etat_processus, s_objet);
443:
444: (*s_etat_processus).erreur_execution = d_ex_erreur_type_argument;
445: return;
446: }
447:
448: liberation(s_etat_processus, s_objet);
449:
450: return;
451: }
452:
453:
454: /*
455: ================================================================================
456: Fonction 'rrb'
457: ================================================================================
458: Entrées : pointeur sur une structure struct_processus
459: --------------------------------------------------------------------------------
460: Sorties :
461: --------------------------------------------------------------------------------
462: Effets de bord : néant
463: ================================================================================
464: */
465:
466: void
467: instruction_rrb(struct_processus *s_etat_processus)
468: {
469: struct_liste_chainee *l_base_pile;
470:
471: unsigned long i;
472:
473: (*s_etat_processus).erreur_execution = d_ex;
474:
475: if ((*s_etat_processus).affichage_arguments == 'Y')
476: {
477: printf("\n RRB ");
478:
479: if ((*s_etat_processus).langue == 'F')
480: {
481: printf("(rotation d'un octet vers la droite)\n\n");
482: }
483: else
484: {
485: printf("(rotate right byte)\n\n");
486: }
487:
488: printf(" 1: %s\n", d_BIN);
489: printf("-> 1: %s\n", d_BIN);
490:
491: return;
492: }
493: else if ((*s_etat_processus).test_instruction == 'Y')
494: {
495: (*s_etat_processus).nombre_arguments = -1;
496: return;
497: }
498:
499: if (test_cfsf(s_etat_processus, 31) == d_vrai)
500: {
501: if (empilement_pile_last(s_etat_processus, 1) == d_erreur)
502: {
503: return;
504: }
505: }
506:
507: l_base_pile = (*s_etat_processus).l_base_pile_last;
508: (*s_etat_processus).l_base_pile_last = NULL;
509:
510: for(i = 0; i < 8; i++)
511: {
512: instruction_rr(s_etat_processus);
513:
514: if (((*s_etat_processus).erreur_systeme != d_es) ||
515: ((*s_etat_processus).erreur_execution != d_ex))
516: {
517: break;
518: }
519: }
520:
521: if (test_cfsf(s_etat_processus, 31) == d_vrai)
522: {
523: if (empilement_pile_last(s_etat_processus, 0) == d_erreur)
524: {
525: return;
526: }
527: }
528:
529: (*s_etat_processus).l_base_pile_last = l_base_pile;
530: return;
531: }
532:
533:
534: /*
535: ================================================================================
536: Fonction 'redraw'
537: ================================================================================
538: Entrées : pointeur sur une structure struct_processus
539: --------------------------------------------------------------------------------
540: Sorties :
541: --------------------------------------------------------------------------------
542: Effets de bord : néant
543: ================================================================================
544: */
545:
546: void
547: instruction_redraw(struct_processus *s_etat_processus)
548: {
549: (*s_etat_processus).erreur_execution = d_ex;
550:
551: if ((*s_etat_processus).affichage_arguments == 'Y')
552: {
553: printf("\n REDRAW ");
554:
555: if ((*s_etat_processus).langue == 'F')
556: {
557: printf("(redessine une courbe)\n\n");
558: printf(" Aucun argument\n");
559: }
560: else
561: {
562: printf("(redraw a graphic)\n\n");
563: printf(" No argument\n");
564: }
565:
566: return;
567: }
568: else if ((*s_etat_processus).test_instruction == 'Y')
569: {
570: (*s_etat_processus).nombre_arguments = -1;
571: return;
572: }
573:
574: if (test_cfsf(s_etat_processus, 31) == d_vrai)
575: {
576: if (empilement_pile_last(s_etat_processus, 0) == d_erreur)
577: {
578: return;
579: }
580: }
581:
582: if ((*s_etat_processus).mise_a_jour_trace_requise == d_vrai)
583: {
584: (*s_etat_processus).erreur_execution = d_ex_graphique_memorise;
585: return;
586: }
587:
588: if ((*s_etat_processus).fichiers_graphiques != NULL)
589: {
590: appel_gnuplot(s_etat_processus, 'N');
591: }
592:
593: return;
594: }
595:
596:
597: /*
598: ================================================================================
599: Fonction 'remove'
600: ================================================================================
601: Entrées : pointeur sur une structure struct_processus
602: --------------------------------------------------------------------------------
603: Sorties :
604: --------------------------------------------------------------------------------
605: Effets de bord : néant
606: ================================================================================
607: */
608:
609: void
610: instruction_remove(struct_processus *s_etat_processus)
611: {
612: struct_objet *s_objet_argument;
613:
614: (*s_etat_processus).erreur_execution = d_ex;
615:
616: if ((*s_etat_processus).affichage_arguments == 'Y')
617: {
618: printf("\n REMOVE ");
619:
620: if ((*s_etat_processus).langue == 'F')
621: {
622: printf("(retrait d'une bibliothèque dynamique)\n\n");
623: }
624: else
625: {
626: printf("(remove a shared library)\n\n");
627: }
628:
629: printf(" 1: %s\n", d_SLB);
630:
631: return;
632: }
633: else if ((*s_etat_processus).test_instruction == 'Y')
634: {
635: (*s_etat_processus).nombre_arguments = -1;
636: return;
637: }
638:
639: if (test_cfsf(s_etat_processus, 31) == d_vrai)
640: {
641: if (empilement_pile_last(s_etat_processus, 1) == d_erreur)
642: {
643: return;
644: }
645: }
646:
647: if (depilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
648: &s_objet_argument) == d_erreur)
649: {
650: (*s_etat_processus).erreur_execution = d_ex_manque_argument;
651: return;
652: }
653:
654: if ((*s_objet_argument).type == SLB)
655: {
656: /*
657: * On ne décharge que les bibliothèques qui ont été chargées dans
658: * le couple pid/tid courant.
659: */
660:
661: if (((*((struct_bibliotheque *) (*s_objet_argument).objet)).pid ==
662: getpid()) && (pthread_equal((*((struct_bibliotheque *)
663: (*s_objet_argument).objet)).tid, pthread_self()) != 0))
664: {
665: if (retrait_bibliotheque(s_etat_processus,
666: (*s_objet_argument).objet) == d_erreur)
667: {
668: liberation(s_etat_processus, s_objet_argument);
669:
670: return;
671: }
672: }
673: }
674: else
675: {
676: liberation(s_etat_processus, s_objet_argument);
677:
678: (*s_etat_processus).erreur_execution = d_ex_erreur_type_argument;
679: return;
680: }
681:
682: liberation(s_etat_processus, s_objet_argument);
683:
684: return;
685: }
686:
687:
688: /*
689: ================================================================================
690: Fonction 'relax'
691: ================================================================================
692: Entrées : pointeur sur une structure struct_processus
693: --------------------------------------------------------------------------------
694: Sorties :
695: --------------------------------------------------------------------------------
696: Effets de bord : néant
697: ================================================================================
698: */
699:
700: void
701: instruction_relax(struct_processus *s_etat_processus)
702: {
703: (*s_etat_processus).erreur_execution = d_ex;
704:
705: if ((*s_etat_processus).affichage_arguments == 'Y')
706: {
707: printf("\n RELAX ");
708:
709: if ((*s_etat_processus).langue == 'F')
710: {
711: printf("(ne fait rien)\n\n");
712: printf(" Aucun argument\n");
713: }
714: else
715: {
716: printf("(do nothing)\n\n");
717: printf(" No argument\n");
718: }
719:
720: return;
721: }
722: else if ((*s_etat_processus).test_instruction == 'Y')
723: {
724: (*s_etat_processus).nombre_arguments = 1;
725: return;
726: }
727:
728: /*
729: * Cette instruction ne fait rien. Elle existe pour être symétrique
730: * à l'instruction CHS et permet de traiter les équations de façon
731: * simple (Ex : '+pi'). En principe, elle n'a pas a être appelée
732: * directement par l'utilisateur.
733: */
734:
735: return;
736: }
737:
738:
739: /*
740: ================================================================================
741: Fonction 'rewind'
742: ================================================================================
743: Entrées : pointeur sur une structure struct_processus
744: --------------------------------------------------------------------------------
745: Sorties :
746: --------------------------------------------------------------------------------
747: Effets de bord : néant
748: ================================================================================
749: */
750:
751: void
752: instruction_rewind(struct_processus *s_etat_processus)
753: {
1.5 bertrand 754: struct_descripteur_fichier *descripteur;
1.1 bertrand 755:
756: struct_objet *s_objet_argument;
757:
758: (*s_etat_processus).erreur_execution = d_ex;
759:
760: if ((*s_etat_processus).affichage_arguments == 'Y')
761: {
762: printf("\n REWIND ");
763:
764: if ((*s_etat_processus).langue == 'F')
765: {
766: printf("(retour au début d'un fichier)\n\n");
767: }
768: else
769: {
770: printf("(rewind a file)\n\n");
771: }
772:
773: printf(" 1: %s\n", d_FCH);
774:
775: return;
776: }
777: else if ((*s_etat_processus).test_instruction == 'Y')
778: {
779: (*s_etat_processus).nombre_arguments = -1;
780: return;
781: }
782:
783: if (test_cfsf(s_etat_processus, 31) == d_vrai)
784: {
785: if (empilement_pile_last(s_etat_processus, 1) == d_erreur)
786: {
787: return;
788: }
789: }
790:
791: if (depilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
792: &s_objet_argument) == d_erreur)
793: {
794: (*s_etat_processus).erreur_execution = d_ex_manque_argument;
795: return;
796: }
797:
798: if ((*s_objet_argument).type == FCH)
799: {
800: if ((descripteur = descripteur_fichier(s_etat_processus,
801: (struct_fichier *) (*s_objet_argument).objet)) == NULL)
802: {
803: return;
804: }
805:
1.5 bertrand 806: if ((*descripteur).type == 'C')
807: {
808: if (fseek((*descripteur).descripteur_c, (long) 0, SEEK_SET) != 0)
809: {
810: (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
811: return;
812: }
813: }
814: else
1.1 bertrand 815: {
816: liberation(s_etat_processus, s_objet_argument);
817:
1.5 bertrand 818: (*s_etat_processus).erreur_execution = d_ex_erreur_type_fichier;
1.1 bertrand 819: return;
820: }
821: }
822: else
823: {
824: (*s_etat_processus).erreur_execution = d_ex_erreur_type_argument;
825: return;
826: }
827:
828: liberation(s_etat_processus, s_objet_argument);
829:
830: return;
831: }
832:
833:
834: /*
835: ================================================================================
836: Fonction 'read'
837: ================================================================================
838: Entrées : pointeur sur une structure struct_processus
839: --------------------------------------------------------------------------------
840: Sorties :
841: --------------------------------------------------------------------------------
842: Effets de bord : néant
843: ================================================================================
844: */
845:
846: void
847: instruction_read(struct_processus *s_etat_processus)
848: {
1.6 bertrand 849: const char *queue;
850:
1.28 bertrand 851: int c;
1.8 bertrand 852: int ios;
853:
854: integer8 element;
1.46 bertrand 855: integer8 i;
1.8 bertrand 856: integer8 id;
857: integer8 position_clef;
1.46 bertrand 858: integer8 longueur_effective;
859: integer8 longueur_enregistrement;
860: integer8 longueur_questure;
861: integer8 niveau;
862: integer8 pointeur;
863: integer8 position_finale;
864: integer8 position_initiale;
865:
1.8 bertrand 866:
1.1 bertrand 867: logical1 indicateur_48;
868: logical1 presence_chaine;
869: logical1 presence_indicateur;
870:
871: socklen_t longueur_adresse;
872:
1.6 bertrand 873: sqlite3_stmt *ppStmt;
874:
1.1 bertrand 875: struct flock lock;
876:
877: struct sockaddr_un adresse_unix;
878: struct sockaddr_in adresse_ipv4;
1.19 bertrand 879: # ifdef IPV6
1.1 bertrand 880: struct sockaddr_in6 adresse_ipv6;
1.19 bertrand 881: # endif
1.1 bertrand 882:
883: struct timespec attente;
884:
1.5 bertrand 885: struct_descripteur_fichier *descripteur;
886:
1.8 bertrand 887: struct_liste_chainee *l_element_courant;
888: struct_liste_chainee *l_element_inclus;
1.46 bertrand 889: struct_liste_chainee *l_element_suivant;
1.8 bertrand 890:
1.1 bertrand 891: struct_objet *s_objet_adresse;
1.6 bertrand 892: struct_objet *s_objet_argument_1;
893: struct_objet *s_objet_argument_2;
1.46 bertrand 894: struct_objet *s_objet_element;
1.1 bertrand 895: struct_objet *s_objet_resultat;
896: struct_objet *s_objet_type;
897:
898: unsigned char caractere;
1.8 bertrand 899: unsigned char *clef_utf8;
1.6 bertrand 900: unsigned char *commande;
1.28 bertrand 901: unsigned char *ptr;
1.1 bertrand 902: unsigned char *tampon_lecture;
903: unsigned char *tampon;
1.8 bertrand 904: unsigned char *tampon2;
1.46 bertrand 905: unsigned char type_enregistrement;
1.1 bertrand 906:
907: (*s_etat_processus).erreur_execution = d_ex;
908:
909: if ((*s_etat_processus).affichage_arguments == 'Y')
910: {
911: printf("\n READ ");
912:
913: if ((*s_etat_processus).langue == 'F')
914: {
915: printf("(lecture d'un enregistrement d'un fichier)\n\n");
916: }
917: else
918: {
919: printf("(read a record of a file)\n\n");
920: }
921:
1.6 bertrand 922: printf(" 1: %s, %s\n\n", d_FCH, d_SCK);
1.1 bertrand 923:
1.8 bertrand 924: printf(" 2: %s, %s\n", d_INT, d_CHN);
1.6 bertrand 925: printf(" 1: %s\n", d_FCH);
1.1 bertrand 926: return;
927: }
928: else if ((*s_etat_processus).test_instruction == 'Y')
929: {
930: (*s_etat_processus).nombre_arguments = -1;
931: return;
932: }
933:
934: if (test_cfsf(s_etat_processus, 31) == d_vrai)
935: {
1.6 bertrand 936: if ((*s_etat_processus).l_base_pile == NULL)
1.1 bertrand 937: {
1.6 bertrand 938: (*s_etat_processus).erreur_execution = d_ex_manque_argument;
1.1 bertrand 939: return;
940: }
1.6 bertrand 941:
942: if ((*(*(*s_etat_processus).l_base_pile).donnee).type == FCH)
943: {
944: if ((*((struct_fichier *) (*(*(*s_etat_processus).l_base_pile)
945: .donnee).objet)).acces == 'S')
946: {
947: if (empilement_pile_last(s_etat_processus, 1) == d_erreur)
948: {
949: return;
950: }
951: }
952: else
953: {
954: if (empilement_pile_last(s_etat_processus, 2) == d_erreur)
955: {
956: return;
957: }
958: }
959: }
960: else
961: {
962: if (empilement_pile_last(s_etat_processus, 1) == d_erreur)
963: {
964: return;
965: }
966: }
1.1 bertrand 967: }
968:
969: if (depilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
1.6 bertrand 970: &s_objet_argument_1) == d_erreur)
1.1 bertrand 971: {
972: (*s_etat_processus).erreur_execution = d_ex_manque_argument;
973: return;
974: }
975:
1.6 bertrand 976: if ((*s_objet_argument_1).type == FCH)
1.1 bertrand 977: {
1.5 bertrand 978: if ((descripteur = descripteur_fichier(s_etat_processus,
1.6 bertrand 979: (struct_fichier *) (*s_objet_argument_1).objet)) == NULL)
1.5 bertrand 980: {
981: return;
982: }
983:
1.1 bertrand 984: /*
985: * Vérification des verrous
986: */
987:
988: lock.l_type = F_RDLCK;
989: lock.l_whence = SEEK_SET;
990: lock.l_start = 0;
991: lock.l_len = 0;
992: lock.l_pid = getpid();
993:
1.5 bertrand 994: if (fcntl(fileno((*descripteur).descripteur_c), F_GETLK, &lock)
995: == -1)
1.1 bertrand 996: {
1.6 bertrand 997: liberation(s_etat_processus, s_objet_argument_1);
1.1 bertrand 998:
999: (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
1000: return;
1001: }
1002:
1003: if (lock.l_type != F_UNLCK)
1004: {
1.6 bertrand 1005: liberation(s_etat_processus, s_objet_argument_1);
1.1 bertrand 1006:
1007: (*s_etat_processus).erreur_execution =
1008: d_ex_fichier_verrouille;
1009: return;
1010: }
1011:
1012: /*
1013: * Vérification de l'autorisation de lecture
1014: */
1015:
1.6 bertrand 1016: if ((*((struct_fichier *) (*s_objet_argument_1).objet)).protection
1017: == 'W')
1.1 bertrand 1018: {
1.6 bertrand 1019: liberation(s_etat_processus, s_objet_argument_1);
1.1 bertrand 1020:
1021: (*s_etat_processus).erreur_execution = d_ex_erreur_acces_fichier;
1022: return;
1023: }
1.6 bertrand 1024: else if ((*((struct_fichier *) (*s_objet_argument_1).objet)).protection
1.1 bertrand 1025: == 'N')
1026: {
1.5 bertrand 1027: if ((*descripteur).type == 'C')
1.1 bertrand 1028: {
1.5 bertrand 1029: if (fflush((*descripteur).descripteur_c) != 0)
1030: {
1031: (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
1032: return;
1033: }
1.1 bertrand 1034: }
1035: }
1036:
1.6 bertrand 1037: if ((*((struct_fichier *) (*s_objet_argument_1).objet)).binaire == 'N')
1.1 bertrand 1038: {
1039: /*
1040: * Fichiers formatés
1041: */
1042:
1.6 bertrand 1043: if ((*((struct_fichier *) (*s_objet_argument_1).objet)).acces
1044: == 'S')
1.1 bertrand 1045: {
1046: /*
1047: * Fichiers séquentiels
1048: */
1049:
1050: longueur_questure = 256;
1051:
1052: if ((tampon_lecture = malloc(longueur_questure *
1053: sizeof(unsigned char))) == NULL)
1054: {
1055: (*s_etat_processus).erreur_systeme =
1056: d_es_allocation_memoire;
1057: return;
1058: }
1059:
1.5 bertrand 1060: BUG(((*descripteur).type != 'C'), uprintf("Bad filtype !\n"));
1061:
1062: if ((position_initiale = ftell((*descripteur).descripteur_c))
1063: == -1)
1.1 bertrand 1064: {
1065: (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
1066: return;
1067: }
1068:
1069: do
1070: {
1071: longueur_effective = fread(tampon_lecture,
1072: (size_t) sizeof(unsigned char), longueur_questure,
1.5 bertrand 1073: (*descripteur).descripteur_c);
1.1 bertrand 1074:
1075: pointeur = 0;
1076: presence_indicateur = d_faux;
1077:
1078: while(pointeur < longueur_effective)
1079: {
1080: if (tampon_lecture[pointeur] == '{')
1081: {
1082: presence_indicateur = d_vrai;
1083: break;
1084: }
1085:
1086: position_initiale++;
1087: pointeur++;
1088: }
1089:
1090: if (presence_indicateur == d_vrai)
1091: {
1092: break;
1093: }
1094: } while(longueur_effective == longueur_questure);
1095:
1096: if (presence_indicateur == d_faux)
1097: {
1.6 bertrand 1098: liberation(s_etat_processus, s_objet_argument_1);
1.1 bertrand 1099: free(tampon_lecture);
1100:
1101: (*s_etat_processus).erreur_execution =
1102: d_ex_fin_de_fichier_atteinte;
1103: return;
1104: }
1105:
1106: position_finale = position_initiale + 1;
1107: presence_chaine = d_faux;
1108: niveau = 1;
1109:
1.5 bertrand 1110: if (fseek((*descripteur).descripteur_c, position_finale,
1111: SEEK_SET) != 0)
1.1 bertrand 1112: {
1.6 bertrand 1113: liberation(s_etat_processus, s_objet_argument_1);
1.1 bertrand 1114: free(tampon_lecture);
1115:
1116: (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
1117: return;
1118: }
1119:
1120: do
1121: {
1122: longueur_effective = fread(tampon_lecture,
1123: (size_t) sizeof(unsigned char), longueur_questure,
1.5 bertrand 1124: (*descripteur).descripteur_c);
1.1 bertrand 1125:
1126: pointeur = 0;
1127: presence_indicateur = d_faux;
1128:
1129: while(pointeur < longueur_effective)
1130: {
1131: if (tampon_lecture[pointeur] == '"')
1132: {
1.7 bertrand 1133: if (pointeur > 0)
1134: {
1135: if (tampon_lecture[pointeur - 1] != '\\')
1136: {
1137: presence_chaine = (presence_chaine ==
1138: d_vrai) ? d_faux : d_vrai;
1139: }
1140: }
1141: else
1142: {
1143: presence_chaine = (presence_chaine == d_vrai)
1144: ? d_faux : d_vrai;
1145: }
1.1 bertrand 1146: }
1147: else
1148: {
1149: if (presence_chaine == d_faux)
1150: {
1151: if (tampon_lecture[pointeur] == '{')
1152: {
1153: niveau++;
1154: }
1155: else if (tampon_lecture[pointeur] == '}')
1156: {
1157: niveau--;
1158: }
1159: }
1160: }
1161:
1162: position_finale++;
1163: pointeur++;
1164:
1165: if (niveau == 0)
1166: {
1167: presence_indicateur = d_vrai;
1168: break;
1169: }
1170: }
1171:
1172: if (presence_indicateur == d_vrai)
1173: {
1174: break;
1175: }
1176: } while(longueur_effective == longueur_questure);
1177:
1178: if (presence_indicateur == d_faux)
1179: {
1.6 bertrand 1180: liberation(s_etat_processus, s_objet_argument_1);
1.1 bertrand 1181: free(tampon_lecture);
1182:
1183: (*s_etat_processus).erreur_execution =
1184: d_ex_fin_de_fichier_atteinte;
1185: return;
1186: }
1187:
1188: free(tampon_lecture);
1189: longueur_enregistrement = position_finale - position_initiale;
1190:
1191: if ((tampon_lecture = malloc((longueur_enregistrement + 1) *
1192: sizeof(unsigned char))) == NULL)
1193: {
1194: (*s_etat_processus).erreur_systeme =
1195: d_es_allocation_memoire;
1196: return;
1197: }
1198:
1.5 bertrand 1199: if (fseek((*descripteur).descripteur_c, position_initiale,
1200: SEEK_SET) != 0)
1.1 bertrand 1201: {
1.6 bertrand 1202: liberation(s_etat_processus, s_objet_argument_1);
1.1 bertrand 1203: free(tampon_lecture);
1204:
1205: (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
1206: return;
1207: }
1208:
1209: longueur_effective = fread(tampon_lecture,
1210: (size_t) sizeof(unsigned char),
1211: (size_t) longueur_enregistrement,
1.5 bertrand 1212: (*descripteur).descripteur_c);
1.1 bertrand 1213:
1214: if (longueur_effective != longueur_enregistrement)
1215: {
1216: (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
1217: return;
1218: }
1219:
1220: tampon_lecture[longueur_enregistrement] = d_code_fin_chaine;
1221: tampon = (*s_etat_processus).instruction_courante;
1.5 bertrand 1222:
1223: if (((*s_etat_processus).instruction_courante =
1224: transliteration(s_etat_processus, tampon_lecture,
1225: "UTF-8", d_locale)) == NULL)
1226: {
1.6 bertrand 1227: (*s_etat_processus).instruction_courante = tampon;
1228: liberation(s_etat_processus, s_objet_argument_1);
1.5 bertrand 1229: free(tampon_lecture);
1230: return;
1231: }
1.1 bertrand 1232:
1233: indicateur_48 = test_cfsf(s_etat_processus, 48);
1234: cf(s_etat_processus, 48);
1235:
1236: recherche_type(s_etat_processus);
1.5 bertrand 1237: free((*s_etat_processus).instruction_courante);
1.1 bertrand 1238:
1239: if ((*s_etat_processus).erreur_execution != d_ex)
1240: {
1.6 bertrand 1241: if (indicateur_48 == d_vrai)
1242: {
1243: sf(s_etat_processus, 48);
1244: }
1245: else
1246: {
1247: cf(s_etat_processus, 48);
1248: }
1249:
1.1 bertrand 1250: (*s_etat_processus).instruction_courante = tampon;
1251: free(tampon_lecture);
1252:
1.6 bertrand 1253: liberation(s_etat_processus, s_objet_argument_1);
1.1 bertrand 1254: return;
1255: }
1256:
1257: if (indicateur_48 == d_vrai)
1258: {
1259: sf(s_etat_processus, 48);
1260: }
1261: else
1262: {
1263: cf(s_etat_processus, 48);
1264: }
1265:
1266: (*s_etat_processus).instruction_courante = tampon;
1267: free(tampon_lecture);
1268: }
1.6 bertrand 1269: else if ((*((struct_fichier *) (*s_objet_argument_1).objet)).acces
1.1 bertrand 1270: == 'D')
1271: {
1.6 bertrand 1272: BUG(((*descripteur).type != 'S'), uprintf("Bad filtype !\n"));
1273:
1274: if (depilement(s_etat_processus, &((*s_etat_processus)
1275: .l_base_pile), &s_objet_argument_2) == d_erreur)
1276: {
1277: (*s_etat_processus).erreur_execution = d_ex_manque_argument;
1278: return;
1279: }
1280:
1281: if ((*s_objet_argument_2).type != INT)
1282: {
1283: liberation(s_etat_processus, s_objet_argument_1);
1284: liberation(s_etat_processus, s_objet_argument_2);
1285:
1286: (*s_etat_processus).erreur_execution =
1287: d_ex_erreur_type_argument;
1288: return;
1289: }
1290:
1291: if (alsprintf(&commande, "select data from data where "
1292: "id = %lld", (*((integer8 *) (*s_objet_argument_2)
1293: .objet))) < 0)
1294: {
1295: (*s_etat_processus).erreur_systeme =
1296: d_es_allocation_memoire;
1297: return;
1298: }
1299:
1300: if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,
1301: commande, strlen(commande), &ppStmt, &queue)
1302: != SQLITE_OK)
1303: {
1304: (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
1305: return;
1306: }
1307:
1308: switch(sqlite3_step(ppStmt))
1309: {
1310: case SQLITE_ROW:
1311: {
1312: // Résultat attendu
1313: break;
1314: }
1315:
1316: case SQLITE_DONE:
1317: {
1318: // Aucun enregistrement
1319: if (sqlite3_finalize(ppStmt) != SQLITE_OK)
1320: {
1321: (*s_etat_processus).erreur_systeme =
1322: d_es_erreur_fichier;
1323: return;
1324: }
1325:
1326: free(commande);
1327:
1328: liberation(s_etat_processus, s_objet_argument_1);
1329: liberation(s_etat_processus, s_objet_argument_2);
1330:
1331: (*s_etat_processus).erreur_execution =
1332: d_ex_enregistrement_inexistant;
1333: return;
1334: }
1335:
1336: default:
1337: {
1338: (*s_etat_processus).erreur_systeme =
1339: d_es_erreur_fichier;
1340: return;
1341: }
1342: }
1343:
1344: if (sqlite3_column_type(ppStmt, 0) != SQLITE_TEXT)
1345: {
1346: (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
1347: return;
1348: }
1349:
1350: tampon = (*s_etat_processus).instruction_courante;
1351:
1352: if ((tampon_lecture = (unsigned char *)
1353: sqlite3_column_text(ppStmt, 0)) == NULL)
1354: {
1355: (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
1356: return;
1357: }
1358:
1359: if (((*s_etat_processus).instruction_courante =
1360: transliteration(s_etat_processus, tampon_lecture,
1361: "UTF-8", d_locale)) == NULL)
1362: {
1363: (*s_etat_processus).instruction_courante = tampon;
1364:
1365: liberation(s_etat_processus, s_objet_argument_1);
1366: liberation(s_etat_processus, s_objet_argument_2);
1367: free(commande);
1368: return;
1369: }
1370:
1371: indicateur_48 = test_cfsf(s_etat_processus, 48);
1372: cf(s_etat_processus, 48);
1373:
1374: recherche_type(s_etat_processus);
1375:
1376: if ((*s_etat_processus).erreur_execution != d_ex)
1377: {
1378: if (indicateur_48 == d_vrai)
1379: {
1380: sf(s_etat_processus, 48);
1381: }
1382: else
1383: {
1384: cf(s_etat_processus, 48);
1385: }
1386:
1387: liberation(s_etat_processus, s_objet_argument_1);
1388: liberation(s_etat_processus, s_objet_argument_2);
1389:
1390: free((*s_etat_processus).instruction_courante);
1391: free(commande);
1.8 bertrand 1392:
1393: (*s_etat_processus).instruction_courante = tampon;
1.6 bertrand 1394: return;
1395: }
1396:
1397: if (indicateur_48 == d_vrai)
1398: {
1399: sf(s_etat_processus, 48);
1400: }
1401: else
1402: {
1403: cf(s_etat_processus, 48);
1404: }
1405:
1406: free((*s_etat_processus).instruction_courante);
1407: liberation(s_etat_processus, s_objet_argument_2);
1408: (*s_etat_processus).instruction_courante = tampon;
1409:
1410: if (sqlite3_step(ppStmt) != SQLITE_DONE)
1411: {
1412: (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
1413: return;
1414: }
1415:
1416: if (sqlite3_finalize(ppStmt) != SQLITE_OK)
1417: {
1418: (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
1419: return;
1420: }
1421:
1422: free(commande);
1.1 bertrand 1423: }
1424: else
1425: {
1.8 bertrand 1426: BUG(((*descripteur).type != 'S'), uprintf("Bad filtype !\n"));
1427:
1428: if (depilement(s_etat_processus, &((*s_etat_processus)
1429: .l_base_pile), &s_objet_argument_2) == d_erreur)
1430: {
1431: (*s_etat_processus).erreur_execution = d_ex_manque_argument;
1432: return;
1433: }
1434:
1435: if ((*s_objet_argument_2).type != CHN)
1436: {
1437: liberation(s_etat_processus, s_objet_argument_1);
1438: liberation(s_etat_processus, s_objet_argument_2);
1439:
1440: (*s_etat_processus).erreur_execution =
1441: d_ex_erreur_type_argument;
1442: return;
1443: }
1444:
1445: // Récupération de la position de la clef
1446:
1447: if (alsprintf(&commande, "select key from control "
1448: "where id = 1") < 0)
1449: {
1450: (*s_etat_processus).erreur_systeme =
1451: d_es_allocation_memoire;
1452: return;
1453: }
1454:
1455: if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,
1456: commande, strlen(commande), &ppStmt, &queue)
1457: != SQLITE_OK)
1458: {
1459: (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
1460: return;
1461: }
1462:
1463: if (sqlite3_step(ppStmt) != SQLITE_ROW)
1464: {
1465: (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
1466: return;
1467: }
1468:
1469: if (sqlite3_column_type(ppStmt, 0) != SQLITE_INTEGER)
1470: {
1471: (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
1472: return;
1473: }
1474:
1475: position_clef = sqlite3_column_int64(ppStmt, 0);
1476:
1477: if (sqlite3_step(ppStmt) != SQLITE_DONE)
1478: {
1479: (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
1480: return;
1481: }
1482:
1483: if (sqlite3_finalize(ppStmt) != SQLITE_OK)
1484: {
1485: (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
1486: return;
1487: }
1488:
1489: free(commande);
1490:
1491: if ((clef_utf8 = transliteration(s_etat_processus,
1492: (unsigned char *) (*s_objet_argument_2).objet,
1493: d_locale, "UTF-8")) == NULL)
1494: {
1495: liberation(s_etat_processus, s_objet_argument_1);
1496: liberation(s_etat_processus, s_objet_argument_2);
1497:
1498: return;
1499: }
1500:
1501: // Récupération de l'identifiant de la clef
1502:
1503: if (alsprintf(&commande, "select id from key where key = "
1504: "'{ \"%s\" }'", clef_utf8) < 0)
1505: {
1506: (*s_etat_processus).erreur_systeme =
1507: d_es_allocation_memoire;
1508: return;
1509: }
1510:
1511: if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,
1512: commande, strlen(commande), &ppStmt, &queue)
1513: != SQLITE_OK)
1514: {
1515: (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
1516: return;
1517: }
1518:
1519: switch(sqlite3_step(ppStmt))
1520: {
1521: case SQLITE_ROW:
1522: {
1523: // Résultat attendu : une clef correspond.
1524: break;
1525: }
1526:
1527: case SQLITE_DONE:
1528: {
1529: // Aucun enregistrement
1530: if (sqlite3_finalize(ppStmt) != SQLITE_OK)
1531: {
1532: (*s_etat_processus).erreur_systeme =
1533: d_es_erreur_fichier;
1534: return;
1535: }
1536:
1537: free(clef_utf8);
1538: free(commande);
1539:
1540: liberation(s_etat_processus, s_objet_argument_1);
1541: liberation(s_etat_processus, s_objet_argument_2);
1542:
1543: (*s_etat_processus).erreur_execution =
1544: d_ex_enregistrement_inexistant;
1545: return;
1546: }
1547:
1548: default:
1549: {
1550: (*s_etat_processus).erreur_systeme =
1551: d_es_erreur_fichier;
1552: return;
1553: }
1554: }
1555:
1556: if (sqlite3_column_type(ppStmt, 0) != SQLITE_INTEGER)
1557: {
1558: free(clef_utf8);
1559: (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
1560: return;
1561: }
1562:
1563: id = sqlite3_column_int64(ppStmt, 0);
1564:
1565: if (sqlite3_step(ppStmt) != SQLITE_DONE)
1566: {
1567: (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
1568: return;
1569: }
1570:
1571: if (sqlite3_finalize(ppStmt) != SQLITE_OK)
1572: {
1573: (*s_etat_processus).erreur_systeme =
1574: d_es_erreur_fichier;
1575: return;
1576: }
1577:
1578: free(commande);
1579:
1580: if (alsprintf(&commande, "select data from data where "
1581: "key_id = %lld order by sequence asc", id) < 0)
1582: {
1583: (*s_etat_processus).erreur_systeme =
1584: d_es_allocation_memoire;
1585: return;
1586: }
1587:
1588: if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,
1589: commande, strlen(commande), &ppStmt, &queue)
1590: != SQLITE_OK)
1591: {
1592: (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
1593: return;
1594: }
1595:
1596: element = 1;
1597:
1598: do
1599: {
1600: switch(ios = sqlite3_step(ppStmt))
1601: {
1602: case SQLITE_ROW:
1603: {
1604: // Donnée supplémentaire
1605:
1606: if (sqlite3_column_type(ppStmt, 0) != SQLITE_TEXT)
1607: {
1608: (*s_etat_processus).erreur_systeme =
1609: d_es_erreur_fichier;
1610: return;
1611: }
1612:
1613: tampon = (*s_etat_processus).instruction_courante;
1614:
1615: if ((tampon_lecture = (unsigned char *)
1616: sqlite3_column_text(ppStmt, 0)) == NULL)
1617: {
1618: (*s_etat_processus).erreur_systeme =
1619: d_es_erreur_fichier;
1620: return;
1621: }
1622:
1623: if (((*s_etat_processus).instruction_courante =
1624: transliteration(s_etat_processus,
1625: tampon_lecture,
1626: "UTF-8", d_locale)) == NULL)
1627: {
1628: (*s_etat_processus).instruction_courante =
1629: tampon;
1630:
1631: liberation(s_etat_processus,
1632: s_objet_argument_1);
1633: liberation(s_etat_processus,
1634: s_objet_argument_2);
1635:
1636: free(commande);
1637: free(clef_utf8);
1638: return;
1639: }
1640:
1641: indicateur_48 = test_cfsf(s_etat_processus, 48);
1642: cf(s_etat_processus, 48);
1643:
1644: recherche_type(s_etat_processus);
1645:
1646: if ((*s_etat_processus).erreur_execution != d_ex)
1647: {
1648: if (indicateur_48 == d_vrai)
1649: {
1650: sf(s_etat_processus, 48);
1651: }
1652: else
1653: {
1654: cf(s_etat_processus, 48);
1655: }
1656:
1657: liberation(s_etat_processus,
1658: s_objet_argument_1);
1659: liberation(s_etat_processus,
1660: s_objet_argument_2);
1661:
1662: free((*s_etat_processus).instruction_courante);
1663: free(commande);
1664: free(clef_utf8);
1665:
1666: (*s_etat_processus).instruction_courante =
1667: tampon;
1668: return;
1669: }
1670:
1671: if (indicateur_48 == d_vrai)
1672: {
1673: sf(s_etat_processus, 48);
1674: }
1675: else
1676: {
1677: cf(s_etat_processus, 48);
1678: }
1679:
1680: free((*s_etat_processus).instruction_courante);
1681: (*s_etat_processus).instruction_courante = tampon;
1682:
1683: element++;
1684:
1685: // Inscription de la clef
1686:
1687: if (element == position_clef)
1688: {
1689: if (((*s_etat_processus).instruction_courante =
1690: transliteration(s_etat_processus,
1691: clef_utf8, "UTF-8", d_locale)) == NULL)
1692: {
1693: (*s_etat_processus).instruction_courante =
1694: tampon;
1695:
1696: liberation(s_etat_processus,
1697: s_objet_argument_1);
1698: liberation(s_etat_processus,
1699: s_objet_argument_2);
1700:
1701: free(commande);
1702: free(clef_utf8);
1703: return;
1704: }
1705:
1706: if (alsprintf(&tampon2, "{ \"%s\" }",
1707: (*s_etat_processus)
1708: .instruction_courante) < 0)
1709: {
1710: (*s_etat_processus).erreur_systeme =
1711: d_es_allocation_memoire;
1712: return;
1713: }
1714:
1715: free((*s_etat_processus).instruction_courante);
1716: (*s_etat_processus).instruction_courante
1717: = tampon2;
1718:
1719: indicateur_48 = test_cfsf(s_etat_processus, 48);
1720: cf(s_etat_processus, 48);
1721:
1722: recherche_type(s_etat_processus);
1723:
1724: if ((*s_etat_processus).erreur_execution
1725: != d_ex)
1726: {
1727: if (indicateur_48 == d_vrai)
1728: {
1729: sf(s_etat_processus, 48);
1730: }
1731: else
1732: {
1733: cf(s_etat_processus, 48);
1734: }
1735:
1736: liberation(s_etat_processus,
1737: s_objet_argument_1);
1738: liberation(s_etat_processus,
1739: s_objet_argument_2);
1740:
1741: free((*s_etat_processus)
1742: .instruction_courante);
1743: free(commande);
1744: free(clef_utf8);
1745:
1746: (*s_etat_processus).instruction_courante =
1747: tampon;
1748: return;
1749: }
1750:
1751: if (indicateur_48 == d_vrai)
1752: {
1753: sf(s_etat_processus, 48);
1754: }
1755: else
1756: {
1757: cf(s_etat_processus, 48);
1758: }
1759:
1760: free((*s_etat_processus).instruction_courante);
1761: (*s_etat_processus).instruction_courante =
1762: tampon;
1763:
1764: element++;
1765: }
1766:
1767: break;
1768: }
1769:
1770: case SQLITE_DONE:
1771: {
1772: // Fin de la liste
1773: break;
1774: }
1775:
1776: default:
1777: {
1778: (*s_etat_processus).erreur_systeme =
1779: d_es_erreur_fichier;
1780: return;
1781: }
1782: }
1783:
1784: } while(ios != SQLITE_DONE);
1785:
1786: if (sqlite3_finalize(ppStmt) != SQLITE_OK)
1787: {
1788: (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
1789: return;
1790: }
1791:
1792: free(commande);
1793: free(clef_utf8);
1794:
1795: liberation(s_etat_processus, s_objet_argument_2);
1796:
1797: if ((s_objet_resultat = allocation(s_etat_processus, LST))
1798: == NULL)
1799: {
1800: (*s_etat_processus).erreur_systeme =
1801: d_es_allocation_memoire;
1802: return;
1803: }
1804:
1805: l_element_courant = NULL;
1.9 bertrand 1806: l_element_inclus = NULL;
1.8 bertrand 1807:
1808: for(element--; element > 0; element--)
1809: {
1810: if (depilement(s_etat_processus, &((*s_etat_processus)
1811: .l_base_pile), &s_objet_argument_2) == d_erreur)
1812: {
1813: (*s_etat_processus).erreur_systeme =
1814: d_es_erreur_fichier;
1815: return;
1816: }
1817:
1818: if ((*s_objet_argument_2).type != LST)
1819: {
1820: (*s_etat_processus).erreur_systeme =
1821: d_es_erreur_fichier;
1822: return;
1823: }
1824:
1825: l_element_inclus = (*s_objet_argument_2).objet;
1826:
1827: if (l_element_inclus != NULL)
1828: {
1829: while(l_element_inclus != NULL)
1830: {
1831: if ((*l_element_inclus).suivant == NULL)
1832: {
1833: (*l_element_inclus).suivant = l_element_courant;
1834: break;
1835: }
1836:
1837: l_element_inclus = (*l_element_inclus).suivant;
1838: }
1839:
1840: l_element_courant = (*s_objet_argument_2).objet;
1841: (*s_objet_argument_2).objet = NULL;
1842: }
1843:
1844: liberation(s_etat_processus, s_objet_argument_2);
1845: }
1846:
1847: (*s_objet_resultat).objet = l_element_inclus;
1848:
1849: if (empilement(s_etat_processus,
1850: &((*s_etat_processus).l_base_pile),
1851: s_objet_resultat) == d_erreur)
1852: {
1853: return;
1854: }
1.1 bertrand 1855: }
1856: }
1.6 bertrand 1857: else if ((*((struct_fichier *) (*s_objet_argument_1).objet)).binaire
1.1 bertrand 1858: == 'Y')
1859: {
1860: /*
1861: * Fichiers non formatés
1862: */
1.46 bertrand 1863:
1864: if ((*((struct_fichier *) (*s_objet_argument_1).objet)).acces
1865: == 'S')
1866: {
1867: /*
1868: * Fichiers séquentiels
1869: *
1870: * Les fichiers séquentiels non formatés contiennent comme
1871: * les fichiers séquentiels formatés leurs enregistrements
1872: * sous la forme de listes les unes derrières les autres.
1873: *
1874: * Le quartet de poids fort du premier octet à lire
1875: * doit donc être égal à 0100. Si ce n'est pas le cas,
1876: * il sera impossible de lire le fichier et on renvoie
1877: * immédiatement une erreur. Si on lit dans le fichier
1878: * la valeur attendue, on récupère la longueur en octet
1879: * de l'enregistrement puis on le lit.
1880: */
1881:
1882: BUG(((*descripteur).type != 'C'), uprintf("Bad filtype !\n"));
1883:
1884: if (fread(&type_enregistrement, (size_t) sizeof(unsigned char),
1885: 1, (*descripteur).descripteur_c) != 1)
1886: {
1887: (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
1888: return;
1889: }
1890:
1891: if ((type_enregistrement & 0xF0) != 0x40)
1892: {
1893: // L'enregistrement trouvé n'est pas une liste.
1894: // Tout porte à croire que le fichier est corrompu.
1895: (*s_etat_processus).erreur_execution =
1896: d_ex_fichier_corrompu;
1897: return;
1898: }
1899:
1900: switch(type_enregistrement)
1901: {
1902: unsigned char taille_enregistrement[8];
1903:
1904: case 0x48:
1905: {
1906: if (fread(taille_enregistrement,
1907: (size_t) sizeof(unsigned char),
1908: 1, (*descripteur).descripteur_c) != 1)
1909: {
1910: (*s_etat_processus).erreur_systeme =
1911: d_es_erreur_fichier;
1912: return;
1913: }
1914:
1915: longueur_enregistrement = taille_enregistrement[0];
1916: break;
1917: }
1918:
1919: case 0x49:
1920: {
1921: if (fread(taille_enregistrement,
1922: (size_t) sizeof(unsigned char),
1923: 2, (*descripteur).descripteur_c) != 2)
1924: {
1925: (*s_etat_processus).erreur_systeme =
1926: d_es_erreur_fichier;
1927: return;
1928: }
1929:
1930: // A FAIRE conversion de taille_enregistrement en longueur_enregistrement
1931: break;
1932: }
1933:
1934: case 0x4A:
1935: {
1936: if (fread(taille_enregistrement,
1937: (size_t) sizeof(unsigned char),
1938: 4, (*descripteur).descripteur_c) != 4)
1939: {
1940: (*s_etat_processus).erreur_systeme =
1941: d_es_erreur_fichier;
1942: return;
1943: }
1944:
1945: // A FAIRE conversion de taille_enregistrement en longueur_enregistrement
1946: break;
1947: }
1948:
1949: case 0x4B:
1950: {
1951: if (fread(taille_enregistrement,
1952: (size_t) sizeof(unsigned char),
1953: 8, (*descripteur).descripteur_c) != 8)
1954: {
1955: (*s_etat_processus).erreur_systeme =
1956: d_es_erreur_fichier;
1957: return;
1958: }
1959:
1960: // A FAIRE conversion de taille_enregistrement en longueur_enregistrement
1961: break;
1962: }
1963:
1964: default:
1965: {
1966: longueur_enregistrement = type_enregistrement & 0x07;
1967: }
1968: }
1969:
1970: printf("L=%d\n", longueur_enregistrement);
1971: // La variable longueur_enregistrement contient le nombre
1972: // d'éléments à lire dans le fichier pour générer la liste
1973: // contenant l'enregistrement.
1974:
1975: if ((s_objet_resultat = allocation(s_etat_processus, LST))
1976: == NULL)
1977: {
1978: (*s_etat_processus).erreur_systeme =
1979: d_es_allocation_memoire;
1980: return;
1981: }
1982:
1983: for(i = 0; i < longueur_enregistrement; i++)
1984: {
1985: /* A FAIRE
1986: s_objet_element = decodage_enregistrement(s_etat_processus,
1987: (*descripteur).descripteur_c);
1988: */
1989: s_objet_element = NULL;
1990:
1991: if (s_objet_element == NULL)
1992: {
1993: liberation(s_etat_processus, s_objet_resultat);
1994: return;
1995: }
1996:
1997: if ((*s_objet_resultat).objet == NULL)
1998: {
1999: if (((*s_objet_resultat).objet = allocation_maillon(
2000: s_etat_processus)) == NULL)
2001: {
2002: (*s_etat_processus).erreur_systeme =
2003: d_es_allocation_memoire;
2004: return;
2005: }
2006:
2007: (*((struct_liste_chainee *) (*s_objet_resultat).objet))
2008: .donnee = s_objet_element;
2009: l_element_courant = (*s_objet_resultat).objet;
2010: }
2011: else
2012: {
2013: if ((l_element_suivant = allocation_maillon(
2014: s_etat_processus)) == NULL)
2015: {
2016: (*s_etat_processus).erreur_systeme =
2017: d_es_allocation_memoire;
2018: return;
2019: }
2020:
2021: (*l_element_courant).suivant = l_element_suivant;
2022: (*l_element_suivant).donnee = s_objet_element;
2023: l_element_courant = l_element_suivant;
2024: }
2025: }
2026:
2027: // On saute les caractère des gestion de la commande
2028: // BACKSPACE.
2029: // A FAIRE
2030: }
1.1 bertrand 2031: }
2032: else
2033: {
2034: /*
2035: * Fichiers de type FLOW
2036: */
1.28 bertrand 2037:
2038: if ((*((struct_fichier *) (*s_objet_argument_1).objet)).acces
2039: == 'S')
2040: {
2041: /*
2042: * Fichiers séquentiels
2043: */
2044:
2045: BUG(((*descripteur).type != 'C'), uprintf("Bad filtype !\n"));
2046: longueur_enregistrement = 0;
2047:
2048: if ((position_initiale = ftell((*descripteur).descripteur_c))
2049: == -1)
2050: {
2051: (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
2052: return;
2053: }
2054:
2055: do
2056: {
2057: c = getc((*descripteur).descripteur_c);
2058: longueur_enregistrement++;
2059: } while((c != '\n') && (c != EOF));
2060:
2061: if (fseek((*descripteur).descripteur_c, position_initiale,
2062: SEEK_SET) != 0)
2063: {
2064: liberation(s_etat_processus, s_objet_argument_1);
2065:
2066: (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
2067: return;
2068: }
2069:
2070: if ((tampon_lecture = malloc((longueur_enregistrement + 1)
2071: * sizeof(unsigned char))) == NULL)
2072: {
2073: (*s_etat_processus).erreur_systeme =
2074: d_es_allocation_memoire;
2075: return;
2076: }
2077:
2078: longueur_effective = fread(tampon_lecture,
2079: (size_t) sizeof(unsigned char),
2080: (size_t) longueur_enregistrement,
2081: (*descripteur).descripteur_c);
2082:
2083: if ((s_objet_resultat = allocation(s_etat_processus, LST))
2084: == NULL)
2085: {
2086: (*s_etat_processus).erreur_systeme =
2087: d_es_allocation_memoire;
2088: return;
2089: }
2090:
2091: if (((*s_objet_resultat).objet =
2092: allocation_maillon(s_etat_processus)) == NULL)
2093: {
2094: (*s_etat_processus).erreur_systeme =
2095: d_es_allocation_memoire;
2096: return;
2097: }
2098:
2099: (*((struct_liste_chainee *) (*s_objet_resultat).objet))
2100: .suivant = NULL;
2101:
2102: if (((*((struct_liste_chainee *) (*s_objet_resultat).objet))
2103: .donnee = allocation(s_etat_processus, CHN)) == NULL)
2104: {
2105: (*s_etat_processus).erreur_systeme =
2106: d_es_allocation_memoire;
2107: return;
2108: }
2109:
2110: longueur_enregistrement = 1;
2111:
2112: for(i = 0; i < longueur_effective; i++)
2113: {
2114: if (isprint(tampon_lecture[i]) != 0)
2115: {
2116: longueur_enregistrement += 4;
2117: }
2118: else
2119: {
2120: longueur_enregistrement++;
2121: }
2122: }
2123:
2124: if ((tampon = malloc(longueur_enregistrement *
2125: sizeof(unsigned char))) == NULL)
2126: {
2127: (*s_etat_processus).erreur_systeme =
2128: d_es_allocation_memoire;
2129: return;
2130: }
2131:
2132: ptr = tampon;
2133:
2134: for(i = 0; i < longueur_effective; i++)
2135: {
2136: if (isprint(tampon_lecture[i]) != 0)
2137: {
2138: (*ptr) = tampon_lecture[i];
2139: ptr++;
2140: }
2141: else
2142: {
2143: (*ptr) = '\\';
2144: ptr++;
2145: (*ptr) = 'x';
2146: ptr++;
2147: sprintf(ptr, "%02X", tampon_lecture[i]);
2148: ptr += 2;
2149: }
2150: }
2151:
2152: (*ptr) = d_code_fin_chaine;
2153: free(tampon_lecture);
2154: ((*(*((struct_liste_chainee *) (*s_objet_resultat).objet))
2155: .donnee)).objet = tampon;
2156:
2157: if (empilement(s_etat_processus,
2158: &((*s_etat_processus).l_base_pile),
2159: s_objet_resultat) == d_erreur)
2160: {
2161: return;
2162: }
2163: }
2164: else
2165: {
2166: liberation(s_etat_processus, s_objet_argument_1);
2167:
2168: (*s_etat_processus).erreur_execution =
2169: d_ex_erreur_type_fichier;
2170: return;
2171: }
1.1 bertrand 2172: }
2173: }
1.6 bertrand 2174: else if ((*s_objet_argument_1).type == SCK)
1.1 bertrand 2175: {
2176: /*
2177: * Vérification de l'autorisation de lecture
2178: */
2179:
1.6 bertrand 2180: if ((*((struct_socket *) (*s_objet_argument_1).objet)).protection
2181: == 'W')
1.1 bertrand 2182: {
1.6 bertrand 2183: liberation(s_etat_processus, s_objet_argument_1);
1.1 bertrand 2184:
2185: (*s_etat_processus).erreur_execution = d_ex_erreur_acces_fichier;
2186: return;
2187: }
2188:
2189: /*
2190: * Vérification de l'écoute de la socket si celle-ci est connectée
2191: */
2192:
1.6 bertrand 2193: if ((strcmp((*((struct_socket *) (*s_objet_argument_1).objet)).type,
1.1 bertrand 2194: "STREAM") == 0) || (strcmp((*((struct_socket *)
1.6 bertrand 2195: (*s_objet_argument_1).objet)).type, "SEQUENTIAL DATAGRAM")
2196: == 0))
1.1 bertrand 2197: {
1.6 bertrand 2198: if ((*((struct_socket *) (*s_objet_argument_1).objet))
1.1 bertrand 2199: .socket_en_ecoute == 'Y')
2200: {
1.6 bertrand 2201: liberation(s_etat_processus, s_objet_argument_1);
1.1 bertrand 2202:
2203: (*s_etat_processus).erreur_execution = d_ex_socket_en_ecoute;
2204: return;
2205: }
2206: }
2207:
1.6 bertrand 2208: if ((*((struct_socket *) (*s_objet_argument_1).objet)).binaire == 'N')
1.1 bertrand 2209: { // Socket formatée
2210: longueur_questure = 256;
2211:
2212: do
2213: {
2214: if ((tampon_lecture = malloc((longueur_questure + 1) *
2215: sizeof(unsigned char))) == NULL)
2216: {
2217: (*s_etat_processus).erreur_systeme =
2218: d_es_allocation_memoire;
2219: return;
2220: }
2221:
1.44 bertrand 2222: # ifndef SEMAPHORES_NOMMES
2223: if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
2224: # else
2225: if (sem_post((*s_etat_processus).semaphore_fork) != 0)
2226: # endif
1.1 bertrand 2227: {
2228: (*s_etat_processus).erreur_systeme = d_es_processus;
2229: return;
2230: }
2231:
1.30 bertrand 2232: attente.tv_sec = 0;
2233: attente.tv_nsec = GRANULARITE_us * 1000;
2234:
1.1 bertrand 2235: for(;;)
2236: {
1.6 bertrand 2237: if ((*((struct_socket *) (*s_objet_argument_1).objet))
2238: .domaine == PF_UNIX)
1.1 bertrand 2239: {
2240: longueur_adresse = sizeof(adresse_unix);
2241: longueur_effective = recvfrom((*((struct_socket *)
1.6 bertrand 2242: (*s_objet_argument_1).objet)).socket,
1.1 bertrand 2243: tampon_lecture, longueur_questure,
2244: MSG_PEEK | MSG_DONTWAIT, (struct sockaddr *)
2245: &adresse_unix, &longueur_adresse);
2246: }
1.6 bertrand 2247: else if ((*((struct_socket *) (*s_objet_argument_1).objet))
1.1 bertrand 2248: .domaine == PF_INET)
2249: {
2250: longueur_adresse = sizeof(adresse_ipv4);
2251: longueur_effective = recvfrom((*((struct_socket *)
1.6 bertrand 2252: (*s_objet_argument_1).objet)).socket,
1.1 bertrand 2253: tampon_lecture, longueur_questure,
2254: MSG_PEEK | MSG_DONTWAIT, (struct sockaddr *)
2255: &adresse_ipv4, &longueur_adresse);
2256: }
1.6 bertrand 2257: else if ((*((struct_socket *) (*s_objet_argument_1).objet))
1.1 bertrand 2258: .domaine == PF_INET6)
2259: {
1.19 bertrand 2260: # ifdef IPV6
1.1 bertrand 2261: longueur_adresse = sizeof(adresse_ipv6);
2262: longueur_effective = recvfrom((*((struct_socket *)
1.6 bertrand 2263: (*s_objet_argument_1).objet)).socket,
1.1 bertrand 2264: tampon_lecture, longueur_questure,
2265: MSG_PEEK | MSG_DONTWAIT, (struct sockaddr *)
2266: &adresse_ipv6, &longueur_adresse);
1.30 bertrand 2267:
1.19 bertrand 2268: # else
1.21 bertrand 2269: if ((*s_etat_processus).langue == 'F')
2270: {
2271: printf("+++Attention : Support du protocole"
1.22 bertrand 2272: " IPv6 indisponible\n");
1.21 bertrand 2273: }
2274: else
2275: {
1.23 bertrand 2276: printf("+++Warning : IPv6 support "
1.21 bertrand 2277: "unavailable\n");
2278: }
1.19 bertrand 2279: # endif
1.1 bertrand 2280: }
2281: else
2282: {
2283: free(tampon_lecture);
1.6 bertrand 2284: liberation(s_etat_processus, s_objet_argument_1);
1.1 bertrand 2285:
1.44 bertrand 2286: # ifndef SEMAPHORES_NOMMES
2287: while(sem_wait(&((*s_etat_processus)
2288: .semaphore_fork)) != 0)
2289: # else
2290: while(sem_wait((*s_etat_processus)
2291: .semaphore_fork) != 0)
2292: # endif
1.1 bertrand 2293: {
1.41 bertrand 2294: (*s_etat_processus).erreur_systeme =
2295: d_es_processus;
1.1 bertrand 2296: }
2297:
2298: (*s_etat_processus).erreur_execution =
2299: d_ex_erreur_acces_fichier;
2300: return;
2301: }
2302:
2303: if (longueur_effective < 0)
2304: {
2305: nanosleep(&attente, NULL);
1.30 bertrand 2306: INCR_GRANULARITE(attente.tv_nsec);
1.1 bertrand 2307: scrutation_injection(s_etat_processus);
2308: }
2309:
1.30 bertrand 2310: // Une donnée a été reçue.
2311:
1.1 bertrand 2312: if (((*s_etat_processus).var_volatile_requete_arret == -1)
2313: || (longueur_effective >= 0))
2314: {
2315: break;
2316: }
2317: }
2318:
1.44 bertrand 2319: # ifndef SEMAPHORES_NOMMES
2320: while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
2321: # else
2322: while(sem_wait((*s_etat_processus).semaphore_fork) != 0)
2323: # endif
1.1 bertrand 2324: {
1.44 bertrand 2325: if (errno == EINTR)
1.43 bertrand 2326: {
2327: (*s_etat_processus).erreur_systeme = d_es_processus;
2328: return;
2329: }
1.1 bertrand 2330: }
2331:
2332: if ((*s_etat_processus).var_volatile_requete_arret == -1)
2333: {
2334:
2335: /*
2336: * Si le père tue le processus courant grâce au signal
2337: * SIGFSTOP, on ne renvoie pas d'erreur. Ce fonctionnement
2338: * correspond à l'utilisation de STOP sur le processus
2339: * en cours. La variable longueur_effective vaut '-1'.
2340: */
2341:
2342: free(tampon_lecture);
1.6 bertrand 2343: liberation(s_etat_processus, s_objet_argument_1);
1.1 bertrand 2344: return;
2345: }
2346:
2347: if (longueur_effective == -1)
2348: {
2349: free(tampon_lecture);
1.6 bertrand 2350: liberation(s_etat_processus, s_objet_argument_1);
1.1 bertrand 2351:
2352: (*s_etat_processus).erreur_execution =
2353: d_ex_erreur_acces_fichier;
2354: return;
2355: }
2356:
2357: position_initiale = 0;
2358: presence_indicateur = d_faux;
2359:
2360: do
2361: {
2362: if (tampon_lecture[position_initiale] == '{')
2363: {
2364: presence_indicateur = d_vrai;
2365: break;
2366: }
2367:
2368: position_initiale++;
2369: } while(position_initiale < longueur_effective);
2370:
2371:
2372: if (presence_indicateur == d_vrai)
2373: {
2374: position_finale = position_initiale + 1;
2375: presence_chaine = d_faux;
2376: presence_indicateur = d_faux;
2377: niveau = 1;
2378:
2379: while(position_finale < longueur_effective)
2380: {
2381: caractere = tampon_lecture[position_finale];
2382:
2383: if (caractere == '"')
2384: {
2385: presence_chaine = (presence_chaine == d_vrai)
2386: ? d_faux : d_vrai;
2387: }
2388: else
2389: {
2390: if (presence_chaine == d_faux)
2391: {
2392: if (caractere == '{')
2393: {
2394: niveau++;
2395: }
2396: else if (caractere == '}')
2397: {
2398: niveau--;
2399: }
2400: }
2401: }
2402:
2403: if (niveau == 0)
2404: {
2405: presence_indicateur = d_vrai;
2406: break;
2407: }
2408:
2409: position_finale++;
2410: }
2411: }
2412:
2413: if (presence_indicateur == d_faux)
2414: {
2415: if (longueur_effective < longueur_questure)
2416: {
1.6 bertrand 2417: liberation(s_etat_processus, s_objet_argument_1);
1.1 bertrand 2418: free(tampon_lecture);
2419:
2420: (*s_etat_processus).erreur_execution =
2421: d_ex_fin_de_fichier_atteinte;
2422: return;
2423: }
2424:
2425: free(tampon_lecture);
2426: longueur_questure *= 2;
2427: }
2428: } while(presence_indicateur == d_faux);
2429:
2430: tampon_lecture[++position_finale] = d_code_fin_chaine;
2431: tampon = (*s_etat_processus).instruction_courante;
2432: (*s_etat_processus).instruction_courante = &(tampon_lecture
2433: [position_initiale]);
2434:
2435: indicateur_48 = test_cfsf(s_etat_processus, 48);
2436: cf(s_etat_processus, 48);
2437:
2438: recherche_type(s_etat_processus);
2439:
2440: if ((*s_etat_processus).erreur_execution != d_ex)
2441: {
2442: (*s_etat_processus).instruction_courante = tampon;
2443: free(tampon_lecture);
2444:
1.6 bertrand 2445: liberation(s_etat_processus, s_objet_argument_1);
1.1 bertrand 2446: return;
2447: }
2448:
2449: if (indicateur_48 == d_vrai)
2450: {
2451: sf(s_etat_processus, 48);
2452: }
2453: else
2454: {
2455: cf(s_etat_processus, 48);
2456: }
2457:
2458: (*s_etat_processus).instruction_courante = tampon;
2459:
2460: /*
2461: * Création de la liste de sortie
2462: */
2463:
2464: if (depilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
2465: &s_objet_type) == d_erreur)
2466: {
2467: (*s_etat_processus).erreur_execution = d_ex_manque_argument;
2468: return;
2469: }
2470:
2471: if ((s_objet_resultat = allocation(s_etat_processus, LST))
2472: == NULL)
2473: {
2474: (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
2475: return;
2476: }
2477:
2478: if (((*s_objet_resultat).objet =
2479: allocation_maillon(s_etat_processus)) == NULL)
2480: {
2481: (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
2482: return;
2483: }
2484:
2485: (*((struct_liste_chainee *) (*s_objet_resultat).objet))
2486: .donnee = s_objet_type;
2487:
2488: if (((*((struct_liste_chainee *) (*s_objet_resultat).objet))
2489: .suivant = allocation_maillon(s_etat_processus)) == NULL)
2490: {
2491: (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
2492: return;
2493: }
2494:
2495: (*(*((struct_liste_chainee *) (*s_objet_resultat).objet)).suivant)
2496: .suivant = NULL;
2497:
2498: if ((s_objet_adresse = allocation(s_etat_processus, LST))
2499: == NULL)
2500: {
2501: (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
2502: return;
2503: }
2504:
2505: (*(*((struct_liste_chainee *) (*s_objet_resultat).objet)).suivant)
2506: .donnee = s_objet_adresse;
2507:
2508: /*
2509: * Les informations concernant la cible sont valides si
2510: * la socket est non connectée et des domaines INET ou INET6.
2511: * Dans tous les autres cas, on renvoie une liste vide.
2512: */
2513:
1.6 bertrand 2514: if (((*((struct_socket *) (*s_objet_argument_1).objet)).domaine
1.1 bertrand 2515: == PF_UNIX) || (strcmp((*((struct_socket *)
1.6 bertrand 2516: (*s_objet_argument_1).objet)).type, "STREAM") == 0) ||
2517: (strcmp((*((struct_socket *) (*s_objet_argument_1).objet))
1.1 bertrand 2518: .type, "SEQUENTIAL DATAGRAM") == 0))
2519: {
2520: longueur_adresse = 0;
2521: recvfrom((*((struct_socket *)
1.6 bertrand 2522: (*s_objet_argument_1).objet)).socket, tampon_lecture,
1.30 bertrand 2523: longueur_effective, MSG_DONTWAIT,
1.1 bertrand 2524: NULL, &longueur_adresse);
2525:
2526: (*s_objet_adresse).objet = NULL;
2527: }
1.6 bertrand 2528: else if ((*((struct_socket *) (*s_objet_argument_1).objet))
1.1 bertrand 2529: .domaine == PF_INET)
2530: {
2531: longueur_adresse = sizeof(adresse_ipv4);
2532: recvfrom((*((struct_socket *)
1.6 bertrand 2533: (*s_objet_argument_1).objet)).socket, tampon_lecture,
1.30 bertrand 2534: longueur_effective, MSG_DONTWAIT,
1.1 bertrand 2535: (struct sockaddr *) &adresse_ipv4, &longueur_adresse);
2536:
2537: if (((*s_objet_adresse).objet =
2538: allocation_maillon(s_etat_processus)) == NULL)
2539: {
2540: (*s_etat_processus).erreur_systeme =
2541: d_es_allocation_memoire;
2542: return;
2543: }
2544:
2545: if (((*((struct_liste_chainee *) (*s_objet_adresse).objet))
2546: .donnee = allocation(s_etat_processus, VIN)) == NULL)
2547: {
2548: (*s_etat_processus).erreur_systeme =
2549: d_es_allocation_memoire;
2550: return;
2551: }
2552:
2553: (*((struct_vecteur *) (*(*((struct_liste_chainee *)
2554: (*s_objet_adresse).objet)).donnee).objet)).taille = 4;
2555:
2556: if (((*((struct_vecteur *) (*(*((struct_liste_chainee *)
2557: (*s_objet_adresse).objet)).donnee).objet)).tableau =
2558: malloc(4 * sizeof(integer8))) == NULL)
2559: {
2560: (*s_etat_processus).erreur_systeme =
2561: d_es_allocation_memoire;
2562: return;
2563: }
2564:
2565: ((integer8 *) (*((struct_vecteur *)
2566: (*(*((struct_liste_chainee *) (*s_objet_adresse)
2567: .objet)).donnee).objet)).tableau)[0] =
2568: (ntohl(adresse_ipv4.sin_addr.s_addr) >> 24) & 0xFF;
2569: ((integer8 *) (*((struct_vecteur *)
2570: (*(*((struct_liste_chainee *) (*s_objet_adresse)
2571: .objet)).donnee).objet)).tableau)[1] =
2572: (ntohl(adresse_ipv4.sin_addr.s_addr) >> 16) & 0xFF;
2573: ((integer8 *) (*((struct_vecteur *)
2574: (*(*((struct_liste_chainee *) (*s_objet_adresse)
2575: .objet)).donnee).objet)).tableau)[2] =
2576: (ntohl(adresse_ipv4.sin_addr.s_addr) >> 8) & 0xFF;
2577: ((integer8 *) (*((struct_vecteur *)
2578: (*(*((struct_liste_chainee *) (*s_objet_adresse)
2579: .objet)).donnee).objet)).tableau)[3] =
2580: ntohl(adresse_ipv4.sin_addr.s_addr) & 0xFF;
2581:
2582: if (((*((struct_liste_chainee *) (*s_objet_adresse).objet))
2583: .suivant = allocation_maillon(s_etat_processus))
2584: == NULL)
2585: {
2586: (*s_etat_processus).erreur_systeme =
2587: d_es_allocation_memoire;
2588: return;
2589: }
2590:
2591: if (((*(*((struct_liste_chainee *) (*s_objet_adresse).objet))
2592: .suivant).donnee = allocation(s_etat_processus, INT))
2593: == NULL)
2594: {
2595: (*s_etat_processus).erreur_systeme =
2596: d_es_allocation_memoire;
2597: return;
2598: }
2599:
2600: (*((integer8 *) (*(*(*((struct_liste_chainee *)
1.6 bertrand 2601: (*s_objet_adresse).objet)).suivant).donnee).objet)) =
1.1 bertrand 2602: (integer8) ntohs(adresse_ipv4.sin_port);
2603:
2604: (*(*((struct_liste_chainee *) (*s_objet_adresse).objet))
2605: .suivant).suivant = NULL;
2606: }
1.6 bertrand 2607: else if ((*((struct_socket *) (*s_objet_argument_1).objet))
1.1 bertrand 2608: .domaine == PF_INET6)
2609: {
1.19 bertrand 2610: # ifdef IPV6
1.1 bertrand 2611: longueur_adresse = sizeof(adresse_ipv6);
2612: recvfrom((*((struct_socket *)
1.6 bertrand 2613: (*s_objet_argument_1).objet)).socket, tampon_lecture,
1.30 bertrand 2614: longueur_effective, MSG_DONTWAIT,
1.1 bertrand 2615: (struct sockaddr *) &adresse_ipv6, &longueur_adresse);
2616:
2617: if (((*s_objet_adresse).objet =
2618: allocation_maillon(s_etat_processus)) == NULL)
2619: {
2620: (*s_etat_processus).erreur_systeme =
2621: d_es_allocation_memoire;
2622: return;
2623: }
2624:
2625: if (((*((struct_liste_chainee *) (*s_objet_adresse).objet))
2626: .donnee = allocation(s_etat_processus, VIN)) == NULL)
2627: {
2628: (*s_etat_processus).erreur_systeme =
2629: d_es_allocation_memoire;
2630: return;
2631: }
2632:
2633: (*((struct_vecteur *) (*(*((struct_liste_chainee *)
2634: (*s_objet_adresse).objet)).donnee).objet)).taille = 16;
2635:
2636: if (((*((struct_vecteur *) (*(*((struct_liste_chainee *)
2637: (*s_objet_adresse).objet)).donnee).objet)).tableau =
2638: malloc(16 * sizeof(integer8))) == NULL)
2639: {
2640: (*s_etat_processus).erreur_systeme =
2641: d_es_allocation_memoire;
2642: return;
2643: }
2644:
2645: for(i = 0; i < 16; i++)
2646: {
2647: ((integer8 *) (*((struct_vecteur *)
2648: (*(*((struct_liste_chainee *) (*s_objet_adresse)
2649: .objet)).donnee).objet)).tableau)[0] =
2650: adresse_ipv6.sin6_addr.s6_addr[i];
2651: }
2652:
2653: if (((*((struct_liste_chainee *) (*s_objet_adresse).objet))
2654: .suivant = allocation_maillon(s_etat_processus))
2655: == NULL)
2656: {
2657: (*s_etat_processus).erreur_systeme =
2658: d_es_allocation_memoire;
2659: return;
2660: }
2661:
2662: if (((*(*((struct_liste_chainee *) (*s_objet_adresse).objet))
2663: .suivant).donnee = allocation(s_etat_processus, INT))
2664: == NULL)
2665: {
2666: (*s_etat_processus).erreur_systeme =
2667: d_es_allocation_memoire;
2668: return;
2669: }
2670:
2671: (*((integer8 *) (*(*(*((struct_liste_chainee *)
1.6 bertrand 2672: (*s_objet_adresse).objet)).suivant).donnee).objet)) =
1.1 bertrand 2673: (integer8) ntohs(adresse_ipv6.sin6_port);
2674:
2675: (*(*((struct_liste_chainee *) (*s_objet_adresse).objet))
2676: .suivant).suivant = NULL;
1.19 bertrand 2677: # else
1.21 bertrand 2678: if ((*s_etat_processus).langue == 'F')
2679: {
2680: printf("+++Attention : Support du protocole"
1.22 bertrand 2681: " IPv6 indisponible\n");
1.21 bertrand 2682: }
2683: else
2684: {
1.23 bertrand 2685: printf("+++Warning : IPv6 support "
1.21 bertrand 2686: "unavailable\n");
2687: }
1.19 bertrand 2688: # endif
1.1 bertrand 2689: }
2690: else
2691: {
2692: longueur_adresse = 0;
2693: recvfrom((*((struct_socket *)
1.6 bertrand 2694: (*s_objet_argument_1).objet)).socket, tampon_lecture,
1.1 bertrand 2695: position_finale, MSG_DONTWAIT,
2696: NULL, &longueur_adresse);
2697: }
2698:
2699: free(tampon_lecture);
2700:
2701: if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
2702: s_objet_resultat) == d_erreur)
2703: {
2704: return;
2705: }
2706: }
1.28 bertrand 2707: else if ((*((struct_socket *) (*s_objet_argument_1).objet)).binaire
2708: == 'Y')
2709: { // UNFORMATTED
2710: }
1.1 bertrand 2711: else
1.28 bertrand 2712: { // FLOW
2713: longueur_questure = 256;
2714:
2715: do
2716: {
2717: if ((tampon_lecture = malloc((longueur_questure + 1) *
2718: sizeof(unsigned char))) == NULL)
2719: {
2720: (*s_etat_processus).erreur_systeme =
2721: d_es_allocation_memoire;
2722: return;
2723: }
2724:
1.44 bertrand 2725: # ifndef SEMAPHORES_NOMMES
2726: if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
2727: # else
2728: if (sem_post((*s_etat_processus).semaphore_fork) != 0)
2729: # endif
1.28 bertrand 2730: {
2731: (*s_etat_processus).erreur_systeme = d_es_processus;
2732: return;
2733: }
2734:
1.30 bertrand 2735: attente.tv_sec = 0;
2736: attente.tv_nsec = GRANULARITE_us * 1000;
2737:
1.28 bertrand 2738: for(;;)
2739: {
2740: if ((*((struct_socket *) (*s_objet_argument_1).objet))
2741: .domaine == PF_UNIX)
2742: {
2743: longueur_adresse = sizeof(adresse_unix);
2744: longueur_effective = recvfrom((*((struct_socket *)
2745: (*s_objet_argument_1).objet)).socket,
2746: tampon_lecture, longueur_questure,
2747: MSG_PEEK | MSG_DONTWAIT, (struct sockaddr *)
2748: &adresse_unix, &longueur_adresse);
2749: }
2750: else if ((*((struct_socket *) (*s_objet_argument_1).objet))
2751: .domaine == PF_INET)
2752: {
2753: longueur_adresse = sizeof(adresse_ipv4);
2754: longueur_effective = recvfrom((*((struct_socket *)
2755: (*s_objet_argument_1).objet)).socket,
2756: tampon_lecture, longueur_questure,
2757: MSG_PEEK | MSG_DONTWAIT, (struct sockaddr *)
2758: &adresse_ipv4, &longueur_adresse);
2759: }
2760: else if ((*((struct_socket *) (*s_objet_argument_1).objet))
2761: .domaine == PF_INET6)
2762: {
2763: # ifdef IPV6
2764: longueur_adresse = sizeof(adresse_ipv6);
2765: longueur_effective = recvfrom((*((struct_socket *)
2766: (*s_objet_argument_1).objet)).socket,
2767: tampon_lecture, longueur_questure,
2768: MSG_PEEK | MSG_DONTWAIT, (struct sockaddr *)
2769: &adresse_ipv6, &longueur_adresse);
2770: # else
2771: if ((*s_etat_processus).langue == 'F')
2772: {
2773: printf("+++Attention : Support du protocole"
2774: " IPv6 indisponible\n");
2775: }
2776: else
2777: {
2778: printf("+++Warning : IPv6 support "
2779: "unavailable\n");
2780: }
2781: # endif
2782: }
2783: else
2784: {
2785: free(tampon_lecture);
2786: liberation(s_etat_processus, s_objet_argument_1);
2787:
1.44 bertrand 2788: # ifndef SEMAPHORES_NOMMES
2789: while(sem_wait(&((*s_etat_processus)
2790: .semaphore_fork)) != 0)
2791: # else
2792: while(sem_wait((*s_etat_processus)
2793: .semaphore_fork) != 0)
2794: # endif
1.28 bertrand 2795: {
1.43 bertrand 2796: if (errno != EINTR)
2797: {
2798: (*s_etat_processus).erreur_systeme =
2799: d_es_processus;
2800: return;
2801: }
1.28 bertrand 2802: }
2803:
2804: (*s_etat_processus).erreur_execution =
2805: d_ex_erreur_acces_fichier;
2806: return;
2807: }
2808:
2809: if (longueur_effective < 0)
2810: {
2811: nanosleep(&attente, NULL);
1.30 bertrand 2812: INCR_GRANULARITE(attente.tv_nsec);
1.28 bertrand 2813: scrutation_injection(s_etat_processus);
2814: }
2815:
2816: if (((*s_etat_processus).var_volatile_requete_arret == -1)
2817: || (longueur_effective >= 0))
2818: {
2819: break;
2820: }
2821: }
2822:
1.44 bertrand 2823: # ifndef SEMAPHORES_NOMMES
2824: while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
2825: # else
2826: while(sem_wait((*s_etat_processus).semaphore_fork) != 0)
2827: # endif
1.28 bertrand 2828: {
1.43 bertrand 2829: if (errno != EINTR)
2830: {
2831: (*s_etat_processus).erreur_systeme = d_es_processus;
2832: return;
2833: }
1.28 bertrand 2834: }
2835:
2836: if ((*s_etat_processus).var_volatile_requete_arret == -1)
2837: {
2838:
2839: /*
2840: * Si le père tue le processus courant grâce au signal
2841: * SIGFSTOP, on ne renvoie pas d'erreur. Ce fonctionnement
2842: * correspond à l'utilisation de STOP sur le processus
2843: * en cours. La variable longueur_effective vaut '-1'.
2844: */
2845:
2846: free(tampon_lecture);
2847: liberation(s_etat_processus, s_objet_argument_1);
2848: return;
2849: }
2850:
2851: if (longueur_effective == -1)
2852: {
2853: free(tampon_lecture);
2854: liberation(s_etat_processus, s_objet_argument_1);
2855:
2856: (*s_etat_processus).erreur_execution =
2857: d_ex_erreur_acces_fichier;
2858: return;
2859: }
2860:
2861: if (longueur_effective == longueur_questure)
2862: {
2863: free(tampon_lecture);
2864: longueur_questure *= 2;
2865: }
2866: } while(longueur_effective == longueur_questure);
2867:
2868: longueur_enregistrement = 1;
2869:
2870: for(i = 0; i < longueur_effective; i++)
2871: {
2872: if (isprint(tampon_lecture[i]) != 0)
2873: {
2874: longueur_enregistrement += 4;
2875: }
2876: else
2877: {
2878: longueur_enregistrement++;
2879: }
2880: }
2881:
2882: /*
2883: * Création de la liste de sortie
2884: */
2885:
2886: if ((s_objet_type = allocation(s_etat_processus, CHN)) == NULL)
2887: {
2888: (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
2889: return;
2890: }
2891:
2892: if (((*s_objet_type).objet = malloc(longueur_enregistrement *
2893: sizeof(unsigned char))) == NULL)
2894: {
2895: (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
2896: return;
2897: }
2898:
2899: ptr = (*s_objet_type).objet;
2900:
2901: for(i = 0; i < longueur_effective; i++)
2902: {
2903: if (isprint(tampon_lecture[i]) != 0)
2904: {
2905: (*ptr) = tampon_lecture[i];
2906: ptr++;
2907: }
2908: else
2909: {
2910: (*ptr) = '\\';
2911: ptr++;
2912: (*ptr) = 'x';
2913: ptr++;
2914: sprintf(ptr, "%02X", tampon_lecture[i]);
2915: ptr += 2;
2916: }
2917: }
2918:
2919: (*ptr) = d_code_fin_chaine;
2920:
2921: if ((s_objet_resultat = allocation(s_etat_processus, LST))
2922: == NULL)
2923: {
2924: (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
2925: return;
2926: }
2927:
2928: if (((*s_objet_resultat).objet =
2929: allocation_maillon(s_etat_processus)) == NULL)
2930: {
2931: (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
2932: return;
2933: }
2934:
2935: (*((struct_liste_chainee *) (*s_objet_resultat).objet))
2936: .donnee = s_objet_type;
2937:
2938: if (((*((struct_liste_chainee *) (*s_objet_resultat).objet))
2939: .suivant = allocation_maillon(s_etat_processus)) == NULL)
2940: {
2941: (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
2942: return;
2943: }
2944:
2945: (*(*((struct_liste_chainee *) (*s_objet_resultat).objet)).suivant)
2946: .suivant = NULL;
2947:
2948: if ((s_objet_adresse = allocation(s_etat_processus, LST))
2949: == NULL)
2950: {
2951: (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
2952: return;
2953: }
2954:
2955: (*(*((struct_liste_chainee *) (*s_objet_resultat).objet)).suivant)
2956: .donnee = s_objet_adresse;
2957:
2958: /*
2959: * Les informations concernant la cible sont valides si
1.30 bertrand 2960: * la socket est non connectée et que les domaines sont
2961: * INET ou INET6.
1.28 bertrand 2962: * Dans tous les autres cas, on renvoie une liste vide.
2963: */
2964:
2965: if (((*((struct_socket *) (*s_objet_argument_1).objet)).domaine
2966: == PF_UNIX) || (strcmp((*((struct_socket *)
2967: (*s_objet_argument_1).objet)).type, "STREAM") == 0) ||
2968: (strcmp((*((struct_socket *) (*s_objet_argument_1).objet))
2969: .type, "SEQUENTIAL DATAGRAM") == 0))
2970: {
1.30 bertrand 2971: // POSITION_FINALE peut être utilisée sans être initialisée !
2972: // virer position_finale pour longueur_effective
1.28 bertrand 2973: longueur_adresse = 0;
2974: recvfrom((*((struct_socket *)
2975: (*s_objet_argument_1).objet)).socket, tampon_lecture,
2976: position_finale, MSG_DONTWAIT,
2977: NULL, &longueur_adresse);
2978:
2979: (*s_objet_adresse).objet = NULL;
2980: }
2981: else if ((*((struct_socket *) (*s_objet_argument_1).objet))
2982: .domaine == PF_INET)
2983: {
2984: longueur_adresse = sizeof(adresse_ipv4);
2985: recvfrom((*((struct_socket *)
2986: (*s_objet_argument_1).objet)).socket, tampon_lecture,
2987: position_finale, MSG_DONTWAIT,
2988: (struct sockaddr *) &adresse_ipv4, &longueur_adresse);
2989:
2990: if (((*s_objet_adresse).objet =
2991: allocation_maillon(s_etat_processus)) == NULL)
2992: {
2993: (*s_etat_processus).erreur_systeme =
2994: d_es_allocation_memoire;
2995: return;
2996: }
2997:
2998: if (((*((struct_liste_chainee *) (*s_objet_adresse).objet))
2999: .donnee = allocation(s_etat_processus, VIN)) == NULL)
3000: {
3001: (*s_etat_processus).erreur_systeme =
3002: d_es_allocation_memoire;
3003: return;
3004: }
3005:
3006: (*((struct_vecteur *) (*(*((struct_liste_chainee *)
3007: (*s_objet_adresse).objet)).donnee).objet)).taille = 4;
3008:
3009: if (((*((struct_vecteur *) (*(*((struct_liste_chainee *)
3010: (*s_objet_adresse).objet)).donnee).objet)).tableau =
3011: malloc(4 * sizeof(integer8))) == NULL)
3012: {
3013: (*s_etat_processus).erreur_systeme =
3014: d_es_allocation_memoire;
3015: return;
3016: }
3017:
3018: ((integer8 *) (*((struct_vecteur *)
3019: (*(*((struct_liste_chainee *) (*s_objet_adresse)
3020: .objet)).donnee).objet)).tableau)[0] =
3021: (ntohl(adresse_ipv4.sin_addr.s_addr) >> 24) & 0xFF;
3022: ((integer8 *) (*((struct_vecteur *)
3023: (*(*((struct_liste_chainee *) (*s_objet_adresse)
3024: .objet)).donnee).objet)).tableau)[1] =
3025: (ntohl(adresse_ipv4.sin_addr.s_addr) >> 16) & 0xFF;
3026: ((integer8 *) (*((struct_vecteur *)
3027: (*(*((struct_liste_chainee *) (*s_objet_adresse)
3028: .objet)).donnee).objet)).tableau)[2] =
3029: (ntohl(adresse_ipv4.sin_addr.s_addr) >> 8) & 0xFF;
3030: ((integer8 *) (*((struct_vecteur *)
3031: (*(*((struct_liste_chainee *) (*s_objet_adresse)
3032: .objet)).donnee).objet)).tableau)[3] =
3033: ntohl(adresse_ipv4.sin_addr.s_addr) & 0xFF;
3034:
3035: if (((*((struct_liste_chainee *) (*s_objet_adresse).objet))
3036: .suivant = allocation_maillon(s_etat_processus))
3037: == NULL)
3038: {
3039: (*s_etat_processus).erreur_systeme =
3040: d_es_allocation_memoire;
3041: return;
3042: }
3043:
3044: if (((*(*((struct_liste_chainee *) (*s_objet_adresse).objet))
3045: .suivant).donnee = allocation(s_etat_processus, INT))
3046: == NULL)
3047: {
3048: (*s_etat_processus).erreur_systeme =
3049: d_es_allocation_memoire;
3050: return;
3051: }
3052:
3053: (*((integer8 *) (*(*(*((struct_liste_chainee *)
3054: (*s_objet_adresse).objet)).suivant).donnee).objet)) =
3055: (integer8) ntohs(adresse_ipv4.sin_port);
3056:
3057: (*(*((struct_liste_chainee *) (*s_objet_adresse).objet))
3058: .suivant).suivant = NULL;
3059: }
3060: else if ((*((struct_socket *) (*s_objet_argument_1).objet))
3061: .domaine == PF_INET6)
3062: {
3063: # ifdef IPV6
3064: longueur_adresse = sizeof(adresse_ipv6);
3065: recvfrom((*((struct_socket *)
3066: (*s_objet_argument_1).objet)).socket, tampon_lecture,
3067: position_finale, MSG_DONTWAIT,
3068: (struct sockaddr *) &adresse_ipv6, &longueur_adresse);
3069:
3070: if (((*s_objet_adresse).objet =
3071: allocation_maillon(s_etat_processus)) == NULL)
3072: {
3073: (*s_etat_processus).erreur_systeme =
3074: d_es_allocation_memoire;
3075: return;
3076: }
3077:
3078: if (((*((struct_liste_chainee *) (*s_objet_adresse).objet))
3079: .donnee = allocation(s_etat_processus, VIN)) == NULL)
3080: {
3081: (*s_etat_processus).erreur_systeme =
3082: d_es_allocation_memoire;
3083: return;
3084: }
3085:
3086: (*((struct_vecteur *) (*(*((struct_liste_chainee *)
3087: (*s_objet_adresse).objet)).donnee).objet)).taille = 16;
3088:
3089: if (((*((struct_vecteur *) (*(*((struct_liste_chainee *)
3090: (*s_objet_adresse).objet)).donnee).objet)).tableau =
3091: malloc(16 * sizeof(integer8))) == NULL)
3092: {
3093: (*s_etat_processus).erreur_systeme =
3094: d_es_allocation_memoire;
3095: return;
3096: }
3097:
3098: for(i = 0; i < 16; i++)
3099: {
3100: ((integer8 *) (*((struct_vecteur *)
3101: (*(*((struct_liste_chainee *) (*s_objet_adresse)
3102: .objet)).donnee).objet)).tableau)[0] =
3103: adresse_ipv6.sin6_addr.s6_addr[i];
3104: }
3105:
3106: if (((*((struct_liste_chainee *) (*s_objet_adresse).objet))
3107: .suivant = allocation_maillon(s_etat_processus))
3108: == NULL)
3109: {
3110: (*s_etat_processus).erreur_systeme =
3111: d_es_allocation_memoire;
3112: return;
3113: }
3114:
3115: if (((*(*((struct_liste_chainee *) (*s_objet_adresse).objet))
3116: .suivant).donnee = allocation(s_etat_processus, INT))
3117: == NULL)
3118: {
3119: (*s_etat_processus).erreur_systeme =
3120: d_es_allocation_memoire;
3121: return;
3122: }
3123:
3124: (*((integer8 *) (*(*(*((struct_liste_chainee *)
3125: (*s_objet_adresse).objet)).suivant).donnee).objet)) =
3126: (integer8) ntohs(adresse_ipv6.sin6_port);
3127:
3128: (*(*((struct_liste_chainee *) (*s_objet_adresse).objet))
3129: .suivant).suivant = NULL;
3130: # else
3131: if ((*s_etat_processus).langue == 'F')
3132: {
3133: printf("+++Attention : Support du protocole"
3134: " IPv6 indisponible\n");
3135: }
3136: else
3137: {
3138: printf("+++Warning : IPv6 support "
3139: "unavailable\n");
3140: }
3141: # endif
3142: }
3143: else
3144: {
3145: longueur_adresse = 0;
3146: recvfrom((*((struct_socket *)
3147: (*s_objet_argument_1).objet)).socket, tampon_lecture,
3148: position_finale, MSG_DONTWAIT,
3149: NULL, &longueur_adresse);
3150: }
3151:
3152: free(tampon_lecture);
3153:
3154: if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
3155: s_objet_resultat) == d_erreur)
3156: {
3157: return;
3158: }
1.1 bertrand 3159: }
3160: }
3161: else
3162: {
3163: (*s_etat_processus).erreur_execution = d_ex_erreur_type_argument;
3164: return;
3165: }
3166:
1.6 bertrand 3167: liberation(s_etat_processus, s_objet_argument_1);
1.1 bertrand 3168:
3169: return;
3170: }
3171:
3172: // vim: ts=4