1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117 | -- Copyright (c) 1990 Regents of the University of California.
-- All rights reserved.
--
-- This software was developed by John Self of the Arcadia project
-- at the University of California, Irvine.
--
-- Redistribution and use in source and binary forms are permitted
-- provided that the above copyright notice and this paragraph are
-- duplicated in all such forms and that any documentation,
-- advertising materials, and other materials related to such
-- distribution and use acknowledge that the software was developed
-- by the University of California, Irvine. The name of the
-- University may not be used to endorse or promote products derived
-- from this software without specific prior written permission.
-- THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
-- IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
-- WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-- TITLE miscellaneous aflex routines
-- AUTHOR: John Self (UCI)
-- DESCRIPTION
-- NOTES contains functions used in various places throughout aflex.
-- $Header: /co/ua/self/arcadia/aflex/ada/src/RCS/miscS.a,v 1.9 90/01/12 15:20:19 self Exp Locker: self $
with Ada.Strings.Unbounded;
with Ada.Strings.Wide_Wide_Unbounded;
with Ada.Wide_Wide_Text_IO;
with MISC_DEFS;
with Unicode;
package Misc is
use Ada.Strings.Unbounded;
use MISC_DEFS;
procedure ACTION_OUT;
procedure BUBBLE(V : in INT_PTR;
N : in INTEGER);
function CLOWER(C : in INTEGER) return INTEGER;
procedure CSHELL
(V : in out Unicode_Character_Array;
N : Integer);
-- cshell - shell sort a character array in increasing order
--
-- description
-- does a shell sort of the first n elements of array v.
--
-- passed
-- v - array to be sorted
-- n - number of elements of v to be sorted
procedure DATAEND;
procedure DATAFLUSH (File : Ada.Wide_Wide_Text_IO.File_Type);
procedure DATAFLUSH;
function Aflex_Get_Time
return Ada.Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String;
-- aflex_gettime - return current time
procedure Aflex_Error
(Msg : Ada.Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String);
procedure Aflex_Error (Msg : Wide_Wide_String);
-- aflexerror - report an error message and terminate
-- overloaded function, one for vstring, one for string.
-- function ALL_UPPER(STR : in VSTRING) return BOOLEAN;
-- function ALL_LOWER(STR : in VSTRING) return BOOLEAN;
procedure Aflex_Fatal
(Msg : Ada.Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String);
procedure Aflex_Fatal (Msg : Wide_Wide_String);
-- aflexfatal - report a fatal error message and terminate
-- overloaded function, one for vstring, one for string.
procedure LINE_DIRECTIVE_OUT;
procedure LINE_DIRECTIVE_OUT
(OUTPUT_FILE_NAME : Ada.Wide_Wide_Text_IO.File_Type);
procedure MK2DATA
(File : Ada.Wide_Wide_Text_IO.File_Type;
Value : Integer);
procedure MKDATA(VALUE : in INTEGER);
function MYCTOI
(NUM_ARRAY : Ada.Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String)
return INTEGER;
function MYESC
(ARR : Ada.Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String)
return Unicode.Unicode_Character;
-- myesc - return character corresponding to escape sequence
function OTOI
(STR : Ada.Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String)
return Wide_Wide_Character;
function Readable_Form (C : Wide_Wide_Character) return Unbounded_String;
procedure SYNERR (STR : Wide_Wide_String);
procedure TRANSITION_STRUCT_OUT(ELEMENT_V, ELEMENT_N : in INTEGER);
function SET_YY_TRAILING_HEAD_MASK(SRC : in INTEGER) return INTEGER;
function CHECK_YY_TRAILING_HEAD_MASK(SRC : in INTEGER) return INTEGER;
function SET_YY_TRAILING_MASK(SRC : in INTEGER) return INTEGER;
function CHECK_YY_TRAILING_MASK(SRC : in INTEGER) return INTEGER;
function ISLOWER(C : in CHARACTER) return BOOLEAN;
function ISUPPER(C : in CHARACTER) return BOOLEAN;
function ISDIGIT(C : in CHARACTER) return BOOLEAN;
function TOLOWER(C : in INTEGER) return INTEGER;
function Basename
return Ada.Strings.Wide_Wide_Unbounded.Unbounded_Wide_Wide_String;
-- Basename - find the basename of a file
end Misc;
|