In a message dated 01-15-99, Francois Thunus said to David Noon about
"Pl/I"

Hi Francois,

FT>so much for not reading completely the problem before answering :-)

>----- Begin -----

FT>function UpStr(instring:string):string;
FT> var
FT>  i    : byte;
FT>begin
FT> for i:=1 to length(instring) do
FT>      instring[i]:=upcase(instring[i]);
FT> UpStr:=instring;
FT>end;

>-----  End  -----

You still need ParamCount instances of ParamStr() calls to obtain the
"bleeding chunks" of your original parameter string and a WRITELN() call to
display it.

My version:

============================ TOUPPER.PAS ===================================
PROGRAM toupper;

USES System; { Needed for ParamCount and ParamStr(). }

FUNCTION UpStr(CONST Instring : STRING) : STRING;
VAR
  p : INTEGER;
BEGIN
  RESULT[0] := Instring[0]; { Copy length byte without translation }
  FOR p :=  1 TO LENGTH(Instring) DO
    RESULT[p] := Upcase(Instring[p])
END;

VAR
  i : INTEGER;
  ParmStr : STRING;
BEGIN
  IF ParamCount = 0 THEN
    ParmStr := ''
  ELSE
  BEGIN
    ParmStr := ParamStr(1);
    { We will _guess_ that each piece was separated by a single blank }
    FOR i := 2 TO ParamCount DO
      ParmStr := ParmStr + ' ' + ParamStr(i)
  END;
  WRITELN(UpStr(ParmStr))
END.
============================================================================

Now, how does this compare to Murray's complete program? His contained
exactly 1 line of executable code, which did all of the above.

 DN> lost the spacing information! Since, under OS/2, filenames can contain
 DN> spaces and the spaces are significant

FT>mmmm. I'm not sure I understand the probelm. what is 
FT>preventing you from using temp variable or to treat each 
FT>chunk separately and then piece it back
FT>together ?

You don't know how many spaces were between each of the pieces [which is why
I underscored the word _guess_ in my program's comments] and, as I said
above, spaces are significant.

Regards

Dave

___
 * MR/2 2.25 #353 * If Windows is User-Friendly, why do you need to read a
678 pg. manual?

--- Maximus/2 3.01