home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / BBS_MISC / GVDEV022.ZIP / GVDEV022.EXE / GVDEV.DOC next >
Text File  |  1994-04-10  |  6KB  |  185 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15.                       GrapeVine BBS Developer's Kit v0.22
  16.                                Developer's Guide
  17.  
  18.  
  19.                           (c) 1992-1994 by Mike Hindle
  20.                               All rights reserved
  21.  
  22.  
  23.  
  24.                                   Mike Hindle
  25.                                1256 Delta Avenue
  26.                                   Kamloops, BC
  27.                                     V2B 3Y5
  28.                                      CANADA
  29.  
  30.                                Fidonet: 1:353/700
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.                                  - April 1994 -
  39.  
  40.  
  41.  
  42.               GrapeVine BBS Developer's Kit                     Page i
  43.  
  44.  
  45.         TABLE OF CONTENTS
  46.         -----------------
  47.  
  48.         Developer's Kit License Statement ............................ 1
  49.                 Permitted Usage ...................................... 1
  50.                 Disclaimer Of Warranty ............................... 1
  51.                 Governing Law ........................................ 1
  52.         Archive File Listing ......................................... 2
  53.         Julian Dates ................................................. 3
  54.  
  55.  
  56.  
  57.               GrapeVine BBS Developer's Kit                     Page 1
  58.  
  59.  
  60.         DEVELOPER'S KIT LICENSE STATEMENT
  61.         ---------------------------------
  62.  
  63.         Notice: Use of the GrapeVine BBS Developer's Kit  indicates  your
  64.         acceptance  of  these  terms  and conditions. If you do not agree
  65.         with them, please DO NOT use the product.
  66.  
  67.  
  68.         Permitted Usage
  69.         ---------------
  70.  
  71.         You are permitted to copy the GrapeVine Developer's  Kit  freely,
  72.         provided that all files pertaining to the product are included in
  73.         the copy.  You are also permitted to distribute  the  product  to
  74.         others  provided  that  no fee is charged other than for supplies
  75.         and expenses.  This fee must not at any time exceed $2.00  (taxes
  76.         not included).
  77.  
  78.         Any   third-party   products  created  using  the  GrapeVine  BBS
  79.         Developer's Kit MUST bear a copyright notice. It is also required
  80.         that you give visible credit to the GrapeVine BBS Developer's Kit
  81.         and its copyright protection.
  82.  
  83.  
  84.         Disclaimer Of  Warranty
  85.         -----------------------
  86.  
  87.         The software and documentation  included  in  the  GrapeVine  BBS
  88.         Developer's  Kit are provided "as is" and without warranty of any
  89.         kind.   Mike  Hindle  specifically  disclaims   all   warranties,
  90.         expressed  or  implied,  including  but  not  limited  to implied
  91.         warranties  of  merchantability  and  fitness  for  a  particular
  92.         purpose.  In no event shall Mike Hindle be liable for any loss of
  93.         profit or any other damage, including but not limited to special,
  94.         incidental,  consequential, commercial or other damages resulting
  95.         from any defect in the software or documentation. If the software
  96.         or  documentation proves to be defective in any way, you, and not
  97.         Mike Hindle, assume  the  cost  of  any  necessary  servicing  or
  98.         repair.
  99.  
  100.         Mike Hindle does not extend any warranty whatsoever to any third-
  101.         party products created using the GrapeVine BBS Developer's Kit.
  102.  
  103.  
  104.         Governing Law
  105.         -------------
  106.  
  107.         This statement shall be construed, interpreted, and  governed  by
  108.         the laws of the Province of British Columbia, Canada.
  109.  
  110.  
  111.  
  112.               GrapeVine BBS Developer's Kit                     Page 2
  113.  
  114.  
  115.         ARCHIVE FILE LISTING
  116.         --------------------
  117.  
  118.         The following files are included in the GrapeVine BBS Developer's
  119.         Kit distribution archive:
  120.  
  121.                 GVDEV.DOC       This documentation file
  122.                 GVUCONST.PAS    Constant declarations
  123.                 GVUDEF.PAS      Record structures
  124.  
  125.  
  126.  
  127.  
  128.               GrapeVine BBS Developer's Kit                     Page 3
  129.  
  130.  
  131.         JULIAN DATES
  132.         ------------
  133.  
  134.         GrapeVine BBS makes rather extensive use of Julian dates.   There
  135.         are  several  methods of computing Julian dates and to save you a
  136.         lot of grief, the exact code which GrapeVine BBS  uses  has  been
  137.         included here.
  138.  
  139.         The  following  source code extracts are from the totDate unit in
  140.         TechnoJock Software Inc.'s Object Toolkit.  This source  code  is
  141.         copyrighted (1991) by TechnoJock Software, Inc.  and is reprinted
  142.         with permission.
  143.  
  144.  
  145.                 function GregtoJul(M,D,Y:longint):longint;
  146.                 {}
  147.                 var Factor: integer;
  148.                 begin
  149.                   if M < 3 then
  150.                      Factor := -1
  151.                   else
  152.                      Factor := 0;
  153.                      GregtoJul :=  (1461*(Factor+4800+Y) div 4)
  154.                                + ((M-2-(Factor*12))*367) div 12
  155.                                - (3*((Y+4900+Factor) div 100) div 4)
  156.                                + D - 32075;
  157.                 end; {GregtoJul}
  158.  
  159.  
  160.                 procedure JultoGreg(Jul:longint; var M,D,Y: longint);
  161.                 {}
  162.                 var U,V,W,X: longint;
  163.                 begin
  164.                   inc(Jul,68569);
  165.                   W := (Jul*4) div 146097;
  166.                   dec(Jul,((146097*W)+3) div 4);
  167.                   X := 4000*succ(Jul) div 1461001;
  168.                   dec(Jul,((1461*X) div 4) -31);
  169.                   V := 80*Jul div 2447;
  170.                   U := V div 11;
  171.                   D := Jul -(2447*V div 80);
  172.                   M := V + 2 -(U*12);
  173.                   Y := X + U + (W-49)*100;
  174.                 end; {JultoGreg}
  175.  
  176.  
  177.         For  further  information  about   TechnoJock   Software   Inc.'s
  178.         programming tools, contact TechnoJock Software at:
  179.  
  180.                 TechnoJock Software, Inc.
  181.                 PO Box 820927
  182.                 Houston, TX 77282
  183.                 Tel: (713) 493-6354
  184.                 Fax: (713) 493-5872
  185.