00001 00002 /* 00003 * THIS FILE IS UNDER RCS - DO NOT MODIFY UNLESS YOU HAVE 00004 * CHECKED IT OUT USING THE COMMAND CHECKOUT. 00005 * 00006 * $Id: kom_8h-source.html 2161 2006-05-19 16:55:03Z paulf $ 00007 * 00008 * Revision history: 00009 * $Log$ 00009 * Revision 1.1 2006/05/19 16:55:02 paulf 00009 * first inclusion 00009 * 00010 * Revision 1.1 2000/02/14 20:05:54 lucky 00011 * Initial revision 00012 * 00013 * 00014 */ 00015 00016 /* 00017 * kom.h: include file for kom.c 00018 */ 00019 00020 #ifndef KOM_H 00021 #define KOM_H 00022 00023 /* Prototypes for functions in kom.c 00024 ***********************************/ 00025 int k_open( char * ); /* open new file for k-system input */ 00026 int k_close( void ); /* close current file */ 00027 char *k_get( void ); /* return pointer to current command */ 00028 void k_dump( void ); /* print last card read from file */ 00029 int k_err( void ); /* return last error code and clear */ 00030 int k_put( char * ); /* insert command line to be parsed */ 00031 int k_rd( void ); /* read a line from file into buffer */ 00032 int k_its( char * ); /* compare string of last token to */ 00033 /* given string; 1=match 0=no match */ 00034 char *k_com( void ); /* returns last line read from file */ 00035 char *k_str( void ); /* return next token as pntr to string */ 00036 double k_val( void ); /* return next token as a double real */ 00037 int k_int( void ); /* return next token as an integer */ 00038 long k_long( void ); /* return next token as a long integer */ 00039 00040 #endif