[Win32forth-cvs] win32forth/apps/Internet iRipper.f,1.1,1.2

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth/apps/Internet
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv14877

Modified Files:
	iRipper.f 
Log Message:
Jos: Minor bugfix.

Index: iRipper.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Internet/iRipper.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** iRipper.f	13 Jun 2007 15:41:03 -0000	1.1
--- iRipper.f	7 Jul 2007 18:11:34 -0000	1.2
***************
*** 11,22 ****
      CollectFile$ $createFile  close-file abort" close error"  ;
  
- : UrlDownloadToFile ( z"url" - )
-     CollectFile$ count drop swap 0 0 2swap  0 call URLDownloadToFile drop ;
- 
  create site$ LMAXCOUNTED allot
  create long$ LMAXCOUNTED allot
- 
  : .long$ ( - )   cr long$ lcount 100 min type   ;
  
  \ Rip will copy the specified file from the internet to the current
  \ directory using the same name.
--- 11,21 ----
      CollectFile$ $createFile  close-file abort" close error"  ;
  
  create site$ LMAXCOUNTED allot
  create long$ LMAXCOUNTED allot
  : .long$ ( - )   cr long$ lcount 100 min type   ;
  
+ : UrlDownloadToFile ( z"url" - )
+     CollectFile$ count drop swap 0 0 2swap  0 call URLDownloadToFile drop ;
+ 
  \ Rip will copy the specified file from the internet to the current
  \ directory using the same name.
***************
*** 25,32 ****
      2dup
      current-dir$ count CollectFile$ place s" \"  CollectFile$ +place
!     CollectFile$ +place  CreateCollectFile
      site$  lcount long$ lplace
      long$ +lplace
!     long$ +LNULL .long$
      long$ lcount drop UrlDownloadToFile
   ;
--- 24,31 ----
      2dup
      current-dir$ count CollectFile$ place s" \"  CollectFile$ +place
!     CollectFile$ +place  CollectFile$ +NULL .long$  CreateCollectFile
      site$  lcount long$ lplace
      long$ +lplace
!     long$ +LNULL
      long$ lcount drop UrlDownloadToFile
   ;