home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
264b.lha
/
Uemacs_v3.10
/
platin.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1989-07-02
|
709b
|
41 lines
; PLATIN.CMD: Pig latin translator
;
; This file creates a macro to assist you in translating
; english to pig latin.
;
; <F1> Translate the current word (from the point)
; <F2> Move to the next word
20 store-macro
end-of-word
previous-word
set-mark
end-of-word
kill-region
set %ucase FALSE
!if &less &asc $kill 96
set %ucase TRUE
!endif
!if ¬ &equ &sindex "aeiou" &left $kill 1 0
yank
insert-string "way"
!else
yank
insert-string &left $kill 1
insert-string "ay"
previous-word
delete-next-character
!endif
next-word
previous-word
!if %ucase
case-word-capitalize
!else
case-word-lower
!endif
next-word
!endm
bind-to-key execute-macro-20 FN1
bind-to-key next-word FN2