1*48519Sbostic /*- 2*48519Sbostic * Copyright (c) 1985 The Regents of the University of California. 3*48519Sbostic * All rights reserved. 4*48519Sbostic * 5*48519Sbostic * %sccs.include.proprietary.c% 624997Ssam */ 724997Ssam 824997Ssam #ifndef lint 9*48519Sbostic static char sccsid[] = "@(#)linemod.c 5.4 (Berkeley) 04/22/91"; 10*48519Sbostic #endif /* not lint */ 1124997Ssam 1225015Ssam #include "imp.h" 1325015Ssam 1425012Ssam /* 1525012Ssam * Hack to set font. 1625012Ssam */ 1724997Ssam linemod(s) 1824997Ssam char *s; 1924997Ssam { 2025012Ssam register char *tit; 2125012Ssam register char *nam; 2225012Ssam int siz = 0; 2325012Ssam nam = s; 2425012Ssam for(tit = "charset="; *tit; ) 2525012Ssam if (*tit++ != *nam++) 2625012Ssam return; 2725012Ssam s = nam; 2825012Ssam while(*nam) 2925012Ssam switch(*nam++) { 3025012Ssam case ',': 3125012Ssam case '\n': 3225012Ssam *--nam = 0; 3325012Ssam } 3425012Ssam siz = atoi(++nam); 3525012Ssam if (siz == 0) { 3625012Ssam while (*--nam >= '0' && *nam <= '9') 3725012Ssam ; 3825012Ssam siz = (atoi(++nam)*4)/3; 3925012Ssam } 4025012Ssam if (siz == 0) 4125012Ssam siz = imPcsize; 4225012Ssam setfont(s, siz); 4324997Ssam } 44