Stephen Weeks avatar Stephen Weeks committed f0860e4

removed tuareg .svn

Comments (0)

Files changed (13)

elisp/contrib/tuareg/.svn/dir-prop-base

-K 12
-bzr:file-ids
-V 505
-COPYING	copying-20080729161356-wflafmmte4azssn6-1
-HISTORY	history-20080729161356-wflafmmte4azssn6-2
-LISEZMOI	lisezmoi-20080729161356-wflafmmte4azssn6-3
-README	readme-20080729161356-wflafmmte4azssn6-4
-append-tuareg.el	appendtuareg.el-20080729161356-wflafmmte4azssn6-5
-camldebug.el	camldebug.el-20080729161356-wflafmmte4azssn6-6
-custom-tuareg.el	customtuareg.el-20080729161356-wflafmmte4azssn6-7
-sym-lock.el	symlock.el-20080729161356-wflafmmte4azssn6-8
-tuareg.el	tuareg.el-20080729161356-wflafmmte4azssn6-9
-
-K 23
-bzr:revision-id:v3-none
-V 65
-2 christophe.troestler@umh.ac.be-20080729161425-fso5c571dv7hxaar
-
-K 17
-bzr:revision-info
-V 145
-timestamp: 2008-07-29 18:14:25.326999903 +0200
-committer: Christophe Troestler <Christophe.Troestler@umh.ac.be>
-properties: 
-	branch-nick: trunk
-
-K 10
-svn:ignore
-V 26
-.svnignore
-*.elc
-test.ml
-
-
-END

elisp/contrib/tuareg/.svn/entries

-10
-
-dir
-367
-svn+ssh://seanmcl@svn.forge.ocamlcore.org/svn/tuareg/trunk
-svn+ssh://seanmcl@svn.forge.ocamlcore.org/svn/tuareg
-
-
-
-2011-12-09T04:49:22.085810Z
-367
-monnier
-has-props
-
-
-
-
-
-
-
-
-
-
-
-
-
-a37b5e43-4b7f-4128-9b7a-df1949a3dd69
-
-HISTORY
-file
-
-
-
-
-2011-09-28T17:29:23.000000Z
-68d497ed2c1f5795eff20713b1b21788
-2011-08-15T08:10:02.919928Z
-209
-chris
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-6070
-
-ocamldebug.el
-file
-
-
-
-
-2011-12-09T14:16:27.000000Z
-e0e0d30fb4b6d018f203c3ab30faa51d
-2011-12-03T06:57:03.467812Z
-360
-monnier
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-30967
-
-tuareg.el
-file
-
-
-
-
-2011-12-09T14:16:27.000000Z
-8ddcadb4e724cf1467e14041fde1ab2c
-2011-12-09T04:49:22.085810Z
-367
-monnier
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-196077
-
-COPYING
-file
-
-
-
-
-2011-06-02T16:24:14.000000Z
-9b1f62f95115bbf8aa70173430823d9c
-2011-06-21T13:55:56.411213Z
-199
-seanmcl
-
-sample.ml
-file
-
-
-
-
-2011-12-09T14:16:27.000000Z
-b122b36b59b4611734e48541556182a8
-2011-12-09T02:45:03.285477Z
-366
-monnier
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-14335
-
-dot-emacs.el
-file
-
-
-
-
-2011-12-09T14:16:27.000000Z
-b54c93c8050913e04ac9a46f03455355
-2011-12-03T06:57:03.467812Z
-360
-monnier
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-758
-
-tuareg-light.el
-file
-
-
-
-
-2011-09-28T17:29:23.000000Z
-15890172af8907cd9f4a763d0c72c693
-2011-08-15T08:10:02.919928Z
-209
-chris
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-96275
-
-Makefile
-file
-
-
-
-
-2011-12-01T18:15:27.000000Z
-1991047835c55504112a00b093bd2342
-2011-11-24T14:54:32.427006Z
-352
-chris
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-2887
-
-README
-file
-
-
-
-
-2011-12-01T18:15:27.000000Z
-55e95746a886063f60261c5ba28972ca
-2011-11-21T06:29:48.114953Z
-349
-chris
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-3912
-

elisp/contrib/tuareg/.svn/text-base/COPYING.svn-base

