사용자들이 매크로를 작성하려면 필요한 명령을 순서에 맞게 기술해야 하는데 그러자면 매크로의 문법을 알아야 하는 번거로움이 있다. 그래서 보통 편집기가 사용자의 키 동작을 매크로 명령으로 변환하며 사용자는 반복하고자하는 편집 동작을 함으로써 매크로를 작성한다. 이런 기능이 가능하려면 매크로 기록 모드를 두고 기록 모드일 때는 사용자의 조작을 매크로에 일일이 기록해야 한다. 즉, 기록 시작 명령을 내린 후 매크로의 본체는 직접 키보드를 조작함으로써 작성하는 것이다. 비주얼 C++의 매크로 기능도 이런 식으로 되어 있다.
당근은 이와는 좀 다른 방식으로 매크로를 작성하는데 기록 시작 명령을 받은 후에 기록하지 않고 항상 기록을 유지하며 호스트는 이 기록중 일부를 매크로로 정의할 수 있다. 별도의 시작 명령없이 매크로에 포함될 후보 목록(Macro Candidate)을 항상 작성하는 것이다. 단순히 문자열을 미리 조립해 두는 정도이므로 실행 시간의 감소는 거의 없다. 편집 동작 기록을 위해 다음 클래스를 AeUtil.h에 선언한다.
#define MAXMC 64
#define DEFMCSIZE 32
#define AEVERBNUM 19
class CMcRecord
{
public:
TCHAR *arMc[MAXMC];
int nowmc;
int runlevel;
CMcRecord();
~CMcRecord();
void RecordCommand(const TCHAR *Com);
};
CMcRecord는 매크로 후보 명령의 배열을 다루는 클래스이다. arMc는 명령의 배열이며 길이를 미리 예측할 수 없으므로 실행중에 필요한만큼 메모리를 할당한다. 최근 64개의 명령을 배열에 기억하는데 이 개수를 더 늘리고 싶으면 MAXMC 매크로값을 늘리면 된다. 이 클래스의 구현 코드는 다음과 같으며 AeUtil.cpp에 작성한다.
CMcRecord::CMcRecord()
{
int i;
for (i=0;i<MAXMC;i++) {
arMc[i]=(TCHAR *)malloc(DEFMCSIZE);
}
nowmc=0;
runlevel=0;
}
CMcRecord::~CMcRecord()
{
int i;
for (i=0;i<MAXMC;i++) {
free(arMc[i]);
}
}
void CMcRecord::RecordCommand(const TCHAR *Com)
{
TCHAR *pOld;
int Count;
const TCHAR *p;
TCHAR szTemp[32];
int MergeType=0;
int Verb;
TCHAR *pCount;
TCHAR *s1,*s2;
if (runlevel != 0) {
return;
}
// 배열 범위를 넘었을 때 배열을 한칸 앞으로 복사한다.
if (nowmc == MAXMC) {
pOld=arMc[0];
memmove(&arMc[0],&arMc[1],sizeof(arMc[0])*(MAXMC-1));
// 단편화 방지. 지워진 첫 기록의 메모리를 재활용한다.
// 크기가 다르면 해제 후 재할당한다.
if (_msize(pOld) == _msize(arMc[MAXMC-1])) {
arMc[MAXMC-1]=pOld;
} else {
free(pOld);
arMc[MAXMC-1]=(TCHAR *)malloc(DEFMCSIZE);
}
nowmc--;
}
// 동사의 종류를 보고 병합 가능성을 판별한다. 첫번째 기록은 무조건 병합 안됨
p=Com;
Verb=GetComVerb(p,arComVerb);
if (nowmc != 0) {
if ((arComVerb[Verb].Flag & 0x1) && (strncmp(Com,arMc[nowmc-1],lstrlen(Com))==0)) {
MergeType=1;
}
if (Verb==AEC_INSERT && (strncmp(arMc[nowmc-1],"insert",6)==0)) {
MergeType=2;
}
}
switch (MergeType) {
case 0:
if (_msize(arMc[nowmc]) < (unsigned)lstrlen(Com)+1) {
arMc[nowmc]=(TCHAR *)realloc(arMc[nowmc],lstrlen(Com)+1);
}
lstrcpy(arMc[nowmc],Com);
nowmc++;
break;
case 1:
pCount=arMc[nowmc-1]+lstrlen(Com);
Count=GetComNumber(pCount,1);
Count++;
wsprintf(szTemp, " %d",Count);
lstrcpy(pCount,szTemp);
break;
case 2:
// 문자열 병합시는 확장열을 확장하지 말아야 한다.
GetComString(p,s1,FALSE);
p=arMc[nowmc-1];
GetComVerb(p,arComVerb);
GetComString(p,s2,FALSE);
// 메모리 관리
if (_msize(arMc[nowmc-1]) < (unsigned)10+lstrlen(s1)+lstrlen(s2)) {
arMc[nowmc-1]=(TCHAR *)realloc(arMc[nowmc-1],_msize(arMc[nowmc-1])+10);
}
wsprintf(arMc[nowmc-1],"insert \"%s%s\"",s2,s1);
free(s1);
free(s2);
//
break;
}
}
명령을 저장하는 arMc배열을 관리하는 것이 이 객체의 주된 기능이다. RecordCommand 함수는 인수로 전달된 문자열을 arMc 배열에 기록하는데 무조건 기록하기만 하는 것이 아니라 기존 기록과 호환되면 적절히 병합하기도 한다. 병합의 형태는 세 가지가 있는데 0번은 병합을 하지 않고 무조건 새로운 레코드로 만드는 타입이다. 회수를 가지는 명령들은 1번 병합 타입이며 기존 레코드와 같은 종류의 명령이 입력되었으면 회수만 늘린다. 예를 들어 최후 명령이 move left 3인 상태에서 다시 move left가 들어왔다면 카운트만 1증가시켜 move left 4로 수정하면 된다.
2번 타입은 문자열 삽입인데 삽입되는 문자열만 뒤쪽에 더 추가하면 된다. 예를 들어 insert "kore"까지 입력된 상태에서 insert "a"명령이 추가로 입력되었다면 이 두 명령은 insert "korea"로 병합된다. 이때 기존 레코드의 메모리가 부족하지 않은지 점검해 보고 부족할 경우 병합된 문자열을 모두 가질 수 있을만한 길이로 재할당해야 한다. 이런 병합에 의해 사용자의 실질적인 동작을 최대한 적은 개수의 명령으로 표현할 수 있다.
실제 편집을 하는 주체는 프레임이 아니라 뷰이므로 뷰가 편집 동작을 기억해야 한다. ApiEditText가 이 클래스의 객체를 멤버로 가지며 호스트가 기록을 직접 참조해야 하므로 public 멤버여야 한다.
class CApiEditText : public CWindow
{
....
public:
CMcRecord AeMc;
당연한 얘기겠지만 기본 뷰가 이 객체를 가지므로 파생 뷰도 이 멤버를 상속받는다. 이후 편집이 일어나는 모든 곳에서 AeMc 객체의 RecordCommand 함수를 호출하여 어떤 편집을 했는지 일일이 기록해야 한다.
매크로는 반복적으로 실행될 명령의 집합이므로 후보 명령이 될 수 있는 조건이 조금 까다롭다. ApiEdit는 다음 원칙에 따라 명령들을 기록한다.
1.키보드 동작만 기록한다. 드래그에 의한 선택이나 이동, 스크롤 등의 마우스 동작은 무시한다. 단, 마우스 동작이라도 대문자로 바꾸기, 날짜 삽입 등의 대응되는 메뉴 명령이 있으면 기록한다. 마우스 동작은 정규화하기 어려워 기록하기 어렵고 일반적으로 반복할 필요도 없다.
2.명령의 성공 여부와는 무관하게 기록한다. 예를 들어 문서 처음에서 왼쪽으로의 이동은 실패하지만 그래도 일단 매크로 후보 명령으로 기록은 한다. 실제 실행시에는 실패하지 않을 수도 있기 때문이다. 단 Ctrl+Shift+Up키처럼 정의되지 않은 키 입력이나 읽기 전용 상태에서의 삭제 동작처럼 무의미한 동작은 기록하지 않는다.
3.키보드로 원래부터 지원되던 명령만 기록한다. 매크로 구문에 의해 select word, move paraend같은 명령이 가능해졌는데 이런 명령은 기록되지 않는다. 하지만 사용자가 직접 매크로 편집기로 입력할 수는 있다.
4.한번 입력된 기록은 취소하지 않는다. 예를 들어 왼쪽으로 이동했다가 오른쪽으로 다시 이동했을 때 이 두 동작은 안 한 것과 같아지지만 일단은 기록한다. 매크로가 재생될 때는 반드시 제자리가 아닐 수도 있는데 예를 들어 문서 처음이었다면 이 두 동작에 의해 캐럿은 한칸 오른쪽으로 이동한다. 잘라내기, 붙여 넣기도 마찬가지로 모두 기록한다.
5.반복되는 동작은 병합한다. 매크로 구문이 회수를 지원하므로 가급적이면 매크로를 짧게 작성할 수 있도록 회수를 병합하는 것이 좋다. 삽입 명령은 삽입되는 문자열이 병합된다. 삽입중에 마우스로 위치를 이동한 후 계속 입력해도 역시 병합된다. 매크로 후보 명령은 키 동작을 기록하는 것 뿐이지 문서를 실제로 어떻게 변화시키는가를 기록하는 것이 아니다.
6.매크로 실행중에는 기록하지 않는다. 매크로 실행은 기록의 결과를 재생하는 것이며 이미 매크로로 만들어진 명령들이므로 더 기록할 필요가 없다. 상식적으로 지극히 당연한 얘기다. runlevel 멤버 변수가 실행중 기록을 방지하는 역할을 한다.
사용자의 편집 동작을 완전히 기록하려면 뷰에서 편집 동작이 일어나는 모든 곳에서 RecordCommand 함수를 호출해야 한다. 대부분의 편집 동작이 키입력으로부터 발생하므로 ProcessKey 함수에서 기록할 것이 많다. 키동작 기록을 위한 다음 함수를 작성한다.
void CApiEditText::ProcessKeyRecord(UINT vk,BOOL bControl,BOOL bShift)
{
switch (vk) {
case VK_LEFT:
if (bShift) {
if (bControl) {
AeMc.RecordCommand("movesel wleft");
} else {
AeMc.RecordCommand("movesel left");
}
} else {
if (bControl) {
AeMc.RecordCommand("move wleft");
} else {
AeMc.RecordCommand("move left");
}
}
break;
case VK_RIGHT:
if (bShift) {
if (bControl) {
AeMc.RecordCommand("movesel wright");
} else {
AeMc.RecordCommand("movesel right");
}
} else {
if (bControl) {
AeMc.RecordCommand("move wright");
} else {
AeMc.RecordCommand("move right");
}
}
break;
case VK_UP:
if (bControl && bShift)
break;
if (bShift) {
AeMc.RecordCommand("movesel up");
} else {
if (bControl) {
AeMc.RecordCommand("scroll up");
} else {
AeMc.RecordCommand("move up");
}
}
break;
case VK_DOWN:
if (bControl && bShift)
break;
if (bShift) {
AeMc.RecordCommand("movesel down");
} else {
if (bControl) {
AeMc.RecordCommand("scroll down");
} else {
AeMc.RecordCommand("move down");
}
}
break;
case VK_PRIOR:
if (bShift) {
AeMc.RecordCommand("movesel pgup");
} else {
AeMc.RecordCommand("move pgup");
}
break;
case VK_NEXT:
if (bShift) {
AeMc.RecordCommand("movesel pgdn");
} else {
AeMc.RecordCommand("move pgdn");
}
break;
case VK_HOME:
if (bShift) {
if (bControl) {
AeMc.RecordCommand("movesel dochome");
} else {
AeMc.RecordCommand("movesel home");
}
} else {
if (bControl) {
AeMc.RecordCommand("move dochome");
} else {
AeMc.RecordCommand("move home");
}
}
break;
case VK_END:
if (bShift) {
if (bControl) {
AeMc.RecordCommand("movesel docend");
} else {
AeMc.RecordCommand("movesel end");
}
} else {
if (bControl) {
AeMc.RecordCommand("move docend");
} else {
AeMc.RecordCommand("move end");
}
}
break;
case VK_DELETE:
if (pFrame->bReadOnly || bCapture)
break;
if (!bShift) {
AeMc.RecordCommand("delete");
}
break;
case VK_BACK:
if (pFrame->bReadOnly || bCapture || ViewType==HEXA_VIEW)
break;
if ((off==0 && SelStart==SelEnd) || (bShift && bControl))
break;
if (bControl) {
AeMc.RecordCommand("bs word");
} else {
AeMc.RecordCommand("bs char");
}
break;
}
}
보다시피 입력된 키값을 대응되는 명령 구문으로 기록하기만 하는 간단한 구조로 되어 있다. 이 함수는 ProcessKey 함수의 졸병 함수이므로 ProcessKey에서 이 함수를 호출한 후 실제 키 동작을 처리한다. 기록 원칙에서 얘기했다시피 명령의 성공 여부에 상관없이 무조건 기록해야 하므로 다른 조건을 더 점검할 필요는 없다.
void CApiEditText::ProcessKey(UINT vk,BOOL bControl,BOOL bShift)
{
int r,c;
int oldr;
int OldOff;
int toff;
ProcessKeyRecord(vk,bControl,bShift);
switch (vk) {
....
헥사 뷰에서도 마찬가지로 이 함수를 호출해야 한다.
void CApiEditHexa::ProcessKey(UINT vk,BOOL bControl,BOOL bShift)
{
int r,c;
int oldr;
int OldOff;
ProcessKeyRecord(vk,bControl,bShift);
switch (vk)
....
두 뷰가 키 입력을 처리하는 방식은 상당히 다르지만 키의 논리적 의미는 동일하므로 기록하는 방식은 거의 동일하다. 단, 헥사 뷰는 BS 키를 처리하지 않는다는 정도만 다를 뿐이다. 그래서 코드의 중복 방지를 위해 기본 뷰가 양쪽 뷰를 모두 지원하는 기록 함수를 제공하고 파생 뷰는 이 함수를 불러서 쓰기만 한다. 삽입 기록은 OnChar, OnImeChar에서 작성하는데 문자열에 저장할 수 없는 몇몇 특수 문자는 확장열로 변경한 후 기록해야 한다.
void CApiEditText::OnChar(HWND hWnd, TCHAR ch, int cRepeat)
{
TCHAR szCom[256];
....
if (ch == '\r') {
lstrcpy(szCom,"insert \"\\n\"");
} else if (ch == '\t') {
lstrcpy(szCom,"insert \"\\t\"");
} else if (ch == '\"') {
lstrcpy(szCom,"insert \"\\\"\"");
} else if (ch == '\\') {
lstrcpy(szCom,"insert \"\\\\\"");
} else {
wsprintf(szCom,"insert \"%s\"",szChar);
}
AeMc.RecordCommand(szCom);
if (ch=='\t') {
....
LRESULT CApiEditText::OnImeChar(HWND hWnd, WPARAM wParam, LPARAM lParam)
{
TCHAR szCom[256];
....
wsprintf(szCom,"insert \"%s\"",szChar);
AeMc.RecordCommand(szCom);
bComp=FALSE;
Invalidate(FindParaStart(off-lstrlen(szChar)));
SetCaret();
return 0;
}
개행 코드와 탭, 따옴표 등은 확장열로 바꾸어 기록한다. 헥사뷰에서의 입력은 기록하지 않는다. 문자열이 아니기 때문에 기록해도 재사용성이 크게 떨어지고 이진 바이트 입력은 매크로에 포함시키는데 문제가 많다. OnCommand에서 클립보드 관련 명령을 기록한다.
void CApiEditText::OnCommand(HWND hWnd, int id, HWND hwndCtl, UINT codeNotify)
{
switch (id) {
case IDM_AE_CUT:
if (SelStart != SelEnd && pFrame->bReadOnly==FALSE && bCapture==FALSE) {
AeMc.RecordCommand("cut");
AeMc.runlevel++;
SendMessage(hWnd,WM_COMMAND,MAKEWPARAM(IDM_AE_COPY,0),0);
AeMc.runlevel--;
....
case IDM_AE_COPY:
if (SelStart != SelEnd) {
AeMc.RecordCommand("copy");
....
case IDM_AE_PASTE:
if (IsClipboardFormatAvailable(CF_TEXT) && pFrame->bReadOnly==FALSE &&
bCapture==FALSE) {
AeMc.RecordCommand("paste");
....
case IDM_AE_SELALL:
AeMc.RecordCommand("select doc");
....
case IDM_AE_CUTAPPEND:
AeMc.RecordCommand("cutapp");
if (!IsClipboardFormatAvailable(CF_TEXT)) {
SendMessage(hWnd,WM_COMMAND,MAKEWPARAM(IDM_AE_CUT,0),0);
return;
}
if (SelStart != SelEnd && pFrame->bReadOnly==FALSE && bCapture==FALSE) {
AeMc.runlevel++;
SendMessage(hWnd,WM_COMMAND,MAKEWPARAM(IDM_AE_COPYAPPEND,0),0);
AeMc.runlevel--;
....
case IDM_AE_COPYAPPEND:
AeMc.RecordCommand("copyapp");
....
}
}
각 메뉴에 대응되는 매크로 명령을 기록하기만 하면 된다. 단, 잘라내기는 복사 후 삭제로 정의되어 있기 때문에 cut 다음에 copy도 같이 기록되는 문제가 있다. 그래서 복사할 때 runlevel을 올려 copy는 기록하지 않았다. 또한 Shift+Del 키로 잘라낼 때는 ProcessKeyRecord에서 삭제 기록을 먼저 작성해서는 안되므로 이 함수에서 Shift와 함께 Del을 눌렀을 때는 기록을 작성하지 않도록 해 두었다.
하나의 편집 명령이 여러 가지 세부 동작의 조합으로 구현되는 경우가 종종 있는데 이럴 때는 세부 동작은 빼고 최종 명령 하나만 기록해야 한다. cutappend도 마찬가지로 복사 명령은 기록하지 않아야 하며 이때도 runlevel을 잠시 증가시키는 방법을 사용했다. 헥사뷰에서 OnCommand를 재정의하지 않으므로 기본 뷰에만 기록 코드를 작성하면 된다. 다음은 북마크 관련 동작을 기록한다.
void CApiEditText::ToggleBookmark(int Para, int Mark)
{
TCHAR szCom[256];
....
if (Mark <= 9) {
wsprintf(szCom,"setmark %d",Mark);
AeMc.RecordCommand(szCom);
....
} else {
AeMc.RecordCommand("setmark unname");
....
void CApiEditText::GotoBookmark(int Mark)
{
TCHAR szCom[256];
....
if (Mark<=9) {
wsprintf(szCom,"gomark %d",Mark);
AeMc.RecordCommand(szCom);
....
} else {
....
if (Mark == 10) {
AeMc.RecordCommand("gomark next");
....
} else {
AeMc.RecordCommand("gomark prev");
....
}
}
GotoLine(Para,0,1);
}
이름이 없는 북마크이면 unname으로 기록하고 번호가 있는 북마크는 번호와 함께 기록했다. 다음은 찾기, 바꾸기 동작에 대한 기록을 작성한다.
BOOL CApiEditText::FindText(int nPos, TCHAR *what, DWORD dwFlag)
{
int nStart;
TCHAR *pFound;
BOOL bWrap;
TCHAR szCom[256];
wsprintf(szCom,"find \"%s\"",what);
if ((dwFlag & AE_FIND_WRAP)==0)
lstrcat(szCom," nowrap");
if (dwFlag & AE_FIND_UP)
lstrcat(szCom," up");
if (dwFlag & AE_FIND_WHOLEWORD)
lstrcat(szCom," word");
if (dwFlag & AE_FIND_MATCHCASE)
lstrcat(szCom," case");
AeMc.RecordCommand(szCom);
....
int CApiEditText::ReplaceText(int nPos, TCHAR *what, DWORD dwFlag, TCHAR *to)
{
int len;
TCHAR *pSel;
TCHAR *pWhat;
int Result;
TCHAR szDesc[1024];
TCHAR szCom[256];
wsprintf(szCom,"find \"%s\" \"%s\"",what,to);
if ((dwFlag & AE_FIND_WRAP)==0)
lstrcat(szCom," nowrap");
if (dwFlag & AE_FIND_UP)
lstrcat(szCom," up");
if (dwFlag & AE_FIND_WHOLEWORD)
lstrcat(szCom," word");
if (dwFlag & AE_FIND_MATCHCASE)
lstrcat(szCom," case");
AeMc.RecordCommand(szCom);
찾을 문자열과 바꿀 문자열, 검색 옵션 등이 인수로 전달되므로 이 인수들을 매크로의 대응되는 목적어로 바꾸어 기록했다. 각종 편집 명령들도 기록한다.
void CApiEditText::ChangeCase(int action)
{
switch (action) {
case 0:
AeMc.RecordCommand("convert upper");
....
case 1:
AeMc.RecordCommand("convert lower");
....
case 2:
AeMc.RecordCommand("convert reversecase");
....
case 3:
AeMc.RecordCommand("convert upperfirst");
....
case 4:
AeMc.RecordCommand("convert uppersend");
....
void CApiEditText::ConvertSpaceTab(BOOL bToSpace)
{
if (bToSpace) {
AeMc.RecordCommand("convert tospace");
....
} else {
AeMc.RecordCommand("convert totab");
....
void CApiEditText::RemoveExtraSpace()
{
....
AeMc.RecordCommand("convert removespace");
void CApiEditText::BlockIndent(BOOL bUnindent)
{
if (!bUnindent) {
AeMc.RecordCommand("convert indent");
....
} else {
AeMc.RecordCommand("convert unindent");
....
void CApiEditText::InsertComment(BOOL bUnComment)
{
if (!bUnComment) {
AeMc.RecordCommand("convert comment");
....
} else {
AeMc.RecordCommand("convert uncomment");
....
void CApiEditText::CopyChar(int dir)
{
if (dir==0) {
AeMc.RecordCommand("copychar up");
....
if (dir==1) {
AeMc.RecordCommand("copychar down");
....
void CApiEditText::GotoLastEditOff()
{
AeMc.RecordCommand("move last");
Move(AECM_LAST,FALSE);
}
키보드로 편집이 일어나는 모든 곳에서 매크로 후보 명령을 일일이 기록한다고 보면 된다. 사용자는 이렇게 기록된 정보 중 새로 만들 매크로에 포함시키고자 하는 명령을 쉽게 선택할 수 있으며 때로는 일부를 삭제하거나 더 입력해 넣을 수도 있다. 단, 매크로 실행중에 발생하는 편집동작은 기록하지 않는다.
void CApiEdit::ExecMacro(const TCHAR *szMacro)
{
const TCHAR *pc;
int Result,ParentResult;
GetActiveView()->AeMc.runlevel++;
StartUndoGroup(21);
for (pc=szMacro;;) {
....
}
EndUndoGroup();
GetActiveView()->AeMc.runlevel--;
}
RecordCommand 함수의 선두에서 runlevel이 0이 아니면 무조건 리턴하도록 되어 있으므로 runlevel만 0이 아닌 채로 만들어 놓고 편집 명령을 실행하면 어떤 명령도 기록되지 않는다. 이때 runlevel은 반드시 카운트로 관리해야 하는데 매크로가 매크로를 호출할 수 있기 때문이다. 카운트를 사용하면 중첩된 매크로 실행시에도 전체 매크로가 완전히 종료될 때까지 기록을 하지 않는다.
ApiEdit는 무조건 일정 개수의 편집 명령을 기록하고 관리하지만 컨트롤 스스로 이 기록을 사용하지는 않는다. 기록된 명령들은 호스트가 새로운 매크롤 작성할 때 후보 명령으로 참고만 할 뿐이다. 잠시 후 매크로 편집 대화상자에서 이 기록들을 사용할 것이다.