home *** CD-ROM | disk | FTP | other *** search
- /*
-
- Routines for retrieving global variables from Clipper - Summer '87
-
- R. Whitt - 5/28/88
-
- */
-
-
- #include "nandef.h"
- #include "extend.h"
-
-
-
- /* Logical, isXXXX() functions */
-
-
- extern int _altc_on;
- extern int _alternate_on;
- extern int _bell_on;
- extern int _carry_on;
- extern int _century_on;
- extern int _confirm_on;
- extern int _console_on;
- extern int _curs_on;
- extern int _delimiters_on;
- extern int _escape_on;
- extern int _exact_on;
- extern int _exclu_on;
- extern int _fixed_on;
- extern int _intensity_on;
- extern int _print_on;
- extern int _score_on;
- extern int _softseek;
- extern int _unique_on;
- extern int _wrap_on;
-
-
-
- CLIPPER isalt_c()
- {
- _retl( _altc_on );
- }
-
- CLIPPER isalt()
- {
- _retl( _alternate_on );
- }
-
- CLIPPER isbell()
- {
- _retl( _bell_on );
- }
-
- CLIPPER iscarry()
- {
- _retl( _carry_on );
- }
-
- CLIPPER iscent()
- {
- _retl( _century_on );
- }
-
- CLIPPER isconf()
- {
- _retl( _confirm_on );
- }
-
- CLIPPER isconsol()
- {
- _retl( _console_on );
- }
-
- CLIPPER iscursor()
- {
- _retl( _curs_on );
- }
-
- CLIPPER isdelim()
- {
- _retl( _delimiters_on );
- }
-
- CLIPPER isesc()
- {
- _retl( _escape_on );
- }
-
- CLIPPER isexact()
- {
- _retl( _exact_on );
- }
-
- CLIPPER isexclus()
- {
- _retl( _exclu_on );
- }
-
- CLIPPER isfixed()
- {
- _retl( _fixed_on );
- }
-
- CLIPPER isintens()
- {
- _retl( _intensity_on );
- }
-
- CLIPPER isprnton()
- {
- _retl( _print_on );
- }
-
- CLIPPER isscore()
- {
- _retl( _score_on );
- }
-
- CLIPPER issoft()
- {
- _retl( _softseek );
- }
-
- CLIPPER isunique()
- {
- _retl( _unique_on );
- }
-
- CLIPPER iswrap()
- {
- _retl( _wrap_on );
- }