Ignore:
Timestamp:
Mar 18, 2008, 9:36:56 PM (14 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/chars.cpp

    r123 r124  
    4242};
    4343
    44 /*                             "start_still_jump","still_jump","still_jump_fall","end_still_jump",
    45 
    46                                "morph_pose",
    47                                
    48                                "walking",
    49                                
    50 
    51                                "weapon_draw",
    52                                "weapon_put_away",
    53                                "weapon_fire",
    54                                "weapon_end_fire",
    55                                "weapon_fire_up",
    56                                "weapon_end_fire_up",
    57 
    58                                "blocking",
    59                                "block_recoil",
    60 
    61                                "turn_around",
    62                                "flinch_up","flinch_down","flinch_back",
    63                                "flinch_air","flinch_ground","flinch_getup","woze",
    64                                "stance"
    65                              } ; */
     44/*                   "start_still_jump","still_jump","still_jump_fall","end_still_jump",
     45
     46                   "morph_pose",
     47            
     48                   "walking",
     49            
     50
     51                   "weapon_draw",
     52                   "weapon_put_away",
     53                   "weapon_fire",
     54                   "weapon_end_fire",
     55                   "weapon_fire_up",
     56                   "weapon_end_fire_up",
     57
     58                   "blocking",
     59                   "block_recoil",
     60
     61                   "turn_around",
     62                   "flinch_up","flinch_down","flinch_back",
     63                   "flinch_air","flinch_ground","flinch_getup","woze",
     64                   "stance"
     65                 } ; */
    6666
    6767
     
    104104    }
    105105    num=lnumber_value(val);
    106   } else 
     106  } else
    107107  {
    108108    num=ts;
     
    118118    lprint(symbol);
    119119    lbreak("symbol has been assigned value %d, but value already in use by state %s\n"
    120            "use a different symbol for this state\n",
    121            lstring_value(symbol_name(seq_syms[num])));
     120       "use a different symbol for this state\n",
     121       lstring_value(symbol_name(seq_syms[num])));
    122122    exit(0);
    123123  } else if (num>=ts)
    124124  {
    125     seq=(sequence **)jrealloc(seq,sizeof(sequence *)*(num+1),"state list");   
    126     seq_syms=(void **)jrealloc(seq_syms,sizeof(void *)*(num+1),"state sym list");   
     125    seq=(sequence **)jrealloc(seq,sizeof(sequence *)*(num+1),"state list");
     126    seq_syms=(void **)jrealloc(seq_syms,sizeof(void *)*(num+1),"state sym list");
    127127
    128128    memset(&seq[ts],0,sizeof(sequence *)*((num+1)-ts));
     
    162162  if (seq[which])
    163163    delete seq[which];
    164   seq[which]=new_seq; 
    165 } 
     164  seq[which]=new_seq;
     165}
    166166
    167167void *l_obj_get(long number) // exten lisp function switches on number
     
    173173    return 0;
    174174  }
    175   return new_lisp_number(current_object->lvars[t->var_index[number]]); 
     175  return new_lisp_number(current_object->lvars[t->var_index[number]]);
    176176}
    177177
     
    195195    return;
    196196  }
    197   dprintf("%d",current_object->lvars[t->var_index[number]]); 
     197  dprintf("%d",current_object->lvars[t->var_index[number]]);
    198198}
    199199
     
    214214    {
    215215      if (vars[index])
    216       {       
    217         lbreak("While defining object %s :\n"
    218                "  var '%s' was previously defined by another\n"
    219                "  with index %d, but %s has a var listed '%s' with same index\n"
    220                "  try moving definition of %s before previously declared object",
    221                lstring_value(symbol_name(name)),
    222                lstring_value(symbol_name(symbol)),
    223                index,
    224                lstring_value(symbol_name(name)),
    225                lstring_value(symbol_name(vars[index])),
    226                lstring_value(symbol_name(name))
    227                );
    228         exit(0);
    229       } else 
    230       {
    231         var_index[index]=tv;
    232         vars[index]=symbol;
    233         tv++;
     216      {
     217    lbreak("While defining object %s :\n"
     218           "  var '%s' was previously defined by another\n"
     219           "  with index %d, but %s has a var listed '%s' with same index\n"
     220           "  try moving definition of %s before previously declared object",
     221           lstring_value(symbol_name(name)),
     222           lstring_value(symbol_name(symbol)),
     223           index,
     224           lstring_value(symbol_name(name)),
     225           lstring_value(symbol_name(vars[index])),
     226           lstring_value(symbol_name(name))
     227           );
     228    exit(0);
     229      } else
     230      {
     231    var_index[index]=tv;
     232    vars[index]=symbol;
     233    tv++;
    234234      }
    235235    } else
     
    245245      vars[index]=symbol;
    246246      tv++;
    247     }   
     247    }
    248248  } else  /** Nope, looks like we have to add the variable ourself and define the assesor funs */
    249249  {
     
    267267
    268268    add_c_object(symbol,free_index);
    269    
     269
    270270    vars[free_index]=symbol;
    271271    var_index[free_index]=tv;
     
    285285  }
    286286  for (i=0;i<tiv;i++)
    287     if (!strcmp(lstring_value(symbol_name(vars[i])),name)) 
     287    if (!strcmp(lstring_value(symbol_name(vars[i])),name))
    288288      return 1;
    289289  return 0;
    290290}
    291291
    292 character_type::character_type(void *args, void *name) 
     292character_type::character_type(void *args, void *name)
    293293{
    294294  p_ref r2(args);
     
    322322
    323323  for (i=0;i<TOTAL_ABILITIES;i++)
    324     abil[i]=get_ability_default((ability)i);         
     324    abil[i]=get_ability_default((ability)i);
    325325  void *field=args;
    326326  p_ref r7(field);
     
    329329    void *f=CAR(CAR(field));
    330330    p_ref r1(f);
    331    
     331
    332332    if (f==l_abil)
    333333    {
     
    336336      for (i=0;i<TOTAL_ABILITIES;i++)
    337337      {
    338         Cell *ab=assoc(make_find_symbol(ability_names[i]),l);
    339         p_ref r5(ab);
    340         if (!NILP(ab))
    341           abil[i]=lnumber_value(eval(lcar(lcdr(ab))));
     338    Cell *ab=assoc(make_find_symbol(ability_names[i]),l);
     339    p_ref r5(ab);
     340    if (!NILP(ab))
     341      abil[i]=lnumber_value(eval(lcar(lcdr(ab))));
    342342      }
    343343    } else if (f==l_funs)
     
    347347      for (i=0;i<TOTAL_OFUNS;i++)
    348348      {
    349         Cell *ab=assoc(make_find_symbol(ofun_names[i]),l);
    350         p_ref r5(ab);
    351         if (!NILP(ab) && lcar(lcdr(ab)))
    352         fun_table[i]=lcar(lcdr(ab));
     349    Cell *ab=assoc(make_find_symbol(ofun_names[i]),l);
     350    p_ref r5(ab);
     351    if (!NILP(ab) && lcar(lcdr(ab)))
     352    fun_table[i]=lcar(lcdr(ab));
    353353      }
    354354    } else if (f==l_flags)
     
    358358      for (i=0;i<TOTAL_CFLAGS;i++)
    359359      {
    360         Cell *ab=assoc(make_find_symbol(cflag_names[i]),l);
    361         p_ref r5(ab);
    362         if (!NILP(ab) && eval(lcar(lcdr(ab))))
    363         cflags|=(1<<i);
    364       }
    365      
     360    Cell *ab=assoc(make_find_symbol(cflag_names[i]),l);
     361    p_ref r5(ab);
     362    if (!NILP(ab) && eval(lcar(lcdr(ab))))
     363    cflags|=(1<<i);
     364      }
     365
    366366      if (get_cflag(CFLAG_IS_WEAPON))  // if this is a weapon add to weapon array
    367367      {
    368         total_weapons++;
    369         weapon_types=(int *)jrealloc(weapon_types,sizeof(int)*total_weapons,"weapon map");
    370         weapon_types[total_weapons-1]=total_objects;
     368    total_weapons++;
     369    weapon_types=(int *)jrealloc(weapon_types,sizeof(int)*total_weapons,"weapon map");
     370    weapon_types[total_weapons-1]=total_objects;
    371371      }
    372372    } else if (f==l_range)
     
    386386      while (l)
    387387      {
    388           int index;
    389           void *e;
    390           sequence *mem;
    391           index = add_state(CAR((CAR(l))));
    392           e = eval(CAR(CDR(CAR(l))));
    393           mem = new sequence(fn,e,NULL);
    394         seq[index]=mem;
    395         l=CDR(l);
    396       } 
     388      int index;
     389      void *e;
     390      sequence *mem;
     391      index = add_state(CAR((CAR(l))));
     392      e = eval(CAR(CDR(CAR(l))));
     393      mem = new sequence(fn,e,NULL);
     394    seq[index]=mem;
     395    l=CDR(l);
     396      }
    397397    } else if (f==l_fields)
    398398    {
     
    401401      while (!NILP(mf))
    402402      {
    403         char *real=lstring_value(eval(lcar(lcar(mf))));
    404         char *fake=lstring_value(eval(lcar(lcdr(lcar(mf)))));
    405         if (!isa_var_name(real))
    406         {
    407           lprint(field);
    408           lbreak("fields : no such var name \"%s\"\n",name);
    409           exit(0);
    410         }
    411         total_fields++;
    412 
    413         fields=(named_field **)jrealloc(fields,sizeof(named_field *)*total_fields,"named_fields");
    414         fields[total_fields-1]=new named_field(real,fake);
    415         mf=lcdr(mf);
     403    char *real=lstring_value(eval(lcar(lcar(mf))));
     404    char *fake=lstring_value(eval(lcar(lcdr(lcar(mf)))));
     405    if (!isa_var_name(real))
     406    {
     407      lprint(field);
     408      lbreak("fields : no such var name \"%s\"\n",name);
     409      exit(0);
     410    }
     411    total_fields++;
     412
     413    fields=(named_field **)jrealloc(fields,sizeof(named_field *)*total_fields,"named_fields");
     414    fields[total_fields-1]=new named_field(real,fake);
     415    mf=lcdr(mf);
    416416      }
    417417    } else if (f==l_logo)
     
    426426      while (l)
    427427      {
    428         add_var(CAR(l),name);
    429         l=CDR(l);
    430       }       
     428    add_var(CAR(l),name);
     429    l=CDR(l);
     430      }
    431431    }
    432432    else
     
    435435      lbreak("Unknown field for character definition");
    436436      exit(0);
    437     }   
     437    }
    438438  }
    439439
    440440  if (!seq[stopped])
    441441    lbreak("object (%s) has no stopped state, please define one!\n",
    442            lstring_value(symbol_name(name)));
     442       lstring_value(symbol_name(name)));
    443443
    444444/*  char *fn=lstring_value(lcar(desc));
     
    465465    printf("missing state state art in def-character (%s)\n",name);
    466466    exit(0);
    467   } 
    468  
     467  }
     468
    469469  sa=lcdr(sa);   // list of state sequences
    470470  while (!NILP(sa))
    471471  {
    472472    int num=lnumber_value(lcar(lcar(sa)));
    473     if (seq[num])   
     473    if (seq[num])
    474474      printf("Warning : state '%s' defined multiply for object %s\n"
    475              "          using first definition\n",state_names[num],name);
    476     else   
     475         "          using first definition\n",state_names[num],name);
     476    else
    477477      seq[lnumber_value(lcar(lcar(sa)))]=new sequence(fn,lcar(lcdr(lcar(sa))),lcar(lcdr(lcdr(lcar(sa)))));
    478     sa=lcdr(sa);   
     478    sa=lcdr(sa);
    479479  }
    480480
     
    483483  {
    484484    rangex=lnumber_value(lcar(lcdr(range)));
    485     rangey=lnumber_value(lcar(lcdr(lcdr(range)))); 
    486   } else 
     485    rangey=lnumber_value(lcar(lcdr(lcdr(range))));
     486  } else
    487487  {
    488488    rangex=100;
     
    504504      for (int i=0;find<0 && i<t;i++)
    505505        if (!strcmp(default_simple.var_name(i),name))
    506           find=i;
     506      find=i;
    507507      if (find<0)
    508508      {
    509         lprint(assoc(l_fields,desc));
    510         printf("fields : no such var name \"%s\"\n",name);
    511         printf("current possiblities are : \n");
    512         for (int i=0;i<t;i++) printf("\"%s\" ",default_simple.var_name(i));
    513         printf("\n");
    514         exit(0);
    515       } 
     509    lprint(assoc(l_fields,desc));
     510    printf("fields : no such var name \"%s\"\n",name);
     511    printf("current possiblities are : \n");
     512    for (int i=0;i<t;i++) printf("\"%s\" ",default_simple.var_name(i));
     513    printf("\n");
     514    exit(0);
     515      }
    516516      char *new_name=lstring_value(lcar(lcdr(lcar(mf))));
    517517      total_fields++;
     
    525525
    526526  Cell *lg=assoc(l_logo,desc);
    527   if (NILP(lg)) 
     527  if (NILP(lg))
    528528  {
    529529    if (get_cflag(CFLAG_IS_WEAPON))
     
    531531      lprint(desc);
    532532      lbreak("object must have a logo defined if it is a weapon\n"
    533              "example '(logo . (""art/misc.spe"" . ""big waepon""))\n");
     533         "example '(logo . (""art/misc.spe"" . ""big waepon""))\n");
    534534    }
    535535    logo=-1;
    536536  }
    537   else 
    538     logo=cache.reg_object(fn,lcdr(lg),SPEC_IMAGE,1); 
     537  else
     538    logo=cache.reg_object(fn,lcdr(lg),SPEC_IMAGE,1);
    539539    */
    540540}
     
    551551character_type::~character_type()
    552552{
    553   for (int i=0;i<ts;i++) 
    554     if (seq[i]) 
     553  for (int i=0;i<ts;i++)
     554    if (seq[i])
    555555      delete seq[i];
    556556  if (ts) jfree(seq);
     
    565565  if (ts)
    566566    jfree(seq_syms);
    567  
     567
    568568  if (tiv)
    569569  {
Note: See TracChangeset for help on using the changeset viewer.