Usenet 1994 October/usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso/misc/volume44/typhoon/part07

Internet Message Format | 1994-09-17 | 60.4 KB

From: [e-mail] (Thomas B. Pedersen)
Newsgroups: comp.sources.misc
Subject: v44i063:  typhoon - Typhoon Relational Database Management System, Part07/09
Date: 17 Sep 1994 21:45:52 -0500
Organization: Sterling Software
Sender: [e-mail]
Approved: [e-mail]
Message-ID: <35g9l0$[e-mail]>
X-Md4-Signature: d7cb176b74a98827291c741689971fa4

Submitted-by: [e-mail] (Thomas B. Pedersen)
Posting-number: Volume 44, Issue 63
Archive-name: typhoon/part07
Environment: SCO UNIX, Tandem NonStop UNIX, Sun Solaris, AIX, Linux, OS/2

#! /bin/sh
# This is a shell archive.  Remove anything before this line, then feed it
# into a shell via "sh file" or similar.  To overwrite existing files,
# type "sh file -c".
# Contents:  typhoon/ChangeLog typhoon/README typhoon/src/catalog.ddl
#   typhoon/src/h/environ.h typhoon/src/os.c typhoon/src/readdbd.c
#   typhoon/src/ty_log.c typhoon/src/ty_log.h typhoon/src/util/ddlp.h
#   typhoon/src/util/ddlpglob.h typhoon/src/util/ddlplex.c
#   typhoon/src/util/ddlpsym.h typhoon/src/util/exportlx.c
#   typhoon/src/util/importlx.c
# Wrapped by kent@sparky on Sat Sep 17 21:38:18 1994
PATH=/bin:/usr/bin:/usr/ucb:/usr/local/bin:/usr/lbin:$PATH ; export PATH
echo If this archive is complete, you will see the following message:
echo '          "shar: End of archive 7 (of 9)."'
if test -f 'typhoon/ChangeLog' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'typhoon/ChangeLog'\"
else
  echo shar: Extracting \"'typhoon/ChangeLog'\" \(139 characters\)
  sed "s/^X//" >'typhoon/ChangeLog' <<'END_OF_FILE'
XVersion 1.01
X
X    Just after releasing version 1.0 I was informed about two missing
X    include files. Stupid mistake which has now been fixed.
END_OF_FILE
  if test 139 -ne `wc -c <'typhoon/ChangeLog'`; then
    echo shar: \"'typhoon/ChangeLog'\" unpacked with wrong size!
  fi
  # end of 'typhoon/ChangeLog'
fi
if test -f 'typhoon/README' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'typhoon/README'\"
else
  echo shar: Extracting \"'typhoon/README'\" \(4237 characters\)
  sed "s/^X//" >'typhoon/README' <<'END_OF_FILE'
X
X            Typhoon Relational Database Management System v1.0
X
X       Copyright (c) 1994 Thomas B. Pedersen.  All rights reserved.
X
X Permission is hereby granted, without written agreement and without
X license or royalty fees, to use, copy, modify, and distribute this
X software and its documentation for any purpose, provided that the above
X copyright notice and the following two  paragraphs appear (1) in all
X source copies of this software and (2) in accompanying documentation
X wherever the programatic interface of this software, or any derivative
X of it, is described.
X
X IN NO EVENT SHALL THOMAS B. PEDERSEN BE LIABLE TO ANY PARTY FOR DIRECT,
X INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF
X THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF HE HAS BEEN
X ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
X
X THOMAS B. PEDERSEN SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT
X NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
X A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS ON AN "AS IS"
X BASIS, AND THOMAS B. PEDERSEN HAS NO OBLIGATION TO PROVIDE MAINTENANCE,
X SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
X
X-------------------------------------------------------------------------------
X
XTyphoon is a freely available relational database management system for
Xthe UNIX and OS/2 environments.
X
XThis release has been prepared in a hurry to get it out as quickly as
Xpossible. This means that the documentation is rather sparse, since I
Xhaven't had the time to write extensive documentation yet. However, most
Xof you out there are pretty clever, so you'll probably do fine with the
Xman pages and the examples.
X
XThe system works fine and is currently used in a number of professional
Xapplications in Denmark, some of them mission critical.
X
XThe system was originally inspired by Raima's db_VISTA (today Raima Data
XManager) but is relational rather than network based. Typhoon lacks some of
Xdb_VISTA's features, but also contains a number of nice features not found in
Xdb_VISTA.
X
XAll relations are defined in a so called Data Definition Language (ddl) file.
XYou define the database relations like you would write a C structure with
Xchars, ints, strings, multidimensional arrays, nested union and structures,
Xetc. Then you define primary, alternate and foreign keys for each relation.
XThe Data Definition Language Processor (ddlp) compiles the database defintion
Xinto a binary file which constitutes the database description. The database
Xrelations are accessed via C subroutines which manipulate individual records
Xwithin a table.
X
X    - Multiple open database
X    - Multi-field keys
X    - Nested structures in records
X    - Controlled unions
X    - Referential integrity
X    - Variable length fields
X    - Null keys (optional keys in db_VISTA, but easier to use)
X    - Dynamic opening and closing of database files
X
XAt present the database has no locking mechanism, believe it or not! The
Xprojects I have used it in, simply didn't need it, even though they were
Xmulti-user environments. But it's in the works!
X
XI am currently working on extending the library to support the following:
X
X    - Locking
X    - Logging
X    - Transactions
X    - Paging (to improve performance)
X
XThe library functions will remain intact, except for a number of new functions.
XI expect these things to be ready before the end of the year. Beta testers
Xare welcome.
X
XThe library comes with three additional utilities:
X
X    dbdview        - Displayes the database definitions.
X    tyexport    - Exports tables from a database.
X    tyimport    - Imports tables into a database.
X
XOriginally the library also contained online backup, restore and a replication
Xserver. These tools would need a lot of extra documentation, so I have left
Xthem out for now (the code still contains support for these utilities).
XHowever, if enough people show interest I will probably release them also.
X
X
X-------------------------------------------------------------------------------
X
XBug reports and mail should be sent to
X
X    Thomas B. Pedersen
X    [e-mail]
X
XAlso, if you have any suggestions as to how I can improve the library,
Xdocumentation or anything else, please don't hesitate to mail me.
X
X
XRegards,
X
XThomas B. Pedersen
END_OF_FILE
  if test 4237 -ne `wc -c <'typhoon/README'`; then
    echo shar: \"'typhoon/README'\" unpacked with wrong size!
  fi
  # end of 'typhoon/README'
fi
if test -f 'typhoon/src/catalog.ddl' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'typhoon/src/catalog.ddl'\"
else
  echo shar: Extracting \"'typhoon/src/catalog.ddl'\" \(3814 characters\)
  sed "s/^X//" >'typhoon/src/catalog.ddl' <<'END_OF_FILE'
