Readline interface: Difference between revisions
Content added Content deleted
(forced table of contents (with a _toc_ keyword). -- ~~~~) |
m (→{{header|REXX}}: simplified the unAbbrev subroutine. -- ~~~~) |
||
Line 262: | Line 262: | ||
select |
select |
||
when abbrev('CALENDAR',ccc,3) then return 'CAL' |
when abbrev('CALENDAR',ccc,3) then return 'CAL' |
||
when abbrev('CLEARSCREEN',ccc,5) |
when abbrev('CLEARSCREEN',ccc,5) then return 'CLS' |
||
ccc='CLS' then return 'CLS' |
|||
when abbrev('HISTORY',ccc,4) then return 'HISTORY' |
when abbrev('HISTORY',ccc,4) then return 'HISTORY' |
||
when abbrev('HELP',ccc,1) |, |
when abbrev('HELP',ccc,1) |, |
||
ccc=='?' then return 'HELP' |
ccc=='?' then return 'HELP' |
||
when abbrev('KEDIT',ccc,1) then return 'KEDIT' |
when abbrev('KEDIT',ccc,1) then return 'KEDIT' |
||
when ccc=='PROMPT' then return 'PROMPT' |
|||
when abbrev('QUIT',ccc,1) then return 'QUIT' |
when abbrev('QUIT',ccc,1) then return 'QUIT' |
||
when abbrev('REXX',ccc,1) then return 'REXX' |
when abbrev('REXX',ccc,1) then return 'REXX' |
||
when abbrev('TYPE',ccc,1) then return 'TYPE' |
when abbrev('TYPE',ccc,1) then return 'TYPE' |
||
otherwise nop |
otherwise nop |
||
end |
end |