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
;
|