X/*----------------------------------------------------------------------------
X * File    : @(#)catalog.ddl 94/06/07      Copyright (c) 1993-94 Belle Systems
X * Library : typhoon
X * Version : 1.0
X * OS      : UNIX, Solaris
X * Compiler: ddlp
X * Author  : Thomas B. Pedersen
X *
X * Description:
X *     Typhoon Database Definition Language file for System Catalog.
X *
X * Version control:
X *      $Header: /usr/c/src_repository/CVSROOT/typhoon/src/catalog.ddl,v 1.1 1994/09/13 21:28:30 tbp Exp $
X *      $Log: catalog.ddl,v $
X# Revision 1.1  1994/09/13  21:28:30  tbp
X# Added to repository.
X#
X *
X * History
X * ------------------------------
X * 10-Sep-1993 tbp  Initial version.
X *  8-Dec-1993 tbp  Added identification tag to sys_distab.
X * 13-Dec-1993 tbp  Added sys_disfull table.
X * 20-Dec-1993 tbp  Now udata need not be ASCIIZ.
X *  7-Jun-1994 tbp  sys_dischange_key modified to avoid unnecessary resending
X *                    of records.
X *
X *--------------------------------------------------------------------------*/
X
Xdatabase catalog {
X
X    data file "dissite.dat"  contains sys_dissite;
X    key  file "dissite.ix1"  contains sys_dissite.id;
X    data file "distable.dat" contains sys_distab;
X    key  file "distable.ix1" contains sys_distab.sys_distab_key;
X    data file "dischg.dat"   contains sys_dischange;
X    key  file "dischg.ix1"   contains sys_dischange.sys_dischange_key;
X    data file "disprkey.dat" contains sys_disprkey;
X
X    data file "disfultb.dat" contains sys_disfulltab;
X    key  file "disfultb.ix1" contains sys_disfulltab.fulltab_key;
X
X    define SITES_MAX        296
X    define SITEBITMAP_SIZE    ((SITES_MAX+7)/8)
X    define SITENAME_LEN        20
X    define NUA_LEN            16
X    define UDATA_LEN        16
X    define KEYSIZE_MAX        255
X
X    record sys_dissite {
X        ulong    id;                        // Site ID
X        long    last_call;                // Time of last call.
X        ushort    tables;                    // Number of distributed tables on
X                                        // this site
X        char    name[SITENAME_LEN+1];    // Mnemonic
X        char    nua[NUA_LEN+1];            // X.25 address
X        char    udata_len;
X        char    udata[UDATA_LEN];        // X.25 Call User Data
X        char    up_to_date;                // 1=Site is completely up-to-date
X        char    in_error;                // 1=Site is malfunctioning
X        char    spare[99];
X
X        primary key id;
X    }
X
X    record sys_distab {
X        long    id;                        // Table ID
X        long    site_id;                // Site ID
X        long    last_seqno;                // Last seqno sent
X        char    tag;                    // Record identification tag
X        char    up_to_date;                // 1=Table is up-to-date on site
X        char    spare[10];
X
X        primary key sys_distab_key { site_id, id };
X    }
X
X    record sys_dischange {
X        ulong        seqno;                // Sequence number
X        long        table_id;            // Table ID
X        long        recno;                // action='u': address of record
X                                        // action='d': address of primary key
X                                        // in sys_disprkey
X        ushort        sites;                // Number of 1-bits in site[]
X        uchar        prog_id;            // Program ID
X        char        action;                // 'u'=update, 'd'=delete
X                                        // Bitmap of unupdated sites, indexes
X                                        // by Site ID. 0=up-to-date
X        uchar        site[SITEBITMAP_SIZE];
X
X//        primary key sys_dischange_key { table_id, seqno };
X        primary key sys_dischange_key { table_id, recno };
X    }
X
X    record sys_disprkey {
X        ushort        size;
X        uchar        buf[KEYSIZE_MAX];
X    }
X
X    /*
X     * When a new site is inserted in the catalog, a record of type
X     * <sys_disfulltab> is created for each record inserted in <sys_distab>.
X     *
X     * The <sys_disfulltab> is used to control that the site receives all tables
X     * from scratch, before being updated from <sys_dischg>. When entries
X     * are present in the <sys_disfulltab>, the <updatable> flags in
X     * <sys_dissite> must be 0.
X    */
X
X    record sys_disfulltab {
X        long        site_id;                // Site ID
X        ulong        table_id;                // Table ID
X        ulong        curr_rec;                // Last record read in seq. scan
X
X        primary key fulltab_key { site_id, table_id };
X    }
X
X}
X
X/* end-of-file */
END_OF_FILE
  if test 3814 -ne `wc -c <'typhoon/src/catalog.ddl'`; then
    echo shar: \"'typhoon/src/catalog.ddl'\" unpacked with wrong size!
  fi
  # end of 'typhoon/src/catalog.ddl'
fi
if test -f 'typhoon/src/h/environ.h' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'typhoon/src/h/environ.h'\"
else
  echo shar: Extracting \"'typhoon/src/h/environ.h'\" \(4190 characters\)
  sed "s/^X//" >'typhoon/src/h/environ.h' <<'END_OF_FILE'
X/*----------------------------------------------------------------------------
X * File    : environ.h
X * OS      : UNIX, OS/2, DOS
X * Author  : Thomas B. Pedersen
X *
X * Copyright (c) 1994 Thomas B. Pedersen.  All rights reserved.
X *
X * Permission is hereby granted, without written agreement and without
X * license or royalty fees, to use, copy, modify, and distribute this
X * software and its documentation for any purpose, provided that the above
X * copyright notice and the following two  paragraphs appear (1) in all
X * source copies of this software and (2) in accompanying documentation
X * wherever the programatic interface of this software, or any derivative
X * of it, is described.
X *
X * IN NO EVENT SHALL THOMAS B. PEDERSEN BE LIABLE TO ANY PARTY FOR DIRECT,
X * INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF
X * THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF HE HAS BEEN
X * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
X *
X * THOMAS B. PEDERSEN SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT
X * NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
X * A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS ON AN "AS IS"
X * BASIS, AND THOMAS B. PEDERSEN HAS NO OBLIGATION TO PROVIDE MAINTENANCE,
X * SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
X *
X * Description:
X *   Multi Operating System compatibility include file.
X *
X * $Id: environ.h,v 1.1 1994/09/17 15:59:13 tbp Exp $
X *
X * $Log: environ.h,v $
X * Revision 1.1  1994/09/17  15:59:13  tbp
X * Added to repository.
X *
X *
X *--------------------------------------------------------------------------*/
X
X#ifndef _ENVIRON_INCLUDED
X#define _ENVIRON_INCLUDED
X
X
X/*--------------------------------------------------------------------------*/
X/*                              UNIX System V                               */
X/*--------------------------------------------------------------------------*/
X
X#ifdef UNIX
X
X#define CREATMASK        0666
X#ifndef O_BINARY
X#define O_BINARY        0
X#endif
X#define DIR_SWITCH        '/'
X
X#if defined(sun)
X#    define PROTOTYPES        1
X#    define BIG_ENDIAN        1
X#    define RISC                1
X#elif defined(__nonstopux)
X#    define PROTOTYPES        1
X#    define BIG_ENDIAN        1
X#    define RISC                1
X#elif defined(__linux__)
X#    define PROTOTYPES        1
X#    define LITTLE_ENDIAN    1
X#else /* presumably Intel */
X#    define SCO                1
X#    define PROTOTYPES        1
X#    define LITTLE_ENDIAN    1
X#endif
X
Xtypedef unsigned char   uchar;
X#ifndef _SYS_TYPES_H
X    typedef unsigned short  ushort;
X    typedef unsigned long   ulong;
X#endif
X
X#endif
X
X/*--------------------------------------------------------------------------*/
X/*                               OS/2 v2.0                                  */
X/*--------------------------------------------------------------------------*/
X
X#ifdef OS2
X#ifdef __BORLANDC__
X#   define __STDC__ 1
X#endif
X#define DIR_SWITCH        '\\'
X#define CREATMASK        (S_IREAD|S_IWRITE)
X#define PROTOTYPES        1
X#define LITTLE_ENDIAN    1
X
Xtypedef unsigned char   uchar;
Xtypedef unsigned short  ushort;
Xtypedef unsigned long   ulong;
X
X#endif
X
X
X/*--------------------------------------------------------------------------*/
X/*                                    DOS                                   */
X/*--------------------------------------------------------------------------*/
X
X#ifdef DOS
X
X#define DIR_SWITCH        '\\'
X#define CREATMASK        (S_IREAD|S_IWRITE)
X#define PROTOTYPES        1
X#define LITTLE_ENDIAN    1
X
Xtypedef unsigned char   uchar;
Xtypedef unsigned short  ushort;
Xtypedef unsigned long   ulong;
X
X#endif
X
X
X#ifdef PROTOTYPES
X#    define PRM(x)        x
X#    define _PRM(x)        x
X#    define ELLIPSIS        ,...
X#else
X#    define PRM(x)        ();
X#    define _PRM(x)        ()
X#    define ELLIPSIS        /**/
X#endif
X
X#ifndef offsetof
X#    define offsetof(s,m)        ((int)&(((s *)0))->m)
X#endif
X
X#ifdef BIG_ENDIAN
X#    define SWAPTOSHORT(i)    (((i) >> 8) & 0xff | (i & 0xff) << 8)
X#    define SWAPTOLONG(l)    ((((l) & 0xff) << 24) | (((l) & 0xff00) << 8) | \
X                            (((l) >> 8) & 0xff00) | (((l) >> 24) & 0xff))
X#    define SWAPSHORT(i)        i = SWAPTOSHORT(i)
X#    define SWAPLONG(l)        l = SWAPTOLONG(l)
X#else
X#    define SWAPTOSHORT(i)    i
X#    define SWAPTOLONG(l)    l
X#    define SWAPSHORT(i)        (void)0
X#    define SWAPLONG(l)        (void)0
X#    define SWAP(l)            (void)0
X#endif
X
X
X#endif
X
X/* end-of-file */
END_OF_FILE
  if test 4190 -ne `wc -c <'typhoon/src/h/environ.h'`; then
    echo shar: \"'typhoon/src/h/environ.h'\" unpacked with wrong size!
  fi
  # end of 'typhoon/src/h/environ.h'
fi
if test -f 'typhoon/src/os.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'typhoon/src/os.c'\"
else
  echo shar: Extracting \"'typhoon/src/os.c'\" \(4356 characters\)
  sed "s/^X//" >'typhoon/src/os.c' <<'END_OF_FILE'
