workbench/tools/Edit/Macros.c

   1 /***************************************************
   2 **                                                **
   3 **      $VER: Macros.c 1.0 (15.8.2001)            **
   4 **      Record sequence of keystrokes             **
   5 **                                                **
   6 **      © T.Pierron, C.Guilaume. Free software    **
   7 **      under terms of GNU public license.        **
   8 **                                                **
   9 ***************************************************/
  10
  11 #include <intuition/intuition.h>
  12 #include <intuition/screens.h>
  13 #include <exec/memory.h>
  14 #include "Project.h"
  15 #include "Macros.h"
  16 #include "Gui.h"
  17 #include "Utility.h"
  18 #include "Cursor.h"
  19 #include "Jed.h"
  20 #include "Events.h"
  21 #include "ProtoTypes.h"
  22
  23 #define CATCOMP_NUMBERS
  24 #include "strings.h"
  25
  26 extern STRPTR  InfoTmpl;
  27 extern UBYTE   record;
  28 extern Project edit;
  29 static STRPTR  OldInfo = NULL;
  30
  31 UBYTE NewTmpl[20], TmplLen, TmplWid;
  32
  33 /** Manage a set of macros **/
  34 Macro MainMacro = NULL, MacCur = NULL, LastChunk;
  35
  36 UBYTE SzOp[] = {
  37         sizeof( *(ActChar)0L ),
  38         sizeof( *(ActMenu)0L ),
  39         sizeof( *(ActShortcut)0L )
  40 };
  41
  42 /*** Setup some variables ***/
  43 void init_macros( void )
  44 {
  45         TmplLen = strlen(
  46         strcpy(NewTmpl, ErrMsg(WARN_REC)));
  47         strcat(NewTmpl, "  "); TmplLen += 2;
  48         strcat(NewTmpl, InfoTmpl);
  49 }
  50
  51 /*** Free memory used by a macro ***/
  52 void free_macro( Macro m )
  53 {
  54         Macro next;
  55         for(; m ; next = m->next, FreeVec(m), m = next);
  56 }
  57 void free_macros( void )
  58 {
  59         free_macro(MainMacro);
  60         free_macro(MacCur);
  61 }
  62
  63 /*** Start recording keystrokes ***/
  64 void start_macro( void )
  65 {
  66         if(OldInfo == NULL)
  67         {
  68                 /* Show a special msg in info template to show reccording state */
  69                 free_macro(MacCur);
  70                 OldInfo  = InfoTmpl;
  71                 InfoTmpl = NewTmpl;
  72                 TmplWid  = TextLength(prefs.backdrop ? &Scr->RastPort : &RPT, NewTmpl, TmplLen);
  73                 record   = 0x81;
  74                 MacCur   = LastChunk = NULL;
  75                 gui.xinfo -= TmplWid;
  76                 ThrowError(Wnd, ErrMsg(WARN_RECORD));
  77                 draw_info( edit );
  78         }
  79 }
  80
  81 void stop_macro( void )
  82 {
  83         if(OldInfo != NULL)
  84         {
  85                 InfoTmpl = OldInfo; OldInfo = NULL;
  86                 record   = FALSE;
  87                 gui.xinfo += TmplWid;
  88                 /* Do not save something if nothing has been recorded */
  89                 if(MacCur != NULL) {
  90                         free_macro( MainMacro ); MainMacro = MacCur; MacCur = NULL;
  91                         ThrowError(Wnd, ErrMsg(WARN_RECORDED));
  92                 }
  93                 else SetTitle(Wnd, Wnd->UserData);
  94                 draw_info( edit );
  95         }
  96 }
  97
  98 /** Alloc a new chunk for recording keystroke **/
  99 void *new_action( UWORD size )
 100 {
 101         if(LastChunk == NULL || LastChunk->usage + size > SZ_MACRO)
 102         {
 103                 Macro new;
 104                 /* Alloc a new chunk, not enough room */
 105                 if(NULL == (new = (Macro) AllocVec(sizeof(*new), MEMF_CLEAR)))
 106                         return NULL;
 107
 108                 if(LastChunk) LastChunk->next = new;
 109                 else MacCur = new;  LastChunk = new;
 110                 new->usage = size;
 111                 return new->data;
 112         }
 113         else /* Still some place in current chunk */
 114         {
 115                 STRPTR new = LastChunk->data + LastChunk->usage;
 116                 LastChunk->usage += size;
 117                 return new;
 118         }
 119 }
 120
 121 /** Register actions **/
 122 void reg_act_addchar( UBYTE code )
 123 {
 124         ActChar new;
 125         if( ( new = new_action( sizeof(*new) ) ) )
 126                 new->Type = MAC_ACT_ADD_CHAR, new->Char = code;
 127 }
 128 void reg_act_com( UBYTE type, UWORD code, UWORD qual )
 129 {
 130         ActMenu new;
 131         if( ( new = new_action( sizeof(*new) ) ) )
 132                 new->Type = type, new->Code = code, new->Qual = qual;
 133 }
 134
 135 /** Play current macro **/
 136 void play_macro( int nb_times )
 137 {
 138         extern struct IntuiMessage msgbuf;
 139         WORD selmask, txtmask;
 140         Macro m;
 141
 142         if(MainMacro == NULL) return;
 143
 144         /* Disconnect display, just to be clean, not for performance */
 145         inv_curs(edit, FALSE);
 146         RP->Mask = 0; RPT.Mask = 0;
 147         selmask  = gui.selmask; gui.selmask = 0;
 148         txtmask  = gui.txtmask; gui.txtmask = 0;
 149         record   = 2;
 150
 151         while( nb_times -- )
 152         {
 153                 for(m = MainMacro; m; m = m->next)
 154                 {
 155                         STRPTR op, eoc;
 156                         for(eoc = (op = m->data) + m->usage; op < eoc; op += SzOp[*op])
 157                                 switch( *op )
 158                                 {
 159                                         case MAC_ACT_ADD_CHAR:
 160                                                 if( add_char(&edit->undo, edit->edited, edit->nbc, ((ActChar)op)->Char) )
 161                                                 {
 162                                                         REDRAW_CURLINE(edit);
 163                                                         curs_right(edit, FALSE);
 164                                                 }       break;
 165                                         case MAC_ACT_COM_MENU:
 166                                                 msgbuf.Qualifier = ((ActMenu)op)->Qual;
 167                                                 handle_menu( ((ActMenu)op)->Code ); break;
 168                                         case MAC_ACT_SHORTCUT:
 169                                                 msgbuf.Qualifier = ((ActShortcut)op)->Qual;
 170                                                 msgbuf.Code      = ((ActShortcut)op)->Code;
 171                                                 handle_kbd(edit); break;
 172                                 }
 173                 }
 174         }
 175         /* Now we can show changes */
 176         gui.selmask = selmask;
 177         gui.txtmask = txtmask;
 178         RP->Mask = (edit->ccp.select ? selmask : txtmask);
 179         RPT.Mask = 0xff;
 180         record   = 0;
 181         redraw_content(edit, edit->show, gui.topcurs, gui.nbline);
 182         prop_adj( edit );
 183         inv_curs(edit,TRUE);
 184 }
 185
 186 void repeat_macro( Project p )
 187 {
 188         LONG nb;
 189
 190         if( MainMacro && get_number(p, GetMenuText(404), &nb) )
 191                 play_macro( nb );
 192 }
 193
 194 #if     0
 195 /** Select other slot **/
 196 void new_slot( BYTE dir )
 197 {
 198         Macro *m = MacTable + CurInd - 1, *last = m;
 199
 200         for(;;) {
 201                 if(dir < 0) m--; else m++;
 202                 if(m <  MacTable)         m = MacTable + MAX_MAC;
 203                 if(m >= MacTable+MAX_MAC) m = MacTable;
 204                 if(last == m || *m != NULL) break;
 205         }
 206         CurInd = m - MacTable + 1;
 207
 208         ThrowError(Wnd, my_SPrintf(*m ? ErrMsg(WARN_SLOT) : ErrMsg(WARN_EMPTYSLOT), &CurInd));
 209 }
 210 #endif
 211