Programms from Kernighan and Ritchie

[SomeStrangeGuy]

ex.2.2. Напишите цикл, эквивалентный приведенному выше for-циклу, не пользуясь операторами && и ||.

#include <stdio.h>

int lim = 10;

int main()
{
int i, c;
char s[lim];

i = 0;
while (i < lim-1) {
c = getchar();
if (c == EOF)
break;
if (c == '\n')
break;
s[i++] = c;
}
s[i] = '\0';

printf("%s", s);

return 0;
}

ex.2.3. Напишите функцию htoi(s), которая преобразует последовательность шестнадцатеричных цифр, начинающуюся с 0x или 0X, в соответствующее целое. Шестнадцатеричными цифрами являются символы 0...9, a...f, А...F.

#include <stdio.h>

int htoi(char m[]);
int lower(int c);
int hex_a_f_to_int(int c);

int main()
{
int n;
char s[] = "0xb1A\0";

n = htoi(s);
printf("%x", n);

return 0;
}

/* htoi: преобразование hex в целое */
int htoi(char s[])
{
int i = 0;
int answer = 0;
int valid = 1;
int hex_a_f;

if(s[i] == '0') {
++i;
if(s[i] == 'x' || s[i] == 'X') {
++i;
}
else
valid = 0;
}
else
valid = 0;

while(valid && s[i] != '\0') {
answer = answer * 16;
if(s[i] >= '0' && s[i] <= '9') {
answer = answer + (s[i] - '0');
}
else {
s[i] = lower(s[i]);
hex_a_f = hex_a_f_to_int(s[i]);
if (hex_a_f == 0) {
valid = 0;
}
else {
answer = answer + hex_a_f;
}
}
++i;
}

if(!valid) {
printf("The string isn't valid hex numbern");
answer = 0;
}

return answer;
}

/* lower: преобразование прописных c в строчные, только для ASCII */
int lower(int c)
{
if (c >= 'A' && c <='Z')
return c +'a'-'A';
else
return c;
}

/* hex_a_f_to_int: преобразование a-f в соответствующие целые числа */
int hex_a_f_to_int(int c)
{
char hex_a_f[] = "abcdef";
int i;
int answer = 0;

for(i = 0; answer == 0 && hex_a_f[i] != '\0'; i++) {
if(hex_a_f[i] == c) {
answer = 10 + i;
}
}

return answer;
}

ex.2.4. Напишите версию функции squeeze(s1,s2), которая удаляет из s1 все символы, встречающиеся в строке s2.

#include <stdio.h>

int len;

void squeeze(char s1[], char s2[]);
int strlen(char s[]);

int main()
{
char s1[] = "BHiartpphdayy\0";
printf("s1 = %s\n", s1);

char s2[] = "Happy\0";
printf("s2 = %s\n", s2);
len = strlen(s2);

squeeze(s1, s2);
printf("new s1 = %s\n", s1);

return 0;
}

/* squeeze: удаляет все символы s2 из s1*/
void squeeze(char s1[], char s2[])
{
int i, j, k;
for (i = j = 0; s1[i] != '\0'; i++) {
for (k = 0; s2[k] != s1[i] && s2[k] != '\0'; k++);
if (k == len)
s1[j++] = s1[i];
}
s1[j] = '\0';
}

/* strlen: возвращает длину строки s */
int strlen(char s[])
{
int i;
i = 0;
while (s[i] != '\0')
++i;
return i;
}

ex.2.5. Напишите функцию any(s1,s2), которая возвращает либо ту позицию в s1, где стоит первый символ, совпавший с любым из символов в s2, либо -1 (если ни один символ из s1 не совпадает с символами из s2). (Стандартная библиотечная функция strpbrk делает то же самое, но выдает не номер позиции символа, а указатель на символ.)

#include <stdio.h>

int any(char s1[], char s2[]);
int strlen(char s[]);

int main()
{
char s1[] = "test string\0";
printf("s1 = %s\n\n", s1);
char s2[] = "ring\0";
printf("s2 = %s\n", s2);
printf("position of first occurrence = %d\n", any(s1, s2));

return 0;
}

