Mercurial > octave-libgccjit

comparison src/file-io.cc @ 5823:080c08b192d8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-05-19 05:32:17 by jwe]
author jwe
date Fri, 19 May 2006 05:32:19 +0000
parents ace8d8d26933
children bdf16e1564e1
comparison
equal deleted inserted replaced
5822:4fdc2515ebad 5823:080c08b192d8
200 int nargin = args.length (); 200 int nargin = args.length ();
201 201
202 if (nargin == 1) 202 if (nargin == 1)
203 retval = octave_stream_list::remove (args(0), "fclose"); 203 retval = octave_stream_list::remove (args(0), "fclose");
204 else 204 else
205 print_usage ("fclose"); 205 print_usage ();
206 206
207 return retval; 207 return retval;
208 } 208 }
209 209
210 DEFUN (fclear, args, , 210 DEFUN (fclear, args, ,
225 225
226 if (! error_state) 226 if (! error_state)
227 os.clearerr (); 227 os.clearerr ();
228 } 228 }
229 else 229 else
230 print_usage ("fclear"); 230 print_usage ();
231 231
232 return retval; 232 return retval;
233 } 233 }
234 234
235 DEFUN (fflush, args, , 235 DEFUN (fflush, args, ,
268 if (! error_state) 268 if (! error_state)
269 retval = os.flush (); 269 retval = os.flush ();
270 } 270 }
271 } 271 }
272 else 272 else
273 print_usage ("fflush"); 273 print_usage ();
274 274
275 return retval; 275 return retval;
276 } 276 }
277 277
278 DEFUN (fgetl, args, , 278 DEFUN (fgetl, args, ,
317 retval(0) = tmp; 317 retval(0) = tmp;
318 } 318 }
319 } 319 }
320 } 320 }
321 else 321 else
322 print_usage (who); 322 print_usage ();
323 323
324 return retval; 324 return retval;
325 } 325 }
326 326
327 DEFUN (fgets, args, , 327 DEFUN (fgets, args, ,
366 retval(0) = tmp; 366 retval(0) = tmp;
367 } 367 }
368 } 368 }
369 } 369 }
370 else 370 else
371 print_usage (who); 371 print_usage ();
372 372
373 return retval; 373 return retval;
374 } 374 }
375 375
376 static octave_stream 376 static octave_stream
620 retval(1) = os.error (false, error_number); 620 retval(1) = os.error (false, error_number);
621 retval(0) = -1.0; 621 retval(0) = -1.0;
622 } 622 }
623 } 623 }
624 else 624 else
625 print_usage ("fopen"); 625 print_usage ();
626 626
627 return retval; 627 return retval;
628 } 628 }
629 629
630 DEFUN (freport, args, , 630 DEFUN (freport, args, ,
679 679
680 if (! error_state) 680 if (! error_state)
681 result = os.rewind (); 681 result = os.rewind ();
682 } 682 }
683 else 683 else
684 print_usage ("frewind"); 684 print_usage ();
685 685
686 if (nargout > 0) 686 if (nargout > 0)
687 retval = result; 687 retval = result;
688 688
689 return retval; 689 return retval;
720 720
721 retval = os.seek (args(1), origin_arg); 721 retval = os.seek (args(1), origin_arg);
722 } 722 }
723 } 723 }
724 else 724 else
725 print_usage ("fseek"); 725 print_usage ();
726 726
727 return retval; 727 return retval;
728 } 728 }
729 729
730 DEFUN (ftell, args, , 730 DEFUN (ftell, args, ,
745 745
746 if (! error_state) 746 if (! error_state)
747 retval = os.tell (); 747 retval = os.tell ();
748 } 748 }
749 else 749 else
750 print_usage ("ftell"); 750 print_usage ();
751 751
752 return retval; 752 return retval;
753 } 753 }
754 754
755 DEFUN (fprintf, args, nargout, 755 DEFUN (fprintf, args, nargout,
802 else 802 else
803 ::error ("%s: format must be a string", who.c_str ()); 803 ::error ("%s: format must be a string", who.c_str ());
804 } 804 }
805 } 805 }
806 else 806 else
807 print_usage (who); 807 print_usage ();
808 808
809 if (nargout > 0) 809 if (nargout > 0)
810 retval = result; 810 retval = result;
811 811
812 return retval; 812 return retval;
852 } 852 }
853 else 853 else
854 ::error ("%s: format must be a string", who.c_str ()); 854 ::error ("%s: format must be a string", who.c_str ());
855 } 855 }
856 else 856 else
857 print_usage (who); 857 print_usage ();
858 858
859 if (nargout > 0) 859 if (nargout > 0)
860 retval = result; 860 retval = result;
861 861
862 return retval; 862 return retval;
882 882
883 if (! error_state) 883 if (! error_state)
884 retval = os.puts (args(1), who); 884 retval = os.puts (args(1), who);
885 } 885 }
886 else 886 else
887 print_usage (who); 887 print_usage ();
888 888
889 return retval; 889 return retval;
890 } 890 }
891 891
892 DEFUN (puts, args, , 892 DEFUN (puts, args, ,
902 octave_value retval = -1; 902 octave_value retval = -1;
903 903
904 if (args.length () == 1) 904 if (args.length () == 1)
905 retval = stdout_stream.puts (args(0), who); 905 retval = stdout_stream.puts (args(0), who);
906 else 906 else
907 print_usage (who); 907 print_usage ();
908 908
909 return retval; 909 return retval;
910 } 910 }
911 911
912 DEFUN (sprintf, args, , 912 DEFUN (sprintf, args, ,
959 } 959 }
960 else 960 else
961 ::error ("%s: unable to create output buffer", who.c_str ()); 961 ::error ("%s: unable to create output buffer", who.c_str ());
962 } 962 }
963 else 963 else
964 print_usage (who); 964 print_usage ();
965 965
966 return retval; 966 return retval;
967 } 967 }
968 968
969 DEFUN (fscanf, args, , 969 DEFUN (fscanf, args, ,
1063 else 1063 else
1064 ::error ("%s: format must be a string", who.c_str ()); 1064 ::error ("%s: format must be a string", who.c_str ());
1065 } 1065 }
1066 } 1066 }
1067 else 1067 else
1068 print_usage (who); 1068 print_usage ();
1069 } 1069 }
1070 1070
1071 return retval; 1071 return retval;
1072 } 1072 }
1073 1073
1155 } 1155 }
1156 else 1156 else
1157 ::error ("%s: first argument must be a string", who.c_str ()); 1157 ::error ("%s: first argument must be a string", who.c_str ());
1158 } 1158 }
1159 else 1159 else
1160 print_usage (who); 1160 print_usage ();
1161 } 1161 }
1162 1162
1163 return retval; 1163 return retval;
1164 } 1164 }
1165 1165
1457 retval(1) = count; 1457 retval(1) = count;
1458 retval(0) = tmp; 1458 retval(0) = tmp;
1459 } 1459 }
1460 } 1460 }
1461 else 1461 else
1462 print_usage ("fread"); 1462 print_usage ();
1463 1463
1464 return retval; 1464 return retval;
1465 } 1465 }
1466 1466
1467 static int 1467 static int
1555 1555
1556 retval = status; 1556 retval = status;
1557 } 1557 }
1558 } 1558 }
1559 else 1559 else
1560 print_usage ("fwrite"); 1560 print_usage ();
1561 1561
1562 return retval; 1562 return retval;
1563 } 1563 }
1564 1564
1565 DEFUN (feof, args, , 1565 DEFUN (feof, args, ,
1582 1582
1583 if (! error_state) 1583 if (! error_state)
1584 retval = os.eof () ? 1.0 : 0.0; 1584 retval = os.eof () ? 1.0 : 0.0;
1585 } 1585 }
1586 else 1586 else
1587 print_usage ("feof"); 1587 print_usage ();
1588 1588
1589 return retval; 1589 return retval;
1590 } 1590 }
1591 1591
1592 DEFUN (ferror, args, , 1592 DEFUN (ferror, args, ,
1627 retval(1) = error_number; 1627 retval(1) = error_number;
1628 retval(0) = error_message; 1628 retval(0) = error_message;
1629 } 1629 }
1630 } 1630 }
1631 else 1631 else
1632 print_usage ("ferror"); 1632 print_usage ();
1633 1633
1634 return retval; 1634 return retval;
1635 } 1635 }
1636 1636
1637 DEFUN (popen, args, , 1637 DEFUN (popen, args, ,
1701 } 1701 }
1702 else 1702 else
1703 ::error ("popen: name must be a string"); 1703 ::error ("popen: name must be a string");
1704 } 1704 }
1705 else 1705 else
1706 print_usage ("popen"); 1706 print_usage ();
1707 1707
1708 return retval; 1708 return retval;
1709 } 1709 }
1710 1710
1711 DEFUN (pclose, args, , 1711 DEFUN (pclose, args, ,
1720 int nargin = args.length (); 1720 int nargin = args.length ();
1721 1721
1722 if (nargin == 1) 1722 if (nargin == 1)
1723 retval = octave_stream_list::remove (args(0), "pclose"); 1723 retval = octave_stream_list::remove (args(0), "pclose");
1724 else 1724 else
1725 print_usage ("pclose"); 1725 print_usage ();
1726 1726
1727 return retval; 1727 return retval;
1728 } 1728 }
1729 1729
1730 DEFUN (tmpnam, args, , 1730 DEFUN (tmpnam, args, ,
1761 } 1761 }
1762 else 1762 else
1763 ::error ("expecting first argument to be a string"); 1763 ::error ("expecting first argument to be a string");
1764 } 1764 }
1765 else 1765 else
1766 print_usage ("tmpnam"); 1766 print_usage ();
1767 1767
1768 return retval; 1768 return retval;
1769 } 1769 }
1770 1770
1771 DEFALIAS (octave_tmp_file_name, tmpnam); 1771 DEFALIAS (octave_tmp_file_name, tmpnam);
1815 retval(1) = ::strerror (errno); 1815 retval(1) = ::strerror (errno);
1816 retval(0) = -1; 1816 retval(0) = -1;
1817 } 1817 }
1818 } 1818 }
1819 else 1819 else
1820 print_usage ("tmpfile"); 1820 print_usage ();
1821 1821
1822 return retval; 1822 return retval;
1823 } 1823 }
1824 1824
1825 DEFUN (mkstemp, args, , 1825 DEFUN (mkstemp, args, ,
1906 } 1906 }
1907 else 1907 else
1908 error ("mkstemp: expecting string as first argument"); 1908 error ("mkstemp: expecting string as first argument");
1909 } 1909 }
1910 else 1910 else
1911 print_usage ("mkstemp"); 1911 print_usage ();
1912 1912
1913 #else 1913 #else
1914 retval(2) = "mkstemp: not supported on this sytem"; 1914 retval(2) = "mkstemp: not supported on this sytem";
1915 #endif 1915 #endif
1916 1916
1983 status = -1; 1983 status = -1;
1984 ::error ("umask: expecting integer argument"); 1984 ::error ("umask: expecting integer argument");
1985 } 1985 }
1986 } 1986 }
1987 else 1987 else
1988 print_usage ("umask"); 1988 print_usage ();
1989 1989
1990 if (status >= 0) 1990 if (status >= 0)
1991 retval(0) = status; 1991 retval(0) = status;
1992 1992
1993 return retval; 1993 return retval;
2001 int nargin = args.length (); 2001 int nargin = args.length ();
2002 2002
2003 if (nargin == 0) 2003 if (nargin == 0)
2004 retval = val; 2004 retval = val;
2005 else 2005 else
2006 print_usage (nm); 2006 print_usage ();
2007 2007
2008 return retval; 2008 return retval;
2009 } 2009 }
2010 2010
2011 #if ! defined (P_tmpdir) 2011 #if ! defined (P_tmpdir)
2024 int nargin = args.length (); 2024 int nargin = args.length ();
2025 2025
2026 if (nargin == 0) 2026 if (nargin == 0)
2027 retval = P_tmpdir; 2027 retval = P_tmpdir;
2028 else 2028 else
2029 print_usage ("P_tmpdir"); 2029 print_usage ();
2030 2030
2031 return retval; 2031 return retval;
2032 } 2032 }
2033 2033
2034 // NOTE: the values of SEEK_SET, SEEK_CUR, and SEEK_END have to be 2034 // NOTE: the values of SEEK_SET, SEEK_CUR, and SEEK_END have to be
2083 int nargin = args.length (); 2083 int nargin = args.length ();
2084 2084
2085 if (nargin == 0) 2085 if (nargin == 0)
2086 retval = val; 2086 retval = val;
2087 else 2087 else
2088 print_usage (nm); 2088 print_usage ();
2089 2089
2090 return retval; 2090 return retval;
2091 } 2091 }
2092 2092
2093 DEFUNX ("stdin", Fstdin, args, , 2093 DEFUNX ("stdin", Fstdin, args, ,