Ignore:
Timestamp:
Mar 18, 2008, 9:36:56 PM (15 years ago)
Author:
Sam Hocevar
Message:
  • Get rid of ugly tabs and trailing spaces everywhere.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • abuse/trunk/src/lcache.cpp

    r56 r124  
    1818  int ret;
    1919  if (!level) ret=0;    // NULL pointers don't need to be stored
    20   else 
     20  else
    2121  {
    2222    int type=item_type(level);
    2323    if (type==L_CONS_CELL)
    2424    {
    25         long t=0;
    26         void *b=level;
    27         for (;b && item_type(b)==L_CONS_CELL;b=CDR(b))
    28         {
    29           t+=sizeof(cons_cell);
    30         }
    31         if (b) t+=block_size(b);
    32         for (b=level;b && item_type(b)==L_CONS_CELL;b=CDR(b))
    33           t+=block_size(CAR(b));
    34         ret=t;
     25    long t=0;
     26    void *b=level;
     27    for (;b && item_type(b)==L_CONS_CELL;b=CDR(b))
     28    {
     29      t+=sizeof(cons_cell);
     30    }
     31    if (b) t+=block_size(b);
     32    for (b=level;b && item_type(b)==L_CONS_CELL;b=CDR(b))
     33      t+=block_size(CAR(b));
     34    ret=t;
    3535    } else if (type== L_NUMBER)
    36     { ret=sizeof(lisp_number); } 
     36    { ret=sizeof(lisp_number); }
    3737    else if (type==L_CHARACTER)
    3838    { ret=sizeof(lisp_character); }
    3939    else if (type==L_STRING)
    40     { 
    41       ret=sizeof(lisp_string)+strlen(lstring_value(level))+1; 
     40    {
     41      ret=sizeof(lisp_string)+strlen(lstring_value(level))+1;
    4242      if (ret<8)
    4343        ret=8;
     
    7171    { long l=strlen(lstring_value(level))+1;
    7272      fp->write_uint32(l);
    73       fp->write(lstring_value(level),l); 
     73      fp->write(lstring_value(level),l);
    7474    } break;
    7575    case L_SYMBOL :
     
    8080      else
    8181      {
    82         long t=0;
    83         void *b=level;
    84         for (;b && item_type(b)==L_CONS_CELL;b=CDR(b)) t++;
    85         if (b)
    86         {
    87           fp->write_uint32(-t);      // negative number means dotted list
    88           write_level(fp,b);       // save end of dotted list     
    89         }
    90         else fp->write_uint32(t);
     82    long t=0;
     83    void *b=level;
     84    for (;b && item_type(b)==L_CONS_CELL;b=CDR(b)) t++;
     85    if (b)
     86    {
     87      fp->write_uint32(-t);      // negative number means dotted list
     88      write_level(fp,b);       // save end of dotted list
     89    }
     90    else fp->write_uint32(t);
    9191
    92         for (b=level;b && item_type(b)==L_CONS_CELL;b=CDR(b))   
    93           write_level(fp,CAR(b));
     92    for (b=level;b && item_type(b)==L_CONS_CELL;b=CDR(b))
     93      write_level(fp,CAR(b));
    9494      }
    9595    } break;
     
    101101  int type=fp->read_uint8();
    102102  switch (type)
    103   {   
     103  {
    104104    case L_NUMBER :
    105105    { return new_lisp_number(fp->read_uint32()); } break;
     
    120120      else
    121121      {
    122         long x=abs(t);
    123         cons_cell *last=NULL,*first=NULL;
    124         while (x)
    125         {
    126           cons_cell *c=new_cons_cell();
    127           if (first)
    128             last->cdr=c;
    129           else first=c;
    130           last=c;
    131           x--;
    132         }
    133         if (t<0)       
    134           last->cdr=load_block(fp);
    135         else last->cdr=NULL;
    136        
    137         for (last=first,x=0;x<abs(t);x++,last=(cons_cell *)last->cdr)       
    138           last->car=load_block(fp);     
    139         return first;
     122    long x=abs(t);
     123    cons_cell *last=NULL,*first=NULL;
     124    while (x)
     125    {
     126      cons_cell *c=new_cons_cell();
     127      if (first)
     128        last->cdr=c;
     129      else first=c;
     130      last=c;
     131      x--;
     132    }
     133    if (t<0)   
     134      last->cdr=load_block(fp);
     135    else last->cdr=NULL;
     136   
     137    for (last=first,x=0;x<abs(t);x++,last=(cons_cell *)last->cdr)
     138      last->car=load_block(fp);   
     139    return first;
    140140      }
    141141    }
Note: See TracChangeset for help on using the changeset viewer.