-		    GNU GENERAL PUBLIC LICENSE
-		       Version 2, June 1991
-
- Copyright (C) 1989, 1991 Free Software Foundation, Inc.
-                          59 Temple Place - Suite 330
-                          Boston, MA 02111-1307, USA.
- Everyone is permitted to copy and distribute verbatim copies
- of this license document, but changing it is not allowed.
-
-			    Preamble
-
-  The licenses for most software are designed to take away your
-freedom to share and change it.  By contrast, the GNU General Public
-License is intended to guarantee your freedom to share and change free
-software--to make sure the software is free for all its users.  This
-General Public License applies to most of the Free Software
-Foundation's software and to any other program whose authors commit to
-using it.  (Some other Free Software Foundation software is covered by
-the GNU Library General Public License instead.)  You can apply it to
-your programs, too.
-
-  When we speak of free software, we are referring to freedom, not
-price.  Our General Public Licenses are designed to make sure that you
-have the freedom to distribute copies of free software (and charge for
-this service if you wish), that you receive source code or can get it
-if you want it, that you can change the software or use pieces of it
-in new free programs; and that you know you can do these things.
-
-  To protect your rights, we need to make restrictions that forbid
-anyone to deny you these rights or to ask you to surrender the rights.
-These restrictions translate to certain responsibilities for you if you
-distribute copies of the software, or if you modify it.
-
-  For example, if you distribute copies of such a program, whether
-gratis or for a fee, you must give the recipients all the rights that
-you have.  You must make sure that they, too, receive or can get the
-source code.  And you must show them these terms so they know their
-rights.
-
-  We protect your rights with two steps: (1) copyright the software, and
-(2) offer you this license which gives you legal permission to copy,
-distribute and/or modify the software.
-
-  Also, for each author's protection and ours, we want to make certain
-that everyone understands that there is no warranty for this free
-software.  If the software is modified by someone else and passed on, we
-want its recipients to know that what they have is not the original, so
-that any problems introduced by others will not reflect on the original
-authors' reputations.
-
-  Finally, any free program is threatened constantly by software
-patents.  We wish to avoid the danger that redistributors of a free
-program will individually obtain patent licenses, in effect making the
-program proprietary.  To prevent this, we have made it clear that any
-patent must be licensed for everyone's free use or not licensed at all.
-
-  The precise terms and conditions for copying, distribution and
-modification follow.
-
-		    GNU GENERAL PUBLIC LICENSE
-   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
-
-  0. This License applies to any program or other work which contains
-a notice placed by the copyright holder saying it may be distributed
-under the terms of this General Public License.  The "Program", below,
-refers to any such program or work, and a "work based on the Program"
-means either the Program or any derivative work under copyright law:
-that is to say, a work containing the Program or a portion of it,
-either verbatim or with modifications and/or translated into another
-language.  (Hereinafter, translation is included without limitation in
-the term "modification".)  Each licensee is addressed as "you".
-
-Activities other than copying, distribution and modification are not
-covered by this License; they are outside its scope.  The act of
-running the Program is not restricted, and the output from the Program
-is covered only if its contents constitute a work based on the
-Program (independent of having been made by running the Program).
-Whether that is true depends on what the Program does.
-
-  1. You may copy and distribute verbatim copies of the Program's
-source code as you receive it, in any medium, provided that you
-conspicuously and appropriately publish on each copy an appropriate
-copyright notice and disclaimer of warranty; keep intact all the
-notices that refer to this License and to the absence of any warranty;
-and give any other recipients of the Program a copy of this License
-along with the Program.
-
-You may charge a fee for the physical act of transferring a copy, and
-you may at your option offer warranty protection in exchange for a fee.
-
-  2. You may modify your copy or copies of the Program or any portion
-of it, thus forming a work based on the Program, and copy and
-distribute such modifications or work under the terms of Section 1
-above, provided that you also meet all of these conditions:
-
-    a) You must cause the modified files to carry prominent notices
-    stating that you changed the files and the date of any change.
-
-    b) You must cause any work that you distribute or publish, that in
-    whole or in part contains or is derived from the Program or any
-    part thereof, to be licensed as a whole at no charge to all third
-    parties under the terms of this License.
-
-    c) If the modified program normally reads commands interactively
-    when run, you must cause it, when started running for such
-    interactive use in the most ordinary way, to print or display an
-    announcement including an appropriate copyright notice and a
-    notice that there is no warranty (or else, saying that you provide
-    a warranty) and that users may redistribute the program under
-    these conditions, and telling the user how to view a copy of this
-    License.  (Exception: if the Program itself is interactive but
-    does not normally print such an announcement, your work based on
-    the Program is not required to print an announcement.)
-
-These requirements apply to the modified work as a whole.  If
-identifiable sections of that work are not derived from the Program,
-and can be reasonably considered independent and separate works in
-themselves, then this License, and its terms, do not apply to those
-sections when you distribute them as separate works.  But when you
-distribute the same sections as part of a whole which is a work based
-on the Program, the distribution of the whole must be on the terms of
-this License, whose permissions for other licensees extend to the
-entire whole, and thus to each and every part regardless of who wrote it.
-
-Thus, it is not the intent of this section to claim rights or contest
-your rights to work written entirely by you; rather, the intent is to
-exercise the right to control the distribution of derivative or
-collective works based on the Program.
-
-In addition, mere aggregation of another work not based on the Program
-with the Program (or with a work based on the Program) on a volume of
-a storage or distribution medium does not bring the other work under
-the scope of this License.
-
-  3. You may copy and distribute the Program (or a work based on it,
-under Section 2) in object code or executable form under the terms of
-Sections 1 and 2 above provided that you also do one of the following:
-
-    a) Accompany it with the complete corresponding machine-readable
-    source code, which must be distributed under the terms of Sections
-    1 and 2 above on a medium customarily used for software interchange; or,
-
-    b) Accompany it with a written offer, valid for at least three
-    years, to give any third party, for a charge no more than your
-    cost of physically performing source distribution, a complete
-    machine-readable copy of the corresponding source code, to be
-    distributed under the terms of Sections 1 and 2 above on a medium
-    customarily used for software interchange; or,
-
-    c) Accompany it with the information you received as to the offer
-    to distribute corresponding source code.  (This alternative is
-    allowed only for noncommercial distribution and only if you
-    received the program in object code or executable form with such
-    an offer, in accord with Subsection b above.)
-
-The source code for a work means the preferred form of the work for
-making modifications to it.  For an executable work, complete source
-code means all the source code for all modules it contains, plus any
-associated interface definition files, plus the scripts used to
-control compilation and installation of the executable.  However, as a
-special exception, the source code distributed need not include
-anything that is normally distributed (in either source or binary
-form) with the major components (compiler, kernel, and so on) of the
-operating system on which the executable runs, unless that component
-itself accompanies the executable.
-
-If distribution of executable or object code is made by offering
-access to copy from a designated place, then offering equivalent
-access to copy the source code from the same place counts as
-distribution of the source code, even though third parties are not
-compelled to copy the source along with the object code.
-
-  4. You may not copy, modify, sublicense, or distribute the Program
-except as expressly provided under this License.  Any attempt
-otherwise to copy, modify, sublicense or distribute the Program is
-void, and will automatically terminate your rights under this License.
-However, parties who have received copies, or rights, from you under
-this License will not have their licenses terminated so long as such
-parties remain in full compliance.
-
-  5. You are not required to accept this License, since you have not
-signed it.  However, nothing else grants you permission to modify or
-distribute the Program or its derivative works.  These actions are
-prohibited by law if you do not accept this License.  Therefore, by
-modifying or distributing the Program (or any work based on the
-Program), you indicate your acceptance of this License to do so, and
-all its terms and conditions for copying, distributing or modifying
-the Program or works based on it.
-
-  6. Each time you redistribute the Program (or any work based on the
-Program), the recipient automatically receives a license from the
-original licensor to copy, distribute or modify the Program subject to
-these terms and conditions.  You may not impose any further
-restrictions on the recipients' exercise of the rights granted herein.
-You are not responsible for enforcing compliance by third parties to
-this License.
-
-  7. If, as a consequence of a court judgment or allegation of patent
-infringement or for any other reason (not limited to patent issues),
-conditions are imposed on you (whether by court order, agreement or
-otherwise) that contradict the conditions of this License, they do not
-excuse you from the conditions of this License.  If you cannot
-distribute so as to satisfy simultaneously your obligations under this
-License and any other pertinent obligations, then as a consequence you
-may not distribute the Program at all.  For example, if a patent
-license would not permit royalty-free redistribution of the Program by
-all those who receive copies directly or indirectly through you, then
-the only way you could satisfy both it and this License would be to
-refrain entirely from distribution of the Program.
-
-If any portion of this section is held invalid or unenforceable under
-any particular circumstance, the balance of the section is intended to
-apply and the section as a whole is intended to apply in other
-circumstances.
-
-It is not the purpose of this section to induce you to infringe any
-patents or other property right claims or to contest validity of any
-such claims; this section has the sole purpose of protecting the
-integrity of the free software distribution system, which is
-implemented by public license practices.  Many people have made
-generous contributions to the wide range of software distributed
-through that system in reliance on consistent application of that
-system; it is up to the author/donor to decide if he or she is willing
-to distribute software through any other system and a licensee cannot
-impose that choice.
-
-This section is intended to make thoroughly clear what is believed to
-be a consequence of the rest of this License.
-
-  8. If the distribution and/or use of the Program is restricted in
-certain countries either by patents or by copyrighted interfaces, the
-original copyright holder who places the Program under this License
-may add an explicit geographical distribution limitation excluding
-those countries, so that distribution is permitted only in or among
-countries not thus excluded.  In such case, this License incorporates
-the limitation as if written in the body of this License.
-
-  9. The Free Software Foundation may publish revised and/or new versions
-of the General Public License from time to time.  Such new versions will
-be similar in spirit to the present version, but may differ in detail to
-address new problems or concerns.
-
-Each version is given a distinguishing version number.  If the Program
-specifies a version number of this License which applies to it and "any
-later version", you have the option of following the terms and conditions
-either of that version or of any later version published by the Free
-Software Foundation.  If the Program does not specify a version number of
-this License, you may choose any version ever published by the Free Software
-Foundation.
-
-  10. If you wish to incorporate parts of the Program into other free
-programs whose distribution conditions are different, write to the author
-to ask for permission.  For software which is copyrighted by the Free
-Software Foundation, write to the Free Software Foundation; we sometimes
-make exceptions for this.  Our decision will be guided by the two goals
-of preserving the free status of all derivatives of our free software and
-of promoting the sharing and reuse of software generally.
-
-			    NO WARRANTY
-
-  11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
-FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW.  EXCEPT WHEN
-OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
-PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
-OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  THE ENTIRE RISK AS
-TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU.  SHOULD THE
-PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
-REPAIR OR CORRECTION.
-
-  12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
-WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
-REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
-INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
-OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
-TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
-YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
-PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
-POSSIBILITY OF SUCH DAMAGES.
-
-		     END OF TERMS AND CONDITIONS
-
-	    How to Apply These Terms to Your New Programs
-
-  If you develop a new program, and you want it to be of the greatest
-possible use to the public, the best way to achieve this is to make it
-free software which everyone can redistribute and change under these terms.
-
-  To do so, attach the following notices to the program.  It is safest
-to attach them to the start of each source file to most effectively
-convey the exclusion of warranty; and each file should have at least
-the "copyright" line and a pointer to where the full notice is found.
-
-    <one line to give the program's name and a brief idea of what it does.>
-    Copyright (C) 19yy  <name of author>
-
-    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; see the file COPYING.  If not, write to
-    the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-    Boston, MA 02111-1307, USA.
-
-Also add information on how to contact you by electronic and paper mail.
-
-If the program is interactive, make it output a short notice like this
-when it starts in an interactive mode:
-
-    Gnomovision version 69, Copyright (C) 19yy name of author
-    Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
-    This is free software, and you are welcome to redistribute it
-    under certain conditions; type `show c' for details.
-
-The hypothetical commands `show w' and `show c' should show the appropriate
-parts of the General Public License.  Of course, the commands you use may
-be called something other than `show w' and `show c'; they could even be
-mouse-clicks or menu items--whatever suits your program.
-
-You should also get your employer (if you work as a programmer) or your
-school, if any, to sign a "copyright disclaimer" for the program, if
-necessary.  Here is a sample; alter the names:
-
-  Yoyodyne, Inc., hereby disclaims all copyright interest in the program
-  `Gnomovision' (which makes passes at compilers) written by James Hacker.
-
-  <signature of Ty Coon>, 1 April 1989
-  Ty Coon, President of Vice
-
-This General Public License does not permit incorporating your program into
-proprietary programs.  If your program is a subroutine library, you may
-consider it more useful to permit linking proprietary applications with the
-library.  If this is what you want to do, use the GNU Library General
-Public License instead of this License.

elisp/contrib/tuareg/.svn/text-base/HISTORY.svn-base

-Tuareg Mode is a thoroughly rewritten derivative of Caml Mode 0.9.x:
---------------------------------------------------------------------
-
-First version -
-        By Xavier Leroy <Xavier.Leroy@inria.fr>
-        and Jerome Vouillon <Jerome.Vouillon@ens.fr>, 1993.
-Compilation interface -
-        By Ian Zimmerman <itz@rahul.net>, 1996;
-        Copyright (C) 1996 Ian Zimmerman, all rights reserved.
-First Font-Lock and XEmacs support -
-        By Pierre Boulet <Pierre.Boulet@ens-lyon.fr>, 1996.
-First OCaml and OLabl version -
-        By Jacques Garrigue <Jacques.Garrigue@kurims.kyoto-u.ac.jp>, 1996.
-
-New version for OCaml (Objective Caml)
-        Extension to OCaml (and Labl) syntax (including literals
-        and preserving compatibility with Camllight syntax) complete
-        rewritting of Zimmerman's mode, especially comment detection
-        and indentation, along with major improvement of
-        indentation capabilities, new Font-Lock and
-        Hilit19, compatibility over Emacs and XEmacs;
-        By Albert Cohen <Albert.Cohen@prism.uvsq.fr>, 1997.
-
-Tuareg Mode history:
---------------------
-
-1.00  - January 8 1997 -
-        First verion of Tuareg
-        (previously known as Caml-Mode 0.9.2 -> 0.9.8).
-
-1.10  - From March 17 1997 to March 20 1997 -
- to     First release of Tuareg
-1.12    Speed-up and fixes.
-
-1.20  - From March 23 1997 to July 28 1997 -
- to     Support for symbol fontifying, adaptation of Font-Lock interface,
-1.27    Rewritting of a new Sym-Lock extension for Font-Lock (more powerful,
-        polyvalent, and fitting dynamic customization). Suggestion and first
-        adaptation by Chrstian Boos <boos@arthur.u-strasbg.fr>.
-	Improved phrase detection. `C-M-h' and `C-c C-e' now detect
-	both beginning and end of phrases ; `;;' is used, if present.
-	Improved `tuareg-interactive' mode. Support for Font-Lock
-	on toplevel inputs. Patchs for many phrase detection bugs.
-	New option for `=' indentation, `match-string' optimized, and
-	indentation of `;' sequences accelerated.
-
-1.30  - April 14 1998 -
-	Major improvement of syntax parsing code (including proper handling
-	of multi-line strings and speed-up). Strong speed-up of parenthesis
-	parsing. A few indentation and phrase-related commands bugs corrected.
-1.31  - June 8 1998 -
-	Lot of bugs corrected, new customization (more flexible and usable,
-        with some examples). Minor Sym-Lock changes, indentation changes in
-        some cases, simplified installation guidelines.
-1.32  - June 26 1998 -
-        Only with XEmacs: Correct string/comment hiliting.
-        A few bugs removed, especially in literal/comment detection.
-        New customization features.
-1.33  - November 24 1998 -
-	New support for OCaml 2.00 syntax (let module X=..., and {r with ...}).
-	Indentation bug corrected for arrays, records and objects.
-1.34  - December 15 1998 -
-	Bugs corrected in OCaml 2.00 syntax, added new indentation options
-	for parentheses and = symbols.
-1.35  - January 13 1999 -
-	Major improvement of interactive mode, thanks to contribution
-	of Michel Quercia. Bug removal in phrase detection and comment
-	indentation (paragraph and lines).
-1.36  - January 22 1999 -
-	Navigation support for OCaml manual, library, and buffer-dependent
-	definitions (adapted from original code by Michel Quercia). New
-	commands, and next-error in toplevel by Claude Marché.
-1.37  - May 18 2000 -
-	Many improvements and extended support for OCaml 3.00 (like label
-	hiliting). Improved FSF Emacs compatibility thanks to Rémi Vanicat.
-	Corrected bugs in string/comment recognition (the last ones?).
-1.38  - September 19 2000 -
-	Standard Customization interface, removal of most non-standard
-	font-lock faces, string/comment hiliting for FSF Emacs
-	eventually matches XEmacs performances; plus a lot of minor fixes.
-
-1.40  - June 26 2002 -
-	Major update: FSF Emacs 21 compatibility (lazy Font-Lock support),
-        new indentation features (e.g., smart comment justification styles),
-        robust hiliting for declarations, many bugs corrected.
-1.41  - December 8 2003 -
-	Indentation and hiliting features, many intermediate versions
-        with minor bug fixes, support for caml-types.
-1.42  - November 5 2004 -
-	MetaOCaml support, many bug fixes, major rewrite of hiliting code,
-        many improvements and bug fixes to the indentation code,
-        refactoring of some deprecated code (by Stefan Monnier).
-1.43  - November 21 2004 -
-	Improved MetaOCaml support, phrase mark/evaluation fixes,
-	many improvements to module indentation and marking, removed
-	aggresive inlining after `=' and fixed related bugs.
-1.44  - December 29 2004 -
-	Major fontification improvements, largely by Stefan Monnier.
-	Many bug fixes related with the improvements in 1.42 and 1.43.
-1.45  - March 28 2005 -
-	New symbol fontification, compatible with FSF Emacs, by
-        Stefan Monnier. Initiation of a migration of the syntax cache to
-        PPSS for comments and string.
-1.46  - May 21 2006 -
-	Integration of more language variants. A future version will
-	modularize this support, to improve flexibility and minimize
-	interference risks. Plus various bug fixes and new features.
-1.46  - February 2010 - November 2010 -
-to      Changes by Jane Street Capital, Sam setingold and Christophe
-2.04    Troestler. The log of Sam's changes is written below.
-
-2.05  -
-        Cleanup; removal of ocamlspot.el (bundled with ocamlspot).
-
-
-Changes made by Sam Steingold
-
-* 2010-02-09
-
-== Many indentation fixes.
-
-== Code cleaned up and updated to the modern Emacs Lisp;
-   compilation warnings eliminated.
-
-* 2010-03-10
-
-== Treat ">>>" just like ">>=" for indentation purposes.
-
-== `Jane style' indentation of `type' statements now requires
-   `tuareg-type-indent'=0.
-
-== `until' & `unless' are only special in ls3, not general ocaml.
-
-== Other indentation fixes.
-
-* 2010-04-20 (1.99.2)
-
-== Many indentation fixes.
-
-== Better regression testing.
-
-== Restore reasonable behavior without Jane custom settings.
-
-* 2010-05-03 (2.0)
-
-== Many indentation fixes.
-
-== Prepare the first official release from Jane Street.

