Mercurial > octave

comparison src/load-save.cc @ 1180:0a9c94ee69e8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-03-24 06:20:14 by jwe]
author jwe
date Fri, 24 Mar 1995 06:20:14 +0000
parents 67a2682c02b0
children b6360f2d4fa6
comparison
equal deleted inserted replaced
1179:f070efd56c3d 1180:0a9c94ee69e8
1941 else 1941 else
1942 { 1942 {
1943 file.seekg (0, ios::beg); 1943 file.seekg (0, ios::beg);
1944 1944
1945 FOUR_BYTE_INT mopt, nr, nc, imag, len; 1945 FOUR_BYTE_INT mopt, nr, nc, imag, len;
1946 int swap; 1946
1947 1947 int err = read_mat_file_header (file, swap, mopt, nr, nc, imag, len, 1);
1948 if (read_mat_file_header (file, swap, mopt, nr, nc, imag, len, 1) == 0) 1948
1949 if (! err)
1949 retval = LS_MAT_BINARY; 1950 retval = LS_MAT_BINARY;
1950 else 1951 else
1951 { 1952 {
1952 file.seekg (0, ios::beg); 1953 file.seekg (0, ios::beg);
1953 1954
1954 char *tmp = extract_keyword (file, "name"); 1955 char *tmp = extract_keyword (file, "name");
1956
1955 if (tmp) 1957 if (tmp)
1956 retval = LS_ASCII; 1958 {
1957 1959 retval = LS_ASCII;
1958 delete [] tmp; 1960 delete [] tmp;
1961 }
1959 } 1962 }
1960 } 1963 }
1961 1964
1962 file.close (); 1965 file.close ();
1963 1966