if svn status -q-u | grep-v"^Status against" | grep-q-v"^\?";then echo"Please commit before making a release";else$(MAKE) superclean ; svn cp svn+ssh://pogodall@scm.gforge.inria.fr/svn/acg/dev/trunk svn+ssh://pogodall@scm.gforge.inria.fr/svn/acg/dev/tags/release-$(VERSION)-m"Tagging the $(VERSION) release of the 'acg' project";fi
\ No newline at end of file
if svn status -q-u | grep-v"^Status against" | grep-q-v"^\?";then printf"\n\nERROR:\nPlease commit before making a release\n\n";else$(MAKE) superclean ; svn cp svn+ssh://pogodall@scm.gforge.inria.fr/svn/acg/dev/trunk svn+ssh://pogodall@scm.gforge.inria.fr/svn/acg/dev/tags/release-$(VERSION)-m"Tagging the $(VERSION) release of the 'acg' project";fi
("-version",Arg.Unit(fun()->Printf.printf"%s\n"Version.version;exit0)," Prints the version number");
("-I",Arg.String(fundir->dirs:=(!dirs)@[dir])," -I dir sets dir as a directory in which file arguments can be looked for")
]
...
...
@@ -42,7 +43,9 @@ module P = Script_parser.Make(E)
letwelcome_msg=
"\n\t\t\tWelcome to the ACG toplevel\n\t\t\t\tINRIA 2008\nPlease send your comments or bug reports or featrure requests to sylvain.pogodalla@loria.fr\n\n\nType\n\t\thelp ;\nto get help.\n\n\n\n"
Printf.sprintf
"\n\t\t\tWelcome to the ACG toplevel\n\t\t\t Version %s\n\t\t\t\tINRIA 2008\nPlease send your comments or bug reports or featrure requests to sylvain.pogodalla@loria.fr\n\n\nType\n\t\thelp ;\nto get help.\n\n\n\n"