elisp/contrib/tuareg/.svn/text-base/Makefile.svn-base

-VERSION = $(shell grep ';; Version:' tuareg.el \
-	| sed 's/;; Version: *\([0-9.]\+\).*/\1/')
-DESCRIPTION = $(shell grep ';;; tuareg.el ---' tuareg.el \
-	| sed 's/[^-]*--- *\(.*\)/\1/')
-REQUIREMENTS = $(shell grep ';; Package-Requires:' tuareg.el \
-	| sed 's/;; Package-Requires: *\(.\+\).*/\1/')
-DIST_NAME = tuareg-$(VERSION)
-
-ELS = tuareg.el ocamldebug.el
-ELC = $(ELS:.el=.elc)
-
-DIST_FILES += $(ELS) Makefile README
-
-EMACS = emacs
-
-#ENABLE_SMIE = --eval '(setq tuareg-use-smie t)'
-RM = rm -rf
-CP = cp -f
-LN = ln
-DIFF = diff -u -B
-
-INSTALL_RM_R = $(RM)
-INSTALL_MKDIR = mkdir
-INSTALL_CP = $(CP)
-
-all : elc
-
-elc : $(ELC)
-
-%.elc : %.el
-	$(EMACS) -batch $(NOINIT) -f batch-byte-compile $<
-
-# ifneq ($(realpath .hg),)
-# POST_INSTALL_HOOK = $(RM) $(VERSION_FILE)
-# MAKE_VERSION_FILE = hg id -i | fgrep -v '+' >/dev/null || \
-#         (echo 'uncommitted changes' >&2; exit 1); \
-#         hg id -i --debug > $(VERSION_FILE)
-# else
-# ifneq ($(realpath .svn),)
-# POST_INSTALL_HOOK = $(RM) $(VERSION_FILE)
-# MAKE_VERSION_FILE = svn info | grep Revision: | sed 's/Revision: //' > $(VERSION_FILE)
-# else
-# ifneq ($(realpath .bzr),)
-# POST_INSTALL_HOOK = $(RM) $(VERSION_FILE)
-# MAKE_VERSION_FILE = bzr log -l -1 | grep revno: > $(VERSION_FILE)
-# else
-# ifneq ($(realpath $(VERSION_FILE)),)
-# POST_INSTALL_HOOK =
-# MAKE_VERSION_FILE = @echo "Using \"$(VERSION_FILE)\" in the distribution."
-# else
-# POST_INSTALL_HOOK =
-# MAKE_VERSION_FILE = @(echo "missing \"$(VERSION_FILE)\" in the distribution?" >&2; exit 1)
-# endif
-# endif
-# endif
-# endif
-
-# install : $(ELC) $(VERSION_FILE)
-#         fgrep `cat $(VERSION_FILE)` tuareg.elc >/dev/null 2>&1 || \
-#          ($(RM) tuareg.elc; $(MAKE) tuareg.elc)
-#         $(INSTALL_RM_R) ${DEST}
-#         $(INSTALL_MKDIR) ${DEST}
-#         for f in $(ELS) $(ELC) $(VERSION_FILE); do $(INSTALL_CP) $$f $(DEST)/$$f; done
-#         $(POST_INSTALL_HOOK)
-
-
-.PHONY: refresh
-refresh:
-
-check : sample.ml.test
-
-%.test: % $(ELC) refresh
-	@echo ====Indent $*====
-	-$(RM) $@
-	$(EMACS) --batch -q --no-site-file $(ENABLE_SMIE) \
-	  --load tuareg.elc $< \
-	  --eval '(setq indent-tabs-mode nil)' \
-	  --eval '(defun ask-user-about-lock (file opponent) nil)' \
-	  --eval '(indent-region (point-min) (point-max) nil)' \
-	  --eval '(indent-region (point-min) (point-max) nil)' \
-	  --eval '(write-region (point-min) (point-max) "$@")'
-	$(DIFF) $< $@ || true
-
-
-.PHONY: dist tar
-dist: $(DIST_NAME).tar.gz
-tar: $(DIST_NAME).tar
-
-$(DIST_NAME).tar.gz $(DIST_NAME).tar: $(DIST_FILES)
-	mkdir -p $(DIST_NAME)
-	for f in $(DIST_FILES); do $(LN) $$f $(DIST_NAME); done
-	echo '(define-package "tuareg" "$(VERSION)" "$(DESCRIPTION)" ' "'"'$(REQUIREMENTS))' > $(DIST_NAME)/tuareg-pkg.el
-	tar acvf $@ $(DIST_NAME)
-	$(RM) -rf $(DIST_NAME)
-
-clean :
-	$(RM) $(ELC) "$(DIST_NAME).tar.gz" "$(DIST_NAME).tar"
-#         $(POST_INSTALL_HOOK)
-
-# .PHONY : all elc clean install force check distrib dist

