Mercurial > hg > octave-lyh

comparison scripts/plot/__gnuplot_get_var__.m @ 9107:d0d507cbd123

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Improvements to printing functionality.
author Ben Abbott <bpabbott@mac.com>
date Fri, 10 Apr 2009 12:11:14 -0400
parents 3a5d41b382ab
children 4bb94a71913b
comparison
equal deleted inserted replaced
9106:1eb5b24186b6 9107:d0d507cbd123
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 ## Try a second time, and then give an error.
86 [gpin, err] = fopen (gpin_name, "r");
87 endif
88 if (err != 0)
85 error ("__gnuplot_get_var__: Can not open fifo."); 89 error ("__gnuplot_get_var__: Can not open fifo.");
86 endif 90 endif
87 gp_cmd = sprintf ("\nif (exists(\"%s\")) print %s; else print NaN\n", 91 gp_cmd = sprintf ("\nif (exists(\"%s\")) print %s; else print NaN\n",
88 gp_var_name(1:n), gp_var_name); 92 gp_var_name(1:n), gp_var_name);
89 fputs (ostream, gp_cmd); 93 fputs (ostream, gp_cmd);