Navigation

Changeset 2604

Timestamp:

01/15/08 19:02:08 (1 year ago)

Author:

maxr

Message:

ada: source_buffers added. we will need it in new (unicode aware) scaner
and to implement asis-text.ads

Files:

r2557	r2604
66	66	$(BIN_GNATCHOP) -w parser.all
67	67
	68	# Source Buffer part
	69
	70	BUFFER_SRC = gela-source_buffers-current.ads
	71
	72	gela-source_buffers-current.ads:
	73	$(BIN_ECHO) with Gela.Source_Buffers.$(ADA_INPUT_BUFFER)\; \
	74	> gela-source_buffers-current.ads
	75	$(BIN_ECHO) package Gela.Source_Buffers.Current renames \
	76	Gela.Source_Buffers.$(ADA_INPUT_BUFFER)\; \
	77	>> gela-source_buffers-current.ads
	78
68	79	# Asis part
69	80
…	…
96	107	$(BIN_CP) ${ADA_DIR}/xasis/* ${INSTALL_PREFIX}/${ADA_INCLUDE_DIR}
97	108
98		DEPEND_SRC = ${LEXER_SRC} ${PARSER_SRC} .ads .adb ${ASIS_SRC}
	109	DEPEND_SRC = ${LEXER_SRC} ${PARSER_SRC} .ads .adb ${ASIS_SRC} ${BUFFER_SRC}
99	110
100	111	CLEANFILES=*

r2455	r2604
27	27	List.Nodes (Item.Index).File_Name := U.Null_Unbounded_Wide_String;
28	28	Pools.Deallocate_All (List.Nodes (Item.Index).Pool);
	29	Text_Utils.Free (List.Nodes (Item.Index).Buffer);
29	30	end if;
30	31	end Drop_Compilation;
…	…
147	148	List.Nodes (Index).Version := Version;
148	149	List.Nodes (Index).Pool := Pools.State (Lists.Pool);
	150	List.Nodes (Index).Buffer := Text_Utils.New_Buffer (File);
	151
149	152	Item := (Index, Version);
150	153	end New_Compilation;
	154
	155	-------------------
	156	-- Source_Buffer --
	157	-------------------
	158
	159	function Source_Buffer
	160	(List : Compilation_List;
	161	Item : Compilation) return Text_Utils.Source_Buffer_Access
	162	is
	163	begin
	164	if Valid_Version (List, Item) then
	165	return List.Nodes (Item.Index).Buffer;
	166	else
	167	return null;
	168	end if;
	169	end Source_Buffer;
151	170
152	171	-------------------

r2455	r2604
13	13
14	14	with Asis.Gela.Pools;
	15	with Asis.Gela.Text_Utils;
15	16	with Ada.Strings.Wide_Unbounded;
16	17
…	…
44	45	pragma Inline (Valid_Version);
45	46
	47	function Source_Buffer
	48	(List : Compilation_List;
	49	Item : Compilation) return Text_Utils.Source_Buffer_Access;
	50
46	51	private
47	52	package U renames Ada.Strings.Wide_Unbounded;
…	…
53	58	Version : Version_Count;
54	59	Pool : Pools.Pool_State;
	60	Buffer : Text_Utils.Source_Buffer_Access;
55	61	end record;
56	62

r2594	r2604
589	589	end loop;
590	590	end Split_Compilation;
	591
	592	----------------------
	593	-- Compilation_List --
	594	----------------------
	595
	596	function Compilation_List
	597	(The_Context : in Asis.Context)
	598	return Gela.Compilations.Compilation_List
	599	is
	600	Node : Concrete_Context_Node renames
	601	Concrete_Context_Node (The_Context.all);
	602	begin
	603	return Node.Compilation_List;
	604	end Compilation_List;
591	605
592	606	end Asis.Gela.Contexts.Utils;

r2573	r2604
24	24	procedure Parse_Parameters (The_Context : in out Concrete_Context_Node);
25	25	-- Read The_Context.Parameters and configure ASIS
	26
	27	function Compilation_List (The_Context : in Asis.Context)
	28	return Gela.Compilations.Compilation_List;
26	29
27	30	end Asis.Gela.Contexts.Utils;