1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
|
/* This file is part of the Project Athena Zephyr Notification System.
* It is one of the source files comprising zwgc, the Zephyr WindowGram
* client.
*
* Created by: Marc Horowitz <marc@athena.mit.edu>
*
* $Source$
* $Author$
*
* Copyright (c) 1989 by the Massachusetts Institute of Technology.
* For copying and distribution information, see the file
* "mit-copyright.h".
*/
#include <sysdep.h>
#if (!defined(lint) && !defined(SABER))
static const char rcsid_text_operations_c[] = "$Id$";
#endif
#include <zephyr/mit-copyright.h>
#include "new_memory.h"
#include "text_operations.h"
#include "char_stack.h"
string lany(text_ptr, str)
string *text_ptr;
string str;
{
string result, whats_left;
char *p = *text_ptr;
while (*p && *str) p++, str++;
result = string_CreateFromData(*text_ptr, p - *text_ptr);
whats_left = string_Copy(p);
free(*text_ptr);
*text_ptr = whats_left;
return(result);
}
string lbreak(text_ptr, set)
string *text_ptr;
character_class set;
{
string result, whats_left;
char *p = *text_ptr;
while (*p && !set[*p]) p++;
result = string_CreateFromData(*text_ptr, p - *text_ptr);
whats_left = string_Copy(p);
free(*text_ptr);
*text_ptr = whats_left;
return(result);
}
string lspan(text_ptr, set)
string *text_ptr;
character_class set;
{
string result, whats_left;
char *p = *text_ptr;
while (*p && set[*p]) p++;
result = string_CreateFromData(*text_ptr, p - *text_ptr);
whats_left = string_Copy(p);
free(*text_ptr);
*text_ptr = whats_left;
return(result);
}
string rany(text_ptr, str)
string *text_ptr;
string str;
{
string result, whats_left;
string text = *text_ptr;
char *p = text + strlen(text);
while (text<p && *str) p--, str++;
result = string_Copy(p);
whats_left = string_CreateFromData(text, p - text);
free(text);
*text_ptr = whats_left;
return(result);
}
string rbreak(text_ptr, set)
string *text_ptr;
character_class set;
{
string result, whats_left;
string text = *text_ptr;
char *p = text + strlen(text);
while (text<p && !set[p[-1]]) p--;
result = string_Copy(p);
whats_left = string_CreateFromData(text, p - text);
free(text);
*text_ptr = whats_left;
return(result);
}
string rspan(text_ptr, set)
string *text_ptr;
character_class set;
{
string result, whats_left;
string text = *text_ptr;
char *p = text + strlen(text);
while (text<p && set[p[-1]]) p--;
result = string_Copy(p);
whats_left = string_CreateFromData(text, p - text);
free(text);
*text_ptr = whats_left;
return(result);
}
|
