Slides

More documents

Recommendations

Info

Getting the Disc Id We can write a function that produces the track data as a list: let get_track_data () = run_list begin command "cdparanoia -Q 2>&1" -| grep_string (starts_with " ") -| CdParanoia.fitting () -| sed (fun line → (Line.Delim.get_int "length" line, Line.Delim.get_int "begin" line)) end To get the disc id, we pass the track lengths and offsets to the hash function: let get_discid () = CddbID.discid (get_track_data ()) 16 105
Filling in the Gaps How are CdParanoia and CddbId defined? module CdParanoia = Delim.Make_names(struct let options = { Delimited.default_options with Delimited.field_sep = ’ ’ } let names = [ "track"; "length"; "length-msh"; "begin"; "begin-msh"; "copy"; "pre"; "ch" ] end) CdParanoia is an adaptor module; we provide a variety of adaptors for different file formats. 17 98
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 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: Getting the Disc Id We can write a
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 and 66: Parallelization Constraints ◮ We
Page 67 and 68: Putting It All Together let main ()

Slides

Create successful ePaper yourself

Delete template?

Save as template?