-(*\r
- * Translator from Modelica 2.x to flat Modelica\r
- *\r
- * Copyright (C) 2005 - 2007 Imagine S.A.\r
- * For more information or commercial use please contact us at www.amesim.com\r
- *\r
- * This program is free software; you can redistribute it and/or\r
- * modify it under the terms of the GNU General Public License\r
- * as published by the Free Software Foundation; either version 2\r
- * of the License, or (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License\r
- * along with this program; if not, write to the Free Software\r
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.\r
- *\r
- *)\r
-\r
-let evaluate x = Lazy.force x\r
-\r
-let rec parse_stored_libraries lib_paths =\r
- List.fold_left parse_library [] lib_paths\r
-\r
-and parse_command cmd =\r
- let token_fun = Lexer.token\r
- and lexbuf = Lexing.from_string cmd in\r
- Parser.parse Parser.CommandLine token_fun lexbuf\r
-\r
-and parse_library lib_syns lib_path =\r
- try\r
- let file_names = modelica_file_names_of lib_path in\r
- lib_syns @ (List.fold_left parse_file [] file_names)\r
- with\r
- exn ->\r
- ExceptHandler.handle exn;\r
- lib_syns\r
-\r
-and parse_file lib_syns file_name =\r
- let ic = open_in_bin file_name in\r
- try\r
- let token_fun = Lexer.token\r
- and lexbuf = Lexing.from_channel ic in\r
- let src = Parser.LibraryFile file_name in\r
- let lib_syn = Parser.parse src token_fun lexbuf in\r
- close_in ic;\r
- lib_syn :: lib_syns\r
- with\r
- exn ->\r
- close_in ic;\r
- ExceptHandler.handle exn;\r
- lib_syns\r
-\r
-and modelica_file_names_of lib_path =\r
- let rec modelica_file_names_of' acc lib_path =\r
- let base_name = basename lib_path\r
- and dir_name = dirname lib_path in\r
- let lib_path = Filename.concat dir_name base_name in\r
- match is_directory lib_path with\r
- | true ->\r
- let names = Array.to_list (Sys.readdir lib_path) in\r
- let lib_paths =\r
- List.map (function s -> Filename.concat lib_path s) names in\r
- List.fold_left modelica_file_names_of' acc lib_paths\r
- | false when Filename.check_suffix lib_path ".mo" -> lib_path :: acc\r
- | false -> acc in\r
- modelica_file_names_of' [] lib_path\r
-\r
-and basename lib_path =\r
- match Filename.basename lib_path with\r
- | "." -> basename (Filename.dirname lib_path)\r
- | s -> s\r
-\r
-and dirname lib_path =\r
- match Filename.basename lib_path with\r
- | "." -> dirname (Filename.dirname lib_path)\r
- | _ -> Filename.dirname lib_path\r
-\r
-and is_directory dirname =\r
- try\r
- Sys.is_directory dirname\r
- with _ -> false\r
-\r
+(*
+ * Translator from Modelica 2.x to flat Modelica
+ *
+ * Copyright (C) 2005 - 2007 Imagine S.A.
+ * For more information or commercial use please contact us at www.amesim.com
+ *
+ * This program is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU General Public License
+ * as published by the Free Software Foundation; either version 2
+ * of the License, or (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+ *
+ *)
+
+let evaluate x = Lazy.force x
+
+let rec parse_stored_libraries lib_paths =
+ List.fold_left parse_library [] lib_paths
+
+and parse_command cmd =
+ let token_fun = Lexer.token
+ and lexbuf = Lexing.from_string cmd in
+ Parser.parse Parser.CommandLine token_fun lexbuf
+
+and parse_library lib_syns lib_path =
+ try
+ let file_names = modelica_file_names_of lib_path in
+ lib_syns @ (List.fold_left parse_file [] file_names)
+ with
+ exn ->
+ ExceptHandler.handle exn;
+ lib_syns
+
+and parse_file lib_syns file_name =
+ let ic = open_in_bin file_name in
+ try
+ let token_fun = Lexer.token
+ and lexbuf = Lexing.from_channel ic in
+ let src = Parser.LibraryFile file_name in
+ let lib_syn = Parser.parse src token_fun lexbuf in
+ close_in ic;
+ lib_syn :: lib_syns
+ with
+ exn ->
+ close_in ic;
+ ExceptHandler.handle exn;
+ lib_syns
+
+and modelica_file_names_of lib_path =
+ let rec modelica_file_names_of' acc lib_path =
+ let base_name = basename lib_path
+ and dir_name = dirname lib_path in
+ let lib_path = Filename.concat dir_name base_name in
+ match is_directory lib_path with
+ | true ->
+ let names = Array.to_list (Sys.readdir lib_path) in
+ let lib_paths =
+ List.map (function s -> Filename.concat lib_path s) names in
+ List.fold_left modelica_file_names_of' acc lib_paths
+ | false when Filename.check_suffix lib_path ".mo" -> lib_path :: acc
+ | false -> acc in
+ modelica_file_names_of' [] lib_path
+
+and basename lib_path =
+ match Filename.basename lib_path with
+ | "." -> basename (Filename.dirname lib_path)
+ | s -> s
+
+and dirname lib_path =
+ match Filename.basename lib_path with
+ | "." -> dirname (Filename.dirname lib_path)
+ | _ -> Filename.dirname lib_path
+
+and is_directory dirname =
+ try
+ Sys.is_directory dirname
+ with _ -> false
+
projects / scilab.git / blobdiff