smobify_self ();
filename_ = filename;
- file_ = scm_open_file (scm_makfrom0str (filename.to_str0 ()),
- scm_makfrom0str ("w"));
-
String module_name = "scm output-" + format;
output_module_ = scm_c_resolve_module (module_name.to_str0 ());
}
return 1;
}
+SCM
+Paper_outputter::file ()
+{
+ if (file_ == SCM_EOL)
+ file_ = scm_open_file (scm_makfrom0str (filename_.to_str0 ()),
+ scm_makfrom0str ("w"));
+ return file_;
+}
+
SCM
Paper_outputter::dump_string (SCM scm)
{
- return scm_display (scm, file_);
+ return scm_display (scm, file ());
}
SCM
(void*) this, Offset (0,0));
}
-
Paper_outputter *
get_paper_outputter (String outname, String f)
{