Re: meall xy

[cld@xxxxxxxx (Carl Distefano)]

Reply to note from "Morris Krok"  Mon, 24 Nov
2003 06:18:25 +0200

Morris:

> You are probably correct in saying that the core code you sent
> me for merging files is not a complete program, yet it does
> serve a purpose of merging files from a directory, where the
> files, the names of which have nothing in common with each
> other.

Fair enough. I'll make the directory procedure an option. See
below for a revised U2 frame. DECODE it, DeFine it and issue
ADD2U2.

Framename MEALL merges files that match the filespec in alphabetical
order by filename.ext (same as before). A new framename, MEDIR,
uses the current Directory Sort order (as set by the DSORT command).
For example, MEDIR d:\xy4\*.pm merges all files with
extension *.PM. If the current DSORT is reverse size order (command
DSORT S,R), the largest matching file is MErged first, followed by
the next largest, etc. Issue a new DSORT command, and the MErge
order will change accordingly.

> When I did use Meall, I find that it does not show the tab
> spaces, but only the ascii character for it, (the round ring).

What doesn't show the tab spaces? MEALL|MEDIR doesn't change the
display or the contents of any MErged file. If you're seeing tab
characters, it seems to me it's either because of eXPanded view or
because the tab characters are 3-byte, printable tab symbols (FF 30
39 in a hex viewer), not 1-byte Ascii-9's. Unless I misunderstand.

Here is the revised frame:

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5MEall*,MEdir*}} MErge all files that match given filespec
(s) [CLD Rev.11/24/03][cr|lf]{002};*; MEALL: Merge files in a
lphabetical order by filename.ext[cr|lf];*; MEDIR: Merge fil
es in current Directory Sort order[cr|lf][XH_]{<}IF{<}VA|50{>
}<1{>}{<}PRMEALL[/F] [filespec1[,filespec2,...]]{>}{
<}EX{>}{<}EI{>};*;[cr|lf]{<}SU01,{<}SX02,{<}VA$WA{>}{>}{<}IF{
<}PV02{>}<1{>}{<}PRNo window{>}{<}EX1{>}{<}EI{>}[BX_]func #{<
}PV02{>}[Q2_]{>}{<}IF{<}VA$WS{>}<>1{>}{<}GT01{>}[BX_]ne/100[Q
2_]{<}EI{>}{<}SX03,{<}VA$WN{>}{>}[BX_]es 1[Q2_];*;[cr|lf]{<}G
T01{>}{<}SV01,,{>}{<}LBa{>}{<}IF{<}VA|50{>}>0{>}{<}IF{<}IS50{
>}{240}","{>}{<}SV04,{>}{<}XS50,01,05,,04{>}{<}SX50,{<}IS04{>
}{>}{<}GLb{>}{<}EI{>}{<}SX05,{<}IS50{>}{>}{<}SV50,{>}{<}LBb{>
}{<}IF@upr({<}VA$FR{>}){240}"ALL"{>};*;[cr|lf];*; [BX_]ca 1:\
?[Q2_];*; Clear [EN_][cr|lf][BX_]ca/100 {<}PV05{>}[Q2_]{<}LBc
{>}{<}IF{<}ER{>}{>}{<}GLa{>}{<}EI{>};*;[cr|lf]{<}SX02,{<}VA$W
N{>}{>}{<}SX04,{<}VA$FP{>}{>}[BX_]func #{<}PV03{>}[Q2_]{<}IF{
<}VA$FR{>}{240}"/"{>}- {<}GT04{>} -[255+048+068]{<}EI{>}[BX_]
me {<}PV04{>}[Q2_][BX_]wait[Q2_][BX_]func #{<}PV02{>}[Q2_][EN
_]{<}GLc{>}{<}EI{>};*;[cr|lf][BX_]dir {<}PV05{>}[Q2_]{<}IF{<}
ER{>}{>}{<}GLa{>}{<}EI{>}{<}LBd{>}{<}SX02,{<}VA$DR{>}{>}[BX_]
exist {<}PV02{>}[Q2_]{<}IF@not({<}ER{>}){>}[AS_]{<}IF{<}VA$FR
{>}{240}"/"{>}- {<}GT02{>} -[255+048+068]{<}EI{>}[BX_]me {<}P
V02{>}[Q2_][BX_]wait[Q2_][AS_][LD_]{<}GLd{>}{<}EI{>}[BX_]ab/n
v[Q2_]{<}GLa{>}{<}EI{>}{<}IF{<}VA$WS{>}<>1{>}[BX_]rs[Q2_]{<}E
I{>}{<}PRDone{>}{002}[cr|lf][cr|lf]
-nd
XPLeNCODE

--
Carl Distefano
cld@xxxxxxxx