summaryrefslogtreecommitdiffstats
path: root/src/generic.h
blob: 92fd554b54e9100608b50fa4b3d8c4aedd3608b9 (plain) 
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

/**CFile****************************************************************

  FileName    [.h]

  SystemName  [ABC: Logic synthesis and verification system.]

  PackageName []

  Synopsis    [External declarations.]

  Author      [Alan Mishchenko]
  
  Affiliation [UC Berkeley]

  Date        [Ver. 1.0. Started - June 20, 2005.]

  Revision    [$Id: .h,v 1.00 2005/06/20 00:00:00 alanmi Exp $]

***********************************************************************/
 
#ifndef ABC__generic_h
#define ABC__generic_h


////////////////////////////////////////////////////////////////////////
///                          INCLUDES                                ///
////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////
///                         PARAMETERS                               ///
////////////////////////////////////////////////////////////////////////



ABC_NAMESPACE_HEADER_START


////////////////////////////////////////////////////////////////////////
///                         BASIC TYPES                              ///
////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////
///                      MACRO DEFINITIONS                           ///
////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////
///                    FUNCTION DECLARATIONS                         ///
////////////////////////////////////////////////////////////////////////

/*=== zzz.c ==========================================================*/
 


ABC_NAMESPACE_HEADER_END



#endif

////////////////////////////////////////////////////////////////////////
///                       END OF FILE                                ///
////////////////////////////////////////////////////////////////////////
generated by cgit v1.2.3 (git 2.25.1) at 2025-12-08 10:29:13 +0000
"c1">-- WARRANTY; without even the implied warranty of MERCHANTABILITY or -- FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License -- for more details. -- -- You should have received a copy of the GNU General Public License -- along with GCC; see the file COPYING. If not, write to the Free -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. package body Ortho_Ident is type Chunk (Max : Positive); type Chunk_Acc is access Chunk; type Chunk (Max : Positive) is record Prev : Chunk_Acc; Len : Natural := 0; S : String (1 .. Max); end record; Cur_Chunk : Chunk_Acc := null; subtype Fat_String is String (Positive); function Get_Identifier (Str : String) return O_Ident is Len : constant Natural := Str'Length; Max : Positive; Org : Positive; begin if Cur_Chunk = null or else Cur_Chunk.Len + Len >= Cur_Chunk.Max then if Cur_Chunk = null then Max := 32 * 1024; else Max := 2 * Cur_Chunk.Max; end if; if Len + 2 > Max then Max := 2 * (Len + 2); end if; declare New_Chunk : Chunk_Acc; begin -- Do not use allocator by expression, as we don't want to -- initialize S. New_Chunk := new Chunk (Max); New_Chunk.Len := 0; New_Chunk.Prev := Cur_Chunk; Cur_Chunk := New_Chunk; end; end if; Org := Cur_Chunk.Len + 1; Cur_Chunk.S (Org .. Org + Len - 1) := Str; Cur_Chunk.S (Org + Len) := ASCII.NUL; Cur_Chunk.Len := Org + Len; return (Addr => Cur_Chunk.S (Org)'Address); end Get_Identifier; function Is_Equal (L, R : O_Ident) return Boolean is begin return L = R; end Is_Equal; function Get_String_Length (Id : O_Ident) return Natural is Str : Fat_String; pragma Import (Ada, Str); for Str'Address use Id.Addr; begin for I in Str'Range loop if Str (I) = ASCII.NUL then return I - 1; end if; end loop; raise Program_Error; end Get_String_Length; function Get_String (Id : O_Ident) return String is Str : Fat_String; pragma Import (Ada, Str); for Str'Address use Id.Addr; begin for I in Str'Range loop if Str (I) = ASCII.NUL then return Str (1 .. I - 1); end if; end loop; raise Program_Error; end Get_String; function Get_Cstring (Id : O_Ident) return System.Address is begin return Id.Addr; end Get_Cstring; function Is_Equal (Id : O_Ident; Str : String) return Boolean is Istr : Fat_String; pragma Import (Ada, Istr); for Istr'Address use Id.Addr; Str_Len : constant Natural := Str'Length; begin for I in Istr'Range loop if Istr (I) = ASCII.NUL then return I - 1 = Str_Len; end if; if I > Str_Len then return False; end if; if Istr (I) /= Str (Str'First + I - 1) then return False; end if; end loop; raise Program_Error; end Is_Equal; function Is_Nul (Id : O_Ident) return Boolean is begin return Id = O_Ident_Nul; end Is_Nul; end Ortho_Ident;
generated by cgit v1.2.3 (git 2.25.1) at 2025-12-08 10:29:11 +0000