/* any: возвращает индекс первого вхождения символа из s2 в s1*/
int any(char s1[], char s2[])
{
int i, j, k;
int len = strlen(s1);
int first = len;

for (i = j = 0; s1[i] != '\0'; i++)
for (k = 0; s2[k] != '\0'; k++)
if (s2[k] == s1[i] && i < first)
first = i;
if (first == len)
first = -1;

return first;
}

ex.2.6. Напишите функцию setbits(x, p, n, y), возвращающую значение x, в котором n битов, начиная с p-й позиции, заменены на n правых разрядов из y (остальные биты не изменяются).

#include <stdio.h>

unsigned setbits(unsigned x, int p, int n, unsigned y);
void printfbit(unsigned n);

int main()
{
printf("76543210\n\n");

unsigned c1 = 'f';
printfbit(c1);

unsigned c2 = 'z';
printfbit(c2);

printfbit(setbits(c1, 5, 3, c2));

return 0;
}

/* setbits: x получает n правых бит из y, начиная с p-й позиции */
unsigned setbits(unsigned x, int p, int n, unsigned y)
{
return ( (~0 << (p+1)) & x ) | ( ~(~0 << (p+1-n)) & x ) | \\
(~(~0 << n) & y) << (p+1-n);
}

ex.2.7. Напишите функцию invert(x, p, n), возвращающую значение x с инвертированными n битами, начиная с позиции p (остальные биты не изменяются).

#include <stdio.h>

unsigned invert(unsigned x, int p, int n);
void printfbit(unsigned n);

int main()
{
printf("76543210\n\n");

unsigned c = 'f';
printfbit(c);

printfbit(invert(c, 5, 3));

return 0;
}

/* invert: инвертирует n бит из x, начиная с p-й позиции */
unsigned invert(unsigned x, int p, int n)
{
return ( ((~x >> (p+1-n)) & ~(~0 << n)) << (p+1-n) ) | \\
(~( ((~0 >> (p+1-n)) & ~(~0 << n)) << (p+1-n) ) & x);
}

ex.2.8. Напишите функцию rightrot (x, n), которая циклически сдвигает x вправо на n разрядов.

#include <stdio.h>

unsigned rightrot(unsigned x, int n);
void printfbit(unsigned n);

int main()
{
printf("76543210\n\n");

unsigned c = 'f';
printfbit(c);

printfbit(rightrot(c, 3));

return 0;
}

/* rightrot: сдвиг x на n вправо */
unsigned rightrot(unsigned x, int n)
{
return ((~(~0 << n) & x) << (8-n)) | x >> n;
}

ex.2.9. Применительно к числам, в представлении которых использован дополнительный код, выражение x &= (x-1) уничтожает самую правую единицу в x. Объясните, почему. Используйте это наблюдение при написании более быстрого варианта функции bitcount.

Объяснение. Если х нечетно, то (х-1) имеет такое же битовое представление как и х, за исключением того, что крайний правый бит в нем равен 0. В этом случае (х & (х-1)) == (х-1). Если же х четно, то в представлении (х-1) нули, стоявшие в х справа становятся единицами, а крайняя правая единица -- нулем. Конъюнкция х & (х-1) очищает эти позиции вплоть до того места, когда встретит единицы в представлениях обоих чисел (т.е. единицу, бывшую в x до этого шага второй справа).

int bitcount(unsigned x)
{
int b;
for (b = 0; x != 0; x &= (x-1))
b++;
return b;
}

[SomeStrangeGuy]

ex.2.10. Напишите функцию lower, которая переводит большие буквы в малые, используя условное выражение (а не конструкцию if-else).

#include <stdio.h>

int lower(int c);

int main()
{
int i;

char s[] = "ABRAKADABRA\0";
printf("s = %s\n", s);

printf("lower s = ");
for (i = 0; s[i] != '\0'; i++)
printf("%c", lower(s[i]));
printf("\n");

return 0;
}

/* lower: преобразование прописных c в строчные, только для ASCII */
int lower(int c)
{
return (c >= 'A' && c <='Z') ? c +'a'-'A' : c;
}

[atomic dust]

Упражнение 3.2. Напишите функцию escape(s,t), которая при копировании текста из t в s преобразует такие символы, как новая строка и табуляция в "видимые последовательности символов" (вроде \n и \t). Используйте инструкцию switch. Напишите функцию, выполняющую обратное преобразование эскейп-последовательностей в настоящие символы.

