home *** CD-ROM | disk | FTP | other *** search
/ DTP Toolbox / DTPToolbox.iso / propage4.0 / arexx / initialcaps.pprx < prev    next >
Encoding:
Text File  |  1992-03-15  |  1018 b   |  38 lines
  1. /*
  2. @BInitialCaps  @P@ICopyright Gold Disk Inc., February, 1992.
  3.  
  4. This Genie will convert the first letter of each word in a block of text to capital letters. The remainder of the block of text will remain unchanged.
  5. */
  6. if ~show(l, "gdarexxsupport.library") then
  7.    if ~addlib("gdarexxsupport.library", 0, -30) then
  8.       exit_msg("Please install the gdarexxsupport.library in your libs: directory before using this Genie.")
  9.  
  10. if word(ppm_GetState(), 1) ~= 3 then
  11.     exit_msg("You must be in edit mode to run this Genie")
  12.  
  13. text     = ppm_GetBlockText(1)
  14. if text  = '' then exit_msg("No block selected")
  15.  
  16. call ppm_ShowStatus("Working..")
  17.  
  18. do wrd = 1 to words(text)
  19.  
  20.     fcharpos = skipcodes(text, wordindex(text, wrd))
  21.     if fcharpos = 0 then exit
  22.  
  23.     fchar = substr(text, fcharpos, 1)
  24.     text = overlay(upper(fchar), text, fcharpos, 1)
  25. end
  26.  
  27. call ppm_InsertText(text)
  28. call ppm_ClearStatus()
  29. exit_msg()
  30.  
  31. exit_msg: procedure
  32. do
  33.     parse arg message
  34.  
  35.     if message ~= '' then call ppm_ShowStatus(message)
  36.     exit
  37. end
  38.