(LY_DEFINE): move parse-file function

[lilypond.git] / lily / my-lily-parser.cc

diff --git a/lily/my-lily-parser.cc b/lily/my-lily-parser.cc
index 097a941bd7c820b07d8c9e41538338c00348b188..a5604a8063d7a59177cf4d815a0c36e759fac49f 100644 (file)
--- a/lily/my-lily-parser.cc
+++ b/lily/my-lily-parser.cc
@@ -7,14 +7,25 @@
        Jan Nieuwenhuizen <janneke@gnu.org>
 */
 
-#include "my-lily-parser.hh"
-#include "my-lily-lexer.hh"
-#include "warn.hh"
+#include "file-path.hh"
+#include "lily-version.hh"
+#include "ly-module.hh"
+#include "ly-module.hh"
+#include "main.hh"
 #include "main.hh"
+#include "my-lily-lexer.hh"
+#include "my-lily-parser.hh"
+#include "my-lily-parser.hh"
+#include "paper-def.hh"
+#include "parray.hh"
 #include "parser.hh"
-#include "input-file-results.hh"
-#include "ly-module.hh"
 #include "scm-hash.hh"
+#include "scm-hash.hh"
+#include "score.hh"
+#include "source.hh"
+#include "string.hh"
+#include "warn.hh"
+#include "warn.hh"
 
 My_lily_parser::My_lily_parser (Sources * sources)
 {
@@ -115,3 +126,139 @@ My_lily_parser::here_input () const
   
   return Input (hi.source_file_, bla);
 }
+
+
+/****************************************************************/
+
+
+
+bool store_locations_global_b;
+
+/*
+  TODO: should merge with My_lily_parser. 
+ */
+
+/*
+  no ! suffix since it doesn't modify 1st argument.
+ */
+LY_DEFINE (ly_set_point_and_click, "ly:set-point-and-click", 1, 0, 0,
+         (SCM what),
+         "Set the options for Point-and-click source specials output. The\n"
+"argument is a symbol.  Possible options are @code{none} (no source specials),\n"
+"@code{line} and @code{line-column}")
+{
+  /*
+    UGH.
+   */
+  SCM val = SCM_BOOL_F;
+  if (ly_symbol2scm ("line-column") == what)
+    val = scm_c_eval_string ("line-column-location");
+  else if (what == ly_symbol2scm ("line"))
+    val = scm_c_eval_string ("line-location");
+
+  scm_module_define (global_lily_module, ly_symbol2scm ("point-and-click"), val);
+  store_locations_global_b = is_procedure (val);
+  return SCM_UNSPECIFIED;
+}
+
+
+/* Distill full input file name from command argument.  PATH describes
+   file name with added default extension, ".ly" if none.  "-" is
+   STDIN.  */
+Path
+distill_inname (String str)
+{
+  Path p = split_path (str);
+  if (str.is_empty () || str == "-")
+    p.base = "-";
+  else
+    {
+      String orig_ext = p.ext;
+      char const *extensions[] = {"ly", "", 0};
+      for (int i = 0; extensions[i]; i++)
+       {
+         p.ext = orig_ext;
+         if (*extensions[i] && !p.ext.is_empty ())
+           p.ext += ".";
+         p.ext += extensions[i];
+         if (!global_path.find (p.to_string ()).is_empty ())
+             break;
+       }
+      /* Reshuffle extension */
+      p = split_path (p.to_string ());
+    }
+  return p;
+}
+
+LY_DEFINE(ly_parse_file, "ly:parse-file",
+         1,0,0,
+         (SCM name),
+         "Parse a single @code{.ly} file. If this fails, then throw @code{ly-file-failed} key. "
+         )
+{
+  SCM_ASSERT_TYPE (is_string (name), name, SCM_ARG1, __FUNCTION__, "string");
+  char const *file = SCM_STRING_CHARS(name);
+  
+  String infile (file);
+  Path inpath = distill_inname (infile);
+  
+  /* By default, use base name of input file for output file name */
+  Path outpath = inpath;
+  if (inpath.to_string () != "-")
+    outpath.ext = output_format_global;
+  
+  /* By default, write output to cwd; do not copy directory part
+     of input file name */
+  outpath.root = "";
+  outpath.dir = "";
+  
+  if (!output_name_global.is_empty ())
+    outpath = split_path (output_name_global);
+  
+  String init;
+  if (!init_name_global.is_empty ())
+    init = init_name_global;
+  else
+    init = "init.ly";
+  
+  String in_file = inpath.to_string ();
+  String out_file = outpath.to_string ();
+
+
+  if (init.length () && global_path.find (init).is_empty ())
+    {
+      warning (_f ("can't find init file: `%s'", init));
+      warning (_f ("(search path: `%s')", global_path.to_string ().to_str0 ()));
+      exit (2);
+    }
+
+  if ((in_file != "-") && global_path.find (in_file).is_empty ())
+    {
+      warning (_f ("can't find file: `%s'", in_file));
+      scm_throw (ly_symbol2scm ("ly-file-failed"), scm_list_1 (scm_makfrom0str (in_file.to_str0 ())));
+    }
+  else
+    {
+      Sources sources;
+      sources.set_path (&global_path);
+  
+      progress_indication (_f ("Now processing `%s'", in_file.to_str0 ()));
+      progress_indication ("\n");
+
+      My_lily_parser parser (&sources);
+      parser.parse_file (init, in_file, out_file);
+  
+
+
+  
+      if (parser.error_level_)
+       {
+         /*
+           TODO: pass renamed input file too.
+         */
+         scm_throw (ly_symbol2scm ("ly-file-failed"), scm_list_1 (scm_makfrom0str (in_file.to_str0 ()))); 
+       }
+    }
+  return SCM_UNSPECIFIED;
+}
+