changelog shortlog tags changeset files revisions annotate raw

scripts/miscellaneous/bug_report.m

changeset 10289: 4b124317dc38
parent:3422f39573b1
author: John W. Eaton <jwe@octave.org>
date: Tue Feb 09 20:58:55 2010 -0500 (36 minutes ago)
permissions: -rw-r--r--
description: base_properties::set_children: account for hidden children 
     1## Copyright (C) 1994, 1995, 1996, 1997, 1998, 2000, 2002, 2003, 2005,

     2##               2007, 2008 John W. Eaton

     3##

     4## This file is part of Octave.

     5##

     6## Octave is free software; you can redistribute it and/or modify it

     7## under the terms of the GNU General Public License as published by

     8## the Free Software Foundation; either version 3 of the License, or (at

     9## your option) any later version.

    10##

    11## Octave is distributed in the hope that it will be useful, but

    12## WITHOUT ANY WARRANTY; without even the implied warranty of

    13## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

    14## General Public License for more details.

    15##

    16## You should have received a copy of the GNU General Public License

    17## along with Octave; see the file COPYING.  If not, see

    18## <http://www.gnu.org/licenses/>.

    19

    20## -*- texinfo -*-

    21## @deftypefn {Function File} {} bug_report ()

    22## Have Octave create a bug report template file, invoke your favorite

    23## editor, and submit the report to the bug-octave mailing list when

    24## you are finished editing.

    25## @end deftypefn

    26

    27## Author: jwe

    28

    29function bug_report ()

    30

    31  if (nargin != 0)

    32    warning ("bug_report: ignoring extra arguments");

    33  endif

    34

    35  printf ("Please enter a one-line description of your bug report.\n\n");

    36  fflush (stdout);

    37

    38  subject = "";

    39  subject = input ("Subject: ", "s");

    40

    41  unwind_protect

    42

    43    prefs = tmpnam ();

    44

    45    if (! isempty (prefs))

    46      fid = fopen (prefs, "wt");

    47      if (fid > 0)

    48        dump_prefs (fid);

    49        fclose (fid);

    50      endif

    51    endif

    52

    53    cmd = cstrcat ("octave-bug-", OCTAVE_VERSION);

    54

    55    if (length (subject) > 0)

    56      cmd = sprintf ("%s -s \"%s\"", cmd, subject);

    57    endif

    58

    59    if (! isempty (prefs))

    60      cmd = sprintf ("%s \"%s\"", cmd, prefs);

    61    endif

    62

    63    system (cmd);

    64

    65  unwind_protect_cleanup

    66

    67    if (! isempty (prefs))

    68      unlink (prefs);

    69    endif

    70

    71  end_unwind_protect

    72

    73endfunction