← Back to branch summary

~ubuntu-branches/ubuntu/lucid/mtasc/lucid

« back to all changes in this revision

Viewing changes to ocaml/extc/extc.ml

  • Committer: Bazaar Package Importer
  • Author(s): Paul Wise
  • Date: 2007-05-23 19:17:16 UTC
  • mto: (2.1.1 gutsy)
  • mto: This revision was merged to the branch mainline in revision 3.
  • Revision ID: james.westby@ubuntu.com-20070523191716-lpvac307yorewp3g
Tags: upstream-1.13
Import upstream version 1.13

Show diffs side-by-side

added added

removed removed

Lines of Context:
ocaml/extc/extc.ml
25
25
        | Z_SYNC_FLUSH
26
26
        | Z_FULL_FLUSH
27
27
        | Z_FINISH
28
 
        
 
28
 
29
29
 
30
30
type zresult = {
31
31
        z_finish : bool;
42
42
external zlib_inflate_end : zstream -> unit = "zlib_inflate_end"
43
43
 
44
44
external _executable_path : string -> string = "executable_path"
 
45
external get_full_path : string -> string = "get_full_path"
45
46
 
46
47
let executable_path() =
47
48
        let p = _executable_path Sys.argv.(0) in