|
Revision 389, 1.2 kB
(checked in by heitor.barbieri, 3 weeks ago)
|
|
essage first commit
|
| Line | |
|---|
| 1 | |
|---|
| 2 | |
|---|
| 3 | /* Begin PROCXDECOREC |
|---|
| 4 | */ |
|---|
| 5 | #if PROCXDECOREC |
|---|
| 6 | if (strncmp(p,"decod=",6) == 0) { |
|---|
| 7 | DBXSTRU *dbxp; |
|---|
| 8 | char namedbx[CIMPL+1]; |
|---|
| 9 | #if !CICPP |
|---|
| 10 | LONGX dwrec; |
|---|
| 11 | #endif |
|---|
| 12 | char *q1,*q2; |
|---|
| 13 | p+=6; |
|---|
| 14 | for (q2=namedbx, *q2++=';', q1=p; *q1; q1++) if (*q1 == ',') break; else *q2++ = *q1; |
|---|
| 15 | *q2='\0'; |
|---|
| 16 | dbxp=dbxstorp(namedbx); |
|---|
| 17 | if (!DBXvderp) { /* first gizmo definition */ |
|---|
| 18 | #if CICPP |
|---|
| 19 | recdecod(cisisxp,recp,p); |
|---|
| 20 | #else |
|---|
| 21 | for (dwrec=maxnrec; dwrec--; ) { |
|---|
| 22 | if (!vrecp[dwrec]) /* ja' decrementado */ break; |
|---|
| 23 | } |
|---|
| 24 | if (dwrec < 0) fatal("fldupdat/procx/G/dwrec"); |
|---|
| 25 | recdecod(irec,p,dwrec); |
|---|
| 26 | if (dwrec >= 0) if (vrecp[dwrec]) { |
|---|
| 27 | FREE(vrecp[dwrec]); vrecp[dwrec]=NULL; nrecs--; |
|---|
| 28 | } |
|---|
| 29 | #endif |
|---|
| 30 | } |
|---|
| 31 | /* dbxp=dbxstorp(namedbx); dbxflush'ed in gizmread */ |
|---|
| 32 | #if CICPP |
|---|
| 33 | recdecex(cisisxp,recp); |
|---|
| 34 | #else |
|---|
| 35 | recdecex(irec); |
|---|
| 36 | #endif /* CICPP */ |
|---|
| 37 | |
|---|
| 38 | return NULL; //isgdump=1; |
|---|
| 39 | |
|---|
| 40 | } |
|---|
| 41 | else |
|---|
| 42 | #endif /* PROCXDECOREC */ |
|---|
| 43 | /* End PROCXDECOREC |
|---|
| 44 | */ |
|---|
