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

16
_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,
@ -227,12 +227,12 @@ Executable lambda
BuildDepends: containers,containers.misc BuildDepends: containers,containers.misc
Executable id_sexp Executable id_sexp
Path: examples/ Path: examples/
Install: false Install: false
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