1 /* $Id: lio.h,v 1.3 2008/03/01 13:44:12 ragge Exp $ */ 2 /* 3 * Copyright(C) Caldera International Inc. 2001-2002. All rights reserved. 4 * 5 * Redistribution and use in source and binary forms, with or without 6 * modification, are permitted provided that the following conditions 7 * are met: 8 * 9 * Redistributions of source code and documentation must retain the above 10 * copyright notice, this list of conditions and the following disclaimer. 11 * Redistributions in binary form must reproduce the above copyright 12 * notice, this list of conditionsand the following disclaimer in the 13 * documentation and/or other materials provided with the distribution. 14 * All advertising materials mentioning features or use of this software 15 * must display the following acknowledgement: 16 * This product includes software developed or owned by Caldera 17 * International, Inc. 18 * Neither the name of Caldera International, Inc. nor the names of other 19 * contributors may be used to endorse or promote products derived from 20 * this software without specific prior written permission. 21 * 22 * USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA 23 * INTERNATIONAL, INC. AND CONTRIBUTORS ``AS IS'' AND ANY EXPRESS OR 24 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 25 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 26 * DISCLAIMED. IN NO EVENT SHALL CALDERA INTERNATIONAL, INC. BE LIABLE 27 * FOR ANY DIRECT, INDIRECT INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 28 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 29 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 30 * HOWEVER CAUSED AND ON ANY THEORY OFLIABILITY, WHETHER IN CONTRACT, 31 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING 32 * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 33 * POSSIBILITY OF SUCH DAMAGE. 34 */ 35 /* copy of ftypes from the compiler */ 36 /* variable types 37 * numeric assumptions: 38 * int < reals < complexes 39 * TYDREAL-TYREAL = TYDCOMPLEX-TYCOMPLEX 40 */ 41 42 #define TYUNKNOWN 0 43 #define TYADDR 1 44 #define TYSHORT 2 45 #define TYLONG 3 46 #define TYREAL 4 47 #define TYDREAL 5 48 #define TYCOMPLEX 6 49 #define TYDCOMPLEX 7 50 #define TYLOGICAL 8 51 #define TYCHAR 9 52 #define TYSUBR 10 53 #define TYERROR 11 54 55 #define NTYPES (TYERROR+1) 56 57 #define LINTW 12 58 #define LINE 80 59 #define LLOGW 2 60 #define LLOW 1.0 61 #define LHIGH 10.0 62 #define LFW 12 63 #define LFD 8 64 #define LEW 16 65 #define LED 9 66 #define LEE 2 67 68 typedef union 69 { short flshort; 70 ftnint flint; 71 float flreal; 72 double fldouble; 73 } flex; 74 extern int scale; 75 extern int (*lioproc)(ftnint *number,flex *ptr,ftnlen len,ftnint type); 76 int do_lio(ftnint *type,ftnint *number,flex *ptr,ftnlen len); 77 78