Subversion Repositories 1664

#include "cpu_1664.h"

struct lista * cpu_1664_asm_lista_parametre__cadena(n1 *cadena)

{

 const n1 sinia[] = {cpu_1664_asm_table_sinia};

 const n1 table_clui[] = {cpu_1664_asm_table_clui};

 struct lista *lista=lista_nova(128);

 struct lista *lista_;

 n1 *cadena_;

 nN cuantia;

 while(1)

 {

  switch(*cadena)

  {

   case 0x00: // *** sin "nN cuantia"

   case 0x0a:

   case cpu_1664_asm_sinia_comenta:

   case '>':

   case '}':

   case ')':

   case ']':

    return lista;

   case 0x09:

   case ' ':

    cadena++;

    break;

   case '\'':

   case '"':

   case '<':

   case '{':

   case '(':

   case '[':

    cuantia=nN_cuantia_brasetida__cadena(cadena, *cadena, table_clui[*cadena]);

    lista_=lista_nova(0);

    lista_ajunta__datos(lista_, cadena, cuantia);

    lista_ajunta__P(lista, (P)lista_);

    cadena+=cuantia;

    break;

   default:

    lista_=lista_nova(0);

    for(cadena_=cadena;sinia[*cadena]==1;cadena++){}

    switch(*cadena)

    {

     case '{':

     case '(':

     case '[':

      cadena+=nN_cuantia_brasetida__cadena(cadena, *cadena, table_clui[*cadena]);

      break;

    }

    lista_ajunta__datos(lista_, cadena_, cadena-cadena_);

    lista_ajunta__P(lista, (P)lista_);

    break;

  }

 }

}