You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@hyperreal.org on 1999/05/26 03:41:32 UTC

cvs commit: modperl/src/modules/perl File.xs

dougm       99/05/25 18:41:30

  Modified:    .        Changes
               src/modules/perl File.xs
  Log:
  added set_byterange() and each_byterange() methods
  
  Revision  Changes    Path
  1.297     +2 -0      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /export/home/cvs/modperl/Changes,v
  retrieving revision 1.296
  retrieving revision 1.297
  diff -u -r1.296 -r1.297
  --- Changes	1999/05/20 00:22:10	1.296
  +++ Changes	1999/05/26 01:41:27	1.297
  @@ -8,6 +8,8 @@
   
   =item 1.19_01-dev
   
  +added set_byterange() and each_byterange() methods
  +
   added proper support for {Location,Directory,Files}Match in <Perl> sections
   
   new Apache::ExtUtils::pm function to generate Foo.pm/Makefile.PL
  
  
  
  1.8       +18 -0     modperl/src/modules/perl/File.xs
  
  Index: File.xs
  ===================================================================
  RCS file: /export/home/cvs/modperl/src/modules/perl/File.xs,v
  retrieving revision 1.7
  retrieving revision 1.8
  diff -u -r1.7 -r1.8
  --- File.xs	1999/04/06 23:56:35	1.7
  +++ File.xs	1999/05/26 01:41:29	1.8
  @@ -210,3 +210,21 @@
   ap_discard_request_body(r)
       Apache r
   
  +int
  +ap_set_byterange(r)
  +    Apache r
  +
  +void
  +ap_each_byterange(r)
  +    Apache r
  +
  +    PREINIT:
  +    long offset, length;
  +
  +    PPCODE:
  +    if (!ap_each_byterange(r, &offset, &length)) {
  +	XSRETURN_EMPTY;
  +    }
  +    EXTEND(sp, 2);
  +    PUSHs(sv_2mortal(newSViv(offset)));
  +    PUSHs(sv_2mortal(newSViv(length)));