#include <stdio.h>

#define MAXLEN 30

void escape(char s[], char t[]);
void unescape(char s[], char t[]);

int main()
{
char input[MAXLEN] = "bla\tbla\nbla\n";
char output[MAXLEN];

printf("Original = %s\n", input);
escape(output, input);
printf("Escaped = %s\n", output);
unescape(input, output);
printf("Unescaped = %s\n", input);
printf("The End\n");

return 0;
}

void escape(char s[], char t[])
{
int i, j;

for (i = 0, j = 0; s[i]; i++, j++)
switch (t[i]) {
case '\t':
s[j++] = '\\';
s[j] = 't';
break;
case '\n':
s[j++] = '\\';
s[j] = 'n';
break;
default:
s[j] = t[i];
break;
}
s[j] = t[i]; // \0 !
}

void unescape(char s[], char t[])
{
int i, j;

for (i = 0, j = 0; s[i]; i++, j++)
switch (t[i]) {
case '\\':
switch (t[++i]) {
case 't':
s[j] = '\t';
break;
case 'n':
s[j] = '\n';
break;
}
break;
default:
s[j] = t[i];
break;
}
s[j] = t[i];
}

[atomic dust]

Упражнение 3.3. Напишите функцию expand(s1,s2), заменяющую сокращенную запись наподобие a-z в строке s1 эквивалентной полной записью аbс...хуz в s2. В s1 допускаются буквы (прописные и строчные) и цифры. Следует уметь справляться с такими случаями, как a-b-c, a-z0-9 и -a-b. Считайте знак '-' в начале или в конце s1 обычным символом минус.

#include <stdio.h>
#include <ctype.h>

#define MAXLEN 30

void expand(char s1[], char s2[]);

int main()
{
char in[MAXLEN] = "-1-67-9-\0";
char out[MAXLEN];

printf("s1 = %s\n", in);
expand(in, out);
printf("s2 = %s\n", out);

return 0;
}

void expand(char s1[], char s2[])
{
int i, j;
char t;

for (i = 0, j = 0; s1[i] != '\0'; i++) {
if ( isdigit(s1[i]) && s1[i+1] == '-' &&
isdigit(s1[i+2]) ) {
for (t = s1[i]; t < s1[i+2]; t++)
s2[j++] = t;
i++;
}
else
s2[j++] = s1[i];
}
s2[j] = '\0';
}

[atomic dust]

Упражнение 3.5. Напишите функцию itob(n,s,b), которая переводит целое n в строку s, представляющую число по основанию b. В частности, itob(n, s, 16) помещает в s текст числа n в шестнадцатеричном виде.

#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <limits.h>

void itob(int n, char s[], int b);
void reverse(char s[]);

int main(void) {
char buffer[100];
int i = 31;

printf("Number: %d\n", i);
itob(i, buffer, 16);
printf("Buffer : %s\n", buffer);

printf("INT_MIN: %d\n", INT_MIN);
itob(INT_MIN, buffer, 16);
printf("Buffer : %s\n", buffer);

return 0;
}

/* itob: преобразование n в строку s, представляющую
* число по основанию b (2 <= b <= 16) */
void itob(int n, char s[], int b) {
int i, sign;
char digits[] = "0123456789ABCDEF";

sign = n; /* сохраняем знак */

i = 0;
do { /* генерируем цифры в обратном порядке */
s[i++] = digits[n % b]; /* следующая цифра */
} while ( n /= b ); /* исключить ее */
if (sign < 0)
s[i++] = '-';

s[i] = '\0';
reverse(s);
}

[atomic dust]

Упражнение 4.1. Напишите функцию strrindex(s, t), которая выдает позицию самого правого вхождения t в s или -1, если вхождения не обнаружено.

#include <stdio.h>

#define MAXLINE 1000 /* максимальный размер вводимой строки */

int getl(char line[], int max);
int strrindex(char source[], char searchfor[]);

char pattern[] ="ould"; /* образец для поиска */

/* найти все строки, содержащие образец */

