blob: 775a4840aa93b701992fe604335ab2d90d684329 (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 2a 21 0a 40 15 5b 73 65 73 73 69 6f 6e 2e 6c 6f 61 64 5d 7b 0a 20	ion.path".*!.@.[session.load]{..
04c0	20 45 4a 3c 2d 45 46 3e 0a 20 20 21 2a 20 6e 6f 77 20 77 65 20 68 61 76 65 20 6f 6e 6c 79 20 6f	.EJ<-EF>...!*.now.we.have.only.o
04e0	6e 65 20 75 6e 6e 61 6d 65 64 20 62 75 66 66 65 72 20 2a 21 0a 20 20 5b 5f 0a 20 20 20 20 31 3a	ne.unnamed.buffer.*!...[_.....1:
0500	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 20 20 20 20 20 3a 45	EN*..Q[session.path]."S.......:E
0520	4d 05 51 5b 73 65 73 73 69 6f 6e 2e 70 61 74 68 5d 1b 0a 20 20 20 20 27 0a 20 20 5d 5f 0a 7d 0a	M.Q[session.path]......'...]_.}.
0540	0a 21 2a 0a 20 2a 20 43 61 6c 6c 20 74 68 69 73 20 74 6f 20 73 65 74 20 75 70 20 74 68 65 20 73	.!*..*.Call.this.to.set.up.the.s
0560	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 47 69 74	ession.path.unique.to.the..*.Git
0580	20 72 65 70 6f 73 69 74 6f 72 79 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 77 6f 72 6b 69	.repository.of.the.current.worki
05a0	6e 67 20 64 69 72 65 63 74 6f 72 79 20 28 69 66 20 74 68 65 72 65 20 69 73 20 6f 6e 65 29 2e 0a	ng.directory.(if.there.is.one)..
05c0	20 2a 20 54 68 69 73 20 72 65 71 75 69 72 65 73 20 74 68 65 20 47 69 74 20 63 6f 6d 6d 61 6e 64	.*.This.requires.the.Git.command
05e0	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 40 15 5b 73 65	-line.client.in.$PATH...*!.@.[se
0600	73 73 69 6f 6e 2e 67 69 74 5d 7b 0a 20 20 21 2a 20 69 66 20 74 68 65 72 65 20 69 73 20 6e 6f 20	ssion.git]{...!*.if.there.is.no.
0620	47 69 74 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	Git.repository,.session.path.is.
0640	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 6e 2e 70	left.as.it.is.*!...:EG[session.p
0660	61 74 68 5d 67 69 74 20 72 65 76 2d 70 61 72 73 65 20 2d 2d 73 68 6f 77 2d 74 6f 70 6c 65 76 65	ath]git.rev-parse.--show-topleve
0680	6c 1b 22 53 0a 20 20 20 20 5b 2a 20 45 51 5b 73 65 73 73 69 6f 6e 2e 70 61 74 68 5d 1b 20 5a 4a	l."S.....[*.EQ[session.path]..ZJ
06a0	20 2d 44 20 49 2f 2e 74 65 63 6f 5f 73 65 73 73 69 6f 6e 1b 20 5d 2a 0a 20 20 27 0a 7d 0a 0a 21	.-D.I/.teco_session..]*...'.}..!
06c0	2a 0a 20 2a 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	*..*.Call.to.set.up.the.session.
06e0	70 61 74 68 20 75 6e 69 71 75 65 20 74 6f 20 74 68 65 0a 20 2a 20 4d 65 72 63 75 72 69 61 6c 20	path.unique.to.the..*.Mercurial.
0700	72 65 70 6f 73 69 74 6f 72 79 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 77 6f 72 6b 69 6e	repository.of.the.current.workin
0720	67 20 64 69 72 65 63 74 6f 72 79 2e 0a 20 2a 20 54 68 69 73 20 72 65 71 75 69 72 65 73 20 74 68	g.directory...*.This.requires.th
0740	65 20 4d 65 72 63 75 72 69 61 6c 20 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 20 63 6c 69 65 6e 74 20	e.Mercurial.command-line.client.
0760	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 68 67 5d 7b 0a 20 20	in.$PATH...*!.@.[session.hg]{...
0780	21 2a 20 69 66 20 74 68 65 72 65 20 69 73 20 6e 6f 20 48 67 20 72 65 70 6f 73 69 74 6f 72 79 2c	!*.if.there.is.no.Hg.repository,
07a0	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 2a	.session.path.is.left.as.it.is.*
07c0	21 0a 20 20 3a 45 47 5b 73 65 73 73 69 6f 6e 2e 70 61 74 68 5d 68 67 20 72 6f 6f 74 1b 22 53 0a	!...:EG[session.path]hg.root."S.
07e0	20 20 20 20 5b 2a 20 45 51 5b 73 65 73 73 69 6f 6e 2e 70 61 74 68 5d 1b 20 5a 4a 20 2d 44 20 49	....[*.EQ[session.path]..ZJ.-D.I
0800	2f 2e 74 65 63 6f 5f 73 65 73 73 69 6f 6e 1b 20 5d 2a 0a 20 20 27 0a 7d 0a 0a 21 2a 0a 20 2a 20	/.teco_session..]*...'.}..!*..*.
0820	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 20	Call.to.set.up.the.session.path.
0840	75 6e 69 71 75 65 20 74 6f 20 74 68 65 0a 20 2a 20 46 6f 73 73 69 6c 20 72 65 70 6f 73 69 74 6f	unique.to.the..*.Fossil.reposito
0860	72 79 20 6f 66 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	ry.of.the.current.working.direct
0880	6f 72 79 2e 0a 20 2a 20 54 68 69 73 20 72 65 71 75 69 72 65 73 20 74 68 65 20 46 6f 73 73 69 6c	ory...*.This.requires.the.Fossil
08a0	20 63 6f 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	.command-line.client.in.$PATH...
08c0	2a 21 0a 40 15 5b 73 65 73 73 69 6f 6e 2e 66 6f 73 73 69 6c 5d 7b 0a 20 20 21 2a 20 69 66 20 74	*!.@.[session.fossil]{...!*.if.t
08e0	68 65 72 65 20 69 73 20 6e 6f 20 46 6f 73 73 69 6c 20 72 65 70 6f 73 69 74 6f 72 79 2c 20 73 65	here.is.no.Fossil.repository,.se
0900	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 2a 21 0a 20	ssion.path.is.left.as.it.is.*!..
0920	20 3a 45 47 2e 69 66 6f 73 73 69 6c 20 69 6e 66 6f 1b 22 53 20 5b 2a 5b 5f 0a 20 20 20 20 45 51	.:EG.ifossil.info."S.[*[_.....EQ
0940	2e 69 1b 0a 20 20 20 20 3a 53 6c 6f 63 61 6c 2d 72 6f 6f 74 3a 05 53 1b 22 53 0a 20 20 20 20 20	.i......:Slocal-root:.S."S......
0960	20 2e 2c 2e 2b 11 2d 31 58 5b 73 65 73 73 69 6f 6e 2e 70 61 74 68 5d 20 3a 15 5b 73 65 73 73 69	..,.+.-1X[session.path].:.[sessi
0980	6f 6e 2e 70 61 74 68 5d 2e 74 65 63 6f 5f 73 65 73 73 69 6f 6e 1b 0a 20 20 20 20 27 0a 20 20 5d	on.path].teco_session......'...]
09a0	5f 5d 2a 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	_]*.'.}..!*..*.Call.to.set.up.th
09c0	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 20 2a 20	e.session.path.unique.to.the..*.
09e0	53 56 4e 20 77 6f 72 6b 69 6e 67 20 63 6f 70 79 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 20	SVN.working.copy.containing.the.
0a00	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 2a 20 52 65	current.working.directory...*.Re
0a20	71 75 69 72 65 73 20 74 68 65 20 53 56 4e 20 63 6c 69 65 6e 74 20 76 31 2e 39 20 6f 72 20 6c 61	quires.the.SVN.client.v1.9.or.la
0a40	74 65 72 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 73 76 6e	ter.in.$PATH...*!.@.[session.svn
0a60	5d 7b 0a 20 20 21 2a 20 69 66 20 74 68 65 72 65 20 69 73 20 6e 6f 20 53 56 4e 20 77 6f 72 6b 69	]{...!*.if.there.is.no.SVN.worki
0a80	6e 67 20 63 6f 70 79 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	ng.copy,.session.path.is.left.as
0aa0	20 69 74 20 69 73 20 2a 21 0a 20 20 3a 45 47 5b 73 65 73 73 69 6f 6e 2e 70 61 74 68 5d 73 76 6e	.it.is.*!...:EG[session.path]svn
0ac0	20 69 6e 66 6f 20 2d 2d 73 68 6f 77 2d 69 74 65 6d 20 77 63 2d 72 6f 6f 74 20 2d 2d 6e 6f 2d 6e	.info.--show-item.wc-root.--no-n
0ae0	65 77 6c 69 6e 65 1b 22 53 0a 20 20 20 20 3a 15 5b 73 65 73 73 69 6f 6e 2e 70 61 74 68 5d 2f 2e	ewline."S.....:.[session.path]/.
0b00	74 65 63 6f 5f 73 65 73 73 69 6f 6e 1b 0a 20 20 27 0a 7d 0a 0a 21 2a 0a 20 2a 20 43 61 6c 6c 20	teco_session....'.}..!*..*.Call.
0b20	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 69 71 75	to.set.up.the.session.path.uniqu
0b40	65 20 74 6f 20 74 68 65 0a 20 2a 20 72 65 70 6f 73 69 74 6f 72 79 2f 77 6f 72 6b 69 6e 67 20 63	e.to.the..*.repository/working.c
0b60	6f 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	opy.containing.the.current.worki
0b80	6e 67 20 64 69 72 65 63 74 6f 72 79 0a 20 2a 20 28 73 65 65 20 61 62 6f 76 65 29 2e 0a 20 2a 21	ng.directory..*.(see.above)...*!
0ba0	0a 40 15 5b 73 65 73 73 69 6f 6e 2e 76 63 73 5d 7b 0a 20 20 4d 5b 73 65 73 73 69 6f 6e 2e 67 69	.@.[session.vcs]{...M[session.gi
0bc0	74 5d 0a 20 20 4d 5b 73 65 73 73 69 6f 6e 2e 68 67 5d 0a 20 20 4d 5b 73 65 73 73 69 6f 6e 2e 66	t]...M[session.hg]...M[session.f
0be0	6f 73 73 69 6c 5d 0a 20 20 4d 5b 73 65 73 73 69 6f 6e 2e 73 76 6e 5d 0a 7d 0a	ossil]...M[session.svn].}.