parsecl.c

来自「开放源码的编译器open watcom 1.6.0版的源代码」· C语言 代码 · 共 346 行

/****************************************************************************
*
*                            Open Watcom Project
*
*    Portions Copyright (c) 1983-2002 Sybase, Inc. All Rights Reserved.
*
*  ========================================================================
*
*    This file contains Original Code and/or Modifications of Original
*    Code as defined in and that are subject to the Sybase Open Watcom
*    Public License version 1.0 (the 'License'). You may not use this file
*    except in compliance with the License. BY USING THIS FILE YOU AGREE TO
*    ALL TERMS AND CONDITIONS OF THE LICENSE. A copy of the License is
*    provided with the Original Code and Modifications, and is also
*    available at www.sybase.com/developer/opensource.
*
*    The Original Code and all software distributed under the License are
*    distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
*    EXPRESS OR IMPLIED, AND SYBASE AND ALL CONTRIBUTORS HEREBY DISCLAIM
*    ALL SUCH WARRANTIES, INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF
*    MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR
*    NON-INFRINGEMENT. Please see the License for the specific language
*    governing rights and limitations under the License.
*
*  ========================================================================
*
* Description:  WHEN YOU FIGURE OUT WHAT THIS FILE DOES, PLEASE
*               DESCRIBE IT HERE!
*
****************************************************************************/


#include <stdio.h>
#include <stdlib.h>
#include <ctype.h>
#include <string.h>
#include "walloca.h"
#include "vi.h"
#include "parsecl.h"
#include "ex.h"

static char pDelims[]=" /!";

/*
 * ParseCommandLine - parse a command line
 */
int ParseCommandLine( char *buff, linenum *n1, int *n1flag, linenum *n2, int *n2flag,  int *token, char *data, int *dammit )
{
    char        *tres,*tmp;
    int         i,rc,j,k;
    linenum     l;

    /*
     * set up for parse
     */
    tres = alloca( MAX_INPUT_LINE );
    tmp = alloca( MAX_INPUT_LINE );
    if( tmp == NULL || tres == NULL ) {
        return( ERR_NO_STACK );
    }
    *n1flag = *n2flag = FALSE;
    *token = PCL_T_INVALID;
    data[0] = 0;

    /*
     * change null command to '.'
     */
    RemoveLeadingSpaces( buff );
    if( buff[0] == 0 ) {
        buff[0] = '.';
        buff[1] = 0;
    }

    /*
     * check for magic '%' - all lines
     */
    if( buff[0] == '%' ) {
        *n1flag = *n2flag = TRUE;
        *n1 = 1;
        i = CFindLastLine( n2 );
        if( i ) {
            return( i );
        }
        EliminateFirstN( buff, 1 );
        RemoveLeadingSpaces( buff );
    /*
     * check for magic '#' - selected region
     */
    } else if( buff[0] == '#' || buff[0] == '@' ) {
        if( !SelRgn.selected ) {
            if( buff[0] == '#' ) {
                return( ERR_NO_SELECTION );
            } else {
                // use @ in scripts (eg mcsel.vi) when
                // we KNOW something was just selected
                SelRgn.selected = TRUE;
            }
        }
        *n1flag = *n2flag = TRUE;
        if( SelRgn.start_line > SelRgn.end_line ) {
            *n1 = SelRgn.end_line;
            *n2 = SelRgn.start_line;
        } else {
            *n1 = SelRgn.start_line;
            *n2 = SelRgn.end_line;
        }
        EliminateFirstN( buff, 1 );
        RemoveLeadingSpaces( buff );
    /*
     * try to get line range
     */
    } else {
        rc = GetAddress( buff, &l );
        if( rc > 0 || rc == DO_NOT_CLEAR_MESSAGE_WINDOW ) {
            return( rc );
        }
        if( !rc ) {
            *n1flag = TRUE;
            *n1 = l;
            RemoveLeadingSpaces( buff );
            if( buff[0] == ',' ) {
                EliminateFirstN( buff,1 );
                RemoveLeadingSpaces( buff );
                rc = GetAddress( buff, &l );
                if( rc > 0 ) {
                    return( rc );
                }
                if( rc ) {
                    return( ERR_INVALID_COMMAND );
                }
                *n2flag = TRUE;
                /*
                 * swap order (if start > end)
                 */
                if( *n1 > l ) {
                    *n2 = *n1;
                    *n1 = l;
                } else {
                    *n2=l;
                }
            }
        }
    }

    /*
     * check for system token
     */
    if( buff[0] == '!' ) {
        strcpy( data, buff+1 );
        *token = PCL_T_SYSTEM;
        return( ERR_NO_ERR );
    }

    /*
     * get token and data
     */
    if( NextWord( buff, tres, pDelims ) < 0 ) {
        return( ERR_NO_ERR );
    }
    if( !CheckAlias( tres, tmp ) ) {
        j = strlen(tmp);
        k = strlen(buff);
        for( i=k;i>=0;i-- ) {
            buff[i+j] = buff[i];
        }
        for( i=0;i<j;i++ ) {
            buff[i] = tmp[i];
        }
        if( NextWord( buff, tres, pDelims ) < 0 ) {
            return( ERR_NO_ERR );
        }
    }

    if( buff[0] == '!' ) {
        EliminateFirstN( buff,1 );
        *dammit = TRUE;
    } else {
        *dammit = FALSE;
    }

    *token = Tokenize( ParseClTokens, tres, FALSE );
    if( (*token) == -1 ) {
        *token = Tokenize( ExTokens, tres, FALSE );
        if( (*token) >= 0 ) {
            (*token) += 1000;
        }
    }
    strcpy( data, buff );
    return( ERR_NO_ERR );

} /* ParseCommandLine */

