home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a120 / 1.ddi / API / LIBVER1.C < prev    next >
Encoding:
C/C++ Source or Header  |  1992-04-23  |  1.0 KB  |  31 lines
  1. /*------------------------------------------------------------------*/
  2. /* LIBVER1.C                                                        */
  3. /*------------------------------------------------------------------*/
  4. /* API ▒`  ªí : lib_ver1()                                          */
  5. /* API ¿τ╝╞└] : libver1.plb                                         */
  6. /* ⌐IÑsñΦªí   : SET LIBRARY TO LIBVER1                              */
  7. /*              ? LIB_VER1()                                        */
  8. /*------------------------------------------------------------------*/
  9. #include <pro_ext.h>
  10. void FAR lib_ver1(ParamBlk FAR *parm)
  11. {
  12.    char FAR *libver;
  13.    if ((libver = _Alloca(12)) == 0) /*  Ñó ▒╤ */
  14.        _RetLogical(0);
  15.    else
  16.       {
  17.         _StrCpy(libver, (char FAR *)"Version 2.0");
  18.         _RetChar(libver);
  19.       }
  20.    return;
  21. }
  22.  
  23. FoxInfo myFoxInfo[] = {
  24.         {"LIB_VER1",lib_ver1,0,""}
  25. };
  26. FoxTable _FoxTable = {
  27.          (FoxTable FAR *)0,
  28.          sizeof (myFoxInfo) / sizeof (FoxInfo),
  29.          myFoxInfo
  30. };
  31.