blob: 56634a5697830989365c8a5333d8e6280a7fe6ba (plain)

ofs	hex dump	ascii
0000	21 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 20	!.Macros.for.saving.and.loading.
0020	62 75 66 66 65 72 20 73 65 73 73 69 6f 6e 73 20 21 0a 0a 21 20 50 61 74 68 20 6f 66 20 74 68 65	buffer.sessions.!..!.Path.of.the
0040	20 73 65 73 73 69 6f 6e 20 70 72 6f 66 69 6c 65 2e 0a 20 20 43 68 61 6e 67 65 20 74 68 69 73 20	.session.profile....Change.this.
0060	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 66 69 6c 65 2e 0a 20	to.save/load.a.custom.profile...
0080	20 49 66 20 65 6d 70 74 79 20 6f 72 20 75 6e 64 65 66 69 6e 65 64 2c 20 6e 6f 20 73 65 73 73 69	.If.empty.or.undefined,.no.sessi
00a0	6f 6e 20 77 69 6c 6c 20 62 65 20 73 61 76 65 64 2e 20 21 0a 45 55 5b 73 65 73 73 69 6f 6e 2e 70	on.will.be.saved..!.EU[session.p
00c0	61 74 68 5d 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 65 73	ath].Q[$SCITECOCONFIG]/.teco_ses
00e0	73 69 6f 6e 1b 0a 0a 21 20 57 68 65 74 68 65 72 20 74 6f 20 72 65 73 74 6f 72 65 20 74 68 65 20	sion...!.Whether.to.restore.the.
0100	77 6f 72 6b 69 6e 67 20 64 69 72 65 63 74 6f 72 79 20 77 69 74 68 20 73 65 73 73 69 6f 6e 73 2e	working.directory.with.sessions.
0120	0a 20 20 49 74 20 69 73 20 61 20 54 45 43 4f 20 62 6f 6f 6c 65 61 6e 2e 20 21 0a 2d 31 55 5b 73	...It.is.a.TECO.boolean..!.-1U[s
0140	65 73 73 69 6f 6e 2e 73 61 76 65 64 69 72 5d 0a 0a 21 20 53 61 76 65 20 63 75 72 72 65 6e 74 20	ession.savedir]..!.Save.current.
0160	73 65 73 73 69 6f 6e 20 74 6f 20 74 68 65 20 66 69 6c 65 20 73 70 65 63 69 66 69 65 64 20 62 79	session.to.the.file.specified.by
0180	20 22 73 65 73 73 69 6f 6e 2e 70 61 74 68 22 20 21 0a 40 15 5b 73 65 73 73 69 6f 6e 2e 73 61 76	."session.path".!.@.[session.sav
01a0	65 5d 7b 0a 20 20 3a 51 5b 73 65 73 73 69 6f 6e 2e 70 61 74 68 5d 2d 31 22 3c 20 1b 1b 20 27 0a	e]{...:Q[session.path]-1"<....'.
01c0	20 20 51 2a 55 2e 5b 63 75 72 62 75 66 5d 0a 20 20 21 20 52 65 73 74 6f 72 65 20 74 68 65 20 77	..Q*U.[curbuf]...!.Restore.the.w
01e0	6f 72 6b 69 6e 67 20 64 69 72 65 63 74 6f 72 79 20 21 0a 20 20 51 5b 73 65 73 73 69 6f 6e 2e 73	orking.directory.!...Q[session.s
0200	61 76 65 64 69 72 5d 22 53 0a 20 20 20 20 3a 40 45 55 2e 5b 73 65 73 73 69 6f 6e 5d 7b 33 3a 40	avedir]"S.....:@EU.[session]{3:@
0220	45 4e 00 2a 00 05 51 24 00 22 53 20 40 46 47 00 05 51 24 00 20 27 5e 4a 7d 0a 20 20 27 0a 20 20	EN.*..Q$."S.@FG..Q$..'^J}...'...
0240	45 4a 3c 20 25 2e 62 45 42 1b 0a 20 20 20 20 45 53 47 45 54 46 49 52 53 54 56 49 53 49 42 4c 45	EJ<.%.bEB......ESGETFIRSTVISIBLE
0260	4c 49 4e 45 1b 1b 55 2e 5b 66 76 6c 69 6e 65 5d 20 45 53 47 45 54 58 4f 46 46 53 45 54 1b 1b 55	LINE..U.[fvline].ESGETXOFFSET..U
0280	2e 5b 78 6f 66 66 5d 20 2e 55 2e 5b 64 6f 74 5d 0a 20 20 20 20 3a 40 45 55 2e 5b 73 65 73 73 69	.[xoff]..U.[dot].....:@EU.[sessi
02a0	6f 6e 5d 7b 40 45 42 00 05 4e 2a 00 20 05 5c 2e 5b 66 76 6c 69 6e 65 5d 45 53 53 45 54 46 49 52	on]{@EB..N*...\.[fvline]ESSETFIR
02c0	53 54 56 49 53 49 42 4c 45 4c 49 4e 45 1b 1b 1b 20 05 5c 2e 5b 78 6f 66 66 5d 45 53 53 45 54 58	STVISIBLELINE.....\.[xoff]ESSETX
02e0	4f 46 46 53 45 54 1b 1b 1b 20 05 5c 2e 5b 64 6f 74 5d 3a 4a 1b 20 7d 0a 20 20 20 20 45 53 47 45	OFFSET.....\.[dot]:J..}.....ESGE
0300	54 54 41 42 57 49 44 54 48 1b 1b 55 2e 5b 74 61 62 77 69 64 74 68 5d 20 45 53 47 45 54 55 53 45	TTABWIDTH..U.[tabwidth].ESGETUSE
0320	54 41 42 53 1b 1b 55 2e 5b 75 73 65 74 61 62 73 5d 0a 20 20 20 20 3a 40 45 55 2e 5b 73 65 73 73	TABS..U.[usetabs].....:@EU.[sess
0340	69 6f 6e 5d 7b 05 5c 2e 5b 74 61 62 77 69 64 74 68 5d 45 53 53 45 54 54 41 42 57 49 44 54 48 1b	ion]{.\.[tabwidth]ESSETTABWIDTH.
0360	1b 1b 20 05 5c 2e 5b 75 73 65 74 61 62 73 5d 45 53 53 45 54 55 53 45 54 41 42 53 1b 1b 1b 5e 4a	....\.[usetabs]ESSETUSETABS...^J
0380	7d 0a 20 20 20 20 3a 51 2a 22 3d 20 2d 31 55 2e 75 20 27 0a 20 20 3e 0a 20 20 21 20 57 65 20 61	}.....:Q*"=.-1U.u.'...>...!.We.a
03a0	6c 77 61 79 73 20 73 74 61 72 74 20 77 69 74 68 20 61 6e 20 75 6e 6e 61 6d 65 64 20 66 69 6c 65	lways.start.with.an.unnamed.file
03c0	20 69 6e 20 74 68 65 20 72 69 6e 67 2c 20 73 6f 20 77 65 20 6d 61 79 20 68 61 76 65 20 74 6f 20	.in.the.ring,.so.we.may.have.to.
03e0	72 65 6d 6f 76 65 20 69 74 3a 20 21 0a 20 20 51 2e 75 22 46 20 3a 40 45 55 2e 5b 73 65 73 73 69	remove.it:.!...Q.u"F.:@EU.[sessi
0400	6f 6e 5d 7b 45 42 1b 20 2d 45 46 5e 4a 7d 20 27 0a 20 20 3a 40 45 55 2e 5b 73 65 73 73 69 6f 6e	on]{EB..-EF^J}.'...:@EU.[session
0420	5d 7b 05 5c 2e 5b 63 75 72 62 75 66 5d 45 42 1b 5e 4a 7d 0a 0a 20 20 45 25 2e 5b 73 65 73 73 69	]{.\.[curbuf]EB.^J}....E%.[sessi
0440	6f 6e 5d 05 51 5b 73 65 73 73 69 6f 6e 2e 70 61 74 68 5d 1b 0a 20 20 51 2e 5b 63 75 72 62 75 66	on].Q[session.path]....Q.[curbuf
0460	5d 45 42 1b 0a 7d 0a 0a 21 20 4c 6f 61 64 20 73 65 73 73 69 6f 6e 20 73 70 65 63 69 66 69 65 64	]EB..}..!.Load.session.specified
0480	20 62 79 20 22 73 65 73 73 69 6f 6e 2e 70 61 74 68 22 20 21 0a 40 15 5b 73 65 73 73 69 6f 6e 2e	.by."session.path".!.@.[session.
04a0	6c 6f 61 64 5d 7b 0a 20 20 45 4a 3c 2d 45 46 3e 0a 20 20 21 20 6e 6f 77 20 77 65 20 68 61 76 65	load]{...EJ<-EF>...!.now.we.have
04c0	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 21 0a 20 20 5b 5f 0a	.only.one.unnamed.buffer.!...[_.
04e0	20 20 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 20	....1:EN*..Q[session.path]."S...
0500	20 20 20 20 3a 45 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	....:EM.Q[session.path]......'..
0520	20 5d 5f 0a 7d 0a 0a 21 20 43 61 6c 6c 20 74 68 69 73 20 74 6f 20 73 65 74 20 75 70 20 74 68 65	.]_.}..!.Call.this.to.set.up.the
0540	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 20 47 69	.session.path.unique.to.the...Gi
0560	74 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	t.repository.of.the.current.work
0580	69 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	ing.directory.(if.there.is.one).
05a0	0a 20 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
05c0	2d 6c 69 6e 65 20 63 6c 69 65 6e 74 20 69 6e 20 24 50 41 54 48 2e 20 21 0a 40 15 5b 73 65 73 73	-line.client.in.$PATH..!.@.[sess
05e0	69 6f 6e 2e 67 69 74 5d 7b 0a 20 20 21 20 69 66 20 74 68 65 72 65 20 69 73 20 6e 6f 20 47 69 74	ion.git]{...!.if.there.is.no.Git
0600	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 6c 65 66	.repository,.session.path.is.lef
0620	74 20 61 73 20 69 74 20 69 73 20 21 0a 20 20 3a 45 47 5b 73 65 73 73 69 6f 6e 2e 70 61 74 68 5d	t.as.it.is.!...:EG[session.path]
0640	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 6c 1b 22 53	git.rev-parse.--show-toplevel."S
0660	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 20 2d 44 20	.....[*.EQ[session.path]..ZJ.-D.
0680	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 20 43 61 6c	I/.teco_session..]*...'.}..!.Cal
06a0	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 75 6e 69	l.to.set.up.the.session.path.uni
06c0	71 75 65 20 74 6f 20 74 68 65 0a 20 20 4d 65 72 63 75 72 69 61 6c 20 72 65 70 6f 73 69 74 6f 72	que.to.the...Mercurial.repositor
06e0	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 6f	y.of.the.current.working.directo
0700	72 79 2e 0a 20 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	ry....This.requires.the.Mercuria
0720	6c 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 20	l.command-line.client.in.$PATH..
0740	21 0a 40 15 5b 73 65 73 73 69 6f 6e 2e 68 67 5d 7b 0a 20 20 21 20 69 66 20 74 68 65 72 65 20 69	!.@.[session.hg]{...!.if.there.i
0760	73 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	s.no.Hg.repository,.session.path
0780	20 69 73 20 6c 65 66 74 20 61 73 20 69 74 20 69 73 20 21 0a 20 20 3a 45 47 5b 73 65 73 73 69 6f	.is.left.as.it.is.!...:EG[sessio
07a0	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
07c0	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
07e0	1b 20 5d 2a 0a 20 20 27 0a 7d 0a 0a 21 20 43 61 6c 6c 20 74 6f 20 73 65 74 20 75 70 20 74 68 65	..]*...'.}..!.Call.to.set.up.the
0800	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 20 53 56	.session.path.unique.to.the...SV
0820	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 63 75	N.working.copy.containing.the.cu
0840	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 20 52 65 71 75 69	rrent.working.directory....Requi
0860	72 65 73 20 74 68 65 20 53 56 4e 20 63 6c 69 65 6e 74 20 76 31 2e 37 20 6f 72 20 6c 61 74 65 72	res.the.SVN.client.v1.7.or.later
0880	20 69 6e 20 24 50 41 54 48 2e 20 21 0a 40 15 5b 73 65 73 73 69 6f 6e 2e 73 76 6e 5d 7b 0a 20 20	.in.$PATH..!.@.[session.svn]{...
08a0	21 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 6e 67 20 63 6f 70	!.if.there.is.no.SVN.working.cop
08c0	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 20 69 74 20 69 73	y,.session.path.is.left.as.it.is
08e0	20 21 0a 20 20 3a 45 47 2e 69 73 76 6e 20 69 6e 66 6f 20 2d 2d 78 6d 6c 1b 22 53 20 5b 2a 5b 5f	.!...:EG.isvn.info.--xml."S.[*[_
0900	0a 20 20 20 20 45 51 2e 69 1b 0a 20 20 20 20 3a 53 3c 77 63 72 6f 6f 74 2d 61 62 73 70 61 74 68	.....EQ.i......:S<wcroot-abspath
0920	3e 1b 22 53 0a 20 20 20 20 20 20 2e 28 53 3c 2f 1b 2e 2d 32 29 58 5b 73 65 73 73 69 6f 6e 2e 70	>."S........(S</..-2)X[session.p
0940	61 74 68 5d 20 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	ath].:.[session.path]/.teco_sess
0960	69 6f 6e 1b 0a 20 20 20 20 27 0a 20 20 5d 5f 5d 2a 20 27 0a 7d 0a 0a 21 20 43 61 6c 6c 20 74 6f	ion......'...]_]*.'.}..!.Call.to
0980	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 65 20	.set.up.the.session.path.unique.
09a0	74 6f 20 74 68 65 0a 20 20 72 65 70 6f 73 69 74 6f 72 79 2f 77 6f 72 6b 69 6e 67 20 63 6f 70 79	to.the...repository/working.copy
09c0	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 67 20	.containing.the.current.working.
09e0	64 69 72 65 63 74 6f 72 79 0a 20 20 28 73 65 65 20 61 62 6f 76 65 29 2e 20 21 0a 40 15 5b 73 65	directory...(see.above)..!.@.[se
0a00	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 74 5d 0a 20 20 4d	ssion.vcs]{...M[session.git]...M
0a20	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 73 76 6e 5d 0a 7d 0a	[session.hg]...M[session.svn].}.