home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a120 / 1.ddi / API / LIBVER2.C < prev    next >
Encoding:
Text File  |  1992-04-23  |  1.1 KB  |  33 lines
  1. /*------------------------------------------------------------------*/
  2. /* LIBVER2.C */                                                     */
  3. /*------------------------------------------------------------------*/
  4. /* API ▒`  ªí : lib_ver2()                                          */
  5. /* API ¿τ╝╞└] : libver2.plb                                         */
  6. /* ⌐IÑsñΦªí   : SET LIBRARY TO LIBVER2                              */
  7. /*              ? LIB_VER2()                                        */
  8. /*------------------------------------------------------------------*/
  9. #include <pro_ext.h>
  10. void FAR lib_ver2(ParamBlk FAR *parm)
  11. {
  12.    unsigned int memneed = 12 + 1024; /* ⌐╥╗▌ñº░∩┼|¬┼╢í */
  13.    char FAR *libver;
  14.    if (_StackAvail() < memneed)      /* ░O ╛╨ ┼Θ ñú ¿¼ */
  15.        _RetLogical(0);
  16.    else
  17.       {
  18.         libver = _Alloca(memneed - 1024);
  19.         _StrCpy(libver, (char FAR *)"Version 2.0");
  20.         _RetChar(libver);
  21.       }
  22.    return;
  23. }
  24.  
  25. FoxInfo myFoxInfo[] = {
  26.         {"LIB_VER2",lib_ver2,0,""}
  27. };
  28. FoxTable _FoxTable = {
  29.          (FoxTable FAR *)0,
  30.          sizeof (myFoxInfo) / sizeof (FoxInfo),
  31.          myFoxInfo
  32. };
  33.