elisp/contrib/tuareg/.svn/text-base/README.svn-base

-DESCRIPTION:
-
-This archive contains files to help editing OCaml code, to highlight
-important parts of the code, to run an OCaml toplevel, and to run the
-Caml debugger within Emacs. 
-
-CONTENTS:
-
-  README             This file.
-  HISTORY            Differences with previous versions.
-  tuareg.el          A major mode for editing OCaml code in Emacs.
-  ocamldebug.el      To run the OCaml debugger under Emacs.
-  dot-emacs.el       Configuration file for quick installation
-  sample.ml          Sample file to check the indentation engine.
-
-INSTALL:
-
-  See tuareg.el
-
-QUICK CONFIGURATION:
-
-  If you are no Emacs-Lisp addict, and would like to use Tuareg NOW, append
-  (or copy) `dot-emacs.el' file to your `.emacs' configuration file.
-  It tells Emacs to load tuareg automatically.
-
-  Consider updating your `.emacs' configuration file by hand if you
-  keep on using Tuareg.
-
-MANUAL CONFIGURATION:
-
-  Add the following lines to your .emacs file:
-
-  (add-to-list 'auto-mode-alist '("\\.ml[iylp]?" . tuareg-mode))
-  (autoload 'tuareg-mode "tuareg" "Major mode for editing OCaml code" t)
-  (autoload 'tuareg-run-ocaml "tuareg" "Run an inferior OCaml process." t)
-  (autoload 'ocamldebug "ocamldebug" "Run the OCaml debugger" t)
-
-  The Tuareg major mode is triggered by visiting a file with extension
-  .ml, .mli, .mly, .mll, and .mlp or manually by M-x tuareg-mode. It
-  gives you the correct syntax table for the OCaml language.
-
-USAGE:
-
-  See tuareg.el.
-
-CUSTOMIZATION
-
-  The standard Emacs customization tool can be used to configure
-  Tuareg options. It is available from the Options menu and Tuareg's
-  Customize sub-menu.
-
-  You may also customize the appearance of OCaml code by twiddling the
-  variables listed at the start of tuareg.el (preferably using
-  `tuareg-mode-hook', you should not patch the file directly).
-  You should then add to your configuration file something like:
-  (add-hook 'tuareg-mode-hook
-    (lambda () ... ; your customization code ))
-
-  `custom-tuareg.el' is a sample customization file for standard
-  changes. You can append it to your `.emacs' or use it as a tutorial.
-
-FEATURES, KNOWN BUGS:
-
-  Cf. online help.
-
-THANKS:
-
-  Ian Zimmerman for the previous mode, compilation interface and
-  debugger enhancement.
-
-  Jacques Garrigue enhanced Zimmerman's mode along with an adaptation
-  to OCaml (and Labl) syntax. Although this work was performed
-  independently, his useful test file and comments were of great help.
-
-  Michel Quercia for excellent suggestions, patches, and helpful
-  emacs-lisp contributions (full, ready-to-work implementations, I
-  should say), especially for Tuareg interactive mode, and browser
-  capacities.
-
-  Denis Barthou, Pierre Boulet, Jean-Christophe Filliatre and Rémi
-  Vanicat for intensive testing, useful suggestions, and help.
-
-  Ralf Treinen for maintaining the Debian GNU/Linux package.
-
-  Every people who sent me bug reports, suggestions, comments and
-  patches. Nothing would have improved since version 0.9.2 without
-  their help. Special thanks to Eli Barzilay, Josh Berdine, Christian
-  Boos, Carsten Clasohm, Yann Coscoy, Prakash Countcham, Alvarado
-  Cuihtlauac, Erwan David, Gilles Défourneaux, Philippe Esperet,
-  Gilles Falcon, Tim Freeman, Alain Frisch, Christian Lindig, Claude
-  Marché, Charles Martin, Dave Mason, Stefan Monnier, Toby Moth,
-  Jean-Yves Moyen, Alex Ott, Christopher Quinn, Ohad Rodeh, Rauli
-  Ruohonen, Hendrik Tews, Christophe Troestler, Joseph Sudish, Mattias
-  Waldau and John Whitley.
-
-  Tuareg mode have been maintained by Albert Cohen until version 1.45.
-
-  Jane Street took over maintenance based on Albert Cohen's version 1.46
-  (later retracted by him), and released its first version as 2.0.
-
-REPORTING:
-
-  The official Tuareg home page is located at:
-  <https://forge.ocamlcore.org/projects/tuareg/>.
-
-  Bug reports & patches: use the tracker:
-  <https://forge.ocamlcore.org/tracker/?group_id=43>.

elisp/contrib/tuareg/.svn/text-base/dot-emacs.el.svn-base