X/*----------------------------------------------------------------------------
X * File    : os.c
X * Library : typhoon
X * OS      : UNIX, OS/2, DOS
X * Author  : Thomas B. Pedersen
X *
X * Copyright (c) 1994 Thomas B. Pedersen.  All rights reserved.
X *
X * Permission is hereby granted, without written agreement and without
X * license or royalty fees, to use, copy, modify, and distribute this
X * software and its documentation for any purpose, provided that the above
X * copyright notice and the following two  paragraphs appear (1) in all
X * source copies of this software and (2) in accompanying documentation
X * wherever the programatic interface of this software, or any derivative
X * of it, is described.
X *
X * IN NO EVENT SHALL THOMAS B. PEDERSEN BE LIABLE TO ANY PARTY FOR DIRECT,
X * INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF
X * THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF HE HAS BEEN
X * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
X *
X * THOMAS B. PEDERSEN SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT
X * NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
X * A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS ON AN "AS IS"
X * BASIS, AND THOMAS B. PEDERSEN HAS NO OBLIGATION TO PROVIDE MAINTENANCE,
X * SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
X *
X * Description:
X *   Contains functions that may vary between different operating systems
X *   such as opening and locking files.
X *
X * Functions:
X *   os_lock        Get exclusive access to the database.
X *   os_unlock        Release the lock.
X *
X * $Log: os.c,v $
X * Revision 1.1  1994/09/13  21:28:31  tbp
X * Added to repository.
X *
X *
X *--------------------------------------------------------------------------*/
X
Xstatic char rcsid[] = "$Id";
X
X#ifdef UNIX
X#  include <sys/types.h>
X#  include <sys/stat.h>
X#  include <unistd.h>
X#endif
X#ifdef __linux__
X#    include <sys/file.h>
X#    define F_TLOCK    LOCK_NB
X#    define F_LOCK    LOCK_EX
X#    define F_ULOCK    LOCK_UN
X#    define lockf(fd,op,len)    flock(fd,op)
X#endif
X#ifdef _MSC_VER
X#  include <sys/types.h>
X#  include <sys/stat.h>
X#  include <sys/locking.h>
X#endif
X#ifdef __BORLANDC__
X#  include <sys\locking.h>
X#  include <io.h>
X#endif
X#ifdef __IBMC__
X#include <io.h>
X#include <share.h>
X#endif
X#include <fcntl.h>
X#include <stdio.h>
X
X
X/*--------------------------------- os_lock --------------------------------*\
X *
X * Purpose     : Lock a region of a file.
X *
X * Parameters: fh        - File handle.
X *               offset    - Offset from start of file.
X *               bytes    - Number of bytes to lock.
X *               type        - Lock type. 't'=test and lock, 'w'=wait and lock
X *
X *
X * Returns     : -1         - The region could not be locked.
X *               0        - Region locked.
X *
X */
X
Xos_lock(fh, offset, bytes, type)
Xint fh;
Xlong offset;
Xunsigned bytes;
X{
X    lseek(fh, offset, SEEK_SET);
X#ifdef DOS
X    /* Microsoft C */
X#    ifdef _MSC_VER
X    if( locking(fh, type == 't' ? LK_NBLCK : LK_LOCK, bytes) == -1 )
X        return -1;
X#    endif
X#endif
X#ifdef UNIX
X    if( lockf(fh, type == 't' ? F_TLOCK : F_LOCK, bytes) == -1 )
X        puts("lockf failed");
X#endif
X#ifdef OS2
X#    ifdef __BORLANDC__
X    if( locking(fh, type == 't' ? LK_NBLCK : LK_LOCK, bytes) == -1 )
X        return -1;
X#    endif
X#endif
X
X    return 0;
X}
X
X/*-------------------------------- os_unlock -------------------------------*\
X *
X * Purpose     : Unlock a region of a file.
X *
X * Parameters: fh        - File handle.
X *               offset    - Offset from start of file.
X *               bytes    - Number of bytes to lock.
X *               type        - Lock type. 't'=test and lock, 'w'=wait and lock
X *
X *
X * Returns     : -1         - The region could not be unlocked.
X *               0        - Region unlocked.
X *
X */
X
Xos_unlock(fh, offset, bytes)
Xint fh;
Xlong offset;
Xunsigned bytes;
X{
X    lseek(fh, offset, SEEK_SET);
X#ifdef DOS
X    /* Microsoft C */
X#    ifdef _MSC_VER
X    return locking(fh, LK_UNLCK, bytes);
X#    endif
X#endif
X#ifdef UNIX
X    return lockf(fh, F_ULOCK, bytes);
X#endif
X#ifdef OS2
X#    ifdef __BORLANDC__
X    return locking(fh, LK_UNLCK, bytes);
X#    endif
X#endif
X}
X
X
X
X
Xos_open(fname, flags, creatflags)
Xchar *fname;
Xint flags, creatflags;
X{
X#ifdef __IBMC__
X    return sopen(fname, flags, SH_DENYNO, creatflags);
X#else
X    return open(fname, flags, creatflags);
X#endif
X}
X
X
X
Xos_close(fh)
Xint fh;
X{
X    return close(fh);
X}
X
X
Xos_access(fname, mode)
Xchar *fname;
Xint mode;
X{
X#ifdef __IBMC__
X    return _access(fname, mode);
X#else
X    return access(fname, mode);
X#endif
X}
X
X/* end-of-file */
END_OF_FILE
  if test 4356 -ne `wc -c <'typhoon/src/os.c'`; then
    echo shar: \"'typhoon/src/os.c'\" unpacked with wrong size!
  fi
  # end of 'typhoon/src/os.c'
fi
if test -f 'typhoon/src/readdbd.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'typhoon/src/readdbd.c'\"
else
  echo shar: Extracting \"'typhoon/src/readdbd.c'\" \(3894 characters\)
  sed "s/^X//" >'typhoon/src/readdbd.c' <<'END_OF_FILE'
X/*----------------------------------------------------------------------------
X * File    : readdbd.c
X * Library : typhoon
X * OS      : UNIX, OS/2, DOS
X * Author  : Thomas B. Pedersen
X *
X * Copyright (c) 1994 Thomas B. Pedersen.  All rights reserved.
X *
X * Permission is hereby granted, without written agreement and without
X * license or royalty fees, to use, copy, modify, and distribute this
X * software and its documentation for any purpose, provided that the above
X * copyright notice and the following two  paragraphs appear (1) in all
X * source copies of this software and (2) in accompanying documentation
X * wherever the programatic interface of this software, or any derivative
X * of it, is described.
X *
X * IN NO EVENT SHALL THOMAS B. PEDERSEN BE LIABLE TO ANY PARTY FOR DIRECT,
X * INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF
X * THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF HE HAS BEEN
X * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
X *
X * THOMAS B. PEDERSEN SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT
X * NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
X * A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS ON AN "AS IS"
X * BASIS, AND THOMAS B. PEDERSEN HAS NO OBLIGATION TO PROVIDE MAINTENANCE,
X * SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
X *
X * Description:
X *   Contains a function that reads the dbd-file.
X *
X * Functions:
X *   read_dbdfile    - Read the database description file.
X *
X * $Log: readdbd.c,v $
X * Revision 1.2  1994/09/17  16:00:14  tbp
X * typhoon.h and environ.h are now included from <>.
X *
X * Revision 1.1  1994/09/13  21:28:32  tbp
X * Added to repository.
X *
X *
X *--------------------------------------------------------------------------*/
X
Xstatic char rcsid[] = "$Id: readdbd.c,v 1.2 1994/09/17 16:00:14 tbp Exp $";
X
X#ifdef UNIX
X#  include <unistd.h>
X#  include <stdio.h>
X#  ifdef __STDC__
X#    include <stdlib.h>
X#  endif
X#else
X#  include <stdlib.h>
X#  include <io.h>
X#endif
X#include <stdio.h>
X#include <fcntl.h>
X#include <errno.h>
X#include <typhoon.h>
X#include "ty_dbd.h"
X#include "ty_type.h"
X#include "ty_glob.h"
X
X
X/*------------------------------ read_dbdfile ------------------------------*\
X *
X * Purpose     : Reads the dbd-file into a available database slot provided
X *               by the calling function. The table pointers in the slot are
X *               also set up.
X *
X * Parameters: _db            - Pointer to database entry slot.
X *               fname        - The name of the dbd-file.
X *
X * Returns     : S_OKAY        - dbd-file successfully read.
X *               S_NOMEM        - Not enough memory to allocate tables.
X *               S_INVDB        - Cannot find dbd-file.
X *               S_IOFATAL    - The dbd-file is corrupted.
X *
X */
X
Xread_dbdfile(_db, fname)
XDbentry *_db;
Xchar *fname;
X{
X    int dbdfile, size;
X
X    if( (dbdfile = os_open(fname, O_RDONLY|O_BINARY)) == -1 )
X        RETURN S_INVDB;
X
X    /*
X     * Get the size of the dbd-file, read the header and expand to buffer
X     * to hold a table of file handles.
X     */
X    size = lseek(dbdfile, 0, SEEK_END);
X    lseek(dbdfile, 0, SEEK_SET);
X
X    if( read(dbdfile, &_db->header, sizeof _db->header) < sizeof(_db->header) )
X        RETURN S_IOFATAL;
X
X    if( strcmp(_db->header.version, DBD_VERSION) )
X        RETURN S_VERSION;
X
X    size -= sizeof _db->header;
X
X    if( !(_db->dbd = (void *)malloc(size + _db->header.files * sizeof(Fh))) )
X    {
X        close(dbdfile);
X        RETURN S_NOMEM;
X    }
X
X    read(dbdfile, _db->dbd, size);
X    close(dbdfile);
X
X    /* Set up pointers to tables */
X    _db->file        = (File     *)_db->dbd;
X    _db->key        = (Key      *)(_db->file     + _db->header.files);
X    _db->keyfield    = (KeyField *)(_db->key         + _db->header.keys);
X    _db->record     = (Record   *)(_db->keyfield + _db->header.keyfields);
X    _db->field        = (Field    *)(_db->record     + _db->header.records);
X    _db->structdef    = (Structdef*)(_db->field     + _db->header.fields);
X    _db->fh         = (Fh       *)(_db->structdef+ _db->header.structdefs);
X
X    return S_OKAY;
X}
X
X
X/* end-of-file */
END_OF_FILE
  if test 3894 -ne `wc -c <'typhoon/src/readdbd.c'`; then
    echo shar: \"'typhoon/src/readdbd.c'\" unpacked with wrong size!
  fi
  # end of 'typhoon/src/readdbd.c'
