← Back to branch summary

~ubuntu-branches/ubuntu/trusty/mit-scheme/trusty-proposed

« back to all changes in this revision

Viewing changes to src/microcode/rgxprim.c

  • Committer: Bazaar Package Importer
  • Author(s): Evan Broder
  • Date: 2009-03-08 00:46:17 UTC
  • mfrom: (1.1.6 upstream) (3.1.3 squeeze)
  • Revision ID: james.westby@ubuntu.com-20090308004617-csqyjpnkg7daq9c4
Tags: 7.7.90+20090107-1ubuntu1
https://launchpad.net/bugs/288000
https://launchpad.net/bugs/217792
* Merge from debian unstable, remaining changes (LP: #288000, #217792):
  * Bootstrapping done via binary package from Debian unstable. See log
      entry for 7.7.90+20060906-3ubuntu1 for details.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/microcode/rgxprim.c
1
1
/* -*-C-*-
2
2
 
3
 
$Id: rgxprim.c,v 1.17 2007/01/05 21:19:25 cph Exp $
 
3
$Id: rgxprim.c,v 1.20 2008/01/30 20:02:20 cph Exp $
4
4
 
5
5
Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
6
6
    1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
7
 
    2006, 2007 Massachusetts Institute of Technology
 
7
    2006, 2007, 2008 Massachusetts Institute of Technology
8
8
 
9
9
This file is part of MIT/GNU Scheme.
10
10
 
102
102
 
103
103
DEFINE_PRIMITIVE ("RE-COMPILE-FASTMAP", Prim_re_compile_fastmap, 4, 4, 0)
104
104
{
105
 
  fast SCHEME_OBJECT pattern;
106
 
  fast int can_be_null;
 
105
  SCHEME_OBJECT pattern;
 
106
  int can_be_null;
107
107
  PRIMITIVE_HEADER (4);
108
108
  CHECK_ARG (1, STRING_P);
109
109
  pattern = (ARG_REF (1));
137
137
 
138
138
#define RE_SUBSTRING_PRIMITIVE(procedure)                               \
139
139
{                                                                       \
140
 
  fast SCHEME_OBJECT regexp;                                            \
 
140
  SCHEME_OBJECT regexp;                                                 \
141
141
  long match_start, match_end, text_end;                                \
142
142
  unsigned char * text;                                                 \
143
143
  struct re_buffer buffer;                                              \
181
181
 
182
182
#define RE_BUFFER_PRIMITIVE(procedure)                                  \
183
183
{                                                                       \
184
 
  fast SCHEME_OBJECT regexp, group;                                     \
 
184
  SCHEME_OBJECT regexp, group;                                          \
185
185
  long match_start, match_end, text_start, text_end, gap_start;         \
186
186
  unsigned char * text;                                                 \
187
187
  struct re_buffer buffer;                                              \
197
197
  group = (ARG_REF (5));                                                \
198
198
  match_start = (arg_nonnegative_integer (6));                          \
199
199
  match_end = (arg_nonnegative_integer (7));                            \
200
 
  text = (STRING_LOC ((GROUP_TEXT (group)), 0));                        \
 
200
  text = (GROUP_TEXT (group, 0));                                       \
201
201
  text_start = (MARK_INDEX (GROUP_START_MARK (group)));                 \
202
202
  text_end = (MARK_INDEX (GROUP_END_MARK (group)));                     \
203
203
  gap_start = (GROUP_GAP_START (group));                                \