blob: 845db256ffa3b6ac1ae5fabe7afa4730557fb4f8 (plain)

ofs	hex dump	ascii
0000	21 2a 20 4d 61 63 72 6f 73 20 66 6f 72 20 73 61 76 69 6e 67 20 61 6e 64 20 6c 6f 61 64 69 6e 67	!*.Macros.for.saving.and.loading
0020	20 62 75 66 66 65 72 20 73 65 73 73 69 6f 6e 73 20 2a 21 0a 0a 21 2a 0a 20 2a 20 50 61 74 68 20	.buffer.sessions.*!..!*..*.Path.
0040	6f 66 20 74 68 65 20 73 65 73 73 69 6f 6e 20 70 72 6f 66 69 6c 65 2e 0a 20 2a 20 43 68 61 6e 67	of.the.session.profile...*.Chang
0060	65 20 74 68 69 73 20 74 6f 20 73 61 76 65 2f 6c 6f 61 64 20 61 20 63 75 73 74 6f 6d 20 70 72 6f	e.this.to.save/load.a.custom.pro
0080	66 69 6c 65 2e 0a 20 2a 20 49 66 20 65 6d 70 74 79 20 6f 72 20 75 6e 64 65 66 69 6e 65 64 2c 20	file...*.If.empty.or.undefined,.
00a0	6e 6f 20 73 65 73 73 69 6f 6e 20 77 69 6c 6c 20 62 65 20 73 61 76 65 64 2e 0a 20 2a 21 0a 45 55	no.session.will.be.saved...*!.EU
00c0	5b 73 65 73 73 69 6f 6e 2e 70 61 74 68 5d 05 51 5b 24 53 43 49 54 45 43 4f 43 4f 4e 46 49 47 5d	[session.path].Q[$SCITECOCONFIG]
00e0	2f 2e 74 65 63 6f 5f 73 65 73 73 69 6f 6e 1b 0a 0a 21 2a 0a 20 2a 20 57 68 65 74 68 65 72 20 74	/.teco_session...!*..*.Whether.t
0100	6f 20 72 65 73 74 6f 72 65 20 74 68 65 20 77 6f 72 6b 69 6e 67 20 64 69 72 65 63 74 6f 72 79 20	o.restore.the.working.directory.
0120	77 69 74 68 20 73 65 73 73 69 6f 6e 73 2e 0a 20 2a 20 49 74 20 69 73 20 61 20 54 45 43 4f 20 62	with.sessions...*.It.is.a.TECO.b
0140	6f 6f 6c 65 61 6e 2e 0a 20 2a 21 0a 2d 55 5b 73 65 73 73 69 6f 6e 2e 73 61 76 65 64 69 72 5d 0a	oolean...*!.-U[session.savedir].
0160	0a 21 2a 20 53 61 76 65 20 63 75 72 72 65 6e 74 20 73 65 73 73 69 6f 6e 20 74 6f 20 74 68 65 20	.!*.Save.current.session.to.the.
0180	66 69 6c 65 20 73 70 65 63 69 66 69 65 64 20 62 79 20 22 73 65 73 73 69 6f 6e 2e 70 61 74 68 22	file.specified.by."session.path"
01a0	20 2a 21 0a 40 15 5b 73 65 73 73 69 6f 6e 2e 73 61 76 65 5d 7b 0a 20 20 3a 51 5b 73 65 73 73 69	.*!.@.[session.save]{...:Q[sessi
01c0	6f 6e 2e 70 61 74 68 5d 2d 31 22 3c 20 1b 1b 20 27 0a 20 20 51 2a 55 2e 5b 63 75 72 62 75 66 5d	on.path]-1"<....'...Q*U.[curbuf]
01e0	0a 20 20 21 2a 20 52 65 73 74 6f 72 65 20 74 68 65 20 77 6f 72 6b 69 6e 67 20 64 69 72 65 63 74	...!*.Restore.the.working.direct
0200	6f 72 79 20 2a 21 0a 20 20 51 5b 73 65 73 73 69 6f 6e 2e 73 61 76 65 64 69 72 5d 22 53 0a 20 20	ory.*!...Q[session.savedir]"S...
0220	20 20 3a 40 45 55 2e 5b 73 65 73 73 69 6f 6e 5d 7b 33 3a 40 45 4e 00 2a 00 05 51 24 00 22 53 20	..:@EU.[session]{3:@EN.*..Q$."S.
0240	40 46 47 00 05 51 24 00 20 27 5e 4a 7d 0a 20 20 27 0a 20 20 45 4a 3c 20 25 2e 62 45 42 1b 0a 20	@FG..Q$..'^J}...'...EJ<.%.bEB...
0260	20 20 20 45 53 47 45 54 46 49 52 53 54 56 49 53 49 42 4c 45 4c 49 4e 45 1b 1b 55 2e 5b 66 76 6c	...ESGETFIRSTVISIBLELINE..U.[fvl
0280	69 6e 65 5d 20 45 53 47 45 54 58 4f 46 46 53 45 54 1b 1b 55 2e 5b 78 6f 66 66 5d 20 2e 55 2e 5b	ine].ESGETXOFFSET..U.[xoff]..U.[
02a0	64 6f 74 5d 0a 20 20 20 20 3a 40 45 55 2e 5b 73 65 73 73 69 6f 6e 5d 7b 40 45 42 00 05 4e 2a 00	dot].....:@EU.[session]{@EB..N*.
02c0	20 05 5c 2e 5b 66 76 6c 69 6e 65 5d 45 53 53 45 54 46 49 52 53 54 56 49 53 49 42 4c 45 4c 49 4e	..\.[fvline]ESSETFIRSTVISIBLELIN
02e0	45 1b 1b 1b 20 05 5c 2e 5b 78 6f 66 66 5d 45 53 53 45 54 58 4f 46 46 53 45 54 1b 1b 1b 20 05 5c	E.....\.[xoff]ESSETXOFFSET.....\
0300	2e 5b 64 6f 74 5d 3a 4a 1b 20 7d 0a 20 20 20 20 45 53 47 45 54 54 41 42 57 49 44 54 48 1b 1b 55	.[dot]:J..}.....ESGETTABWIDTH..U
0320	2e 5b 74 61 62 77 69 64 74 68 5d 20 45 53 47 45 54 55 53 45 54 41 42 53 1b 1b 55 2e 5b 75 73 65	.[tabwidth].ESGETUSETABS..U.[use
0340	74 61 62 73 5d 0a 20 20 20 20 3a 40 45 55 2e 5b 73 65 73 73 69 6f 6e 5d 7b 05 5c 2e 5b 74 61 62	tabs].....:@EU.[session]{.\.[tab
0360	77 69 64 74 68 5d 45 53 53 45 54 54 41 42 57 49 44 54 48 1b 1b 1b 20 05 5c 2e 5b 75 73 65 74 61	width]ESSETTABWIDTH.....\.[useta
0380	62 73 5d 45 53 53 45 54 55 53 45 54 41 42 53 1b 1b 1b 5e 4a 7d 0a 20 20 20 20 3a 51 2a 22 3d 20	bs]ESSETUSETABS...^J}.....:Q*"=.
03a0	2d 31 55 2e 75 20 27 0a 20 20 3e 0a 20 20 21 2a 20 57 65 20 61 6c 77 61 79 73 20 73 74 61 72 74	-1U.u.'...>...!*.We.always.start
03c0	20 77 69 74 68 20 61 6e 20 75 6e 6e 61 6d 65 64 20 66 69 6c 65 20 69 6e 20 74 68 65 20 72 69 6e	.with.an.unnamed.file.in.the.rin
03e0	67 2c 20 73 6f 20 77 65 20 6d 61 79 20 68 61 76 65 20 74 6f 20 72 65 6d 6f 76 65 20 69 74 3a 20	g,.so.we.may.have.to.remove.it:.
0400	2a 21 0a 20 20 51 2e 75 22 46 20 3a 40 45 55 2e 5b 73 65 73 73 69 6f 6e 5d 7b 45 42 1b 20 2d 45	*!...Q.u"F.:@EU.[session]{EB..-E
0420	46 5e 4a 7d 20 27 0a 20 20 3a 40 45 55 2e 5b 73 65 73 73 69 6f 6e 5d 7b 05 5c 2e 5b 63 75 72 62	F^J}.'...:@EU.[session]{.\.[curb
0440	75 66 5d 45 42 1b 5e 4a 7d 0a 0a 20 20 45 25 2e 5b 73 65 73 73 69 6f 6e 5d 05 51 5b 73 65 73 73	uf]EB.^J}....E%.[session].Q[sess
0460	69 6f 6e 2e 70 61 74 68 5d 1b 0a 20 20 51 2e 5b 63 75 72 62 75 66 5d 45 42 1b 0a 7d 0a 0a 21 2a	ion.path]....Q.[curbuf]EB..}..!*
0480	20 4c 6f 61 64 20 73 65 73 73 69 6f 6e 20 73 70 65 63 69 66 69 65 64 20 62 79 20 22 73 65 73 73	.Load.session.specified.by."sess
04a0	69 6f 6e 2e 70 61 74 68 22 20 6f 72 20 74 75 74 6f 72 69 61 6c 20 2a 21 0a 40 15 5b 73 65 73 73	ion.path".or.tutorial.*!.@.[sess
04c0	69 6f 6e 2e 6c 6f 61 64 5d 7b 5b 5f 0a 20 20 45 4a 3c 2d 45 46 3e 0a 20 20 21 2a 20 6e 6f 77 20	ion.load]{[_...EJ<-EF>...!*.now.
04e0	77 65 20 68 61 76 65 20 6f 6e 6c 79 20 6f 6e 65 20 75 6e 6e 61 6d 65 64 20 62 75 66 66 65 72 20	we.have.only.one.unnamed.buffer.
0500	2a 21 0a 20 20 31 3a 45 4e 2a 1b 05 51 5b 73 65 73 73 69 6f 6e 2e 70 61 74 68 5d 1b 22 53 0a 20	*!...1:EN*..Q[session.path]."S..
0520	20 20 20 3a 45 49 05 51 5b 73 65 73 73 69 6f 6e 2e 70 61 74 68 5d 1b 0a 20 20 7c 0a 20 20 20 20	...:EI.Q[session.path]....|.....
0540	31 3a 45 4e 2a 1b 05 51 5b 24 53 43 49 54 45 43 4f 43 4f 4e 46 49 47 5d 2f 2e 74 65 63 6f 5f 73	1:EN*..Q[$SCITECOCONFIG]/.teco_s
0560	65 73 73 69 6f 6e 1b 22 46 0a 20 20 20 20 20 20 3f 74 75 74 6f 72 69 61 6c 1b 0a 20 20 20 20 20	ession."F.......?tutorial.......
0580	20 45 42 1b 20 2d 45 46 20 21 2a 20 63 6c 6f 73 65 20 75 6e 6e 61 6d 65 64 20 62 75 66 66 65 72	.EB..-EF.!*.close.unnamed.buffer
05a0	20 2a 21 0a 20 20 20 20 27 0a 20 20 27 0a 5d 5f 7d 0a 0a 21 2a 0a 20 2a 20 43 61 6c 6c 20 74 68	.*!.....'...'.]_}..!*..*.Call.th
05c0	69 73 20 74 6f 20 73 65 74 20 75 70 20 74 68 65 20 73 65 73 73 69 6f 6e 20 70 61 74 68 20 75 6e	is.to.set.up.the.session.path.un
05e0	69 71 75 65 20 74 6f 20 74 68 65 0a 20 2a 20 47 69 74 20 72 65 70 6f 73 69 74 6f 72 79 20 6f 66	ique.to.the..*.Git.repository.of
0600	20 74 68 65 20 63 75 72 72 65 6e 74 20 77 6f 72 6b 69 6e 67 20 64 69 72 65 63 74 6f 72 79 20 28	.the.current.working.directory.(
0620	69 66 20 74 68 65 72 65 20 69 73 20 6f 6e 65 29 2e 0a 20 2a 20 54 68 69 73 20 72 65 71 75 69 72	if.there.is.one)...*.This.requir
0640	65 73 20 74 68 65 20 47 69 74 20 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 20 63 6c 69 65 6e 74 20 69	es.the.Git.command-line.client.i
0660	6e 20 24 50 41 54 48 2e 0a 20 2a 21 0a 40 15 5b 73 65 73 73 69 6f 6e 2e 67 69 74 5d 7b 0a 20 20	n.$PATH...*!.@.[session.git]{...
0680	21 2a 20 69 66 20 74 68 65 72 65 20 69 73 20 6e 6f 20 47 69 74 20 72 65 70 6f 73 69 74 6f 72 79	!*.if.there.is.no.Git.repository
06a0	2c 20 73 65 73 73 69 6f 6e 2e 70 61 74 68 20 69 73 20 6c 65 66 74 20 61 73 20 69 74 20 69 73 20	,.session.path.is.left.as.it.is.
06c0	2a 21 0a 20 20 3a 45 47 5b 73 65 73 73 69 6f 6e 2e 70 61 74 68 5d 67 69 74 20 72 65 76 2d 70 61	*!...:EG[session.path]git.rev-pa
06e0	72 73 65 20 2d 2d 73 68 6f 77 2d 74 6f 70 6c 65 76 65 6c 1b 22 53 0a 20 20 20 20 5b 2a 20 45 51	rse.--show-toplevel."S.....[*.EQ
0700	5b 73 65 73 73 69 6f 6e 2e 70 61 74 68 5d 1b 20 5a 4a 20 2d 44 20 49 2f 2e 74 65 63 6f 5f 73 65	[session.path]..ZJ.-D.I/.teco_se
0720	73 73 69 6f 6e 1b 20 5d 2a 0a 20 20 27 0a 7d 0a 0a 21 2a 0a 20 2a 20 43 61 6c 6c 20 74 6f 20 73	ssion..]*...'.}..!*..*.Call.to.s
0740	65 74 20 75 70 20 74 68 65 20 73 65 73 73 69 6f 6e 20 70 61 74 68 20 75 6e 69 71 75 65 20 74 6f	et.up.the.session.path.unique.to
0760	20 74 68 65 0a 20 2a 20 4d 65 72 63 75 72 69 61 6c 20 72 65 70 6f 73 69 74 6f 72 79 20 6f 66 20	.the..*.Mercurial.repository.of.
0780	74 68 65 20 63 75 72 72 65 6e 74 20 77 6f 72 6b 69 6e 67 20 64 69 72 65 63 74 6f 72 79 2e 0a 20	the.current.working.directory...
07a0	2a 20 54 68 69 73 20 72 65 71 75 69 72 65 73 20 74 68 65 20 4d 65 72 63 75 72 69 61 6c 20 63 6f	*.This.requires.the.Mercurial.co
07c0	6d 6d 61 6e 64 2d 6c 69 6e 65 20 63 6c 69 65 6e 74 20 69 6e 20 24 50 41 54 48 2e 0a 20 2a 21 0a	mmand-line.client.in.$PATH...*!.
07e0	40 15 5b 73 65 73 73 69 6f 6e 2e 68 67 5d 7b 0a 20 20 21 2a 20 69 66 20 74 68 65 72 65 20 69 73	@.[session.hg]{...!*.if.there.is
0800	20 6e 6f 20 48 67 20 72 65 70 6f 73 69 74 6f 72 79 2c 20 73 65 73 73 69 6f 6e 2e 70 61 74 68 20	.no.Hg.repository,.session.path.
0820	69 73 20 6c 65 66 74 20 61 73 20 69 74 20 69 73 20 2a 21 0a 20 20 3a 45 47 5b 73 65 73 73 69 6f	is.left.as.it.is.*!...:EG[sessio
0840	6e 2e 70 61 74 68 5d 68 67 20 72 6f 6f 74 1b 22 53 0a 20 20 20 20 5b 2a 20 45 51 5b 73 65 73 73	n.path]hg.root."S.....[*.EQ[sess
0860	69 6f 6e 2e 70 61 74 68 5d 1b 20 5a 4a 20 2d 44 20 49 2f 2e 74 65 63 6f 5f 73 65 73 73 69 6f 6e	ion.path]..ZJ.-D.I/.teco_session
0880	1b 20 5d 2a 0a 20 20 27 0a 7d 0a 0a 21 2a 0a 20 2a 20 43 61 6c 6c 20 74 6f 20 73 65 74 20 75 70	..]*...'.}..!*..*.Call.to.set.up
08a0	20 74 68 65 20 73 65 73 73 69 6f 6e 20 70 61 74 68 20 75 6e 69 71 75 65 20 74 6f 20 74 68 65 0a	.the.session.path.unique.to.the.
08c0	20 2a 20 46 6f 73 73 69 6c 20 72 65 70 6f 73 69 74 6f 72 79 20 6f 66 20 74 68 65 20 63 75 72 72	.*.Fossil.repository.of.the.curr
08e0	65 6e 74 20 77 6f 72 6b 69 6e 67 20 64 69 72 65 63 74 6f 72 79 2e 0a 20 2a 20 54 68 69 73 20 72	ent.working.directory...*.This.r
0900	65 71 75 69 72 65 73 20 74 68 65 20 46 6f 73 73 69 6c 20 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 20	equires.the.Fossil.command-line.
0920	63 6c 69 65 6e 74 20 69 6e 20 24 50 41 54 48 2e 0a 20 2a 21 0a 40 15 5b 73 65 73 73 69 6f 6e 2e	client.in.$PATH...*!.@.[session.
0940	66 6f 73 73 69 6c 5d 7b 0a 20 20 21 2a 20 69 66 20 74 68 65 72 65 20 69 73 20 6e 6f 20 46 6f 73	fossil]{...!*.if.there.is.no.Fos
0960	73 69 6c 20 72 65 70 6f 73 69 74 6f 72 79 2c 20 73 65 73 73 69 6f 6e 2e 70 61 74 68 20 69 73 20	sil.repository,.session.path.is.
0980	6c 65 66 74 20 61 73 20 69 74 20 69 73 20 2a 21 0a 20 20 3a 45 47 2e 69 66 6f 73 73 69 6c 20 69	left.as.it.is.*!...:EG.ifossil.i
09a0	6e 66 6f 1b 22 53 20 5b 2a 5b 5f 0a 20 20 20 20 45 51 2e 69 1b 0a 20 20 20 20 3a 53 6c 6f 63 61	nfo."S.[*[_.....EQ.i......:Sloca
09c0	6c 2d 72 6f 6f 74 3a 05 53 1b 22 53 0a 20 20 20 20 20 20 2e 2c 2e 2b 11 2d 31 58 5b 73 65 73 73	l-root:.S."S........,.+.-1X[sess
09e0	69 6f 6e 2e 70 61 74 68 5d 20 3a 15 5b 73 65 73 73 69 6f 6e 2e 70 61 74 68 5d 2e 74 65 63 6f 5f	ion.path].:.[session.path].teco_
0a00	73 65 73 73 69 6f 6e 1b 0a 20 20 20 20 27 0a 20 20 5d 5f 5d 2a 20 27 0a 7d 0a 0a 21 2a 0a 20 2a	session......'...]_]*.'.}..!*..*
0a20	20 43 61 6c 6c 20 74 6f 20 73 65 74 20 75 70 20 74 68 65 20 73 65 73 73 69 6f 6e 20 70 61 74 68	.Call.to.set.up.the.session.path
0a40	20 75 6e 69 71 75 65 20 74 6f 20 74 68 65 0a 20 2a 20 53 56 4e 20 77 6f 72 6b 69 6e 67 20 63 6f	.unique.to.the..*.SVN.working.co
0a60	70 79 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 20 63 75 72 72 65 6e 74 20 77 6f 72 6b 69 6e	py.containing.the.current.workin
0a80	67 20 64 69 72 65 63 74 6f 72 79 2e 0a 20 2a 20 52 65 71 75 69 72 65 73 20 74 68 65 20 53 56 4e	g.directory...*.Requires.the.SVN
0aa0	20 63 6c 69 65 6e 74 20 76 31 2e 39 20 6f 72 20 6c 61 74 65 72 20 69 6e 20 24 50 41 54 48 2e 0a	.client.v1.9.or.later.in.$PATH..
0ac0	20 2a 21 0a 40 15 5b 73 65 73 73 69 6f 6e 2e 73 76 6e 5d 7b 0a 20 20 21 2a 20 69 66 20 74 68 65	.*!.@.[session.svn]{...!*.if.the
0ae0	72 65 20 69 73 20 6e 6f 20 53 56 4e 20 77 6f 72 6b 69 6e 67 20 63 6f 70 79 2c 20 73 65 73 73 69	re.is.no.SVN.working.copy,.sessi
0b00	6f 6e 2e 70 61 74 68 20 69 73 20 6c 65 66 74 20 61 73 20 69 74 20 69 73 20 2a 21 0a 20 20 3a 45	on.path.is.left.as.it.is.*!...:E
0b20	47 5b 73 65 73 73 69 6f 6e 2e 70 61 74 68 5d 73 76 6e 20 69 6e 66 6f 20 2d 2d 73 68 6f 77 2d 69	G[session.path]svn.info.--show-i
0b40	74 65 6d 20 77 63 2d 72 6f 6f 74 20 2d 2d 6e 6f 2d 6e 65 77 6c 69 6e 65 1b 22 53 0a 20 20 20 20	tem.wc-root.--no-newline."S.....
0b60	3a 15 5b 73 65 73 73 69 6f 6e 2e 70 61 74 68 5d 2f 2e 74 65 63 6f 5f 73 65 73 73 69 6f 6e 1b 0a	:.[session.path]/.teco_session..
0b80	20 20 27 0a 7d 0a 0a 21 2a 0a 20 2a 20 43 61 6c 6c 20 74 6f 20 73 65 74 20 75 70 20 74 68 65 20	..'.}..!*..*.Call.to.set.up.the.
0ba0	73 65 73 73 69 6f 6e 20 70 61 74 68 20 75 6e 69 71 75 65 20 74 6f 20 74 68 65 0a 20 2a 20 72 65	session.path.unique.to.the..*.re
0bc0	70 6f 73 69 74 6f 72 79 2f 77 6f 72 6b 69 6e 67 20 63 6f 70 79 20 63 6f 6e 74 61 69 6e 69 6e 67	pository/working.copy.containing
0be0	20 74 68 65 20 63 75 72 72 65 6e 74 20 77 6f 72 6b 69 6e 67 20 64 69 72 65 63 74 6f 72 79 0a 20	.the.current.working.directory..
0c00	2a 20 28 73 65 65 20 61 62 6f 76 65 29 2e 0a 20 2a 21 0a 40 15 5b 73 65 73 73 69 6f 6e 2e 76 63	*.(see.above)...*!.@.[session.vc
0c20	73 5d 7b 0a 20 20 4d 5b 73 65 73 73 69 6f 6e 2e 67 69 74 5d 0a 20 20 4d 5b 73 65 73 73 69 6f 6e	s]{...M[session.git]...M[session
0c40	2e 68 67 5d 0a 20 20 4d 5b 73 65 73 73 69 6f 6e 2e 66 6f 73 73 69 6c 5d 0a 20 20 4d 5b 73 65 73	.hg]...M[session.fossil]...M[ses
0c60	73 69 6f 6e 2e 73 76 6e 5d 0a 7d 0a	sion.svn].}.