int main()
{
char line[MAXLINE];
int found = 0;
int rind;

while (getl(line, MAXLINE) > 0)
if ((rind = strrindex(line, pattern)) >= 0) {
printf ("s", rind, line);
found++;
}
return found;
}

/* getl: читает строку в s, возвращает длину */
int getl(char s[], int lim)
{
int c, i;
i = 0;
while (--lim > 0 && (c=getchar()) != EOF && c != '\n')
s[i++] = c;
if (c == '\n')
s[i++] = c;
s[i] = '\0';
return i;
}

/* strrindex: вычисляет выдает позицию самого правого вхождения t в s
* или выдает -1, если t нет в s */
int strrindex (char s[], char t[])
{
int i, j, k;
int tmp = -1;

for (i = 0; s[i] != '\0'; i++) {
for (j = i, k = 0; t[k] != '\0' && s[j] == t[k]; j++, k++);
if (k > 0 && t[k] == '\0' && i > tmp)
tmp = i;
}
return tmp;
}

[atomic dust]

Упражнение 4.2. Дополните функцию atof таким образом, чтобы она справлялась с числами вида: 123.45e-6, в которых после мантиссы может стоять e (или E) с последующим порядком (быть может, со знаком).

#include <stdio.h>
#include <ctype.h>
#include <math.h>

#define MAXLEN 100

double atof(char s[]);

int main()
{
char in1[MAXLEN] = " -10.325e-3\0";
char in2[MAXLEN] = " -10.325e+3\0";

printf("in1 = %s\n", in1);
printf("out = %f\n\n", atof(in1));

printf("in2 = %s\n", in2);
printf("out = %f\n", atof(in2));

return 0;
}

/*atof: преобразование строки s в double */
double atof(char s[])
{
double val, power, degval, base, exponent;
int i, sign, degsign;

for (i = 0; isspace(s[i]); i++); /* игнорирование левых символов-разделителей */
sign = (s[i] == '-') ? -1 : 1;
if (s[i] =='+' || s[i] =='-')
i++;
for (val = 0.0; isdigit(s[i]); i++)
val = 10.0 * val + (s[i] - '0');
if (s[i] == '.')
i++;
for (power = 1.0; isdigit(s[i]); i++) {
val = 10.0 * val + (s[i] - '0');
power *= 10.0;
}
if (s[i] == 'e' || s[i] == 'E')
i++;
degsign = (s[i] == '-') ? -1 : 1;
if (s[i] =='+' || s[i] =='-')
i++;
for (degval = 0.0; isdigit(s[i]); i++)
degval = 10.0 * degval + (s[i] - '0');

exponent = pow(10.0, degval);
base = sign * (val / power);

return degsign == 1 ? base * exponent : base / exponent;
}

[atomic dust]

Упражнение 4.7. Напишите программу ungets(s), возвращающую строку s во входной поток. Должна ли ungets "знать" что-либо о переменных buf и bufp, или ей достаточно пользоваться только функцией ungetch?

#include <stdio.h>
#include <string.h> /* strlen() */

int getch(void);
void ungetch(int);
void ungets(char []);

#define BUFSIZE 100

char buf[BUFSIZE]; /* буфер для ungetch */
int bufp = 0; /* след. свободная позиция в буфере */

int getch(void) /* взять символ */
{
return (bufp > 0) ? buf[--bufp] : getchar();
}

void ungetch(int c) /* вернуть символ на ввод */
{
if (bufp >= BUFSIZE)
printf("ungetch: слишком много символов\n");
else
buf[bufp++] = c;
}

void ungets(char s[])
{
int i=strlen(s);

while (i >= 0) {
ungetch(s[i--]);
}
}

int main()
{
char string[] = "This is a\ntext\n\0";
int c;

ungets(string);

while((c = getch()) != EOF) {
putchar(c);
}

return 0;
}

[atomic dust]

Упражнение 4.10. В основу программы калькулятора можно положить применение функции getline, которая читает целиком строку; при этом отпадает необходимость в getch и ungetch. Напишите программу, реализующую этот подход.

#include <stdio.h>
#include <stdlib.h> /* для atof() */

#define MAXOP 100 /* макс. размер операнда или оператора */
#define NUMBER '0' /* признак числа */
#define MAXLINE 500 /* макс. размер строки ввода */

