148519Sbostic /*- 2*61397Sbostic * Copyright (c) 1985, 1993 3*61397Sbostic * The Regents of the University of California. All rights reserved. 448519Sbostic * 548519Sbostic * %sccs.include.proprietary.c% 624997Ssam */ 724997Ssam 824997Ssam #ifndef lint 9*61397Sbostic static char sccsid[] = "@(#)linemod.c 8.1 (Berkeley) 06/04/93"; 1048519Sbostic #endif /* not lint */ 1124997Ssam 1225015Ssam #include "imp.h" 1325015Ssam 1425012Ssam /* 1525012Ssam * Hack to set font. 1625012Ssam */ linemod(s)1724997Ssamlinemod(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