simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 03:05:28 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

moved Sexp into core/CCSexp

Browse source
This commit is contained in:
Simon Cruanes 2014-09-30 16:14:16 +02:00
parent 9882998eb5
commit df838482ef
4 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
_oasis
View file

@ -48,7 +48,7 @@ Library "containers"
CCHeap, CCList, CCOpt, CCPair, CCFun, CCHash, CCHeap, CCList, CCOpt, CCPair, CCFun, CCHash,
CCKList, CCInt, CCBool, CCArray, CCOrd, CCIO, CCKList, CCInt, CCBool, CCArray, CCOrd, CCIO,
CCRandom, CCKTree, CCTrie, CCString, CCHashtbl, CCRandom, CCKTree, CCTrie, CCString, CCHashtbl,
CCFlatHashtbl CCFlatHashtbl, CCSexp
FindlibName: containers FindlibName: containers
Library "containers_string" Library "containers_string"
@ -79,7 +79,7 @@ Library "containers_misc"
Modules: Cache, FHashtbl, FlatHashtbl, Hashset, Modules: Cache, FHashtbl, FlatHashtbl, Hashset,
Heap, LazyGraph, PersistentGraph, Heap, LazyGraph, PersistentGraph,
PHashtbl, SkipList, SplayTree, SplayMap, Univ, PHashtbl, SkipList, SplayTree, SplayMap, Univ,
Bij, PiCalculus, Bencode, Sexp, RAL, Bij, PiCalculus, Bencode, RAL,
UnionFind, SmallSet, AbsSet, CSM, UnionFind, SmallSet, AbsSet, CSM,
ActionMan, BencodeOnDisk, TTree, PrintBox, ActionMan, BencodeOnDisk, TTree, PrintBox,
HGraph, Automaton, Conv, Bidir, Iteratee, BTree, HGraph, Automaton, Conv, Bidir, Iteratee, BTree,
@ -232,7 +232,7 @@ Executable id_sexp
CompiledObject: native CompiledObject: native
MainIs: id_sexp.ml MainIs: id_sexp.ml
Build$: flag(misc) Build$: flag(misc)
BuildDepends: containers,containers.misc BuildDepends: containers
SourceRepository head SourceRepository head
Type: git Type: git

0
misc/sexp.ml → core/CCSexp.ml
View file

0
misc/sexp.mli → core/CCSexp.mli
View file

4
examples/id_sexp.ml
View file

@ -3,11 +3,11 @@
let () = let () =
if Array.length Sys.argv <> 2 then failwith "usage: id_sexp file"; if Array.length Sys.argv <> 2 then failwith "usage: id_sexp file";
let f = Sys.argv.(1) in let f = Sys.argv.(1) in
let s = Sexp.L.of_file f in let s = CCSexp.L.of_file f in
match s with match s with
| `Ok l -> | `Ok l ->
List.iter List.iter
(fun s -> Format.printf "@[%a@]@." Sexp.print s) (fun s -> Format.printf "@[%a@]@." CCSexp.print s)
l l
| `Error msg -> | `Error msg ->
Format.printf "error: %s@." msg Format.printf "error: %s@." msg