domacro.c

Go to the documentation of this file.

/*
 * Copyright (c) 1985 Regents of the University of California.
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms are permitted
 * provided that the above copyright notice and this paragraph are
 * duplicated in all such forms and that any documentation,
 * advertising materials, and other materials related to such
 * distribution and use acknowledge that the software was developed
 * by the University of California, Berkeley.  The name of the
 * University may not be used to endorse or promote products derived
 * from this software without specific prior written permission.
 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
 * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
 */
 
 
 
#include "precomp.h"
 
#ifndef lint
static char sccsid[] = "@(#)domacro.c   1.6 (Berkeley) 2/28/89";
#endif /* not lint */
 
void domacro(int argc, const char *argv[])
{
    int i, j;
    const char *cp1;
    char *cp2;
    int count = 2, loopflg = 0;
    char line2[200];
    struct cmd *getcmd(), *c;
 
    if (argc < 2) {
        (void) strcat(line, " ");
        printf("(macro name) ");
        (void) fflush(stdout);
        (void) gets(&line[strlen(line)]);
        makeargv();
        argc = margc;
        argv = margv;
    }
    if (argc < 2) {
        printf("Usage: %s macro_name.\n", argv[0]);
        (void) fflush(stdout);
        code = -1;
        return;
    }
    for (i = 0; i < macnum; ++i) {
        if (!strncmp(argv[1], macros[i].mac_name, 9)) {
            break;
        }
    }
    if (i == macnum) {
        printf("'%s' macro not found.\n", argv[1]);
        (void) fflush(stdout);
        code = -1;
        return;
    }
    (void) strcpy(line2, line);
TOP:
    cp1 = macros[i].mac_start;
    while (cp1 != macros[i].mac_end) {
        while (isspace(*cp1)) {
            cp1++;
        }
        cp2 = line;
        while (*cp1 != '\0') {
              switch(*cp1) {
                case '\\':
                 *cp2++ = *++cp1;
                 break;
                case '$':
                 if (isdigit(*(cp1+1))) {
                    j = 0;
                    while (isdigit(*++cp1)) {
                      j = 10*j +  *cp1 - '0';
                    }
                    cp1--;
                    if (argc - 2 >= j) {
                    (void) strcpy(cp2, argv[j+1]);
                    cp2 += strlen(argv[j+1]);
                    }
                    break;
                 }
                 if (*(cp1+1) == 'i') {
                    loopflg = 1;
                    cp1++;
                    if (count < argc) {
                       (void) strcpy(cp2, argv[count]);
                       cp2 += strlen(argv[count]);
                    }
                    break;
                }
                /* intentional drop through */
                default:
                *cp2++ = *cp1;
                break;
              }
              if (*cp1 != '\0') {
             cp1++;
              }
        }
        *cp2 = '\0';
        makeargv();
        c = getcmd(margv[0]);
        if (c == (struct cmd *)-1) {
            printf("?Ambiguous command\n");
            code = -1;
        }
        else if (c == 0) {
            printf("?Invalid command\n");
            code = -1;
        }
        else if (c->c_conn && !connected) {
            printf("Not connected.\n");
            code = -1;
        }
        else {
            if (verbose) {
                printf("%s\n",line);
            }
            (*c->c_handler)(margc, margv);
            if (bell && c->c_bell) {
                (void) putchar('\007');
            }
            (void) strcpy(line, line2);
            makeargv();
            argc = margc;
            argv = margv;
        }
        if (cp1 != macros[i].mac_end) {
            cp1++;
        }
        (void) fflush(stdout);
    }
    if (loopflg && ++count < argc) {
        goto TOP;
    }
}