Google
 
Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/sketch.elib
There are no other files named sketch.elib in the archive.
PW
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   }~UH

(,%.?FK\]fks
j$,*90@lIT
q\#hhsH$c
$!$5/#?={I#O]$l 6"

uk >$#z3$6A$TF^Ae&R& Edit Sketch& Find Next Sketch& Find Sketch& Hack Sketch Var& Insert Sketch!& Interactive Hack Sketch Var& List Sketch Library"& Prepare Sketch Library Visit& Process Sketch& Setup Sketch Library& Sketch Library Prompt& Sketch Prompt& Sketch Set File Defaults& Sketch Var Help& View SketchCreate Sketch LibraryEdit SketchInsert SketchList Sketch LibraryView SketchVisit Sketch Library^R Sketch Dispatch ^R Sketch Insert or Dispatch~DIRECTORY~~DOC~ & Edit Sketch~DOC~ & Find Next Sketch~DOC~ & Find Sketch~DOC~ & Hack Sketch Var~DOC~ & Insert Sketch'~DOC~ & Interactive Hack Sketch Var~DOC~ & List Sketch Library(~DOC~ & Prepare Sketch Library Visit~DOC~ & Process Sketch ~DOC~ & Setup Sketch Library!~DOC~ & Sketch Library Prompt~DOC~ & Sketch Prompt$~DOC~ & Sketch Set File Defaults~DOC~ & Sketch Var Help~DOC~ & View Sketch~DOC~ Create Sketch Library~DOC~ Edit Sketch~DOC~ Insert Sketch~DOC~ List Sketch Library~DOC~ View Sketch~DOC~ Visit Sketch Library~DOC~ ^R Sketch Dispatch&~DOC~ ^R Sketch Insert or Dispatch~DOC~ ~Filename~~Filename~