#define NUM_STACK_SIZE  30
/*
 * GetAddress - parse to obtain line number
 */
int GetAddress( char *buff, linenum *num  )
{
    linenum     numstack[NUM_STACK_SIZE];
    char        currnum[NUM_STACK_SIZE];
    linenum     sum;
    int         numptr;
    int         k,nument,csign,numsign;
    int         i,j;
    bool        numinprog,stopnum,endparse;
    char        c;
    char        *tmp,st[2];
    int         rc,col,len,fl;
    linenum     s;

    /*
     * check if we have a numeric type thingy here
     */
    c = buff[0];
    if( !(c=='/' || c=='?' || c=='+' || c == '-' || c== '\'' ||
                c == '.' || c == '$' || (c >= '0' && c <= '9') ) ) {
        return( NO_NUMBER );
    }
    if( c =='+' || c =='-' ) {
        sum = CurrentLineNumber;
    } else {
        sum = 0;
    }
    numptr = k = nument = 0;
    csign = numsign = 1;
    numinprog = stopnum = endparse = FALSE;

    while( !endparse ) {
        c = buff[k];
        if( c >= '0' && c <= '9' ) {
            currnum[numptr++]=c;
            numinprog=TRUE;
        } else switch( c ) {
        case '/': case '?': {
            if( numinprog ) {
                return( NO_NUMBER );
            }
            tmp = StaticAlloc();
            st[0] = c;
            st[1] = 0;
            NextWord( &buff[k], tmp, st );
            if( c == '?' ) {
                fl = FINDFL_BACKWARDS | FINDFL_NEXTLINE;
            }
            else fl = FINDFL_FORWARD | FINDFL_NEXTLINE;
            rc = GetFind( tmp, &s, &col, &len, fl );
            numstack[nument] = s;
            stopnum = TRUE;
            StaticFree( tmp );
            if( rc ) {
                return( rc );
            }
            if( buff[k] == 0 ) {
                k--;
            }
            break;
        }

        case '\'':
            if( numinprog ) {
                return( NO_NUMBER );
            }
            j = buff[k+1]-'a';
            i = VerifyMark( j+1, TRUE );
            if( i ) {
                return( i );
            }
            numstack[nument] = MarkList[j].lineno;
            stopnum = TRUE;
            k++;
            break;
        case '+':
            csign = 1;
            if( numinprog ) {
                stopnum = TRUE;
            } else {
                numsign=1;
            }
            break;
        case '-':
            if( numinprog ) {
                stopnum = TRUE;
                csign = -1;
            } else {
                numsign = -1;
                csign = 1;
            }
            break;
        case '.':
            if( numinprog ) {
                return( NO_NUMBER );
            }
            numstack[nument] = CurrentLineNumber;
            stopnum = TRUE;
            break;
        case '$':
            if( numinprog ) {
                return( NO_NUMBER );
            }
            i = CFindLastLine( &numstack[nument] );
            if( i ) {
                return( i );
            }
            stopnum = TRUE;
            break;
        default:
            endparse = TRUE;
            if( numinprog ) {
                stopnum = TRUE;
            }
            break;
        }
        if( !endparse ) {
            k++;
        }

        /*
         * check if a number was being scanned
         */
        if( stopnum && numinprog ) {
            currnum[numptr] = 0;
            numptr = 0;
            numstack[nument] = atol(currnum);
            numinprog = FALSE;
        }
        if( stopnum ) {
            numstack[nument] *= numsign;
            nument++;
            numsign = csign;
            csign = 1;
            stopnum = FALSE;
        }

    }
    EliminateFirstN( buff, k );

    for( i=0;i<nument;i++ ) {
        sum += numstack[i];
    }

    *num = sum;

    return( ERR_NO_ERR );

} /* GetAddress */