File manager

GOOF----LE-8-2.0�]L4h]
gguile�	

�	gdefine-module*�	�	�	gscripts�	gread-text-outline�	�		gfilenameS�	
fscripts/read-text-outline.scm�	gimportsS�	gice-9�	
gregex�	
�	
�	
�	gexportsS�	gread-text-outline-silently�	gmake-text-outline-reader�	�	g	autoloadsS�	grdelim�	�	g	read-line�	
�	ggetopt-long�	�	
�	�	gset-current-module�	�	 �	!g%include-in-guild-list�	"f*Convert textual outlines to s-expressions.�	#g%summary�	$gsymbol->string�	%gstring=?�	&f
?�	'g	substring�	(g
string-length�	)g??�	*gmatch:substring�	+gmsub�	,f�	-g
??-predicates�	.gmake-regexp�	/f
^�	0g
string-append�	1gassq-ref�	2glevel-submatch-number�	3g
compute-level�	4glevel-substring-divisor�	5gbody-submatch-number�	6gmatch:suffix�	7gextra-fields�	8gmap�	9gfor-each�	:gset-object-property!�	;gregexp-exec�	<glevel�	=gmake-line-parser�	>gstart�	?>
�	@geof-object?�	Agobject-property�	Bgerror�	Cfunhandled diff not 1:�	Df(([ ][ ])*)- *�	E4	��	FE
�	Ggwrite�	Hg	open-file�	If
r�	Jgnewline�	Kgmain�C5
hP�]4	
5	4 >
"G!R"#R$%&'(h �]	4
5

4
4
5
�56�gsymbol
		 gname			 gfilenamefscripts/read-text-outline.scm�
	{
��		|	��			|	��		}	��		}	��		}	&��		}	"��		}	��	 	}	��
		 
gnameg??�C)R*hj]

L6bg
m
		

gfilenamefscripts/read-text-outline.scm�
�	��	
�	��		

Chp]

O
Chg
n
		

gfilenamefscripts/read-text-outline.scm�
	
��		

gnamegmsub�C+R)%,*h�]
4
4L�55�C�g
m
		
gfilenamefscripts/read-text-outline.scm�
�	��	�	��	�	��	�	 ��	�	3��	�	 ��	�	��	�	��			
C+h(�]
�4
�5
$O
"4�5
�C�gpair
		&
gfilenamefscripts/read-text-outline.scm�
�
��	�	��	�	��	�	��	
�	��	�	��	�	��	"�	��	$�	��	%�	��		&
gnameg
??-predicates�C-R'.%/0+123hj]
L6
bg
m
		
gfilenamefscripts/read-text-outline.scm�
�	$��	�	&��		
C4(h�]
4
4L
5
5
L�C}g
m
		
gfilenamefscripts/read-text-outline.scm�
�	$��	�	)��	�	8��	�	)��	�	&��		
C(hs]

4L5
6
kg
m
		

gfilenamefscripts/read-text-outline.scm�
�	��	�	0��	
�	!��		

C56hj]

6
bg
m
		
gfilenamefscripts/read-text-outline.scm�
�	��	�	*��		
C78-9:h�]

L
�4�L5
6�gpair
		
gfilenamefscripts/read-text-outline.scm�
�	'��		�	.��	
�	*��	
�	+��	�	*��	�	)��		
Ch{]

OL6sgobj
		g
m		gfilenamefscripts/read-text-outline.scm�
�	$��	�	&��			
Chr]Cjgobj
		g
m		gfilenamefscripts/read-text-outline.scm�
�	��			
C;:<hX�]4
L5

$?4L
5
4L
5
4>"G4L

>"GCC�gline
		Tg
t		Tglevel		!	Rgbody		!	Rgfilenamefscripts/read-text-outline.scm�
�	��	�	
��	�	��	�	��	�	��	!�	��	&�	��	,�	/��	3�	��	<�	��		T
Ch
]24

5445$"	455
44
5$"
5
4
	5$
O
"(4
5$
O"
O
4
5$45
"4
5$45O
"OC�gre
	
gspecs	
gfc			1grx		1
g
t		?	Qglevel-substring		S
g
t		^�g
t		z�g
extract-level	�
g
t	��gextract-body	�
g
t	��gnew	��gmisc-props!	�
gfilenamefscripts/read-text-outline.scm�
�
��	�	��	�	
��	�	��	�	 ��	�	*��	�	 ��	�	��	$�	 ��	(�	/��	,�	 ��	.�	��	1�	��	4�	��	7�	��	=�	+��	?�	��	?�	 ��	S�	��	S�	��	V�	��	\�	&��	^�	��	^�	��	r�	��	x�	&��	z�	��	z�	����	����	����	%����	����	����	����	����	$����	����	����	-����	"����	��*	
	
gnamegmake-line-parser�C=R=?@A<BC:>
h`
�]Q
H
H"
%45
$"
'4L5
$�
45�		
�$	�"�	
�$S	�

$"4	>"G
4>"GJ�K���"E	
�$=""4
�5�$
K"
�
"���J
"���J��J�K"45
"���	45
"���45
	�J
"���J
�K
	J
&CJ
�C�gport
	
\gall	
\gpchain			
\gline		
4g
prev-level		
4gtp		
4g
t		
4g
t		)
1gwords		6
glevel		A
gdiff			H
g
t	
	g�g
p	
��
gfilenamefscripts/read-text-outline.scm�
�	��	�	��	�	��		�	��		�	��	�	��	�	��	�	
��	#�	��	)�	��	6�	(��	6�	��	9�	(��	?�	;��	A�	(��	A�	��	H�	'��	H�	��	M�	��	R�	��	W�	��	^�	��	c�	��	g�	"��	g�	��	t�	"��	x�	)����	"����	����	7����	����	+����	����	1����	+����	����	����	����	����	,����	=����	E����	,����	#����	����	#����	-����	����	(����	����	+����	����	"��
�	��
�	 ��
.�	��
4�	��
5�	��
I�	��
L�	��
N�	��
P�	��
V�	��
W�	��
[�	��B	
\
Ch�]
4

5O
C�gre
		gspecs		g
parse-line			gfilenamefscripts/read-text-outline.scm�
�
��	�	��	�	��			
gnamegmake-text-outline-reader�CR4iDF5RGHIJh@�-13
4
44�55
>
"G4>"GC�gargs
			:
gfilenamefscripts/read-text-outline.scm�
�
��	
�	��	
�		��	�	%��	�	0��	�	;��	�	%��	�		��	 �	��	)�	��			:



gnamegread-text-outline�CRiKRC�g
m
		0
gfilenamefscripts/read-text-outline.scm�		p
��	4	x
��	6	y	��	9	y
��
7	{
��S	
��1�
��
��
���
���	��
�	���	���	���
��G�
��N�
��	P

C6