home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 531.lha / TurboText_Utils / ByeLSE / PatchLC.ttx < prev    next >
Encoding:
Text File  |  1991-07-04  |  1.2 KB  |  74 lines
  1.  
  2. /*
  3.  *     $VER: lsx.ttx 1.0 (30.05.91)
  4.  * 
  5.  *    Tabsize = 4
  6.  *  
  7.  *     Patch LC to invoke TTX instead of LSE - use at own discretion
  8.  *     
  9.  *     Backups are advisable... No error checking whatsoever.
  10.  *     
  11.  *  
  12.  *     Written by J. L. Moulton
  13.  * 
  14.  *  For SAS 5.10a - Haven't checked earlier versions.
  15.  */
  16.  
  17.  
  18. options results
  19. invkport = address()
  20.  
  21.  
  22. address value invkport
  23.  
  24. /* Save prefs */
  25.  
  26. GetPrefs FindBackward
  27. fbw = result
  28. GetPrefs StripEOLBlanks
  29. seb = result
  30. GetPrefs TranslateCRs
  31. tcr = result
  32. GetPrefs FindWholeWords
  33. fww = result
  34. GetPrefs FindIgnoreCase
  35. fic = result
  36. GetPrefs FindIgnoreAccents
  37. fia = result
  38. GetPrefs MakeBackups
  39. mbu = result
  40.  
  41.  
  42. /* Change prefs */
  43.  
  44. SetPrefs FindBackward OFF
  45. SetPrefs StripEOLBlanks OFF
  46. SetPrefs TranslateCRs OFF
  47. SetPrefs FindWholeWords OFF
  48. SetPrefs FindIgnoreCase OFF
  49. SetPrefs FindIgnoreAccents ON
  50. SetPrefs MakeBackups OFF
  51.  
  52. /* Backup and patch lc */
  53.  
  54. OpenDoc NAME 'LC:lc'
  55. cprt = result
  56. address value cprt
  57. SaveFileAs NAME 'LC:OLDlc'
  58. FindChange FIND '"run >nil: lse"' CHANGE 'TTX Macro lsx'
  59. SaveFileAs 'LC:lc'
  60. CloseDoc
  61.  
  62. /* Restore prefs */
  63.  
  64. address value invkport
  65.  
  66. SetPrefs FindBackward fbw
  67. SetPrefs StripEOLBlanks seb
  68. SetPrefs TranslateCRs tcr
  69. SetPrefs FindWholeWords fww
  70. SetPrefs FindIgnoreCase fic
  71. SetPrefs FindIgnoreAccents fia
  72. SetPrefs MakeBackups mbu
  73.  
  74.