Re: [Factor-talk] deploy trouble
On Jul 26, 2011, at 1:44 AM, Michele Pes wrote: > Hi factorers! > I want to use my factored "file-copier" in my MS vista, but when I > deploy with the deploy-tool, it aborts (die was called by library... > please report), and the listener hangs. > Can someone tell if can get exe from this source? What are your deploy-tool settings? Generally you always want level 3 I/O support, rational and complex number support, and threading support. If the program still does not work without these settings, try deploying with the highest possible reflection level, which should allow you to see the actual error raised by your deployed program. -Joe -- Magic Quadrant for Content-Aware Data Loss Prevention Research study explores the data loss prevention market. Includes in-depth analysis on the changes within the DLP market, and the criteria used to evaluate the strengths and weaknesses of these DLP solutions. http://www.accelacomm.com/jaw/sfnl/114/51385063/ ___ Factor-talk mailing list Factor-talk@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/factor-talk
[Factor-talk] deploy trouble
Hi factorers! I want to use my factored "file-copier" in my MS vista, but when I deploy with the deploy-tool, it aborts (die was called by library... please report), and the listener hangs. Can someone tell if can get exe from this source? thanks, michele pes USING: kernel math sequences accessors namespaces io io.files io.files.info io.pathnames ; FROM: io.encodings.binary => binary ; FROM: math.parser => number>string ; FROM: io.backend => normalize-path ; FROM: destructors => dispose ; FROM: continuations => recover ; FROM: system => exit ; FROM: ascii => ch>upper ; FROM: command-line => command-line ; IN: file-copier SYMBOLS: g-source g-destination g-is g-os g-block ret-val ; CONSTANT: BUF_SIZE 32768 : write-banner ( -- ) g-source get write " -> " write g-destination get write ; inline : open-source? ( -- ? ) [ g-source get binary g-is set t ] [ nl g-source get write ": " write write f ] recover ; : must-overwrite? ( -- ? ) g-destination get exists? [ nl "Overwrite ? [Y/?] " write read1 ch>upper CHAR: Y = [ t ] [ "Aborted." write f ] if ] [ t ] if ; : enough-space? ( -- ? ) g-source get file-info size-on-disk>> g-destination get file-system-info free-space>> <= dup [ nl "Not Enough Space." write ] unless ; : open-destination? ( -- ? ) [ g-destination get binary g-os set t ] [ g-destination get write ": " write write f ] recover ; : core-io ( -- n ) 0 ret-val set [ [ BUF_SIZE g-is get stream-read g-block set ] [ nl g-source get write ": " write write 2 ret-val set ] recover ret-val get zero? g-block get f = not and [ [ g-block get g-os get stream-write t ] [ nl g-destination get write ": " write write f ] recover ] [ f ] if ] loop ret-val get ; : copy ( -- n ) write-banner open-source? [ must-overwrite? [ enough-space? [ open-destination? [ core-io g-os get dispose ] [ 3 ] if ] [ 3 ] if ] [ 0 ] if g-is get dispose ] [ 2 ] if ; : main ( -- ) "File copier by Mike P. '81" print nl command-line get dup length dup 1 = swap 2 = or [ dup first g-source set dup length 1 = [ g-source get file-name g-destination set ] [ dup second g-destination set ] if g-source get normalize-path g-destination get normalize-path = [ "Source and Dest are the same file." write 3 exit ] [ g-destination get dup exists? [ file-info directory? [ g-destination get g-source get file-name append-path g-destination set ] when ] when copy exit ] if ] [ drop "Enter: copy [dst] " write 1 exit ] if ; MAIN: main-- Magic Quadrant for Content-Aware Data Loss Prevention Research study explores the data loss prevention market. Includes in-depth analysis on the changes within the DLP market, and the criteria used to evaluate the strengths and weaknesses of these DLP solutions. http://www.accelacomm.com/jaw/sfnl/114/51385063/___ Factor-talk mailing list Factor-talk@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/factor-talk