/[gcl]/gcl/o/sequence.d
ViewVC logotype

Diff of /gcl/o/sequence.d

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11 by camm, Sat Jul 23 08:54:56 2005 UTC revision 1.12 by camm, Wed Sep 7 02:58:02 2005 UTC
# Line 269  E: Line 269  E:
269                  array_allocself(x, FALSE,0);                  array_allocself(x, FALSE,0);
270                  switch (sequence->v.v_elttype) {                  switch (sequence->v.v_elttype) {
271                  case aet_object:                  case aet_object:
                 case aet_fix:  
                 case aet_sf:  
272                          for (i = s, j = 0;  i < e;  i++, j++)                          for (i = s, j = 0;  i < e;  i++, j++)
273                                  x->v.v_self[j] = sequence->v.v_self[i];                                  x->v.v_self[j] = sequence->v.v_self[i];
274                          break;                          break;
# Line 281  E: Line 279  E:
279                                  sequence->lfa.lfa_self[i];                                  sequence->lfa.lfa_self[i];
280                          break;                          break;
281    
282                    case aet_sf:
283                            for (i = s, j = 0;  i < e;  i++, j++)
284                                    x->sfa.sfa_self[j] =
285                                    sequence->sfa.sfa_self[i];
286                            break;
287    
288                    case aet_nnfix:
289                    case aet_fix:
290                            for (i = s, j = 0;  i < e;  i++, j++)
291                                    x->fixa.fixa_self[j] =
292                                    sequence->fixa.fixa_self[i];
293                            break;
294    
295                  case aet_short:                  case aet_short:
296                    case aet_nnshort:
297                  case aet_ushort:                  case aet_ushort:
298                          for (i = s, j = 0;  i < e;  i++, j++)                          for (i = s, j = 0;  i < e;  i++, j++)
299                                  USHORT_GCL(x, j) = USHORT_GCL(sequence, i);                                  USHORT_GCL(x, j) = USHORT_GCL(sequence, i);
300                          break;                          break;
301                  case aet_char:                  case aet_char:
302                    case aet_nnchar:
303                  case aet_uchar:                  case aet_uchar:
304                          for (i = s, j = 0;  i < e;  i++, j++)                            for (i = s, j = 0;  i < e;  i++, j++)  
305                            x->st.st_self[j] = sequence->st.st_self[i];                            x->st.st_self[j] = sequence->st.st_self[i];
# Line 424  object seq; Line 437  object seq;
437                  array_allocself(y, FALSE,0);                  array_allocself(y, FALSE,0);
438                  switch (x->v.v_elttype) {                  switch (x->v.v_elttype) {
439                  case aet_object:                  case aet_object:
                 case aet_fix:  
                 case aet_sf:  
440                          for (j = k - 1, i = 0;  j >=0;  --j, i++)                          for (j = k - 1, i = 0;  j >=0;  --j, i++)
441                                  y->v.v_self[j] = x->v.v_self[i];                                  y->v.v_self[j] = x->v.v_self[i];
442                          break;                          break;
# Line 435  object seq; Line 446  object seq;
446                                  y->lfa.lfa_self[j] = x->lfa.lfa_self[i];                                  y->lfa.lfa_self[j] = x->lfa.lfa_self[i];
447                          break;                          break;
448    
449                    case aet_sf:
450                            for (j = k - 1, i = 0;  j >=0;  --j, i++)
451                                    y->sfa.sfa_self[j] = x->sfa.sfa_self[i];
452                            break;
453    
454                    case aet_fix:
455                    case aet_nnfix:
456                            for (j = k - 1, i = 0;  j >=0;  --j, i++)
457                                    y->fixa.fixa_self[j] = x->fixa.fixa_self[i];
458                            break;
459    
460                  case aet_short:                  case aet_short:
461                    case aet_nnshort:
462                  case aet_ushort:                  case aet_ushort:
463                          for (j = k - 1, i = 0;  j >=0;  --j, i++)                          for (j = k - 1, i = 0;  j >=0;  --j, i++)
464                                  USHORT_GCL(y, j) = USHORT_GCL(x, i);                                  USHORT_GCL(y, j) = USHORT_GCL(x, i);
465                          break;                          break;
466                  case aet_char:                  case aet_char:
467                    case aet_nnchar:
468                  case aet_uchar:                  case aet_uchar:
469                      goto TYPE_STRING;                      goto TYPE_STRING;
470                  }                  }
# Line 518  object seq; Line 542  object seq;
542                  k = x->v.v_fillp;                  k = x->v.v_fillp;
543                  switch (x->v.v_elttype) {                  switch (x->v.v_elttype) {
544                  case aet_object:                  case aet_object:
                 case aet_fix:  
                 case aet_sf:  
545                          for (i = 0, j = k - 1;  i < j;  i++, --j) {                          for (i = 0, j = k - 1;  i < j;  i++, --j) {
546                                  y = x->v.v_self[i];                                  y = x->v.v_self[i];
547                                  x->v.v_self[i] = x->v.v_self[j];                                  x->v.v_self[i] = x->v.v_self[j];
# Line 536  object seq; Line 558  object seq;
558                          }                          }
559                          return(seq);                          return(seq);
560    
561                    case aet_sf:
562                            for (i = 0, j = k - 1;  i < j;  i++, --j) {
563                                    shortfloat y;
564                                    y = x->sfa.sfa_self[i];
565                                    x->sfa.sfa_self[i] = x->sfa.sfa_self[j];
566                                    x->sfa.sfa_self[j] = y;
567                            }
568                            return(seq);
569    
570                    case aet_fix:
571                    case aet_nnfix:
572                            for (i = 0, j = k - 1;  i < j;  i++, --j) {
573                                    fixnum y;
574                                    y = x->fixa.fixa_self[i];
575                                    x->fixa.fixa_self[i] = x->fixa.fixa_self[j];
576                                    x->fixa.fixa_self[j] = y;
577                            }
578                            return(seq);
579    
580                  case aet_short:                  case aet_short:
581                    case aet_nnshort:
582                  case aet_ushort:                  case aet_ushort:
583                          for (i = 0, j = k - 1;  i < j;  i++, --j) {                          for (i = 0, j = k - 1;  i < j;  i++, --j) {
584                                  unsigned short y;                                  unsigned short y;
# Line 546  object seq; Line 588  object seq;
588                          }                          }
589                          return(seq);                          return(seq);
590                  case aet_char:                  case aet_char:
591                    case aet_nnchar:
592                  case aet_uchar:                  case aet_uchar:
593                      goto TYPE_STRING;                      goto TYPE_STRING;
594                  }                  }

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26