windows-server-2003/sdktools/link16/newstr.c

/* SCCSID = %W% %E% */
/*
*       Copyright Microsoft Corporation, 1983-1987
*
*       This Module contains Proprietary Information of Microsoft
*       Corporation and should be treated as Confidential.
*/
    /****************************************************************
    *                                                               *
    *                           NEWSTR.C                            *
    *                                                               *
    *  Routines concerning filenames, strings.                      *
    *                                                               *
    ****************************************************************/

#include                <minlit.h>      /* Types, constants, macros */
#include                <bndtrn.h>      /* More of the same */
#include                <bndrel.h>      /* More of the same */
#include                <lnkio.h>       /* Linker I/O definitions */
#include                <lnkmsg.h>      /* Error messages */
#include                <extern.h>      /* External declarations */
#include                <undname.h>

/*
 *  LOCAL FUNCTION PROTOTYPES
 */

LOCAL unsigned short NEAR Find(unsigned char *s1,
                                unsigned char b,
                                unsigned short n);
LOCAL void NEAR DelimParts(unsigned char *psb,
                           unsigned short *pi1,
                           unsigned short *pi2,
                           unsigned short *pi3);



    /****************************************************************
    *                                                               *
    *  Find:                                                        *
    *                                                               *
    *  This function takes as its arguments a byte pointer s1, and  *
    *  a BYTE b, and a WORD n.  It  scans  at  most n  bytes of s1  *
    *  looking  for  an  occurrence  of  b.  If it  finds  one, it  *
    *  returns its offset from the beginning of s1, and if it does  *
    *  not, it returns the value INIL.                              *
    *                                                               *
    ****************************************************************/

LOCAL WORD NEAR         Find(s1,b,n)    /* Find matching byte */
REGISTER BYTE           *s1;            /* Pointer to a byte string */
BYTE                    b;              /* Search target */
WORD                    n;              /* Length of s1 */
{
    REGISTER WORD       i;              /* Counter */
    i = 0;                              /* Initialize */
#if ECS
    if (b < 0x40)                       /* b cannot be part of ECS  */
    {
#endif
        while(n--)                      /* While not at end of string */
        {
            if(*s1++ == b) return(i);   /* If match found, return position */
            ++i;                        /* Increment counter */
        }
        return(INIL);                   /* No match */
#if ECS
    }
#endif

#if ECS || defined(_MBCS)
    /* We have to worry about ECS */
    while(n--)
    {
        if(*s1++ == b) return(i);
        ++i;
        if (IsLeadByte(s1[-1]))         /* If we were on a lead byte */
        {                               /* Advance an extra byte */
            s1++;
            i++;
            n--;
        }
    }
    return(INIL);                       /* No match */
#endif /* ECS */
}

WORD                    IFind(sb,b)
BYTE                    *sb;            /* Pointer to length-prefixed string */
BYTE                    b;              /* Search target */
{
    return(Find(&sb[1],b,B2W(sb[0])));  /* Call Find() to do the work */
}

    /****************************************************************
    *                                                               *
    *  BreakLine:                                                   *
    *                                                               *
    *  This  function takes as its  arguments an SBTYPE, a pointer  *
    *  to  a function, and a  character  used  as a delimiter.  It  *
    *  It parses the SBTYPE, applying  the given function to every  *
    *  substring delimited by  the given  delimiter.  The function  *
    *  does not return a meaningful value.                          *
    *                                                               *
    ****************************************************************/

void                    BreakLine(psb,pfunc,sepchar)
BYTE                    *psb;           /* String to parse */
void                    (*pfunc)(BYTE *);/* Function pointer */
char                    sepchar;        /* Delimiter */
{
    SBTYPE              substr;         /* Substring */
    REGISTER WORD       ibeg;           /* Index variable */
    REGISTER WORD       ilen;           /* Substring length */

    ibeg = 1;                           /* Initialize */
    while(ibeg <= B2W(psb[0]))          /* While not at end of string */
    {
        ilen = Find(&psb[ibeg],sepchar,(WORD)(B2W(psb[0]) - ibeg + 1));
                                        /* Get index of sepchar in string */
        if(ilen == INIL) ilen = B2W(psb[0]) - ibeg + 1;
                                        /* Len is all that's left if no sep */
        memcpy(&substr[1],&psb[ibeg],ilen);
                                        /* Copy substring into substr */
        substr[0] = (BYTE) ilen;        /* Store the length */
        ibeg += ilen + 1;               /* Skip over substring and delimiter */
        (*pfunc)(substr);               /* Call the specified function */
    }
}

