6ec7d6368c
asdlGen generates data structure and serializer code from ASDL specifications [1]. It is especially helpful for exchanging tree like data structures between different programming languages. Currently C, C++, Haskell, Java, Icon, OCaml and SML are supported. Although the asdlGen project itself seems no longer actively maintained, ASDL is "alive" as it is used (at least) in the Moby [2] and Python [3,4] compilers. The port optionally installs a simple usage example [5] for all seven programming languages. I developed it primarily to test the port, but it could be helpful to users of asdlGen to get a quicker start, especially if a less familiar programming language is involved in their project. Reviewers/committers can easily make use of it via the "test-demo" target. PR: ports/117703 Submitted by: Johannes 5 Joemann <joemann@beefree.free.de>
31 lines
966 B
Standard ML
31 lines
966 B
Standard ML
--- src/sml/util/misc/file-set.sml.orig 2000-01-14 02:42:30.000000000 +0100
|
|
+++ src/sml/util/misc/file-set.sml 2007-09-28 22:50:55.000000000 +0200
|
|
@@ -68,11 +68,18 @@
|
|
fun libPath x = d@x
|
|
fun get_node "" = NONE
|
|
| get_node x = OM.find(fs',x)
|
|
- fun fix_dep x = case OM.find(fs',x) of
|
|
- (SOME (L _)) => libPath [x] | _ => [x]
|
|
- fun cvt (F x) = {name=[#name x],
|
|
+ fun fix_dep x = let open OS.Path
|
|
+ val xarcs = (#arcs o fromString) x
|
|
+ in case OM.find(fs',x) of
|
|
+ (SOME (L _)) => libPath xarcs | _ => xarcs
|
|
+ end
|
|
+ fun cvt (F x) = let open OS.Path
|
|
+ val xarcs = (#arcs o fromString) (#name x)
|
|
+ in
|
|
+ {name=xarcs,
|
|
depends=List.map fix_dep (#depends x),
|
|
body=(#body x)}
|
|
+ end
|
|
| cvt _ = raise (Fail "impossible")
|
|
|
|
fun prefix_it {name,depends,body} =
|
|
@@ -90,4 +97,4 @@
|
|
val components = Scc.topOrder {root="",follow=follow}
|
|
in List.foldl no_cycle [] components
|
|
end
|
|
- end
|
|
\ No newline at end of file
|
|
+ end
|