tscroll.c revision 1.3.2.2
1 1.3.2.2 cgd /*- 2 1.3.2.2 cgd * Copyright (c) 1992, 1993, 1994 3 1.3.2.2 cgd * The Regents of the University of California. All rights reserved. 4 1.3.2.2 cgd * 5 1.3.2.2 cgd * Redistribution and use in source and binary forms, with or without 6 1.3.2.2 cgd * modification, are permitted provided that the following conditions 7 1.3.2.2 cgd * are met: 8 1.3.2.2 cgd * 1. Redistributions of source code must retain the above copyright 9 1.3.2.2 cgd * notice, this list of conditions and the following disclaimer. 10 1.3.2.2 cgd * 2. Redistributions in binary form must reproduce the above copyright 11 1.3.2.2 cgd * notice, this list of conditions and the following disclaimer in the 12 1.3.2.2 cgd * documentation and/or other materials provided with the distribution. 13 1.3.2.2 cgd * 3. All advertising materials mentioning features or use of this software 14 1.3.2.2 cgd * must display the following acknowledgement: 15 1.3.2.2 cgd * This product includes software developed by the University of 16 1.3.2.2 cgd * California, Berkeley and its contributors. 17 1.3.2.2 cgd * 4. Neither the name of the University nor the names of its contributors 18 1.3.2.2 cgd * may be used to endorse or promote products derived from this software 19 1.3.2.2 cgd * without specific prior written permission. 20 1.3.2.2 cgd * 21 1.3.2.2 cgd * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 22 1.3.2.2 cgd * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 23 1.3.2.2 cgd * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 24 1.3.2.2 cgd * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 25 1.3.2.2 cgd * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 26 1.3.2.2 cgd * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 27 1.3.2.2 cgd * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 28 1.3.2.2 cgd * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 29 1.3.2.2 cgd * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 30 1.3.2.2 cgd * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 31 1.3.2.2 cgd * SUCH DAMAGE. 32 1.3.2.2 cgd */ 33 1.3.2.2 cgd 34 1.3.2.2 cgd #ifndef lint 35 1.3.2.2 cgd static char sccsid[] = "@(#)tscroll.c 8.4 (Berkeley) 7/27/94"; 36 1.3.2.2 cgd #endif /* not lint */ 37 1.3.2.2 cgd 38 1.3.2.2 cgd #include "curses.h" 39 1.3.2.2 cgd 40 1.3.2.2 cgd #define MAXRETURNSIZE 64 41 1.3.2.2 cgd 42 1.3.2.2 cgd /* 43 1.3.2.2 cgd * Routine to perform scrolling. Derived from tgoto.c in tercamp(3) 44 1.3.2.2 cgd * library. Cap is a string containing printf type escapes to allow 45 1.3.2.2 cgd * scrolling. The following escapes are defined for substituting n: 46 1.3.2.2 cgd * 47 1.3.2.2 cgd * %d as in printf 48 1.3.2.2 cgd * %2 like %2d 49 1.3.2.2 cgd * %3 like %3d 50 1.3.2.2 cgd * %. gives %c hacking special case characters 51 1.3.2.2 cgd * %+x like %c but adding x first 52 1.3.2.2 cgd * 53 1.3.2.2 cgd * The codes below affect the state but don't use up a value. 54 1.3.2.2 cgd * 55 1.3.2.2 cgd * %>xy if value > x add y 56 1.3.2.2 cgd * %i increments n 57 1.3.2.2 cgd * %% gives % 58 1.3.2.2 cgd * %B BCD (2 decimal digits encoded in one byte) 59 1.3.2.2 cgd * %D Delta Data (backwards bcd) 60 1.3.2.2 cgd * 61 1.3.2.2 cgd * all other characters are ``self-inserting''. 62 1.3.2.2 cgd */ 63 1.3.2.2 cgd char * 64 1.3.2.2 cgd __tscroll(cap, n1, n2) 65 1.3.2.2 cgd const char *cap; 66 1.3.2.2 cgd int n1, n2; 67 1.3.2.2 cgd { 68 1.3.2.2 cgd static char result[MAXRETURNSIZE]; 69 1.3.2.2 cgd int c, n; 70 1.3.2.2 cgd char *dp; 71 1.3.2.2 cgd 72 1.3.2.2 cgd if (cap == NULL) 73 1.3.2.2 cgd goto err; 74 1.3.2.2 cgd for (n = n1, dp = result; (c = *cap++) != '\0';) { 75 1.3.2.2 cgd if (c != '%') { 76 1.3.2.2 cgd *dp++ = c; 77 1.3.2.2 cgd continue; 78 1.3.2.2 cgd } 79 1.3.2.2 cgd switch (c = *cap++) { 80 1.3.2.2 cgd case 'n': 81 1.3.2.2 cgd n ^= 0140; 82 1.3.2.2 cgd continue; 83 1.3.2.2 cgd case 'd': 84 1.3.2.2 cgd if (n < 10) 85 1.3.2.2 cgd goto one; 86 1.3.2.2 cgd if (n < 100) 87 1.3.2.2 cgd goto two; 88 1.3.2.2 cgd /* FALLTHROUGH */ 89 1.3.2.2 cgd case '3': 90 1.3.2.2 cgd *dp++ = (n / 100) | '0'; 91 1.3.2.2 cgd n %= 100; 92 1.3.2.2 cgd /* FALLTHROUGH */ 93 1.3.2.2 cgd case '2': 94 1.3.2.2 cgd two: *dp++ = n / 10 | '0'; 95 1.3.2.2 cgd one: *dp++ = n % 10 | '0'; 96 1.3.2.2 cgd n = n2; 97 1.3.2.2 cgd continue; 98 1.3.2.2 cgd case '>': 99 1.3.2.2 cgd if (n > *cap++) 100 1.3.2.2 cgd n += *cap++; 101 1.3.2.2 cgd else 102 1.3.2.2 cgd cap++; 103 1.3.2.2 cgd continue; 104 1.3.2.2 cgd case '+': 105 1.3.2.2 cgd n += *cap++; 106 1.3.2.2 cgd /* FALLTHROUGH */ 107 1.3.2.2 cgd case '.': 108 1.3.2.2 cgd *dp++ = n; 109 1.3.2.2 cgd continue; 110 1.3.2.2 cgd case 'i': 111 1.3.2.2 cgd n++; 112 1.3.2.2 cgd continue; 113 1.3.2.2 cgd case '%': 114 1.3.2.2 cgd *dp++ = c; 115 1.3.2.2 cgd continue; 116 1.3.2.2 cgd case 'B': 117 1.3.2.2 cgd n = (n / 10 << 4) + n % 10; 118 1.3.2.2 cgd continue; 119 1.3.2.2 cgd case 'D': 120 1.3.2.2 cgd n = n - 2 * (n % 16); 121 1.3.2.2 cgd continue; 122 1.3.2.2 cgd /* 123 1.3.2.2 cgd * XXX 124 1.3.2.2 cgd * System V terminfo files have lots of extra gunk. 125 1.3.2.2 cgd * The only one we've seen in scrolling strings is 126 1.3.2.2 cgd * %pN, and it seems to work okay if we ignore it. 127 1.3.2.2 cgd */ 128 1.3.2.2 cgd case 'p': 129 1.3.2.2 cgd ++cap; 130 1.3.2.2 cgd continue; 131 1.3.2.2 cgd default: 132 1.3.2.2 cgd goto err; 133 1.3.2.2 cgd } 134 1.3.2.2 cgd } 135 1.3.2.2 cgd *dp = '\0'; 136 1.3.2.2 cgd return (result); 137 1.3.2.2 cgd 138 1.3.2.2 cgd err: return("curses: __tscroll failed"); 139 1.3.2.2 cgd } 140
Indexes created Mon Sep 29 21:09:56 GMT 2025