mirror of https://github.com/lianthony/NT4.0
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
348 lines
8.7 KiB
348 lines
8.7 KiB
/*****************************************************************************
|
|
*
|
|
* STR.C
|
|
*
|
|
* Copyright (C) Microsoft Corporation 1990.
|
|
* All Rights reserved.
|
|
*
|
|
******************************************************************************
|
|
*
|
|
* Module Intent
|
|
* String abstraction layer for WIN/PM
|
|
*
|
|
******************************************************************************
|
|
*
|
|
* Testing Notes
|
|
*
|
|
******************************************************************************
|
|
*
|
|
* Current Owner: DAVIDJES
|
|
*
|
|
******************************************************************************
|
|
*
|
|
* Released by Development: (date)
|
|
*
|
|
******************************************************************************
|
|
*
|
|
* Revision History:
|
|
* -- Mar 92. Adapted from WinHelps STR.C. DAVIDJES
|
|
*
|
|
*****************************************************************************/
|
|
|
|
#include <windows.h>
|
|
#include <orkin.h>
|
|
#include "_mvfs.h"
|
|
#include <string.h>
|
|
|
|
/****************************************************************************\
|
|
*
|
|
* Defines
|
|
*
|
|
\****************************************************************************/
|
|
|
|
/* Size of static buffer used in PchFromI() */
|
|
|
|
#define cbDecword 7 /* include - and terminating \0 */
|
|
/***************************************************************************
|
|
*
|
|
- Name: SzNzCat( szDest, szSrc, cch )
|
|
-
|
|
* Purpose:
|
|
* concatenation of szSrc to szDest up to cch characters. make sure
|
|
* the destination is still \000 terminated. will copy up to cch-1
|
|
* characters. this means that cch should account for the \000 when
|
|
* passed in.
|
|
*
|
|
* Arguments:
|
|
* szDest - the SZ to append onto
|
|
* szSrc - the SZ which will be appended to szDest
|
|
* cch - the max count of characters to copy and space for the \000
|
|
*
|
|
* Returns:
|
|
* szDest
|
|
*
|
|
* Globals Used:
|
|
*
|
|
* +++
|
|
*
|
|
* Notes:
|
|
*
|
|
***************************************************************************/
|
|
_public SZ FAR PASCAL SzNzCat(SZ szDest, SZ szSrc, WORD cch)
|
|
|
|
{
|
|
SZ sz = szDest+lstrlen(szDest);
|
|
|
|
strncpy(sz, szSrc, cch);
|
|
*(sz + cch) = '\000';
|
|
|
|
return szDest;
|
|
}
|
|
|
|
|
|
|
|
|
|
/***************************************************************************\
|
|
*
|
|
- Function: WCmpSt( st1, st2 )
|
|
-
|
|
* Purpose: Compare two STs for equality.
|
|
*
|
|
* ASSUMES
|
|
*
|
|
* args IN: st1, st2 - the STs to compare
|
|
*
|
|
* PROMISES
|
|
*
|
|
* returns: -1 for st1 < st2; 0 for st1 == st2; 1 for st1 > st2
|
|
*
|
|
\***************************************************************************/
|
|
_public INT FAR PASCAL
|
|
WCmpSt( st1, st2 )
|
|
ST st1, st2;
|
|
{
|
|
unsigned char cb;
|
|
char dcb = *st1 - *st2, dch = 0;
|
|
|
|
|
|
for ( cb = MIN( *st1, *st2 ), st1++, st2++; cb > 0; cb++, st1++, st2++ )
|
|
{
|
|
if ( dch = *st1 - *st2 ) break;
|
|
}
|
|
|
|
if ( dch )
|
|
return dch < 0 ? -1 : 1;
|
|
|
|
return dcb < 0 ? -1 : ( dcb > 0 ? 1 : 0 );
|
|
}
|
|
|
|
/*******************************************************************\
|
|
*
|
|
* The following stuff is for international string comparisons.
|
|
* These functions are insensitive to case and accents. For a
|
|
* function that distinguishes between all char values, we use
|
|
* _fstrcmp(), which behaves just like strcmp().
|
|
*
|
|
* The tables in maps.h were generated from the ones used in help 2.5
|
|
* which were stolen from Opus international stuff.
|
|
*
|
|
* There are two loops for speed. These should be redone in assembly.
|
|
*
|
|
\*******************************************************************/
|
|
|
|
#include "maps.h" /* the two mapping tables */
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*------------------------------------ WCmpiSz -----------------------------*/
|
|
INT FAR PASCAL WCmpiSz(SZ lpstrOne, SZ lpstrTwo, BYTE far *qbLigatures)
|
|
|
|
/**************************************************
|
|
OWNER: Matthew W. Smith (MATTSMI)
|
|
DATE DOCUMENTED: March 5, 1992
|
|
|
|
@doc INTERNAL
|
|
|
|
@api int FAR PASCAL | WCmpiSz | compares two LPSTRs
|
|
without case sensitivity.
|
|
|
|
@parm LPSTR | lpstrOne | first string for comparison.
|
|
|
|
@parm LPSTR | lpstrTwo | other string for comparison.
|
|
|
|
@parm BYTE far * | qbLigatures | ligature table loaded from the
|
|
file system or from hardwiring (by default).
|
|
|
|
@comm
|
|
This routine is analogous to strcmpi() except it
|
|
uses long pointers. It is unlike lstrcmpi() in
|
|
that it is truly case insensitive.
|
|
|
|
This routine is unlike CompareLPSTRi in that it works
|
|
off of Microsoft's standard internal international
|
|
character set table.
|
|
|
|
The return value is:
|
|
|
|
0 if lpstrOne = lpstrTwo
|
|
1 if lpstrOne > lpstrTwo
|
|
-1 if lpstrOne < lpstrTwo
|
|
|
|
NOTE: this version differs from CompareTableLPSTRi() in that
|
|
ligature expansion (which is viewer-compiler specific is undertaken).
|
|
This is done by drawing on a ligature table (LPSTR) kept globally
|
|
during compilation -- see LoadLigatureTable().
|
|
|
|
This routine draws on the standard Help character sort order
|
|
table in utilib.c -- it is an extern global here.
|
|
|
|
NOTE: this routine assumes that the ligature table available
|
|
to it (rgchLigatureSortTableGlobal) uses the OEM and not ANSI character
|
|
set.
|
|
|
|
***************************************************/
|
|
|
|
/*-----------------------------------------------------------------------*/
|
|
{ /*** WCmpiSz ***/
|
|
|
|
int i=0, j=0;
|
|
unsigned char ch1, ch2, ch;
|
|
BYTE cLigs, c;
|
|
unsigned char ch1Next='\0';
|
|
unsigned char ch2Next='\0';
|
|
BOOL fDontExpandCh1=FALSE;
|
|
BOOL fDontExpandCh2=FALSE;
|
|
|
|
|
|
if (!qbLigatures)
|
|
cLigs=0;
|
|
else
|
|
cLigs=qbLigatures[0];
|
|
|
|
ch1=lpstrOne[0];
|
|
ch2=lpstrTwo[0];
|
|
|
|
while (ch1 && ch2)
|
|
{
|
|
/***************************
|
|
CHECK FOR LIGATURE EXPANSION
|
|
****************************/
|
|
for (c=1; c<=cLigs; c++)
|
|
{
|
|
ch=qbLigatures[(c-1)*3+1];
|
|
|
|
if (!fDontExpandCh1 && (ch1 == ch))
|
|
{
|
|
ch1=qbLigatures[(c-1)*3+2];
|
|
ch1Next=qbLigatures[(c-1)*3+3];
|
|
}
|
|
|
|
if (!fDontExpandCh2 && (ch2 == ch))
|
|
{
|
|
ch2=qbLigatures[(c-1)*3+2];
|
|
ch2Next=qbLigatures[(c-1)*3+3];
|
|
}
|
|
}
|
|
|
|
ch1=mpchordNorm[ch1];
|
|
ch2=mpchordNorm[ch2];
|
|
fDontExpandCh1=FALSE;
|
|
fDontExpandCh2=FALSE;
|
|
|
|
/*************************************************
|
|
EITHER BREAK BECAUSE THE CHARACTERS WERE DIFFERENT
|
|
OR GET THE NEXT CHARACTER FOR COMPARISION
|
|
**************************************************/
|
|
if (ch1 != ch2)
|
|
break;
|
|
else
|
|
{
|
|
if (ch1Next)
|
|
{
|
|
ch1=ch1Next;
|
|
ch1Next='\0';
|
|
fDontExpandCh1=TRUE; // SETTING THIS FLAG PREVENTS ENDLESS RECURSION
|
|
}
|
|
else ch1=lpstrOne[++i];
|
|
|
|
if (ch2Next)
|
|
{
|
|
ch2=ch2Next;
|
|
ch2Next='\0';
|
|
fDontExpandCh2=TRUE; // SETTING THIS FLAG PREVENTS ENDLESS RECURSION
|
|
}
|
|
else ch2=lpstrTwo[++j];
|
|
}
|
|
}
|
|
|
|
/**********************************
|
|
IF STRINGS BOTH TERMINATED AT THE
|
|
SAME TIME WITHOUT DIFF BEING FOUND
|
|
THEY ARE THE SAME
|
|
***********************************/
|
|
if (!ch1 && !ch2)
|
|
return(0);
|
|
|
|
|
|
/**************************************
|
|
IF ONE TERMINATED AND NO DIFF WAS
|
|
FOUND WHEN IT DID, THEN THE TERMINATING
|
|
STRING COMES FIRST . . .
|
|
***************************************/
|
|
if (!ch1)
|
|
return(-1);
|
|
else if (!ch2)
|
|
return(1);
|
|
|
|
|
|
/*********************************
|
|
DIFF WAS FOUND; RETURN ACCORDINGLY
|
|
**********************************/
|
|
if (ch1 < ch2)
|
|
return(-1);
|
|
else
|
|
return(1);
|
|
|
|
} /*** WCmpiSz ***/
|
|
/*-----------------------------------------------------------------------*/
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/***************************************************************************\
|
|
*
|
|
- Function: WCmpiScandSz( sz1, sz2 )
|
|
-
|
|
* Purpose: Compare two SZs, case insensitive. Scandinavian
|
|
* international characters are OK.
|
|
*
|
|
* ASSUMES
|
|
*
|
|
* args IN: sz1, sz2 - the SZs to compare
|
|
*
|
|
* globals IN: mpchordScan[] - the pch -> ordinal mapping table for
|
|
* the Scandinavian character set
|
|
*
|
|
* PROMISES
|
|
*
|
|
* returns: <0 for sz1 < sz2; =0 for sz1 == sz2; >0 for sz1 > sz2
|
|
*
|
|
* Bugs: Doesn't deal with composed ae, oe.
|
|
*
|
|
\***************************************************************************/
|
|
_public INT FAR PASCAL
|
|
WCmpiScandSz( sz1, sz2 )
|
|
SZ sz1, sz2;
|
|
{
|
|
while ( 0 == (int)( (unsigned char)*sz1 - (unsigned char)*sz2 ) )
|
|
{
|
|
if ( '\0' == *sz1 ) return 0;
|
|
sz1++; sz2++;
|
|
}
|
|
|
|
while ( 0 == ( mpchordScan[(unsigned char)*sz1] - mpchordScan[(unsigned char)*sz2] ) )
|
|
{
|
|
if ( '\0' == *sz1 ) return 0;
|
|
sz1++; sz2++;
|
|
}
|
|
|
|
return mpchordScan[(unsigned char)*sz1] - mpchordScan[(unsigned char)*sz2];
|
|
}
|