Mercurial > octave-nkf

annotate scripts/miscellaneous/bug_report.m @ 7016:93c65f2a5668

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-10-12 06:40:56 by jwe]
author jwe
date Fri, 12 Oct 2007 06:41:26 +0000
parents 6ddb5a7f399e
children a1dbe9d80eee
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2847
8b262e771614 [project @ 1997-03-27 16:18:26 by jwe]
jwe
parents: 2832
diff changeset
1 ## Copyright (C) 1996, 1997 John W. Eaton
2313
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe]
jwe
parents: 2311
diff changeset
2 ##
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe]
jwe
parents: 2311
diff changeset
3 ## This file is part of Octave.
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe]
jwe
parents: 2311
diff changeset
4 ##
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe]
jwe
parents: 2311
diff changeset
5 ## Octave is free software; you can redistribute it and/or modify it
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe]
jwe
parents: 2311
diff changeset
6 ## under the terms of the GNU General Public License as published by
7016
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 5431
diff changeset
7 ## the Free Software Foundation; either version 3 of the License, or (at
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 5431
diff changeset
8 ## your option) any later version.
2313
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe]
jwe
parents: 2311
diff changeset
9 ##
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe]
jwe
parents: 2311
diff changeset
10 ## Octave is distributed in the hope that it will be useful, but
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe]
jwe
parents: 2311
diff changeset
11 ## WITHOUT ANY WARRANTY; without even the implied warranty of
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe]
jwe
parents: 2311
diff changeset
12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe]
jwe
parents: 2311
diff changeset
13 ## General Public License for more details.
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe]
jwe
parents: 2311
diff changeset
14 ##
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe]
jwe
parents: 2311
diff changeset
15 ## You should have received a copy of the GNU General Public License
7016
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 5431
diff changeset
16 ## along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 5431
diff changeset
17 ## <http://www.gnu.org/licenses/>.
796
d6965f5c411a [project @ 1994-10-13 04:43:57 by jwe]
jwe
parents:
diff changeset
18
3449
858695b3ed62 [project @ 2000-01-18 04:08:59 by jwe]
jwe
parents: 3141
diff changeset
19 ## -*- texinfo -*-
858695b3ed62 [project @ 2000-01-18 04:08:59 by jwe]
jwe
parents: 3141
diff changeset
20 ## @deftypefn {Function File} {} bug_report ()
2311
2b5788792cad [project @ 1996-07-11 20:18:38 by jwe]
jwe
parents: 2303
diff changeset
21 ## Have Octave create a bug report template file, invoke your favorite
2b5788792cad [project @ 1996-07-11 20:18:38 by jwe]
jwe
parents: 2303
diff changeset
22 ## editor, and submit the report to the bug-octave mailing list when
2b5788792cad [project @ 1996-07-11 20:18:38 by jwe]
jwe
parents: 2303
diff changeset
23 ## you are finished editing.
3449
858695b3ed62 [project @ 2000-01-18 04:08:59 by jwe]
jwe
parents: 3141
diff changeset
24 ## @end deftypefn
796
d6965f5c411a [project @ 1994-10-13 04:43:57 by jwe]
jwe
parents:
diff changeset
25
2314
949ab8eba8bc [project @ 1996-07-12 03:58:02 by jwe]
jwe
parents: 2313
diff changeset
26 ## Author: jwe
949ab8eba8bc [project @ 1996-07-12 03:58:02 by jwe]
jwe
parents: 2313
diff changeset
27
2311
2b5788792cad [project @ 1996-07-11 20:18:38 by jwe]
jwe
parents: 2303
diff changeset
28 function bug_report ()
796
d6965f5c411a [project @ 1994-10-13 04:43:57 by jwe]
jwe
parents:
diff changeset
29
d6965f5c411a [project @ 1994-10-13 04:43:57 by jwe]
jwe
parents:
diff changeset
30 if (nargin != 0)
904
3470f1e25a79 [project @ 1994-11-09 21:22:15 by jwe]
jwe
parents: 802
diff changeset
31 warning ("bug_report: ignoring extra arguments");
796
d6965f5c411a [project @ 1994-10-13 04:43:57 by jwe]
jwe
parents:
diff changeset
32 endif
d6965f5c411a [project @ 1994-10-13 04:43:57 by jwe]
jwe
parents:
diff changeset
33
d6965f5c411a [project @ 1994-10-13 04:43:57 by jwe]
jwe
parents:
diff changeset
34 printf ("Please enter a one-line description of your bug report.\n\n");
d6965f5c411a [project @ 1994-10-13 04:43:57 by jwe]
jwe
parents:
diff changeset
35 fflush (stdout);
d6965f5c411a [project @ 1994-10-13 04:43:57 by jwe]
jwe
parents:
diff changeset
36
d6965f5c411a [project @ 1994-10-13 04:43:57 by jwe]
jwe
parents:
diff changeset
37 subject = "";
d6965f5c411a [project @ 1994-10-13 04:43:57 by jwe]
jwe
parents:
diff changeset
38 subject = input ("Subject: ", "s");
d6965f5c411a [project @ 1994-10-13 04:43:57 by jwe]
jwe
parents:
diff changeset
39
2458
d07a5d0b57e2 [project @ 1996-11-03 03:25:18 by jwe]
jwe
parents: 2323
diff changeset
40 unwind_protect
796
d6965f5c411a [project @ 1994-10-13 04:43:57 by jwe]
jwe
parents:
diff changeset
41
2458
d07a5d0b57e2 [project @ 1996-11-03 03:25:18 by jwe]
jwe
parents: 2323
diff changeset
42 prefs = tmpnam ();
800
73fdde1f8473 [project @ 1994-10-13 16:57:33 by jwe]
jwe
parents: 796
diff changeset
43
2458
d07a5d0b57e2 [project @ 1996-11-03 03:25:18 by jwe]
jwe
parents: 2323
diff changeset
44 if (! isempty (prefs))
5431
6ddb5a7f399e [project @ 2005-08-29 20:48:29 by jwe]
jwe
parents: 5307
diff changeset
45 fid = fopen (prefs, "wt");
2993
91589ab98e37 [project @ 1997-05-21 21:44:54 by jwe]
jwe
parents: 2847
diff changeset
46 if (fid > 0)
91589ab98e37 [project @ 1997-05-21 21:44:54 by jwe]
jwe
parents: 2847
diff changeset
47 dump_prefs (fid);
91589ab98e37 [project @ 1997-05-21 21:44:54 by jwe]
jwe
parents: 2847
diff changeset
48 fclose (fid);
91589ab98e37 [project @ 1997-05-21 21:44:54 by jwe]
jwe
parents: 2847
diff changeset
49 endif
2458
d07a5d0b57e2 [project @ 1996-11-03 03:25:18 by jwe]
jwe
parents: 2323
diff changeset
50 endif
796
d6965f5c411a [project @ 1994-10-13 04:43:57 by jwe]
jwe
parents:
diff changeset
51
4011
eb377885843d [project @ 2002-08-01 20:08:08 by jwe]
jwe
parents: 3597
diff changeset
52 cmd = strcat ("octave-bug-", OCTAVE_VERSION);
800
73fdde1f8473 [project @ 1994-10-13 16:57:33 by jwe]
jwe
parents: 796
diff changeset
53
2458
d07a5d0b57e2 [project @ 1996-11-03 03:25:18 by jwe]
jwe
parents: 2323
diff changeset
54 if (length (subject) > 0)
2832
4dff308e9acc [project @ 1997-03-26 05:16:58 by jwe]
jwe
parents: 2831
diff changeset
55 cmd = sprintf ("%s -s \"%s\"", cmd, subject);
2458
d07a5d0b57e2 [project @ 1996-11-03 03:25:18 by jwe]
jwe
parents: 2323
diff changeset
56 endif
d07a5d0b57e2 [project @ 1996-11-03 03:25:18 by jwe]
jwe
parents: 2323
diff changeset
57
d07a5d0b57e2 [project @ 1996-11-03 03:25:18 by jwe]
jwe
parents: 2323
diff changeset
58 if (! isempty (prefs))
4469
53ee020af847 [project @ 2003-07-26 03:45:10 by jwe]
jwe
parents: 4011
diff changeset
59 cmd = sprintf ("%s \"%s\"", cmd, prefs);
2458
d07a5d0b57e2 [project @ 1996-11-03 03:25:18 by jwe]
jwe
parents: 2323
diff changeset
60 endif
800
73fdde1f8473 [project @ 1994-10-13 16:57:33 by jwe]
jwe
parents: 796
diff changeset
61
2458
d07a5d0b57e2 [project @ 1996-11-03 03:25:18 by jwe]
jwe
parents: 2323
diff changeset
62 system (cmd);
d07a5d0b57e2 [project @ 1996-11-03 03:25:18 by jwe]
jwe
parents: 2323
diff changeset
63
d07a5d0b57e2 [project @ 1996-11-03 03:25:18 by jwe]
jwe
parents: 2323
diff changeset
64 unwind_protect_cleanup
800
73fdde1f8473 [project @ 1994-10-13 16:57:33 by jwe]
jwe
parents: 796
diff changeset
65
2458
d07a5d0b57e2 [project @ 1996-11-03 03:25:18 by jwe]
jwe
parents: 2323
diff changeset
66 if (! isempty (prefs))
d07a5d0b57e2 [project @ 1996-11-03 03:25:18 by jwe]
jwe
parents: 2323
diff changeset
67 unlink (prefs);
d07a5d0b57e2 [project @ 1996-11-03 03:25:18 by jwe]
jwe
parents: 2323
diff changeset
68 endif
800
73fdde1f8473 [project @ 1994-10-13 16:57:33 by jwe]
jwe
parents: 796
diff changeset
69
2458
d07a5d0b57e2 [project @ 1996-11-03 03:25:18 by jwe]
jwe
parents: 2323
diff changeset
70 end_unwind_protect
802
b7d68dfee8d8 [project @ 1994-10-13 17:13:55 by jwe]
jwe
parents: 800
diff changeset
71
796
d6965f5c411a [project @ 1994-10-13 04:43:57 by jwe]
jwe
parents:
diff changeset
72 endfunction