~INVERT~0fo..QLast Sketch Namem.vLast Sketch Name
0fo..QLast Sketch Library Namem.vLast Sketch Library Name
m(@:i*|m.m^R Sketch Insert or Dispatchu...S|fo..QSketch Setup Hook)
:i*.[0[1
g1+q0j
q0,fq1
fo..QSketch Insert Hookm.vSketch Insert HookYff&2"e
fnq..H"n0u..H@v''
m.m& Insert Sketch,(:i*Insert):m(m.m& Sketch Prompt)01,m(m.m& Find Sketch)mSketch Insert HookJfnq..H"n0u..H@v'
m.m& Edit Sketch,(:i*Edit):m(m.m& Sketch Prompt)7[0[1
[..J
0[..F
u0
!Retry!
qLast Sketch Library Nameu1
q1"e
@m(m.mVisit Sketch Library)
oRetry'
e[fne]
e\fne^
f[dfile
f[bbind
er1@yj
0f[modifiedw0f[xmodifiedw
:s

0
"l
:i..J(Editing Sketch "0")!''!
.,(s

r.)fsbound'
"#:s

:"lzji

'
g0i

r
:i..J(Creating Sketch "0")!''!
.,(i~.)fsbound'
[Cfsosteco"e:iCC'"#:iCZ'
:i..J..J  "~" marks point, c-m-C exits, c-] aborts!''!
q..H"n0u..H@v'

et1
0,(fsz)fsbound
ewhpef
fsofile
:i*CSketch Library "O" Written
!''!fsechodisw0fsechoactive
0Jfnq..H"n0u..H@v'
m.m& View Sketch,(:i*View):m(m.m& Sketch Prompt)`[0[1
0f[^RStar
u0:i*(Sketch "0")!''![..Jfr
q0m(m.m& Find Sketch)u1
ft1
:fiw
0D[L[P[N
:f"l
uP
qLast Sketch NameuL
:iPP Sketch
fqL:"l:iPP (L)'
1,m(m.m& Read Line)P: uN'
"#:iN'
fqN"l-1'
fqN"eqLast Sketch NameuN'
"#qNuLast Sketch Name'
qNm()\[0[1
u0
qLast Sketch Library Nameu1
q1m(m.m& Prepare Sketch Library Visit)
<m(m.m& Find Next Sketch)
z@;1:f~0"e
,m(m.m& Process Sketch)
.,(hfx*)'
>
:i*NST	No such sketch "0" in "F"fserr!''''!j[L[P[N
m(m.m& Sketch Set File Defaults)
qLast Sketch Library NameuL
qL"nqLfsdfile'
:f"l
uP
5,m(m.m& Read Line)P Sketch LibraryuN
fqN"l-1''
"#:iN'
fqN"getN'
fsdfilef(uN)uLast Sketch Library Name
qNm()w[Last Sketch Library Name
fnq..H"n0u..H@v'
m.m& List Sketch Library,(:i*List):m(m.m& Sketch Library Prompt)m(m.m& Prepare Sketch Library Visit)
ftSketches in file "F"...
!''!
<m(m.m& Find Next Sketch)
z@;
ft t>
ft----------

:fiw
0rf[bbind
f[dfile
e[fne]
[F
<qF@:;
@m(m.mVisit Sketch Library)
qLast Sketch Library NameuF>
erFa+hk
<azj0,0a-

"nhk0;'
0,-1a-:@;>
j[Last Sketch Name
[0[1
-1u0
jk
zj0a-

"noFormatErr'
-dj
<:s~<!>!;
0a-"e-dc'
"#0a-~"e
q0:"loFormatErr'
"#-d.u0''
"#0a-<!>!"e"n-d.,(
!<!s>-d
.)fx*m(m.m& Hack Sketch Var)''''>
q0"lzj'"#q0j'
!FormatErr!
:i*FMT	Bad format in sketch entryfserrftYou are being asked for a filler for the "V" field
of a sketch...
 
Type text to be used in this sketch field (ended by Return),
!''!
ff"n
ft or type Control-R to be able to type this text into an editor buffer,
 or type Altmode to use a sketch to fill this field,
'
ft or type Return to use the defaultI,
 or type Rubout to ignore this field for now.
----------
)[0
0:g0-@"e1,fq0:g0u0g(:i*fo..QSketch 0 Var)'
0:g0-:"e.[1z[Zz-.[2
1,fq0:g0u0m(:i*mm0)
.-q1"ez-qZ"nz-q2j'''
q0:m(m.m& Interactive Hack Sketch Var)E[V[1[I[3[C
uV
0fo..QSketch V Varu1
fq1"l:iI'"#:iI (1)'
!Prompt!
:i*CVI? fsEchoDis
fiuC
qC-"e!Ignore!
.(i<V>),.'
qC-"e
f[bbind
[Cfsosteco"e:iCC'"#:iCZ'
:i*(Filler for "V") End with c-m-C  !''![..J
q..H"n0u..H@v'
]..J]Cwg(hfx*(f]bbindw))'
qC-"e
1,@m(m.mInsert Sketch):"l'
oPrompt'
(qC-?)*(qC-)*(qC-4110.)"e
1m(m.m& Sketch Var Help)
oPrompt'
qc-

"eoPrompt'
qC- "e-1uC'
qCfsreread
m.m& Sketch Var Helpf[Helpmac
1,m(m.m& Read Line)VI: u3
fq3"loIgnore'
!Default!
fq3"gq3u1'
q1"nq1m.vSketch V Var
g1'
fnq..H"n0u..H@v'
f[dfile
m(m.m& Sketch Set File Defaults)
5,fVisit Sketch Library
etL
fsdfileuL
e?"n
@ftSketch library "L" doesn't exist.  Create?!'!
1m(m.m& Yes or No)"nm(m.mCreate Sketch Library)L''
fsdfileuLast Sketch Library Name
0<fnq..H"n0u..H@v'
e\fne^
f[Dfile
m(m.m& Sketch Set File Defaults)
5,fCreate Sketch Library
qLfsdfile
f[bbind
i-*- Text -*-  This is an Emacs SKETCH library.
Created 
m(m.mInsert Date)
zji by g(fsuname:f6)i.

ewhpef
fsofileuL
@ftSketch Library "L" created.
!''!0fsechoactive
0Aff"n@:m(m.m^R Sketch Dispatch)'
"#@:m(m.mInsert Sketch)';
[0[1
60:"e
!Prompt!
:i*CSketch Command: fsEchoDisplay'
!Retry!
fi:fcu0
q0-E"e
f@:m(m.mEdit Sketch)'
q0-I"e
f@:m(m.mInsert Sketch)'
q0-V"e
f@:m(m.mView Sketch)'
q0-

"e
f@:m(m.mList Sketch Library)'
q0-"e
f@:m(m.mVisit Sketch Library)'
q0-Q"e0'
q0-H"e
[LftTo use a sketch, you must visit a sketch library.
Currently, you are 
qLast Sketch Library NameuL
qL"nftvisiting the sketch library "L".!''!'
"#ftnot visiting any sketch library.'
ft
You can visit qL"nftanother '"#fta '
ftsketch library by typing c-V now.
You can list the contents of a library by typing c-L now.
 

qL"nftSince '"#ftOnce '
ftyou have visited a library, you can insert a sketch from
that library by typing I
qL"nft now'
ft.  To create a new sketch or modify
an existing one, you can type E
qL"nft now'
ft.  Or, if you just want
to see an existing sketch without inserting it, you can type V
qL"nft now'
ft.
----------

]LoPrompt'
(q0-?)*(q0-)"e
ftSketch commands:
   E  Edit (or create) Sketch
   I  Insert Sketch
   V  View Sketch
 
Sketch Library Commands:
 c-L  List Sketch Library
 c-V  Visit Sketch Library
 
Type H for more info.  Type Q to exit this mode.
----------

oPrompt'
fg
:i*CSketch Command (E, I, V, c-L, c-V, or ?): fsEchoDisplay
oRetrywqLast Sketch Library Namef"nfsdfile'
"#wfshsnamefsdsname
fsxunamefsdfn1
0fsversion
f6SKETCHfsdfn2'

SKETCH$Macros for hacking text sketches%S Set up this library after load  C Insert a named text sketch5S Insert a sketch with a given name (numeric arg)C Edit a named text sketch3S Edit a sketch with a given name (numeric arg)C View a named text sketch3S View a sketch with a given name (numeric arg)S Prompt for name and call continuation 
Continuation (a macro) is arg1; prompt type (a string) is arg2. 
Returns -1 on failure (over-rubout to prompt)	(S Return a sketch with a given name uS Prompt for library name and call continuation
Continuation (a macro) is arg1; prompt type (a string) is arg2. -C List the contents of the sketch library7S List a library's contents (name is numeric arg2) %S Set up for sketch library perusal
Gets a fresh (temp) buffer and opens the library. Calls to
& Find Next Sketch will visit successive entries in the library.sS Visit the next sketch in an open library.
The library must have been opened by & Prepare Sketch Library Visit.
If no next sketch is found, the buffer is left empty; a sketch will
always have at least one char, so this isn't ambiguous.^S Scan the current sketch removing syntactic markers.
Kill the sketch's name, the trailing c-L, hack c-Q's and maybe variables.
With a precomma arg, also processes <varname>'s, prompting for values in the
echo area.S Give help with sketch var prompt
qV must be set up with the var name and qI with default info (either a null
string or something preceded by a space)S Hack sketch meta-quantityVS Prompt for and insert named text (numeric arg2)
Uses sticky defaulting on names%C Makes a sketch library current  C Makes a new sketch library4^R Insert sketch, or (with arg) menu of commands-^R Dispatch to appropriate sketch command,S Set file defaults for a Sketch library_& Setup Sketch Library
Insert Sketch
& Insert Sketch
Edit Sketch
& Edit Sketch
View Sketch
& View Sketch
& Sketch Prompt
& Find Sketch
& Sketch Library Prompt
List Sketch Library
& List Sketch Library
& Prepare Sketch Library Visit
& Find Next Sketch
& Process Sketch
& Sketch Var Help
& Hack Sketch Var
& Interactive Hack Sketch Var
Visit Sketch Library
Create Sketch Library
^R Sketch Insert or Dispatch
^R Sketch Dispatch
& Sketch Set File Defaults
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2