mp_misc.mpsl

   1 /*
   2
   3     Minimum Profit 5.x
   4     A Programmer's Text Editor
   5
   6     Miscellaneous editor actions.
   7
   8     Copyright (C) 1991-2007 Angel Ortega <angel@triptico.com>
   9
  10     This program is free software; you can redistribute it and/or
  11     modify it under the terms of the GNU General Public License
  12     as published by the Free Software Foundation; either version 2
  13     of the License, or (at your option) any later version.
  14
  15     This program is distributed in the hope that it will be useful,
  16     but WITHOUT ANY WARRANTY; without even the implied warranty of
  17     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18     GNU General Public License for more details.
  19
  20     You should have received a copy of the GNU General Public License
  21     along with this program; if not, write to the Free Software
  22     Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  23
  24     http://www.triptico.com
  25
  26 */
  27
  28 /** editor actions **/
  29
  30 mp.actions['eval']      = sub (d) {
  31         local t = mp.form( [
  32                 { 'label' => L("Code to execute:"),
  33                   'type' => 'text',
  34                   'history' => 'eval' }
  35                 ]);
  36
  37         if (t != NULL) {
  38                 t = t[0];
  39
  40                 if (! regex('/;\s*$/', t))
  41                         t = t ~ ';';
  42
  43                 t = eval(t);
  44
  45                 if (ERROR != NULL) {
  46                         mp.alert(L("Error: ") ~ ERROR);
  47                         ERROR = NULL;
  48                 }
  49                 else
  50                 if (t != NULL)
  51                         mp.alert(L("Exit value:\n") ~ t);
  52         }
  53 };
  54
  55 mp.actions['eval_doc']  = sub (d) {
  56         local t = join("\n", d.txt.lines);
  57
  58         if (t != NULL) {
  59                 t = eval(t);
  60
  61                 if (ERROR != NULL) {
  62                         mp.alert(L("Error: ") ~ ERROR);
  63
  64                         /* try to move the cursor to the line
  65                            where the error was */
  66                         local l;
  67
  68                         if ((l = regex( [ '/, line /', '/[0-9]+/' ], ERROR)) != NULL)
  69                                 mp.set_y(d, l[1]);
  70
  71                         ERROR = NULL;
  72                 }
  73         }
  74 };
  75
  76 mp.actions['encoding']  = sub (d) {
  77         local t = mp.form( [
  78                 { 'label' => L("Encoding (utf-8, iso8859-1, etc.; empty, current locale)") ~ ':',
  79                   'type' => 'text',
  80                   'history' => 'encoding' }
  81                 ]);
  82
  83         if (t != NULL)
  84                 if (encoding(t[0]) == -1)
  85                         mp.alert(L("Invalid encoding ") ~ t[0]);
  86 };
  87
  88 mp.actions['zoom_in']   = sub (d) {
  89
  90         mp.config.font_size++;
  91         mp.update_ui();
  92 };
  93
  94 mp.actions['zoom_out']  = sub (d) {
  95
  96         if (mp.config.font_size > 4) {
  97                 mp.config.font_size--;
  98                 mp.update_ui();
  99         }
 100 };
 101
 102 mp.actions['word_count'] = sub (d) {
 103
 104         mp.busy(1);
 105         local c = mp.word_count(d);
 106         mp.busy(0);
 107
 108         mp.alert(sprintf(L("Lines: %d Words: %d"),
 109                 size(mp.get_active_area(d)), c));
 110 };
 111
 112
 113 mp.actions['repeated_words'] = sub (d) {
 114         local r = mp.form( [
 115                 { 'label'       => L("Number of letters at the start or end") ~ ':',
 116                   'type'        => 'text',
 117                   'value'       => 4,
 118                   'history'     => 'num_char' },
 119                 { 'label'       => L("Maximum distance") ~ ':',
 120                   'type'        => 'text',
 121                   'value'       => 40,
 122                   'history'     => 'max_dist' }
 123                 ]);
 124
 125         if (r != NULL) {
 126                 mp.busy(1);
 127                 local c = mp.repeated_words(d, r[0], r[1]);
 128                 mp.busy(0);
 129
 130                 if (!c)
 131                         mp.alert(L("Text not found."));
 132         }
 133 };
 134
 135
 136 mp.actions['seek_repeated_word'] = sub (d) {
 137         if (!mp.repeated_words(d, mp.config.rw_num_chars, mp.config.rw_distance))
 138                 mp.alert(L("Text not found."));
 139 };
 140
 141
 142 mp.actions['about'] = sub (d) {
 143         local msg = L(
 144         "\nMinimum Profit %s - Programmer Text Editor\n\n"\
 145         "Components: MPDM %s, MPSL %s\n\n"\
 146         "Copyright (C) 1991-2009 Angel Ortega <angel@triptico.com>\n"\
 147         "\n"\
 148         "This program is free software; you can redistribute it and/or\n"\
 149         "modify it under the terms of the GNU General Public License\n"\
 150         "as published by the Free Software Foundation; either version 2\n"\
 151         "of the License, or (at your option) any later version.\n"\
 152         "\n"\
 153         "This program is distributed in the hope that it will be useful,\n"\
 154         "but WITHOUT ANY WARRANTY; without even the implied warranty of\n"\
 155         "MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n"\
 156         "See the GNU General Public License for more details.\n"\
 157         "\n"\
 158         "You should have received a copy of the GNU General Public License\n"\
 159         "along with this program; if not, write to the Free Software Foundation,\n"\
 160         "Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.\n"\
 161         "\n"\
 162         "Home page: http://www.triptico.com/software/mp.html\n"\
 163         "Mailing list: mp-subscribe@lists.triptico.com\n");
 164
 165         local mpdm = MPDM();
 166         msg = sprintf(msg, mp.VERSION, mpdm.version, MPSL.VERSION);
 167
 168         d = mp.open("<about>");
 169
 170         if (size(d.txt.lines) == 1) {
 171                 mp.insert(d, msg);
 172                 d.txt.mod = 0;
 173                 d.read_only = 1;
 174         }
 175 };
 176
 177 /** default key bindings **/
 178
 179 mp.keycodes['escape']           = 'eval';
 180 mp.keycodes['f12']              = 'zoom_in';
 181 mp.keycodes['ctrl-kp-plus' ]    = 'zoom_in';
 182 mp.keycodes['f11']              = 'zoom_out';
 183 mp.keycodes['ctrl-kp-minus' ]   = 'zoom_out';
 184 mp.keycodes['ctrl-f4']          = 'repeated_words';
 185
 186 /** action descriptions **/
 187
 188 mp.actdesc['eval']              = LL("Execute MPSL code...");
 189 mp.actdesc['eval_doc']          = LL("Execute document as MPSL");
 190 mp.actdesc['encoding']          = LL("Set charset encoding...");
 191 mp.actdesc['zoom_in']           = LL("Bigger font");
 192 mp.actdesc['zoom_out']          = LL("Smaller font");
 193 mp.actdesc['word_count']        = LL("Count words");
 194 mp.actdesc['repeated_words']    = LL("Search repeated words...");
 195 mp.actdesc['seek_repeated_word'] = LL("Search repeated word");
 196 mp.actdesc['about']             = LL("About...");
 197
 198 /** data **/
 199
 200 mp.config.rw_num_chars  = 4;
 201 mp.config.rw_distance   = 40;
 202
 203 /** code **/
 204
 205 sub dump(v)
 206 /* overwrite of the MPSL dump() function, dumping over a text document */
 207 {
 208         local d = mp.open("<dump>");
 209
 210         mp.move_eof(d);
 211         mp.insert(d, dumper(v));
 212         d.txt.mod = 0;
 213         d.read_only = 1;
 214 }
 215
 216
 217 sub mp.word_count(doc)
 218 /* counts the number of words in doc */
 219 {
 220         local w = 0;
 221
 222         foreach (l, mp.get_active_area(doc))
 223                 w += size(mp.split_by_words(l));
 224
 225         return w;
 226 }
 227
 228
 229 /**
 230  * mp.repeated_words - Finds words starting or ending the same in a range.
 231  * @doc: the document
 232  * @num_chars: minimum length for the word to be tested
 233  * @max_dist: maximum distance the word must have
 234  *
 235  * Finds words starting or ending the same to a maximum of @num_chars
 236  * and that are less than @max_dist words apart. If a pair of these words
 237  * is found, 1 is returned, the cursor positioned over the first one
 238  * and both highlighted as spelling errors. Otherwise, 0 is returned
 239  * and nothing is done.
 240  */
 241 sub mp.repeated_words(doc, num_chars, max_dist)
 242 {
 243         local q = [];
 244         local x = doc.txt.x;
 245         local y = doc.txt.y;
 246         local l;
 247
 248         /* build regexes */
 249         local s_rx = sprintf('/^.{1,%d}/i', num_chars);
 250         local e_rx = sprintf('/.{1,%d}$/i', num_chars);
 251
 252         /* if there were previous repeated words, no longer
 253            consider them as 'typos' */
 254         if (mp.last_repeated_words) {
 255                 hdel(mp.word_color, mp.last_repeated_words[0]);
 256                 hdel(mp.word_color, mp.last_repeated_words[1]);
 257         }
 258
 259         while ((l = doc.txt.lines[y]) != NULL && !ret) {
 260
 261                 local w;
 262
 263                 while ((w = regex(mp.word_regex, l, x)) != NULL) {
 264
 265                         /* get matching position */
 266                         local c = regex();
 267
 268                         /* does the word measure at lest num_chars? */
 269                         if (size(w) >= num_chars) {
 270                                 /* enqueue this word, and dequeue another */
 271                                 local w1 = queue(q, [
 272                                                 w,
 273                                                 c[0] + size(w),
 274                                                 y,
 275                                                 lc(regex(s_rx, w)),
 276                                                 lc(regex(e_rx, w))
 277                                         ], max_dist);
 278
 279                                 /* a word has been dequeued? */
 280                                 if (w1 != NULL) {
 281                                         /* seek each word in the queue */
 282                                         foreach (w2, q) {
 283                                                 /* does the word and any other in
 284                                                    the queue match the regexes? */
 285                                                 if ((w1[3] eq w2[3]) || (w1[4] eq w2[4])) {
 286
 287                                                         /* add both to the word color hash */
 288                                                         mp.word_color[w1[0]] =
 289                                                         mp.word_color[w2[0]] =
 290                                                                 mp.colors.spell.attr;
 291
 292                                                         /* store for later removal */
 293                                                         mp.last_repeated_words =
 294                                                                 [ w1[0], w2[0] ];
 295
 296                                                         /* move cursor there */
 297                                                         mp.set_y(doc, w1[2]);
 298                                                         mp.set_x(doc, w1[1]);
 299
 300                                                         /* set the first visible line */
 301                                                         doc.txt.vy = doc.txt.y;
 302
 303                                                         /* trigger a redraw */
 304                                                         mp.redraw();
 305
 306                                                         return 1;
 307                                                 }
 308                                         }
 309                                 }
 310                         }
 311
 312                         /* move offset to next word */
 313                         x = c[0] + c[1];
 314                 }
 315
 316                 y++;
 317                 x = 0;
 318         }
 319
 320         return 0;
 321 }