home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume44 / typhoon / part08 < prev    next >
Internet Message Format  |  1994-09-17  |  62KB
  1. From: zeppelin@login.dknet.dk (Thomas B. Pedersen)
  2. Newsgroups: comp.sources.misc
  3. Subject: v44i064:  typhoon - Typhoon Relational Database Management System, Part08/09
  4. Date: 17 Sep 1994 21:45:58 -0500
  5. Organization: Sterling Software
  6. Sender: kent@sparky.sterling.com
  7. Approved: kent@sparky.sterling.com
  8. Message-ID: <35g9l6$ojp@sparky.sterling.com>
  9. X-Md4-Signature: d51d04476a538da46c340f1f3a1a68ce
  10.  
  11. Submitted-by: zeppelin@login.dknet.dk (Thomas B. Pedersen)
  12. Posting-number: Volume 44, Issue 64
  13. Archive-name: typhoon/part08
  14. Environment: SCO UNIX, Tandem NonStop UNIX, Sun Solaris, AIX, Linux, OS/2
  15.  
  16. #! /bin/sh
  17. # This is a shell archive.  Remove anything before this line, then feed it
  18. # into a shell via "sh file" or similar.  To overwrite existing files,
  19. # type "sh file -c".
  20. # Contents:  typhoon/examples/demo.ddl typhoon/makefile
  21. #   typhoon/man/d_crread.1 typhoon/man/d_fillnew.1
  22. #   typhoon/man/d_keyfind.1 typhoon/man/d_keyfrst.1
  23. #   typhoon/man/d_keylast.1 typhoon/man/d_keynext.1
  24. #   typhoon/man/d_keyprev.1 typhoon/man/d_open.1
  25. #   typhoon/man/d_recfrst.1 typhoon/man/d_recnext.1
  26. #   typhoon/man/d_recwrite.1 typhoon/man/ddlp.1 typhoon/src/bt_io.c
  27. #   typhoon/src/catalog.h typhoon/src/dos.c typhoon/src/makefile
  28. #   typhoon/src/ty_glob.h typhoon/src/util/export.h
  29. #   typhoon/src/util/import.h typhoon/src/util/makefile
  30. #   typhoon/src/util/util.c typhoon/src/util/util.h
  31. # Wrapped by kent@sparky on Sat Sep 17 21:38:18 1994
  32. PATH=/bin:/usr/bin:/usr/ucb:/usr/local/bin:/usr/lbin:$PATH ; export PATH
  33. echo If this archive is complete, you will see the following message:
  34. echo '          "shar: End of archive 8 (of 9)."'
  35. if test -f 'typhoon/examples/demo.ddl' -a "${1}" != "-c" ; then 
  36.   echo shar: Will not clobber existing file \"'typhoon/examples/demo.ddl'\"
  37. else
  38.   echo shar: Extracting \"'typhoon/examples/demo.ddl'\" \(1449 characters\)
  39.   sed "s/^X//" >'typhoon/examples/demo.ddl' <<'END_OF_FILE'
  40. X/*
  41. X    demonstration database
  42. X*/
  43. X
  44. Xdatabase demo {
  45. X
  46. X    define NAME_LEN        30
  47. X
  48. X    data file "company.dat"  contains company;
  49. X    key  file "company.ix1"  contains company.id;
  50. X    key  file "company.ix2"  contains company.references;
  51. X    data file "product.dat"  contains product;
  52. X    key  file "product.ix1"  contains product.name;
  53. X
  54. X    data file "fancy.dat"    contains fancy;
  55. X    key  file "fancy.ix1"    contains fancy.fancy_key1;
  56. X    key  file "fancy.ix2"    contains fancy.name;
  57. X    key  file "fancy.ix3"    contains fancy.fancy_key2;
  58. X
  59. X    record company {
  60. X        ulong    id;
  61. X        char    name[NAME_LEN+1];
  62. X        
  63. X        primary key id;
  64. X    }
  65. X
  66. X    record product {
  67. X        ulong    company_id;
  68. X        ushort    descr_len;
  69. X        char    name[NAME_LEN+1];
  70. X        char    description[2000] variable by descr_len;
  71. X
  72. X        primary key name;
  73. X        foreign key company_id references company
  74. X            on update restrict
  75. X            on delete restrict;
  76. X    }
  77. X
  78. X    
  79. X    // This record just shows some of the things that are possible in
  80. X    // a ddl-file.
  81. X
  82. X    record fancy {
  83. X        char        name[20];
  84. X        ulong        number;
  85. X
  86. X        char        key2_is_null;
  87. X        
  88. X        ushort        a_count;
  89. X        struct {
  90. X            char    a[2][20];
  91. X            uchar    type;
  92. X            
  93. X            union controlled by type {
  94. X                char    s[80];            // If type is 0
  95. X                ulong    a;                // If type is 1
  96. X                struct {
  97. X                    int        a;
  98. X                    long    b;
  99. X                } c;                    // If type is 0
  100. X            } u[2];
  101. X
  102. X        } a[10] variable by a_count;
  103. X    
  104. X        primary key fancy_key1 { name, number desc };
  105. X        alternate key name null by name;
  106. X        alternate key fancy_key2 { number desc, name } null by key2_is_null;
  107. X    }
  108. X}
  109. X
  110. X/* end-of-file */
  111. X
  112. END_OF_FILE
  113.   if test 1449 -ne `wc -c <'typhoon/examples/demo.ddl'`; then
  114.     echo shar: \"'typhoon/examples/demo.ddl'\" unpacked with wrong size!
  115.   fi
  116.   # end of 'typhoon/examples/demo.ddl'
  117. fi
  118. if test -f 'typhoon/makefile' -a "${1}" != "-c" ; then 
  119.   echo shar: Will not clobber existing file \"'typhoon/makefile'\"
  120. else
  121.   echo shar: Extracting \"'typhoon/makefile'\" \(1689 characters\)
  122.   sed "s/^X//" >'typhoon/makefile' <<'END_OF_FILE'
  123. X#-----------------------------------------------------------------------------
  124. X# File    : makefile
  125. X# Library : typhoon
  126. X# OS      : UNIX, OS/2, DOS
  127. X# Author  : Thomas B. Pedersen
  128. X#
  129. X# Copyright (c) 1994 Thomas B. Pedersen.  All rights reserved.
  130. X#
  131. X# Permission is hereby granted, without written agreement and without
  132. X#  license or royalty fees, to use, copy, modify, and distribute this
  133. X#  software and its documentation for any purpose, provided that the above
  134. X#  copyright notice and the following two  paragraphs appear (1) in all 
  135. X#  source copies of this software and (2) in accompanying documentation
  136. X#  wherever the programatic interface of this software, or any derivative
  137. X#  of it, is described.
  138. X# 
  139. X# IN NO EVENT SHALL THOMAS B. PEDERSEN BE LIABLE TO ANY PARTY FOR DIRECT,
  140. X# INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF
  141. X# THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF HE HAS BEEN 
  142. X# ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  143. X#
  144. X# THOMAS B. PEDERSEN SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT
  145. X# NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
  146. X# A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS ON AN "AS IS" 
  147. X# BASIS, AND THOMAS B. PEDERSEN HAS NO OBLIGATION TO PROVIDE MAINTENANCE,
  148. X# SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
  149. X#
  150. X# Description:
  151. X#   Makefile for Typhoon Relational Database Management System.
  152. X#
  153. X# $Id: makefile,v 1.1 1994/09/13 21:29:38 tbp Exp $
  154. X#
  155. X# $Log: makefile,v $
  156. X# Revision 1.1  1994/09/13  21:29:38  tbp
  157. X# Added to repository.
  158. X# 
  159. X#
  160. X# ----------------------------------------------------------------------------
  161. X
  162. X
  163. Xall:
  164. X    cd src; make;
  165. X    cd src/util; make;
  166. X
  167. X
  168. X# end-of-file
  169. END_OF_FILE
  170.   if test 1689 -ne `wc -c <'typhoon/makefile'`; then
  171.     echo shar: \"'typhoon/makefile'\" unpacked with wrong size!
  172.   fi
  173.   # end of 'typhoon/makefile'
  174. fi
  175. if test -f 'typhoon/man/d_crread.1' -a "${1}" != "-c" ; then 
  176.   echo shar: Will not clobber existing file \"'typhoon/man/d_crread.1'\"
  177. else
  178.   echo shar: Extracting \"'typhoon/man/d_crread.1'\" \(1280 characters\)
  179.   sed "s/^X//" >'typhoon/man/d_crread.1' <<'END_OF_FILE'
  180. X.de Id
  181. X.ds Rv \\$3
  182. X.ds Dt \\$4
  183. X.ds iD \\$3 \\$4 \\$5 \\$6 \\$7
  184. X..
  185. X.Id $Id: d_crread.1,v 1.1 1994/09/13 21:29:54 tbp Exp $
  186. X.ds r \s-1TYPHOON\s0
  187. X.if n .ds - \%--
  188. X.if t .ds - \(em
  189. X.TH D_CRREAD 1 \*(Dt TYPHOON
  190. X.SH NAME
  191. Xd_crread \- read a field from the current record
  192. X.SH SYNOPSIS
  193. X.B #include <typhoon.h>
  194. X.br
  195. X
  196. X\fBd_crread(ulong \fPfieldid\fB, void *\fPbuf\fB)
  197. X.SH DESCRIPTION
  198. X\fBd_crread\fP copies the contents of the field specified by \fIfieldid\fP
  199. Xinto the buffer \fIbuf\fP. If the field is a variable length field, only
  200. Xthe actual number of bytes in the field is copied.
  201. X.br
  202. X.SH DIAGNOSTICS
  203. XThe status code returned by the function is also stored in the global
  204. Xvariable \fIdb_status\fP.
  205. X.TP
  206. X.B S_OKAY
  207. XOperation successful.
  208. X.TP
  209. X.B S_NOCD
  210. XThere is no current database.
  211. X.TP
  212. X.B S_NOCR
  213. XThere is no current record.
  214. X.TP
  215. X.B S_INVFLD
  216. XThe id is not a valid field.
  217. X.SH CURRENCY CHANGES
  218. XNone.
  219. X.SH EXAMPLE
  220. X/* Get Pedersen's account number */
  221. X.br
  222. X
  223. X#include <typhoon.h>
  224. X.br
  225. X
  226. Xif( d_keyfind(CUSTOMER_NAME, "Pedersen") == S_OKAY )
  227. X.br
  228. X{
  229. X.br
  230. X    unsigned long account;
  231. X.br
  232. X    d_crread(CUSTOMER_ACCOUNT, &account);
  233. X    printf("Account number %lu\\n", account);
  234. X.br
  235. X}
  236. X.SH IDENTIFICATION
  237. XAuthor: Thomas B. Pedersen.
  238. X.br
  239. XCopyright (c) 1994 Thomas B. Pedersen.
  240. X.SH "SEE ALSO"
  241. Xd_recread(1), d_keyread(1)
  242. END_OF_FILE
  243.   if test 1280 -ne `wc -c <'typhoon/man/d_crread.1'`; then
  244.     echo shar: \"'typhoon/man/d_crread.1'\" unpacked with wrong size!
  245.   fi
  246.   # end of 'typhoon/man/d_crread.1'
  247. fi
  248. if test -f 'typhoon/man/d_fillnew.1' -a "${1}" != "-c" ; then 
  249.   echo shar: Will not clobber existing file \"'typhoon/man/d_fillnew.1'\"
  250. else
  251.   echo shar: Extracting \"'typhoon/man/d_fillnew.1'\" \(1650 characters\)
  252.   sed "s/^X//" >'typhoon/man/d_fillnew.1' <<'END_OF_FILE'
  253. X.de Id
  254. X.ds Rv \\$3
  255. X.ds Dt \\$4
  256. X.ds iD \\$3 \\$4 \\$5 \\$6 \\$7
  257. X..
  258. X.Id $Id: d_fillnew.1,v 1.1 1994/09/13 21:29:56 tbp Exp $
  259. X.ds r \s-1TYPHOON\s0
  260. X.if n .ds - \%--
  261. X.if t .ds - \(em
  262. X.TH D_FILLNEW 1 \*(Dt TYPHOON
  263. X.SH NAME
  264. Xd_fillnew \- insert a new record
  265. X.SH SYNOPSIS
  266. X.B #include <typhoon.h>
  267. X.br
  268. X
  269. X\fBd_fillnew(ulong \fPrecid\fB, void *\fPbuf\fB)
  270. X.SH DESCRIPTION
  271. X\fBd_fillnew\fP inserts a new record in a table. \fIrecid\fP specifies the
  272. Xtype of the record stored in \fIbuf\fP. The inserted record retains the 
  273. Xsame database address throughout its life in the database.
  274. X.SH DIAGNOSTICS
  275. XThe status code returned by the function is also stored in the global
  276. Xvariable \fIdb_status\fP.
  277. X.TP
  278. X.B S_OKAY
  279. XThe record was successfully inserted.
  280. X.TP
  281. X.B S_NOCD
  282. XThere is no current database.
  283. X.TP
  284. X.B S_INVREC
  285. XThe record id is not valid.
  286. X.TP
  287. X.B S_DUPLICATE
  288. XOne of the keys in the record would cause duplicates in a unique index.
  289. X\fIdb_subcode\fP contains the id of the conflicting field or key.
  290. X.TP
  291. X.B S_RECSIZE
  292. XA length determinator of a variable length field contained a illegal 
  293. Xvalue. \fIdb_subcode\fP contains the id of the conflicting field.
  294. X.TP
  295. X.B S_FOREIGN
  296. XThe target of a foreign key could not be found. \fIdb_subcode\fP contains
  297. Xthe id of the target table.
  298. X.SH CURRENCY CHANGES
  299. XIf \fBd_fillnew\fP returned \fBS_OKAY\fP the record becomes the current record.
  300. X.SH EXAMPLE
  301. X#include <typhoon.h>
  302. X
  303. Xstruct customer cust;
  304. X.br
  305. Xstrcpy(cust.name, "Pedersen");
  306. X.br
  307. Xcust.account = 10002;
  308. Xif( d_fillnew(CUSTOMER, &cust) != S_OKAY )
  309. X.br
  310. X    /* handle error */
  311. X.SH IDENTIFICATION
  312. XAuthor: Thomas B. Pedersen.
  313. X.br
  314. XCopyright (c) 1994 Thomas B. Pedersen.
  315. X.SH "SEE ALSO"
  316. Xd_recwrite(1)
  317. X
  318. END_OF_FILE
  319.   if test 1650 -ne `wc -c <'typhoon/man/d_fillnew.1'`; then
  320.     echo shar: \"'typhoon/man/d_fillnew.1'\" unpacked with wrong size!
  321.   fi
  322.   # end of 'typhoon/man/d_fillnew.1'
  323. fi
  324. if test -f 'typhoon/man/d_keyfind.1' -a "${1}" != "-c" ; then 
  325.   echo shar: Will not clobber existing file \"'typhoon/man/d_keyfind.1'\"
  326. else
  327.   echo shar: Extracting \"'typhoon/man/d_keyfind.1'\" \(1890 characters\)
  328.   sed "s/^X//" >'typhoon/man/d_keyfind.1' <<'END_OF_FILE'
  329. X.de Id
  330. X.ds Rv \\$3
  331. X.ds Dt \\$4
  332. X.ds iD \\$3 \\$4 \\$5 \\$6 \\$7
  333. X..
  334. X.Id $Id: d_keyfind.1,v 1.1 1994/09/13 21:29:56 tbp Exp $
  335. X.ds r \s-1TYPHOON\s0
  336. X.if n .ds - \%--
  337. X.if t .ds - \(em
  338. X.TH D_KEYFIND 1 \*(Dt TYPHOON
  339. X.SH NAME
  340. Xd_keyfind \- search an index for a specific key value
  341. X.SH SYNOPSIS
  342. X.B #include <typhoon.h>
  343. X.br
  344. X
  345. X\fBd_keyfind(ulong \fPkeyid\fB, void *\fPbuf\fB)
  346. X.SH DESCRIPTION
  347. X\fBd_keyfind\fP is used to lookup a record in a table via one of its
  348. Xindexes. \fIkeyid\fP specifies which index to search and \fIbuf\fP contains
  349. Xthe value to search for. If the index contains more than
  350. Xone occurrence of the key value (only possible for non-unique indexes)
  351. X\fBd_keyfind\fP returns the first one.
  352. X.br
  353. X
  354. XThe id can be either the id of a compound key or a field that is a key
  355. Xby itself.
  356. X.br
  357. X
  358. XIf the key value was not found, \fBd_keyfind\fP returns \fBS_NOTFOUND\fP.
  359. XA subsequent call to \fBd_keynext(1)\fP returns next value in the sorting
  360. Xorder.
  361. X.br
  362. X
  363. XThe actual record is not read from the database until \fBd_recread(1)\fP is
  364. Xcalled.
  365. X.SH DIAGNOSTICS
  366. XThe status code returned by the function is also stored in the global
  367. Xvariable \fIdb_status\fP.
  368. X.TP
  369. X.B S_OKAY
  370. XThe key value was found.
  371. X.TP
  372. X.B S_NOTFOUND
  373. XThe key value was not found.
  374. X.TP
  375. X.B S_NOCD
  376. XThere is no current database.
  377. X.TP
  378. X.B S_INVFLD
  379. XThe id is not a valid field.
  380. X.TP
  381. X.B S_NOTKEY
  382. XThe field id is not a key itself.
  383. X.SH CURRENCY CHANGES
  384. XIf \fBS_OKAY\fP is returned. the record found becomes the current record.
  385. X.SH EXAMPLE
  386. X/* Find the customer called 'Pedersen' */
  387. X.br
  388. X
  389. X#include <typhoon.h>
  390. X.br
  391. X
  392. Xif( d_keyfind(CUSTOMER_NAME, "Pedersen") == S_OKAY )
  393. X.br
  394. X{
  395. X.br
  396. X    struct customer cust;
  397. X.br
  398. X    d_recread(&cust);
  399. X    printf("Account number %lu\\n", cust.account);
  400. X.br
  401. X}
  402. X.SH IDENTIFICATION
  403. XAuthor: Thomas B. Pedersen.
  404. X.br
  405. XCopyright (c) 1994 Thomas B. Pedersen.
  406. X.SH "SEE ALSO"
  407. Xd_keynext(1), d_keyprev(1), d_keyfrst(1), d_keylast(1), d_recread(1).
  408. END_OF_FILE
  409.   if test 1890 -ne `wc -c <'typhoon/man/d_keyfind.1'`; then
  410.     echo shar: \"'typhoon/man/d_keyfind.1'\" unpacked with wrong size!
  411.   fi
  412.   # end of 'typhoon/man/d_keyfind.1'
  413. fi
  414. if test -f 'typhoon/man/d_keyfrst.1' -a "${1}" != "-c" ; then 
  415.   echo shar: Will not clobber existing file \"'typhoon/man/d_keyfrst.1'\"
  416. else
  417.   echo shar: Extracting \"'typhoon/man/d_keyfrst.1'\" \(1599 characters\)
  418.   sed "s/^X//" >'typhoon/man/d_keyfrst.1' <<'END_OF_FILE'
  419. X.de Id
  420. X.ds Rv \\$3
  421. X.ds Dt \\$4
  422. X.ds iD \\$3 \\$4 \\$5 \\$6 \\$7
  423. X..
  424. X.Id $Id: d_keyfrst.1,v 1.1 1994/09/13 21:29:57 tbp Exp $
  425. X.ds r \s-1TYPHOON\s0
  426. X.if n .ds - \%--
  427. X.if t .ds - \(em
  428. X.TH D_KEYFRST 1 \*(Dt TYPHOON
  429. X.SH NAME
  430. Xd_keyfrst \- find the first key value in an index
  431. X.SH SYNOPSIS
  432. X.B #include <typhoon.h>
  433. X.br
  434. X
  435. X\fBd_keyfrst(ulong \fPkeyid\fB)
  436. X.SH DESCRIPTION
  437. X\fBd_keyfrst\fP finds the first key value in the index specified by
  438. X\fIkeyid\fP. If \fBd_keyfrst\fP returns \fBS_NOTFOUND\fP the index is empty.
  439. X.br
  440. X
  441. XThe id can be either the id of a compound key or a field that is a key
  442. Xby itself.
  443. X.br
  444. X
  445. XThe actual record is not read from the database until \fBd_recread(1)\fP is
  446. Xcalled.
  447. X.SH DIAGNOSTICS
  448. XThe status code returned by the function is also stored in the global
  449. Xvariable \fIdb_status\fP.
  450. X.TP
  451. X.B S_OKAY
  452. XThe key value was found.
  453. X.TP
  454. X.B S_NOTFOUND
  455. XThe key value was not found, i.e. the index is empty.
  456. X.TP
  457. X.B S_NOCD
  458. XThere is no current database.
  459. X.TP
  460. X.B S_INVFLD
  461. XThe id is not a valid field.
  462. X.TP
  463. X.B S_NOTKEY
  464. XThe field id is not a key itself.
  465. X.SH CURRENCY CHANGES
  466. XIf \fBS_OKAY\fP is returned, the record found becomes the current record.
  467. X.SH EXAMPLE
  468. X/* Traverse the customers in alphabetical, ascending order */
  469. X
  470. X#include <typhoon.h>
  471. X.br
  472. X
  473. Xd_keyfrst(CUSTOMER_NAME);
  474. X.br
  475. X
  476. Xwhile( db_status == S_OKAY )
  477. X.br
  478. X{
  479. X.br
  480. X    struct customer cust;
  481. X.br
  482. X
  483. X    d_recread(&cust);
  484. X.br
  485. X    printf("%s\\n", cust.name);
  486. X.br
  487. X    d_keynext(CUSTOMER_NAME);
  488. X.br
  489. X}
  490. X.SH IDENTIFICATION
  491. XAuthor: Thomas B. Pedersen.
  492. X.br
  493. XCopyright (c) 1994 Thomas B. Pedersen.
  494. X.SH "SEE ALSO"
  495. Xd_keynext(1), d_keyfind(1), d_keyprev(1), d_keylast(1), d_recread(1).
  496. X
  497. END_OF_FILE
  498.   if test 1599 -ne `wc -c <'typhoon/man/d_keyfrst.1'`; then
  499.     echo shar: \"'typhoon/man/d_keyfrst.1'\" unpacked with wrong size!
  500.   fi
  501.   # end of 'typhoon/man/d_keyfrst.1'
  502. fi
  503. if test -f 'typhoon/man/d_keylast.1' -a "${1}" != "-c" ; then 
  504.   echo shar: Will not clobber existing file \"'typhoon/man/d_keylast.1'\"
  505. else
  506.   echo shar: Extracting \"'typhoon/man/d_keylast.1'\" \(1599 characters\)
  507.   sed "s/^X//" >'typhoon/man/d_keylast.1' <<'END_OF_FILE'
  508. X.de Id
  509. X.ds Rv \\$3
  510. X.ds Dt \\$4
  511. X.ds iD \\$3 \\$4 \\$5 \\$6 \\$7
  512. X..
  513. X.Id $Id: d_keylast.1,v 1.1 1994/09/13 21:29:57 tbp Exp $
  514. X.ds r \s-1TYPHOON\s0
  515. X.if n .ds - \%--
  516. X.if t .ds - \(em
  517. X.TH D_KEYLAST 1 \*(Dt TYPHOON
  518. X.SH NAME
  519. Xd_keylast \- find the last key value in an index
  520. X.SH SYNOPSIS
  521. X.B #include <typhoon.h>
  522. X.br
  523. X
  524. X\fBd_keylast(ulong \fPkeyid\fB)
  525. X.SH DESCRIPTION
  526. X\fBd_keyfrst\fP finds the last key value in the index specified by
  527. X\fIkeyid\fP. If \fBd_keyfrst\fP returns \fBS_NOTFOUND\fP the index is empty.
  528. X.br
  529. X
  530. XThe id can be either the id of a compound key, or a field that is a key
  531. Xby itself.
  532. X.br
  533. X
  534. XThe actual record is not read from the database until \fBd_recread(1)\fP is
  535. Xcalled.
  536. X.SH DIAGNOSTICS
  537. XThe status code returned by the function is also stored in the global
  538. Xvariable \fIdb_status\fP.
  539. X.TP
  540. X.B S_OKAY
  541. XThe key value was found.
  542. X.TP
  543. X.B S_NOTFOUND
  544. XThe key value was not found, i.e. the index is empty.
  545. X.TP
  546. X.B S_NOCD
  547. XThere is no current database.
  548. X.TP
  549. X.B S_INVFLD
  550. XThe id is not a valid field.
  551. X.TP
  552. X.B S_NOTKEY
  553. XThe field id is not a key itself.
  554. X.SH CURRENCY CHANGES
  555. XIf \fBS_OKAY\fP is returned, the record found becomes the current record.
  556. X.SH EXAMPLE
  557. X/* Traverse the customers in alphabetical, descending order */
  558. X
  559. X#include <typhoon.h>
  560. X.br
  561. X
  562. Xd_keylast(CUSTOMER_NAME);
  563. X.br
  564. X
  565. Xwhile( db_status == S_OKAY )
  566. X.br
  567. X{
  568. X.br
  569. X    struct customer cust;
  570. X.br
  571. X
  572. X    d_recread(&cust);
  573. X.br
  574. X    printf("%s\\n", cust.name);
  575. X.br
  576. X    d_keyprev(CUSTOMER_NAME);
  577. X.br
  578. X}
  579. X.SH IDENTIFICATION
  580. XAuthor: Thomas B. Pedersen.
  581. X.br
  582. XCopyright (c) 1994 Thomas B. Pedersen.
  583. X.SH "SEE ALSO"
  584. Xd_keynext(1), d_keyfind(1), d_keyprev(1), d_keylast(1), d_recread(1).
  585. X
  586. END_OF_FILE
  587.   if test 1599 -ne `wc -c <'typhoon/man/d_keylast.1'`; then
  588.     echo shar: \"'typhoon/man/d_keylast.1'\" unpacked with wrong size!
  589.   fi
  590.   # end of 'typhoon/man/d_keylast.1'
  591. fi
  592. if test -f 'typhoon/man/d_keynext.1' -a "${1}" != "-c" ; then 
  593.   echo shar: Will not clobber existing file \"'typhoon/man/d_keynext.1'\"
  594. else
  595.   echo shar: Extracting \"'typhoon/man/d_keynext.1'\" \(1734 characters\)
  596.   sed "s/^X//" >'typhoon/man/d_keynext.1' <<'END_OF_FILE'
  597. X.de Id
  598. X.ds Rv \\$3
  599. X.ds Dt \\$4
  600. X.ds iD \\$3 \\$4 \\$5 \\$6 \\$7
  601. X..
  602. X.Id $Id: d_keynext.1,v 1.1 1994/09/13 21:29:57 tbp Exp $
  603. X.ds r \s-1TYPHOON\s0
  604. X.if n .ds - \%--
  605. X.if t .ds - \(em
  606. X.TH D_KEYNEXT 1 \*(Dt TYPHOON
  607. X.SH NAME
  608. Xd_keynext \- find the next key value in an index
  609. X.SH SYNOPSIS
  610. X.B #include <typhoon.h>
  611. X.br
  612. X
  613. X\fBd_keynext(ulong \fPkeyid\fB)
  614. X.SH DESCRIPTION
  615. X\fBd_keynext\fP finds the next key value greater than or equal to the
  616. Xcurrent key value in the index specified by
  617. X\fIkeyid\fP. If \fBd_keynext\fP returns \fBS_NOTFOUND\fP the end of the index
  618. Xhas been passed. A subsequent call to \fBd_keynext\fP will return the first
  619. Xkey value in the index.
  620. X.br
  621. X
  622. XThe id can be either the id of a compound key or a field that is a key
  623. Xby itself.
  624. X.br
  625. X
  626. XThe actual record is not read from the database until \fBd_recread(1)\fP is
  627. Xcalled.
  628. X.SH DIAGNOSTICS
  629. XThe status code returned by the function is also stored in the global
  630. Xvariable \fIdb_status\fP.
  631. X.TP
  632. X.B S_OKAY
  633. XThe key value was found.
  634. X.TP
  635. X.B S_NOTFOUND
  636. XThe key value was not found, i.e. the index is empty.
  637. X.TP
  638. X.B S_NOCD
  639. XThere is no current database.
  640. X.TP
  641. X.B S_INVFLD
  642. XThe id is not a valid field.
  643. X.TP
  644. X.B S_NOTKEY
  645. XThe field id is not a key itself.
  646. X.SH CURRENCY CHANGES
  647. XIf \fBS_OKAY\fP is returned, the record found becomes the current record.
  648. X.SH EXAMPLE
  649. X/* Traverse the customers in alphabetical order */
  650. X
  651. X#include <typhoon.h>
  652. X.br
  653. X
  654. Xd_keyfrst(CUSTOMER_NAME);
  655. X.br
  656. X
  657. Xwhile( db_status == S_OKAY )
  658. X.br
  659. X{
  660. X.br
  661. X    struct customer cust;
  662. X.br
  663. X
  664. X    d_recread(&cust);
  665. X.br
  666. X    printf("%s\\n", cust.name);
  667. X.br
  668. X    d_keynext(CUSTOMER_NAME);
  669. X.br
  670. X}
  671. X.SH IDENTIFICATION
  672. XAuthor: Thomas B. Pedersen.
  673. X.br
  674. XCopyright (c) 1994 Thomas B. Pedersen.
  675. X.SH "SEE ALSO"
  676. Xd_keyfind(1), d_keyprev(1), d_keyfrst(1), d_keylast(1), d_recread(1).
  677. X
  678. END_OF_FILE
  679.   if test 1734 -ne `wc -c <'typhoon/man/d_keynext.1'`; then
  680.     echo shar: \"'typhoon/man/d_keynext.1'\" unpacked with wrong size!
  681.   fi
  682.   # end of 'typhoon/man/d_keynext.1'
  683. fi
  684. if test -f 'typhoon/man/d_keyprev.1' -a "${1}" != "-c" ; then 
  685.   echo shar: Will not clobber existing file \"'typhoon/man/d_keyprev.1'\"
  686. else
  687.   echo shar: Extracting \"'typhoon/man/d_keyprev.1'\" \(1739 characters\)
  688.   sed "s/^X//" >'typhoon/man/d_keyprev.1' <<'END_OF_FILE'
  689. X.de Id
  690. X.ds Rv \\$3
  691. X.ds Dt \\$4
  692. X.ds iD \\$3 \\$4 \\$5 \\$6 \\$7
  693. X..
  694. X.Id $Id: d_keyprev.1,v 1.1 1994/09/13 21:29:58 tbp Exp $
  695. X.ds r \s-1TYPHOON\s0
  696. X.if n .ds - \%--
  697. X.if t .ds - \(em
  698. X.TH D_KEYPREV 1 \*(Dt TYPHOON
  699. X.SH NAME
  700. Xd_keyprev \- find the previous key value in an index
  701. X.SH SYNOPSIS
  702. X.B #include <typhoon.h>
  703. X.br
  704. X
  705. X\fBd_keyprev(ulong \fPkeyid\fB)
  706. X.SH DESCRIPTION
  707. X\fBd_keyprevf\fP finds the next key value smaller than or equal to the
  708. Xcurrent key value in the index specified by 
  709. X\fIkeyid\fP. If \fBd_keyprev\fP returns \fBS_NOTFOUND\fP the start of the
  710. Xindex has been passed. A subsequent call to \fBd_keyprev\fP will return the
  711. Xlast key value in the index.
  712. X.br
  713. X
  714. XThe id can be either the id of a compound key or a field that is a key
  715. Xby itself.
  716. X.br
  717. X
  718. XThe actual record is not read from the database until \fBd_recread(1)\fP is
  719. Xcalled.
  720. X.SH EXAMPLE
  721. X/* Traverse the customers in alphabetical, descending order */
  722. X
  723. X#include <typhoon.h>
  724. X.br
  725. X
  726. Xd_keylast(CUSTOMER_NAME);
  727. X.br
  728. X
  729. Xwhile( db_status == S_OKAY )
  730. X.br
  731. X{
  732. X.br
  733. X    struct customer cust;
  734. X.br
  735. X
  736. X    d_recread(&cust);
  737. X.br
  738. X    printf("%s\\n", cust.name);
  739. X.br
  740. X    d_keyprev(CUSTOMER_NAME);
  741. X.br
  742. X}
  743. X.SH DIAGNOSTICS
  744. XThe status code returned by the function is also stored in the global
  745. Xvariable \fIdb_status\fP.
  746. X.TP
  747. X.B S_OKAY
  748. XThe key value was found.
  749. X.TP
  750. X.B S_NOTFOUND
  751. XThe key value was not found, i.e. the index is empty.
  752. X.TP
  753. X.B S_NOCD
  754. XThere is no current database.
  755. X.TP
  756. X.B S_INVFLD
  757. XThe id is not a valid field.
  758. X.TP
  759. X.B S_NOTKEY
  760. XThe field id is not a key itself.
  761. X.SH CURRENCY CHANGES
  762. XIf \fBS_OKAY\fP is returned, the record found becomes the current record.
  763. X.SH IDENTIFICATION
  764. XAuthor: Thomas B. Pedersen.
  765. X.br
  766. XCopyright (c) 1994 Thomas B. Pedersen.
  767. X.SH "SEE ALSO"
  768. Xd_keyfind(1), d_keynext(1), d_keylast(1), d_recread(1).
  769. X
  770. END_OF_FILE
  771.   if test 1739 -ne `wc -c <'typhoon/man/d_keyprev.1'`; then
  772.     echo shar: \"'typhoon/man/d_keyprev.1'\" unpacked with wrong size!
  773.   fi
  774.   # end of 'typhoon/man/d_keyprev.1'
  775. fi
  776. if test -f 'typhoon/man/d_open.1' -a "${1}" != "-c" ; then 
  777.   echo shar: Will not clobber existing file \"'typhoon/man/d_open.1'\"
  778. else
  779.   echo shar: Extracting \"'typhoon/man/d_open.1'\" \(1532 characters\)
  780.   sed "s/^X//" >'typhoon/man/d_open.1' <<'END_OF_FILE'
  781. X.de Id
  782. X.ds Rv \\$3
  783. X.ds Dt \\$4
  784. X.ds iD \\$3 \\$4 \\$5 \\$6 \\$7
  785. X..
  786. X.Id $Id: d_open.1,v 1.1 1994/09/13 21:29:58 tbp Exp $
  787. X.ds r \s-1TYPHOON\s0
  788. X.if n .ds - \%--
  789. X.if t .ds - \(em
  790. X.TH D_OPEN 1 \*(Dt TYPHOON
  791. X.SH NAME
  792. Xd_open \- open a database
  793. X.SH SYNOPSIS
  794. X.B #include <typhoon.h>
  795. X.br
  796. X
  797. X\fBd_open(char *\fPdbname\fB, char *\fPmode\fB)
  798. X.SH DESCRIPTION
  799. X\fBd_open\fP opens a database in either shared or exclusive mode.
  800. XIf the database does not already exist it is created without warning.
  801. XThe dbd-file must be placed in the path specified by d_dbdpath(1) and 
  802. Xthe database files must be placed in the path specified by d_dbfpath(1).
  803. X\fIdbname\fP is the name of the dbd-file without extension.
  804. X\fImode\fP is "s" or "x" for shared and exclusive mode, respectively.
  805. X
  806. XIf \fBd_open\fP returns \fBS_OKAY\fP the database becomes the current
  807. Xdatabase.
  808. X
  809. XIf the database has already been opened by another process in exclusive
  810. Xmode, d_open returns S_UNAVAIL.
  811. X.SH DIAGNOSTICS
  812. XThe status code returned by the function is also stored in the global
  813. Xvariable \fIdb_status\fP.
  814. X.TP
  815. X.B S_OKAY
  816. XDatabase opened successfully.
  817. X.TP
  818. X.B S_NOMEM
  819. XOut of memory.
  820. X.TP
  821. X.B S_INVDB
  822. XInvalid database name.
  823. X.TP
  824. X.B S_FATALIO
  825. XFatal file i/o error.
  826. X.TP
  827. X.B S_UNAVAIL
  828. XThe database has been opened in exclusive mode by another process.
  829. X.SH CURRENCY CHANGES
  830. XThe opened database becomes the current database.
  831. X.SH IDENTIFICATION
  832. XAuthor: Thomas B. Pedersen.
  833. X.br
  834. XCopyright (c) 1994 Thomas B. Pedersen.
  835. X.SH "SEE ALSO"
  836. Xd_dbdpath(1), d_dbfpath(1), d_setfiles(1), d_close(1), d_destroy(1).
  837. X
  838. END_OF_FILE
  839.   if test 1532 -ne `wc -c <'typhoon/man/d_open.1'`; then
  840.     echo shar: \"'typhoon/man/d_open.1'\" unpacked with wrong size!
  841.   fi
  842.   # end of 'typhoon/man/d_open.1'
  843. fi
  844. if test -f 'typhoon/man/d_recfrst.1' -a "${1}" != "-c" ; then 
  845.   echo shar: Will not clobber existing file \"'typhoon/man/d_recfrst.1'\"
  846. else
  847.   echo shar: Extracting \"'typhoon/man/d_recfrst.1'\" \(1319 characters\)
  848.   sed "s/^X//" >'typhoon/man/d_recfrst.1' <<'END_OF_FILE'
  849. X.de Id
  850. X.ds Rv \\$3
  851. X.ds Dt \\$4
  852. X.ds iD \\$3 \\$4 \\$5 \\$6 \\$7
  853. X..
  854. X.Id $Id: d_recfrst.1,v 1.1 1994/09/13 21:29:58 tbp Exp $
  855. X.ds r \s-1TYPHOON\s0
  856. X.if n .ds - \%--
  857. X.if t .ds - \(em
  858. X.TH D_RECFRST 1 \*(Dt TYPHOON
  859. X.SH NAME
  860. Xd_recfrst \- find the first record in a table
  861. X.SH SYNOPSIS
  862. X.B #include <typhoon.h>
  863. X.br
  864. X
  865. X\fBd_recfrst(ulong \fPrecid\fB)
  866. X.SH DESCRIPTION
  867. X\fBd_recfrst\fP finds the first record in the table specified by 
  868. X\fIrecid\fP. If \fBd_recfrst\fP returns \fBS_NOTFOUND\fP the table 
  869. Xis empty.
  870. X.SH DIAGNOSTICS
  871. XThe status code returned by the function is also stored in the global
  872. Xvariable \fIdb_status\fP.
  873. X.TP
  874. X.B S_OKAY
  875. XA record was found.
  876. X.TP
  877. X.B S_NOTFOUND
  878. XThe key value was not found, i.e. the index is empty.
  879. X.TP
  880. X.B S_NOCD
  881. XThere is no current database.
  882. X.TP
  883. X.B S_INVREC
  884. XThe id is not a record id.
  885. X.SH CURRENCY CHANGES
  886. XIf \fBS_OKAY\fP is returned, the record found becomes the current record.
  887. X.SH EXAMPLE
  888. X/* Traverse the customers in randomorder */
  889. X
  890. X#include <typhoon.h>
  891. X.br
  892. X
  893. Xd_recfrst(CUSTOMER);
  894. X.br
  895. X
  896. Xwhile( db_status == S_OKAY )
  897. X.br
  898. X{
  899. X.br
  900. X    struct customer cust;
  901. X.br
  902. X
  903. X    d_recread(&cust);
  904. X.br
  905. X    printf("%s\\n", cust.name);
  906. X.br
  907. X    d_recnext(CUSTOMER);
  908. X.br
  909. X}
  910. X.SH IDENTIFICATION
  911. XAuthor: Thomas B. Pedersen.
  912. X.br
  913. XCopyright (c) 1994 Thomas B. Pedersen.
  914. X.SH "SEE ALSO"
  915. Xd_reclast(1), d_recnext(1), d_recprev(1), d_recread(1).
  916. X
  917. END_OF_FILE
  918.   if test 1319 -ne `wc -c <'typhoon/man/d_recfrst.1'`; then
  919.     echo shar: \"'typhoon/man/d_recfrst.1'\" unpacked with wrong size!
  920.   fi
  921.   # end of 'typhoon/man/d_recfrst.1'
  922. fi
  923. if test -f 'typhoon/man/d_recnext.1' -a "${1}" != "-c" ; then 
  924.   echo shar: Will not clobber existing file \"'typhoon/man/d_recnext.1'\"
  925. else
  926.   echo shar: Extracting \"'typhoon/man/d_recnext.1'\" \(1317 characters\)
  927.   sed "s/^X//" >'typhoon/man/d_recnext.1' <<'END_OF_FILE'
  928. X.de Id
  929. X.ds Rv \\$3
  930. X.ds Dt \\$4
  931. X.ds iD \\$3 \\$4 \\$5 \\$6 \\$7
  932. X..
  933. X.Id $Id: d_recnext.1,v 1.1 1994/09/13 21:29:59 tbp Exp $
  934. X.ds r \s-1TYPHOON\s0
  935. X.if n .ds - \%--
  936. X.if t .ds - \(em
  937. X.TH D_RECNEXT 1 \*(Dt TYPHOON
  938. X.SH NAME
  939. Xd_recnext \- find the next record in a table
  940. X.SH SYNOPSIS
  941. X.B #include <typhoon.h>
  942. X.br
  943. X
  944. X\fBd_recnext(ulong \fPrecid\fB)
  945. X.SH DESCRIPTION
  946. X\fBd_recnext\fP finds the next record in the table specified by 
  947. X\fIrecid\fP. If \fBd_recnext\fP returns \fBS_NOTFOUND\fP the table 
  948. Xis empty.
  949. X.SH DIAGNOSTICS
  950. XThe status code returned by the function is also stored in the global
  951. Xvariable \fIdb_status\fP.
  952. X.TP
  953. X.B S_OKAY
  954. XA record was found.
  955. X.TP
  956. X.B S_NOTFOUND
  957. XThe key value was not found, i.e. the index is empty.
  958. X.TP
  959. X.B S_NOCD
  960. XThere is no current database.
  961. X.TP
  962. X.B S_INVREC
  963. XThe id is not a record id.
  964. X.SH CURRENCY CHANGES
  965. XIf \fBS_OKAY\fP is returned, the record found becomes the current record.
  966. X.SH EXAMPLE
  967. X/* Traverse the customers in randomorder */
  968. X
  969. X#include <typhoon.h>
  970. X.br
  971. X
  972. Xd_recfrst(CUSTOMER);
  973. X.br
  974. X
  975. Xwhile( db_status == S_OKAY )
  976. X.br
  977. X{
  978. X.br
  979. X    struct customer cust;
  980. X.br
  981. X
  982. X    d_recread(&cust);
  983. X.br
  984. X    printf("%s\\n", cust.name);
  985. X.br
  986. X    d_recnext(CUSTOMER);
  987. X.br
  988. X}
  989. X.SH IDENTIFICATION
  990. XAuthor: Thomas B. Pedersen.
  991. X.br
  992. XCopyright (c) 1994 Thomas B. Pedersen.
  993. X.SH "SEE ALSO"
  994. Xd_recfrst(1), d_reclast(1), d_recprev(1), d_recread(1).
  995. X
  996. END_OF_FILE
  997.   if test 1317 -ne `wc -c <'typhoon/man/d_recnext.1'`; then
  998.     echo shar: \"'typhoon/man/d_recnext.1'\" unpacked with wrong size!
  999.   fi
  1000.   # end of 'typhoon/man/d_recnext.1'
  1001. fi
  1002. if test -f 'typhoon/man/d_recwrite.1' -a "${1}" != "-c" ; then 
  1003.   echo shar: Will not clobber existing file \"'typhoon/man/d_recwrite.1'\"
  1004. else
  1005.   echo shar: Extracting \"'typhoon/man/d_recwrite.1'\" \(1568 characters\)
  1006.   sed "s/^X//" >'typhoon/man/d_recwrite.1' <<'END_OF_FILE'
  1007. X.de Id
  1008. X.ds Rv \\$3
  1009. X.ds Dt \\$4
  1010. X.ds iD \\$3 \\$4 \\$5 \\$6 \\$7
  1011. X..
  1012. X.Id $Id: d_recwrite.1,v 1.1 1994/09/13 21:30:00 tbp Exp $
  1013. X.ds r \s-1TYPHOON\s0
  1014. X.if n .ds - \%--
  1015. X.if t .ds - \(em
  1016. X.TH D_RECWRITE 1 \*(Dt TYPHOON
  1017. X.SH NAME
  1018. Xd_recwrite \- update the current record
  1019. X.SH SYNOPSIS
  1020. X.B #include <typhoon.h>
  1021. X.br
  1022. X
  1023. X\fBd_recwrite(void *\fPbuf\fB)
  1024. X.SH DESCRIPTION
  1025. X\fBd_recwrite\fP updates the contents of the current record.
  1026. X.SH DIAGNOSTICS
  1027. XThe status code returned by the function is also stored in the global
  1028. Xvariable \fIdb_status\fP.
  1029. X.TP
  1030. X.B S_OKAY
  1031. XThe record was successfully updated.
  1032. X.TP
  1033. X.B S_NOCD
  1034. XThere is no current database.
  1035. X.TP
  1036. X.B S_NOCR
  1037. XThere is no current record.
  1038. X.TP
  1039. X.B S_INVREC
  1040. XThe  record id is not valid.
  1041. X.TP
  1042. X.B S_DUPLICATE
  1043. XOne of the keys in the record would cause duplicates in a unique index.
  1044. X\fIdb_subcode\fP contains the id of the conflicting field or key.
  1045. X.TP
  1046. X.B S_RECSIZE
  1047. XA length determinator of a variable length field contained a illegal 
  1048. Xvalue. \fIdb_subcode\fP contains the id of the conflicting field.
  1049. X.TP
  1050. X.B S_FOREIGN
  1051. XThe target of a foreign key could not be found. \fIdb_subcode\fP contains
  1052. Xthe id of the target table.
  1053. X.TP
  1054. X.SH CURRENCY CHANGES
  1055. XNone.
  1056. X.SH EXAMPLE
  1057. X#include <typhoon.h>
  1058. X
  1059. Xstruct customer cust;
  1060. X.br
  1061. Xstrcpy(cust.name, "Pedersen");
  1062. X.br
  1063. Xif( d_keyfind(CUSTOMER_NAME, &cust.name) == S_OKAY )
  1064. X.br
  1065. X{
  1066. X.br
  1067. X    d_recread(&cust);
  1068. X.br
  1069. X    cust.account = 2000;
  1070. X.br
  1071. X    if( d_recwrite(&cust) != S_OKAY )
  1072. X.br
  1073. X        /* handle error */
  1074. X.br
  1075. X}
  1076. X.SH IDENTIFICATION
  1077. XAuthor: Thomas B. Pedersen.
  1078. X.br
  1079. XCopyright (c) 1994 Thomas B. Pedersen.
  1080. X.SH "SEE ALSO"
  1081. Xd_fillnew(1), d_recread(1)
  1082. END_OF_FILE
  1083.   if test 1568 -ne `wc -c <'typhoon/man/d_recwrite.1'`; then
  1084.     echo shar: \"'typhoon/man/d_recwrite.1'\" unpacked with wrong size!
  1085.   fi
  1086.   # end of 'typhoon/man/d_recwrite.1'
  1087. fi
  1088. if test -f 'typhoon/man/ddlp.1' -a "${1}" != "-c" ; then 
  1089.   echo shar: Will not clobber existing file \"'typhoon/man/ddlp.1'\"
  1090. else
  1091.   echo shar: Extracting \"'typhoon/man/ddlp.1'\" \(2382 characters\)
  1092.   sed "s/^X//" >'typhoon/man/ddlp.1' <<'END_OF_FILE'
  1093. X.de Id
  1094. X.ds Rv \\$3
  1095. X.ds Dt \\$4
  1096. X.ds iD \\$3 \\$4 \\$5 \\$6 \\$7
  1097. X..
  1098. X.Id $Id: ddlp.1,v 1.1 1994/09/13 21:30:01 tbp Exp $
  1099. X.ds r \s-1TYPHOON\s0
  1100. X.if n .ds - \%--
  1101. X.if t .ds - \(em
  1102. X.TH DDLP 1 \*(Dt TYPHOON
  1103. X.SH NAME
  1104. Xddlp \- Data Definition Language Processor
  1105. X.SH SYNOPSIS
  1106. X\fBddlp \fP[\fB-a\fP[1|2|4]] [\fB-f\fP] [\fB-h\fP<file>] file
  1107. X.SH DESCRIPTION
  1108. X\fBddlp\fP processes a ddl-file and generates a dbd-file and a header file
  1109. Xwith structures and ids for records, fields and keys.
  1110. X.br
  1111. X
  1112. XThe \fB-a\fP option sets the structure alignment which must match
  1113. Xthe one used by the C compiler. Specifying the \fB-f\fP
  1114. Xoptions causes \fBddlp\fP to only generate constants for those fields
  1115. Xthat are keys. The \fB-h\fP option overrides the default header file name
  1116. Xby the one specified by the user.
  1117. X.br
  1118. X.SH DATA DEFINITION LANGUAGE GRAMMER
  1119. X.TP
  1120. Xdatabase
  1121. X-> "database" name "{" decl {decl} "}"
  1122. X.TP
  1123. Xdecl
  1124. X-> "data" "file" "[" pagesize "]" name "contains"
  1125. X.br
  1126. X   name ";"
  1127. X.br
  1128. X|  "key"  "file" "[" pagesize "]" name "contains"
  1129. X.br
  1130. X   name "." name
  1131. X";"
  1132. X.br
  1133. X|  "define" name expr
  1134. X.br
  1135. X|  "record" name "{" field {field} [key_decls] "}"
  1136. X.br
  1137. X.TP
  1138. Xkey_decls
  1139. X-> primary_key {alternate_key} {foreign_key}
  1140. X.TP
  1141. Xprimary_key
  1142. X-> "primary" "key" name key_def ";"
  1143. X.TP
  1144. Xalternate_key
  1145. X-> "alternate" ["optional"] ["unique"] "key" name
  1146. X.br
  1147. X    key_def
  1148. X";"
  1149. X.TP
  1150. Xforeign_key
  1151. X-> "foreign" ["optional"] foreign_keydef name
  1152. X.br
  1153. X   "references" name ";"
  1154. X.TP
  1155. Xforeign_keydef
  1156. X-> name
  1157. X|  name "{" name { "," name } "}"
  1158. X.TP
  1159. Xkey_def
  1160. X-> "{" key_field { "," key_field } "}"
  1161. X.br
  1162. X   "on" "update" action
  1163. X.br
  1164. X   "on" "delete" action ";"
  1165. X.TP
  1166. Xkey_field
  1167. X-> name [sortorder]
  1168. X.TP
  1169. Xsortorder
  1170. X-> "asc" | "desc"
  1171. X.TP
  1172. Xaction
  1173. X-> "restrict" | "cascade"
  1174. X.TP
  1175. Xpagesize
  1176. X-> "[" int "]"
  1177. X.TP
  1178. Xfield
  1179. X-> type name [dimension] ";"
  1180. X.TP
  1181. Xdimension
  1182. X-> array {array} [ "variable" "by" name ]
  1183. X.TP
  1184. Xarray
  1185. X-> "[" integer "]"
  1186. X.TP
  1187. Xtype
  1188. X-> int_type
  1189. X.br
  1190. X|  "signed" int_type
  1191. X.br
  1192. X|  "unsigned" int_type
  1193. X.br
  1194. X|  float_type
  1195. X.br
  1196. X|  struct_type
  1197. X.TP
  1198. Xint_type
  1199. X-> "char"
  1200. X.br
  1201. X|  "int"
  1202. X.br
  1203. X|  "long"
  1204. X.TP
  1205. Xfloat_type
  1206. X-> "float"
  1207. X.br
  1208. X|  "double"
  1209. X.TP
  1210. Xstruct_type
  1211. X-> struct_head [name] "{" field {field} "}" name
  1212. X.br
  1213. X   [dimension]
  1214. X.TP
  1215. Xstruct_head
  1216. X-> "struct"
  1217. X.br
  1218. X|  "union"
  1219. X.TP
  1220. Xexpr
  1221. X-> expr "+" expr
  1222. X.br
  1223. X|  expr "-" expr
  1224. X.br
  1225. X|  expr "/" expr
  1226. X.br
  1227. X|  expr "*" expr
  1228. X.br
  1229. X|  "(" expr ")"
  1230. X.br
  1231. X|  integer
  1232. X.SH IDENTIFICATION
  1233. XAuthor: Thomas B. Pedersen.
  1234. X.br
  1235. XCopyright (c) 1994 Thomas B. Pedersen.
  1236. X.SH "SEE ALSO"
  1237. END_OF_FILE
  1238.   if test 2382 -ne `wc -c <'typhoon/man/ddlp.1'`; then
  1239.     echo shar: \"'typhoon/man/ddlp.1'\" unpacked with wrong size!
  1240.   fi
  1241.   # end of 'typhoon/man/ddlp.1'
  1242. fi
  1243. if test -f 'typhoon/src/bt_io.c' -a "${1}" != "-c" ; then 
  1244.   echo shar: Will not clobber existing file \"'typhoon/src/bt_io.c'\"
  1245. else
  1246.   echo shar: Extracting \"'typhoon/src/bt_io.c'\" \(2786 characters\)
  1247.   sed "s/^X//" >'typhoon/src/bt_io.c' <<'END_OF_FILE'
  1248. X/*----------------------------------------------------------------------------
  1249. X * File    : bt_io.c
  1250. X * Library : typhoon
  1251. X * OS      : UNIX, OS/2, DOS
  1252. X * Author  : Thomas B. Pedersen
  1253. X *
  1254. X * Copyright (c) 1994 Thomas B. Pedersen.  All rights reserved.
  1255. X *
  1256. X * Permission is hereby granted, without written agreement and without
  1257. X * license or royalty fees, to use, copy, modify, and distribute this
  1258. X * software and its documentation for any purpose, provided that the above
  1259. X * copyright notice and the following two  paragraphs appear (1) in all 
  1260. X * source copies of this software and (2) in accompanying documentation
  1261. X * wherever the programatic interface of this software, or any derivative
  1262. X * of it, is described.
  1263. X *
  1264. X * IN NO EVENT SHALL THOMAS B. PEDERSEN BE LIABLE TO ANY PARTY FOR DIRECT,
  1265. X * INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF
  1266. X * THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF HE HAS BEEN 
  1267. X * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  1268. X *
  1269. X * THOMAS B. PEDERSEN SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT
  1270. X * NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
  1271. X * A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS ON AN "AS IS" 
  1272. X * BASIS, AND THOMAS B. PEDERSEN HAS NO OBLIGATION TO PROVIDE MAINTENANCE,
  1273. X * SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
  1274. X *
  1275. X * Description:
  1276. X *   Contains functions for opening and closing B-tree index files.
  1277. X *
  1278. X * Functions:
  1279. X *
  1280. X * $Log: bt_io.c,v $
  1281. X * Revision 1.2  1994/09/17  16:00:12  tbp
  1282. X * typhoon.h and environ.h are now included from <>.
  1283. X *
  1284. X * Revision 1.1  1994/09/13  21:28:29  tbp
  1285. X * Added to repository.
  1286. X * 
  1287. X *
  1288. X *--------------------------------------------------------------------------*/
  1289. X
  1290. Xstatic char rcsid[] = "$Id: bt_io.c,v 1.2 1994/09/17 16:00:12 tbp Exp $";
  1291. X
  1292. X 
  1293. X#include <string.h>
  1294. X#include <stdio.h>
  1295. X#ifndef UNIX
  1296. X#    include <io.h>
  1297. X#else
  1298. X#    include <unistd.h>
  1299. X#endif
  1300. X#include <typhoon.h>
  1301. X#include "ty_dbd.h"
  1302. X#include "ty_type.h"
  1303. X#include "btree.h"
  1304. X
  1305. X
  1306. Xix_addr noderead(I, node, page)
  1307. XINDEX   *I;
  1308. Xchar    *node;
  1309. Xix_addr  page;
  1310. X{
  1311. X    int i;
  1312. X
  1313. X    lseek(I->fh, (long)page * I->H.nodesize, SEEK_SET);
  1314. X    if( read(I->fh, node, I->H.nodesize) < I->H.nodesize )
  1315. X        return (ix_addr)-1;
  1316. X 
  1317. X    return page;
  1318. X}
  1319. X
  1320. X
  1321. Xix_addr nodewrite(I, node, page)
  1322. XINDEX   *I;
  1323. Xchar    *node;
  1324. Xix_addr  page;
  1325. X{
  1326. X    if( page == NEWPOS )
  1327. X    {
  1328. X        if( I->H.first_deleted )
  1329. X        {
  1330. X            page = I->H.first_deleted;
  1331. X            lseek(I->fh, (long)I->H.nodesize * page, SEEK_SET);
  1332. X            read(I->fh, &I->H.first_deleted, sizeof I->H.first_deleted);
  1333. X        }
  1334. X        else
  1335. X            page = (lseek(I->fh, 0L, SEEK_END) / I->H.nodesize);
  1336. X    }
  1337. X
  1338. X    lseek(I->fh, (long)page * I->H.nodesize, SEEK_SET);
  1339. X    write(I->fh, node, I->H.nodesize);
  1340. X
  1341. X    return page;
  1342. X}
  1343. X 
  1344. X/* end-of-file */                    
  1345. END_OF_FILE
  1346.   if test 2786 -ne `wc -c <'typhoon/src/bt_io.c'`; then
  1347.     echo shar: \"'typhoon/src/bt_io.c'\" unpacked with wrong size!
  1348.   fi
  1349.   # end of 'typhoon/src/bt_io.c'
  1350. fi
  1351. if test -f 'typhoon/src/catalog.h' -a "${1}" != "-c" ; then 
  1352.   echo shar: Will not clobber existing file \"'typhoon/src/catalog.h'\"
  1353. else
  1354.   echo shar: Extracting \"'typhoon/src/catalog.h'\" \(1794 characters\)
  1355.   sed "s/^X//" >'typhoon/src/catalog.h' <<'END_OF_FILE'
  1356. X/*---------- headerfile for catalog.ddl ----------*/
  1357. X/* alignment is 4 */
  1358. X
  1359. X/*---------- structures ----------*/
  1360. Xstruct sys_dissite {  /* size 166 */
  1361. X    unsigned long    id;
  1362. X    long    last_call;
  1363. X    unsigned short   tables;
  1364. X    char    name[21];
  1365. X    char    nua[17];
  1366. X    char    udata_len;
  1367. X    char    udata[16];
  1368. X    char    up_to_date;
  1369. X    char    in_error;
  1370. X    char    spare[99];
  1371. X};
  1372. X
  1373. Xstruct sys_distab {  /* size 24 */
  1374. X    long    id;
  1375. X    long    site_id;
  1376. X    long    last_seqno;
  1377. X    char    tag;
  1378. X    char    up_to_date;
  1379. X    char    spare[10];
  1380. X};
  1381. X
  1382. Xstruct sys_distab_key {  /* size 8 */
  1383. X    long    site_id;
  1384. X    long    id;
  1385. X};
  1386. X
  1387. Xstruct sys_dischange {  /* size 53 */
  1388. X    unsigned long    seqno;
  1389. X    long    table_id;
  1390. X    long    recno;
  1391. X    unsigned short   sites;
  1392. X    unsigned char    prog_id;
  1393. X    char    action;
  1394. X    unsigned char    site[37];
  1395. X};
  1396. X
  1397. Xstruct sys_dischange_key {  /* size 8 */
  1398. X    long    table_id;
  1399. X    long    recno;
  1400. X};
  1401. X
  1402. Xstruct sys_disprkey {  /* size 257 */
  1403. X    unsigned short   size;
  1404. X    unsigned char    buf[255];
  1405. X};
  1406. X
  1407. Xstruct sys_disfulltab {  /* size 12 */
  1408. X    long    site_id;
  1409. X    unsigned long    table_id;
  1410. X    unsigned long    curr_rec;
  1411. X};
  1412. X
  1413. Xstruct fulltab_key {  /* size 8 */
  1414. X    long    site_id;
  1415. X    unsigned long    table_id;
  1416. X};
  1417. X
  1418. X/*---------- record names ----------*/
  1419. X#define SYS_DISSITE 1000L
  1420. X#define SYS_DISTAB 2000L
  1421. X#define SYS_DISCHANGE 3000L
  1422. X#define SYS_DISPRKEY 4000L
  1423. X#define SYS_DISFULLTAB 5000L
  1424. X
  1425. X/*---------- field names ----------*/
  1426. X#define SYS_DISSITE_ID 1001L
  1427. X
  1428. X/*---------- key constants ----------*/
  1429. X#define SYS_DISTAB_KEY 1
  1430. X#define SYS_DISCHANGE_KEY 2
  1431. X#define FULLTAB_KEY 3
  1432. X
  1433. X/*---------- integer constants ----------*/
  1434. X#define SITES_MAX 296
  1435. X#define SITEBITMAP_SIZE 37
  1436. X#define SITENAME_LEN 20
  1437. X#define NUA_LEN 16
  1438. X#define UDATA_LEN 16
  1439. X#define KEYSIZE_MAX 255
  1440. END_OF_FILE
  1441.   if test 1794 -ne `wc -c <'typhoon/src/catalog.h'`; then
  1442.     echo shar: \"'typhoon/src/catalog.h'\" unpacked with wrong size!
  1443.   fi
  1444.   # end of 'typhoon/src/catalog.h'
  1445. fi
  1446. if test -f 'typhoon/src/dos.c' -a "${1}" != "-c" ; then 
  1447.   echo shar: Will not clobber existing file \"'typhoon/src/dos.c'\"
  1448. else
  1449.   echo shar: Extracting \"'typhoon/src/dos.c'\" \(1804 characters\)
  1450.   sed "s/^X//" >'typhoon/src/dos.c' <<'END_OF_FILE'
  1451. X/*----------------------------------------------------------------------------
  1452. X * File    : dos.c
  1453. X * Library : typhoon
  1454. X * OS      : UNIX, OS/2, DOS
  1455. X * Author  : Thomas B. Pedersen
  1456. X *
  1457. X * Copyright (c) 1994 Thomas B. Pedersen.  All rights reserved.
  1458. X *
  1459. X * Permission is hereby granted, without written agreement and without
  1460. X * license or royalty fees, to use, copy, modify, and distribute this
  1461. X * software and its documentation for any purpose, provided that the above
  1462. X * copyright notice and the following two  paragraphs appear (1) in all 
  1463. X * source copies of this software and (2) in accompanying documentation
  1464. X * wherever the programatic interface of this software, or any derivative
  1465. X * of it, is described.
  1466. X *
  1467. X * IN NO EVENT SHALL THOMAS B. PEDERSEN BE LIABLE TO ANY PARTY FOR DIRECT,
  1468. X * INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF
  1469. X * THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF HE HAS BEEN 
  1470. X * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  1471. X *
  1472. X * THOMAS B. PEDERSEN SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT
  1473. X * NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
  1474. X * A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS ON AN "AS IS" 
  1475. X * BASIS, AND THOMAS B. PEDERSEN HAS NO OBLIGATION TO PROVIDE MAINTENANCE,
  1476. X * SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
  1477. X *
  1478. X * Description:
  1479. X *   Contiains functions specific to DOS.
  1480. X *
  1481. X * Functions:
  1482. X *
  1483. X * $Log: dos.c,v $
  1484. X * Revision 1.1  1994/09/13  21:28:30  tbp
  1485. X * Added to repository.
  1486. X * 
  1487. X *
  1488. X *--------------------------------------------------------------------------*/
  1489. X
  1490. Xstatic char rcsid[] = "$Id: dos.c,v 1.1 1994/09/13 21:28:30 tbp Exp $";
  1491. X
  1492. X
  1493. Xty_openlock()
  1494. X{
  1495. X    return 0;
  1496. X}
  1497. X
  1498. X
  1499. Xty_closelock()
  1500. X{
  1501. X    return 0;
  1502. X}
  1503. X
  1504. X
  1505. Xty_lock()
  1506. X{
  1507. X    return 0;
  1508. X}
  1509. X
  1510. X
  1511. Xty_unlock()
  1512. X{
  1513. X    return 0;
  1514. X}
  1515. X
  1516. X/* end-of-file */
  1517. X
  1518. END_OF_FILE
  1519.   if test 1804 -ne `wc -c <'typhoon/src/dos.c'`; then
  1520.     echo shar: \"'typhoon/src/dos.c'\" unpacked with wrong size!
  1521.   fi
  1522.   # end of 'typhoon/src/dos.c'
  1523. fi
  1524. if test -f 'typhoon/src/makefile' -a "${1}" != "-c" ; then 
  1525.   echo shar: Will not clobber existing file \"'typhoon/src/makefile'\"
  1526. else
  1527.   echo shar: Extracting \"'typhoon/src/makefile'\" \(2254 characters\)
  1528.   sed "s/^X//" >'typhoon/src/makefile' <<'END_OF_FILE'
  1529. X#-----------------------------------------------------------------------------
  1530. X# File    : makefile
  1531. X# Library : typhoon
  1532. X# OS      : UNIX, OS/2, DOS
  1533. X# Author  : Thomas B. Pedersen
  1534. X#
  1535. X# Copyright (c) 1994 Thomas B. Pedersen.  All rights reserved.
  1536. X#
  1537. X# Permission is hereby granted, without written agreement and without
  1538. X# license or royalty fees, to use, copy, modify, and distribute this
  1539. X# software and its documentation for any purpose, provided that the above
  1540. X# copyright notice and the following two  paragraphs appear (1) in all 
  1541. X# source copies of this software and (2) in accompanying documentation
  1542. X# wherever the programatic interface of this software, or any derivative
  1543. X# of it, is described.
  1544. X# 
  1545. X# IN NO EVENT SHALL THOMAS B. PEDERSEN BE LIABLE TO ANY PARTY FOR DIRECT,
  1546. X# INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF
  1547. X# THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF HE HAS BEEN 
  1548. X# ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  1549. X#
  1550. X# THOMAS B. PEDERSEN SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT
  1551. X# NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
  1552. X# A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS ON AN "AS IS" 
  1553. X# BASIS, AND THOMAS B. PEDERSEN HAS NO OBLIGATION TO PROVIDE MAINTENANCE,
  1554. X# SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
  1555. X#
  1556. X# Description:
  1557. X#   Makefile for Typhoon Relational Database Management System.
  1558. X#
  1559. X# $Id: makefile,v 1.3 1994/09/17 16:11:04 tbp Exp $
  1560. X#
  1561. X# $Log: makefile,v $
  1562. X# Revision 1.3  1994/09/17  16:11:04  tbp
  1563. X# Added include directive.
  1564. X#
  1565. X# Added included directive.
  1566. X#
  1567. X# Revision 1.2  1994/09/13  21:36:06  tbp
  1568. X# Compilation of catalog.ddl cannot take place before ddlp has been compiled.
  1569. X#
  1570. X# Revision 1.1  1994/09/13  21:28:31  tbp
  1571. X# Added to repository.
  1572. X# 
  1573. X#
  1574. X#-----------------------------------------------------------------------------
  1575. X
  1576. XOBJS    = bt_del.o bt_funcs.o bt_io.o bt_open.o cmpfuncs.o os.o \
  1577. X          readdbd.o record.o ty_ins.o ty_find.o ty_auxfn.o ty_open.o ty_io.o \
  1578. X          unix.o vlr.o ty_refin.o ty_util.o ty_log.o ty_repl.o
  1579. XLIB        = libtyphoon.a
  1580. XCFLAGS    = -DUNIX -g -Ih
  1581. X
  1582. Xall: $(LIB)
  1583. X
  1584. X$(LIB): $(OBJS)
  1585. X    ar r $(LIB) $(OBJS)
  1586. X    ranlib $(LIB)
  1587. X
  1588. X#catalog.dbd: catalog.ddl
  1589. X#    ddlp -f -hcatalog.h -a4 catalog
  1590. X
  1591. X.c.o:
  1592. X    cc -c $(CFLAGS) $<
  1593. X
  1594. X# end-of-file
  1595. END_OF_FILE
  1596.   if test 2254 -ne `wc -c <'typhoon/src/makefile'`; then
  1597.     echo shar: \"'typhoon/src/makefile'\" unpacked with wrong size!
  1598.   fi
  1599.   # end of 'typhoon/src/makefile'
  1600. fi
  1601. if test -f 'typhoon/src/ty_glob.h' -a "${1}" != "-c" ; then 
  1602.   echo shar: Will not clobber existing file \"'typhoon/src/ty_glob.h'\"
  1603. else
  1604.   echo shar: Extracting \"'typhoon/src/ty_glob.h'\" \(3068 characters\)
  1605.   sed "s/^X//" >'typhoon/src/ty_glob.h' <<'END_OF_FILE'
  1606. X/*----------------------------------------------------------------------------
  1607. X * File    : ty_glob.h
  1608. X * Library : typhoon
  1609. X * OS      : UNIX, OS/2, DOS
  1610. X * Author  : Thomas B. Pedersen
  1611. X *
  1612. X * Copyright (c) 1994 Thomas B. Pedersen.  All rights reserved.
  1613. X *
  1614. X * Permission is hereby granted, without written agreement and without
  1615. X * license or royalty fees, to use, copy, modify, and distribute this
  1616. X * software and its documentation for any purpose, provided that the above
  1617. X * copyright notice and the following two  paragraphs appear (1) in all 
  1618. X * source copies of this software and (2) in accompanying documentation
  1619. X * wherever the programatic interface of this software, or any derivative
  1620. X * of it, is described.
  1621. X *
  1622. X * IN NO EVENT SHALL THOMAS B. PEDERSEN BE LIABLE TO ANY PARTY FOR DIRECT,
  1623. X * INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF
  1624. X * THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF HE HAS BEEN 
  1625. X * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  1626. X *
  1627. X * THOMAS B. PEDERSEN SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT
  1628. X * NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
  1629. X * A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS ON AN "AS IS" 
  1630. X * BASIS, AND THOMAS B. PEDERSEN HAS NO OBLIGATION TO PROVIDE MAINTENANCE,
  1631. X * SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
  1632. X *
  1633. X * Description:
  1634. X *   Contains the global variables for the library.
  1635. X *
  1636. X * $Id: ty_glob.h,v 1.1 1994/09/13 21:28:34 tbp Exp $
  1637. X *
  1638. X * $Log: ty_glob.h,v $
  1639. X * Revision 1.1  1994/09/13  21:28:34  tbp
  1640. X * Added to repository.
  1641. X * 
  1642. X *
  1643. X *--------------------------------------------------------------------------*/
  1644. X
  1645. X/*---------------------------------- OS/2 ----------------------------------*\
  1646. X *
  1647. X * If Typhoon is compiled as an OS/2 DLL, the functions must be a special
  1648. X * class in order to be known to other programs.
  1649. X *
  1650. X */
  1651. X
  1652. X#ifdef OS2
  1653. X#    define INCL_NOPMAPI
  1654. X#    include <os2.h>
  1655. X#    define FNCLASS APIRET EXPENTRY
  1656. X#else
  1657. X#    define FNCLASS
  1658. X#    define VAR
  1659. X#endif
  1660. X
  1661. X#ifdef DEFINE_GLOBALS
  1662. X
  1663. XTyphoonGlobals typhoon = {
  1664. X    { 0 },                                    /* dbtab                         */
  1665. X    NULL,                                    /* db                            */
  1666. X    0,                                        /* do_rebuild                    */
  1667. X    0,                                        /* dbs_open                        */
  1668. X    0,                                        /* cur_open                        */
  1669. X    20,                                        /* max_open                        */
  1670. X    { 0 },                                    /* curr_keybuf                    */
  1671. X    0,                                        /* curr_key                        */
  1672. X    -1,                                        /* curr_db                        */
  1673. X    NULL,                                    /* ty_errfn                        */
  1674. X    { '.', DIR_SWITCH, 0 },                    /* dbfpath                        */
  1675. X    { '.', DIR_SWITCH, 0 }                    /* dbdpath                        */
  1676. X};
  1677. X
  1678. Xint             db_status = 0;                    /* Status code                    */
  1679. Xlong         db_subcode = 0;                /* Sub error code                */
  1680. X
  1681. X#else
  1682. X
  1683. X
  1684. Xextern TyphoonGlobals typhoon;
  1685. Xextern int db_status;
  1686. Xextern long db_subcode;
  1687. X
  1688. X
  1689. X#endif
  1690. X
  1691. Xextern         CMPFUNC keycmp[];                /* Comparison function table    */
  1692. X
  1693. X
  1694. X#define DB                typhoon.db
  1695. X#define CURR_DB            typhoon.curr_db
  1696. X#define CURR_KEY        typhoon.curr_key
  1697. X#define CURR_KEYBUF        typhoon.curr_keybuf
  1698. X#define CURR_REC        typhoon.db->curr_rec
  1699. X#define CURR_RECID        typhoon.db->curr_recid
  1700. X#define CURR_BUFREC        typhoon.db->curr_bufrec
  1701. X#define CURR_BUFRECID    typhoon.db->curr_bufrecid
  1702. X
  1703. X
  1704. X
  1705. X/* end-of-file */
  1706. X
  1707. END_OF_FILE
  1708.   if test 3068 -ne `wc -c <'typhoon/src/ty_glob.h'`; then
  1709.     echo shar: \"'typhoon/src/ty_glob.h'\" unpacked with wrong size!
  1710.   fi
  1711.   # end of 'typhoon/src/ty_glob.h'
  1712. fi
  1713. if test -f 'typhoon/src/util/export.h' -a "${1}" != "-c" ; then 
  1714.   echo shar: Will not clobber existing file \"'typhoon/src/util/export.h'\"
  1715. else
  1716.   echo shar: Extracting \"'typhoon/src/util/export.h'\" \(2629 characters\)
  1717.   sed "s/^X//" >'typhoon/src/util/export.h' <<'END_OF_FILE'
  1718. X/*----------------------------------------------------------------------------
  1719. X * File    : export.h
  1720. X * Program : tyexport
  1721. X * OS      : UNIX, OS/2, DOS
  1722. X * Author  : Thomas B. Pedersen
  1723. X *
  1724. X * Copyright (c) 1994 Thomas B. Pedersen.  All rights reserved.
  1725. X *
  1726. X * Permission is hereby granted, without written agreement and without
  1727. X * license or royalty fees, to use, copy, modify, and distribute this
  1728. X * software and its documentation for any purpose, provided that the above
  1729. X * copyright notice and the following two  paragraphs appear (1) in all 
  1730. X * source copies of this software and (2) in accompanying documentation
  1731. X * wherever the programatic interface of this software, or any derivative
  1732. X * of it, is described.
  1733. X *
  1734. X * IN NO EVENT SHALL THOMAS B. PEDERSEN BE LIABLE TO ANY PARTY FOR DIRECT,
  1735. X * INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF
  1736. X * THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF HE HAS BEEN 
  1737. X * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  1738. X *
  1739. X * THOMAS B. PEDERSEN SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT
  1740. X * NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
  1741. X * A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS ON AN "AS IS" 
  1742. X * BASIS, AND THOMAS B. PEDERSEN HAS NO OBLIGATION TO PROVIDE MAINTENANCE,
  1743. X * SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
  1744. X *
  1745. X * Description:
  1746. X *   Header file for export utility.
  1747. X * 
  1748. X * $Id: export.h,v 1.1 1994/09/13 21:28:55 tbp Exp $
  1749. X *
  1750. X * $Log: export.h,v $
  1751. X * Revision 1.1  1994/09/13  21:28:55  tbp
  1752. X * Added to repository.
  1753. X *
  1754. X * Added to repository.
  1755. X * 
  1756. X *
  1757. X *--------------------------------------------------------------------------*/
  1758. X
  1759. X#ifdef DEFINE_GLOBALS
  1760. X#define CLASS
  1761. X#define I(x)    = x
  1762. X#else
  1763. X#define CLASS    extern
  1764. X#define I(x)
  1765. X#endif
  1766. X
  1767. X
  1768. X/*--------------------------- Function prototypes --------------------------*/
  1769. Xint    yyerror                PRM( (char *fmt ELLIPSIS); )
  1770. X
  1771. Xvoid err_quit            PRM( (char * ELLIPSIS); )
  1772. Xvoid GenerateExportSpec    PRM( (char *); )
  1773. Xvoid ReadExportSpec        PRM( (char *); )
  1774. X
  1775. X
  1776. X/*------------------------------- Constants --------------------------------*/
  1777. X#define FT_INCLUDE        0x8000                    /* Set in field[].type if    */
  1778. X                                                /* field should be included    */
  1779. X                                                /* export.                    */
  1780. X
  1781. X/*---------------------------- Global variables ----------------------------*/
  1782. XCLASS Dbentry    dbd;
  1783. XCLASS char        dbd_fname[256];
  1784. XCLASS char        spec_fname[256];
  1785. XCLASS int        lex_lineno            I( 1 );        /* Current line number        */
  1786. XCLASS int        errors                I( 0 );        /* Number of errors            */
  1787. XCLASS Header    header;                            /* .dbd file header            */
  1788. X
  1789. X#undef CLASS
  1790. X#undef I
  1791. X
  1792. X/* end-of-file */
  1793. X
  1794. X
  1795. X
  1796. X
  1797. X
  1798. X
  1799. X
  1800. X
  1801. X
  1802. X
  1803. X
  1804. X
  1805. X
  1806. X
  1807. X
  1808. X
  1809. X
  1810. X
  1811. X
  1812. X
  1813. X
  1814. X
  1815. X
  1816. X
  1817. X
  1818. X
  1819. X
  1820. X
  1821. X
  1822. X
  1823. X
  1824. X
  1825. X
  1826. X
  1827. X
  1828. X
  1829. X
  1830. X
  1831. X
  1832. X
  1833. X
  1834. END_OF_FILE
  1835.   if test 2629 -ne `wc -c <'typhoon/src/util/export.h'`; then
  1836.     echo shar: \"'typhoon/src/util/export.h'\" unpacked with wrong size!
  1837.   fi
  1838.   # end of 'typhoon/src/util/export.h'
  1839. fi
  1840. if test -f 'typhoon/src/util/import.h' -a "${1}" != "-c" ; then 
  1841.   echo shar: Will not clobber existing file \"'typhoon/src/util/import.h'\"
  1842. else
  1843.   echo shar: Extracting \"'typhoon/src/util/import.h'\" \(2621 characters\)
  1844.   sed "s/^X//" >'typhoon/src/util/import.h' <<'END_OF_FILE'
  1845. X/*----------------------------------------------------------------------------
  1846. X * File    : import.h
  1847. X * Program : tyimport
  1848. X * OS      : UNIX, OS/2, DOS
  1849. X * Author  : Thomas B. Pedersen
  1850. X *
  1851. X * Copyright (c) 1994 Thomas B. Pedersen.  All rights reserved.
  1852. X *
  1853. X * Permission is hereby granted, without written agreement and without
  1854. X * license or royalty fees, to use, copy, modify, and distribute this
  1855. X * software and its documentation for any purpose, provided that the above
  1856. X * copyright notice and the following two  paragraphs appear (1) in all 
  1857. X * source copies of this software and (2) in accompanying documentation
  1858. X * wherever the programatic interface of this software, or any derivative
  1859. X * of it, is described.
  1860. X *
  1861. X * IN NO EVENT SHALL THOMAS B. PEDERSEN BE LIABLE TO ANY PARTY FOR DIRECT,
  1862. X * INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF
  1863. X * THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF HE HAS BEEN 
  1864. X * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  1865. X *
  1866. X * THOMAS B. PEDERSEN SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT
  1867. X * NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
  1868. X * A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS ON AN "AS IS" 
  1869. X * BASIS, AND THOMAS B. PEDERSEN HAS NO OBLIGATION TO PROVIDE MAINTENANCE,
  1870. X * SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
  1871. X *
  1872. X * Description:
  1873. X *   Header file for tyexport.
  1874. X *
  1875. X * $Id: import.h,v 1.1 1994/09/13 21:28:58 tbp Exp $
  1876. X *
  1877. X * $Log: import.h,v $
  1878. X * Revision 1.1  1994/09/13  21:28:58  tbp
  1879. X * Added to repository.
  1880. X *
  1881. X * Added to repository.
  1882. X * 
  1883. X *
  1884. X *--------------------------------------------------------------------------*/
  1885. X
  1886. X#ifdef DEFINE_GLOBALS
  1887. X#define CLASS
  1888. X#define I(x)    = x
  1889. X#else
  1890. X#define CLASS    extern
  1891. X#define I(x)
  1892. X#endif
  1893. X
  1894. X/*--------------------------- Function prototypes --------------------------*/
  1895. Xint    yyerror                PRM( (char *fmt ELLIPSIS); )
  1896. X
  1897. Xvoid err_quit            PRM( (char * ELLIPSIS); )
  1898. Xvoid GenerateImportSpec    PRM( (char *); )
  1899. Xvoid ReadImportSpec        PRM( (char *); )
  1900. X
  1901. X/*------------------------------- Constants --------------------------------*/
  1902. X#define FT_INCLUDE        0x8000                    /* Set in field[].type if    */
  1903. X                                                /* field should be included    */
  1904. X                                                /* import.                    */
  1905. X
  1906. X
  1907. X/*---------------------------- Global variables ----------------------------*/
  1908. XCLASS Dbentry    dbd;
  1909. XCLASS char        dbd_fname[256];
  1910. XCLASS char        spec_fname[256];
  1911. XCLASS int        lex_lineno            I( 1 );        /* Current line number        */
  1912. XCLASS int        errors                I( 0 );        /* Number of errors            */
  1913. XCLASS Header    header;                            /* .dbd file header            */
  1914. X
  1915. X#undef CLASS
  1916. X#undef I
  1917. X
  1918. X/* end-of-file */
  1919. X
  1920. X
  1921. X
  1922. X
  1923. X
  1924. X
  1925. X
  1926. X
  1927. X
  1928. X
  1929. X
  1930. X
  1931. X
  1932. X
  1933. X
  1934. X
  1935. X
  1936. X
  1937. X
  1938. X
  1939. X
  1940. X
  1941. X
  1942. X
  1943. X
  1944. X
  1945. X
  1946. X
  1947. X
  1948. X
  1949. X
  1950. X
  1951. X
  1952. X
  1953. X
  1954. X
  1955. X
  1956. X
  1957. X
  1958. X
  1959. X
  1960. END_OF_FILE
  1961.   if test 2621 -ne `wc -c <'typhoon/src/util/import.h'`; then
  1962.     echo shar: \"'typhoon/src/util/import.h'\" unpacked with wrong size!
  1963.   fi
  1964.   # end of 'typhoon/src/util/import.h'
  1965. fi
  1966. if test -f 'typhoon/src/util/makefile' -a "${1}" != "-c" ; then 
  1967.   echo shar: Will not clobber existing file \"'typhoon/src/util/makefile'\"
  1968. else
  1969.   echo shar: Extracting \"'typhoon/src/util/makefile'\" \(2836 characters\)
  1970.   sed "s/^X//" >'typhoon/src/util/makefile' <<'END_OF_FILE'
  1971. X#-----------------------------------------------------------------------------
  1972. X# File    : makefile
  1973. X# Library : typhoon
  1974. X# OS      : UNIX, OS/2, DOS
  1975. X# Author  : Thomas B. Pedersen
  1976. X#
  1977. X# Copyright (c) 1994 Thomas B. Pedersen.  All rights reserved.
  1978. X#
  1979. X# Permission is hereby granted, without written agreement and without
  1980. X#  license or royalty fees, to use, copy, modify, and distribute this
  1981. X#  software and its documentation for any purpose, provided that the above
  1982. X#  copyright notice and the following two  paragraphs appear (1) in all 
  1983. X#  source copies of this software and (2) in accompanying documentation
  1984. X#  wherever the programatic interface of this software, or any derivative
  1985. X#  of it, is described.
  1986. X# 
  1987. X# IN NO EVENT SHALL THOMAS B. PEDERSEN BE LIABLE TO ANY PARTY FOR DIRECT,
  1988. X# INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF
  1989. X# THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF HE HAS BEEN 
  1990. X# ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  1991. X#
  1992. X# THOMAS B. PEDERSEN SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT
  1993. X# NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
  1994. X# A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS ON AN "AS IS" 
  1995. X# BASIS, AND THOMAS B. PEDERSEN HAS NO OBLIGATION TO PROVIDE MAINTENANCE,
  1996. X# SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
  1997. X#
  1998. X# Description:
  1999. X#   Makefile for Typhoon utilities.
  2000. X#
  2001. X# $Id: makefile,v 1.2 1994/09/17 16:11:14 tbp Exp $
  2002. X#
  2003. X# $Log: makefile,v $
  2004. X# Revision 1.2  1994/09/17  16:11:14  tbp
  2005. X# Added include directive.
  2006. X#
  2007. X# Added included directive.
  2008. X#
  2009. X# Added include directive.
  2010. X#
  2011. X# Revision 1.1  1994/09/13  21:29:00  tbp
  2012. X# Added to repository.
  2013. X#
  2014. X# Added to repository.
  2015. X# 
  2016. X#
  2017. X# ----------------------------------------------------------------------------
  2018. X
  2019. XDDLP_OBJS        = ddl_y.o ddlp.o ddlplex.o ddlpsym.o
  2020. XDBDVIEW_OBJS    = dbdview.o
  2021. XEXPORT_OBJS        = exp_y.o export.o exportlx.o expspec.o
  2022. XIMPORT_OBJS        = imp_y.o import.o importlx.o impspec.o
  2023. XBACKUP_OBJS        = backup.o util.o
  2024. XRESTORE_OBJS    = restore.o util.o fixlog.o
  2025. XLIB                = ../libtyphoon.a
  2026. X
  2027. XCFLAGS            = -DUNIX -g -I../h
  2028. X
  2029. Xall: ddlp dbdview tyexport tyimport
  2030. X
  2031. Xdbdview: $(DBDVIEW_OBJS)
  2032. X    cc $(CFLAGS) -o dbdview $(DBDVIEW_OBJS)
  2033. X
  2034. Xddlp: $(DDLP_OBJS) ddl_y.c
  2035. X    cc $(CFLAGS) -o ddlp $(DDLP_OBJS)
  2036. X
  2037. Xtyimport: $(IMPORT_OBJS) exp_y.c
  2038. X    cc $(CFLAGS) -o tyimport $(IMPORT_OBJS) $(LIB)
  2039. X
  2040. Xtyexport: $(EXPORT_OBJS) imp_y.c
  2041. X    cc $(CFLAGS) -o tyexport $(EXPORT_OBJS) $(LIB)
  2042. X
  2043. Xtybackup: $(BACKUP_OBJS)
  2044. X    $(CC) -o tybackup $(BACKUP_OBJS) ../readdbd.o ../os.o ../unix.o
  2045. X
  2046. Xtyrestore: $(RESTORE_OBJS)
  2047. X    $(CC) -o tyrestore $(RESTORE_OBJS) ../readdbd.o ../os.o ../unix.o
  2048. X
  2049. Xddl_y.c: ddl.y
  2050. X    yacc -d ddl.y
  2051. X    mv y.tab.c ddl_y.c
  2052. X    mv y.tab.h ddl_y.h
  2053. X
  2054. Xexp_y.c: exp.y
  2055. X    yacc -d exp.y
  2056. X    mv y.tab.c exp_y.c
  2057. X    mv y.tab.h exp_y.h
  2058. X
  2059. Ximp_y.c: imp.y
  2060. X    yacc -d imp.y
  2061. X    mv y.tab.c imp_y.c
  2062. X    mv y.tab.h imp_y.h
  2063. X
  2064. X.c.o:
  2065. X    cc -c $(CFLAGS) $<
  2066. X
  2067. X# end-of-file
  2068. END_OF_FILE
  2069.   if test 2836 -ne `wc -c <'typhoon/src/util/makefile'`; then
  2070.     echo shar: \"'typhoon/src/util/makefile'\" unpacked with wrong size!
  2071.   fi
  2072.   # end of 'typhoon/src/util/makefile'
  2073. fi
  2074. if test -f 'typhoon/src/util/util.c' -a "${1}" != "-c" ; then 
  2075.   echo shar: Will not clobber existing file \"'typhoon/src/util/util.c'\"
  2076. else
  2077.   echo shar: Extracting \"'typhoon/src/util/util.c'\" \(2695 characters\)
  2078.   sed "s/^X//" >'typhoon/src/util/util.c' <<'END_OF_FILE'
  2079. X/*----------------------------------------------------------------------------
  2080. X * File    : util.c
  2081. X * Program : tybackup, tyrestore
  2082. X * OS      : UNIX, OS/2, DOS
  2083. X * Author  : Thomas B. Pedersen
  2084. X *
  2085. X * Copyright (c) 1994 Thomas B. Pedersen.  All rights reserved.
  2086. X *
  2087. X * Permission is hereby granted, without written agreement and without
  2088. X * license or royalty fees, to use, copy, modify, and distribute this
  2089. X * software and its documentation for any purpose, provided that the above
  2090. X * copyright notice and the following two  paragraphs appear (1) in all 
  2091. X * source copies of this software and (2) in accompanying documentation
  2092. X * wherever the programatic interface of this software, or any derivative
  2093. X * of it, is described.
  2094. X *
  2095. X * IN NO EVENT SHALL THOMAS B. PEDERSEN BE LIABLE TO ANY PARTY FOR DIRECT,
  2096. X * INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF
  2097. X * THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF HE HAS BEEN 
  2098. X * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  2099. X *
  2100. X * THOMAS B. PEDERSEN SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT
  2101. X * NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
  2102. X * A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS ON AN "AS IS" 
  2103. X * BASIS, AND THOMAS B. PEDERSEN HAS NO OBLIGATION TO PROVIDE MAINTENANCE,
  2104. X * SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
  2105. X *
  2106. X * Description:
  2107. X *   Contains miscellaneous function used by tybackup and tyrestore.
  2108. X *
  2109. X * Functions:
  2110. X *   clock_on            - Start timer.
  2111. X *   clock_off            - Stop timer.
  2112. X *   clock_secs            - Report number of seconds passed.
  2113. X *   printlong            - Print a long with 1000 separators.
  2114. X *
  2115. X * $Log: util.c,v $
  2116. X * Revision 1.2  1994/09/17  16:00:57  tbp
  2117. X * typhoon.h and environ.h are now included from <>.
  2118. X *
  2119. X * Revision 1.1  1994/09/13  21:29:01  tbp
  2120. X * Added to repository.
  2121. X *
  2122. X * Added to repository.
  2123. X * 
  2124. X *
  2125. X *--------------------------------------------------------------------------*/
  2126. X
  2127. Xstatic char rcsid[] = "$Id: util.c,v 1.2 1994/09/17 16:00:57 tbp Exp $";
  2128. X
  2129. X#include <time.h>
  2130. X#include <environ.h>
  2131. X
  2132. X
  2133. X/*---------------------------- Global variables ----------------------------*/
  2134. Xstatic ulong        secs_used = 0;
  2135. Xstatic ulong        clock_start = 0;
  2136. X
  2137. X
  2138. X
  2139. Xvoid clock_on()
  2140. X{
  2141. X    clock_start = time(NULL);
  2142. X}
  2143. X
  2144. X
  2145. Xvoid clock_off()
  2146. X{
  2147. X    if( clock_start )
  2148. X        secs_used += time(NULL) - clock_start;
  2149. X}
  2150. X
  2151. X
  2152. Xulong clock_secs()
  2153. X{
  2154. X    return secs_used;
  2155. X}
  2156. X
  2157. X
  2158. Xchar *printlong(number)
  2159. Xulong number;
  2160. X{
  2161. X    static char s[20];
  2162. X    char *p = s + sizeof(s)-1;
  2163. X    int n = 3;
  2164. X    
  2165. X    s[19] = 0;
  2166. X    if( !number )
  2167. X    {
  2168. X        p = s + sizeof(s)-2;
  2169. X        *p = '0';
  2170. X    }
  2171. X    
  2172. X    while( number )
  2173. X    {
  2174. X        *--p = '0' + (number % 10);
  2175. X        number /= 10;
  2176. X        
  2177. X        if( !--n && number )
  2178. X        {
  2179. X            *--p = ',';
  2180. X            n = 3;
  2181. X        }
  2182. X    }
  2183. X
  2184. X    return p;
  2185. X}
  2186. X
  2187. X/* end-of-file */
  2188. END_OF_FILE
  2189.   if test 2695 -ne `wc -c <'typhoon/src/util/util.c'`; then
  2190.     echo shar: \"'typhoon/src/util/util.c'\" unpacked with wrong size!
  2191.   fi
  2192.   # end of 'typhoon/src/util/util.c'
  2193. fi
  2194. if test -f 'typhoon/src/util/util.h' -a "${1}" != "-c" ; then 
  2195.   echo shar: Will not clobber existing file \"'typhoon/src/util/util.h'\"
  2196. else
  2197.   echo shar: Extracting \"'typhoon/src/util/util.h'\" \(1982 characters\)
  2198.   sed "s/^X//" >'typhoon/src/util/util.h' <<'END_OF_FILE'
  2199. X/*----------------------------------------------------------------------------
  2200. X * File    : util.h
  2201. X * Program : tybackup, tyrestore
  2202. X * OS      : UNIX, OS/2, DOS
  2203. X * Author  : Thomas B. Pedersen
  2204. X *
  2205. X * Copyright (c) 1994 Thomas B. Pedersen.  All rights reserved.
  2206. X *
  2207. X * Permission is hereby granted, without written agreement and without
  2208. X * license or royalty fees, to use, copy, modify, and distribute this
  2209. X * software and its documentation for any purpose, provided that the above
  2210. X * copyright notice and the following two  paragraphs appear (1) in all 
  2211. X * source copies of this software and (2) in accompanying documentation
  2212. X * wherever the programatic interface of this software, or any derivative
  2213. X * of it, is described.
  2214. X *
  2215. X * IN NO EVENT SHALL THOMAS B. PEDERSEN BE LIABLE TO ANY PARTY FOR DIRECT,
  2216. X * INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF
  2217. X * THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF HE HAS BEEN 
  2218. X * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  2219. X *
  2220. X * THOMAS B. PEDERSEN SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT
  2221. X * NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
  2222. X * A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS ON AN "AS IS" 
  2223. X * BASIS, AND THOMAS B. PEDERSEN HAS NO OBLIGATION TO PROVIDE MAINTENANCE,
  2224. X * SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
  2225. X *
  2226. X * Description:
  2227. X *   Prototypes for functions in util.c.
  2228. X *
  2229. X * $Id: util.h,v 1.1 1994/09/13 21:29:01 tbp Exp $
  2230. X *
  2231. X * $Log: util.h,v $
  2232. X * Revision 1.1  1994/09/13  21:29:01  tbp
  2233. X * Added to repository.
  2234. X *
  2235. X * Added to repository.
  2236. X * 
  2237. X *
  2238. X *--------------------------------------------------------------------------*/
  2239. X
  2240. Xstatic char rcsid[] = "$Id: util.h,v 1.1 1994/09/13 21:29:01 tbp Exp $";
  2241. X
  2242. X/*-------------------------- Function prototypes ---------------------------*/
  2243. Xvoid    clock_on                    PRM( (void); )
  2244. Xvoid    clock_off                    PRM( (void); )
  2245. Xulong    clock_secs                    PRM( (void); )
  2246. Xchar    *printlong                    PRM( (ulong); )
  2247. X
  2248. X
  2249. X/* end-of-file */
  2250. END_OF_FILE
  2251.   if test 1982 -ne `wc -c <'typhoon/src/util/util.h'`; then
  2252.     echo shar: \"'typhoon/src/util/util.h'\" unpacked with wrong size!
  2253.   fi
  2254.   # end of 'typhoon/src/util/util.h'
  2255. fi
  2256. echo shar: End of archive 8 \(of 9\).
  2257. cp /dev/null ark8isdone
  2258. MISSING=""
  2259. for I in 1 2 3 4 5 6 7 8 9 ; do
  2260.     if test ! -f ark${I}isdone ; then
  2261.     MISSING="${MISSING} ${I}"
  2262.     fi
  2263. done
  2264. if test "${MISSING}" = "" ; then
  2265.     echo You have unpacked all 9 archives.
  2266.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  2267. else
  2268.     echo You still must unpack the following archives:
  2269.     echo "        " ${MISSING}
  2270. fi
  2271. exit 0
  2272. exit 0 # Just in case...
  2273.