fi
if test -f 'typhoon/src/ty_log.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'typhoon/src/ty_log.c'\"
else
  echo shar: Extracting \"'typhoon/src/ty_log.c'\" \(4653 characters\)
  sed "s/^X//" >'typhoon/src/ty_log.c' <<'END_OF_FILE'
X/*----------------------------------------------------------------------------
X * File    : ty_log.c
X * Library : typhoon
X * OS      : UNIX, OS/2, DOS
X * Author  : Thomas B. Pedersen
X *
X * Copyright (c) 1994 Thomas B. Pedersen.  All rights reserved.
X *
X * Permission is hereby granted, without written agreement and without
X * license or royalty fees, to use, copy, modify, and distribute this
X * software and its documentation for any purpose, provided that the above
X * copyright notice and the following two  paragraphs appear (1) in all
X * source copies of this software and (2) in accompanying documentation
X * wherever the programatic interface of this software, or any derivative
X * of it, is described.
X *
X * IN NO EVENT SHALL THOMAS B. PEDERSEN BE LIABLE TO ANY PARTY FOR DIRECT,
X * INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF
X * THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF HE HAS BEEN
X * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
X *
X * THOMAS B. PEDERSEN SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT
X * NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
X * A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS ON AN "AS IS"
X * BASIS, AND THOMAS B. PEDERSEN HAS NO OBLIGATION TO PROVIDE MAINTENANCE,
X * SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
X *
X * Description:
X *   Contains function that write to the Replication Server log.
X *
X * Functions:
X *
X * $Log: ty_log.c,v $
X * Revision 1.2  1994/09/17  16:00:18  tbp
X * typhoon.h and environ.h are now included from <>.
X *
X * Revision 1.1  1994/09/13  21:28:35  tbp
X * Added to repository.
X *
X *
X *--------------------------------------------------------------------------*/
X
Xstatic char rcsid[] = "$Id: ty_log.c,v 1.2 1994/09/17 16:00:18 tbp Exp $";
X
X#include <sys/types.h>
X#include <unistd.h>
X#include <stdio.h>
X#include <fcntl.h>
X#include <typhoon.h>
X#include "ty_dbd.h"
X#include "ty_type.h"
X#include "ty_glob.h"
X#include "ty_prot.h"
X#include "ty_log.h"
X
X/*-------------------------- Function prototypes ---------------------------*/
Xstatic do_log            PRM( (ulong, ulong); )
X
X
X/*---------------------------- Global variables ----------------------------*/
Xstatic int log_fh = -1;            /* Log file handle                            */
Xstatic int log_trans = 0;        /* True if the current transaction was        */
X                                /* started during backup                    */
X
X/*--------------------------------------------------------------------------*\
X *
X * Function  : do_log
X *
X * Purpose   : This function checks whether an operation should be logged or
X *               not. If yes, the log file is opened if not already open.
X *               If the backup is no longer active, the log file is closed.
X *
X * Parameters:
X *
X * Returns   :
X *
X */
Xstatic do_log(recid, recno)
Xulong recid, recno;
X{
X    if( !DB->shm->backup_active && !log_trans )
X    {
X        if( log_fh != -1 )
X        {
X            close(log_fh);
X            log_fh = -1;
X        }
X        return -1;
X    }
X
X    if( recid > DB->shm->curr_recid && recno > DB->shm->curr_recno )
X        return -1;
X
X    if( log_fh == -1 )
X    {
X        log_fh = os_open(LOG_FNAME, O_RDWR|O_APPEND|O_CREAT, CREATMASK);
X
X        if( log_fh == -1 )
X        {
X            puts("cannot open log");
X            return -1;
X        }
X    }
X
X    return 0;
X}
X
X
X
X/*--------------------------------------------------------------------------*\
X *
X * Function  : Log a record update.
X *
X * Purpose   :
X *
X * Parameters:
X *
X * Returns   :
X *
X */
Xlog_update(recid, recno, size, data)
Xulong recid;
Xulong recno;
Xunsigned size;
Xvoid *data;
X{
X    LogUpdate update;
X
X    if( do_log(recid, recno) == -1 )
X        return 0;
X
X    os_lock(log_fh, 0, 1, 'u');
X
X#ifdef RISC
X    if( size & 3 )
X        size += 4 - (size & 3);
X#endif
X
X    update.id        = LOG_UPDATE;
X    update.len        = size + sizeof update;
X    update.recid    = recid;
X    update.recno    = recno;
X
X    write(log_fh, &update, sizeof update);
X    write(log_fh, data, size);
X
X    os_unlock(log_fh, 0, 1);
X}
X
X
Xlog_delete(recid, recno)
Xulong recid, recno;
X{
X    LogDelete delete;
X
X    if( do_log(recid, recno) == -1 )
X        return 0;
X
X    os_lock(log_fh, 0, 1, 'u');
X
X    delete.id        = LOG_UPDATE;
X    delete.len        = sizeof delete;
X    delete.recid    = recid;
X    delete.recno    = recno;
X
X    write(log_fh, &delete, sizeof delete);
X
X    os_unlock(log_fh, 0, 1);
X}
X
X
X/*--------------------------------------------------------------------------*\
X *
X * Function  :
X *
X * Purpose   :
X *
X * Parameters:
X *
X * Returns   :
X *
X */
XFNCLASS d_beginwork()
X{
X    if( DB->shm->backup_active )
X    {
X        DB->shm->num_trans_active++;
X        log_trans = 1;
X    }
X
X    return S_OKAY;
X}
X
X
X
XFNCLASS d_commitwork()
X{
X    if( log_trans )
X    {
X        log_trans = 0;
X        DB->shm->num_trans_active--;
X    }
X}
X
X
X
XFNCLASS d_abortwork()
X{
X    if( log_trans )
X    {
X        log_trans =0 ;
X        DB->shm->num_trans_active--;
X    }
X}
X
X/* end-of-file */
END_OF_FILE
  if test 4653 -ne `wc -c <'typhoon/src/ty_log.c'`; then
    echo shar: \"'typhoon/src/ty_log.c'\" unpacked with wrong size!
  fi
  # end of 'typhoon/src/ty_log.c'
fi
if test -f 'typhoon/src/ty_log.h' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'typhoon/src/ty_log.h'\"
else
  echo shar: Extracting \"'typhoon/src/ty_log.h'\" \(3637 characters\)
  sed "s/^X//" >'typhoon/src/ty_log.h' <<'END_OF_FILE'
