Mercurial > hg > octave-nkf

comparison src/g-builtins.cc @ 444:ba637cc5c5f3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-06-02 17:15:07 by jwe]
author jwe
date Thu, 02 Jun 1994 17:15:07 +0000
parents 0f4129889b57
children 12c3914275a0
comparison
equal deleted inserted replaced
443:25570b554bca 444:ba637cc5c5f3
580 580
581 return retval; 581 return retval;
582 } 582 }
583 583
584 /* 584 /*
585 * Check file for EOF condition.
586 */
587 tree_constant *
588 builtin_feof (const tree_constant *args, int nargin, int nargout)
589 {
590 tree_constant *retval = NULL_TREE_CONST;
591
592 if (nargin < 1)
593 print_usage ("feof");
594 else
595 retval = feof_internal (args, nargin, nargout);
596
597 return retval;
598 }
599
600 /*
601 * Check file for error condition.
602 */
603 tree_constant *
604 builtin_ferror (const tree_constant *args, int nargin, int nargout)
605 {
606 tree_constant *retval = NULL_TREE_CONST;
607
608 if (nargin < 1)
609 print_usage ("ferror");
610 else
611 retval = ferror_internal (args, nargin, nargout);
612
613 return retval;
614 }
615
616 /*
585 * Evaluate first argument as a function. 617 * Evaluate first argument as a function.
586 */ 618 */
587 tree_constant * 619 tree_constant *
588 builtin_feval (const tree_constant *args, int nargin, int nargout) 620 builtin_feval (const tree_constant *args, int nargin, int nargout)
589 { 621 {
596 628
597 return retval; 629 return retval;
598 } 630 }
599 631
600 /* 632 /*
601 * Flushing output to a file 633 * Flushing output to a file.
602 */ 634 */
603 tree_constant * 635 tree_constant *
604 builtin_fflush (const tree_constant *args, int nargin, int nargout) 636 builtin_fflush (const tree_constant *args, int nargin, int nargout)
605 { 637 {
606 tree_constant *retval = NULL_TREE_CONST; 638 tree_constant *retval = NULL_TREE_CONST;
612 644
613 return retval; 645 return retval;
614 } 646 }
615 647
616 /* 648 /*
617 * Fast Fourier Transform 649 * Fast Fourier Transform.
618 */ 650 */
619 tree_constant * 651 tree_constant *
620 builtin_fft (const tree_constant *args, int nargin, int nargout) 652 builtin_fft (const tree_constant *args, int nargin, int nargout)
621 { 653 {
622 tree_constant *retval = NULL_TREE_CONST; 654 tree_constant *retval = NULL_TREE_CONST;
632 664
633 return retval; 665 return retval;
634 } 666 }
635 667
636 /* 668 /*
637 * get a string from a file 669 * Get a string from a file.
638 */ 670 */
639 tree_constant * 671 tree_constant *
640 builtin_fgets (const tree_constant *args, int nargin, int nargout) 672 builtin_fgets (const tree_constant *args, int nargin, int nargout)
641 { 673 {
642 tree_constant *retval = NULL_TREE_CONST; 674 tree_constant *retval = NULL_TREE_CONST;
719 751
720 return retval; 752 return retval;
721 } 753 }
722 754
723 /* 755 /*
724 * rewind a file 756 * Read binary data from a file.
757 */
758 tree_constant *
759 builtin_fread (const tree_constant *args, int nargin, int nargout)
760 {
761 tree_constant *retval = NULL_TREE_CONST;
762
763 if (nargin < 2)
764 print_usage ("fread");
765 else
766 retval = fread_internal (args, nargin, nargout);
767
768 return retval;
769 }
770
771 /*
772 * Rewind a file.
725 */ 773 */
726 tree_constant * 774 tree_constant *
727 builtin_frewind (const tree_constant *args, int nargin, int nargout) 775 builtin_frewind (const tree_constant *args, int nargin, int nargout)
728 { 776 {
729 tree_constant *retval = NULL_TREE_CONST; 777 tree_constant *retval = NULL_TREE_CONST;
735 783
736 return retval; 784 return retval;
737 } 785 }
738 786
739 /* 787 /*
740 * report on open files 788 * Report on open files.
741 */ 789 */
742 tree_constant * 790 tree_constant *
743 builtin_freport (const tree_constant *args, int nargin, int nargout) 791 builtin_freport (const tree_constant *args, int nargin, int nargout)
744 { 792 {
745 tree_constant *retval = NULL_TREE_CONST; 793 tree_constant *retval = NULL_TREE_CONST;
767 815
768 return retval; 816 return retval;
769 } 817 }
770 818
771 /* 819 /*
772 * seek a point in a file for reading and/or writing 820 * Seek a point in a file for reading and/or writing.
773 */ 821 */
774 tree_constant * 822 tree_constant *
775 builtin_fseek (const tree_constant *args, int nargin, int nargout) 823 builtin_fseek (const tree_constant *args, int nargin, int nargout)
776 { 824 {
777 tree_constant *retval = NULL_TREE_CONST; 825 tree_constant *retval = NULL_TREE_CONST;
849 897
850 return retval; 898 return retval;
851 } 899 }
852 900
853 /* 901 /*
854 * tell current position of file 902 * Tell current position of file.
855 */ 903 */
856 tree_constant * 904 tree_constant *
857 builtin_ftell (const tree_constant *args, int nargin, int nargout) 905 builtin_ftell (const tree_constant *args, int nargin, int nargout)
858 { 906 {
859 tree_constant *retval = NULL_TREE_CONST; 907 tree_constant *retval = NULL_TREE_CONST;
860 908
861 if (nargin != 2) 909 if (nargin != 2)
862 print_usage ("ftell"); 910 print_usage ("ftell");
863 else 911 else
864 retval = ftell_internal (args); 912 retval = ftell_internal (args);
913
914 return retval;
915 }
916
917 /*
918 * Write binary data to a file.
919 */
920 tree_constant *
921 builtin_fwrite (const tree_constant *args, int nargin, int nargout)
922 {
923 tree_constant *retval = NULL_TREE_CONST;
924
925 if (nargin < 3)
926 print_usage ("fwrite");
927 else
928 retval = fwrite_internal (args, nargin, nargout);
865 929
866 return retval; 930 return retval;
867 } 931 }
868 932
869 /* 933 /*
888 952
889 return retval; 953 return retval;
890 } 954 }
891 955
892 /* 956 /*
893 * Inverse Fast Fourier Transform 957 * Inverse Fast Fourier Transform.
894 */ 958 */
895 tree_constant * 959 tree_constant *
896 builtin_ifft (const tree_constant *args, int nargin, int nargout) 960 builtin_ifft (const tree_constant *args, int nargin, int nargout)
897 { 961 {
898 tree_constant *retval = NULL_TREE_CONST; 962 tree_constant *retval = NULL_TREE_CONST;
1719 1783
1720 return retval; 1784 return retval;
1721 } 1785 }
1722 1786
1723 /* 1787 /*
1724 * Schur Decomposition 1788 * Schur Decomposition.
1725 */ 1789 */
1726 tree_constant * 1790 tree_constant *
1727 builtin_schur (const tree_constant *args, int nargin, int nargout) 1791 builtin_schur (const tree_constant *args, int nargin, int nargout)
1728 { 1792 {
1729 tree_constant *retval = NULL_TREE_CONST; 1793 tree_constant *retval = NULL_TREE_CONST;
1736 1800
1737 return retval; 1801 return retval;
1738 } 1802 }
1739 1803
1740 /* 1804 /*
1741 * Givens rotation 1805 * Givens rotation.
1742 */ 1806 */
1743 tree_constant * 1807 tree_constant *
1744 builtin_givens (const tree_constant *args, int nargin, int nargout) 1808 builtin_givens (const tree_constant *args, int nargin, int nargout)
1745 { 1809 {
1746 tree_constant *retval = NULL_TREE_CONST; 1810 tree_constant *retval = NULL_TREE_CONST;
1752 1816
1753 return retval; 1817 return retval;
1754 } 1818 }
1755 1819
1756 /* 1820 /*
1757 * Hessenberg Decomposition 1821 * Hessenberg Decomposition.
1758 */ 1822 */
1759 tree_constant * 1823 tree_constant *
1760 builtin_hess (const tree_constant *args, int nargin, int nargout) 1824 builtin_hess (const tree_constant *args, int nargin, int nargout)
1761 { 1825 {
1762 tree_constant *retval = NULL_TREE_CONST; 1826 tree_constant *retval = NULL_TREE_CONST;