1 files changed, 684 insertions, 0 deletions

diff --git a/private/mvdm/wow16/write/d_selec2.c b/private/mvdm/wow16/write/d_selec2.c
new file mode 100644
index 000000000..8e5bdb089
--- /dev/null
+++ b/private/mvdm/wow16/write/d_selec2.c
@@ -0,0 +1,684 @@
+/************************************************************/
+/* Windows Write, Copyright 1985-1992 Microsoft Corporation */
+/************************************************************/
+
+/* Select2.c -- Less-frequently-used selection routines */
+
+#define NOCLIPBOARD
+#define NOGDICAPMASKS
+#define NOCTLMGR
+#define NOVIRTUALKEYCODES
+#define NOWINMESSAGES
+#define NOWINSTYLES
+#define NOSYSMETRICS
+#define NOMENUS
+#define NOSOUND
+#define NOCOMM
+#define NOPEN
+#define NOWNDCLASS
+#define NOICON
+#define NORASTEROPS
+#define NOSHOWWINDOW
+#define NOATOM
+#define NOKEYSTATE
+#define NOSYSCOMMANDS
+#define NOBITMAP
+#define NOBRUSH
+#define NOCOLOR
+#define NODRAWTEXT
+#define NOMB
+#define NOPOINT
+#define NOMSG
+#include <windows.h>
+#include "mw.h"
+#include "toolbox.h"
+#include "docdefs.h"
+#include "editdefs.h"
+#include "dispdefs.h"
+#include "cmddefs.h"
+#include "wwdefs.h"
+#include "ch.h"
+#include "fmtdefs.h"
+#include "propdefs.h"
+
+#ifdef	DBCS
+#include "kanji.h"
+#endif
+
+extern int		vfSeeSel;
+extern typeCP		vcpFirstParaCache;
+extern typeCP		vcpLimParaCache;
+extern typeCP		vcpFetch;
+extern CHAR		*vpchFetch;
+extern int		vccpFetch;
+extern typeCP		cpMinCur;
+extern typeCP		cpMacCur;
+extern struct SEL	selCur;
+extern int		docCur;
+extern struct FLI	vfli;
+extern struct WWD	rgwwd[];
+extern int		vfSelHidden;
+extern int		wwCur;
+extern struct CHP	vchpFetch;
+extern struct PAP	vpapAbs;
+extern struct WWD	*pwwdCur;
+extern int		vfInsEnd;
+extern typeCP		CpBeginLine();
+extern int		vfPictSel;
+extern int		vfSizeMode;
+extern struct CHP	vchpNormal;
+extern int		vfInsertOn;
+extern struct CHP	vchpSel;	/* Holds the props when the selection
+						is an insert point */
+extern int vfMakeInsEnd;
+extern typeCP vcpSelect;
+extern int vfSelAtPara;
+/* true iff the last selection was made by an Up/Down cursor key */
+extern int vfLastCursor;
+
+
+#ifndef DBCS	/* US version */
+/* C P	L I M  S T Y  S P E C I A L */
+typeCP CpLimStySpecial(cp, sty)
+typeCP cp;
+int sty;
+{    /* Return the first cp which is not part of the same sty unit */
+	int wb, ch, ich;
+	struct EDL *pedl;
+
+	/* Other cases covered in CpLimSty, our only caller */
+
+	Assert( cp < cpMacCur );
+	Assert( cp >= cpMinCur );
+	Assert( sty == styWord || sty == stySent );
+
+/* Special kludge for picture paragraphs */
+	CachePara(docCur, cp);
+	if (vpapAbs.fGraphics)
+		return vcpLimParaCache;
+
+	FetchCp(docCur, cp, 0, fcmChars + fcmNoExpand);
+
+	Assert(vccpFetch != 0);
+
+	/* Must be word or sentence */
+	wb = WbFromCh(ch = vpchFetch[ich = 0]);
+#ifdef CRLF
+	if (ch == chReturn)
+		return vcpFetch + 2;
+#endif
+	if (ch == chEol || ch == chSect || ch == chNewLine || ch == chTab)
+		/* EOL is its own unit */
+		return vcpFetch + 1;
+
+	if (wb == wbWhite && sty == stySent)
+		{ /* Might be between sentences; go back to text */
+		FetchCp(docCur, CpFirstSty(cp, styWord), 0, fcmChars + fcmNoExpand);
+		wb = WbFromCh(ch = vpchFetch[ich = 0]);
+		}
+
+	for (;;)
+		{
+		if (++ich >= vccpFetch)
+			{ /* Get next line and set up */
+			FetchCp(docNil, cpNil, 0, fcmChars);
+			if (vcpFetch == cpMacCur)
+				return cpMacCur; /* End of doc */
+			ich = 0;
+			}
+		if (sty == stySent)
+			switch (ch)
+				{
+			case chDot:
+			case chBang:
+			case chQMark:
+				sty = styWord;
+				wb = wbPunct;
+				}
+		switch (ch = vpchFetch[ich])
+			{
+		case chTab:
+		case chEol:
+		case chSect:
+		case chNewLine:
+#ifdef CRLF
+		case chReturn:
+#endif
+			goto BreakFor;
+			}
+		if (sty == styWord)
+			{ /* Word ends after white space or on text/punct break */
+			int wbT = WbFromCh(ch);
+			if (wb != wbT && (wb = wbT) != wbWhite)
+				break;
+			}
+		}
+	BreakFor:
+	return vcpFetch + ich;
+}
+
+
+
+/* C P	F I R S T  S T Y  S P E C I A L */
+typeCP CpFirstStySpecial(cp, sty)
+typeCP cp;
+int sty;
+{ /* Return the first cp of this sty unit. */
+	typeCP cpBegin;
+	int wb, ch, dcpChunk;
+	typeCP cpSent;
+	CHAR rgch[dcpAvgSent];
+	int ich;
+	typeCP cpT;
+
+	/* Other cases were covered by CpFirstSty, our only caller */
+
+	Assert( cp > cpMinCur );
+	Assert( sty == stySent || sty == styWord );
+
+	if (cp >= cpMacCur)
+	    cpT = cp = cpMacCur;
+	else
+	    cpT = cp++;
+
+	CachePara(docCur, cpT );
+	if ((vcpFirstParaCache == cpT) || vpapAbs.fGraphics)
+	    return vcpFirstParaCache;
+
+	dcpChunk = (sty == styWord) ? dcpAvgWord : dcpAvgSent;
+	cpBegin = (cp > dcpChunk) ? cp - dcpChunk : cp0;
+
+	FetchRgch(&ich, rgch, docCur, cpBegin, cp, dcpChunk);
+	wb = WbFromCh(ch = rgch[--ich]);
+
+#ifdef CRLF
+	if(cpBegin + ich == 0)
+	    return cp0;
+
+	if (ch == chEol && rgch[ich-1] == chReturn) /* EOL is its own unit */
+	    return cpBegin + ich - 1;
+	if (ch == chEol || ch == chReturn || ch == chSect || ch == chNewLine || ch == chTab)
+	    return cpBegin + ich;
+#else /* not CRLF */
+	if (ch == chEol || ch == chSect || ch == chNewLine || ch == chTab) /* EOL is its own unit */
+	    return cpBegin + ich;
+#endif /* CRLF */
+
+	if (wb == wbText)
+		cpSent = cpBegin + ich;
+	else
+		cpSent = cpNil;
+
+	for (;;)
+		{
+		if (ich == 0)
+			{
+			if (cpBegin == cpMinCur)
+				return cpMinCur; /* beginning of doc */
+			cpBegin = (cpBegin > dcpChunk) ? cpBegin - dcpChunk : cp0;
+			FetchRgch(&ich, rgch, docCur, cpBegin, cp, dcpChunk);
+			}
+		ch = rgch[--ich];
+		CachePara( docCur, cpBegin + ich ); /* Needed for pictures */
+		if (ch == chEol || ch == chSect || ch == chNewLine ||
+				   ch == chTab || vpapAbs.fGraphics )
+			break; /* EOL Always ends a unit */
+		if (sty == styWord)
+			{
+			if (wb != wbWhite)
+				{
+				if (WbFromCh(ch) != wb)
+					break;
+				}
+			else
+				wb = WbFromCh(ch);
+			}
+		else
+			{ /* Test for sentence. */
+			switch (ch)
+				{
+			case chDot:
+			case chBang:
+			case chQMark:
+				if (cpSent != cpNil)
+					return cpSent;
+				}
+			switch (WbFromCh(ch))
+				{
+			case wbText:
+				cpSent = cpBegin + ich;
+				wb = wbText;
+				break;
+			case wbPunct:
+				switch (wb)
+					{
+				case wbWhite:
+					wb = wbPunct;
+					break;
+				case wbText:
+					cpSent = cpBegin + ich;
+					}
+				break;
+			case wbWhite:
+				if (wb == wbPunct)
+					cpSent = cpBegin + ich + 1;
+				wb = wbWhite;
+				break;
+				}
+			}
+		}
+	return cpBegin + ich + 1;
+}
+
+#else		/* DBCS version */
+
+typeCP CpLimStySpecial(cp, sty)
+    typeCP	cp;
+    int 	sty;
+{
+    CHAR	rgch[cchKanji];
+    int 	ch, ch2;
+    int 	ich, wb;
+    typeCP	cpLim, cpT;
+
+    /* Other cases covered in CpLimSty, our only caller */
+    Assert(cp < cpMacCur);
+    Assert(cp >= cpMinCur);
+    Assert(sty == styWord || sty == stySent);
+
+    /* Picture paragraph? */
+    CachePara(docCur, cp);
+    if (vpapAbs.fGraphics) {
+	return vcpLimParaCache;
+	}
+
+    cpLim = vcpLimParaCache;
+    if (vcpLimParaCache > cpMacCur) {
+	/* No EOL at end of doc */
+	cpLim = cpMacCur;
+	}
+
+    FetchRgch(&ich, rgch, docCur, cp,
+	      ((cpT = cp + cchKanji) < cpLim) ? cpT : cpLim, cchKanji);
+    ch = rgch[0];
+#ifdef CRLF
+    if (ch == chReturn) {
+	return (cp + 2);
+	}
+#endif /* CRLF */
+    if (ch == chEol || ch == chSect || ch == chNewLine || ch == chTab) {
+	/* EOL is its own unit. */
+	return (cp + 1);
+	}
+#ifdef	KOREA
+	wb=WbFromCh(ch);
+#else
+
+    if (FKanji1(ch)) {
+	wb = WbFromKanjiChCh(ch, (int) rgch[1]);
+	if (sty == styWord && wb == wbKanjiText) {
+	    return (CpLimSty(cp, styChar));
+	    }
+	else {
+	    if (wb == wbKanjiText) {
+		wb = wbKanjiTextFirst;
+		}
+	    }
+	}
+    else {
+	if (sty == styWord && FKanaText(ch)) {
+	    return (CpLimSty(cp, styChar));
+	    }
+	wb = WbFromCh(ch);
+	}
+#endif
+
+    for (; cp < cpLim;) {
+	int	    wbT;
+
+	if (sty == stySent) {
+	    if (FKanji1(ch)) {
+		CHAR ch2;
+
+		ch2 = rgch[1];
+		if (FKanjiKuten(ch, ch2)  ||
+		    FKanjiQMark(ch, ch2)  ||
+		    FKanjiBang(ch, ch2)   ||
+		    FKanjiPeriod(ch, ch2)) {
+			sty = styWord;
+			wb = wbPunct;
+			goto lblNextFetch;
+		    }
+		}
+	    else {
+		switch (ch) {
+#ifndef  KOREA
+		    case bKanjiKuten:
+#endif
+		    case chDot:
+		    case chBang:
+		    case chQMark:
+			sty = styWord;
+			wb = wbPunct;
+			goto lblNextFetch;
+		    }
+		}
+	    }
+
+	switch (ch) {
+	    case chTab:
+	    case chEol:
+	    case chSect:
+	    case chNewLine:
+#ifdef CRLF
+	    case chReturn:
+#endif /* CRLF */
+		return cp;
+	    }
+
+	if (sty == styWord) {
+#ifdef	KOREA
+	    wbT = WbFromCh(ch);
+#else
+	    if (FKanji1(ch)) {
+		wbT = WbFromKanjiChCh(ch, (int) rgch[1]);
+		}
+	    else {
+		wbT = WbFromCh(ch);
+		}
+#endif
+
+	    if (wb != wbT && (wb = wbT) != wbWhite) {
+		return (cp);
+		}
+	    }
+
+lblNextFetch:
+	cp = CpLimSty(cp, styChar);
+	if (cp < cpLim) {
+	    /* Save some time and an untimely demise.... */
+	    FetchRgch(&ich, rgch, docCur, cp,
+		      ((cpT = cp + cchKanji) < cpLim) ? cpT : cpLim, cchKanji);
+	    ch = rgch[0];
+	    }
+	}
+    return (cpLim);
+}
+
+typeCP CpFirstStySpecial(cp, sty)
+typeCP cp;
+int sty;
+{ /* Return the first cp of this sty unit. */
+    typeCP	cpT, cpLim, cpFirstPara,
+		cpFirstLastSent; /* cpFirst of the last possible sentence boundary */
+    CHAR	rgch[cchKanji];
+    int 	ch;
+    int 	wb;
+    int 	ich;
+
+    /* Other cases were covered by CpFirstSty, our only caller */
+
+    Assert( cp > cpMinCur );
+    Assert(CpFirstSty(cp, styChar) == cp); /* cp is on a char boundary */
+    Assert( sty == stySent || sty == styWord );
+
+    cpT = cp;
+    if (cp >= cpMacCur) {
+	cpT = cp = cpMacCur;
+	}
+
+    CachePara(docCur, cpT );
+    cpFirstPara = vcpFirstParaCache;
+    if ((vcpFirstParaCache == cpT) || vpapAbs.fGraphics) {
+	return vcpFirstParaCache;
+	}
+
+
+#ifdef CRLF
+    /* CR-LF is assumed. */
+    Assert(TRUE);
+#else
+    Assert(FALSE);
+#endif /* CRLF */
+    FetchRgch(&ich, rgch, docCur, cp,
+	      ((cpT = cp + cchKanji) < cpMacCur) ? cpT : cpMacCur, cchKanji);
+    ch = rgch[0];
+    if (ich == cchKanji && ch == chReturn && rgch[1] == chEol) {
+	/* EOL is its own unit */
+	return cp;
+	}
+    if (ch == chEol	|| ch == chReturn || ch == chSect ||
+	ch == chNewLine || ch == chTab) {
+	    return cp;
+	    }
+
+    cpFirstLastSent = cpNil;
+
+#ifdef	KOREA
+    wb = WbFromCh(ch);
+#else
+    if (FKanji1(ch)) {
+	wb = WbFromKanjiChCh(ch, (int) rgch[1]);
+	if (sty == styWord && wb == wbKanjiText) {
+	    return (CpFirstSty(cp, styChar));
+	    }
+	else {
+	    if (wb == wbKanjiText) {
+		wb = wbKanjiTextFirst;
+		}
+	    }
+	}
+    else {
+	if (sty == styWord && FKanaText(ch)) {
+	    return (CpFirstSty(cp, styChar));
+	    }
+	wb = WbFromCh(ch);
+	}
+#endif
+
+    for (; cpFirstPara < cp; ) {
+	typeCP	cpTemp;
+	int	wbT;
+
+	cpTemp = CpFirstSty(cp - 1, styChar);
+	FetchRgch(&ich, rgch, docCur, cpTemp,
+		  ((cpT = cpTemp + cchKanji) < cpMacCur) ? cpT : cpMacCur, cchKanji);
+	ch = rgch[0];
+#ifdef	KOREA
+	wbT = WbFromCh(ch);
+#else
+	if (FKanji1(ch)) {
+	    wbT = WbFromKanjiChCh(ch, (int) rgch[1]);
+	    }
+	else {
+	    wbT = WbFromCh(ch);
+	    }
+#endif
+	if (wb == wbWhite) {
+#ifdef	KOREA
+	    wb=wbT;
+#else
+	    wb = (wbT == wbKanjiText) ? wbKanjiTextFirst : wbT;
+#endif
+	    }
+	else if (wb != wbT) {
+	    if (sty == styWord) {
+		return (cp);
+		}
+	    else /* sty == stySent */ {
+		 /* wb	!= wbWhite */
+		 /* wb	!= wbT	   */
+		if (wbT == wbWhite || wbT == wbPunct) {
+		    cpFirstLastSent = cp;
+		    wb = wbWhite;
+		    }
+		}
+	    }
+
+	if (sty == stySent) { /* for the sentence */
+	    if (FKanji1(ch)) {
+		int	ch2;
+		ch2 = rgch[1];
+		if (FKanjiKuten(ch, ch2) ||
+		    FKanjiQMark(ch, ch2) ||
+		    FKanjiBang(ch, ch2)  ||
+		    FKanjiPeriod(ch, ch2)) {
+			if (cpFirstLastSent != cpNil) {
+			    return (cpFirstLastSent);
+			    }
+			else {
+			    cpFirstLastSent = cp;
+			    }
+			}
+		}
+	    else {
+		switch(ch) {
+#ifndef KOREA
+		    case bKanjiKuten:
+#endif
+		    case chDot:
+		    case chBang:
+		    case chQMark:
+			if (cpFirstLastSent != cpNil) {
+			    return (cpFirstLastSent);
+			    }
+			else {
+			    cpFirstLastSent = cp;
+			    }
+		    }
+		}
+
+	    }
+
+	cp = cpTemp;
+	}
+    return (cpFirstPara);
+}
+#endif		/* DBCS */
+
+/* W B	F R O M  C H */
+int WbFromCh(ch)
+int ch;
+{ /* Return word-breakness of ch */
+
+#if defined(DBCS) & !defined(KOREA)    /* was in JAPAN; KenjiK '90-10-29 */
+	/* Brought from WIN2 source. */
+	if (FKanaPunct(ch)) {
+	    return wbPunct;
+	    }
+	else if (FKanaText(ch)) {
+	    return wbKanjiText;
+	    }
+#endif
+
+	switch (ch)
+		{
+	case chSpace:
+	case chEol:
+#ifdef CRLF
+	case chReturn:
+#endif
+	case chSect:
+	case chTab:
+	case chNewLine:
+	case chNBSFile:
+		return wbWhite;
+	case chNRHFile:
+		return wbText;
+	default: /* we are using the ANSI char set that windows used */
+#ifdef	KOREA
+		return ((isalpha(ch) || isdigit(ch) || ((ch>0xa1)&&(ch<0xfe)))? wbText : wbPunct);
+#else
+		return ((isalpha(ch) || isdigit(ch))? wbText : wbPunct);
+#endif
+		}
+}
+
+#ifdef	DBCS	/* was in JAPAN; KenjiK '90-10-29 */
+	/* Brought from WIN2 source. */
+int WbFromKanjiChCh(ch1, ch2)
+    int ch1, ch2;
+{
+    if (ch1 == chReturn && ch2 == chEol) {
+	return wbWhite;
+	}
+    else if (FKanjiSpace(ch1, ch2)) {
+	return wbWhite;
+	}
+    else
+
+#ifdef	JAPAN
+	 {
+	switch (ch1) {
+	    case 0x81:
+		if (0x57 <= ch2 && ch2 <= 0x59) {
+		    return wbKanjiText;
+		    }
+		else {
+		    return wbPunct;
+		    }
+	    case 0x85:
+		if ((0x40 <= ch2 && ch2 <= 0x4E) ||
+		    (0x59 <= ch2 && ch2 <= 0x5F) ||
+		    (0x7A <= ch2 && ch2 <= 0x7E) ||
+		    (0x9B <= ch2 && ch2 <= 0xA3) ||
+		    (0xDC <= ch2 && ch2 <= 0xDD)) {
+			return wbPunct;
+			}
+		else {
+		    return wbKanjiText;
+		    }
+	    case 0x86:
+		return wbPunct;
+	    case 0x87:
+		return ((ch2 >= 0x90) ? wbPunct : wbKanjiText);
+	    default:
+		return wbKanjiText;
+	    }
+	}
+#endif
+#ifdef	KOREA
+	{
+        switch (ch1) {
+	    case 0xa2:
+		if (0xde <= ch2 && ch2 <= 0xe5) {
+		    return wbKanjiText;
+		    }
+		else {
+		    return wbPunct;
+		    }
+	    case 0xa3:
+		if ((0xa1 <= ch2 && ch2 <= 0xaf) ||
+		    (0xba <= ch2 && ch2 <= 0xc0) ||
+		    (0xdb <= ch2 && ch2 <= 0xe0) ||
+		    (0xfb <= ch2 && ch2 <= 0xfe)) {
+			return wbPunct;
+			}
+		else {
+		    return wbKanjiText;
+		    }
+	    default:
+		return wbKanjiText;
+	    }
+	}
+#endif
+#ifdef	TAIWAN
+	{
+	switch (ch1) {
+	    case 0xA1:
+		if (0x41 <= ch2 && ch2 <= 0xAC) {
+		    return wbPunct;
+		    }
+		else {
+		    return wbKanjiText;
+		    }
+	    default:
+		return wbKanjiText;
+	    }
+	}
+#endif
+
+}
+#endif
+
+