static int assignment (LexState *ls, struct LHS_assign *lh, int nvars,
lu_byte *from_var)
{
expdesc e;
int from = 0;
check_condition(ls, VLOCAL <= lh->v.k && lh->v.k <= VINDEXED,
"syntax error");
if (testnext(ls, ',')) { /* assignment -> `,' primaryexp assignment */
struct LHS_assign nv;
nv.prev = lh;
primaryexp(ls, &nv.v);
if (nv.v.k == VLOCAL)
check_conflict(ls, lh, &nv.v);
luaY_checklimit(ls->fs, nvars, LUAI_MAXCCALLS - ls->L->nCcalls,
"variables in assignment");
from = assignment(ls, &nv, nvars+1, from_var);
}
else { /* assignment -> IN primaryexp | `=' explist1 */
int nexps;
if (testnext(ls, TK_IN)) {
new_localvarliteral(ls, "(from)", 0);
primaryexp(ls, &e);
luaK_exp2nextreg(ls->fs, &e);
*from_var = ls->fs->nactvar;
adjustlocalvars(ls, 1);
luaK_setoneret(ls->fs, &e); /* close last expression */
getfrom(ls, &e, &lh->v);
luaK_storevar(ls->fs, &lh->v, &e);
return 1; /* avoid default */
}
else {
checknext(ls, '=');
nexps = explist1(ls, &e);
}
if (nexps == nvars) {
luaK_setoneret(ls->fs, &e); /* close last expression */
luaK_storevar(ls->fs, &lh->v, &e);
return 0; /* avoid default */
}
else {
adjust_assign(ls, nvars, nexps, &e);
if (nexps > nvars)
ls->fs->freereg -= nexps - nvars; /* remove extra values */
}
}
init_exp(&e, VNONRELOC, ls->fs->freereg-1); /* default assignment */
if (from) getfrom(ls, &e, &lh->v);
luaK_storevar(ls->fs, &lh->v, &e);
return from;
}
int main(int argc, char *argv[])
{
int a, i, novo=0;
char c;
int amax, amin;
double x2;
int last=0;
char str[TAM];
clock_t clock1, clock2, diffclock;
if(argc==2)
if(!strcmp(argv[1],"-n"))
novo=1;
printf("\nlibecoteste version v0.1.090902.000301\n\n");
if(!novo)
{
printf("Teste getch()\n");
c=getch();
printf("Char: %c ASCII: %d\n", c, c);
printf("Teste ok\n\n");
printf("Teste kbhit()\n");
clock1 = clock() / CLOCKS_PER_SEC;
clock2 = clock1;
diffclock = clock2 - clock1;
printf("Tecle algo no tempo de: ");
while(diffclock<10)
{
if((a=kbhit())) /* kbbuff() deprecated */
break;
clock2 = clock() / CLOCKS_PER_SEC;
diffclock = clock2 - clock1;
if(diffclock>last)
{
printf("%lus ", 10-diffclock);
last++;
}
fflush(stdout);
}
if(a)
printf("\nTecla disponivel no buffer\n");
else
printf("\nTecla nao pressionada\n");
printf("Teste ok\n\n");
printf("Teste min(3,2)\n");
printf("%d\n", min(3,2));
printf("Teste min(-3,-2)\n");
printf("%d\n", min(-3,-2));
printf("Teste ok\n\n");
printf("Teste kbwait(1000)\n");
//sleep(1);
printf("Tecle algo 10s\n");
a=kbwait(1000);
if(a)
printf("Tecla disponivel no buffer\n");
else
printf("Tecla nao pressionada\n");
printf("Teste ok\n\n");
printf("Teste getfrom(\"0a\")\n");
c=getfrom("0a");
if(c!='a' && c!='0')
printf("\nTeste FALHOU!\n\n");
else
printf("Teste ok\n\n");
printf("Teste rand_minmax(0,10) em 10000 iteracoes\n");
amax = -1;
amin = 11;
for(i=0; i<10000; i++)
{
a=rand_minmax(0, 10);
if(a>amax)
amax=a;
if(a<amin)
amin=a;
}
printf("max=%d, min=%d\n", amax, amin);
if(amax<10 && amin>=0)
printf("\nTeste ok\n\n");
else
printf("\nTeste FALHOU!\n\n");
printf("Teste x2=mudaintervalo(0.0, 50.0, 0.0, 100.0, 25.0)\n");
x2=mudaintervalo(0.0, 50.0, 0.0, 100.0, 25.0);
printf("x2: %f\n", x2);
if(x2!=50.0)
printf("\nTeste FALHOU!\n\n");
printf("Teste x2=mudaintervalo(0.0, 100.0, 0.0, 0.4, 50.0)\n");
x2=mudaintervalo(0.0, 100.0, 0.0, 0.4, 50.0);
printf("x2: %f\n", x2);
printf("\nTeste ok\n\n");
printf("Teste de limites dos tipos\n");
printf("--------------------------\n");
printf("unsigned %lu bits %lu bytes\n", sizeof(unsigned)*CHAR_BIT,(sizeof(unsigned)*CHAR_BIT)/8);
printf("max unsigned %u, min unsigned %u\n\n", UINT_MAX, 0);
printf("int %lu bits %lu bytes\n", sizeof(int) * CHAR_BIT, (sizeof(int) * CHAR_BIT)/8);
printf("max int %d, min int %d\n\n", INT_MAX, INT_MIN);
printf("long int %lu bits %lu bytes\n", sizeof(long) * CHAR_BIT, (sizeof(long) * CHAR_BIT)/8);
printf("max %ld, min %ld\n\n", (long)LONG_MAX, (long)LONG_MIN);
printf("long long int %lu bits %lu bytes\n\n", sizeof(long long) * CHAR_BIT, (sizeof(long long) * CHAR_BIT)/8);
// printf("max %d, min %d\n\n", LLONG_MAX, LLONG_MIN);
printf("float %lu bits %lu bytes\n", sizeof(float) * CHAR_BIT, (sizeof(float) * CHAR_BIT)/8);
printf("max, min float +-%f\n", (double)FLT_MAX);
printf("max float 10^%f-1 is valid\n", (double)FLT_MAX_10_EXP);
printf("min float 10^%f-1 is valid\n\n", (double)FLT_MIN_10_EXP);
printf("double %lu bits %lu bytes\n", sizeof(double) * CHAR_BIT, (sizeof(double) * CHAR_BIT)/8);
printf("max, min double +-%f\n", (double)DBL_MAX);
printf("max double 10^%f-1 is valid\n", (double)DBL_MAX_10_EXP);
printf("min double 10^%f-1 is valid\n\n", (double)DBL_MIN_10_EXP);
//FLT_MAX_EXP
//FLT_RADIX^FLT_MAX_EXP-1 is valid
//DBL_MAX_EXP
printf("FLT_ROUNDS: %d\n", FLT_ROUNDS);
printf("--------------------------\n");
printf("%f+%f=%f\n", 83484516925440.000000, 1.1, 83484516925440.000000+1.1);
x2=5000000000000.0;
x2+=1.1;
printf("x:%.15f\n", x2);
printf("%f+%f=%f\n", 340282346638528859811704183484516925440.0, 1.1, (double)((double)340282346638528859811704183484516925440.0+(double)1.1));
printf("\nchar getfrom(\"01923456789.-\\n\");");
printf("Press ENTER to end, or fill %d chars.\n", TAM-1);
i=0;
str[0]=str[TAM-1]='\0';
while(1)
{
a=getfrom("01923456789.-\n");
if(a>=32&&a<=127)
{
str[i]=a;
str[i+1]='\0';
printf("%c", a);
if(i==TAM-2)
break;
i++;
}
else if(a=='\n')
break;
}
printf("\ns='%s'\nlength: %lu\n", str, strlen(str));
printf("sizeof(s): %lu\n", sizeof(str));
printf("s[%d]:'%d'\n", TAM-1, str[TAM-1]);
printf("s[%d]:'%d'\n", TAM-2, str[TAM-2]);
printf("s[%d]:'%d'\n", TAM-3, str[TAM-3]);
printf("\nTeste ok\n\n");
}
printf("Teste chkpipe()\n");
printf("Teste nao implementado\n\n");
// printf("Teste ok\n\n");
printf("Fim dos testes\n");
printf("Nota: para compilar use: gcc libecoteste.c -o libecoteste\n\n");
}