Mercurial > octave-nkf
annotate scripts/plot/private/__tight_eps_bbox__.m @ 17405:3f0ed69d21c6
Replace unnecessary instances of strncmp with strcmp.
* scripts/optimization/optimget.m, scripts/plot/__gnuplot_drawnow__.m,
scripts/plot/fill.m, scripts/plot/private/__go_draw_axes__.m,
scripts/plot/private/__pie__.m, scripts/plot/private/__print_parse_opts__.m,
scripts/plot/private/__quiver__.m, scripts/plot/private/__tight_eps_bbox__.m,
scripts/plot/stairs.m, scripts/plot/uigetfile.m, scripts/strings/strsplit.m,
scripts/strings/validatestring.m: Replace unnecessary instances of strncmp with
strcmp.
| author | Rik <rik@octave.org> |
|---|---|
| date | Tue, 10 Sep 2013 18:31:39 -0700 |
| parents | 5d3a684236b0 |
| children |
| rev | line source |
|---|---|
|
14138
72c96de7a403
maint: update copyright notices for 2012
John W. Eaton <jwe@octave.org>
parents:
11589
diff
changeset
|
1 ## Copyright (C) 2010-2012 Ben Abbott |
|
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
2 ## |
| 11104 | 3 ## This file is part of Octave. |
| 4 ## | |
| 5 ## Octave is free software; you can redistribute it and/or modify it | |
| 6 ## under the terms of the GNU General Public License as published by | |
| 7 ## the Free Software Foundation; either version 3 of the License, or (at | |
| 8 ## your option) any later version. | |
| 9 ## | |
| 10 ## Octave is distributed in the hope that it will be useful, but | |
| 11 ## WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
| 13 ## General Public License for more details. | |
| 14 ## | |
| 10834 | 15 ## You should have received a copy of the GNU General Public License |
| 16 ## along with Octave; see the file COPYING. If not, see | |
| 17 ## <http://www.gnu.org/licenses/>. | |
| 18 | |
| 19 ## -*- texinfo -*- | |
| 20 ## @deftypefn {Function File} {@var{bbox} =} __tight_eps_bbox__ (@var{@dots{}}) | |
| 21 ## Undocumented internal function. | |
| 22 ## @end deftypefn | |
| 23 | |
| 24 ## Author: Ben Abbott <bpabbott@mac.com> | |
| 25 ## Created: 2010-07-26 | |
| 26 | |
| 27 function bb = __tight_eps_bbox__ (opts, eps_file_name) | |
| 28 | |
| 29 box_string = "%%BoundingBox:"; | |
| 30 | |
| 31 cmd = sprintf ("\"%s\" \"%s\" 2>&1", "head", eps_file_name); | |
| 32 [status, output] = system (cmd); | |
| 33 | |
| 34 if (status == 0) | |
| 35 orig_bbox_line = get_bbox (output); | |
| 36 else | |
| 37 error ("print:noboundingbox", | |
|
11589
b0084095098e
missing semicolons in script files
John W. Eaton <jwe@octave.org>
parents:
11587
diff
changeset
|
38 "print.m: no bounding box found in '%s'", eps_file_name); |
| 10834 | 39 endif |
| 40 | |
| 41 ghostscript_options = "-q -dBATCH -dSAFER -dNOPAUSE -dTextAlphaBits=4 -sDEVICE=bbox"; | |
|
10913
dd6b90f44ae5
Unify gnuplot printing with the fltk backend.
Ben Abbott <bpabbott@mac.com>
parents:
10834
diff
changeset
|
42 cmd = sprintf ("\"%s\" %s \"%s\" 2>&1", opts.ghostscript.binary, |
| 10834 | 43 ghostscript_options, eps_file_name); |
| 44 [status, output] = system (cmd); | |
| 45 | |
| 46 if (status == 0) | |
| 47 tight_bbox_line = get_bbox (output); | |
| 48 else | |
| 49 warning ("print:nogsboundingbox", | |
| 50 "print.m: ghostscript failed to determine the bounding for '%s'", | |
|
11589
b0084095098e
missing semicolons in script files
John W. Eaton <jwe@octave.org>
parents:
11587
diff
changeset
|
51 eps_file_name); |
| 10834 | 52 endif |
| 53 | |
| 54 ## Attempt to fix the bbox in place. | |
| 55 fid = fopen (eps_file_name, "r+"); | |
| 56 unwind_protect | |
| 57 bbox_replaced = false; | |
| 58 looking_for_bbox = true; | |
| 59 while (looking_for_bbox) | |
| 60 current_line = fgetl (fid); | |
|
17405
3f0ed69d21c6
Replace unnecessary instances of strncmp with strcmp.
Rik <rik@octave.org>
parents:
14868
diff
changeset
|
61 if (strncmpi (current_line, box_string, length (box_string))) |
| 10834 | 62 line_length = numel (current_line); |
| 63 num_spaces = line_length - numel (tight_bbox_line); | |
| 64 if (numel (current_line) >= numel (tight_bbox_line)) | |
| 65 new_line = tight_bbox_line; | |
|
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
66 new_line(end+1:numel (current_line)) = " "; |
| 10834 | 67 bbox_replaced = true; |
| 68 ## Back up to the beginning of the line (include EOL characters). | |
| 69 if (ispc ()) | |
| 70 fseek (fid, -line_length-2, "cof"); | |
| 71 else | |
| 72 fseek (fid, -line_length-1, "cof"); | |
| 73 endif | |
| 74 count = fprintf (fid, "%s", new_line); | |
| 75 endif | |
| 76 looking_for_bbox = false; | |
| 77 elseif (! ischar (current_line)) | |
| 78 looking_for_bbox = false; | |
| 79 endif | |
| 80 endwhile | |
| 81 unwind_protect_cleanup | |
| 82 fclose (fid); | |
| 83 end_unwind_protect | |
| 84 | |
| 85 ## If necessary load the eps-file and replace the bbox (can be slow). | |
| 86 if (! bbox_replaced) | |
| 87 fid = fopen (eps_file_name, "r"); | |
| 88 unwind_protect | |
| 89 data = char (fread (fid, Inf)).'; | |
| 90 unwind_protect_cleanup | |
| 91 fclose (fid); | |
| 92 end_unwind_protect | |
| 93 n = strfind (data, box_string); | |
| 94 if (numel (n) > 1) | |
| 95 ## Only replace one instance. | |
| 96 n = n(1); | |
| 97 elseif (isempty (n)) | |
| 98 error ("print:noboundingbox", ... | |
|
11589
b0084095098e
missing semicolons in script files
John W. Eaton <jwe@octave.org>
parents:
11587
diff
changeset
|
99 "print.m: no bounding box found in '%s'.", eps_file_name); |
| 10834 | 100 endif |
| 101 m = numel (orig_bbox_line); | |
| 102 data = horzcat (data(1:(n-1)), tight_bbox_line, data((n+m):end)); | |
| 103 fid = fopen (eps_file_name, "w"); | |
| 104 unwind_protect | |
| 105 fprintf (fid, "%s", data); | |
| 106 unwind_protect_cleanup | |
| 107 fclose (fid); | |
| 108 end_unwind_protect | |
| 109 endif | |
| 110 | |
| 111 endfunction | |
| 112 | |
| 113 function bbox_line = get_bbox (lines) | |
| 114 box_string = "%%BoundingBox:"; | |
| 115 pattern = strcat (box_string, "[^%]*"); | |
|
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
116 pattern = pattern(1:find (double (pattern) > 32, 1, "last")); |
| 10834 | 117 bbox_line = regexp (lines, pattern, "match"); |
| 118 if (iscell (bbox_line)) | |
| 119 bbox_line = bbox_line{1}; | |
| 120 endif | |
| 121 ## Remove the EOL characters. | |
|
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
122 bbox_line(double (bbox_line) < 32) = ""; |
| 10834 | 123 endfunction |
| 124 |