mp_build.mpsl

   1 /*
   2
   3     Minimum Profit 5.x
   4     A Programmer's Text Editor
   5
   6     A simple IDE-like build system.
   7
   8     Copyright (C) 1991-2011 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['build']     = sub(doc) {
  31
  32     local t, target;
  33
  34     if ((t = mp.build_get_targets()) == NULL)
  35         mp.alert(L("No Makefile targets found."));
  36     else {
  37         /* more than one target? ask user to pick one */
  38         if (size(t) > 1) {
  39             local r = mp.form(
  40                 [
  41                     {
  42                         label:  L("Makefile target") ~ ':',
  43                         type:   'list',
  44                         list:   t,
  45                         value:  mp.makefile_target
  46                     }
  47                 ]
  48             );
  49
  50             if (r != NULL) {
  51                 mp.makefile_target = r[0];
  52
  53                 if (mp.makefile_target == 0)
  54                     target = '';
  55                 else
  56                     target = t[mp.makefile_target];
  57             }
  58         }
  59
  60         if (target != NULL)
  61             mp.long_op(mp.build_execute, target);
  62     }
  63 };
  64
  65
  66 mp.actions['insert_next_item'] = sub(doc) {
  67     local n = 0;
  68
  69     foreach (l, doc.txt.lines) {
  70         local r = regex(l, ['/^ \* /', '/[0-9]+/', '/: /']);
  71
  72         if (r[1] > n)
  73             n = r[1];
  74     }
  75
  76     mp.store_undo(doc);
  77     mp.insert(doc, ' * ' ~ (n + 1) ~ ': ');
  78 };
  79
  80 /** Default key bindings **/
  81
  82 mp.keycodes['f2'] = "build";
  83
  84 /** action descriptions **/
  85
  86 mp.actdesc['build']             = LL("Build project...");
  87 mp.actdesc['insert_next_item']  = LL("Insert next item");
  88
  89
  90 /** code **/
  91
  92 sub mp.build_get_targets
  93 {
  94     local r, f;
  95
  96     if ((f = open('Makefile', 'r')) != NULL) {
  97         local l;
  98
  99         r = [ '<default>' ];
 100
 101         while (l = read(f)) {
 102             local t;
 103
 104             if (t = regex(l, '/^[A-Za-z0-9_\.-]+:/'))
 105                 push(r, sregex(t, '/:/', ''));
 106         }
 107
 108         close(f);
 109     }
 110
 111     return r;
 112 }
 113
 114
 115 sub mp.build_execute(target)
 116 {
 117     local log = mp.open('<make output>');
 118
 119     log.txt.lines = [];
 120     log.txt.y = 0;
 121
 122     /* pipe through make */
 123     local p;
 124     if ((p = popen('make ' ~ target, 'r')) != NULL) {
 125         local l;
 126
 127         while (l = read(p))
 128             mp.insert(log, l);
 129
 130         pclose(p);
 131
 132         log.txt.mod = 0;
 133         log.read_only = 1;
 134
 135         log.syntax = mp.syntax.make_output;
 136
 137         mp.move_bof(log);
 138
 139         /* set the last search regex to match file:line strings,
 140             so that calling seek-next and seek-prev moves there */
 141         mp.last_search = '/^[a-z\.\_0-9\/-]+:[0-9]+:/m';
 142
 143         mp.redraw();
 144     }
 145 }