Ticket #3068: mcedit-vim-modeline-4.patch

.gitignore

@@ -46 +46 @@
 make.clang
 make.gcc
 make.tcc
+misc/ext.d/doc.sh
+misc/ext.d/misc.sh
+misc/ext.d/text.sh
+misc/ext.d/web.sh
+misc/syntax/Syntax
+src/man2hlp/man2hlp
+src/vfs/extfs/helpers/uc1541
+src/vfs/extfs/helpers/ulib
+tests/src/editor/test-data.txt

src/editor/edit-impl.h

@@ -59 +59 @@
 #define MARK_CURS       1000000000
 #define KEY_PRESS       1500000000
 
-/* Tabs spaces: (sofar only HALF_TAB_SIZE is used: */
-#define TAB_SIZE      option_tab_spacing
-#define HALF_TAB_SIZE ((int) option_tab_spacing / 2)
-
 /* max count stack files */
 #define MAX_HISTORY_MOVETO     50
 #define LINE_STATE_WIDTH 8
@@ -286 +282 @@
 /* either command or char_for_insertion must be passed as -1 */
 void edit_execute_cmd (WEdit * edit, unsigned long command, int char_for_insertion);
 
+int edit_tab_spacing(const WEdit *edit, gboolean half);
+
 /*** inline functions ****************************************************************************/
 
 /**

src/editor/edit.c

@@ -142 +142 @@
 /* --------------------------------------------------------------------------------------------- */
 /*** file scope functions ************************************************************************/
 /* --------------------------------------------------------------------------------------------- */
+
+static gboolean
+edit_fake_half_tabs(WEdit *edit)
+{
+    if (edit->force_halftabs == -1)
+        return option_fake_half_tabs;
+    return edit->force_halftabs;
+}
+
+static gboolean
+edit_fill_tabs_with_spaces(WEdit *edit)
+{
+    if (edit->force_fill_tabs_with_spaces == -1)
+        return option_fill_tabs_with_spaces;
+    return edit->force_fill_tabs_with_spaces;
+}
+
+int
+edit_tab_spacing(const WEdit *edit, gboolean half)
+{
+    int spacing = option_tab_spacing;
+    if (edit->force_tab_spacing > 0)
+        spacing = edit->force_tab_spacing;
+    if (half)
+        spacing /= 2;
+    return spacing;
+}
+
 /**
  * Load file OR text into buffers.  Set cursor to the beginning of file.
  *
@@ -1302 +1330 @@
     long curs_col;
 
     edit_update_curs_col (edit);
-    curs_col = edit->curs_col % (TAB_SIZE * space_width);
-    return (curs_col == 0 || curs_col == (HALF_TAB_SIZE * space_width));
+    curs_col = edit->curs_col % (edit_tab_spacing(edit, FALSE) * space_width);
+    return (curs_col == 0 || curs_col == (edit_tab_spacing(edit, TRUE) * space_width));
 }
 
 /* --------------------------------------------------------------------------------------------- */