#pragma check_stack(on)

    /****************************************************************
    *                                                               *
    *  UpdateFileParts:                                             *
    *                                                               *
    *  "Inherit  file pieces  from a  master template  and specify  *
    *  missing  Update.  Inherit  four  pieces: disk  drive, path,  *
    *  file name, extension."                                       *
    *                                                               *
    *  Inputs:  psbOld          pointer to "old sb  that specifies  *
    *                           pieces of a file name."             *
    *           psbUpdate       pointer to "new pieces."            *
    *                                                               *
    *  Output:  psbOld          "updated   to    reflect   missing  *
    *                           update."                            *
    *                                                               *
    ****************************************************************/

void                    UpdateFileParts(psbOld,psbUpdate)
BYTE                    *psbOld;        /* Name to be updated */
BYTE                    *psbUpdate;     /* The update */
{
    char                oldDrive[_MAX_DRIVE];
    char                oldDir[_MAX_DIR];
    char                oldFname[_MAX_FNAME];
    char                oldExt[_MAX_EXT];
    char                updDrive[_MAX_DRIVE];
    char                updDir[_MAX_DIR];
    char                updFname[_MAX_FNAME];
    char                updExt[_MAX_EXT];
    char                *newDrive;
    char                *newDir;
    char                *newFname;
    char                *newExt;
    char                newPath[_MAX_PATH];
    int                 newPathLen;


    psbOld[psbOld[0]+1] = '\0';
    _splitpath(&psbOld[1], oldDrive, oldDir, oldFname, oldExt);
    psbUpdate[psbUpdate[0]+1] = '\0';
    _splitpath(&psbUpdate[1], updDrive, updDir, updFname, updExt);

    // Select components of the updated file path

    if (updDrive[0] != '\0')
        newDrive = updDrive;
    else
        newDrive = oldDrive;
    if ((updDir[0] != '\0') && !(updDir[0] == '/' && updDir[1] == '\0'))
        newDir = updDir;   /* This above is a fix for bug # 46        */
    else
        newDir = oldDir;

    // If newDir points to UNC name then forget about drive spec

    if ((newDir[0] == '\\') && (newDir[1] == '\\'))
        newDrive = NULL;

    if (updFname[0] != '\0')
        newFname = updFname;
    else
        newFname = oldFname;
    if (updExt[0] != '\0')
        newExt = updExt;
    else
        newExt = oldExt;

    _makepath(newPath, newDrive, newDir, newFname, newExt);
    newPathLen = strlen(newPath);
    if (newPathLen > SBLEN - 1)
        newPathLen = SBLEN - 1;
    memcpy(&psbOld[1], newPath, newPathLen);
    psbOld[0] = (BYTE) newPathLen;
    if (newPathLen < SBLEN - 1)
        psbOld[newPathLen + 1] = '\0';
    else
    {
        psbOld[SBLEN - 1] = '\0';
        OutWarn(ER_fntoolong, psbOld + 1);
        fflush(stdout);
    }
}

#pragma check_stack(off)

#if OVERLAYS OR SYMDEB
/*
 *  StripDrivePath (sb)
 *
 *  Strip drive and path from a filename.
 *  Return pointer to new name, minus drive and path (if any).
 */
BYTE                    *StripDrivePath(sb)
BYTE                    *sb;            /* Length-prefixed filename */
{
    StripPath(sb);                      /* Strip path from name */
    if (sb[2] != ':')                   /* If there is no drive */
        return(sb);                     /* return it as is */
    sb[2] = (BYTE) ((sb[0]) - 2);       /* Adjust length byte, move it */
    return(&sb[2]);                     /* Return minus drive */
}
#endif


    /****************************************************************
    *                                                               *
    *  SbCompare:                                                   *
    *                                                               *
    *  Compares two length-prefixed strings.  Returns true if they  *
    *  match.                                                       *
    *                                                               *
    *  NOTE: When comparison is case-insensitive note that letters  *
    *  will match  regardless  of case, but, in addition, '{' will  *
    *  match '[', '|' will match '\',  '}'  will  match  ']',  and  *
    *  '~' will match '^'.                                          *
    *                                                               *
    *  NOTE:  This routine does not know about DBCS.                *
    *                                                               *
    ****************************************************************/

WORD                    SbCompare(ps1,ps2,fncs)
REGISTER BYTE           *ps1;           /* Pointer to symbol */
REGISTER BYTE           *ps2;           /* Pointer to symbol */
WORD                    fncs;           /* True if not case-sensitive */
{
    WORD                length;         /* No. of char.s to compare */

    if(*ps1 != *ps2) return(FALSE);     /* Lengths must match */
    length = B2W(*ps1);                 /* Get length */
    if (!fncs)                          /* If case-sensitive */
    {                                   /* Simple string comparison */
        while (length && (*++ps1 == *++ps2))
            length--;
        return(length ? FALSE : TRUE);  /* Success iff nothing left */
    }
    while(length--)
    {
        if(*++ps1 == *++ps2) continue;  /* Bytes match */
        if((*ps1 & 0137) != (*ps2 & 0137)) return(FALSE);
    }
    return(TRUE);                       /* They match */
}


