Mercurial > octave-nkf

comparison src/DLD-FUNCTIONS/fftw_wisdom.cc @ 4787:02c748eb2ddc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-02-18 21:20:26 by jwe]
author jwe
date Wed, 18 Feb 2004 21:20:26 +0000
parents adf8d68d7143
children d2038299c683
comparison
equal deleted inserted replaced
4786:fc316bde0053 4787:02c748eb2ddc
106 if (NINT (dval) != 0) 106 if (NINT (dval) != 0)
107 overwrite = true; 107 overwrite = true;
108 } 108 }
109 109
110 std::string wisdom = octave_env::make_absolute 110 std::string wisdom = octave_env::make_absolute
111 (Vload_path_dir_path.find_first_of (args(0).string_value ().c_str ()), 111 (Vload_path_dir_path.find_first_of (args(0).string_value ()),
112 octave_env::getcwd ()); 112 octave_env::getcwd ());
113
114 // XXX FIXME XXX -- should probably protect FILE* resources with
115 // auto_ptr or similar...
113 116
114 if (wisdom.empty () || overwrite) 117 if (wisdom.empty () || overwrite)
115 { 118 {
116 FILE *ofile = fopen (wisdom.c_str (), "wb"); 119 FILE *ofile = fopen (wisdom.c_str (), "wb");
117 fftw_export_wisdom_to_file (ofile); 120 fftw_export_wisdom_to_file (ofile);
188 191
189 } 192 }
190 193
191 #else 194 #else
192 195
193 error ("fftw_wisdom: this copy of Octave was not configured to use FFTW3"); 196 warning ("fftw_wisdom: this copy of Octave was not configured to use FFTW3");
194 197
195 #endif 198 #endif
196 199
197 return retval; 200 return retval;
198 } 201 }