1 /*
2 * This file is part of the Alliance CAD System
3 * Copyright (C) Laboratoire LIP6 - D�partement ASIM
4 * Universite Pierre et Marie Curie
5 *
6 * Home page : http://www-asim.lip6.fr/alliance/
7 * E-mail : mailto:alliance-users@asim.lip6.fr
8 *
9 * This library is free software; you can redistribute it and/or modify it
10 * under the terms of the GNU Library General Public License as published
11 * by the Free Software Foundation; either version 2 of the License, or (at
12 * your option) any later version.
13 *
14 * Alliance VLSI CAD System is distributed in the hope that it will be
15 * useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
17 * Public License for more details.
18 *
19 * You should have received a copy of the GNU General Public License along
20 * with the GNU C Library; see the file COPYING. If not, write to the Free
21 * Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
22 */
23
24
25 /* ###--------------------------------------------------------------### */
26 /* file : pat_addpacom.c */
27 /* date : Aug 17 1993 */
28 /* version : v104 */
29 /* authors : Pirouz BAZARGAN SABET */
30 /* content : low-level pat function */
31 /* ###--------------------------------------------------------------### */
32
33 #include "mut.h"
34 #include "pat.h"
35
36 /* ###--------------------------------------------------------------### */
37 /* function : pat_addpacom */
38 /* description : create an empty PACOM (comment) structure at the top */
39 /* of a list */
40 /* called func. : mbkalloc */
41 /* ###--------------------------------------------------------------### */
42
pat_addpacom(lastpacom,text,position)43 struct pacom *pat_addpacom (lastpacom, text, position)
44
45 struct pacom *lastpacom; /* pointer on the last pacom structure */
46 char *text; /* text of the comment */
47 unsigned short position; /* # of statements. since last comment */
48
49 {
50 struct pacom *ptcom;
51
52 ptcom = (struct pacom *) mbkalloc (sizeof(struct pacom));
53 ptcom->TEXT = text;
54 ptcom->POSITION = position;
55
56 ptcom->NEXT = lastpacom;
57
58 return (ptcom);
59 }
60