Lines Matching refs:TS
29 TS, TSR : Translate_Set; variable
45 Insert (TS, Assoc ("ONE", 1));
46 Insert (TS, Assoc ("TWO", 2));
47 Insert (TS, Assoc ("VAR", "un essai"));
48 Insert (TS, Assoc ("VAR_DESCRIPTION", "le label"));
49 Insert (TS, Assoc ("TABLE", T));
50 Insert (TS, Assoc ("TABLE_DESCRIPTION", "les a et les b"));
51 Insert (TS, Assoc ("TABLE_DIM1_DESCRIPTION", "A/B"));
52 Insert (TS, Assoc ("TABLE_DIM2_DESCRIPTION", "Ann�e"));
53 Insert (TS, Assoc ("TABLE_DIM1_LABELS", L1));
54 Insert (TS, Assoc ("TABLE_DIM2_LABELS", L2));
56 Ada.Text_IO.Put_Line (To_String (XML.Image (TS)));
58 XML.Save ("ts.xml", TS);
65 (Integer'Image (Size (TS)) & Integer'Image (Size (TSR)));
67 TS := TSR & Assoc ("ONE", 1) & Assoc ("TWO", 2) & Assoc ("THREE", 3);
70 (Integer'Image (Size (TS)) & Integer'Image (Size (TSR)));