X/*----------------------------------------------------------------------------
X * File    : ty_log.h
X * Library : typhoon
X * OS      : UNIX, OS/2, DOS
X * Author  : Thomas B. Pedersen
X *
X * Copyright (c) 1994 Thomas B. Pedersen.  All rights reserved.
X *
X * Permission is hereby granted, without written agreement and without
X * license or royalty fees, to use, copy, modify, and distribute this
X * software and its documentation for any purpose, provided that the above
X * copyright notice and the following two  paragraphs appear (1) in all
X * source copies of this software and (2) in accompanying documentation
X * wherever the programatic interface of this software, or any derivative
X * of it, is described.
X *
X * IN NO EVENT SHALL THOMAS B. PEDERSEN BE LIABLE TO ANY PARTY FOR DIRECT,
X * INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF
X * THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF HE HAS BEEN
X * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
X *
X * THOMAS B. PEDERSEN SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT
X * NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
X * A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS ON AN "AS IS"
X * BASIS, AND THOMAS B. PEDERSEN HAS NO OBLIGATION TO PROVIDE MAINTENANCE,
X * SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
X *
X * Description:
X *   Contains the definitions used for online backup.
X *
X * $Id: ty_log.h,v 1.1 1994/09/13 21:28:36 tbp Exp $
X *
X * $Log: ty_log.h,v $
X * Revision 1.1  1994/09/13  21:28:36  tbp
X * Added to repository.
X *
X *
X *--------------------------------------------------------------------------*/
X
X#define LOG_FNAME    "typhoon.log"
X#define LOG_UPDATE    1
X#define LOG_DELETE    2
X
Xtypedef struct {
X    short    id;                            /* = LOG_INSERT                        */
X    ushort    len;                        /* Length of entire block            */
X    ulong    recid;
X    ulong    recno;
X/*    char    data[1];*/
X} LogUpdate;
X
Xtypedef struct {
X    short    id;                            /* = LOG_DELETE                        */
X    ushort    len;                        /* Length of entire block            */
X    ulong    recid;
X    ulong    recno;
X} LogDelete;
X
X
X#define ARCHIVE_MEDIA        1
X#define ARCHIVE_RECORD        2
X#define ARCHIVE_FILE        3
X#define ARCHIVE_FILEDATA    4
X#define ARCHIVE_TABLE        5
X#define ARCHIVE_END            6
X
X#define ARCHIVE_BLOCK        99
X
Xtypedef struct {
X    ulong    id;                            /* = ARCHIVE_MEDIA                    */
X    char    dbname[DBNAME_LEN+1];
X    char    spare[3];
X    long    date;                        /* Date of backup                    */
X    ulong    seqno;                        /* Media number in backup            */
X    char    spare2[512];
X} ArchiveMediaHeader;
X
Xtypedef struct {
X    ulong    id;                            /* = ARCHIVE_RECORD                    */
X    ulong    recid;
X    ulong    recno;
X} ArchiveRecordHeader;
X
Xtypedef struct {
X    ulong    id;                            /* = ARCHIVE_FILE                    */
X    ulong    recsize;
X    char    table[IDENT_LEN+1];
X    char    fname[128];
X} ArchiveTableHeader;
X
Xtypedef struct {
X    ulong    id;                            /* = ARCHIVE_FILE                    */
X    char    fname[128];
X} ArchiveFileHeader;
X
Xtypedef struct {
X    ulong    id;                            /* = ARCHIVE_FILEDATA                */
X    ulong    size;
X} ArchiveFileDataHeader;
X
Xtypedef struct {
X    ulong    id;                            /* = ARCHIVE_END                    */
X} ArchiveEnd;
X
Xtypedef struct {
X    ulong    id;
X    ulong    size;
X} ArchiveBlockHeader;
X
X
X/*
X    Archive structure
X    ==============================
X
X    [MediaHeader]
X
X    [FileHeader]                ----+
X    [FileDataHeader]                |
X    data                            +---    dbd-file
X    [FileDataHeader]                |
X    data                            |
X    ...                                |
X    [FileDataHeader size=0]        ----+
X
X    [TableHeader]                ----+
X    [RecordHeader]                    |
X    record                            |
X    [RecordHeader]                    +---    database
X    record                            |
X    ...                                |
X    [RecordHeader]                    |
X    record                        ----+
X
X    [FileHeader]                ----+
X    [FileDataHeader]                |
X    data                            +---    log file
X    [FileDataHeader]                |
X    data                            |
X    ...                                |
X    [FileDataHeader size=0]        ----+
X
X    [End]
X*/
X
X
X/* end-of-file */
END_OF_FILE
  if test 3637 -ne `wc -c <'typhoon/src/ty_log.h'`; then
    echo shar: \"'typhoon/src/ty_log.h'\" unpacked with wrong size!
  fi
  # end of 'typhoon/src/ty_log.h'
fi
if test -f 'typhoon/src/util/ddlp.h' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'typhoon/src/util/ddlp.h'\"
else
  echo shar: Extracting \"'typhoon/src/util/ddlp.h'\" \(3235 characters\)
  sed "s/^X//" >'typhoon/src/util/ddlp.h' <<'END_OF_FILE'
X/*----------------------------------------------------------------------------
X * File    : ddlp.h
X * Program : ddlp
X * OS      : UNIX, OS/2, DOS
X * Author  : Thomas B. Pedersen
X *
X * Copyright (c) 1994 Thomas B. Pedersen.  All rights reserved.
X *
X * Permission is hereby granted, without written agreement and without
X * license or royalty fees, to use, copy, modify, and distribute this
X * software and its documentation for any purpose, provided that the above
X * copyright notice and the following two  paragraphs appear (1) in all
X * source copies of this software and (2) in accompanying documentation
X * wherever the programatic interface of this software, or any derivative
X * of it, is described.
X *
X * IN NO EVENT SHALL THOMAS B. PEDERSEN BE LIABLE TO ANY PARTY FOR DIRECT,
X * INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF
X * THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF HE HAS BEEN
X * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
X *
X * THOMAS B. PEDERSEN SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT
X * NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
X * A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS ON AN "AS IS"
X * BASIS, AND THOMAS B. PEDERSEN HAS NO OBLIGATION TO PROVIDE MAINTENANCE,
X * SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
X *
X * Description:
X *   ddlp header file.
X *
X * $Id: ddlp.h,v 1.1 1994/09/13 21:28:52 tbp Exp $
X *
X * $Log: ddlp.h,v $
X * Revision 1.1  1994/09/13  21:28:52  tbp
X * Added to repository.
X *
X * Added to repository.
X *
X *
X *--------------------------------------------------------------------------*/
X
X/*-------------------------------- Constants -------------------------------*/
X#define RECORDS_MAX        256        /* Maximum number of records                */
X#define STRUCTDEFS_MAX    256        /* Maximum number of structure definitions    */
X#define FIELDS_MAX        512        /* Maximum number of fields                    */
X#define FILES_MAX        512        /* Maximum number of files                    */
X#define KEYS_MAX        256        /* Maximum number of keys                    */
X#define KEYFIELDS_MAX    1024    /* Maximum number of key fields                */
X#define DEFINES_MAX        200        /* Maximum number of defines                */
X#define CONTAINS_MAX    512        /* Maximum number of contains statements    */
X
X/*
X * This structure contains integer constants defined in the database
X * definition. These definitions are exported to the header file.
X */
X
Xtypedef struct {
X    int        value;
X    char    name[IDENT_LEN+1];
X} Define;
X
X
X/*------------------------------- ddlp.c -----------------------------------*/
Xvoid    err_quit               PRM( (char * ELLIPSIS);       )
Xvoid    align_offset        PRM( (unsigned *, int); )
Xvoid    add_key                PRM( (char *); )
Xvoid    add_keyfield        PRM( (Id, int); )
Xvoid    add_define            PRM( (char *, int); )
Xvoid    add_file            PRM( (int, char *, unsigned); )
Xvoid    add_contains        PRM( (int, char *, char *); )
Xvoid    add_record            PRM( (char *); )
Xvoid    add_field            PRM( (char *, int); )
Xvoid    add_structdef        PRM( (char *, int, int); )
Xvoid    check_foreign_key    PRM( (char *, Key *); )
X
X/*-------------------------------- ddl.y -----------------------------------*/
Xint        yyerror                PRM( (char * ELLIPSIS); )
X
X/*------------------------------- ddlplex.c --------------------------------*/
Xvoid    init_lex            PRM( (void); )
X
X
X/* end-of-file */
END_OF_FILE
  if test 3235 -ne `wc -c <'typhoon/src/util/ddlp.h'`; then
    echo shar: \"'typhoon/src/util/ddlp.h'\" unpacked with wrong size!
  fi
  # end of 'typhoon/src/util/ddlp.h'
