The delegate vocabulary might work. Also could initialed the Windows backend and then set yours and for all words you hart implemented just call the Windows one.
> On Jun 13, 2016, at 11:28 AM, Alexander Ilin <ajs...@yandex.ru> wrote: > > Hello! > > I'm having a bit of a fun problem, and I'd like you to help me with a > solution. > > I want to create a custom io-backend. In my implementation all calls to > copy-file, move-file and delete-file should be captured and queued for > deferred and/or background batch processing. > > The problem: the current implementation of copy-file calls WinAPI's > CopyFile, which blocks for the duration of the operation. For big files that > takes time. I want to create my own implementation that would copy the file > piece by piece in a Factor's cooperative non-blocking asynchronous background > super-awesome thread. > > The solution: I have created a custom backend singleton and intercepted the > necessary methods. I'm advancing my implementation carefully one step at a > time. Currently I'm making the copy-file calculate a sha-256 hash of the > file, just to make sure it reads all of the contents correctly. Next step > will be writing the data to the new location. > > Already I have a problem: with-file-reader calls (file-reader) internally, > which is hooked on io-backend. But my custom backend doesn't provide an > implementation for (file-reader). The way I want this to work is this: my > custom backend is to only intercept the methods I override (delete-file, > copy-file and move-file), and all the other methods are to be handled by the > previously installed backend. Kinda like an inheritance-type thing. Is there > a way to do this? > > Is there a better approach to the whole problem? > > My code so far: > > USING: kernel namespaces > formatting prettyprint > checksums checksums.sha > io.backend io.files io.directories io.encodings.binary ; > > IN: batch > > SINGLETON: batch-io-backend > > : with-batch-io-backend ( quot -- ) > [ batch-io-backend io-backend ] dip with-variable ; inline > > M: batch-io-backend delete-file ( path -- ) > "TODO: batch delete file (%s)" sprintf . ; > > M: batch-io-backend copy-file ( from to -- ) > 2dup "batch copy file (%s -> %s)" sprintf . > drop binary [ > sha-256 initialize-checksum-state > "hello" add-checksum-bytes > get-checksum . > ] with-file-reader ; > > M: batch-io-backend move-file ( from to -- ) > "TODO: batch move file (%s -> %s)" sprintf . ; > > > IN: scratchpad [ "README.md" "dst" copy-file ] with-batch-io-backend > > ---=====--- > Александр > > ------------------------------------------------------------------------------ > What NetFlow Analyzer can do for you? Monitors network bandwidth and traffic > patterns at an interface-level. Reveals which users, apps, and protocols are > consuming the most bandwidth. Provides multi-vendor support for NetFlow, > J-Flow, sFlow and other flows. Make informed decisions using capacity > planning reports. https://ad.doubleclick.net/ddm/clk/305295220;132659582;e > _______________________________________________ > Factor-talk mailing list > Factor-talk@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/factor-talk ------------------------------------------------------------------------------ What NetFlow Analyzer can do for you? Monitors network bandwidth and traffic patterns at an interface-level. Reveals which users, apps, and protocols are consuming the most bandwidth. Provides multi-vendor support for NetFlow, J-Flow, sFlow and other flows. Make informed decisions using capacity planning reports. https://ad.doubleclick.net/ddm/clk/305295220;132659582;e _______________________________________________ Factor-talk mailing list Factor-talk@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/factor-talk
