142 lines
5 KiB
C
142 lines
5 KiB
C
|
/*** filter.c - Microsoft Editor Filter Extension
|
||
|
|
*
|
||
|
|
* Purpose:
|
||
|
|
* Provides a new editting function, filter, which replaces its argument with
|
||
|
|
* the the argument run through an arbitrary operating system filter program.
|
||
|
|
*
|
||
|
|
* Modifications
|
||
|
|
* 12-Sep-1988 mz Made WhenLoaded match declaration
|
||
|
|
*
|
||
|
|
*************************************************************************/
|
||
|
|
#define EXT_ID " Z Extensions 1.00 "##__DATE__##" "##__TIME__
|
||
|
|
|
||
|
|
#include <stdlib.h> /* min macro definition */
|
||
|
|
#include <string.h> /* prototypes for string fcns */
|
||
|
|
#include "zext.h"
|
||
|
|
|
||
|
|
void pascal id (char *);
|
||
|
|
void pascal EXTERNAL SetFilter (char far *);
|
||
|
|
flagType pascal EXTERNAL filter (CMDDATA, ARG far *, flagType);
|
||
|
|
void pascal filterWhenLoaded (void);
|
||
|
|
|
||
|
|
flagType pascal EXTERNAL justify (CMDDATA, ARG far *, flagType);
|
||
|
|
void pascal justifyWhenLoaded (void);
|
||
|
|
|
||
|
|
flagType pascal EXTERNAL StartExt (CMDDATA, ARG far *, flagType);
|
||
|
|
flagType pascal EXTERNAL Case (CMDDATA, ARG far *, flagType);
|
||
|
|
flagType pascal EXTERNAL ShowBuildMessage (CMDDATA, ARG far *, flagType);
|
||
|
|
flagType pascal EXTERNAL SlmOut (CMDDATA, ARG far *, flagType);
|
||
|
|
void pascal partyWhenLoaded (void);
|
||
|
|
|
||
|
|
flagType pascal EXTERNAL PMatch (CMDDATA, ARG far *, flagType);
|
||
|
|
void pascal PMatchWhenLoaded (void);
|
||
|
|
|
||
|
|
flagType pascal EXTERNAL tglcase (CMDDATA, ARG far *, flagType);
|
||
|
|
void pascal tglcaseWhenLoaded (void);
|
||
|
|
|
||
|
|
flagType pascal EXTERNAL ucase (CMDDATA, ARG far *, flagType);
|
||
|
|
flagType pascal EXTERNAL lcase (CMDDATA, ARG far *, flagType);
|
||
|
|
void pascal ulcaseWhenLoaded (void);
|
||
|
|
|
||
|
|
flagType pascal EXTERNAL wincopy (CMDDATA, ARG far *, flagType);
|
||
|
|
flagType pascal EXTERNAL wincut (CMDDATA, ARG far *, flagType);
|
||
|
|
flagType pascal EXTERNAL windel (CMDDATA, ARG far *, flagType);
|
||
|
|
flagType pascal EXTERNAL winpaste (CMDDATA, ARG far *, flagType);
|
||
|
|
void pascal winclipWhenLoaded (void);
|
||
|
|
|
||
|
|
extern flagType just2space;
|
||
|
|
extern int justwidth;
|
||
|
|
extern flagType iconizeOnExit;
|
||
|
|
|
||
|
|
|
||
|
|
/*** WhenLoaded - Extension Initialization
|
||
|
|
*
|
||
|
|
* Purpose:
|
||
|
|
* Executed when extension gets loaded. Identify self, create <filter-file>,
|
||
|
|
* and assign default keystroke.
|
||
|
|
*
|
||
|
|
* Input:
|
||
|
|
* none
|
||
|
|
*
|
||
|
|
* Output:
|
||
|
|
* Returns nothing. Initializes various data.
|
||
|
|
*
|
||
|
|
*************************************************************************/
|
||
|
|
void EXTERNAL
|
||
|
|
WhenLoaded (
|
||
|
|
void
|
||
|
|
)
|
||
|
|
{
|
||
|
|
filterWhenLoaded();
|
||
|
|
justifyWhenLoaded();
|
||
|
|
partyWhenLoaded();
|
||
|
|
PMatchWhenLoaded();
|
||
|
|
tglcaseWhenLoaded();
|
||
|
|
ulcaseWhenLoaded();
|
||
|
|
winclipWhenLoaded();
|
||
|
|
id ("ZEXTENS: ");
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
/*** id - identify extension
|
||
|
|
*
|
||
|
|
* Purpose:
|
||
|
|
* identify ourselves, along with any passed informative message.
|
||
|
|
*
|
||
|
|
* Input:
|
||
|
|
* pszMsg = Pointer to asciiz message, to which the extension name
|
||
|
|
* and version are appended prior to display.
|
||
|
|
*
|
||
|
|
* Output:
|
||
|
|
* Returns nothing. Message displayed.
|
||
|
|
*
|
||
|
|
*************************************************************************/
|
||
|
|
void pascal id (
|
||
|
|
char *pszFcn /* function name */
|
||
|
|
)
|
||
|
|
{
|
||
|
|
char buf[BUFLEN]; /* message buffer */
|
||
|
|
|
||
|
|
strcpy (buf,pszFcn);
|
||
|
|
strcat (buf,EXT_ID);
|
||
|
|
DoMessage (buf);
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
//
|
||
|
|
// Switch communication table to the editor
|
||
|
|
//
|
||
|
|
struct swiDesc swiTable[] = {
|
||
|
|
{"filtcmd", (PIF)SetFilter, SWI_SPECIAL},
|
||
|
|
{"just2space", toPIF(just2space), SWI_BOOLEAN},
|
||
|
|
{"justwidth", toPIF(justwidth), SWI_NUMERIC | RADIX10},
|
||
|
|
{"iconizeonexit", toPIF(iconizeOnExit), SWI_BOOLEAN},
|
||
|
|
{0, 0, 0}
|
||
|
|
};
|
||
|
|
|
||
|
|
|
||
|
|
//
|
||
|
|
// Command communiation table to the editor
|
||
|
|
//
|
||
|
|
struct cmdDesc cmdTable[] = {
|
||
|
|
{"filter", filter, 0, KEEPMETA | NOARG | BOXARG | NULLARG | LINEARG | MARKARG | NUMARG | TEXTARG | MODIFIES},
|
||
|
|
{"justify", justify, 0, MODIFIES | NOARG | NULLARG | LINEARG | BOXARG | TEXTARG },
|
||
|
|
{"startext", StartExt, 0, NOARG },
|
||
|
|
{"MapCase", Case, 0, NOARG | NULLARG | LINEARG | BOXARG | NUMARG },
|
||
|
|
{"BuildMessage",ShowBuildMessage, 0, NOARG | NULLARG | TEXTARG },
|
||
|
|
{"SlmOut", SlmOut, 0, NOARG | NULLARG | TEXTARG },
|
||
|
|
{"pmatch", PMatch, 0, CURSORFUNC },
|
||
|
|
{"tglcase", tglcase, 0, KEEPMETA | NOARG | BOXARG | NULLARG | LINEARG | MARKARG | NUMARG | MODIFIES},
|
||
|
|
{"ucase", ucase, 0, MODIFIES | KEEPMETA | NOARG | BOXARG | NULLARG | LINEARG },
|
||
|
|
{"lcase", lcase, 0, MODIFIES | KEEPMETA | NOARG | BOXARG | NULLARG | LINEARG },
|
||
|
|
{"wincopy", wincopy, 0, KEEPMETA | NOARG | BOXARG | LINEARG | STREAMARG | MARKARG | NULLEOL | NUMARG },
|
||
|
|
{"wincut", wincut, 0, NOARG | BOXARG | LINEARG | STREAMARG | MARKARG | NULLEOL | NUMARG | MODIFIES},
|
||
|
|
{"windel", windel, 0, NOARG | BOXARG | LINEARG | STREAMARG | NULLARG | MODIFIES},
|
||
|
|
{"winpaste", winpaste, 0, KEEPMETA | NOARG | BOXARG | LINEARG | STREAMARG | TEXTARG | MODIFIES},
|
||
|
|
{0, 0, 0}
|
||
|
|
};
|