Return to pickpstr.c CVS log

Up to [PGP] / pgp / contrib / langtool

Annotation of pgp/contrib/langtool/pickpstr.c, revision 1.1

1.1     ! root        1: /*
        !             2:  *   pickpstr.c
        !             3:  *     Read a set of files.
        !             4:  *     Find all strings of the form PSTR("...").
        !             5:  *     Output them, minus the enclosing PSTR( and ) to stdout.
        !             6:  */
        !             7: 
        !             8: #include <stdio.h>
        !             9: #define        STR     "LANG(\""
        !            10: 
        !            11: main (ac, av)
        !            12: char   **av;
        !            13: {
        !            14:        int     copying, match, bslash;
        !            15:        FILE    *f;
        !            16:        int     c;
        !            17: 
        !            18:        if (ac < 2) {
        !            19:                fprintf (stderr, "Usage: %s file [...]\n", av[0]);
        !            20:                exit (1);
        !            21:        }
        !            22: 
        !            23:        while (*++av) {
        !            24:                if ((f = fopen (*av, "r")) == NULL) {
        !            25:                        fprintf (stderr, "Unable to open file %s, skipping\n");
        !            26:                        continue;
        !            27:                }
        !            28:                match = 0;
        !            29:                copying = 0;
        !            30:                while ((c = getc(f)) != EOF) {
        !            31:                        if (!copying) {
        !            32:                                if (c == STR[match]) {
        !            33:                                        if (++match == strlen(STR)) {
        !            34:                                                copying = 1;
        !            35:                                                match = 0;
        !            36:                                                bslash = 0;
        !            37:                                                putchar (c);
        !            38:                                        }
        !            39:                                } else
        !            40:                                        match = 0;
        !            41:                        } else {
        !            42:                                if (!bslash) {
        !            43:                                        if (c == '"') {
        !            44:                                                putchar (c);
        !            45:                                                putchar ('\n');
        !            46:                                                putchar ('\n');
        !            47:                                                copying = 0;
        !            48:                                        } else if (c == '\\') {
        !            49:                                                bslash = 1;
        !            50:                                                putchar (c);
        !            51:                                        } else
        !            52:                                                putchar (c);
        !            53:                                } else {
        !            54:                                        putchar (c);
        !            55:                                        bslash = 0;
        !            56:                                }
        !            57:                        }
        !            58:                }
        !            59:                fclose (f);
        !            60:        }
        !            61:        exit (0);
        !            62: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.