root/src/usermenu.c

/* [previous][next][first][last][top][bottom][index][help]  */

DEFINITIONS

This source file includes following definitions.
  1. strip_ext
  2. check_patterns
  3. extract_arg
  4. test_type
  5. test_condition
  6. debug_out
  7. test_line
  8. execute_menu_command
  9. menu_file_own
  10. check_format_view
  11. check_format_cd
  12. check_format_var
  13. expand_format
  14. user_menu_cmd

   1 /*
   2    User Menu implementation
   3 
   4    Copyright (C) 1994-2021
   5    Free Software Foundation, Inc.
   6 
   7    Written by:
   8    Slava Zanko <slavazanko@gmail.com>, 2013
   9    Andrew Borodin <aborodin@vmail.ru>, 2013
  10 
  11    This file is part of the Midnight Commander.
  12 
  13    The Midnight Commander is free software: you can redistribute it
  14    and/or modify it under the terms of the GNU General Public License as
  15    published by the Free Software Foundation, either version 3 of the License,
  16    or (at your option) any later version.
  17 
  18    The Midnight Commander is distributed in the hope that it will be useful,
  19    but WITHOUT ANY WARRANTY; without even the implied warranty of
  20    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21    GNU General Public License for more details.
  22 
  23    You should have received a copy of the GNU General Public License
  24    along with this program.  If not, see <http://www.gnu.org/licenses/>.
  25  */
  26 
  27 /** \file usermenu.c
  28  *  \brief Source: user menu implementation
  29  */
  30 
  31 #include <config.h>
  32 
  33 #include <ctype.h>
  34 #include <errno.h>
  35 #include <stdlib.h>
  36 #include <stdio.h>
  37 #include <string.h>
  38 
  39 #include "lib/global.h"
  40 #include "lib/fileloc.h"
  41 #include "lib/tty/tty.h"
  42 #include "lib/skin.h"
  43 #include "lib/search.h"
  44 #include "lib/vfs/vfs.h"
  45 #include "lib/strutil.h"
  46 #include "lib/util.h"
  47 #include "lib/widget.h"
  48 
  49 #include "src/editor/edit.h"    /* WEdit, BLOCK_FILE */
  50 #include "src/viewer/mcviewer.h"        /* for default_* externs */
  51 
  52 #include "src/execute.h"
  53 #include "src/setup.h"
  54 #include "src/history.h"
  55 
  56 #include "src/filemanager/dir.h"
  57 #include "src/filemanager/filemanager.h"
  58 #include "src/filemanager/layout.h"
  59 
  60 #include "usermenu.h"
  61 
  62 /*** global variables ****************************************************************************/
  63 
  64 /*** file scope macro definitions ****************************************************************/
  65 
  66 #define MAX_ENTRIES 16
  67 #define MAX_ENTRY_LEN 60
  68 
  69 /*** file scope type declarations ****************************************************************/
  70 
  71 /*** file scope variables ************************************************************************/
  72 
  73 static gboolean debug_flag = FALSE;
  74 static gboolean debug_error = FALSE;
  75 static char *menu = NULL;
  76 
  77 /*** file scope functions ************************************************************************/
  78 /* --------------------------------------------------------------------------------------------- */
  79 
  80 /** strip file's extension */
  81 static char *
  82 strip_ext (char *ss)
     /* [previous][next][first][last][top][bottom][index][help]  */
  83 {
  84     char *s = ss;
  85     char *e = NULL;
  86 
  87     while (*s != '\0')
  88     {
  89         if (*s == '.')
  90             e = s;
  91         if (IS_PATH_SEP (*s) && e != NULL)
  92             e = NULL;           /* '.' in *directory* name */
  93         s++;
  94     }
  95     if (e != NULL)
  96         *e = '\0';
  97     return ss;
  98 }
  99 
 100 /* --------------------------------------------------------------------------------------------- */
 101 /**
 102  * Check for the "shell_patterns" directive.  If it's found and valid,
 103  * interpret it and move the pointer past the directive.  Return the
 104  * current pointer.
 105  */
 106 
 107 static char *
 108 check_patterns (char *p)
     /* [previous][next][first][last][top][bottom][index][help]  */
 109 {
 110     static const char def_name[] = "shell_patterns=";
 111     char *p0 = p;
 112 
 113     if (strncmp (p, def_name, sizeof (def_name) - 1) != 0)
 114         return p0;
 115 
 116     p += sizeof (def_name) - 1;
 117     if (*p == '1')
 118         easy_patterns = TRUE;
 119     else if (*p == '0')
 120         easy_patterns = FALSE;
 121     else
 122         return p0;
 123 
 124     /* Skip spaces */
 125     p++;
 126     while (whiteness (*p))
 127         p++;
 128     return p;
 129 }
 130 
 131 /* --------------------------------------------------------------------------------------------- */
 132 /** Copies a whitespace separated argument from p to arg. Returns the
 133    point after argument. */
 134 
 135 static char *
 136 extract_arg (char *p, char *arg, int size)
     /* [previous][next][first][last][top][bottom][index][help]  */
 137 {
 138     while (*p != '\0' && whiteness (*p))
 139         p++;
 140 
 141     /* support quote space .mnu */
 142     while (*p != '\0' && (*p != ' ' || *(p - 1) == '\\') && *p != '\t' && *p != '\n')
 143     {
 144         char *np;
 145 
 146         np = str_get_next_char (p);
 147         if (np - p >= size)
 148             break;
 149         memcpy (arg, p, np - p);
 150         arg += np - p;
 151         size -= np - p;
 152         p = np;
 153     }
 154     *arg = '\0';
 155     if (*p == '\0' || *p == '\n')
 156         str_prev_char (&p);
 157     return p;
 158 }
 159 
 160 /* --------------------------------------------------------------------------------------------- */
 161 /* Tests whether the selected file in the panel is of any of the types
 162    specified in argument. */
 163 
 164 static gboolean
 165 test_type (WPanel * panel, char *arg)
     /* [previous][next][first][last][top][bottom][index][help]  */
 166 {
 167     int result = 0;             /* False by default */
 168     mode_t st_mode = panel->dir.list[panel->selected].st.st_mode;
 169 
 170     for (; *arg != '\0'; arg++)
 171     {
 172         switch (*arg)
 173         {
 174         case 'n':              /* Not a directory */
 175             result |= !S_ISDIR (st_mode);
 176             break;
 177         case 'r':              /* Regular file */
 178             result |= S_ISREG (st_mode);
 179             break;
 180         case 'd':              /* Directory */
 181             result |= S_ISDIR (st_mode);
 182             break;
 183         case 'l':              /* Link */
 184             result |= S_ISLNK (st_mode);
 185             break;
 186         case 'c':              /* Character special */
 187             result |= S_ISCHR (st_mode);
 188             break;
 189         case 'b':              /* Block special */
 190             result |= S_ISBLK (st_mode);
 191             break;
 192         case 'f':              /* Fifo (named pipe) */
 193             result |= S_ISFIFO (st_mode);
 194             break;
 195         case 's':              /* Socket */
 196             result |= S_ISSOCK (st_mode);
 197             break;
 198         case 'x':              /* Executable */
 199             result |= (st_mode & 0111) != 0 ? 1 : 0;
 200             break;
 201         case 't':
 202             result |= panel->marked != 0 ? 1 : 0;
 203             break;
 204         default:
 205             debug_error = TRUE;
 206             break;
 207         }
 208     }
 209 
 210     return (result != 0);
 211 }
 212 
 213 /* --------------------------------------------------------------------------------------------- */
 214 /** Calculates the truth value of the next condition starting from
 215    p. Returns the point after condition. */
 216 
 217 static char *
 218 test_condition (const WEdit * edit_widget, char *p, gboolean * condition)
     /* [previous][next][first][last][top][bottom][index][help]  */
 219 {
 220     char arg[256];
 221     const mc_search_type_t search_type = easy_patterns ? MC_SEARCH_T_GLOB : MC_SEARCH_T_REGEX;
 222 
 223     /* Handle one condition */
 224     for (; *p != '\n' && *p != '&' && *p != '|'; p++)
 225     {
 226         WPanel *panel = NULL;
 227 
 228         /* support quote space .mnu */
 229         if ((*p == ' ' && *(p - 1) != '\\') || *p == '\t')
 230             continue;
 231         if (*p >= 'a')
 232             panel = current_panel;
 233         else if (get_other_type () == view_listing)
 234             panel = other_panel;
 235 
 236         *p |= 0x20;
 237 
 238         switch (*p++)
 239         {
 240         case '!':
 241             p = test_condition (edit_widget, p, condition);
 242             *condition = !*condition;
 243             str_prev_char (&p);
 244             break;
 245         case 'f':              /* file name pattern */
 246             p = extract_arg (p, arg, sizeof (arg));
 247 #ifdef USE_INTERNAL_EDIT
 248             if (edit_widget != NULL)
 249             {
 250                 const char *edit_filename;
 251 
 252                 edit_filename = edit_get_file_name (edit_widget);
 253                 *condition = mc_search (arg, DEFAULT_CHARSET, edit_filename, search_type);
 254             }
 255             else
 256 #endif
 257                 *condition = panel != NULL &&
 258                     mc_search (arg, DEFAULT_CHARSET, panel->dir.list[panel->selected].fname->str,
 259                                search_type);
 260             break;
 261         case 'y':              /* syntax pattern */
 262 #ifdef USE_INTERNAL_EDIT
 263             if (edit_widget != NULL)
 264             {
 265                 const char *syntax_type;
 266 
 267                 syntax_type = edit_get_syntax_type (edit_widget);
 268                 if (syntax_type != NULL)
 269                 {
 270                     p = extract_arg (p, arg, sizeof (arg));
 271                     *condition = mc_search (arg, DEFAULT_CHARSET, syntax_type, MC_SEARCH_T_NORMAL);
 272                 }
 273             }
 274 #endif
 275             break;
 276         case 'd':
 277             p = extract_arg (p, arg, sizeof (arg));
 278             *condition = panel != NULL
 279                 && mc_search (arg, DEFAULT_CHARSET, vfs_path_as_str (panel->cwd_vpath),
 280                               search_type);
 281             break;
 282         case 't':
 283             p = extract_arg (p, arg, sizeof (arg));
 284             *condition = panel != NULL && test_type (panel, arg);
 285             break;
 286         case 'x':              /* executable */
 287             {
 288                 struct stat status;
 289 
 290                 p = extract_arg (p, arg, sizeof (arg));
 291                 *condition = stat (arg, &status) == 0 && is_exe (status.st_mode);
 292                 break;
 293             }
 294         default:
 295             debug_error = TRUE;
 296             break;
 297         }                       /* switch */
 298     }                           /* while */
 299     return p;
 300 }
 301 
 302 /* --------------------------------------------------------------------------------------------- */
 303 /** General purpose condition debug output handler */
 304 
 305 static void
 306 debug_out (char *start, char *end, gboolean condition)
     /* [previous][next][first][last][top][bottom][index][help]  */
 307 {
 308     static char *msg = NULL;
 309 
 310     if (start == NULL && end == NULL)
 311     {
 312         /* Show output */
 313         if (debug_flag && msg != NULL)
 314         {
 315             size_t len;
 316 
 317             len = strlen (msg);
 318             if (len != 0)
 319                 msg[len - 1] = '\0';
 320             message (D_NORMAL, _("Debug"), "%s", msg);
 321 
 322         }
 323         debug_flag = FALSE;
 324         MC_PTR_FREE (msg);
 325     }
 326     else
 327     {
 328         const char *type;
 329         char *p;
 330 
 331         /* Save debug info for later output */
 332         if (!debug_flag)
 333             return;
 334         /* Save the result of the condition */
 335         if (debug_error)
 336         {
 337             type = _("ERROR:");
 338             debug_error = FALSE;
 339         }
 340         else if (condition)
 341             type = _("True:");
 342         else
 343             type = _("False:");
 344         /* This is for debugging, don't need to be super efficient.  */
 345         if (end == NULL)
 346             p = g_strdup_printf ("%s %s %c \n", msg ? msg : "", type, *start);
 347         else
 348             p = g_strdup_printf ("%s %s %.*s \n", msg ? msg : "", type, (int) (end - start), start);
 349         g_free (msg);
 350         msg = p;
 351     }
 352 }
 353 
 354 /* --------------------------------------------------------------------------------------------- */
 355 /** Calculates the truth value of one lineful of conditions. Returns
 356    the point just before the end of line. */
 357 
 358 static char *
 359 test_line (const WEdit * edit_widget, char *p, gboolean * result)
     /* [previous][next][first][last][top][bottom][index][help]  */
 360 {
 361     char operator;
 362 
 363     /* Repeat till end of line */
 364     while (*p != '\0' && *p != '\n')
 365     {
 366         char *debug_start, *debug_end;
 367         gboolean condition = TRUE;
 368 
 369         /* support quote space .mnu */
 370         while ((*p == ' ' && *(p - 1) != '\\') || *p == '\t')
 371             p++;
 372         if (*p == '\0' || *p == '\n')
 373             break;
 374         operator = *p++;
 375         if (*p == '?')
 376         {
 377             debug_flag = TRUE;
 378             p++;
 379         }
 380         /* support quote space .mnu */
 381         while ((*p == ' ' && *(p - 1) != '\\') || *p == '\t')
 382             p++;
 383         if (*p == '\0' || *p == '\n')
 384             break;
 385 
 386         debug_start = p;
 387         p = test_condition (edit_widget, p, &condition);
 388         debug_end = p;
 389         /* Add one debug statement */
 390         debug_out (debug_start, debug_end, condition);
 391 
 392         switch (operator)
 393         {
 394         case '+':
 395         case '=':
 396             /* Assignment */
 397             *result = condition;
 398             break;
 399         case '&':              /* Logical and */
 400             *result = *result && condition;
 401             break;
 402         case '|':              /* Logical or */
 403             *result = *result || condition;
 404             break;
 405         default:
 406             debug_error = TRUE;
 407             break;
 408         }                       /* switch */
 409         /* Add one debug statement */
 410         debug_out (&operator, NULL, *result);
 411 
 412     }                           /* while (*p != '\n') */
 413     /* Report debug message */
 414     debug_out (NULL, NULL, TRUE);
 415 
 416     if (*p == '\0' || *p == '\n')
 417         str_prev_char (&p);
 418     return p;
 419 }
 420 
 421 /* --------------------------------------------------------------------------------------------- */
 422 /** FIXME: recode this routine on version 3.0, it could be cleaner */
 423 
 424 static void
 425 execute_menu_command (const WEdit * edit_widget, const char *commands, gboolean show_prompt)
     /* [previous][next][first][last][top][bottom][index][help]  */
 426 {
 427     FILE *cmd_file;
 428     int cmd_file_fd;
 429     gboolean expand_prefix_found = FALSE;
 430     char *parameter = NULL;
 431     gboolean do_quote = FALSE;
 432     char lc_prompt[80];
 433     int col;
 434     vfs_path_t *file_name_vpath;
 435     gboolean run_view = FALSE;
 436     char *cmd;
 437 
 438     /* Skip menu entry title line */
 439     commands = strchr (commands, '\n');
 440     if (commands == NULL)
 441         return;
 442 
 443     cmd_file_fd = mc_mkstemps (&file_name_vpath, "mcusr", SCRIPT_SUFFIX);
 444 
 445     if (cmd_file_fd == -1)
 446     {
 447         message (D_ERROR, MSG_ERROR, _("Cannot create temporary command file\n%s"),
 448                  unix_error_string (errno));
 449         return;
 450     }
 451 
 452     cmd_file = fdopen (cmd_file_fd, "w");
 453     fputs ("#! /bin/sh\n", cmd_file);
 454     commands++;
 455 
 456     for (col = 0; *commands != '\0'; commands++)
 457     {
 458         if (col == 0)
 459         {
 460             if (!whitespace (*commands))
 461                 break;
 462             while (whitespace (*commands))
 463                 commands++;
 464             if (*commands == '\0')
 465                 break;
 466         }
 467         col++;
 468         if (*commands == '\n')
 469             col = 0;
 470         if (parameter != NULL)
 471         {
 472             if (*commands == '}')
 473             {
 474                 *parameter = '\0';
 475                 parameter =
 476                     input_dialog (_("Parameter"), lc_prompt, MC_HISTORY_FM_MENU_EXEC_PARAM, "",
 477                                   INPUT_COMPLETE_FILENAMES | INPUT_COMPLETE_CD |
 478                                   INPUT_COMPLETE_HOSTNAMES | INPUT_COMPLETE_VARIABLES |
 479                                   INPUT_COMPLETE_USERNAMES);
 480                 if (parameter == NULL || *parameter == '\0')
 481                 {
 482                     /* User canceled */
 483                     fclose (cmd_file);
 484                     mc_unlink (file_name_vpath);
 485                     vfs_path_free (file_name_vpath, TRUE);
 486                     return;
 487                 }
 488                 if (do_quote)
 489                 {
 490                     char *tmp;
 491 
 492                     tmp = name_quote (parameter, FALSE);
 493                     fputs (tmp, cmd_file);
 494                     g_free (tmp);
 495                 }
 496                 else
 497                     fputs (parameter, cmd_file);
 498 
 499                 MC_PTR_FREE (parameter);
 500             }
 501             else if (parameter < lc_prompt + sizeof (lc_prompt) - 1)
 502                 *parameter++ = *commands;
 503         }
 504         else if (expand_prefix_found)
 505         {
 506             expand_prefix_found = FALSE;
 507             if (g_ascii_isdigit ((gchar) * commands))
 508             {
 509                 do_quote = (atoi (commands) != 0);
 510                 while (g_ascii_isdigit ((gchar) * commands))
 511                     commands++;
 512             }
 513             if (*commands == '{')
 514                 parameter = lc_prompt;
 515             else
 516             {
 517                 char *text;
 518 
 519                 text = expand_format (edit_widget, *commands, do_quote);
 520                 fputs (text, cmd_file);
 521                 g_free (text);
 522             }
 523         }
 524         else if (*commands == '%')
 525         {
 526             int i;
 527 
 528             i = check_format_view (commands + 1);
 529             if (i != 0)
 530             {
 531                 commands += i;
 532                 run_view = TRUE;
 533             }
 534             else
 535             {
 536                 do_quote = TRUE;        /* Default: Quote expanded macro */
 537                 expand_prefix_found = TRUE;
 538             }
 539         }
 540         else
 541             fputc (*commands, cmd_file);
 542     }
 543 
 544     fclose (cmd_file);
 545     mc_chmod (file_name_vpath, S_IRWXU);
 546 
 547     /* Execute the command indirectly to allow execution even on no-exec filesystems. */
 548     cmd = g_strconcat ("/bin/sh ", vfs_path_as_str (file_name_vpath), (char *) NULL);
 549 
 550     if (run_view)
 551     {
 552         mcview_viewer (cmd, NULL, 0, 0, 0);
 553         dialog_switch_process_pending ();
 554     }
 555     else if (show_prompt)
 556         shell_execute (cmd, EXECUTE_HIDE);
 557     else
 558     {
 559         gboolean ok;
 560 
 561         /* Prepare the terminal by setting its flag to the initial ones. This will cause \r
 562          * to work as expected, instead of being ignored. */
 563         tty_reset_shell_mode ();
 564 
 565         ok = (system (cmd) != -1);
 566 
 567         /* Restore terminal configuration. */
 568         tty_raw_mode ();
 569 
 570         /* Redraw the original screen's contents. */
 571         tty_clear_screen ();
 572         repaint_screen ();
 573 
 574         if (!ok)
 575             message (D_ERROR, MSG_ERROR, "%s", _("Error calling program"));
 576     }
 577 
 578     g_free (cmd);
 579 
 580     mc_unlink (file_name_vpath);
 581     vfs_path_free (file_name_vpath, TRUE);
 582 }
 583 
 584 /* --------------------------------------------------------------------------------------------- */
 585 /**
 586  **     Check owner of the menu file. Using menu file is allowed, if
 587  **     owner of the menu is root or the actual user. In either case
 588  **     file should not be group and word-writable.
 589  **
 590  **     Q. Should we apply this routine to system and home menu (and .ext files)?
 591  */
 592 
 593 static gboolean
 594 menu_file_own (char *path)
     /* [previous][next][first][last][top][bottom][index][help]  */
 595 {
 596     struct stat st;
 597 
 598     if (stat (path, &st) == 0 && (st.st_uid == 0 || (st.st_uid == geteuid ()) != 0)
 599         && ((st.st_mode & (S_IWGRP | S_IWOTH)) == 0))
 600         return TRUE;
 601 
 602     if (verbose)
 603         message (D_NORMAL, _("Warning -- ignoring file"),
 604                  _("File %s is not owned by root or you or is world writable.\n"
 605                    "Using it may compromise your security"), path);
 606 
 607     return FALSE;
 608 }
 609 
 610 /* --------------------------------------------------------------------------------------------- */
 611 /*** public functions ****************************************************************************/
 612 /* --------------------------------------------------------------------------------------------- */
 613 
 614 /* Formats defined:
 615    %%  The % character
 616    %f  The current file in the active panel (if non-local vfs, file will be copied locally
 617    and %f will be full path to it) or the opened file in the internal editor.
 618    %p  Likewise.
 619    %d  The current working directory
 620    %s  "Selected files"; the tagged files if any, otherwise the current file
 621    %t  Tagged files
 622    %u  Tagged files (and they are untagged on return from expand_format)
 623    %view Runs the commands and pipes standard output to the view command.
 624    If %view is immediately followed by '{', recognize keywords
 625    ascii, hex, nroff and unform
 626 
 627    If the format letter is in uppercase, it refers to the other panel.
 628 
 629    With a number followed the % character you can turn quoting on (default)
 630    and off. For example:
 631    %f    quote expanded macro
 632    %1f   ditto
 633    %0f   don't quote expanded macro
 634 
 635    expand_format returns a memory block that must be free()d.
 636  */
 637 
 638 /* Returns how many characters we should advance if %view was found */
 639 int
 640 check_format_view (const char *p)
     /* [previous][next][first][last][top][bottom][index][help]  */
 641 {
 642     const char *q = p;
 643 
 644     if (strncmp (p, "view", 4) == 0)
 645     {
 646         q += 4;
 647         if (*q == '{')
 648         {
 649             for (q++; *q != '\0' && *q != '}'; q++)
 650             {
 651                 if (strncmp (q, DEFAULT_CHARSET, 5) == 0)
 652                 {
 653                     mcview_global_flags.hex = FALSE;
 654                     q += 4;
 655                 }
 656                 else if (strncmp (q, "hex", 3) == 0)
 657                 {
 658                     mcview_global_flags.hex = TRUE;
 659                     q += 2;
 660                 }
 661                 else if (strncmp (q, "nroff", 5) == 0)
 662                 {
 663                     mcview_global_flags.nroff = TRUE;
 664                     q += 4;
 665                 }
 666                 else if (strncmp (q, "unform", 6) == 0)
 667                 {
 668                     mcview_global_flags.nroff = FALSE;
 669                     q += 5;
 670                 }
 671             }
 672             if (*q == '}')
 673                 q++;
 674         }
 675         return q - p;
 676     }
 677     return 0;
 678 }
 679 
 680 /* --------------------------------------------------------------------------------------------- */
 681 
 682 int
 683 check_format_cd (const char *p)
     /* [previous][next][first][last][top][bottom][index][help]  */
 684 {
 685     return (strncmp (p, "cd", 2)) != 0 ? 0 : 3;
 686 }
 687 
 688 /* --------------------------------------------------------------------------------------------- */
 689 /* Check if p has a "^var\{var-name\}" */
 690 /* Returns the number of skipped characters (zero on not found) */
 691 /* V will be set to the expanded variable name */
 692 
 693 int
 694 check_format_var (const char *p, char **v)
     /* [previous][next][first][last][top][bottom][index][help]  */
 695 {
 696     *v = NULL;
 697 
 698     if (strncmp (p, "var{", 4) == 0)
 699     {
 700         const char *q = p;
 701         const char *dots = NULL;
 702         const char *value;
 703         char *var_name;
 704 
 705         for (q += 4; *q != '\0' && *q != '}'; q++)
 706         {
 707             if (*q == ':')
 708                 dots = q + 1;
 709         }
 710         if (*q == '\0')
 711             return 0;
 712 
 713         if (dots == NULL || dots == q + 5)
 714         {
 715             message (D_ERROR,
 716                      _("Format error on file Extensions File"),
 717                      !dots ? _("The %%var macro has no default")
 718                      : _("The %%var macro has no variable"));
 719             return 0;
 720         }
 721 
 722         /* Copy the variable name */
 723         var_name = g_strndup (p + 4, dots - 2 - (p + 3));
 724         value = getenv (var_name);
 725         g_free (var_name);
 726 
 727         if (value != NULL)
 728             *v = g_strdup (value);
 729         else
 730             *v = g_strndup (dots, q - dots);
 731 
 732         return q - p;
 733     }
 734     return 0;
 735 }
 736 
 737 /* --------------------------------------------------------------------------------------------- */
 738 
 739 char *
 740 expand_format (const WEdit * edit_widget, char c, gboolean do_quote)
     /* [previous][next][first][last][top][bottom][index][help]  */
 741 {
 742     WPanel *panel = NULL;
 743     char *(*quote_func) (const char *, gboolean);
 744     const char *fname = NULL;
 745     char *result;
 746     char c_lc;
 747 
 748 #ifndef USE_INTERNAL_EDIT
 749     (void) edit_widget;
 750 #endif
 751 
 752     if (c == '%')
 753         return g_strdup ("%");
 754 
 755     switch (mc_global.mc_run_mode)
 756     {
 757     case MC_RUN_FULL:
 758 #ifdef USE_INTERNAL_EDIT
 759         if (edit_widget != NULL)
 760             fname = edit_get_file_name (edit_widget);
 761         else
 762 #endif
 763         {
 764             if (g_ascii_islower ((gchar) c))
 765                 panel = current_panel;
 766             else
 767             {
 768                 if (get_other_type () != view_listing)
 769                     return g_strdup ("");
 770                 panel = other_panel;
 771             }
 772 
 773             fname = panel->dir.list[panel->selected].fname->str;
 774         }
 775         break;
 776 
 777 #ifdef USE_INTERNAL_EDIT
 778     case MC_RUN_EDITOR:
 779         fname = edit_get_file_name (edit_widget);
 780         break;
 781 #endif
 782 
 783     default:
 784         /* other modes don't use formats */
 785         return g_strdup ("");
 786     }
 787 
 788     if (do_quote)
 789         quote_func = name_quote;
 790     else
 791         quote_func = fake_name_quote;
 792 
 793     c_lc = g_ascii_tolower ((gchar) c);
 794 
 795     switch (c_lc)
 796     {
 797     case 'f':
 798     case 'p':
 799         result = quote_func (fname, FALSE);
 800         goto ret;
 801     case 'x':
 802         result = quote_func (extension (fname), FALSE);
 803         goto ret;
 804     case 'd':
 805         {
 806             const char *cwd;
 807             char *qstr;
 808 
 809             if (panel != NULL)
 810                 cwd = vfs_path_as_str (panel->cwd_vpath);
 811             else
 812                 cwd = vfs_get_current_dir ();
 813 
 814             qstr = quote_func (cwd, FALSE);
 815 
 816             result = qstr;
 817             goto ret;
 818         }
 819     case 'c':
 820 #ifdef USE_INTERNAL_EDIT
 821         if (edit_widget != NULL)
 822         {
 823             result = g_strdup_printf ("%u", (unsigned int) edit_get_cursor_offset (edit_widget));
 824             goto ret;
 825         }
 826 #endif
 827         break;
 828     case 'i':                  /* indent equal number cursor position in line */
 829 #ifdef USE_INTERNAL_EDIT
 830         if (edit_widget != NULL)
 831         {
 832             result = g_strnfill (edit_get_curs_col (edit_widget), ' ');
 833             goto ret;
 834         }
 835 #endif
 836         break;
 837     case 'y':                  /* syntax type */
 838 #ifdef USE_INTERNAL_EDIT
 839         if (edit_widget != NULL)
 840         {
 841             const char *syntax_type;
 842 
 843             syntax_type = edit_get_syntax_type (edit_widget);
 844             if (syntax_type != NULL)
 845             {
 846                 result = g_strdup (syntax_type);
 847                 goto ret;
 848             }
 849         }
 850 #endif
 851         break;
 852     case 'k':                  /* block file name */
 853     case 'b':                  /* block file name / strip extension */
 854 #ifdef USE_INTERNAL_EDIT
 855         if (edit_widget != NULL)
 856         {
 857             char *file;
 858 
 859             file = mc_config_get_full_path (EDIT_HOME_BLOCK_FILE);
 860             result = quote_func (file, FALSE);
 861             g_free (file);
 862             goto ret;
 863         }
 864 #endif
 865         if (c_lc == 'b')
 866         {
 867             result = strip_ext (quote_func (fname, FALSE));
 868             goto ret;
 869         }
 870         break;
 871     case 'n':                  /* strip extension in editor */
 872 #ifdef USE_INTERNAL_EDIT
 873         if (edit_widget != NULL)
 874         {
 875             result = strip_ext (quote_func (fname, FALSE));
 876             goto ret;
 877         }
 878 #endif
 879         break;
 880     case 'm':                  /* menu file name */
 881         if (menu != NULL)
 882         {
 883             result = quote_func (menu, FALSE);
 884             goto ret;
 885         }
 886         break;
 887     case 's':
 888         if (panel == NULL || panel->marked == 0)
 889         {
 890             result = quote_func (fname, FALSE);
 891             goto ret;
 892         }
 893 
 894         MC_FALLTHROUGH;
 895 
 896     case 't':
 897     case 'u':
 898         {
 899             GString *block;
 900             int i;
 901 
 902             if (panel == NULL)
 903             {
 904                 result = g_strdup ("");
 905                 goto ret;
 906             }
 907 
 908             block = g_string_sized_new (16);
 909 
 910             for (i = 0; i < panel->dir.len; i++)
 911                 if (panel->dir.list[i].f.marked)
 912                 {
 913                     char *tmp;
 914 
 915                     tmp = quote_func (panel->dir.list[i].fname->str, FALSE);
 916                     g_string_append (block, tmp);
 917                     g_string_append_c (block, ' ');
 918                     g_free (tmp);
 919 
 920                     if (c_lc == 'u')
 921                         do_file_mark (panel, i, 0);
 922                 }
 923             result = g_string_free (block, FALSE);
 924             goto ret;
 925         }                       /* sub case block */
 926     default:
 927         break;
 928     }                           /* switch */
 929 
 930     result = g_strdup ("% ");
 931     result[1] = c;
 932   ret:
 933     return result;
 934 }
 935 
 936 /* --------------------------------------------------------------------------------------------- */
 937 /**
 938  * If edit_widget is NULL then we are called from the mc menu,
 939  * otherwise we are called from the mcedit menu.
 940  */
 941 
 942 gboolean
 943 user_menu_cmd (const WEdit * edit_widget, const char *menu_file, int selected_entry)
     /* [previous][next][first][last][top][bottom][index][help]  */
 944 {
 945     char *p;
 946     char *data, **entries;
 947     int max_cols, menu_lines, menu_limit;
 948     int col, i;
 949     gboolean accept_entry = TRUE;
 950     int selected;
 951     gboolean old_patterns;
 952     gboolean res = FALSE;
 953     gboolean interactive = TRUE;
 954 
 955     if (!vfs_current_is_local ())
 956     {
 957         message (D_ERROR, MSG_ERROR, "%s", _("Cannot execute commands on non-local filesystems"));
 958         return FALSE;
 959     }
 960     if (menu_file != NULL)
 961         menu = g_strdup (menu_file);
 962     else
 963         menu = g_strdup (edit_widget != NULL ? EDIT_LOCAL_MENU : MC_LOCAL_MENU);
 964     if (!exist_file (menu) || !menu_file_own (menu))
 965     {
 966         if (menu_file != NULL)
 967         {
 968             message (D_ERROR, MSG_ERROR, _("Cannot open file %s\n%s"), menu,
 969                      unix_error_string (errno));
 970             MC_PTR_FREE (menu);
 971             return FALSE;
 972         }
 973 
 974         g_free (menu);
 975         if (edit_widget != NULL)
 976             menu = mc_config_get_full_path (EDIT_HOME_MENU);
 977         else
 978             menu = mc_config_get_full_path (MC_USERMENU_FILE);
 979 
 980         if (!exist_file (menu))
 981         {
 982             g_free (menu);
 983             menu =
 984                 mc_build_filename (mc_config_get_home_dir (),
 985                                    edit_widget != NULL ? EDIT_GLOBAL_MENU : MC_GLOBAL_MENU,
 986                                    (char *) NULL);
 987             if (!exist_file (menu))
 988             {
 989                 g_free (menu);
 990                 menu =
 991                     mc_build_filename (mc_global.sysconfig_dir,
 992                                        edit_widget != NULL ? EDIT_GLOBAL_MENU : MC_GLOBAL_MENU,
 993                                        (char *) NULL);
 994                 if (!exist_file (menu))
 995                 {
 996                     g_free (menu);
 997                     menu =
 998                         mc_build_filename (mc_global.share_data_dir,
 999                                            edit_widget != NULL ? EDIT_GLOBAL_MENU : MC_GLOBAL_MENU,
1000                                            (char *) NULL);
1001                 }
1002             }
1003         }
1004     }
1005 
1006     if (!g_file_get_contents (menu, &data, NULL, NULL))
1007     {
1008         message (D_ERROR, MSG_ERROR, _("Cannot open file %s\n%s"), menu, unix_error_string (errno));
1009         MC_PTR_FREE (menu);
1010         return FALSE;
1011     }
1012 
1013     max_cols = 0;
1014     selected = 0;
1015     menu_limit = 0;
1016     entries = NULL;
1017 
1018     /* Parse the menu file */
1019     old_patterns = easy_patterns;
1020     p = check_patterns (data);
1021     for (menu_lines = col = 0; *p != '\0'; str_next_char (&p))
1022     {
1023         if (menu_lines >= menu_limit)
1024         {
1025             char **new_entries;
1026 
1027             menu_limit += MAX_ENTRIES;
1028             new_entries = g_try_realloc (entries, sizeof (new_entries[0]) * menu_limit);
1029             if (new_entries == NULL)
1030                 break;
1031 
1032             entries = new_entries;
1033             new_entries += menu_limit;
1034             while (--new_entries >= &entries[menu_lines])
1035                 *new_entries = NULL;
1036         }
1037 
1038         if (col == 0 && entries[menu_lines] == NULL)
1039             switch (*p)
1040             {
1041             case '#':
1042                 /* do not show prompt if first line of external script is #silent */
1043                 if (selected_entry >= 0 && strncmp (p, "#silent", 7) == 0)
1044                     interactive = FALSE;
1045                 /* A commented menu entry */
1046                 accept_entry = TRUE;
1047                 break;
1048 
1049             case '+':
1050                 if (*(p + 1) == '=')
1051                 {
1052                     /* Combined adding and default */
1053                     p = test_line (edit_widget, p + 1, &accept_entry);
1054                     if (selected == 0 && accept_entry)
1055                         selected = menu_lines;
1056                 }
1057                 else
1058                 {
1059                     /* A condition for adding the entry */
1060                     p = test_line (edit_widget, p, &accept_entry);
1061                 }
1062                 break;
1063 
1064             case '=':
1065                 if (*(p + 1) == '+')
1066                 {
1067                     /* Combined adding and default */
1068                     p = test_line (edit_widget, p + 1, &accept_entry);
1069                     if (selected == 0 && accept_entry)
1070                         selected = menu_lines;
1071                 }
1072                 else
1073                 {
1074                     /* A condition for making the entry default */
1075                     i = 1;
1076                     p = test_line (edit_widget, p, &i);
1077                     if (selected == 0 && i != 0)
1078                         selected = menu_lines;
1079                 }
1080                 break;
1081 
1082             default:
1083                 if (!whitespace (*p) && str_isprint (p))
1084                 {
1085                     /* A menu entry title line */
1086                     if (accept_entry)
1087                         entries[menu_lines] = p;
1088                     else
1089                         accept_entry = TRUE;
1090                 }
1091                 break;
1092             }
1093 
1094         if (*p == '\n')
1095         {
1096             if (entries[menu_lines] != NULL)
1097             {
1098                 menu_lines++;
1099                 accept_entry = TRUE;
1100             }
1101             max_cols = MAX (max_cols, col);
1102             col = 0;
1103         }
1104         else
1105         {
1106             if (*p == '\t')
1107                 *p = ' ';
1108             col++;
1109         }
1110     }
1111 
1112     if (menu_lines == 0)
1113     {
1114         message (D_ERROR, MSG_ERROR, _("No suitable entries found in %s"), menu);
1115         res = FALSE;
1116     }
1117     else
1118     {
1119         if (selected_entry >= 0)
1120             selected = selected_entry;
1121         else
1122         {
1123             Listbox *listbox;
1124 
1125             max_cols = MIN (MAX (max_cols, col), MAX_ENTRY_LEN);
1126 
1127             /* Create listbox */
1128             listbox = create_listbox_window (menu_lines, max_cols + 2, _("User menu"),
1129                                              "[Edit Menu File]");
1130             /* insert all the items found */
1131             for (i = 0; i < menu_lines; i++)
1132             {
1133                 p = entries[i];
1134                 LISTBOX_APPEND_TEXT (listbox, (unsigned char) p[0],
1135                                      extract_line (p, p + MAX_ENTRY_LEN), p, FALSE);
1136             }
1137             /* Select the default entry */
1138             listbox_select_entry (listbox->list, selected);
1139 
1140             selected = run_listbox (listbox);
1141         }
1142         if (selected >= 0)
1143         {
1144             execute_menu_command (edit_widget, entries[selected], interactive);
1145             res = TRUE;
1146         }
1147 
1148         do_refresh ();
1149     }
1150 
1151     easy_patterns = old_patterns;
1152     MC_PTR_FREE (menu);
1153     g_free (entries);
1154     g_free (data);
1155     return res;
1156 }
1157 
1158 /* --------------------------------------------------------------------------------------------- */

/* [previous][next][first][last][top][bottom][index][help]  */