#if OSEGEXE
    /****************************************************************
    *                                                               *
    *  SbUcase:                                                     *
    *                                                               *
    *  Force a length-prefixed string to upper case.                *
    *  Does not check for punctuation characters.                   *
    *                                                               *
    ****************************************************************/

void                    SbUcase(sb)
REGISTER BYTE           *sb;    /* Length-prefixed string */
{
    REGISTER int        length;

#ifdef _MBCS
    sb[B2W(sb[0])+1] = '\0';
    _mbsupr (sb + 1);
#else
    /* Loop through symbol, changing lower to upper case.  */
    for(length = B2W(*sb++); length > 0; --length, ++sb)
    {
#if ECS
        /* If lead byte character, skip two bytes */
        if(IsLeadByte(*sb))
        {
            --length;
            ++sb;
            continue;
        }
#endif
        if(*sb >= 'a' && *sb <= 'z')
            *sb -= 'a' - 'A';
    }
#endif
}
#endif


/*
 *  SbSuffix:
 *
 *  Tell if one length-prefixed string is a suffix of another.
 */

FTYPE               SbSuffix(sb,sbSuf,fIgnoreCase)
REGISTER BYTE       *sb;            /* String */
REGISTER BYTE       *sbSuf;         /* Suffix */
WORD                fIgnoreCase;    /* True if case is to be ignored */
{
    WORD            suflen;         /* Suffix length */

    /* Get suffix length.  If longer than string, return false.  */
    suflen = B2W(sbSuf[0]);
    if(suflen > B2W(sb[0])) return(FALSE);
    /*
     * Point to end of suffix and end of string.  Loop backwards
     * until mismatch or end of suffix.
     */
    sbSuf = &sbSuf[suflen];
    sb = &sb[B2W(sb[0])];
    while(suflen--)
    {
        if(!fIgnoreCase)
        {
            if(*sb-- != *sbSuf--) return(FALSE);
        }
        else if((*sb-- | 0x20) != (*sbSuf-- | 0x20)) return(FALSE);
    }
    return((FTYPE) TRUE);
}

#if NEWSYM
#if !defined( M_I386 ) && !defined( _WIN32 )
/*** GetFarSb - copy a far length-prefixed string
*
* Purpose:
*   Copy a far length-prefixed string into a near static buffer.
*   Terminate with null byte.
*   Return a pointer to the the buffer.
*
* Input:
*   psb          - pointer to the far string
*
* Output:
*   Pointer to the near buffer.
*
* Exceptions:
*   None.
*
* Notes:
*   Don't call this function twice in the row to get two far strings,
*   because the second call will overwite the first string.
*
*************************************************************************/

char                    *GetFarSb(BYTE FAR *lpsb)
{
    static BYTE         sb[SBLEN+1];    /* 1 extra for the null byte */


    sb[0] = lpsb[0];
    FMEMCPY((BYTE FAR *) &sb[1], &lpsb[1], B2W(lpsb[0]));
    if (sb[0] + 1 < sizeof(sb))
        sb[sb[0] + 1] = 0;              /* Some routines expect a terminating 0 */
    else
        sb[SBLEN] = 0;
    return(sb);
}
#endif
#endif


    /****************************************************************
    *                                                               *
    *  ProcObject:                                                  *
    *                                                               *
    *  This function takes as its  argument a pointer to a length-  *
    *  prefixed string  containing the name of an object file.  It  *
    *  processes that file name.  It does not  return a meaningful  *
    *  value.                                                       *
    *                                                               *
    ****************************************************************/