fi
if test -f 'typhoon/src/util/ddlpglob.h' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'typhoon/src/util/ddlpglob.h'\"
else
  echo shar: Extracting \"'typhoon/src/util/ddlpglob.h'\" \(4316 characters\)
  sed "s/^X//" >'typhoon/src/util/ddlpglob.h' <<'END_OF_FILE'
X/*----------------------------------------------------------------------------
X * File    : ddlpglob.h
X * Program : ddlp
X * OS      : UNIX, OS/2, DOS
X * Author  : Thomas B. Pedersen
X *
X * Copyright (c) 1994 Thomas B. Pedersen.  All rights reserved.
X *
X * Permission is hereby granted, without written agreement and without
X * license or royalty fees, to use, copy, modify, and distribute this
X * software and its documentation for any purpose, provided that the above
X * copyright notice and the following two  paragraphs appear (1) in all
X * source copies of this software and (2) in accompanying documentation
X * wherever the programatic interface of this software, or any derivative
X * of it, is described.
X *
X * IN NO EVENT SHALL THOMAS B. PEDERSEN BE LIABLE TO ANY PARTY FOR DIRECT,
X * INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF
X * THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF HE HAS BEEN
X * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
X *
X * THOMAS B. PEDERSEN SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT
X * NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
X * A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS ON AN "AS IS"
X * BASIS, AND THOMAS B. PEDERSEN HAS NO OBLIGATION TO PROVIDE MAINTENANCE,
X * SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
X *
X * Description:
X *   Contains global variables for ddlp.
X *
X * $Id: ddlpglob.h,v 1.1 1994/09/13 21:28:53 tbp Exp $
X *
X * $Log: ddlpglob.h,v $
X * Revision 1.1  1994/09/13  21:28:53  tbp
X * Added to repository.
X *
X * Added to repository.
X *
X *
X *--------------------------------------------------------------------------*/
X
X#ifdef DEFINE_GLOBALS
X#define CLASS
X#define I(x)    = x
X#else
X#define CLASS    extern
X#define I(x)
X#endif
X
XCLASS int       varlen_field_occurred            /* True if a varlen field   */
X                            I( 0        );        /* has occurred in the rec  */
XCLASS sym_member*size_field    I( NULL        );      /* This var contains the    */
X                                                /* name of the size field   */
X                                                /* of a varlen field        */
XCLASS int        only_keys    I( 0        );        /* Only extract key consts?    */
XCLASS int        warnholes    I( 0        );        /* Warn about align. holes    */
XCLASS int        lex_lineno     I( 1        );        /* Current line number        */
XCLASS int        errors        I( 0        );        /* Number of errors            */
XCLASS int        dbpg_size    I( 512       );        /* Database page size        */
XCLASS int        align        I( 1        );        /* Structure alignment        */
XCLASS int        conts        I( 0        );        /* Number of contains        */
XCLASS int        defines        I( 0        );        /* Number of defines        */
XCLASS unsigned    dims        I( 0        );        /* Number of dimensions        */
XCLASS unsigned    dim[20];                        /* Array dimension            */
XCLASS char        dbname[DBNAME_LEN+1];            /* Database name            */
XCLASS char        dbdname[256];                    /* .dbd file name            */
XCLASS char        ddlname[256];                    /* .ddl file name            */
XCLASS char        hname[256];                        /* Header file name            */
XCLASS Define    define[DEFINES_MAX];
XCLASS Contains    contains[CONTAINS_MAX];
X
X
X/*------------------- These tables go into the .dbd-file -------------------*/
XCLASS Header    header;                            /* .dbd file header            */
XCLASS Record    *record;                        /* Record table                */
XCLASS Field        *field;                            /* Field table                */
XCLASS File        *file;                            /* File table                */
XCLASS Key        *key;                            /* Key table                */
XCLASS KeyField    *keyfield;                        /* Key field table            */
XCLASS Structdef *structdef;                        /* Struct definition table    */
X
XCLASS int        records        I( 0        );        /* Number of records in db    */
XCLASS int        fields        I( 0        );        /* Number of fields in db    */
XCLASS int        files        I( 0        );        /* Number of files in dbase    */
XCLASS int        keys          I( 0        );         /* # of entries in key      */
XCLASS int        keyfields     I( 0        );         /* # of entries in keyfield */
XCLASS int        structdefs    I( 0        );        /* # of entries in structdef*/
X
X#ifdef DEFINE_GLOBALS
X
Xstruct {
X    char type;
X    short size;
X    char *name;
X} typeinfo[] = {
X    FT_CHAR,    sizeof(char),        "char",
X    FT_CHARSTR,    sizeof(char),        "char",
X    FT_SHORT,    sizeof(short),        "short",
X    FT_INT,        sizeof(int),        "int",
X    FT_LONG,    sizeof(long),        "long",
X    FT_FLOAT,    sizeof(float),        "float",
X    FT_DOUBLE,    sizeof(double),        "double",
X#ifdef __STDC__
X    FT_LDOUBLE,    sizeof(long double),"long double",
X#else
X    FT_LDOUBLE,    sizeof(double),        "double"
X#endif
X};
X
X#else
X
Xextern struct {
X    char type;
X    short size;
X    char *name;
X} typeinfo[];
X
X
X
X#endif
X
X/* end-of-file */
END_OF_FILE
  if test 4316 -ne `wc -c <'typhoon/src/util/ddlpglob.h'`; then
    echo shar: \"'typhoon/src/util/ddlpglob.h'\" unpacked with wrong size!
  fi
  # end of 'typhoon/src/util/ddlpglob.h'
fi
if test -f 'typhoon/src/util/ddlplex.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'typhoon/src/util/ddlplex.c'\"
else
  echo shar: Extracting \"'typhoon/src/util/ddlplex.c'\" \(4382 characters\)
  sed "s/^X//" >'typhoon/src/util/ddlplex.c' <<'END_OF_FILE'
X/*----------------------------------------------------------------------------
X * File    : ddlplex.c
X * Program : ddlp
X * OS      : UNIX, OS/2, DOS
X * Author  : Thomas B. Pedersen
X *
X * Copyright (c) 1994 Thomas B. Pedersen.  All rights reserved.
X *
X * Permission is hereby granted, without written agreement and without
X * license or royalty fees, to use, copy, modify, and distribute this
X * software and its documentation for any purpose, provided that the above
X * copyright notice and the following two  paragraphs appear (1) in all
X * source copies of this software and (2) in accompanying documentation
X * wherever the programatic interface of this software, or any derivative
X * of it, is described.
X *
X * IN NO EVENT SHALL THOMAS B. PEDERSEN BE LIABLE TO ANY PARTY FOR DIRECT,
X * INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF
X * THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF HE HAS BEEN
X * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
X *
X * THOMAS B. PEDERSEN SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT
X * NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
X * A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS ON AN "AS IS"
X * BASIS, AND THOMAS B. PEDERSEN HAS NO OBLIGATION TO PROVIDE MAINTENANCE,
X * SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
X *
X * Description:
X *   Lexical analyser for ddlp.
X *
X * $Log: ddlplex.c,v $
X * Revision 1.2  1994/09/17  16:00:51  tbp
X * typhoon.h and environ.h are now included from <>.
X *
X * Revision 1.1  1994/09/13  21:28:53  tbp
X * Added to repository.
X *
X * Added to repository.
X *
X *
X *--------------------------------------------------------------------------*/
X
Xstatic char rcsid[] = "$Id: ddlplex.c,v 1.2 1994/09/17 16:00:51 tbp Exp $";
X
X#include <ctype.h>
X#include <stdio.h>
X#include <string.h>
X#ifndef UNIX
X#    include <stdlib.h>
X#endif
X
X#include <typhoon.h>
X#include "../ty_dbd.h"
X#include "ddlp.h"
X#include "ddl_y.h"
X#include "ddlpsym.h"
X#include "ddlpglob.h"
X#include "lex.h"
X#include "lex.c"
X
X/*---------------------------- Global variables ----------------------------*/
Xextern FILE *lex_file;                   /* input file                            */
Xextern int      lex_lineno;               /* current line number                    */
X
XLEX_KEYWORD lex_keywordtab[] = {
X    T_ALTERNATE,    "alternate",
X    T_ASC,            "asc",
X    T_BY,           "by",
X    T_CASCADE,        "cascade",
X    T_CHAR,            "char",
X    T_CONTAINS,        "contains",
X    T_CONTROLLED,    "controlled",
X    T_DATA,            "data",
X    T_DATABASE,        "database",
X    T_DEFINE,        "define",
X    T_DELETE,        "delete",
X    T_DESC,            "desc",
X    T_DOUBLE,        "double",
X    T_FILE,            "file",
X    T_FLOAT,        "float",
X    T_FOREIGN,        "foreign",
X    T_INT,            "int",
X    T_KEY,            "key",
X    T_LONG,            "long",
X    T_MAP,            "map",
X    T_NULL,            "null",
X    T_ON,            "on",
X    T_PRIMARY,        "primary",
X    T_RECORD,        "record",
X    T_REFERENCES,    "references",
X    T_RESTRICT,        "restrict",
X    T_SHORT,        "short",
X    T_SIGNED,        "signed",
X    T_STRUCT,        "struct",
X    T_UCHAR,        "uchar",
X    T_ULONG,        "ulong",
X    T_UNION,        "union",
X    T_UNIQUE,        "unique",
X    T_UNSIGNED,        "unsigned",
X    T_UPDATE,        "update",
X    T_USHORT,        "ushort",
X    T_VARIABLE,     "variable"
X};
X
Xint lex_keywords = sizeof(lex_keywordtab) / sizeof(lex_keywordtab[0]);
X
Xyylex()
X{
X    int c, i;
X
X    for( ;; )
X    {
X        c = getc(lex_file);
X
X        if( c == ' ' || c == '\t' )         /* skip whitespace                 */
X            ;
X        else if( isalpha(c) )                /* keyword                      */
X            return lex_parse_keyword(c);
X        else if( isdigit(c) )                /* number                        */
X            return lex_parse_number(c);
X        else if( c == '"' )                 /* string                       */
X            return lex_parse_string();
X        else if ( c== '\'' )
X            return lex_parse_charconst();    /* character constant            */
X        else if( c == '\n' )                /* increase line count            */
X            lex_lineno++;
X        else if( c == EOF )
X            return EOF;
X        else if( c == '/' )
X        {
X            if( (c = getc(lex_file)) == '*' )    /* C comment                   */
X                lex_skip_comment();
X            else if( c == '/' )                   /* C++ comment                     */
X            {
X                while( getc(lex_file) != '\n' && !feof(lex_file) )
X                    ;
X                lex_lineno++;
X            }
X            else
X            {
X                ungetc(c, lex_file);
X                return '/';
X            }
X        }
X        else if( c == '-' )
X        {
X            if( (c=getc(lex_file)) == '>' )
X                return T_ARROW;
X            ungetc(c, lex_file);
X            return '-';
X        }
X        else if( strchr("[]{};,+*().", c) )
X            return c;
X        else if( c == '#' )
X        {
X            while( getc(lex_file) != '\n' && !feof(lex_file) )
X                ;
X            lex_lineno++;
X        }
X        else
X            yyerror("syntax error");
X    }
X}
X
X/* end-of-file */
END_OF_FILE
  if test 4382 -ne `wc -c <'typhoon/src/util/ddlplex.c'`; then
    echo shar: \"'typhoon/src/util/ddlplex.c'\" unpacked with wrong size!
  fi
  # end of 'typhoon/src/util/ddlplex.c'
