aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

2016 Update

Browse source
This commit is contained in:
Tina Müller 2016-12-05 22:15:40 +01:00
parent 948b86eafa
commit dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions
Download patch file Download diff file Expand all files Collapse all files

23
Task/File-size/REXX/file-size-1.rexx
View file

@ -1,12 +1,11 @@
/*REXX pgm to verify a file's size (by reading the lines) in CD & root. */
parse arg iFID . /*let user specify the file ID. */
if iFID=='' then iFID="FILESIZ.DAT" /*Not specified? Then use default*/
say 'size of' iFID "=" filesize(iFID) 'bytes' /*current dir.*/
say 'size of \..\'iFID "=" filesize('\..\'iFID) 'bytes' /* root dir.*/
exit /*stick a fork in it, we're done.*/
/*──────────────────────────────────FILESIZE subroutine─────────────────*/
filesize: parse arg f; $=0; do while lines(f)\==0
$=$+length(charin(f,,1e6))
end /*while*/
return $
/*REXX program verifies a file's size (by reading all the lines) in current dir & root.*/
parse arg iFID . /*allow the user specify the file ID. */
if iFID=='' | iFID=="," then iFID='FILESIZ.DAT' /*Not specified? Then use the default.*/
say 'size of' iFID "=" fileSize(iFID) 'bytes' /*the current directory.*/
say 'size of \..\'iFID "=" fileSize('\..\'iFID) 'bytes' /* " root " */
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
fileSize: parse arg f; $=0; do while lines(f)\==0
$=$+length(charin(f,,1e6))
end /*while*/
return $

21
Task/File-size/REXX/file-size-3.rexx
View file

@ -1,11 +1,10 @@
/*REXX pgm to verify a file's size (by reading the lines) on default MD.*/
parse arg iFID /*let user specify the file ID. */
if iFID='' then iFID="FILESIZ DAT A" /*Not specified? Then use default*/
say 'size of' iFID "=" filesize(iFID) 'bytes' /*on the default MD.*/
exit /*stick a fork in it, we're done.*/
/*──────────────────────────────────FILESIZE subroutine─────────────────*/
filesize: parse arg f; $=0; do while lines(f)\==0
$=$+length(linein(f))
end /*while*/
return $
/*REXX program verifies a file's size (by reading all the lines) on the default mDisk.*/
parse arg iFID . /*allow the user specify the file ID. */
if iFID=='' | iFID=="," then iFID='FILESIZ DAT' /*Not specified? Then use the default.*/
say 'size of' iFID "=" filesize(iFID) 'bytes' /*on the default mDisk.*/
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
filesize: parse arg f; $=0; do while lines(f)\==0
$=$+length(linein(f))
end /*while*/
return $