void                    ProcObject(psbObj)/* Process object file name */
REGISTER BYTE           *psbObj;        /* Object file name */
{
    SBTYPE              sbFile;         /* File name */
#if OVERLAYS
    FTYPE               frparen;        /* True if trailing paren found */
    FTYPE               flparen;        /* True if leading paren found */
#endif
#if CMDMSDOS
    BYTE                sbExt[5];
#endif

#if OVERLAYS
    if(psbObj[B2W(psbObj[0])] == ')')   /* If trailing parenthesis found */
    {
        frparen = (FTYPE) TRUE;         /* Set flag true */
        --psbObj[0];                    /* Delete parenthesis */
    }
    else frparen = FALSE;               /* Else set flag false */
    if(psbObj[0] && psbObj[1] == '(')   /* If leading parenthesis found */
    {
        flparen = (FTYPE) TRUE;         /* Set flag true */
        psbObj[1] = (BYTE) (psbObj[0] - 1);/* Delete parenthesis */
        ++psbObj;
    }
    else flparen = FALSE;               /* Else set flag false */
#endif
#if CMDMSDOS
    PeelFlags(psbObj);                  /* Process flags, if any */
#if OVERLAYS
    if(psbObj[B2W(psbObj[0])] == ')')   /* If trailing parenthesis found */
    {
        if(frparen) Fatal(ER_nstrpar);
                                        /* Cannot nest parentheses */
        frparen = (FTYPE) TRUE;         /* Set flag true */
        --psbObj[0];                    /* Delete parenthesis */
    }
#endif
#endif
#if OVERLAYS
    if(flparen)                         /* If leading parenthesis */
    {
        if(fInOverlay) Fatal(ER_nstlpar);
                                        /* Check if in overlay already */
        fInOverlay = (FTYPE) TRUE;      /* Set flag */
        fOverlays = (FTYPE) TRUE;       /* Set flag */
    }
#endif
    if(psbObj[0])                       /* If object name length not zero */
    {
#if DEBUG                               /* If debugging on */
        fprintf(stderr,"  Object ");    /* Message */
        OutSb(stderr,psbObj);           /* File name */
        NEWLINE(stderr);                /* Newline */
#endif                                  /* End debugging code */
#if CMDMSDOS
        memcpy(sbFile,sbDotObj,5);      /* Put extension in sbFile */
        UpdateFileParts(sbFile,psbObj); /* Add extension to name */
#endif
#if CMDXENIX
        memcpy(sbFile,psbObj,B2W(psbObj[0]) + 1);
                                        /* Leave name unchanged */
#endif
#if CMDMSDOS
        /* If file has extension ".LIB" then save it as a library
         * from which all modules will be extracted.
         */
        sbExt[0] = 4;
        memcpy(sbExt+1,&sbFile[B2W(sbFile[0])-3],4);
        if (SbCompare(sbExt, sbDotLib, TRUE))
        {
            if(ifhLibMac >= IFHLIBMAX) Fatal(ER_libmax);
            /* Mark name pointer nil so library won't be searched.  */
            mpifhrhte[ifhLibMac] = RHTENIL;
            SaveInput(sbFile,0L,ifhLibMac++,(WORD)(fInOverlay? iovMac: 0));
        }
        else
#endif
        SaveInput(sbFile,0L,(WORD) FHNIL,(WORD)(fInOverlay? iovMac: 0));
                                        /* Save input file name and address */
    }
#if OVERLAYS
    if(frparen)                         /* If trailing parenthesis */
    {
        if(!fInOverlay) Fatal(ER_unmrpar);
                                        /* Check parentheses */
        fInOverlay = FALSE;             /* No longer specifying overlay */
        if(++iovMac > IOVMAX) Fatal(ER_ovlmax);
                                        /* Increment overlay counter */
    }
#endif
}

/*
 *  fPathChr (ch)
 *
 *  Tells whether or not a given character is a path character.
 *
 */

FTYPE           fPathChr(ch)
char            ch;
{
#if OSXENIX
    if (ch == '/')
#else
    if (ch == '/' || ch == '\\')
#endif
        return((FTYPE) TRUE);
    return(FALSE);
}


/*** UndecorateSb - undecorate name
*
* Purpose:
*   Undecorate length prefixed name.
*
* Input:
*   sbSrc - length prefixed decorated name
*   sbDst - length prefixed undecorated name
*   cbDst - size of sbDst
*
* Output:
*   If undecoration is successfull the sbDst contains undecorated
*   C++ name, else the sbSrc is copied to the sbDst.
*
* Exceptions:
*   None.
*
* Notes:
*   None.
*
*************************************************************************/

void            UndecorateSb(char FAR *sbSrc, char FAR *sbDst, unsigned cbDst)
{
    char FAR    *pUndecor;
    unsigned    len;


    // Make sure that decorated string is zero-terminated

    if (sbSrc[0] < sizeof(SBTYPE))
        sbSrc[sbSrc[0] + 1] = '\0';
    else
        sbSrc[sizeof(SBTYPE) - 1] = '\0';

    pUndecor = __unDName(NULL, (pcchar_t) &sbSrc[1], 0, &malloc, &free, 0);

    if (pUndecor == NULL)
    {
        // Undecorator failed

        FMEMCPY(sbDst, sbSrc, sbSrc[0] + 1);
    }
    else
    {
        // Add length to the undecorated name

        len = FSTRLEN(pUndecor);
        len = cbDst - 2 >= len ? len : cbDst - 2;
        FMEMCPY(&sbDst[1], pUndecor, len);
        sbDst[0] = (BYTE) len;
        sbDst[len + 1] = '\0';
        FFREE(pUndecor);
    }
}