Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/teach-c100.elib
There are no other files named teach-c100.elib in the archive.
PW[0 +8+fq(+4)[1
fq1"l 0'
	h,=-FiM_;pIz3*>tJTa[K& Compile C100 Key Buffer& Make C100 Key File ..D"& Make C100 Key Name Variables& Setup TEACH-C100 Library#Insert Teach-C100 Teco Commands!Make C100 Key Definition FileShow C100 Keys~DIRECTORY~#~DOC~ & Compile C100 Key Buffer"~DOC~ & Make C100 Key File ..D(~DOC~ & Make C100 Key Name Variables$~DOC~ & Setup TEACH-C100 Library)~DOC~ Insert Teach-C100 Teco Commands'~DOC~ Make C100 Key Definition File~DOC~ Show C100 Keys~DOC~ ~FILENAME~~FILENAME~
~INVERT~TEACH-C100iftThe buffer should contain either a VARS file (EVARS on ITS), or an init
file.  Teach-C100 needs to know which it is, so it can use the proper format.
It the buffer a VARS file
m(m.m& Yes or No)"n
	The following lines of Teco code reads in the C100 key definition file
	and blast it out to the terminal in image mode; this is only done if
	the terminal type is C100:
*: fsRGETTY-15"e f[BBind f[DFile er @y hx*fsImageOutw f]DFile f]BBind'

      !* The following 4 lines of Teco code read in the C100 key definition
	 * file and blast it out to the terminal in image mode.  This is only
	 * done if the terminal type is C100.!
     fsRGETTY-15"e			!* If C100...!
	f[BBind f[DFile er @y	!* then read file,...!
	hx*fsImageOutw		    	!* blast it out...!
	f]DFile f]BBind'		!* and then restore things.!
 "[1[2[3 f[DFile
 etDSK: fsHSNamefsDSNamew etC100-KEYS >
m(m.m& Read Filename)Source filef"e'u1
m(m.m& Read Filename)Object filef"e'u2
e[ e\ fn e^ e]
er1 @y
fsIFileu3 :ftCompiling 3...
    1f<!Abort Teach-C100!
       1m(m.m& Compile C100 Key Buffer)u1
et2 eihpef
fsOFileu3 ft done.
Image file is 3.
Total use of local memory will be  q1:= ft characters.

Should the keys be redefined now
1m(m.m& Yes or No)"n
 k:ftType a Control-G to quit out of this.

 <  fim(m.m& Charprint)
 	[1[2[3[4[5[..d 0f[VB 0f[VZ
 m(m.m& Make C100 Key File ..D)u..d
m(m.m& Make C100 Key Name Variables)
j :< @f
	 l .-z;
** Syntax is not a buffer of balanced s-expressions.  Check for any suspicious
   use of %, the quote character.  E.g. if you want a % in your string, you
   need to use %%.  Aborting compilation.
f;Abort Teach-C100'
j @i|U$|
<  0fsVZw @f
	 k .-z;
:i*Encountered something other than "(" at top levelfsErr
@fl fsBoundariesw
c @flf(x1)l
f=1*"e hk !<!>'
f~1Transmit"n f~1Local"n f~1Quote"n
:i*1 illegal CAR of form -- use *, Transmit, Quote, or LocalfsErr
f~1Quote"e -1u4'
"# f~1Transmit"e 34u4'
"# 35u4''
:@fll @flf(x1)l
"n ft1, '
0fo..qC100K 1 Xu2
q2"e :i*1 is not a legal C100 key namefsErr''
:@fll 0,1a-""n :i*String does not begin with a "fsErr!'!
		     ' !'!
fq3-1:g3-""n :i*String does not end with a "fsErr!'!
		   ' !'!
hk g3 jd zj-d
j <:s
      ; fkd 15.i>
j <:s%; -d c >
fq3-95"g !"!:i*1's string is too long -- max length is 95fsErr'
g3' >
:i*                                                                                                                                        A                             A    |    A         /    A    '    (    )    A    A         A         A   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA    A    A    A    A    A    A    A   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA    A    A    A    A    A    A   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA    A    A    A    A         *@fn|
:fo..qC100K *5,(
48 m.vC100K INSRT Xw
 49 m.vC100K DEL-CHAR Xw
 50 m.vC100K DEL-LINE-INS Xw
 51 m.vC100K EOP-CLEAR-EOL Xw
 52 m.vC100K SEND Xw
 53 m.vC100K F1 Xw
 54 m.vC100K F2 Xw
 55 m.vC100K F3 Xw
 56 m.vC100K F4 Xw
 57 m.vC100K F5 Xw
 58 m.vC100K F6 Xw
 59 m.vC100K F7 Xw
 60 m.vC100K F8 Xw
 61 m.vC100K F9 Xw
 62 m.vC100K F10 Xw
 63 m.vC100K F11 Xw
 64 m.vC100K F12 Xw
 65 m.vC100K F13 Xw
 66 m.vC100K F14 Xw

 32 m.vC100K SHIFT-INSRT Xw
 33 m.vC100K SHIFT-DEL-CHAR Xw
 36 m.vC100K SHIFT-SEND Xw
 37 m.vC100K SHIFT-F1 Xw
 38 m.vC100K SHIFT-F2 Xw
 39 m.vC100K SHIFT-F3 Xw
 40 m.vC100K SHIFT-F4 Xw
 41 m.vC100K SHIFT-F5 Xw
 42 m.vC100K SHIFT-F6 Xw
 43 m.vC100K SHIFT-F7 Xw
 44 m.vC100K SHIFT-F8 Xw
 45 m.vC100K SHIFT-F9 Xw
 46 m.vC100K SHIFT-F10 Xw
 47 m.vC100K SHIFT-F11 Xw
 67 m.vC100K SHIFT-F12 Xw
 68 m.vC100K SHIFT-F13 Xw
 69 m.vC100K SHIFT-F14 Xw

 :*0fo..qTEACH-C100 Setup Hookf"n[0m0w'*Library for defining Concept-100 keys.DC String argument is definition filename.
Note that the string argument should be the name of the OBJECT file, the file
    produced by the M-X Make C100 Key Definition File command.
This command inserts into the buffer (which should be your init or VARS file
    -- it asks you which) a couple of lines of Teco commands that will read in
    a C100 key definition file, and type it to the terminal (in image mode) in
    order to define the C100 keys.
The Teco code includes a conditional so that the file is only printed if the
    terminal that you are using is a Concept-100.
See the description of MM Make C100 Key Definition File to find out how to
    create a c100 key definition file.>C Asks for source and object filenames.
Asks for a source file, which contains InterLisp-like forms that define what
    keys should be redefined to send.
Asks for the object file, which will contain the exact string to send to
    the terminal to define the keys.  See the Insert Teach-C100 Teco Commands
    function for inserting something into your EMACS init file.
Finally, after compiling, asks if it should redefine the keys now.FC Until user types Control-G.
Prints description of each character of key as user types it, with each
    character separated by a space, e.g. it might print "Altmode X t o p
    Altmode" if you type a key which sends "Xtop".
If nothing is received after a second, it figures the key is done sending
    things, and it prints a carriage-return linefeed.
For example, if you want to see what the F1 and F2 keys send, type F1, look at
    the sequence it prints, wait a second, type F2, look at the sequence, and
    then end by aborting the command by typing Control-G.HS Convert lispish buffer to image string.
NUMARG non-0 says to type names of keys as they are compiled, so that if an
    error occurs, the user has some idea where.
If first syntax-check fails, we print help and throw to Abort Teach-C100.
Returns total local memory use, i.e. sum of lengths of all redefinition
strngs.S Return a suitable ..D.aS Give them number translations.
Set up ..N to kill the variables later when caller returns.^S IVORY-Generated Setup -- Calls hook.
This object file was compressed on 3:31pm  Thursday, 14 October 1982
by ECC on MIT-OZ from the following source libraries:

   PS:<EMACS>TEACH-C100.EMACS.21,	06/09/82 13:46:17EInsert Teach-C100 Teco Commands
Make C100 Key Definition File
Show C100 Keys
& Compile C100 Key Buffer
& Make C100 Key File ..D
& Make C100 Key Name Variables
& Setup TEACH-C100 Library
\+8+fq(+4)[2 0[3
< %3,-q2f2u3 q3&1@; q3"l 0' >
f[BBind q3-1*5,q3*5g2 q:..o(0)+q2