Mercurial > hg > xemacs-beta

comparison src/mule-wnnfns.c @ 1650:34abfb24e891

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-08-28 15:44:04 by james] Fix the C++ build, with many module-specific fixes.
author james
date Thu, 28 Aug 2003 15:44:30 +0000
parents 804517e16990
children ecf1ebac70d8
comparison
equal deleted inserted replaced
1649:9afdad50eaf7 1650:34abfb24e891
359 case -1: 359 case -1:
360 default: 360 default:
361 return Qnil; 361 return Qnil;
362 } 362 }
363 size = XSTRING_LENGTH (lname) > 1024 ? 1026 : XSTRING_LENGTH (lname) + 2; 363 size = XSTRING_LENGTH (lname) > 1024 ? 1026 : XSTRING_LENGTH (lname) + 2;
364 envname = ALLOCA (size); 364 envname = (char *) ALLOCA (size);
365 strncpy (envname, (char *) XSTRING_DATA (lname), size-2); 365 strncpy (envname, (char *) XSTRING_DATA (lname), size-2);
366 envname[size-2] = '\0'; 366 envname[size-2] = '\0';
367 if (NILP (hname)) hostname = ""; 367 if (NILP (hname)) hostname = "";
368 else 368 else
369 { 369 {
370 CHECK_STRING (hname); 370 CHECK_STRING (hname);
371 size = XSTRING_LENGTH(hname) > 1024 ? 1025 : XSTRING_LENGTH(hname) + 1; 371 size = XSTRING_LENGTH(hname) > 1024 ? 1025 : XSTRING_LENGTH(hname) + 1;
372 372
373 hostname = ALLOCA (size); 373 hostname = (char *) ALLOCA (size);
374 strncpy (hostname, (char *) XSTRING_DATA (hname), size-1); 374 strncpy (hostname, (char *) XSTRING_DATA (hname), size-1);
375 hostname[size-1] = '\0'; 375 hostname[size-1] = '\0';
376 } 376 }
377 CHECK_STRING (lname); 377 CHECK_STRING (lname);
378 /* 97/4/16 jhod@po.iijnet.or.jp 378 /* 97/4/16 jhod@po.iijnet.or.jp