(Page layout): add

[lilypond.git] / lily / source-file.cc

diff --git a/lily/source-file.cc b/lily/source-file.cc
index 108c68b6a23e9b3b2a21bb9dc50860ce3a210d5d..f083fedfd3a077e62e0cc48ac4a73a5b1aed7f4f 100644 (file)
--- a/lily/source-file.cc
+++ b/lily/source-file.cc
@@ -7,7 +7,7 @@
   Han-Wen Nienhuys <hanwen@cs.uu.nl>
 */
 
-#include "config.h"
+#include "config.hh"
 
 #include <stdio.h>
 #include <assert.h>
@@ -39,43 +39,34 @@ Source_file::load_stdin ()
   contents_str0_ = chs.remove_array ();
 }
 
-
-
-char *
-gulp_file (String fn, int* len)
+char*
+gulp_file (String filename, int *filesize)
 {
-  /*
-    let's hope that "b" opens anything binary, and does not apply
-    CR/LF translation
-    */
-  FILE * f =  fopen (fn.to_str0 (), "rb");
-
+  /* "b" must ensure to open literally, avoiding text (CR/LF)
+     conversions.  */
+  FILE *f = fopen (filename.to_str0 (), "rb");
   if (!f)
     {
-      warning (_f ("can't open file: `%s'", fn.to_str0 ()));
+      warning (_f ("can't open file: `%s'", filename.to_str0 ()));
       return 0;
     }
 
-  int ret = fseek (f, 0, SEEK_END);
-
-  *len = ftell (f);
+  fseek (f, 0, SEEK_END);
+  *filesize = ftell (f);
   rewind (f);
-  char *  str = new char[*len+1];
-  str[*len] = 0;
-  ret = fread (str, sizeof (char), *len, f);
 
-  if (ret!=*len)
-    warning (_f ("Huh?  Got %d, expected %d characters", ret, *len));
+  char *str = new char[*filesize + 1];
+  str[*filesize] = 0;
 
+  int bytes_read = fread (str, sizeof (char), *filesize, f);
+  if (bytes_read != *filesize)
+    warning (_f ("Huh?  Got %d, expected %d characters", bytes_read,
+                *filesize));
   fclose (f);
 
-
   return str;
 }
 
-/*
-  Unused.
- */
 Source_file::Source_file (String filename, String data)
 {
   name_ = filename;
@@ -109,12 +100,9 @@ Source_file::Source_file (String filename_string)
 void
 Source_file::init_port ()
 {
-  SCM str =scm_makfrom0str (contents_str0_);
-  
-  str_port_ = scm_mkstrport (SCM_INUM0, str, SCM_OPN | SCM_RDNG,
-                            __FUNCTION__);
-  scm_set_port_filename_x (str_port_,
-                          scm_makfrom0str (name_.get_str0()));
+  SCM str = scm_makfrom0str (contents_str0_);
+  str_port_ = scm_mkstrport (SCM_INUM0, str, SCM_OPN | SCM_RDNG, __FUNCTION__);
+  scm_set_port_filename_x (str_port_, scm_makfrom0str (name_.get_str0 ()));
 }
 
 int