Commit a7d4cd35 authored by POGODALLA Sylvain's avatar POGODALLA Sylvain

Bug fix in parsing scripts

parent 3251b10d
......@@ -55,6 +55,39 @@ If you wan to uninstall it then run:
make uninstall
********************
** ACG emacs mode **
********************
There is an ACG emacs mode (acg.el) in the emacs directory.
** Quick way to have it work:
copy the following lines in your .emacs
(setq load-path (cons "EMACS_DIR_PATH" load-path))
(setq auto-mode-alist (cons '("\\.acg" . acg-mode) auto-mode-alist))
(autoload 'acg-mode "acg" "Major mode for editing ACG definitions" t)
where EMACS_DIR_PATH is the path of a directory where you copied acg.el (typically)
** Site distribution:
copy acg.el under an acg directory in your site-lisp directory
(typically /usr/share/emacs/site-lisp/)
create a 50acg.el file into the /etc/emacs/site-start.d directory and
copy the following lines in it:
(setq load-path (cons "EMACS_DIR_PATH" load-path))
(setq auto-mode-alist (cons '("\\.acg" . acg-mode) auto-mode-alist))
(autoload 'acg-mode "acg" "Major mode for editing ACG definitions" t)
where now EMACS_DIR_PATH is the acg directory in your site-lisp
directory (typically /usr/share/emacs/site-lisp/acg)
*********************
** For developpers **
......
......@@ -84,9 +84,14 @@
try
c e
with
| F.Not_yet_implemented s-> raise (Scripting_errors.Error (Scripting_errors.Not_yet_implemented s,(Lexing.dummy_pos,Lexing.dummy_pos))) in
| F.Not_yet_implemented s-> raise (Scripting_errors.Error (Scripting_errors.Not_yet_implemented s,(Lexing.dummy_pos,Lexing.dummy_pos)))
| Scripting_errors.Error (er,loc_er) ->
let () = Printf.fprintf stderr "Error: %s\n%!" (Scripting_errors.error_msg er loc_er) in
let _ = Script_lexer.reset_echo () in
e
in
let () = wait dyp.global_data read_line in
e',[Local_data (e',f)]}
(e',[Local_data (e',f)])}
zzcommands @{let e,f = (dyp.last_local_data) in e,[Local_data (e,f)]}
......@@ -187,6 +192,10 @@
let () = Printf.fprintf stderr "Error: %s\n%!" (Error.error_msg e filename) in
let _ = Script_lexer.reset_echo () in
env
| Scripting_errors.Error (e,p) ->
let () = Printf.fprintf stderr "Error: %s\n%!" (Scripting_errors.error_msg e p) in
let _ = Script_lexer.reset_echo () in
env
let commented_regexp = Str.regexp "^[ \t#]*#"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment