Incluindo justificação no script exemplo do clipboard

perry.werneck@gmail.com
1 parent 6c609219
Showing 1 changed file with 34 additions and 3 deletions Show diff stats
src/plugins/rx3270/sample/clipboard.rex
@@ -29,8 +29,7 @@
  cursor = host~GetCursorAddr()
  next   = cursor
- while text <> ""
- do
+ do while text <> ""
     addr = host~GetFieldStart(next)
     next = host~GetNextUnprotected(addr)
@@ -51,7 +50,7 @@
     when length(text) < field_len then
     do
-        s = strip(text)
+        s = justify(strip(text),field_len)
         text = ""
     end
@@ -80,6 +79,38 @@
 return 0
+justify: procedure
+
+    use arg text, len
+
+    wlen = words(text)
+    if wlen < 3
+        then return text
+
+    ln = .array~new()
+    sz = 0
+
+    do f = 1 to wlen
+        ln[f] = word(text,f)||" "
+        sz  = sz + length(ln[f])
+    end
+
+    do while sz < len
+        do f = wlen-1 to 1 by -1
+            ln[f] = ln[f]||"."
+            sz = sz+1
+            if sz >= len
+                then leave
+        end
+    end
+
+    str = ""
+    do f = 1 to wlen
+        str = str||ln[f]
+    end
+
+return strip(str)
+
 ::requires "rx3270.cls"
	@@ -29,8 +29,7 @@		@@ -29,8 +29,7 @@
29	cursor = host~GetCursorAddr()	29	cursor = host~GetCursorAddr()
30	next = cursor	30	next = cursor
31		31
32	- while text <> ""
33	- do	32	+ do while text <> ""
34	addr = host~GetFieldStart(next)	33	addr = host~GetFieldStart(next)
35	next = host~GetNextUnprotected(addr)	34	next = host~GetNextUnprotected(addr)
36		35
	@@ -51,7 +50,7 @@		@@ -51,7 +50,7 @@
51		50
52	when length(text) < field_len then	51	when length(text) < field_len then
53	do	52	do
54	- s = strip(text)	53	+ s = justify(strip(text),field_len)
55	text = ""	54	text = ""
56	end	55	end
57		56
	@@ -80,6 +79,38 @@		@@ -80,6 +79,38 @@
80		79
81	return 0	80	return 0
82		81
		82	+justify: procedure
		83	+
		84	+ use arg text, len
		85	+
		86	+ wlen = words(text)
		87	+ if wlen < 3
		88	+ then return text
		89	+
		90	+ ln = .array~new()
		91	+ sz = 0
		92	+
		93	+ do f = 1 to wlen
		94	+ ln[f] = word(text,f)\|\|" "
		95	+ sz = sz + length(ln[f])
		96	+ end
		97	+
		98	+ do while sz < len
		99	+ do f = wlen-1 to 1 by -1
		100	+ ln[f] = ln[f]\|\|"."
		101	+ sz = sz+1
		102	+ if sz >= len
		103	+ then leave
		104	+ end
		105	+ end
		106	+
		107	+ str = ""
		108	+ do f = 1 to wlen
		109	+ str = str\|\|ln[f]
		110	+ end
		111	+
		112	+return strip(str)
		113	+
83	::requires "rx3270.cls"	114	::requires "rx3270.cls"
84		115
85		116