The R Project SVN R

Rev

Rev 89057 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 89057 Rev 89974
Line 1... Line 1...
1 
/*
 1 
/*
2 
 *  R : A Computer Language for Statistical Data Analysis
 2 
 *  R : A Computer Language for Statistical Data Analysis
3 
 *  Copyright (C) 1997--2025  The R Core Team
 3 
 *  Copyright (C) 1997--2026  The R Core Team
4 
 *  Copyright (C) 1995, 1996  Robert Gentleman and Ross Ihaka
 4 
 *  Copyright (C) 1995, 1996  Robert Gentleman and Ross Ihaka
5 
 *
 5 
 *
6 
 *  This program is free software; you can redistribute it and/or modify
 6 
 *  This program is free software; you can redistribute it and/or modify
7 
 *  it under the terms of the GNU General Pulic License as published by
 7 
 *  it under the terms of the GNU General Pulic License as published by
8 
 *  the Free Software Foundation; either version 2 of the License, or
 8 
 *  the Free Software Foundation; either version 2 of the License, or
Line 897... Line 897...
897 
	    if (wcslen(wc) - nspace <= minlen)
 897 
	    if (wcslen(wc) - nspace <= minlen)
898 
		goto donewsc;
 898 
		goto donewsc;
899 
	}
 899 
	}
900 
 
 900 
 
901 
	for (i = WUP; i > 0; i--) {
 901 
	for (i = WUP; i > 0; i--) {
902 
	    if (islower((int)wc[i]) && LASTCHARW(i))
 902 
	    if (iswlower((wint_t)wc[i]) && LASTCHARW(i))
903 
		mywcscpy(wc + i, wc + i + 1);
 903 
		mywcscpy(wc + i, wc + i + 1);
904 
	    if (wcslen(wc) - nspace <= minlen)
 904 
	    if (wcslen(wc) - nspace <= minlen)
905 
		goto donewsc;
 905 
		goto donewsc;
906 
	}
 906 
	}
907 
 
 907 
 
908 
	for (i = WUP; i > 0; i--) {
 908 
	for (i = WUP; i > 0; i--) {
909 
	    if (islower((int)wc[i]) && !FIRSTCHARW(i))
 909 
	    if (iswlower((wint_t)wc[i]) && !FIRSTCHARW(i))
910 
		mywcscpy(wc + i, wc + i + 1);
 910 
		mywcscpy(wc + i, wc + i + 1);
911 
	    if (wcslen(wc) - nspace <= minlen)
 911 
	    if (wcslen(wc) - nspace <= minlen)
912 
		goto donewsc;
 912 
		goto donewsc;
913 
	}
 913 
	}
914 
    }
 914 
    }