int getop (char []);
int getl(char [], int);
void push (double);
double pop (void);

char line[MAXLINE];
int line_i;

/* калькулятор с обратной польской записью */
int main()
{
int type;
double op2;
char s[MAXOP];

while (getl(line, MAXLINE) != 0)
{
line_i = 0;
while ((type = getop(s)) != '\0')
{
switch (type)
{
case NUMBER:
push (atof(s));
break;
case '+':
push (pop() + pop());
break;
case '*':
push (pop() * pop());
break;
case '-':
op2 = pop();
push (pop() - op2);
break;
case '/':
op2 = pop();
if (op2 != 0.0)
push (pop() / op2);
else
printf("ошибка: деление на нуль\n");
break;
case '\n':
printf("\t%.8g\n", pop());
break;
default:
printf("ошибка: неизвестная операция %s\n", s);
break;
}
}
}
return 0;
}

#include <ctype.h>

/* getop: получает следующий оператор или операнд */
int getop(char s[])
{
int i, c;

while ((s[0] = c = line[line_i++]) == ' ' || c == '\t');
s[1] = '\0';
if (!isdigit(c) && c != '.')
return c; /* не число */
i = 0;
if (isdigit(c)) /* накапливаем целую часть */
while (isdigit(si] = c = line[line_i));
if (c =='.') /* накапливаем дробную часть */
while (isdigit(si] = line[line_i));
s[i] = '\0';
line_i--;

return NUMBER;
}

/* getline: читает строку в s, возвращает длину */
int getl(char s[], int lim)
{
int c, i;
i = 0;

while (--lim > 0 && (c = getchar()) != EOF && c != '\n')
s[i++] = c;
if (c == '\n')
s[i++] = c;
s[i] = '\0';
return i;
}

[atomic dust]

Упражнение 4.11. Модифицируйте функцию getop так, чтобы отпала необходимость в функции ungetch. Подсказка: используйте внутреннюю статическую переменную.

int getop(char s[])
{
int i;
static int c;

while ((s[0] = c = getch()) == ' ' || c == '\t');
s[1] = '\0';
if (!isdigit(c) && c != '.')
return c; /* не число */
i = 0;
if (isdigit(c)) /* накапливаем целую часть */
while (isdigit(s[++i] = c = getch()));
if (c =='.') /* накапливаем дробную часть */
while (isdigit(s[++i] = c = getch()));
s[i] = '\0';

return NUMBER;
}

[atomic dust]

Упражнение 4.12. Примените идеи, которые мы использовали в printd, для написания рекурсивной версии функции itoa; иначе говоря, преобразуйте целое число в строку цифр с помощью рекурсивной программы.

#include <stdio.h>

void itoa(int n, char s[]);
void reverse(char s[]);

int main(void) {
char buffer[20];
int i =-2834;

printf("Number: %d\n", i);
itoa(i, buffer);
printf("Buffer : %s\n", buffer);

return 0;
}

/* itoa: преобразование n в строку s */
void itoa(int n, char s[])
{
static int i;

if (n < 0)
{
n =-n;
s[i++] = '-'; /* делаем n положительным */
}
if (n / 10)
itoa(n / 10, s);
s[i++] = n % 10 + '0'; /* следующая цифра */
s[i] = '\0';
}

[atomic dust]

Упражнение 4.13. Напишите рекурсивную версию функции reverse(s), переставляющую элементы строки в ту же строку в обратном порядке.

#include <stdio.h>
#include <string.h>

void reverse(char [], int, int);

int main(void) {
char test[] = "Test String";
int last;

printf("Input : %s\n", test);
last = strlen(test)-1;
reverse(test, 0, last);
printf("Reversed : %s\n", test);
reverse(test, 0, last);
printf("Double Reversed: %s\n", test);
return 0;
}

void reverse(char s[], int first, int last) {
int c;

c = s[first];
s[first++] = s[last];
s[last--] = c;
if (first != last)
reverse(s, first, last);
}

[atomic dust]

Упражнение 4.14. Определите swap(t,x,y) в виде макроса, который осуществляет обмен значениями указанного типа t между аргументами x и y. (Примените блочную структуру.)

#include <stdio.h>

#define swap(t,x,y) {t temp = x; x = y; y = temp;}