fi
if test -f 'typhoon/src/util/ddlpsym.h' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'typhoon/src/util/ddlpsym.h'\"
else
  echo shar: Extracting \"'typhoon/src/util/ddlpsym.h'\" \(4337 characters\)
  sed "s/^X//" >'typhoon/src/util/ddlpsym.h' <<'END_OF_FILE'
X/*----------------------------------------------------------------------------
X * File    : ddlpsym.h
X * Program : ddlp
X * OS      : UNIX, OS/2, DOS
X * Author  : Thomas B. Pedersen
X *
X * Copyright (c) 1994 Thomas B. Pedersen.  All rights reserved.
X *
X * Permission is hereby granted, without written agreement and without
X * license or royalty fees, to use, copy, modify, and distribute this
X * software and its documentation for any purpose, provided that the above
X * copyright notice and the following two  paragraphs appear (1) in all
X * source copies of this software and (2) in accompanying documentation
X * wherever the programatic interface of this software, or any derivative
X * of it, is described.
X *
X * IN NO EVENT SHALL THOMAS B. PEDERSEN BE LIABLE TO ANY PARTY FOR DIRECT,
X * INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF
X * THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF HE HAS BEEN
X * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
X *
X * THOMAS B. PEDERSEN SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT
X * NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
X * A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS ON AN "AS IS"
X * BASIS, AND THOMAS B. PEDERSEN HAS NO OBLIGATION TO PROVIDE MAINTENANCE,
X * SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
X *
X * Description:
X *   Symbol table definitions.
X *
X * $Id: ddlpsym.h,v 1.1 1994/09/13 21:28:54 tbp Exp $
X *
X * $Log: ddlpsym.h,v $
X * Revision 1.1  1994/09/13  21:28:54  tbp
X * Added to repository.
X *
X * Added to repository.
X *
X *
X *--------------------------------------------------------------------------*/
X
X/* The following constants define translation limits of the parser according to
X * ISO/IEC DIS 9899 section 2.2.41.
X */
X
X#define NEST_MAX        15                    /* Max nesting level            */
X#define NAME_LEN        31                    /* Number of significant initial*/
X                                            /* characters in a name            */
X
Xtypedef struct sym_member {
X    char                type;                /* See FT_.. constants            */
X    char                name[NAME_LEN+1];    /* Member name                    */
X    unsigned            elemsize;           /* Size of each element         */
X    unsigned            size;                /* sizeof (total size incl. dim)*/
X    unsigned            offset;                /* Offset from start of struct    */
X    struct sym_member    *next;                /* Next member                    */
X    struct sym_struct    *struc;                /* If type is FT_STRUCT this    */
X                                            /* points to the structdef that    */
X                                            /* defines the struct type        */
X    /*---------- ddlp extensions -------------------------------------------*/
X    Id                    id;                    /* Field id                        */
X    /*----------------------------------------------------------------------*/
X    unsigned            dims;                /* Number of dimensions            */
X    unsigned            dim[1];                /* Dimensions if <dims> > 0        */
X} sym_member;
X
Xtypedef struct sym_struct {
X    char                name[NAME_LEN+1];    /* Struct name                    */
X    char                printed;            /* This field ensures that the    */
X                                            /* full structure definition is */
X                                            /* printed once only.            */
X    char                is_union;            /* True if this is a union        */
X    unsigned            size;                /* sizeof                        */
X    unsigned            members;            /* Number of members            */
X    sym_member             *first_member;        /* First member                    */
X    sym_member             *last_member;        /* Last member                    */
X    struct sym_struct    *next;                /* Next structdef                */
X    /*---------- ddlp extensions -------------------------------------------*/
X    Id                    fieldid;               /* Field id                        */
X    /*----------------------------------------------------------------------*/
X} sym_struct;
X
X
X
X/*
X    +--------+    +--------+    +--------+    +--------+
X    | struct |--->| member |--->| member |--->| member |--->NULL
X    +--------+    +--------+    +--------+    +--------+
X         |
X         |
X         v
X    +--------+    +--------+    +--------+    +--------+
X    | struct |--->| member |--->| member |--->| member |--->NULL
X    +--------+    +--------+    +--------+    +--------+
X         |
X         |
X         v
X    +--------+    +--------+
X    | struct |--->| member |
X    +--------+    +--------+
X         |
X         |
X         v
X       NULL
X*/
X
Xextern sym_struct *structnest[], *cur_str, *last_str;
Xextern int curnest;
X
Xvoid         sym_addmember        PRM( (char *, int, sym_struct *); )
Xvoid         sym_addstruct        PRM( (char *, int); )
Xvoid         sym_endstruct        PRM( (void); )
Xsym_struct    *sym_findstruct        PRM( (char *, int); )
Xsym_member    *sym_findmember        PRM( (sym_struct *, char *); )
Xvoid         print_structures    PRM( (void); )
X
X
X/* end-of-file */
END_OF_FILE
  if test 4337 -ne `wc -c <'typhoon/src/util/ddlpsym.h'`; then
    echo shar: \"'typhoon/src/util/ddlpsym.h'\" unpacked with wrong size!
  fi
  # end of 'typhoon/src/util/ddlpsym.h'
fi
if test -f 'typhoon/src/util/exportlx.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'typhoon/src/util/exportlx.c'\"
else
  echo shar: Extracting \"'typhoon/src/util/exportlx.c'\" \(3344 characters\)
  sed "s/^X//" >'typhoon/src/util/exportlx.c' <<'END_OF_FILE'
