Mercurial > hg > octave-nkf

comparison scripts/plot/__gnuplot_get_var__.m @ 9099:3a5d41b382ab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
__gnuplot_get_var__.m: Correct misleading error messages, and remove dangling/commented code.
author Ben Abbott <bpabbott@mac.com>
date Mon, 06 Apr 2009 19:33:01 -0400
parents b3268a0458f2
children d0d507cbd123
comparison
equal deleted inserted replaced
9098:5ecdb3d3568f 9099:3a5d41b382ab
41 else 41 else
42 ostream = h; 42 ostream = h;
43 endif 43 endif
44 if (numel (ostream) < 1) 44 if (numel (ostream) < 1)
45 error ("__gnuplot_get_var__: stream to gnuplot not open"); 45 error ("__gnuplot_get_var__: stream to gnuplot not open");
46 elseif (ispc ()) # || true 46 elseif (ispc ())
47 if (numel (ostream) == 1) 47 if (numel (ostream) == 1)
48 error ("__gnuplot_get_var__: Need mkfifo that is not implemented under Windows"); 48 error ("__gnuplot_get_var__: Need mkfifo that is not implemented under Windows");
49 endif 49 endif
50 use_mkfifo = false; 50 use_mkfifo = false;
51 istream = ostream(2); 51 istream = ostream(2);
60 60
61 ## Mode: 6*8*8 == 0600 61 ## Mode: 6*8*8 == 0600
62 [err, msg] = mkfifo (gpin_name, 6*8*8); 62 [err, msg] = mkfifo (gpin_name, 6*8*8);
63 63
64 if (err != 0) 64 if (err != 0)
65 error ("__gnuplot_get_var__: Can not open fifo (%s)", msg); 65 error ("__gnuplot_get_var__: Can not make fifo (%s)", msg);
66 endif 66 endif
67 endif 67 endif
68 68
69 gp_var_name = strtrim (gp_var_name); 69 gp_var_name = strtrim (gp_var_name);
70 n = min (strfind (gp_var_name, " "), strfind (gp_var_name, ",")) - 1; 70 n = min (strfind (gp_var_name, " "), strfind (gp_var_name, ",")) - 1;
80 if (use_mkfifo) 80 if (use_mkfifo)
81 fprintf (ostream, "\nset print \"%s\";\n", gpin_name); 81 fprintf (ostream, "\nset print \"%s\";\n", gpin_name);
82 fflush (ostream); 82 fflush (ostream);
83 [gpin, err] = fopen (gpin_name, "r"); 83 [gpin, err] = fopen (gpin_name, "r");
84 if (err != 0) 84 if (err != 0)
85 error ("__gnuplot_get_var__: Can not open fifo (%s)", msg); 85 error ("__gnuplot_get_var__: Can not open fifo.");
86 endif 86 endif
87 gp_cmd = sprintf ("\nif (exists(\"%s\")) print %s; else print NaN\n", 87 gp_cmd = sprintf ("\nif (exists(\"%s\")) print %s; else print NaN\n",
88 gp_var_name(1:n), gp_var_name); 88 gp_var_name(1:n), gp_var_name);
89 fputs (ostream, gp_cmd); 89 fputs (ostream, gp_cmd);
90 90