aplat

Documents structurés pour Unix
git clone git://git.asteride.xyz/~ldp/aplat.git
Journaux | Fichiers | Références | LISEZ-MOI | LICENCE

commit eb5b4feffcdb995088ee452ffb42950c57651a7f
parent fc484dbd9ae92525bd8907f7a908ae7dffc1f607
Auteur: Selve <selve@asteride.xyz>
Date:   Sat, 18 Nov 2023 17:37:53 -0500

uniformisation des identifiants

Diffstat:
Maplat.c | 116++++++++++++++++++++++++++++++++++++++++----------------------------------------
Mtampon.c | 4++--
Mtampon.h | 4++--
3 files changed, 62 insertions(+), 62 deletions(-)

diff --git a/aplat.c b/aplat.c @@ -4,19 +4,19 @@ #include "tampon.h" -#define TLL_ETQ 4096 /* taille initiale du tampon à étiquettes */ -#define TLL_TXT 4096 /* taille initiale du tampon à texte */ +#define TLL_ETQ 4096 /* taille initiale du tampon à étiquettes */ +#define TLL_CTN 4096 /* taille initiale du tampon à texte */ -#define DRAP_PARG 01 -#define DRAP_PARD 02 +#define DRAP_OUV 01 /* parenthèse ouvrante */ +#define DRAP_FRM 02 /* parenthèse fermante */ -#define TP_TYPE_ETQ 0 -#define TP_TYPE_TXT 1 +#define TP_TYPE_ETQ 0 /* tampon contenant des étiquettes */ +#define TP_TYPE_CTN 1 /* tampon contenant du « contenu » */ -#define JT_PARG 0 -#define JT_PARD 1 -#define JT_FICT 2 -#define JT_ATOM 3 +#define JT_OUV 0 /* parenthèse ouvrante */ +#define JT_FRM 1 /* parenthèse fermante */ +#define JT_FCT 2 /* séparateur fictif */ +#define JT_ATM 3 /* atome */ void utilisation(void); int transformer(FILE *); @@ -27,7 +27,7 @@ int guillemets(FILE *, struct tampon *); char *nom_prog; /* nom du programme */ struct tampon etq; /* tampon à étiquettes */ -struct tampon txt; /* tampon à texte */ +struct tampon ctn; /* tampon à texte */ int main(int argc, char **argv) @@ -41,7 +41,7 @@ main(int argc, char **argv) } /* initialiser les tampons */ - if (tp_init(&etq, TLL_ETQ) < 0 || tp_init(&txt, TLL_TXT) < 0) + if (tp_init(&etq, TLL_ETQ) < 0 || tp_init(&ctn, TLL_CTN) < 0) return 1; if (transformer(stdin) < 0) @@ -67,7 +67,7 @@ int transformer(FILE *f) draps = 0; switch (prch_jeton(f, &etq, TP_TYPE_ETQ)) { - case JT_PARG: + case JT_OUV: break; case EOF: return 0; @@ -84,38 +84,38 @@ ouv: tp_ecr(':', &etq); switch (prch_jeton(f, &etq, TP_TYPE_ETQ)) { - case JT_PARG: - draps |= DRAP_PARG; - afficher_ligne(&etq, &txt, &draps); + case JT_OUV: + draps |= DRAP_OUV; + afficher_ligne(&etq, &ctn, &draps); goto ouv; - case JT_PARD: - draps |= DRAP_PARG | DRAP_PARD; - afficher_ligne(&etq, &txt, &draps); + case JT_FRM: + draps |= DRAP_OUV | DRAP_FRM; + afficher_ligne(&etq, &ctn, &draps); goto ferm; - case JT_FICT: - draps |= DRAP_PARG; - afficher_ligne(&etq, &txt, &draps); + case JT_FCT: + draps |= DRAP_OUV; + afficher_ligne(&etq, &ctn, &draps); tp_ecr('\\', &etq); goto ouv; - case JT_ATOM: - draps |= DRAP_PARG; - goto val; + case JT_ATM: + draps |= DRAP_OUV; + goto ctn; case EOF: goto deseq; } assert(0); -val: - switch (prch_jeton(f, &txt, TP_TYPE_TXT)) { - case JT_PARG: - afficher_ligne(&etq, &txt, &draps); +ctn: + switch (prch_jeton(f, &ctn, TP_TYPE_CTN)) { + case JT_OUV: + afficher_ligne(&etq, &ctn, &draps); goto ouv; - case JT_PARD: - draps |= DRAP_PARD; - afficher_ligne(&etq, &txt, &draps); + case JT_FRM: + draps |= DRAP_FRM; + afficher_ligne(&etq, &ctn, &draps); goto ferm; - case JT_ATOM: - goto val; + case JT_ATM: + goto ctn; case EOF: goto deseq; } @@ -126,22 +126,22 @@ ferm: goto fin; assert(prfd > 0); - while (tp_etq_rec(&etq) != ETQ_SEP_REEL) { - draps |= DRAP_PARD; - afficher_ligne(&etq, &txt, &draps); + while (tp_etq_rec(&etq) != ETQ_SEP_REL) { + draps |= DRAP_FRM; + afficher_ligne(&etq, &ctn, &draps); if (--prfd == 0) goto fin; } - switch (prch_jeton(f, &txt, TP_TYPE_TXT)) { - case JT_PARG: + switch (prch_jeton(f, &ctn, TP_TYPE_CTN)) { + case JT_OUV: goto ouv; - case JT_PARD: - draps |= DRAP_PARD; - afficher_ligne(&etq, &txt, &draps); + case JT_FRM: + draps |= DRAP_FRM; + afficher_ligne(&etq, &ctn, &draps); goto ferm; - case JT_ATOM: - goto val; + case JT_ATM: + goto ctn; case EOF: goto deseq; } @@ -172,7 +172,7 @@ prch_jeton(FILE *f, struct tampon *tp, int tp_type) assert(f != NULL); assert(tp != NULL); - assert(tp_type == TP_TYPE_ETQ || tp_type == TP_TYPE_TXT); + assert(tp_type == TP_TYPE_ETQ || tp_type == TP_TYPE_CTN); while ((c = getc(f)) == ' ' || c == '\n' || c == '\t') if (c == EOF) @@ -180,25 +180,25 @@ prch_jeton(FILE *f, struct tampon *tp, int tp_type) switch (c) { case '(': - return JT_PARG; + return JT_OUV; case ')': - return JT_PARD; + return JT_FRM; } do { switch (c) { case ' ': case '\t': case '\n': - return JT_ATOM; + return JT_ATM; case '(': case ')': ungetc(c, f); - return JT_ATOM; + return JT_ATM; case '"': if (guillemets(f, tp) == EOF) return EOF; continue; case ':': if (tp_type == TP_TYPE_ETQ) - return JT_FICT; + return JT_FCT; tp_ecr(':', tp); case '\\': if ((c = getc(f)) == EOF) @@ -214,17 +214,17 @@ prch_jeton(FILE *f, struct tampon *tp, int tp_type) } int -afficher_ligne(struct tampon *etq, struct tampon *txt, int *draps) +afficher_ligne(struct tampon *etq, struct tampon *ctn, int *draps) { char *c; assert(etq != NULL); - assert(txt != NULL); + assert(ctn != NULL); assert(draps != NULL); assert(etq->tp != NULL); - assert(txt->tp != NULL); + assert(ctn->tp != NULL); assert(etq->pc != NULL); - assert(txt->pc != NULL); + assert(ctn->pc != NULL); /* étiquettes */ for (c = etq->tp; c < etq->pc; c++) { @@ -240,20 +240,20 @@ afficher_ligne(struct tampon *etq, struct tampon *txt, int *draps) putc('\t', stdout); /* drapeaux */ - if (*draps & DRAP_PARG) + if (*draps & DRAP_OUV) putc('(', stdout); - if (*draps & DRAP_PARD) + if (*draps & DRAP_FRM) putc(')', stdout); *draps = 0; putc('\t', stdout); /* contenu */ - for (c = txt->tp; c < txt->pc; c++) + for (c = ctn->tp; c < ctn->pc; c++) if (putc(*c, stdout) < 0) return -1; - tp_eff(txt); + tp_eff(ctn); putc('\n', stdout); return 0; } diff --git a/tampon.c b/tampon.c @@ -78,7 +78,7 @@ tp_etq_rec(struct tampon *tp) ; if (tp->pc - tp->tp != 0 && *(tp->pc-1) == '\\') { --tp->pc; - return ETQ_SEP_FICT; + return ETQ_SEP_FCT; } - return ETQ_SEP_REEL; + return ETQ_SEP_REL; } diff --git a/tampon.h b/tampon.h @@ -3,8 +3,8 @@ #define TP_FACT_AGR 2 /* facteur d'agrandissement d'un tampon */ -#define ETQ_SEP_REEL 0 /* séparateur réel */ -#define ETQ_SEP_FICT 1 /* séparateur fictif (échappé) */ +#define ETQ_SEP_REL 0 /* séparateur réel */ +#define ETQ_SEP_FCT 1 /* séparateur fictif (échappé) */ struct tampon { char *tp; /* le tampon lui-même */