Re: taglet 1.0 (was Re: [Caml-list] taggage 1.1)

[Hendrik Tews <tews@tcs.inf.tu-dresden.de>]

[-- Attachment #1: message body text --]
[-- Type: text/plain, Size: 540 bytes --]

Hendrik Tews writes:
   From: Hendrik Tews <tews@tcs.inf.tu-dresden.de>
   Date: Wed, 27 Aug 2003 10:13:42 +0200
   Subject: Re: taglet 1.0 (was Re: [Caml-list] taggage 1.1)
   
   Have you tried with otags? Otags creates a tag with the module
   name for every file it processes. So just do "otags ." and search
   for any module name.
   
Oops, I was mislead by the assumption that otags generates the
same tags for vi and for emacs. However, the module name is not
generated for vi :-(

I append a patch that fixes this. 

Bye

Hendrik


[-- Attachment #2: patch --]
[-- Type: text/plain, Size: 1025 bytes --]

Index: vi.ml
===================================================================
RCS file: /sun/theorie/tews/Privat/Store/Otags/vi.ml,v
retrieving revision 1.1.1.3
diff -c -r1.1.1.3 vi.ml
*** vi.ml	22 Apr 2003 13:45:02 -0000	1.1.1.3
--- vi.ml	27 Aug 2003 10:58:16 -0000
***************
*** 109,114 ****
--- 109,115 ----
    let out_file = Sys.getenv Argcamlp4.tmp in 
    let name = Filename.basename in_file in
    let modulename = String.capitalize (Filename.chop_extension name) in
+   let sini = Printf.sprintf "%s\t%s\t1;\n" modulename in_file in
    let lg_file = Entry.size_ml () in
    let fsl = make_strings in_file lg_file in
    Line.lookup fsl;
***************
*** 117,123 ****
    let chan = open_out out_file in
    begin
      header chan;
!     List.iter (output_string chan) lef;
      flush chan;
      close_out chan
    end
--- 118,124 ----
    let chan = open_out out_file in
    begin
      header chan;
!     List.iter (output_string chan) (sini :: lef);
      flush chan;
      close_out chan
    end