int main(void) {
int ai=1, bi=2;
printf("Initial: ai=d\n", ai, bi);
swap(int, ai, bi);
printf("Swapped: ai=d\n", ai, bi);

float af=1.0, bf=2.0;
printf("Initial: af=f\n", af, bf);
swap(float, af, bf);
printf("Swapped: af=f\n", af, bf);

return 0;
}

[KBacHuK]

Упражнение 5.1. Функция getint написана так, что знаки - или +, за которыми не следует цифра, она понимает как "правильное" представление нуля. Скорректируйте программу таким образом, чтобы в подобных случаях она возвращала прочитанный знак назад во ввод.
#include <stdio.h>
#include <ctype.h>

#define SIZE 20 /* макс. размер строки ввода */

int main(void)
{
int i, type, array[SIZE], getint(int *);

for (i = 0; i < SIZE && (type = getint(&array[i])) != EOF; i++)
printf("array[%d] = s\n", i, type ? array[i] : type,
type ? "" : "is not a number");

return 0;
}

int getch (void);
void ungetch (int);

/* getint: читает следующее целое из ввода в *pn */
int getint(int *pn)
{
int c, sign;

while (isspace(c = getch())); /* пропуск символов-разделителей */

if (!isdigit(c) && c != EOF && c != '+' && c != '-') {
return 0;
}
sign = (c =='-') ? -1 : 1;
if (c == '+' || c == '-')
if(!isdigit(c = getch())){
return 0;
}
for (*pn = 0; isdigit(c); c = getch())
*pn = 10 * *pn + (c - '0');
*pn *= sign;
if (c != EOF)
ungetch(c);
return c;
}

char buf[SIZE]; /* буфер для ungetch */
int bufp = 0; /* след. свободная позиция в буфере */

int getch(void) /* взять (возможно возвращенный) символ */
{
return (bufp > 0) ? buf[--bufp] : getchar();
}

void ungetch(int c) /* вернуть символ на ввод */
{
if (bufp >= SIZE)
printf("ungetch: слишком много символов\n");
else
buf[bufp++] = c;
}

[KBacHuK]

Упражнение 5.2. Напишите функцию getfloat -- аналог getint для чисел с плавающей точкой. Какой тип будет иметь результирующее значение, задаваемое функцией getfloat?
#include <stdio.h>
#include <ctype.h>

#define SIZE 20 /* макс. размер строки ввода */

int main(void)
{
int i, type, getfloat(double *);
double array[SIZE];

for (i = 0; i < SIZE && (type = getfloat(&array[i])) != EOF; i++)
printf("array[%d] = s\n", i, type ? array[i] : type,
type ? "" : "is not a number");

return 0;
}

int getch (void);
void ungetch (int);

/* getfloat: читает следующее целое из ввода в *pn */
int getfloat(double *pn)
{
int c, sign;
float power;

while (isspace(c = getch())); /* пропуск символов-разделителей */

if (!isdigit(c) && c != EOF && c != '+' && c != '-') {
return 0;
}
sign = (c =='-') ? -1 : 1;
if (c == '+' || c == '-')
if(!isdigit(c = getch())){
return 0;
}
for (*pn = 0.0; isdigit(c); c = getch())
*pn = 10.0 * *pn + (c - '0');
if (c == '.')
c = getch();
for (power = 1.0; isdigit(c); c = getch()) {
*pn = 10.0 * *pn + (c - '0');
power *= 10.0;
}
*pn *= sign / power;
if (c != EOF)
ungetch(c);
return c;
}

[KBacHuK]

Упражнение 5.3. Используя указатели, напишите функцию strcat, которую мы рассматривали в главе 2 (функция strcat(s,t) копирует строку t в конец строки s).
#include <stdio.h>
#include <string.h>

#define SIZE 15

void new_strcat(char *, char *);

int main()
{
char s[SIZE] = "Hello,";
char t[SIZE] = " world!";
int i;

printf("s = %s\n", s);
printf("t = %s\n", t);

new_strcat(s, t);
printf("s+t = %s -> strlen = %d\n", s, strlen(s));


for (i = 0; i < SIZE; i++)
printf("s+t[%d] = %c\n", i, s[i]);
return 0;
}