-
-;;; Tuareg quick installation: Append this file to .emacs.
-
-(add-to-list 'auto-mode-alist '("\\.ml[iylp]?" . tuareg-mode))
-(autoload 'tuareg-mode "tuareg" "Major mode for editing OCaml code" t)
-(autoload 'tuareg-run-ocaml "tuareg" "Run an inferior OCaml process." t)
-(autoload 'ocamldebug "ocamldebug" "Run the OCaml debugger" t)
-(dolist (ext '(".cmo" ".cmx" ".cma" ".cmxa" ".cmi"))
-  (add-to-list 'completion-ignored-extensions ext))
-
-;;; Sample customization
-
-;; Indent `=' like a standard keyword.
-(setq tuareg-lazy-= t)
-;; Indent [({ like standard keywords.
-(setq tuareg-lazy-paren t)
-;; No indentation after `in' keywords.
-(setq tuareg-in-indent 0)
-
-(add-hook 'tuareg-mode-hook
-  (lambda ()
-    ;; turn on auto-fill minor mode
-    (auto-fill-mode 1)))

elisp/contrib/tuareg/.svn/text-base/ocamldebug.el.svn-base

-;;; ocamldebug.el --- Run ocamldebug / camldebug under Emacs.
-;; Derived from gdb.el.
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;         Copying is covered by the GNU General Public License.
-;;
-;;    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.
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; History:
-;;
-;;itz 04-06-96 I pondered basing this on gud. The potential advantages
-;;were: automatic bugfix , keymaps and menus propagation.
-;;Disadvantages: gud is not so clean itself, there is little common
-;;functionality it abstracts (most of the stuff is done in the
-;;debugger specific parts anyway), and, most seriously, gud sees it
-;;fit to add C-x C-a bindings to the _global_ map, so there would be a
-;;conflict between ocamldebug and gdb, for instance. While it's OK to
-;;assume that a sane person doesn't use gdb and dbx at the same time,
-;;it's not so OK (IMHO) for gdb and ocamldebug.
-
-;;Albert Cohen 04-97: Patch for Tuareg support.
-;;Albert Cohen 05-98: A few patches and OCaml customization.
-;;Albert Cohen 09-98: XEmacs support and some improvements.
-;;Erwan Jahier and Albert Cohen 11-05: support for ocamldebug 3.09.
-
-;;; Commentary:
-
-;;; Code:
-
-(eval-when-compile (require 'cl))
-(require 'comint)
-(require 'shell)
-(require 'tuareg (expand-file-name
-                  "tuareg" (file-name-directory (or load-file-name
-                                                    byte-compile-current-file))))
-(require 'derived)
-
-;;; Variables.
-
-(defvar ocamldebug-last-frame)
-(defvar ocamldebug-delete-prompt-marker)
-(defvar ocamldebug-filter-accumulator nil)
-(defvar ocamldebug-last-frame-displayed-p)
-(defvar ocamldebug-filter-function)
-(defvar ocamldebug-kill-output)
-(defvar ocamldebug-current-buffer nil)
-(defvar ocamldebug-goto-position)
-(defvar ocamldebug-goto-output)
-(defvar ocamldebug-delete-file)
-(defvar ocamldebug-delete-position)
-(defvar ocamldebug-delete-output)
-(defvar ocamldebug-complete-list)
-
-(defvar ocamldebug-prompt-pattern "^(\\(ocd\\|cdb\\)) *"
-  "A regexp to recognize the prompt for ocamldebug.")
-
-(defvar ocamldebug-overlay-event nil
-  "Overlay for displaying the current event.")
-(defvar ocamldebug-overlay-under nil
-  "Overlay for displaying the current event.")
-(defvar ocamldebug-event-marker nil
-  "Marker for displaying the current event.")
-
-(defvar ocamldebug-track-frame t
-  "*If non-nil, always display current frame position in another window.")
-
-(cond
- ((and (fboundp 'make-overlay) window-system)
-  (make-face 'ocamldebug-event)
-  (make-face 'ocamldebug-underline)
-  (unless (face-differs-from-default-p 'ocamldebug-event)
-    (invert-face 'ocamldebug-event))
-  (unless (face-differs-from-default-p 'ocamldebug-underline)
-    (set-face-underline-p 'ocamldebug-underline t))
-  (setq ocamldebug-overlay-event (make-overlay 1 1))
-  (overlay-put ocamldebug-overlay-event 'face 'ocamldebug-event)
-  (setq ocamldebug-overlay-under (make-overlay 1 1))
-  (overlay-put ocamldebug-overlay-under 'face 'ocamldebug-underline))
- (t
-  (setq ocamldebug-event-marker (make-marker))
-  (setq overlay-arrow-string "=>")))
-
-;;; OCamldebug mode.
-
-(defvar ocamldebug-mode-map
-  (let ((map (make-sparse-keymap)))
-    (define-key map "\C-l" 'ocamldebug-refresh)
-    ;; This is already the default anyway!
-    ;;(define-key map "\t" 'comint-dynamic-complete)
-    (define-key map "\M-?"
-      ;; FIXME: This binding is wrong since comint-dynamic-list-completions
-      ;; is a function, not a command.
-      'comint-dynamic-list-completions)
-    map))
-
-(define-derived-mode ocamldebug-mode comint-mode "OCaml-Debugger"
-
-  "Major mode for interacting with an ocamldebug process.
-
-The following commands are available:
-
-\\{ocamldebug-mode-map}
-
-\\[ocamldebug-display-frame] displays in the other window
-the last line referred to in the ocamldebug buffer.
-
-\\[ocamldebug-step], \\[ocamldebug-back] and \\[ocamldebug-next], in the ocamldebug window,
-call ocamldebug to step, backstep or next and then update the other window
-with the current file and position.
-
-If you are in a source file, you may select a point to break
-at, by doing \\[ocamldebug-break].
-
-Commands:
-Many commands are inherited from comint mode.
-Additionally we have:
-
-\\[ocamldebug-display-frame] display frames file in other window
-\\[ocamldebug-step] advance one line in program
-C-x SPACE sets break point at current line."
-  (set (make-local-variable 'ocamldebug-last-frame) nil)
-  (set (make-local-variable 'ocamldebug-delete-prompt-marker) (make-marker))
-  (set (make-local-variable 'ocamldebug-filter-accumulator) "")
-  (set (make-local-variable 'ocamldebug-filter-function)
-       #'ocamldebug-marker-filter)
-  (set (make-local-variable 'comint-prompt-regexp) ocamldebug-prompt-pattern)
-  (set (make-local-variable 'comint-dynamic-complete-functions)
-       (cons #'ocamldebug-complete comint-dynamic-complete-functions))
-  (set (make-local-variable 'paragraph-start) comint-prompt-regexp)
-  (set (make-local-variable 'ocamldebug-last-frame-displayed-p) t)
-  (set (make-local-variable 'shell-dirtrackp) t)
-  (add-hook 'comint-input-filter-functions 'shell-directory-tracker nil t))
-
-;;; Keymaps.
-
-(defun ocamldebug-numeric-arg (arg)
-  (and arg (prefix-numeric-value arg)))
-
-(defmacro def-ocamldebug (name key &optional doc args)
-
-  "Define ocamldebug-NAME to be a command sending NAME ARGS and bound
-to KEY, with optional doc string DOC.  Certain %-escapes in ARGS are
-interpreted specially if present.  These are:
-
-  %m	module name of current module.
-  %d	directory of current source file.
-  %c	number of current character position
-  %e	text of the OCaml variable surrounding point.
-
-  The `current' source file is the file of the current buffer (if
-we're in an OCaml buffer) or the source file current at the last break
-or step (if we're in the ocamldebug buffer), and the `current' module
-name is the filename stripped of any *.ml* suffixes (this assumes the
-usual correspondence between module and file naming is observed).  The
-`current' position is that of the current buffer (if we're in a source
-file) or the position of the last break or step (if we're in the
-ocamldebug buffer).
-
-If a numeric is present, it overrides any ARGS flags and its string
-representation is simply concatenated with the COMMAND."
-
-  (let* ((fun (intern (format "ocamldebug-%s" name))))
-    `(progn
-       ,(if doc
-            `(defun ,fun (arg)
-               ,doc
-               (interactive "P")
-               (ocamldebug-call ,name ,args
-                                (ocamldebug-numeric-arg arg))))
-       (define-key ocamldebug-mode-map ,(concat "\C-c" key) ',fun)
-       (define-key tuareg-mode-map ,(concat "\C-x\C-a" key) ',fun))))
-
-(def-ocamldebug "step"	"\C-s"	"Step one source line with display.")
-(def-ocamldebug "run"	"\C-r"	"Run the program.")
-(def-ocamldebug "reverse" "\C-v" "Run the program in reverse.")
-(def-ocamldebug "last"   "\C-l"  "Go to latest time in execution history.")
-(def-ocamldebug "backtrace" "\C-t" "Print the call stack.")
-(def-ocamldebug "open"   "\C-o"  "Open the current module." "%m")
-(def-ocamldebug "close"  "\C-c"  "Close the current module." "%m")
-(def-ocamldebug "finish" "\C-f"	"Finish executing current function.")
-(def-ocamldebug "print"	"\C-p"	"Print value of symbol at point."	"%e")
-(def-ocamldebug "next"   "\C-n"	"Step one source line (skip functions)")
-(def-ocamldebug "up"     "<"  "Go up N stack frames (numeric arg) with display")
-(def-ocamldebug "down"  ">" "Go down N stack frames (numeric arg) with display")
-(def-ocamldebug "break"  "\C-b"	"Set breakpoint at current line."
-  "@ \"%m\" # %c")
-
-(defun ocamldebug-kill-filter (string)
-  ;gob up stupid questions :-)
-  (setq ocamldebug-filter-accumulator
-	(concat ocamldebug-filter-accumulator string))
-  (when (string-match "\\(.* \\)(y or n) "
-                      ocamldebug-filter-accumulator)
-    (setq ocamldebug-kill-output
-	  (cons t (match-string 1 ocamldebug-filter-accumulator)))
-    (setq ocamldebug-filter-accumulator ""))
-  (if (string-match comint-prompt-regexp ocamldebug-filter-accumulator)
-      (let ((output (substring ocamldebug-filter-accumulator
-			       (match-beginning 0))))
-	(setq ocamldebug-kill-output
-	      (cons nil (substring ocamldebug-filter-accumulator 0
-				   (1- (match-beginning 0)))))
-	(setq ocamldebug-filter-accumulator "")
-	output)
-    ""))
-
-(def-ocamldebug "kill"	"\C-k")
-
-(defun ocamldebug-kill ()
-  "Kill the program."
-  (interactive)
-  (let ((ocamldebug-kill-output))
-    (with-current-buffer ocamldebug-current-buffer
-      (let ((proc (get-buffer-process (current-buffer)))
-	    (ocamldebug-filter-function 'ocamldebug-kill-filter))
-	(ocamldebug-call "kill")
-	(while (not (and ocamldebug-kill-output
-			 (zerop (length ocamldebug-filter-accumulator))))
-	  (accept-process-output proc))))
-    (if (not (car ocamldebug-kill-output))
-	(error (cdr ocamldebug-kill-output))
-      (sit-for 0 300)
-      (ocamldebug-call-1 (if (y-or-n-p (cdr ocamldebug-kill-output)) "y" "n")))))
-;;FIXME: ocamldebug doesn't output the Hide marker on kill
-
-(defun ocamldebug-goto-filter (string)
-  ;accumulate onto previous output
-  (setq ocamldebug-filter-accumulator
-	(concat ocamldebug-filter-accumulator string))
-  (when (or (string-match (concat
-                           "\\(\n\\|\\`\\)[ \t]*\\([0-9]+\\)[ \t]+"
-                           ocamldebug-goto-position
-                           "-[0-9]+[ \t]*\\(before\\).*\n")
-                          ocamldebug-filter-accumulator)
-            (string-match (concat
-                           "\\(\n\\|\\`\\)[ \t]*\\([0-9]+\\)[ \t]+[0-9]+-"
-                           ocamldebug-goto-position
-                           "[ \t]*\\(after\\).*\n")
-                          ocamldebug-filter-accumulator))
-    (setq ocamldebug-goto-output
-	  (match-string 2 ocamldebug-filter-accumulator))
-    (setq ocamldebug-filter-accumulator
-	  (substring ocamldebug-filter-accumulator (1- (match-end 0)))))
-  (when (string-match comint-prompt-regexp
-                      ocamldebug-filter-accumulator)
-    (setq ocamldebug-goto-output (or ocamldebug-goto-output 'fail))
-    (setq ocamldebug-filter-accumulator ""))
-  (when (string-match "\n\\(.*\\)\\'" ocamldebug-filter-accumulator)
-    (setq ocamldebug-filter-accumulator
-          (match-string 1 ocamldebug-filter-accumulator)))
-  "")
-
-(def-ocamldebug "goto" "\C-g")
-(defun ocamldebug-goto (&optional time)
-
-  "Go to the execution time TIME.
-
-Without TIME, the command behaves as follows: In the ocamldebug buffer,
-if the point at buffer end, goto time 0\; otherwise, try to obtain the
-time from context around point.  In an OCaml buffer, try to find the
-time associated in execution history with the current point location.
-
-With a negative TIME, move that many lines backward in the ocamldebug
-buffer, then try to obtain the time from context around point."
-
-  (interactive "P")
-  (cond
-   (time
-    (let ((ntime (ocamldebug-numeric-arg time)))
-      (if (>= ntime 0) (ocamldebug-call "goto" nil ntime)
-	(save-selected-window
-	  (select-window (get-buffer-window ocamldebug-current-buffer))
-	  (save-excursion
-	    (if (re-search-backward "^Time : [0-9]+ - pc : [0-9]+ "
-				    nil t (- 1 ntime))
-		(ocamldebug-goto nil)
-	      (error "I don't have %d times in my history"
-		     (- 1 ntime))))))))
-   ((eq (current-buffer) ocamldebug-current-buffer)
-      (let ((time (cond
-		   ((eobp) 0)
-		   ((save-excursion
-		      (beginning-of-line 1)
-		      (looking-at "^Time : \\([0-9]+\\) - pc : [0-9]+ "))
-		    (string-to-number (match-string 1)))
-		   ((string-to-number (ocamldebug-format-command "%e"))))))
-	(ocamldebug-call "goto" nil time)))
-   (t
-    (let ((module (ocamldebug-module-name (buffer-file-name)))
-	  (ocamldebug-goto-position (int-to-string (1- (point))))
-	  (ocamldebug-goto-output) (address))
-      ;get a list of all events in the current module
-      (with-current-buffer ocamldebug-current-buffer
-	(let* ((proc (get-buffer-process (current-buffer)))
-	       (ocamldebug-filter-function 'ocamldebug-goto-filter))
-	  (ocamldebug-call-1 (concat "info events " module))
-	  (while (not (and ocamldebug-goto-output
-		      (zerop (length ocamldebug-filter-accumulator))))
-	    (accept-process-output proc))
-	  (setq address (unless (eq ocamldebug-goto-output 'fail)
-			  (re-search-backward
-			   (concat "^Time : \\([0-9]+\\) - pc : "
-				   ocamldebug-goto-output
-				   " - module "
-				   module "$") nil t)
-			  (match-string 1)))))
-      (if address (ocamldebug-call "goto" nil (string-to-number address))
-	(error "No time at %s at %s" module ocamldebug-goto-position))))))
-
-
-(defun ocamldebug-delete-filter (string)
-  (setq ocamldebug-filter-accumulator
-	(concat ocamldebug-filter-accumulator string))
-  (when (string-match
-         (concat "\\(\n\\|\\`\\)[ \t]*\\([0-9]+\\)[ \t]+[0-9]+[ \t]*in "
-                 (regexp-quote ocamldebug-delete-file)
-                 ", character "
-                 ocamldebug-delete-position "\n")
-         ocamldebug-filter-accumulator)
-    (setq ocamldebug-delete-output
-	  (match-string 2 ocamldebug-filter-accumulator))
-    (setq ocamldebug-filter-accumulator
-	  (substring ocamldebug-filter-accumulator (1- (match-end 0)))))
-  (when (string-match comint-prompt-regexp
-                      ocamldebug-filter-accumulator)
-    (setq ocamldebug-delete-output (or ocamldebug-delete-output 'fail))
-    (setq ocamldebug-filter-accumulator ""))
-  (if (string-match "\n\\(.*\\)\\'" ocamldebug-filter-accumulator)
-      (setq ocamldebug-filter-accumulator
-	    (match-string 1 ocamldebug-filter-accumulator)))
-  "")
-
-
-(def-ocamldebug "delete" "\C-d")
-
-(defun ocamldebug-delete (&optional arg)
-  "Delete the breakpoint numbered ARG.
-
-Without ARG, the command behaves as follows: In the ocamldebug buffer,
-try to obtain the time from context around point.  In an OCaml buffer,
-try to find the breakpoint associated with the current point location.
-
-With a negative ARG, look for the -ARGth breakpoint pattern in the
-ocamldebug buffer, then try to obtain the breakpoint info from context
-around point."
-
-  (interactive "P")
-  (cond
-   (arg
-    (let ((narg (ocamldebug-numeric-arg arg)))
-      (if (> narg 0) (ocamldebug-call "delete" nil narg)
-	(with-current-buffer ocamldebug-current-buffer
-	  (if (re-search-backward "^Breakpoint [0-9]+ at [0-9]+ : file "
-				  nil t (- 1 narg))
-	      (ocamldebug-delete nil)
-	    (error "I don't have %d breakpoints in my history"
-		     (- 1 narg)))))))
-   ((eq (current-buffer) ocamldebug-current-buffer)
-    (let* ((bpline "^Breakpoint \\([0-9]+\\) at [0-9]+ : file ")
-	   (arg (cond
-		 ((eobp)
-		  (save-excursion (re-search-backward bpline nil t))
-		  (string-to-number (match-string 1)))
-		 ((save-excursion
-		    (beginning-of-line 1)
-		    (looking-at bpline))
-		  (string-to-number (match-string 1)))
-		 ((string-to-number (ocamldebug-format-command "%e"))))))
-      (ocamldebug-call "delete" nil arg)))
-   (t
-    (let ((ocamldebug-delete-file
-	   (concat (ocamldebug-format-command "%m") ".ml"))
-	  (ocamldebug-delete-position (ocamldebug-format-command "%c")))
-      (with-current-buffer ocamldebug-current-buffer
-	(let ((proc (get-buffer-process (current-buffer)))
-	      (ocamldebug-filter-function 'ocamldebug-delete-filter)
-	      (ocamldebug-delete-output))
-	  (ocamldebug-call-1 "info break")
-	  (while (not (and ocamldebug-delete-output
-			   (zerop (length
-				   ocamldebug-filter-accumulator))))
-	    (accept-process-output proc))
-	  (if (eq ocamldebug-delete-output 'fail)
-	      (error "No breakpoint in %s at %s"
-		     ocamldebug-delete-file
-		     ocamldebug-delete-position)
-	    (ocamldebug-call "delete" nil
-			    (string-to-number ocamldebug-delete-output)))))))))
-
-(defun ocamldebug-complete-filter (string)
-  (setq ocamldebug-filter-accumulator
-	(concat ocamldebug-filter-accumulator string))
-  (while (string-match "\\(\n\\|\\`\\)\\(.+\\)\n"
-		       ocamldebug-filter-accumulator)
-    (setq ocamldebug-complete-list
-	  (cons (match-string 2 ocamldebug-filter-accumulator)
-		ocamldebug-complete-list))
-    (setq ocamldebug-filter-accumulator
-	  (substring ocamldebug-filter-accumulator
-		     (1- (match-end 0)))))
-  (when (string-match comint-prompt-regexp
-                      ocamldebug-filter-accumulator)
-    (setq ocamldebug-complete-list
-	  (or ocamldebug-complete-list 'fail))
-    (setq ocamldebug-filter-accumulator ""))
-  (if (string-match "\n\\(.*\\)\\'" ocamldebug-filter-accumulator)
-      (setq ocamldebug-filter-accumulator
-	    (match-string 1 ocamldebug-filter-accumulator)))
-  "")
-
-(defun ocamldebug-complete ()
-
-  "Perform completion on the ocamldebug command preceding point."
-
-  (interactive)
-  (let* ((end (point))
-	 (command (save-excursion
-		    (beginning-of-line)
-		    (and (looking-at comint-prompt-regexp)
-			 (goto-char (match-end 0)))
-		    (buffer-substring (point) end)))
-	 (ocamldebug-complete-list nil) (command-word))
-
-    ;; Find the word break.  This match will always succeed.
-    (string-match "\\(\\`\\| \\)\\([^ ]*\\)\\'" command)
-    (setq command-word (match-string 2 command))
-
-    ;itz 04-21-96 if we are trying to complete a word of nonzero
-    ;length, chop off the last character. This is a nasty hack, but it
-    ;works - in general, not just for this set of words: the comint
-    ;call below will weed out false matches - and it avoids further
-    ;mucking with ocamldebug's lexer.
-    (when (> (length command-word) 0)
-      (setq command (substring command 0 (1- (length command)))))
-
-    (let ((ocamldebug-filter-function 'ocamldebug-complete-filter))
-      (ocamldebug-call-1 (concat "complete " command))
-      (set-marker ocamldebug-delete-prompt-marker nil)
-      (while (not (and ocamldebug-complete-list
-		       (zerop (length ocamldebug-filter-accumulator))))
-	(accept-process-output (get-buffer-process
-				(current-buffer)))))
-    (when (eq ocamldebug-complete-list 'fail)
-      (setq ocamldebug-complete-list nil))
-    (setq ocamldebug-complete-list
-	  (sort ocamldebug-complete-list 'string-lessp))
-    (comint-dynamic-simple-complete command-word ocamldebug-complete-list)))
-
-(define-key tuareg-mode-map "\C-x " 'ocamldebug-break)
-
-(defvar ocamldebug-command-name "ocamldebug"
-  "Pathname for executing the OCaml debugger.")
-
-;;;###autoload
-(defun ocamldebug (path)
-  "Run ocamldebug on program FILE in buffer *ocamldebug-FILE*.
-The directory containing FILE becomes the initial working directory
-and source-file directory for ocamldebug.  If you wish to change this, use
-the ocamldebug commands `cd DIR' and `directory'."
-  (interactive "fRun ocamldebug on file: ")
-  (setq path (expand-file-name path))
-  (let ((file (file-name-nondirectory path)))
-    (pop-to-buffer (concat "*ocamldebug-" file "*"))
-    (setq default-directory (file-name-directory path))
-    (message "Current directory is %s" default-directory)
-    (setq ocamldebug-command-name
-	  (read-from-minibuffer "OCaml debugguer to run: "
-				ocamldebug-command-name))
-    (make-comint (concat "ocamldebug-" file)
-		 (substitute-in-file-name ocamldebug-command-name)
-		 nil
-		 "-emacs" "-cd" default-directory path)
-    (set-process-filter (get-buffer-process (current-buffer))
-			'ocamldebug-filter)
-    (set-process-sentinel (get-buffer-process (current-buffer))
-			  'ocamldebug-sentinel)
-    (ocamldebug-mode)
-    (ocamldebug-set-buffer)))
-
-;;;###autoload
-(defalias 'camldebug 'ocamldebug)
-
-(defun ocamldebug-set-buffer ()
-  (if (eq major-mode 'ocamldebug-mode)
-      (setq ocamldebug-current-buffer (current-buffer))
-    (save-selected-window (pop-to-buffer ocamldebug-current-buffer))))
-
-;;; Filter and sentinel.
-
-(defun ocamldebug-marker-filter (string)
-  (setq ocamldebug-filter-accumulator
-	(concat ocamldebug-filter-accumulator string))
-  (let ((output "") (begin))
-    ;; Process all the complete markers in this chunk.
-    (while (setq begin
-		 (string-match
-                  "\032\032\\(H\\|M\\(.+\\):\\(.+\\):\\(.+\\):\\(before\\|after\\)\\)\n"
-		  ocamldebug-filter-accumulator))
-      (setq ocamldebug-last-frame
-	    (unless (char-equal ?H (aref ocamldebug-filter-accumulator
-                                         (1+ (1+ begin))))
-              (let ((isbefore
-                     (string= "before"
-                              (match-string 5 ocamldebug-filter-accumulator)))
-                    (startpos (string-to-number
-                               (match-string 3 ocamldebug-filter-accumulator)))
-                    (endpos (string-to-number
-                             (match-string 4 ocamldebug-filter-accumulator))))
-                (list (match-string 2 ocamldebug-filter-accumulator)
-                      (if isbefore startpos endpos)
-                      isbefore
-                      startpos
-                      endpos
-                      )))
-	    output (concat output
-			   (substring ocamldebug-filter-accumulator
-				      0 begin))
-	    ;; Set the accumulator to the remaining text.
-	    ocamldebug-filter-accumulator (substring
-					  ocamldebug-filter-accumulator
-					  (match-end 0))
-	    ocamldebug-last-frame-displayed-p nil))
-
-    ;; Does the remaining text look like it might end with the
-    ;; beginning of another marker?  If it does, then keep it in
-    ;; ocamldebug-filter-accumulator until we receive the rest of it.  Since we
-    ;; know the full marker regexp above failed, it's pretty simple to
-    ;; test for marker starts.
-    (if (string-match "\032.*\\'" ocamldebug-filter-accumulator)
-	(progn
-	  ;; Everything before the potential marker start can be output.
-	  (setq output (concat output (substring ocamldebug-filter-accumulator
-						 0 (match-beginning 0))))
-
-	  ;; Everything after, we save, to combine with later input.
-	  (setq ocamldebug-filter-accumulator
-		(substring ocamldebug-filter-accumulator (match-beginning 0))))
-
-      (setq output (concat output ocamldebug-filter-accumulator)
-	    ocamldebug-filter-accumulator ""))
-
-    output))
-
-(defun ocamldebug-filter (proc string)
-  (when (buffer-name (process-buffer proc))
-    (let ((process-window))
-      (with-current-buffer (process-buffer proc)
-        ;; If we have been so requested, delete the debugger prompt.
-        (when (marker-buffer ocamldebug-delete-prompt-marker)
-          (delete-region (process-mark proc)
-                         ocamldebug-delete-prompt-marker)
-          (set-marker ocamldebug-delete-prompt-marker nil))
-        (let ((output (funcall ocamldebug-filter-function string)))
-          ;; Don't display the specified file unless
-          ;; (1) point is at or after the position where output appears
-          ;; and (2) this buffer is on the screen.
-          (setq process-window (and ocamldebug-track-frame
-                                    (not ocamldebug-last-frame-displayed-p)
-                                    (>= (point) (process-mark proc))
-                                    (get-buffer-window (current-buffer))))
-          ;; Insert the text, moving the process-marker.
-          (comint-output-filter proc output)))
-      (when process-window
-        (save-selected-window
-          (select-window process-window)
-          (ocamldebug-display-frame))))))
-
-(defun ocamldebug-sentinel (proc msg)
-  (cond ((null (buffer-name (process-buffer proc)))
-	 ;; buffer killed
-	 ;; Stop displaying an arrow in a source file.
-	 (ocamldebug-remove-current-event)
-	 (set-process-buffer proc nil))
-	((memq (process-status proc) '(signal exit))
-	 ;; Stop displaying an arrow in a source file.
-	 (ocamldebug-remove-current-event)
-	 ;; Fix the mode line.
-	 (setq mode-line-process
-	       (concat ": "
-		       (symbol-name (process-status proc))))
-	 (let* ((obuf (current-buffer)))
-	   ;; save-excursion isn't the right thing if
-	   ;;  process-buffer is current-buffer
-	   (unwind-protect
-	       (progn
-		 ;; Write something in *compilation* and hack its mode line,
-		 (set-buffer (process-buffer proc))
-		 ;; Force mode line redisplay soon
-		 (set-buffer-modified-p (buffer-modified-p))
-		 (if (eobp)
-		     (insert ?\n mode-name " " msg)
-		   (save-excursion
-		     (goto-char (point-max))
-		     (insert ?\n mode-name " " msg)))
-		 ;; If buffer and mode line will show that the process
-		 ;; is dead, we can delete it now.  Otherwise it
-		 ;; will stay around until M-x list-processes.
-		 (delete-process proc))
-	     ;; Restore old buffer, but don't restore old point
-	     ;; if obuf is the cdb buffer.
-	     (set-buffer obuf))))))
-
-
-(defun ocamldebug-refresh (&optional arg)
-  "Fix up a possibly garbled display, and redraw the mark."
-  (interactive "P")
-  (ocamldebug-display-frame)
-  (recenter arg))
-
-(defun ocamldebug-display-frame ()
-  "Find, obey and delete the last filename-and-line marker from OCaml debugger.
-The marker looks like \\032\\032FILENAME:CHARACTER\\n.
-Obeying it means displaying in another window the specified file and line."
-  (interactive)
-  (ocamldebug-set-buffer)
-  (if (not ocamldebug-last-frame)
-      (ocamldebug-remove-current-event)
-    (ocamldebug-display-line (nth 0 ocamldebug-last-frame)
-                            (nth 3 ocamldebug-last-frame)
-                            (nth 4 ocamldebug-last-frame)
-                            (nth 2 ocamldebug-last-frame)))
-  (setq ocamldebug-last-frame-displayed-p t))
-
-;; Make sure the file named TRUE-FILE is in a buffer that appears on the screen
-;; and that its character CHARACTER is visible.
-;; Put the mark on this character in that buffer.
-
-(defun ocamldebug-display-line (true-file schar echar kind)
-  (let* ((pre-display-buffer-function nil) ; screw it, put it all in one screen
-	 (pop-up-windows t)
-	 (buffer (find-file-noselect true-file))
-	 (window (display-buffer buffer t))
-         (spos) (epos) (pos))
-    (with-current-buffer buffer
-      (save-restriction
-	(widen)
-        (setq spos (+ (point-min) schar))
-        (setq epos (+ (point-min) echar))
-        (setq pos (if kind spos epos))
-        (ocamldebug-set-current-event spos epos pos (current-buffer) kind))
-      (cond ((or (< pos (point-min)) (> pos (point-max)))
-	     (widen)
-	     (goto-char pos))))
-    (set-window-point window pos)))
-
-;;; Events.
-
-(defun ocamldebug-remove-current-event ()
-  (if (and (fboundp 'make-overlay) window-system)
-      (progn
-        (delete-overlay ocamldebug-overlay-event)
-        (delete-overlay ocamldebug-overlay-under))
-    (setq overlay-arrow-position nil)))
-
-(defun ocamldebug-set-current-event (spos epos pos buffer before)
-  (if window-system
-      (if before
-          (progn
-            (move-overlay ocamldebug-overlay-event spos (1+ spos) buffer)
-            (move-overlay ocamldebug-overlay-under
-                          (+ spos 1) epos buffer))
-        (move-overlay ocamldebug-overlay-event (1- epos) epos buffer)
-        (move-overlay ocamldebug-overlay-under spos (- epos 1) buffer))
-    (with-current-buffer buffer
-      (goto-char pos)
-      (beginning-of-line)
-      (move-marker ocamldebug-event-marker (point))
-      (setq overlay-arrow-position ocamldebug-event-marker))))
-
-;;; Miscellaneous.
-
-(defun ocamldebug-module-name (filename)
-  (substring filename (string-match "\\([^/]*\\)\\.ml$" filename) (match-end 1)))
-
-;; The ocamldebug-call function must do the right thing whether its
-;; invoking keystroke is from the ocamldebug buffer itself (via
-;; major-mode binding) or an OCaml buffer.  In the former case, we want
-;; to supply data from ocamldebug-last-frame.  Here's how we do it:
-
-(defun ocamldebug-format-command (str)
-  (let* ((insource (not (eq (current-buffer) ocamldebug-current-buffer)))
-         (frame (if insource nil ocamldebug-last-frame))
-         (result ""))
-    (while (and str (string-match "\\([^%]*\\)%\\([mdcep]\\)" str))
-      (let* ((key (aref str (match-beginning 2)))
-             (cmd (match-string 1 str))
-             (end (match-end 0))
-             (subst
-              (case key
-                (?m
-                 (ocamldebug-module-name
-                  (if insource buffer-file-name (nth 0 frame))))
-                (?d
-                 (file-name-directory
-                  (if insource buffer-file-name (nth 0 frame))))
-                (?c
-                 (int-to-string
-                  ;; FIXME: Should this be (- (point) (point-min))?
-                  ;; What happens with multibyte chars?
-                  (if insource (1- (point)) (nth 1 frame))))
-                (?e
-                 (save-excursion
-                   (skip-chars-backward "_0-9A-Za-z\277-\377")
-                   (looking-at "[_0-9A-Za-z\277-\377]*")
-                   (match-string 0))))))
-        (setq str (substring str end))
-	(setq result (concat result cmd subst))))
-    ;; There might be text left in STR when the loop ends.
-    (concat result str)))
-
-(defun ocamldebug-call (command &optional fmt arg)
-  "Invoke ocamldebug COMMAND displaying source in other window.
-
-Certain %-escapes in FMT are interpreted specially if present.
-These are:
-
-  %m	module name of current module.
-  %d	directory of current source file.
-  %c	number of current character position
-  %e	text of the OCaml variable surrounding point.
-
-  The `current' source file is the file of the current buffer (if
-we're in an OCaml buffer) or the source file current at the last break
-or step (if we're in the ocamldebug buffer), and the `current' module
-name is the filename stripped of any *.ml* suffixes (this assumes the
-usual correspondence between module and file naming is observed).  The
-`current' position is that of the current buffer (if we're in a source
-file) or the position of the last break or step (if we're in the
-ocamldebug buffer).
-
-If ARG is present, it overrides any FMT flags and its string
-representation is simply concatenated with the COMMAND."
-
-  ;; Make sure debugger buffer is displayed in a window.
-  (ocamldebug-set-buffer)
-  (message "Command: %s" (ocamldebug-call-1 command fmt arg)))
-
-(defun ocamldebug-call-1 (command &optional fmt arg)
-  ;; Record info on the last prompt in the buffer and its position.
-  (with-current-buffer ocamldebug-current-buffer
-    (goto-char (process-mark (get-buffer-process ocamldebug-current-buffer)))
-    (let ((pt (point)))
-      (beginning-of-line)
-      (when (looking-at comint-prompt-regexp)
-        (set-marker ocamldebug-delete-prompt-marker (point)))))
-  (let ((cmd (cond
-	      (arg (concat command " " (int-to-string arg)))
-	      (fmt (ocamldebug-format-command
-		    (concat command " " fmt)))
-	      (command))))
-    (process-send-string (get-buffer-process ocamldebug-current-buffer)
-			 (concat cmd "\n"))
-    cmd))
-
-
-(provide 'ocamldebug)
-;;; ocamldebug.el ends here

elisp/contrib/tuareg/.svn/text-base/sample.ml.svn-base

-(* sample file indented as we want it to be -*- tuareg -*- *)
-
-let server_comments request t =
-  let module M = N in
-  let class M = N in
-  let m M = N in
-  let module M = N in
-  let open Grep.Server in
-  let x = 5 in
-  let modue x y = 5 in
-  let open M in
-
-  t >>= Grep.server_comments
-    lazy
-    parser
-    every
-
-let x =
-  let open M in
-  let x = 5 in
-  x + x
-;;
-
-;; (* http://caml.inria.fr/mantis/view.php?id=4247 *)
-let x = {
-  Foo.
-  a = b;
-  c = d;
-  e = {Bar.
-       f = 1;
-       g = 2;
-      };
-  h = {  Quux.
-         i = 3;
-         j = 4;
-      };
-}
-
-;; (* http://caml.inria.fr/mantis/view.php?id=4249 *)
-let x = { a = b;
-          c = d;
-        }
-
-;; (* http://caml.inria.fr/mantis/view.php?id=4255 *)
-{ foo: [ `Foo of int
-       | `Bar of string ];
-}
-
-let s = { a with
-  b = 1;
-}
-;;
-
-let a = {
-  M.
-  foo = foo;
-  bar = bar;
-}
-
-let a = { t with M.
-  foo = foo;
-  bar = bar;
-}
-
-let a = { t with
-  M.
-  foo = foo;
-  bar = bar;
-}
-
-type t = [ `Foo of int
-         | `Bar of string ]
-
-type t =
-| A
-| B
-| C
-with sexp
-
-type t = | A
-         | B
-         | C
-
-type t = [
-| `A
-| `B
-| `C
-]
-
-type t = [                              (* comment *)
-| `A
-| `B
-| `C
-]
-
-type t = a
-and x = b
-
-module M = struct
-  type t =
-  | A
-  | B
-  | C
-  with sexp
-
-  type s = [
-  | `A
-  | `B
-  | `C
-  ]
-
-  type u =
-  | D
-  | E
-  with sexp
-end
-
-module N =
-struct
-  type u =
-  | D
-  | E
-  with sexp
-end
-
-type m =
-| T
-with sexp
-
-;; (* http://caml.inria.fr/mantis/view.php?id=4334 *)
-type foo =
-  a
-  -> b
-  -> c
-  -> d
-
-val f :
-  a:a
-  -> b:b
-  -> c:c
-
-type bar = a -> b
-  -> c -> d
-  -> e -> f
-
-type baz = a -> b ->
-  c -> d ->
-  e -> f
-
-val quux : a -> b ->
-  c -> d ->
-  e -> f
-
-type t : a:b -> c:d