home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / DMSERROR.ZIP / EXXTEND.C < prev    next >
Encoding:
C/C++ Source or Header  |  1988-04-23  |  3.3 KB  |  70 lines
  1.   #include "nandef.h"
  2.   #include "extend.h"
  3.  
  4.   extern    int  _print_on;
  5.   extern    int  _exact_on;
  6.   extern    int  _alternate_on;
  7.   extern    int  _deleted_on;
  8.   extern    int  _softseek;
  9.   extern    int  _bell_on;
  10.   extern    int  _confirm_on;
  11.   extern    int  _console_on;
  12.   extern    int  _score_on;
  13.   extern    int  _escape_on;
  14.   extern    int  _century_on;
  15.   extern    int  _wrap_on;
  16.   extern    int  _device_p;
  17.  
  18.   extern    char _path[];
  19.   extern    char _default_drive[];
  20.   extern    int  _fixed_on;
  21.   extern    int  _unique_on;
  22.   extern    int  _exclu_on;
  23.   extern    int  _curs_on;
  24.   extern    int  _decimals;
  25.   extern    int  _margin;
  26.   extern    int  _date_mode;
  27.   extern    int  _delimiters_on;
  28.   extern    int  _intensity_on;
  29.   extern    int  _alt_open;
  30.   extern    int  _osversion;
  31.   extern    byte _ldelim;
  32.   extern    byte _rdelim;
  33.  
  34.   CLIPPER getprint()     { _retl(_print_on);     }  /* .T. = Print on       */
  35.   CLIPPER getexact()     { _retl(_exact_on);     }  /* .T. = Exact on       */
  36.   CLIPPER getalterna()   { _retl(_alternate_on); }  /* .T. = Alt   on       */
  37.   CLIPPER getdeleted()   { _retl(_deleted_on);   }  /* .T. = Del   on       */
  38.   CLIPPER getsoftsee()   { _retl(_softseek);     }  /* .T. = Soft  on       */
  39.   CLIPPER getbell()      { _retl(_bell_on);      }  /* .T. = Bell  on       */
  40.   CLIPPER getconfirm()   { _retl(_confirm_on);   }  /* .T. = Conf  on       */
  41.   CLIPPER getconsole()   { _retl(_console_on);   }  /* .T. = Cons  on       */
  42.   CLIPPER getscore()     { _retl(_score_on);     }  /* .T. = Score on       */
  43.   CLIPPER getescape()    { _retl(_escape_on);    }  /* .T. = Esc   on       */
  44.   CLIPPER getcentury()   { _retl(_century_on);   }  /* .T. = Cent  on       */
  45.   CLIPPER getwrap()      { _retl(_wrap_on);      }  /* .T. = Wrap  on       */
  46.   CLIPPER getdevice_()   { _retl(_device_p);     }  /* .T. = Dev   Prn      */
  47.  
  48.   CLIPPER getpath()      { _retc(_path);         }  /* Current PATH         */
  49.   CLIPPER getdefault()   { _retc(_default_drive);}  /* .T. = Default Drive  */
  50.   CLIPPER getfixed()     { _retl(_fixed_on);     }  /* .T. = Fixed on       */
  51.   CLIPPER getunique()    { _retl(_unique_on);    }  /* .T. = Unique on      */
  52.   CLIPPER getexclu()     { _retl(_exclu_on);     }  /* .T. = Exclusive on   */
  53.   CLIPPER getcurs()      { _retl(_curs_on);      }  /* .T. = Cursor on      */
  54.   CLIPPER getdecimal()   { _retni(_decimals);    }  /*     = Decimals       */
  55.   CLIPPER getmargin()    { _retni(_margin);      }  /*     = Margin         */
  56.   CLIPPER getdate()      { _retni(_date_mode);   }  /*     = Date Mode      */
  57.   CLIPPER getaltopen()   { _retl(_alt_open);     }  /* .T. = Alt File Open  */
  58.   CLIPPER getosvers()    { _retni(_osversion);   }  /*     = DOS Version    */
  59.   CLIPPER getdelim()     { _retl(_delimiters_on);}  /* .T. = Delimiters On  */
  60.   CLIPPER getintens()    { _retl(_intensity_on); }  /* .T. = Intensity On   */
  61.   CLIPPER getldelim()    { _retni(_ldelim);      }  /* retn left delimiter  */
  62.   CLIPPER getrdelim()    { _retni(_rdelim);      }  /* retn right delimiter */
  63.   
  64.   CLIPPER setdecimal()
  65.   {
  66.     _retni(_decimals);
  67.     _decimals = _parni(1);
  68.     return;
  69.   }
  70.