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

YAPC::EU 2018 Glasgow Update!

Browse source
This commit is contained in:
Ingy döt Net 2018-08-17 15:15:24 +01:00
parent 22f33d4004
commit 4e2d22a71d
1170 changed files with 15042 additions and 3047 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Task/Word-wrap/REXX/word-wrap-1.rexx
View file

@ -9,8 +9,8 @@ if width=='' | width=="," then width=linesize() /* " " " " "
$=word(@,1) /*initialize $ with the first word. */
do k=2 for words(@)-1; x=word(@,k) /*parse until text (@) exhausted. */
_=$ x /*append it to the $ list and test. */
if length(_)>width then do; say $ /*this word a bridge too far? > w. */
_=x /*assign this word to the next line. */
if length(_)>=width then do; say $ /*this word a bridge too far? > w. */
_=x /*assign this word to the next line. */
end
$=_ /*new words (on a line) are OK so far.*/
end /*m*/

50
Task/Word-wrap/REXX/word-wrap-2.rexx
View file

@ -1,42 +1,42 @@
/*REXX program reads a file and displays it to the screen (with word wrap). */
parse arg iFID width justify _ . /*obtain optional arguments from the CL*/
if iFID=='' | iFID=="," then iFID ='LAWS.TXT' /*Not specified? Then use the defaul.t*/
if width=='' |width=="," then width=linesize() /* " " " " " " */
if right(width, 1)=='%' then width=linesize() * translate(width, , "%") % 100
if justify==''|justify=="," then justify='Left' /*Default? Then use the default: LEFT */
just=left(justify, 1) /*only use first char of JUSTIFY. */
upper just /*be able to handle mixed case. */
if pos(just, 'BCLR')==0 then call err "JUSTIFY (3rd arg) is illegal:" justify
/*REXX program reads a file and displays it to the screen (with word wrap). */
parse arg iFID width kind _ . /*obtain optional arguments from the CL*/
if iFID=='' | iFID=="," then iFID = 'LAWS.TXT' /*Not specified? Then use the default.*/
if width=='' |width=="," then width= linesize() /* " " " " " " */
if right(width, 1) =='%' then width= linesize() * translate(width, , "%") % 100
if kind=='' | kind=="," then kind= 'Left' /*Default? Then use the default: LEFT */
just= left(kind, 1); upper just /*use 1st char of JUSTIFY, uppercased.*/
if pos(just, 'BCLR')==0 then call err "KIND (3rd arg) is illegal:" kind
if _\=='' then call err "too many arguments specified." _
if \datatype(width,'W') then call err "WIDTH (2nd arg) isn't an integer:" width
n=0 /*the number of words in the file. */
do j=0 while lines(iFID)\==0 /*read from the file until End-Of-File.*/
_=linein(iFID) /*get a record (line of text). */
do until _==''; n=n+1 /*extract some words (or maybe not). */
parse var _ @.n _ /*obtain and assign next word in text. */
end /*DO until*/ /*parse 'til the line of text is null. */
end /*j*/
do j=0 while lines(iFID)\==0 /*read from the file until End-Of-File.*/
_=linein(iFID) /*get a record (line of text). */
do until _==''; n= n + 1 /*extract some words (or maybe not). */
parse var _ @.n _ /*obtain and assign next word in text. */
end /*until*/ /*parse 'til the line of text is null. */
end /*j*/
if j==0 then call err 'file' iFID "not found."
if n==0 then call err 'file' iFID "is empty (or has no words)"
$=@.1 /*initialize $ string with first word*/
do m=2 for n-1; x=@.m /*parse until text (@) is exhausted. */
_=$ x /*append it to the $ string and test.*/
if length(_)>width then call tell /*this word a bridge too far? > w */
$=_ /*the new words are OK (so far). */
end /*m*/
do m=2 for n-1; x= @.m /*parse until text (@) is exhausted. */
_= $ x /*append it to the $ string and test.*/
if length(_)>= width then call tell /*this word a bridge too far? > w */
$= _ /*the new words are OK (so far). */
end /*m*/
call tell /*handle any residual words (if any). */
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
err: say; say '***error***'; say; say arg(1); say; say; exit 13
err: say; say '***error***'; say; say arg(1); say; say; exit 13
/*──────────────────────────────────────────────────────────────────────────────────────*/
tell: if $=='' then return /* [↓] the first word may be too long.*/
w=max(width, length($) ) /*don't truncate long words (> w). */
select
when just=='L' then $= strip($) /*left ◄──────── */
when just=='R' then $= right($,w) /*──────► right */
when just=='B' then $=justify($,w) /*◄────both────► */
when just=='C' then $= center($,w) /* ◄centered► */
when just=='R' then $= right($, w) /*──────► right */
when just=='B' then $=justify($, w) /*◄────both────► */
when just=='C' then $= center($, w) /* ◄centered► */
end /*select*/
say $ /*display the line of words to terminal*/
_=x /*handle any word overflow. */
_= x /*handle any word overflow. */
return /*go back and keep truckin'. */

3
Task/Word-wrap/Ring/word-wrap.ring
View file

@ -1,7 +1,4 @@
# Project : Word wrap
# Date : 2018/01/02
# Author : Gal Zsolt (~ CalmoSoft ~)
# Email : <calmosoft@gmail.com>
load "stdlib.ring"