X/*----------------------------------------------------------------------------
X * File    : exportlx.c
X * Program : tyexport
X * OS      : UNIX, OS/2, DOS
X * Author  : Thomas B. Pedersen
X *
X * Copyright (c) 1994 Thomas B. Pedersen.  All rights reserved.
X *
X * Permission is hereby granted, without written agreement and without
X * license or royalty fees, to use, copy, modify, and distribute this
X * software and its documentation for any purpose, provided that the above
X * copyright notice and the following two  paragraphs appear (1) in all
X * source copies of this software and (2) in accompanying documentation
X * wherever the programatic interface of this software, or any derivative
X * of it, is described.
X *
X * IN NO EVENT SHALL THOMAS B. PEDERSEN BE LIABLE TO ANY PARTY FOR DIRECT,
X * INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF
X * THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF HE HAS BEEN
X * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
X *
X * THOMAS B. PEDERSEN SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT
X * NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
X * A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS ON AN "AS IS"
X * BASIS, AND THOMAS B. PEDERSEN HAS NO OBLIGATION TO PROVIDE MAINTENANCE,
X * SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
X *
X * Description:
X *   Lexical analyser for export utility.
X *
X * $Log: exportlx.c,v $
X * Revision 1.2  1994/09/17  16:00:53  tbp
X * typhoon.h and environ.h are now included from <>.
X *
X * Revision 1.1  1994/09/13  21:28:56  tbp
X * Added to repository.
X *
X * Added to repository.
X *
X *
X *--------------------------------------------------------------------------*/
X
Xstatic char rcsid[] = "$Id: exportlx.c,v 1.2 1994/09/17 16:00:53 tbp Exp $";
X
X#include <ctype.h>
X#include <stdio.h>
X#include <string.h>
X#ifndef UNIX
X#    include <stdlib.h>
X#endif
X
X#include <environ.h>
X#include "../ty_dbd.h"
X#include "ddlp.h"
X#include "exp_y.h"
X#include "ddlpsym.h"
X#include "ddlpglob.h"
X#include "lex.h"
X#include "lex.c"
X
X/*---------------------------- Global variables ----------------------------*/
XFILE    *lex_file;                    /* input file                            */
X
X
XLEX_KEYWORD lex_keywordtab[] = {
X    T_EXPORT,        "export",
X    T_IN,            "in",
X    T_RECORD,        "record",
X    T_STRUCT,        "struct",
X    T_UNION,        "union"
X};
Xint lex_keywords = sizeof(lex_keywordtab) / sizeof(lex_keywordtab[0]);
X
X
X
Xyylex()
X{
X    int c, i;
X
X    for( ;; )
X    {
X        c = getc(lex_file);
X
X        if( c == ' ' || c == '\t' )         /* skip whitespace                 */
X            ;
X        else if( isalpha(c) )                /* keyword                      */
X            return lex_parse_keyword(c);
X#if 0
X        else if( isdigit(c) )                /* number                        */
X            return lex_parse_number(c);
X#endif
X        else if( c == '"' )                 /* string                       */
X            return lex_parse_string();
X        else if( c == '\n' )                /* increase line count            */
X            lex_lineno++;
X        else if( c == EOF )
X            return EOF;
X         else if( strchr("[]{};,+*-().", c) )
X            return c;
X        else if( c == '/' )
X        {
X            if( (c = getc(lex_file)) == '*' )/* C comment                     */
X                lex_skip_comment();
X            else if( c == '/' )                   /* C++ comment                     */
X            {
X                while( getc(lex_file) != '\n' && !feof(lex_file) )
X                    ;
X                lex_lineno++;
X            }
X            else
X            {
X                ungetc(c, lex_file);
X                return '/';
X            }
X        }
X        else
X            yyerror("unexpected character '%s'", c);
X    }
X}
X
X/* end-of-file */
X
END_OF_FILE
  if test 3344 -ne `wc -c <'typhoon/src/util/exportlx.c'`; then
    echo shar: \"'typhoon/src/util/exportlx.c'\" unpacked with wrong size!
  fi
  # end of 'typhoon/src/util/exportlx.c'
fi
if test -f 'typhoon/src/util/importlx.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'typhoon/src/util/importlx.c'\"
else
  echo shar: Extracting \"'typhoon/src/util/importlx.c'\" \(3383 characters\)
  sed "s/^X//" >'typhoon/src/util/importlx.c' <<'END_OF_FILE'
X/*----------------------------------------------------------------------------
X * File    : importlx.c
X * Program : tyimport
X * OS      : UNIX, OS/2, DOS
X * Author  : Thomas B. Pedersen
X *
X * Copyright (c) 1994 Thomas B. Pedersen.  All rights reserved.
X *
X * Permission is hereby granted, without written agreement and without
X * license or royalty fees, to use, copy, modify, and distribute this
X * software and its documentation for any purpose, provided that the above
X * copyright notice and the following two  paragraphs appear (1) in all
X * source copies of this software and (2) in accompanying documentation
X * wherever the programatic interface of this software, or any derivative
X * of it, is described.
X *
X * IN NO EVENT SHALL THOMAS B. PEDERSEN BE LIABLE TO ANY PARTY FOR DIRECT,
X * INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF
X * THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF HE HAS BEEN
X * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
X *
X * THOMAS B. PEDERSEN SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT
X * NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
X * A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS ON AN "AS IS"
X * BASIS, AND THOMAS B. PEDERSEN HAS NO OBLIGATION TO PROVIDE MAINTENANCE,
X * SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
X *
X * Description:
X *   Lexical analyser for import utility.
X *
X * $Log: importlx.c,v $
X * Revision 1.2  1994/09/17  16:00:55  tbp
X * typhoon.h and environ.h are now included from <>.
X *
X * Revision 1.1  1994/09/13  21:28:58  tbp
X * Added to repository.
X *
X * Added to repository.
X *
X *
X *--------------------------------------------------------------------------*/
X
Xstatic char rcsid[] = "$Id: importlx.c,v 1.2 1994/09/17 16:00:55 tbp Exp $";
X
X#include <ctype.h>
X#include <stdio.h>
X#include <string.h>
X#ifndef UNIX
X#include <stdlib.h>
X#endif
X
X#include <environ.h>
X#include "../ty_dbd.h"
X#include "ddlp.h"
X#include "imp_y.h"
X#include "ddlpsym.h"
X#include "ddlpglob.h"
X#include "lex.h"
X#include "lex.c"
X
X#if YYDEBUG
X#define D(x) x
X#else
X#define D(x)
X#endif
X
X
X
X/*---------------------------- Global variables ----------------------------*/
XFILE    *lex_file;                    /* input file                            */
X
X
XLEX_KEYWORD lex_keywordtab[] = {
X    T_IMPORT,        "import",
X    T_IN,            "in",
X    T_RECORD,        "record",
X    T_STRUCT,        "struct",
X    T_UNION,        "union"
X};
Xint lex_keywords = sizeof(lex_keywordtab) / sizeof(lex_keywordtab[0]);
X
X
X
Xyylex()
X{
X    int c, i;
X
X    for( ;; )
X    {
X        c = getc(lex_file);
X
X        if( c == ' ' || c == '\t' )         /* skip whitespace                 */
X            ;
X        else if( isalpha(c) )                /* keyword                      */
X            return lex_parse_keyword(c);
X#if 0
X        else if( isdigit(c) )                /* number                        */
X            return lex_parse_number(c);
X#endif
X        else if( c == '"' )                 /* string                       */
X            return lex_parse_string();
X        else if( c == '\n' )                /* increase line count            */
X            lex_lineno++;
X        else if( c == EOF )
X            return EOF;
X         else if( strchr("[]{};,+*-().", c) )
X            return c;
X        else if( c == '/' )
X        {
X            if( (c = getc(lex_file)) == '*' )/* C comment                     */
X                lex_skip_comment();
X            else if( c == '/' )                   /* C++ comment                     */
X            {
X                while( getc(lex_file) != '\n' && !feof(lex_file) )
X                    ;
X                lex_lineno++;
X            }
X            else
X            {
X                ungetc(c, lex_file);
X                return '/';
X            }
X        }
X        else
X            yyerror("syntax error");
X    }
X}
X
X/* end-of-file */
X
END_OF_FILE
  if test 3383 -ne `wc -c <'typhoon/src/util/importlx.c'`; then
    echo shar: \"'typhoon/src/util/importlx.c'\" unpacked with wrong size!
  fi
  # end of 'typhoon/src/util/importlx.c'
fi
echo shar: End of archive 7 \(of 9\).
cp /dev/null ark7isdone
MISSING=""
for I in 1 2 3 4 5 6 7 8 9 ; do
    if test ! -f ark${I}isdone ; then
    MISSING="${MISSING} ${I}"
    fi
done
if test "${MISSING}" = "" ; then
    echo You have unpacked all 9 archives.
    rm -f ark[1-9]isdone ark[1-9][0-9]isdone
else
    echo You still must unpack the following archives:
    echo "        " ${MISSING}
fi
exit 0
exit 0 # Just in case...