37 lines
		
	
	
	
		
			884 B
		
	
	
	
		
			Bash
		
	
	
	
	
	
			
		
		
	
	
			37 lines
		
	
	
	
		
			884 B
		
	
	
	
		
			Bash
		
	
	
	
	
	
| # meta.bash --- meta key frobnications
 | |
| # Author: Noah Friedman <friedman@prep.ai.mit.edu>
 | |
| # Created: 1992-06-28
 | |
| # Last modified: 1993-01-26
 | |
| # Public domain
 | |
| 
 | |
| # Commentary:
 | |
| # Code:
 | |
| 
 | |
| #:docstring meta:
 | |
| # Usage: meta [on|off]
 | |
| # 
 | |
| # An argument of "on" will make bash use the 8th bit of any input from
 | |
| # a terminal as a "meta" bit, i.e bash will be able to use a real meta
 | |
| # key.
 | |
| #
 | |
| # An argument of "off" causes bash to disregard the 8th bit, which is
 | |
| # assumed to be used for parity instead.
 | |
| #:end docstring:
 | |
| 
 | |
| function meta ()
 | |
| {
 | |
|       case "$1" in
 | |
|          on) bind 'set input-meta On'
 | |
| 	     bind 'set output-meta on'
 | |
| 	     bind 'set convert-meta off' ;;
 | |
|          off) bind 'set input-meta Off'
 | |
| 	      bind 'set output-meta off'
 | |
| 	      bind 'set convert-meta on' ;;
 | |
|          *) echo "Usage: meta [on|off]" 1>&2 ; return 1 ;;
 | |
|       esac
 | |
|       return 0
 | |
| }
 | |
| 
 | |
| provide meta
 | |
| 
 | |
| # meta.bash ends here
 | 
