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-2008 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                 return;
  37         }
  38
  39         /* more than one target? ask user to pick one */
  40         if (size(t) > 1) {
  41                 local r = mp.form( [
  42                         { 'label'       => L("Makefile target") ~ ':',
  43                           'type'        => 'list',
  44                           'list'        => t }
  45                         ]);
  46
  47                 if (r == NULL)
  48                         return;
  49
  50                 if (r[0] == 0)
  51                         target = '';
  52                 else
  53                         target = t[r[0]];
  54         }
  55
  56         mp.long_op(mp.build_execute, target);
  57 };
  58
  59
  60 /** Default key bindings **/
  61
  62 mp.keycodes['f2'] = "build";
  63
  64 /** action descriptions **/
  65
  66 mp.actdesc['build'] = LL("Build project...");
  67
  68 /** code **/
  69
  70 sub mp.build_get_targets
  71 {
  72         local r, f;
  73
  74         if ((f = open('Makefile', 'r')) != NULL) {
  75                 local l;
  76
  77                 r = [ '<default>' ];
  78
  79                 while (l = read(f)) {
  80                         local t;
  81
  82                         if (t = regex('/^[A-Za-z0-9_\.-]+:/', l))
  83                                 push(r, sregex('/:/', t, ''));
  84                 }
  85
  86                 close(f);
  87         }
  88
  89         return r;
  90 }
  91
  92
  93 sub mp.build_execute(target)
  94 {
  95         local log = mp.open('<make output>');
  96
  97         log.txt.lines = [];
  98         log.txt.y = 0;
  99
 100         /* pipe through make */
 101         local p;
 102         if ((p = popen('make ' ~ target, 'r')) != NULL) {
 103                 local l;
 104
 105                 while (l = read(p))
 106                         mp.insert(log, l);
 107
 108                 pclose(p);
 109
 110                 log.txt.mod = 0;
 111                 log.read_only = 1;
 112
 113                 log.syntax = mp.syntax.make_output;
 114
 115                 mp.move_bof(log);
 116
 117                 /* set the last search regex to match file:line strings,
 118                    so that calling seek-next and seek-prev moves there */
 119                 mp.last_search = '/^[a-z\.\_0-9\/-]+:[0-9]+:/m';
 120         }
 121 }