Re: Camel Case

[Emil Sommarström <emil.sommarstrom@xxxxxxxxx>]

More samples:)

     ptoNameCase...
     p                 b
     d                 pi           200a   varying
     d name                         200a   value varying

     d uc              c                   'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
     d lc              c                   'abcdefghijklmnopqrstuvwxyz'
     d pos             s              5u 0
      /free

       name = %xLate(uc:lc:%trim(name));
       dou pos = 0;
         pos += 1;
         %subst(name:pos:1) = %xLate(lc:uc:%subst(name:pos:1));
         pos = %scan(' ':name:pos);
       endDo;
       return name;

      /end-free
     p                 e



On Thu, Feb 9, 2012 at 2:58 AM, Shannon ODonnell
<sodonnell@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote:
> Thanks!
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of sjl
> Sent: Wednesday, February 08, 2012 3:34 PM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: Re: Camel Case
>
> Here is what I was going to suggest:
>
> I would store the conversion information in a dictionary file as pairs of
> data, with the "From" word in all caps. In order to perform conversion, take
> a word from the string being converted and convert the value to all caps,
> then CHAIN to the dictionary file with the value in all caps.
>
> If found, the "to" value would be returned in CamelCase format.
>
>
> Sample Dictiionary file DDS:
>
>                                            UNIQUE
>                R @XLAT
>                  WORDFROM     60A
>                  WORDTO          60A
>
>                K WORDOLD
>
>
> Example data:
> WORDFROM     WORDTO
> ------------------    ------------
> AGRIFINANCE AgriFinance
>
>
> WORDFROM
> ---------------------------------------------------------
> THATWASTHEQUESTIONIWASGOINGOTASK
>
> WORDTO
> -------------------------------------------------------
> ThatWasTheQuestionIWasGoingToAsk
>
> - sjl
>
>
> Matt wrote:
>  If it's the first item from sjl then I would just create a dictionary of
>  either upper or lower cased words and their mixed case counter parts.
>
>
>
> --
> This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or
> change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives at
> http://archive.midrange.com/rpg400-l.
>
> --
> This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.