1 /* 2 * CDDL HEADER START 3 * 4 * The contents of this file are subject to the terms of the 5 * Common Development and Distribution License, Version 1.0 only 6 * (the "License"). You may not use this file except in compliance 7 * with the License. 8 * 9 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 10 * or http://www.opensolaris.org/os/licensing. 11 * See the License for the specific language governing permissions 12 * and limitations under the License. 13 * 14 * When distributing Covered Code, include this CDDL HEADER in each 15 * file and include the License file at usr/src/OPENSOLARIS.LICENSE. 16 * If applicable, add the following below this CDDL HEADER, with the 17 * fields enclosed by brackets "[]" replaced with your own identifying 18 * information: Portions Copyright [yyyy] [name of copyright owner] 19 * 20 * CDDL HEADER END 21 */ 22 /* 23 * Copyright 1997 Sun Microsystems, Inc. All rights reserved. 24 * Use is subject to license terms. 25 */ 26 27 /* Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989 AT&T */ 28 /* All Rights Reserved */ 29 30 /* Copyright (c) 1979 Regents of the University of California */ 31 32 #pragma ident "%Z%%M% %I% %E% SMI" 33 34 /*LINTLIBRARY*/ 35 36 #include <sys/types.h> 37 #include <string.h> 38 #include <sys/ttychars.h> 39 40 #if 0 41 static char 42 sccsid[] = "@(#)tgoto.c 1.5 88/02/08 SMI"; /* from UCB 4.1 6/27/83 */ 43 #endif 44 45 #define MAXRETURNSIZE 64 46 47 char *UP; 48 char *BC; 49 50 /* 51 * Routine to perform cursor addressing. 52 * CM is a string containing printf type escapes to allow 53 * cursor addressing. We start out ready to print the destination 54 * line, and switch each time we print row or column. 55 * The following escapes are defined for substituting row/column: 56 * 57 * %d as in printf 58 * %2 like %2d 59 * %3 like %3d 60 * %. gives %c hacking special case characters 61 * %+x like %c but adding x first 62 * 63 * The codes below affect the state but don't use up a value. 64 * 65 * %>xy if value > x add y 66 * %r reverses row/column 67 * %i increments row/column (for one origin indexing) 68 * %% gives % 69 * %B BCD (2 decimal digits encoded in one byte) 70 * %D Delta Data (backwards bcd) 71 * 72 * all other characters are ``self-inserting''. 73 */ 74 75 char * 76 tgoto(char *CM, int destcol, int destline) 77 { 78 static char result[MAXRETURNSIZE]; 79 static char added[10]; 80 char *cp = CM; 81 char *dp = result; 82 int c; 83 int oncol = 0; 84 int which = destline; 85 86 if (cp == 0) { 87 toohard: 88 /* 89 * ``We don't do that under BOZO's big top'' 90 */ 91 return ("OOPS"); 92 } 93 added[0] = 0; 94 while ((c = *cp++) != 0) { 95 if (c != '%') { 96 *dp++ = (char) c; 97 continue; 98 } 99 switch (c = *cp++) { 100 101 #ifdef CM_N 102 case 'n': 103 destcol ^= 0140; 104 destline ^= 0140; 105 goto setwhich; 106 #endif 107 108 case 'd': 109 if (which < 10) 110 goto one; 111 if (which < 100) 112 goto two; 113 /*FALLTHRU*/ 114 115 case '3': 116 *dp++ = (which / 100) | '0'; 117 which %= 100; 118 /*FALLTHRU*/ 119 120 case '2': 121 two: 122 *dp++ = which / 10 | '0'; 123 one: 124 *dp++ = which % 10 | '0'; 125 swap: 126 oncol = 1 - oncol; 127 setwhich: 128 which = oncol ? destcol : destline; 129 continue; 130 131 #ifdef CM_GT 132 case '>': 133 if (which > *cp++) 134 which += *cp++; 135 else 136 cp++; 137 continue; 138 #endif 139 140 case '+': 141 which += *cp++; 142 /*FALLTHRU*/ 143 144 case '.': 145 /* 146 * This code is worth scratching your head at for a 147 * while. The idea is that various weird things can 148 * happen to nulls, EOT's, tabs, and newlines by the 149 * tty driver, arpanet, and so on, so we don't send 150 * them if we can help it. 151 * 152 * Tab is taken out to get Ann Arbors to work, otherwise 153 * when they go to column 9 we increment which is wrong 154 * because bcd isn't continuous. We should take out 155 * the rest too, or run the thing through more than 156 * once until it doesn't make any of these, but that 157 * would make termlib (and hence pdp-11 ex) bigger, 158 * and also somewhat slower. This requires all 159 * programs which use termlib to stty tabs so they 160 * don't get expanded. They should do this anyway 161 * because some terminals use ^I for other things, 162 * like nondestructive space. 163 */ 164 if (which == 0 || which == CTRL('d') || which == '\n') { 165 if (oncol || UP) 166 /* Assumption: backspace works */ 167 /* 168 * Loop needed because newline happens 169 * to be the successor of tab. 170 */ 171 do { 172 (void) strcat(added, oncol ? 173 (BC ? BC : "\b") : UP); 174 which++; 175 } while (which == '\n'); 176 } 177 *dp++ = (char) which; 178 goto swap; 179 180 case 'r': 181 oncol = 1; 182 goto setwhich; 183 184 case 'i': 185 destcol++; 186 destline++; 187 which++; 188 continue; 189 190 case '%': 191 *dp++ = (char) c; 192 continue; 193 194 #ifdef CM_B 195 case 'B': 196 which = (which/10 << 4) + which%10; 197 continue; 198 #endif 199 200 #ifdef CM_D 201 case 'D': 202 which = which - 2 * (which%16); 203 continue; 204 #endif 205 206 default: 207 goto toohard; 208 } 209 } 210 (void) strcpy(dp, added); 211 return (result); 212 } 213