/* new_strcat: помещает t в конец s; s достаточно велика */
void new_strcat(char *ps, char *pt)
{
while (*ps++); /* находим конец s */
while ((*ps++ = *pt++)); /* копируем t */
}

[KBacHuK]

Упражнение 5.4. Напишите функцию strend(s,t), которая выдает 1, если строка t расположена в конце строки s, и нуль в противном случае.
#include <stdio.h>
#include <string.h>

int strend(char *, char *);

int main()
{
char s1[] = "test stri string\0";
printf("s1 = %s\n", s1);

char s2[] = "ring\0";
printf("s2 = %s\n", s2);

printf("s2 is in the end of s1 = %s\n", strend(s1, s2) ? "yes" : "no");

return 0;
}

/* strend: возвращает 1, если s2 находится в конце s1 */
int strend(char *ps1, char *ps2)
{
char *tmp;
int n;

while (*ps1) {
while (*ps1++ != *ps2); /* прокручиваем s1 до 1-го элемента s2 */
tmp = ps2;
ps1--;
for (n = 0; *tmp && *ps1++ == *tmp++; n++); /* n элементов совпадают */
if (n == strlen(ps2))
return 1;
}
return 0;
}

[KBacHuK]

Упражнение 5.5. Напишите варианты библиотечных функций strncpy, strncat и strncmp, которые оперируют с первыми символами своих аргументов, число которых не превышает n. Например, strncpy(t,s,n) копирует не более n символов t в s. Полные описания этих функций содержатся в приложении B.
/* strncpy: копирует n символов из t в s */
void strncpy(char *s, char *t, int n)
{
int i = 0;

while (i++ < n && (*s++ = *t++));
}

/* strncat: помещает n символов из t в конец s */
void strncat(char *ps, char *pt, int n)
{
int i = 0;

while (*++ps); /* находим конец s */
while (i++ < n && (*ps++ = *pt++)); /* копируем t */
}

/* strncmp: выдает < 0 при s < t, 0 при s == t, > 0 при s > t */
int strncmp(char *s, char *t, int n)
{
int i = 0;

while (i++ < n && *s++ == *t++)
if (*(s-1) == '\0')
return 0;

return *(s-1) - *(t-1);
}

[KBacHuK]

Упражнение 5.6. Отберите подходящие программы из предыдущих глав и упражнений и перепишите их, используя вместо индексирования указатели. Подойдут, в частности, программы getline (главы 1 и 4), atoi, itoa и их варианты (главы 2, 3 и 4), reverse (глава 3), а также strindex и getop (глава 4).
getline() (у на-- getl()):
#include <stdio.h>

#define MAXLINE 50 /* максимальная длина строки ввода */

int getl(char *, int);

int main()
{
char line[MAXLINE]; /* текущая строка */
int len = 0;

while ((len = getl(line, MAXLINE)) > 0) {
printf("len = %d; line = %s\n", len, line);
}
return 0;
}

/* getl: читает строку в s, возвращает длину */
int getl(char *ps, int lim)
{
int c;
char *start = ps;

while (--lim > 0 && (c=getchar()) != EOF && c != '\n')
*ps++ = c;
if (c == '\n')
*ps++ = c;
*ps = '\0';
return ps-- - start;
}
atoi():
#include <stdio.h>
#include <ctype.h>

int atoi(char *);

int main()
{
char s[] = " -1224";

printf("string=d\n", s, atoi(s));

return 0;
}

/* atoi: преобразование s в целое число; версия 3 */
int atoi(char *s)
{
int sign;
int n = 0;
/* игнорировать символы-разделители */
while (isspace(*s++));
sign = ( *--s == '-' ) ? -1 : 1;
if (*s == '+' || *s == '-') /* пропуск знака */
*s++;
while (isdigit(*s))
n = 10 * n + (*s++ - '0');
return sign * n;
}
itoa() и reverse():
#include <stdio.h>
#include <string.h>

#define SIZE 20

void itoa(int, char *);
void reverse(char *);

int main()
{
int n =-1224;
char s[SIZE];

itoa(n, s);

printf("int=s\n", n, s);

return 0;
}