@@ -1313 +1341 @@
 {
     int i, ch = 0;
 
-    for (i = 1; i <= HALF_TAB_SIZE; i++)
+    for (i = 1; i <= edit_tab_spacing(edit, TRUE); i++)
         ch |= edit_buffer_get_byte (&edit->buffer, edit->buffer.curs1 - i);
 
     return (ch == ' ' && is_aligned_on_a_tab (edit));
@@ -1326 +1354 @@
 {
     int i, ch = 0;
 
-    for (i = 0; i < HALF_TAB_SIZE; i++)
+    for (i = 0; i < edit_tab_spacing(edit, TRUE); i++)
         ch |= edit_buffer_get_byte (&edit->buffer, edit->buffer.curs1 + i);
 
     return (ch == ' ' && is_aligned_on_a_tab (edit));
@@ -1374 +1402 @@
     long i;
 
     edit_update_curs_col (edit);
-    i = option_tab_spacing * space_width;
-    if (half)
-        i /= 2;
+    i = edit_tab_spacing(edit, half) * space_width;
     if (i != 0)
     {
         i = ((edit->curs_col / i) + 1) * i - edit->curs_col;
@@ -1393 +1419 @@
 static inline void
 edit_tab_cmd (WEdit * edit)
 {
-    if (option_fake_half_tabs && is_in_indent (&edit->buffer))
+    if (edit_fake_half_tabs(edit) && is_in_indent (&edit->buffer))
     {
         /* insert a half tab (usually four spaces) unless there is a
            half tab already behind, then delete it and insert a
            full tab. */
-        if (option_fill_tabs_with_spaces || !right_of_four_spaces (edit))
+        if (edit_fill_tabs_with_spaces(edit) || !right_of_four_spaces (edit))
             insert_spaces_tab (edit, TRUE);
         else
         {
             int i;
 
-            for (i = 1; i <= HALF_TAB_SIZE; i++)
+            for (i = 1; i <= edit_tab_spacing(edit, TRUE); i++)
                 edit_backspace (edit, TRUE);
             edit_insert (edit, '\t');
         }
     }
-    else if (option_fill_tabs_with_spaces)
+    else if (edit_fill_tabs_with_spaces(edit))
         insert_spaces_tab (edit, FALSE);
     else
         edit_insert (edit, '\t');
@@ -1545 +1571 @@
         edit_cursor_move (edit, cur_bol - edit->buffer.curs1);
         if (!edit_line_is_blank (edit, edit->buffer.curs_line))
         {
-            if (option_fill_tabs_with_spaces)
-                insert_spaces_tab (edit, option_fake_half_tabs);
+            if (edit_fill_tabs_with_spaces(edit))
+                insert_spaces_tab (edit, edit_fake_half_tabs(edit));
             else
                 edit_insert (edit, '\t');
             edit_cursor_move (edit,
@@ -1585 +1611 @@
 
         edit_cursor_move (edit, cur_bol - edit->buffer.curs1);
 
-        if (option_fake_half_tabs)
-            del_tab_width = HALF_TAB_SIZE;
-        else
-            del_tab_width = option_tab_spacing;
+        del_tab_width = edit_tab_spacing(edit, edit_fake_half_tabs(edit));
 
         next_char = edit_buffer_get_current_byte (&edit->buffer);
         if (next_char == '\t')
@@ -2017 +2040 @@
  * cursor on that line and show it in the middle of the screen.
  */
 
+static off_t
+mc_findinfile(int handle, const gchar **searchstrs)
+{
+    off_t offset_bak, offset_cur, filesize;
+    char buff[10240];
+    ssize_t got;
+    const char *found;
+    size_t i, smallest_searchstr_len, searchstrs_count;
+
+    searchstrs_count = 0;
+    smallest_searchstr_len = strlen(searchstrs[0]);
+    while (searchstrs[searchstrs_count] != NULL) {
+        size_t len = strlen(searchstrs[searchstrs_count]);
+        if (smallest_searchstr_len > len)
+            smallest_searchstr_len = len;
+        searchstrs_count++;
+    }
+
+    offset_bak = mc_lseek(handle, 0, SEEK_CUR);
+    if (offset_bak < 0)
+        return -1;
+
+    filesize = mc_lseek(handle, 0, SEEK_END);
+    offset_cur = mc_lseek(handle, offset_bak, SEEK_SET);
+
+    do {
+        got = mc_read(handle, buff, sizeof(buff) - 1);
+        if (got <= 0)
+            return -1;
+        buff[got] = '\0';
+
+        for (i = 0; i < searchstrs_count; i++) {
+            /* this could be done in O(n), not O(n*m) */
+            found = strstr(buff, searchstrs[i]);
+            if (found) {
+                return mc_lseek(handle, offset_cur + (found - buff), SEEK_SET) +
+                    strlen(searchstrs[i]);
+            }
+        }
+
+        offset_cur = mc_lseek(handle,
+            offset_cur + (sizeof(buff) - 1) - smallest_searchstr_len, SEEK_SET);
+    } while (offset_cur + smallest_searchstr_len < filesize);
+
+    return -1;
+}
+
+static void
+scan_modeline(WEdit *edit, const vfs_path_t *filename)
+{
+    int fd;
+    int conf_tabstop = -1;
+    int conf_softtabstop = -1;
+    int conf_expandtab = -1;
+    int dst_halftabs = -1;
+    int dst_fill_tabs_with_spaces = -1;
+    int dst_force_tab_spacing = -1;
+    const gchar *searchstrs[] = {
+        "\n/*", "\n//", "\n#", "\ndnl", NULL
+    };
+
+    fd = mc_open(filename, O_RDONLY | O_BINARY);
+    while (1) {
+        off_t foundat;
+        char buff[200];
+        const char *s;
+        ssize_t got;
+        const char *foundstr;
+
+        foundat = mc_findinfile(fd, searchstrs);
+        if (foundat < 0)
+            return;
+
+        mc_lseek(fd, foundat, SEEK_SET);
+
+        got = mc_read(fd, buff, sizeof(buff) - 1);
+        if (got <= 0)
+            return;
+        buff[got] = '\0';
+
+        s = buff;
+        while (*s == ' ' || *s == '\t' || *s == '\n' || *s == '\r')
+            s++;
+        if (strncmp(s, "vim:", 4) != 0)
+            continue;
+        s += 4;
+
+        foundstr = strstr(s, "tabstop=");
+        if (foundstr)
+            conf_tabstop=atoi(foundstr + 8);
+        foundstr = strstr(s, "softtabstop=");
+        if (foundstr)
+            conf_softtabstop=atoi(foundstr + 12);
+        foundstr = strstr(s, "expandtab");
+        if (foundstr)
+            conf_expandtab = 1;
+        foundstr = strstr(s, "noexpandtab");
+        if (foundstr)
+            conf_expandtab = 0;
+
+        break;
+    }
+
+    if (conf_softtabstop > 0 && conf_tabstop > 0 &&
+        conf_softtabstop * 2 == conf_tabstop)
+    {
+        dst_halftabs = 1;
+    }
+
+    dst_fill_tabs_with_spaces = conf_expandtab;
+
+    dst_force_tab_spacing = conf_tabstop;
+
+    edit->force_halftabs = dst_halftabs;
+    edit->force_fill_tabs_with_spaces = dst_fill_tabs_with_spaces;
+    edit->force_tab_spacing = dst_force_tab_spacing;
+
+    mc_close(fd);
+}
+
 WEdit *
 edit_init (WEdit * edit, int y, int x, int lines, int cols, const vfs_path_t * filename_vpath,
            long line)
@@ -2054 +2197 @@
         edit_save_size (edit);
     }
 
+    edit->force_halftabs = -1;
+    edit->force_fill_tabs_with_spaces = -1;
+    edit->force_tab_spacing = -1;
+
+    scan_modeline(edit, filename_vpath);
+
     edit->drag_state = MCEDIT_DRAG_NORMAL;
 
     edit->stat1.st_mode = S_IRUSR | S_IWUSR | S_IRGRP | S_IROTH;
@@ -2755 +2904 @@
 
         if (c == '\n')
             return (upto != 0 ? (off_t) col : p);
-        if (c == '\t')
-            col += TAB_SIZE - col % TAB_SIZE;
+        if (c == '\t') {
+            int tab_size = edit_tab_spacing(edit, FALSE);
+            col += tab_size - col % tab_size;
+        }
         else if ((c < 32 || c == 127) && (orig_c == c
 #ifdef HAVE_CHARSET
                                           || (!mc_global.utf8_display && !edit->utf8)
@@ -2909 +3060 @@
     else
     {
         edit->over_col = 0;
-        if (option_fake_half_tabs && is_in_indent (&edit->buffer))
+        if (edit_fake_half_tabs(edit) && is_in_indent (&edit->buffer))
         {
             long fake_half_tabs;
 
             edit_update_curs_col (edit);
 
-            fake_half_tabs = HALF_TAB_SIZE * space_width;
+            fake_half_tabs = edit_tab_spacing(edit, TRUE) * space_width;
             if (fake_half_tabs != 0 && edit->curs_col % fake_half_tabs != 0)
             {
                 int q;
@@ -3402 +3553 @@
             while (edit_buffer_get_previous_byte (&edit->buffer) != '\n' && edit->buffer.curs1 > 0)
                 edit_backspace (edit, TRUE);
         }
-        else if (option_fake_half_tabs && is_in_indent (&edit->buffer)
+        else if (edit_fake_half_tabs(edit) && is_in_indent (&edit->buffer)
                  && right_of_four_spaces (edit))
         {
             int i;
 
-            for (i = 0; i < HALF_TAB_SIZE; i++)
+            for (i = 0; i < edit_tab_spacing(edit, TRUE); i++)
                 edit_backspace (edit, TRUE);
         }
+        else if (edit_fake_half_tabs(edit) && is_in_indent (&edit->buffer)
+                 && edit_buffer_get_byte(&edit->buffer, edit->buffer.curs1 - 1) == '\t') {
+            int i;
+
+            edit_backspace (edit, TRUE);
+            for (i = 0; i < edit_tab_spacing(edit, TRUE); i++)
+                edit_insert (edit, ' ');
+            /* TODO: if (right_of_four_spaces(edit) && left_of_four_spaces(edit)
+             * - replace spaces with a tab */
+        }
         else
             edit_backspace (edit, FALSE);
         break;
@@ -3422 +3583 @@
             if (option_cursor_beyond_eol && edit->over_col > 0)
                 edit_insert_over (edit);
 
-            if (option_fake_half_tabs && is_in_indent (&edit->buffer) && left_of_four_spaces (edit))
+            if (edit_fake_half_tabs(edit) && is_in_indent (&edit->buffer) && left_of_four_spaces (edit))
             {
                 int i;
 
-                for (i = 1; i <= HALF_TAB_SIZE; i++)
+                for (i = 1; i <= edit_tab_spacing(edit, TRUE); i++)
                     edit_delete (edit, TRUE);
             }
             else
@@ -3488 +3649 @@
         edit->column_highlight = 1;
     case CK_Left:
     case CK_MarkLeft:
-        if (option_fake_half_tabs && is_in_indent (&edit->buffer) && right_of_four_spaces (edit))
+        if (edit_fake_half_tabs(edit) && is_in_indent (&edit->buffer) && right_of_four_spaces (edit))
         {
             if (option_cursor_beyond_eol && edit->over_col > 0)
                 edit->over_col--;
             else
-                edit_cursor_move (edit, -HALF_TAB_SIZE);
+                edit_cursor_move (edit, -edit_tab_spacing(edit, TRUE));
             edit->force &= (0xFFF - REDRAW_CHAR_ONLY);
         }
         else
@@ -3503 +3664 @@
         edit->column_highlight = 1;
     case CK_Right:
     case CK_MarkRight:
-        if (option_fake_half_tabs && is_in_indent (&edit->buffer) && left_of_four_spaces (edit))
+        if (edit_fake_half_tabs(edit) && is_in_indent (&edit->buffer) && left_of_four_spaces (edit))
         {
-            edit_cursor_move (edit, HALF_TAB_SIZE);
+            edit_cursor_move (edit, edit_tab_spacing(edit, TRUE));
             edit->force &= (0xFFF - REDRAW_CHAR_ONLY);
         }
         else
@@ -3964 +4125 @@
 }
 
 /* --------------------------------------------------------------------------------------------- */
+
+/* vim: set tabstop=8 softtabstop=4 shiftwidth=4 expandtab: */

src/editor/editcmd.c

@@ -67 +67 @@
 #endif
 
 #include "src/history.h"
-#include "src/setup.h"          /* option_tab_spacing */
+#include "src/setup.h"
 #ifdef HAVE_CHARSET
 #include "src/selcodepage.h"
 #endif

src/editor/editdraw.c

@@ -584 +584 @@
                 int tab_over = 0;
                 gboolean wide_width_char = FALSE;
                 gboolean control_char = FALSE;
+                int tab_size = edit_tab_spacing(edit, FALSE);
 
                 p->ch = 0;
                 p->style = 0;
@@ -632 +633 @@
                     col = end_col - edit->start_col + 1;        /* quit */
                     break;
                 case '\t':
-                    i = TAB_SIZE - ((int) col % TAB_SIZE);
+                    i = tab_size - ((int) col % tab_size);
                     tab_over = (end_col - edit->start_col) - (col + i - 1);
                     if (tab_over < 0)
                         i += tab_over;

src/editor/editwidget.h

@@ -163 +163 @@
     /* line break */
     LineBreaks lb;
     gboolean extmod;
+
+    int force_halftabs;
+    int force_fill_tabs_with_spaces;
+    int force_tab_spacing;
 };
 
 /*** global variables defined in .c file *********************************************************/
@@ -171 +175 @@
 
 /*** inline functions ****************************************************************************/
 #endif /* MC__EDIT_WIDGET_H */
+
+/* vim: set tabstop=8 softtabstop=4 shiftwidth=4 expandtab: */

src/editor/wordproc.c

@@ -50 +50 @@
 
 #include "lib/global.h"
 
-#include "src/setup.h"          /* option_tab_spacing */
-
 #include "edit-impl.h"
 #include "editwidget.h"
 
@@ -59 +57 @@
 
 /*** file scope macro definitions ****************************************************************/
 
-#define tab_width option_tab_spacing
-
 #define NO_FORMAT_CHARS_START "-+*\\,.;:&>"
 #define FONT_MEAN_WIDTH 1
 
@@ -205 +201 @@
  */
 
 static inline off_t
-next_tab_pos (off_t x)
+next_tab_pos (off_t x, int tab_width)
 {
     x += tab_width - x % tab_width;
     return x;
@@ -214 +210 @@
 /* --------------------------------------------------------------------------------------------- */
 
 static inline off_t
-line_pixel_length (unsigned char *t, off_t b, off_t l, gboolean utf8)
+line_pixel_length (unsigned char *t, off_t b, off_t l, int tab_width, gboolean utf8)
 {
     off_t xn, x;                /* position conters */
     off_t cw;                   /* character width in bytes */
@@ -235 +231 @@
         case '\n':
             return b;
         case '\t':
-            xn = next_tab_pos (x);
+            xn = next_tab_pos (x, tab_width);
             break;
         default:
 #ifdef HAVE_CHARSET
@@ -324 +320 @@
 /** replaces ' ' with '\n' to properly format a paragraph */
 
 static inline void
-format_this (unsigned char *t, off_t size, long indent, gboolean utf8)
+format_this (unsigned char *t, off_t size, long indent, int tab_width, gboolean utf8)
 {
     off_t q = 0, ww;
 
@@ -337 +333 @@
     {
         off_t p;
 
-        q = line_pixel_length (t, q, ww, utf8);
+        q = line_pixel_length (t, q, ww, tab_width, utf8);
         if (q > size)
             break;
         if (t[q] == '\n')
@@ -386 +382 @@
 static void
 edit_insert_indent (WEdit * edit, long indent)
 {
+    int tab_size = edit_tab_spacing(edit, FALSE);
     if (!option_fill_tabs_with_spaces)
-        while (indent >= TAB_SIZE)
+        while (indent >= tab_size)
         {
             edit_insert (edit, '\t');
-            indent -= TAB_SIZE;
+            indent -= tab_size;
         }
 
     while (indent-- > 0)
@@ -513 +510 @@
 #ifdef HAVE_CHARSET
     utf8 = edit->utf8;
 #endif
-    format_this (t2, q - p, indent, utf8);
+    format_this (t2, q - p, indent, edit_tab_spacing(edit, FALSE), utf8);
     put_paragraph (edit, t2, p, indent, size);
     g_free ((char *) t2);
 
@@ -522 +519 @@
 }
 
 /* --------------------------------------------------------------------------------------------- */
+
+/* vim: set tabstop=8 softtabstop=4 shiftwidth=4 expandtab: */