Slides

More documents

Recommendations

Info

Building the Dependency DAG let build_dag (tracks, album) = let each (mp3s, prev) track = let wav = DepDAG.make ~prio:1 {| printf "Ripping %s\n%!" track.wav; run_bg (rip track) |} prev in let mp3 = DepDAG.make ~prio:2 {| printf "Encoding %s\n%!" track.mp3; run_bg (encode album track) |} [wav] in (mp3::mp3s, [wav]) in let mp3s, _ = List.fold_left each ([], []) tracks in DepDAG.make_par mp3s 26 5
Putting It All Together let main () = let opts = Flags.go "-N " in let n = opts#int ~default:2 "-N" in let discinfo = get_cddb (get_discid ()) in DepDAG.run ~n (build_dag discinfo) 27 0
Page 1 and 2:
Shmencode Caml-Shcaml by Example Al
Page 3 and 4:
3 Perl? How Could You? Perl gets th
Page 5 and 6:
4 Introducing Shcaml What about OCa
Page 7 and 8:
6 Our Task I would like to convert
Page 9 and 10:
Requirements Two additional require
Page 11 and 12:
Extracting Track Data The program c
Page 13 and 14:
Extracting Track Data The program c
Page 15 and 16: Extracting Track Data The program c
Page 17 and 18: Extracting Track Data The program c
Page 19 and 20: Interlude: What’s the Deal with F
Page 21 and 22: Fittings Have Types An (α→ β)fi
Page 23 and 24: Fittings Have Types An (α→ β)fi
Page 25 and 26: Fittings Carry Metadata val CdParan
Page 27 and 28: Fittings Are First-Class Evaluating
Page 29 and 30: Fittings Are First-Class Evaluating
Page 31 and 32: Getting the Disc Id We can write a
Page 33 and 34: Filling in the Gaps How are CdParan
Page 35 and 36: Next Stop CDDB Now we need to query
Page 37 and 38: CDDB Query Results # run begin curl
Page 45 and 46: Parsing CDDB Results (1) The Key_va
Page 47 and 48: Parsing CDDB Results (1) The Key_va
Page 49 and 50: Parsing CDDB Results (2) A function
Page 51 and 52: Parsing CDDB Results (2) A function
Page 53 and 54: Let ’Er Rip (and Encode) How shou
Page 55 and 56: Let ’Er Rip (and Encode) How shou
Page 57 and 58: Ripping, Then Encoding At this poin
Page 63 and 64: Parallelization Constraints ◮ We
Page 65: Parallelization Constraints ◮ We
show all

Slides

Create successful ePaper yourself

Delete template?

Save as template?