/* itoa: преобразование целого n в строку s */
void itoa(int n, char *s)
{
int sign;
char *ps = s;

if ((sign = n) < 0) /* сохраняем знак */
n =-n; /* делаем n положительным */

do { /* генерируем цифры в обратном порядке */
*ps++ = n % 10 + '0'; /* следующая цифра */
} while ((n /= 10) > 0); /* исключить ее */
if (sign < 0)
*ps++ = '-';
*ps = '\0';
reverse(s);
}

/* reverse: переворачивает строку s (результат в s) */
void reverse(char *s)
{
int c, i, j;

for (i = 0, j = strlen(s)-1; i < j; i++, j--) {
c = *(s+i);
*(s+i) = *(s+j);
*(s+j) = c;
}
}
strrindex():
#include <stdio.h>

#define MAXLINE 1000 /* максимальный размер вводимой строки */

int getl(char *, int);
int strrindex(char *, char *);

char pattern[] ="ould"; /* образец для поиска */

/* найти все строки, содержащие образец */
int main()
{
char line[MAXLINE];
int found = 0;
int rind;

while (getl(line, MAXLINE) > 0)
if ((rind = strrindex(line, pattern)) >= 0) {
printf ("s", rind, line);
found++;
}
return found;
}

/* getl: читает строку в s, возвращает длину */
int getl(char *s, int lim)
{
int c;
char *ps = s;

while (--lim > 0 && (c=getchar()) != EOF && c != '\n')
*s++ = c;
if (c == '\n')
*s++ = c;
*s = '\0';
return s-- - ps;
}

/* strrindex: вычисляет выдает позицию самого правого вхождения t в s
* или выдает -1, если t нет в s */
int strrindex (char *s, char *t)
{
int i, tmp = -1;
char *ps, *pt, *pstrbeg;

pstrbeg = s;
while (*s++) {
for (ps = s, pt = t; *pt && *ps++ == *pt++;);
i = &(*--ps) - pstrbeg;
if (!*pt && i > tmp)
tmp = i;
}
return tmp;
}
getop() (остальные функции, включая main(), есть в решениях упражнений 4.2--4.10.):
#include <ctype.h>

/* getop: получает следующий оператор или операнд */
int getop(char *s)
{
int c;
while ((*s = c = getch()) == ' ' || c == '\t');
*(s+1) = '\0';
if (!isdigit(c) && c != '.')
return c; /* не число */
if (isdigit(c)) /* накапливаем целую часть */
while (isdigit(*++s = c = getch()));
if (c =='.') /* накапливаем дробную часть */
while (isdigit(*++s = c = getch()));
*s = '\0';
if (c != EOF)
ungetch(c);
return NUMBER;
}

[KBacHuK]

Упражнение 5.7. Напишите новую версию readlines, которая запоминала бы строки в массиве, определенном в main, а не запрашивала память посредством программы alloc. Насколько быстрее эта программа?
#include <stdio.h>
#include <string.h>

#define MAXLINES 5000 /* максимальное число строк */
#define ALLOCSIZE 10000 /* размер доступного пространства */

char *lineptr[MAXLINES]; /* указатели на строки */

int readlines(char *lineptr[], int nlines, char *linestore);
void writelines(char *lineptr[], int nlines);

/* сортировка строк */
int main()
{
char allocbuf[ALLOCSIZE]; /* массив для хранения строк */
int nlines; /* количество прочитанных строк */

if ((nlines = readlines(lineptr, MAXLINES, allocbuf)) >= 0) {
printf("nlines=%d\n", nlines);
writelines(lineptr, nlines);
return 0;
} else {
printf("ошибка: слишком много строк\n");
return 1;
}
}

#define MAXLEN 1000 /* максимальная длина строки */
int getl(char *, int);

/* readlines: чтение строк */
int readlines(char *lineptr[], int maxlines, char *linestore)
{
int len, nlines;
char *p, line[MAXLEN];

nlines = 0;
p = linestore + strlen(linestore);
while ((len = getl(line, MAXLEN)) > 0)
if (nlines >= maxlines || (len + strlen(linestore)) >= ALLOCSIZE)
return -1;
else {
line[len-1] = '\0'; /* убираем символ \n */
strcpy(p, line);
lineptr[nlines++] = p;
p += len;
}
return nlines;
}