ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/IO-AIO/README
(Generate patch)

Comparing IO-AIO/README (file contents):
Revision 1.26 by root, Thu Oct 4 12:50:35 2007 UTC vs.
Revision 1.36 by root, Sun Jun 7 18:31:18 2009 UTC

24 $req->cancel; # cancel request if still in queue 24 $req->cancel; # cancel request if still in queue
25 25
26 my $grp = aio_group sub { print "all stats done\n" }; 26 my $grp = aio_group sub { print "all stats done\n" };
27 add $grp aio_stat "..." for ...; 27 add $grp aio_stat "..." for ...;
28 28
29 # AnyEvent integration (EV, Event, Glib, Tk, POE, urxvt, pureperl...)
30 use AnyEvent::AIO;
31
29 # AnyEvent integration 32 # EV integration
30 open my $fh, "<&=" . IO::AIO::poll_fileno or die "$!"; 33 my $w = EV::io IO::AIO::poll_fileno, EV::READ, \&IO::AIO::poll_cb;
31 my $w = AnyEvent->io (fh => $fh, poll => 'r', cb => sub { IO::AIO::poll_cb });
32 34
33 # Event integration 35 # Event integration
34 Event->io (fd => IO::AIO::poll_fileno, 36 Event->io (fd => IO::AIO::poll_fileno,
35 poll => 'r', 37 poll => 'r',
36 cb => \&IO::AIO::poll_cb); 38 cb => \&IO::AIO::poll_cb);
173 All the "aio_*" calls are more or less thin wrappers around the syscall 175 All the "aio_*" calls are more or less thin wrappers around the syscall
174 with the same name (sans "aio_"). The arguments are similar or 176 with the same name (sans "aio_"). The arguments are similar or
175 identical, and they all accept an additional (and optional) $callback 177 identical, and they all accept an additional (and optional) $callback
176 argument which must be a code reference. This code reference will get 178 argument which must be a code reference. This code reference will get
177 called with the syscall return code (e.g. most syscalls return -1 on 179 called with the syscall return code (e.g. most syscalls return -1 on
178 error, unlike perl, which usually delivers "false") as it's sole 180 error, unlike perl, which usually delivers "false") as its sole argument
179 argument when the given syscall has been executed asynchronously. 181 after the given syscall has been executed asynchronously.
180 182
181 All functions expecting a filehandle keep a copy of the filehandle 183 All functions expecting a filehandle keep a copy of the filehandle
182 internally until the request has finished. 184 internally until the request has finished.
183 185
184 All functions return request objects of type IO::AIO::REQ that allow 186 All functions return request objects of type IO::AIO::REQ that allow
197 the user environment, d) use Glib::filename_from_unicode on unicode 199 the user environment, d) use Glib::filename_from_unicode on unicode
198 filenames or e) use something else to ensure your scalar has the correct 200 filenames or e) use something else to ensure your scalar has the correct
199 contents. 201 contents.
200 202
201 This works, btw. independent of the internal UTF-8 bit, which IO::AIO 203 This works, btw. independent of the internal UTF-8 bit, which IO::AIO
202 handles correctly wether it is set or not. 204 handles correctly whether it is set or not.
203 205
204 $prev_pri = aioreq_pri [$pri] 206 $prev_pri = aioreq_pri [$pri]
205 Returns the priority value that would be used for the next request 207 Returns the priority value that would be used for the next request
206 and, if $pri is given, sets the priority for the next aio request. 208 and, if $pri is given, sets the priority for the next aio request.
207 209
260 262
261 aio_close $fh, $callback->($status) 263 aio_close $fh, $callback->($status)
262 Asynchronously close a file and call the callback with the result 264 Asynchronously close a file and call the callback with the result
263 code. 265 code.
264 266
265 Unlike the other functions operating on files, this function uses 267 Unfortunately, you can't do this to perl. Perl *insists* very
266 the PerlIO layer to close the filehandle. The reason is that the 268 strongly on closing the file descriptor associated with the
267 PerlIO API insists on closing the underlying fd itself, no matter 269 filehandle itself.
268 what, and doesn't allow modifications to the fd. Unfortunately, it
269 is not clear that you can call PerlIO from different threads
270 (actually, its quite clear that this won't work in some cases), so
271 while it likely works perfectly with simple file handles (such as
272 the ones created by "aio_open") it might fail in interesting ways
273 for others.
274 270
275 Having said that, aio_close tries to clean up the filehandle as much 271 Therefore, "aio_close" will not close the filehandle - instead it
276 as possible before handing it to an io thread, and generally does 272 will use dup2 to overwrite the file descriptor with the write-end of
277 work. 273 a pipe (the pipe fd will be created on demand and will be cached).
274
275 Or in other words: the file descriptor will be closed, but it will
276 not be free for reuse until the perl filehandle is closed.
278 277
279 aio_read $fh,$offset,$length, $data,$dataoffset, $callback->($retval) 278 aio_read $fh,$offset,$length, $data,$dataoffset, $callback->($retval)
280 aio_write $fh,$offset,$length, $data,$dataoffset, $callback->($retval) 279 aio_write $fh,$offset,$length, $data,$dataoffset, $callback->($retval)
281 Reads or writes $length bytes from the specified $fh and $offset 280 Reads or writes $length bytes from or to the specified $fh and
282 into the scalar given by $data and offset $dataoffset and calls the 281 $offset into the scalar given by $data and offset $dataoffset and
283 callback without the actual number of bytes read (or -1 on error, 282 calls the callback without the actual number of bytes read (or -1 on
284 just like the syscall). 283 error, just like the syscall).
284
285 "aio_read" will, like "sysread", shrink or grow the $data scalar to
286 offset plus the actual number of bytes read.
285 287
286 If $offset is undefined, then the current file descriptor offset 288 If $offset is undefined, then the current file descriptor offset
287 will be used (and updated), otherwise the file descriptor offset 289 will be used (and updated), otherwise the file descriptor offset
288 will not be changed by these calls. 290 will not be changed by these calls.
289 291
440 aio_readdir $pathname, $callback->($entries) 442 aio_readdir $pathname, $callback->($entries)
441 Unlike the POSIX call of the same name, "aio_readdir" reads an 443 Unlike the POSIX call of the same name, "aio_readdir" reads an
442 entire directory (i.e. opendir + readdir + closedir). The entries 444 entire directory (i.e. opendir + readdir + closedir). The entries
443 will not be sorted, and will NOT include the "." and ".." entries. 445 will not be sorted, and will NOT include the "." and ".." entries.
444 446
445 The callback a single argument which is either "undef" or an 447 The callback is passed a single argument which is either "undef" or
446 array-ref with the filenames. 448 an array-ref with the filenames.
449
450 aio_readdirx $pathname, $flags, $callback->($entries, $flags)
451 Quite similar to "aio_readdir", but the $flags argument allows to
452 tune behaviour and output format. In case of an error, $entries will
453 be "undef".
454
455 The flags are a combination of the following constants, ORed
456 together (the flags will also be passed to the callback, possibly
457 modified):
458
459 IO::AIO::READDIR_DENTS
460 When this flag is off, then the callback gets an arrayref with
461 of names only (as with "aio_readdir"), otherwise it gets an
462 arrayref with "[$name, $type, $inode]" arrayrefs, each
463 describing a single directory entry in more detail.
464
465 $name is the name of the entry.
466
467 $type is one of the "IO::AIO::DT_xxx" constants:
468
469 "IO::AIO::DT_UNKNOWN", "IO::AIO::DT_FIFO", "IO::AIO::DT_CHR",
470 "IO::AIO::DT_DIR", "IO::AIO::DT_BLK", "IO::AIO::DT_REG",
471 "IO::AIO::DT_LNK", "IO::AIO::DT_SOCK", "IO::AIO::DT_WHT".
472
473 "IO::AIO::DT_UNKNOWN" means just that: readdir does not know. If
474 you need to know, you have to run stat yourself. Also, for speed
475 reasons, the $type scalars are read-only: you can not modify
476 them.
477
478 $inode is the inode number (which might not be exact on systems
479 with 64 bit inode numbers and 32 bit perls). On systems that do
480 not deliver the inode information, this will always be zero.
481
482 IO::AIO::READDIR_DIRS_FIRST
483 When this flag is set, then the names will be returned in an
484 order where likely directories come first. This is useful when
485 you need to quickly find directories, or you want to find all
486 directories while avoiding to stat() each entry.
487
488 If the system returns type information in readdir, then this is
489 used to find directories directly. Otherwise, likely directories
490 are files beginning with ".", or otherwise files with no dots,
491 of which files with short names are tried first.
492
493 IO::AIO::READDIR_STAT_ORDER
494 When this flag is set, then the names will be returned in an
495 order suitable for stat()'ing each one. That is, when you plan
496 to stat() all files in the given directory, then the returned
497 order will likely be fastest.
498
499 If both this flag and "IO::AIO::READDIR_DIRS_FIRST" are
500 specified, then the likely dirs come first, resulting in a less
501 optimal stat order.
502
503 IO::AIO::READDIR_FOUND_UNKNOWN
504 This flag should not be set when calling "aio_readdirx".
505 Instead, it is being set by "aio_readdirx", when any of the
506 $type's found were "IO::AIO::DT_UNKNOWN". The absense of this
507 flag therefore indicates that all $type's are known, which can
508 be used to speed up some algorithms.
447 509
448 aio_load $path, $data, $callback->($status) 510 aio_load $path, $data, $callback->($status)
449 This is a composite request that tries to fully load the given file 511 This is a composite request that tries to fully load the given file
450 into memory. Status is the same as with aio_read. 512 into memory. Status is the same as with aio_read.
451 513
452 aio_copy $srcpath, $dstpath, $callback->($status) 514 aio_copy $srcpath, $dstpath, $callback->($status)
453 Try to copy the *file* (directories not supported as either source 515 Try to copy the *file* (directories not supported as either source
454 or destination) from $srcpath to $dstpath and call the callback with 516 or destination) from $srcpath to $dstpath and call the callback with
455 the 0 (error) or -1 ok. 517 the 0 (error) or -1 ok.
456 518
457 This is a composite request that it creates the destination file 519 This is a composite request that creates the destination file with
458 with mode 0200 and copies the contents of the source file into it 520 mode 0200 and copies the contents of the source file into it using
459 using "aio_sendfile", followed by restoring atime, mtime, access 521 "aio_sendfile", followed by restoring atime, mtime, access mode and
460 mode and uid/gid, in that order. 522 uid/gid, in that order.
461 523
462 If an error occurs, the partial destination file will be unlinked, 524 If an error occurs, the partial destination file will be unlinked,
463 if possible, except when setting atime, mtime, access mode and 525 if possible, except when setting atime, mtime, access mode and
464 uid/gid, where errors are being ignored. 526 uid/gid, where errors are being ignored.
465 527
466 aio_move $srcpath, $dstpath, $callback->($status) 528 aio_move $srcpath, $dstpath, $callback->($status)
467 Try to move the *file* (directories not supported as either source 529 Try to move the *file* (directories not supported as either source
468 or destination) from $srcpath to $dstpath and call the callback with 530 or destination) from $srcpath to $dstpath and call the callback with
469 the 0 (error) or -1 ok. 531 the 0 (error) or -1 ok.
470 532
471 This is a composite request that tries to rename(2) the file first. 533 This is a composite request that tries to rename(2) the file first;
472 If rename files with "EXDEV", it copies the file with "aio_copy" 534 if rename fails with "EXDEV", it copies the file with "aio_copy"
473 and, if that is successful, unlinking the $srcpath. 535 and, if that is successful, unlinks the $srcpath.
474 536
475 aio_scandir $path, $maxreq, $callback->($dirs, $nondirs) 537 aio_scandir $path, $maxreq, $callback->($dirs, $nondirs)
476 Scans a directory (similar to "aio_readdir") but additionally tries 538 Scans a directory (similar to "aio_readdir") but additionally tries
477 to efficiently separate the entries of directory $path into two sets 539 to efficiently separate the entries of directory $path into two sets
478 of names, directories you can recurse into (directories), and ones 540 of names, directories you can recurse into (directories), and ones
498 Implementation notes. 560 Implementation notes.
499 561
500 The "aio_readdir" cannot be avoided, but "stat()"'ing every entry 562 The "aio_readdir" cannot be avoided, but "stat()"'ing every entry
501 can. 563 can.
502 564
565 If readdir returns file type information, then this is used directly
566 to find directories.
567
503 After reading the directory, the modification time, size etc. of the 568 Otherwise, after reading the directory, the modification time, size
504 directory before and after the readdir is checked, and if they match 569 etc. of the directory before and after the readdir is checked, and
505 (and isn't the current time), the link count will be used to decide 570 if they match (and isn't the current time), the link count will be
506 how many entries are directories (if >= 2). Otherwise, no knowledge 571 used to decide how many entries are directories (if >= 2).
507 of the number of subdirectories will be assumed. 572 Otherwise, no knowledge of the number of subdirectories will be
573 assumed.
508 574
509 Then entries will be sorted into likely directories (everything 575 Then entries will be sorted into likely directories a non-initial
510 without a non-initial dot currently) and likely non-directories 576 dot currently) and likely non-directories (see "aio_readdirx"). Then
511 (everything else). Then every entry plus an appended "/." will be 577 every entry plus an appended "/." will be "stat"'ed, likely
512 "stat"'ed, likely directories first. If that succeeds, it assumes 578 directories first, in order of their inode numbers. If that
513 that the entry is a directory or a symlink to directory (which will 579 succeeds, it assumes that the entry is a directory or a symlink to
514 be checked seperately). This is often faster than stat'ing the entry 580 directory (which will be checked seperately). This is often faster
515 itself because filesystems might detect the type of the entry 581 than stat'ing the entry itself because filesystems might detect the
516 without reading the inode data (e.g. ext2fs filetype feature). 582 type of the entry without reading the inode data (e.g. ext2fs
583 filetype feature), even on systems that cannot return the filetype
584 information on readdir.
517 585
518 If the known number of directories (link count - 2) has been 586 If the known number of directories (link count - 2) has been
519 reached, the rest of the entries is assumed to be non-directories. 587 reached, the rest of the entries is assumed to be non-directories.
520 588
521 This only works with certainty on POSIX (= UNIX) filesystems, which 589 This only works with certainty on POSIX (= UNIX) filesystems, which
529 Delete a directory tree starting (and including) $path, return the 597 Delete a directory tree starting (and including) $path, return the
530 status of the final "rmdir" only. This is a composite request that 598 status of the final "rmdir" only. This is a composite request that
531 uses "aio_scandir" to recurse into and rmdir directories, and unlink 599 uses "aio_scandir" to recurse into and rmdir directories, and unlink
532 everything else. 600 everything else.
533 601
602 aio_sync $callback->($status)
603 Asynchronously call sync and call the callback when finished.
604
534 aio_fsync $fh, $callback->($status) 605 aio_fsync $fh, $callback->($status)
535 Asynchronously call fsync on the given filehandle and call the 606 Asynchronously call fsync on the given filehandle and call the
536 callback with the fsync result code. 607 callback with the fsync result code.
537 608
538 aio_fdatasync $fh, $callback->($status) 609 aio_fdatasync $fh, $callback->($status)
539 Asynchronously call fdatasync on the given filehandle and call the 610 Asynchronously call fdatasync on the given filehandle and call the
540 callback with the fdatasync result code. 611 callback with the fdatasync result code.
541 612
542 If this call isn't available because your OS lacks it or it couldn't 613 If this call isn't available because your OS lacks it or it couldn't
543 be detected, it will be emulated by calling "fsync" instead. 614 be detected, it will be emulated by calling "fsync" instead.
615
616 aio_sync_file_range $fh, $offset, $nbytes, $flags, $callback->($status)
617 Sync the data portion of the file specified by $offset and $length
618 to disk (but NOT the metadata), by calling the Linux-specific
619 sync_file_range call. If sync_file_range is not available or it
620 returns ENOSYS, then fdatasync or fsync is being substituted.
621
622 $flags can be a combination of
623 "IO::AIO::SYNC_FILE_RANGE_WAIT_BEFORE",
624 "IO::AIO::SYNC_FILE_RANGE_WRITE" and
625 "IO::AIO::SYNC_FILE_RANGE_WAIT_AFTER": refer to the sync_file_range
626 manpage for details.
627
628 aio_pathsync $path, $callback->($status)
629 This request tries to open, fsync and close the given path. This is
630 a composite request intended to sync directories after directory
631 operations (E.g. rename). This might not work on all operating
632 systems or have any specific effect, but usually it makes sure that
633 directory changes get written to disc. It works for anything that
634 can be opened for read-only, not just directories.
635
636 Passes 0 when everything went ok, and -1 on error.
544 637
545 aio_group $callback->(...) 638 aio_group $callback->(...)
546 This is a very special aio request: Instead of doing something, it 639 This is a very special aio request: Instead of doing something, it
547 is a container for other aio requests, which is useful if you want 640 is a container for other aio requests, which is useful if you want
548 to bundle many requests into a single, composite, request with a 641 to bundle many requests into a single, composite, request with a
630 }; 723 };
631 724
632 This makes it very easy to create composite requests (see the source of 725 This makes it very easy to create composite requests (see the source of
633 "aio_move" for an application) that work and feel like simple requests. 726 "aio_move" for an application) that work and feel like simple requests.
634 727
635 * The IO::AIO::GRP objects will be cleaned up during calls to 728 * The IO::AIO::GRP objects will be cleaned up during calls to
636 "IO::AIO::poll_cb", just like any other request. 729 "IO::AIO::poll_cb", just like any other request.
730
637 * They can be canceled like any other request. Canceling will cancel not 731 * They can be canceled like any other request. Canceling will cancel
638 only the request itself, but also all requests it contains. 732 not only the request itself, but also all requests it contains.
733
639 * They can also can also be added to other IO::AIO::GRP objects. 734 * They can also can also be added to other IO::AIO::GRP objects.
735
640 * You must not add requests to a group from within the group callback 736 * You must not add requests to a group from within the group callback
641 (or any later time). 737 (or any later time).
642 738
643 Their lifetime, simplified, looks like this: when they are empty, they 739 Their lifetime, simplified, looks like this: when they are empty, they
644 will finish very quickly. If they contain only requests that are in the 740 will finish very quickly. If they contain only requests that are in the
645 "done" state, they will also finish. Otherwise they will continue to 741 "done" state, they will also finish. Otherwise they will continue to
646 exist. 742 exist.
647 743
648 That means after creating a group you have some time to add requests. 744 That means after creating a group you have some time to add requests
649 And in the callbacks of those requests, you can add further requests to 745 (precisely before the callback has been invoked, which is only done
650 the group. And only when all those requests have finished will the the 746 within the "poll_cb"). And in the callbacks of those requests, you can
651 group itself finish. 747 add further requests to the group. And only when all those requests have
748 finished will the the group itself finish.
652 749
653 add $grp ... 750 add $grp ...
654 $grp->add (...) 751 $grp->add (...)
655 Add one or more requests to the group. Any type of IO::AIO::REQ can 752 Add one or more requests to the group. Any type of IO::AIO::REQ can
656 be added, including other groups, as long as you do not create 753 be added, including other groups, as long as you do not create
663 request itself. Useful when you queued a lot of events but got a 760 request itself. Useful when you queued a lot of events but got a
664 result early. 761 result early.
665 762
666 $grp->result (...) 763 $grp->result (...)
667 Set the result value(s) that will be passed to the group callback 764 Set the result value(s) that will be passed to the group callback
668 when all subrequests have finished and set thre groups errno to the 765 when all subrequests have finished and set the groups errno to the
669 current value of errno (just like calling "errno" without an error 766 current value of errno (just like calling "errno" without an error
670 number). By default, no argument will be passed and errno is zero. 767 number). By default, no argument will be passed and errno is zero.
671 768
672 $grp->errno ([$errno]) 769 $grp->errno ([$errno])
673 Sets the group errno value to $errno, or the current value of errno 770 Sets the group errno value to $errno, or the current value of errno
699 does not impose any limits). 796 does not impose any limits).
700 797
701 If the feed does not queue more requests when called, it will be 798 If the feed does not queue more requests when called, it will be
702 automatically removed from the group. 799 automatically removed from the group.
703 800
704 If the feed limit is 0, it will be set to 2 automatically. 801 If the feed limit is 0 when this method is called, it will be set to
802 2 automatically.
705 803
706 Example: 804 Example:
707 805
708 # stat all files in @files, but only ever use four aio requests concurrently: 806 # stat all files in @files, but only ever use four aio requests concurrently:
709 807
719 limit $grp $num 817 limit $grp $num
720 Sets the feeder limit for the group: The feeder will be called 818 Sets the feeder limit for the group: The feeder will be called
721 whenever the group contains less than this many requests. 819 whenever the group contains less than this many requests.
722 820
723 Setting the limit to 0 will pause the feeding process. 821 Setting the limit to 0 will pause the feeding process.
822
823 The default value for the limit is 0, but note that setting a feeder
824 automatically bumps it up to 2.
724 825
725 SUPPORT FUNCTIONS 826 SUPPORT FUNCTIONS
726 EVENT PROCESSING AND EVENT LOOP INTEGRATION 827 EVENT PROCESSING AND EVENT LOOP INTEGRATION
727 $fileno = IO::AIO::poll_fileno 828 $fileno = IO::AIO::poll_fileno
728 Return the *request result pipe file descriptor*. This filehandle 829 Return the *request result pipe file descriptor*. This filehandle
732 833
733 See "poll_cb" for an example. 834 See "poll_cb" for an example.
734 835
735 IO::AIO::poll_cb 836 IO::AIO::poll_cb
736 Process some outstanding events on the result pipe. You have to call 837 Process some outstanding events on the result pipe. You have to call
737 this regularly. Returns the number of events processed. Returns 838 this regularly. Returns 0 if all events could be processed, or -1 if
738 immediately when no events are outstanding. The amount of events 839 it returned earlier for whatever reason. Returns immediately when no
840 events are outstanding. The amount of events processed depends on
739 processed depends on the settings of "IO::AIO::max_poll_req" and 841 the settings of "IO::AIO::max_poll_req" and
740 "IO::AIO::max_poll_time". 842 "IO::AIO::max_poll_time".
741 843
742 If not all requests were processed for whatever reason, the 844 If not all requests were processed for whatever reason, the
743 filehandle will still be ready when "poll_cb" returns. 845 filehandle will still be ready when "poll_cb" returns, so normally
846 you don't have to do anything special to have it called later.
744 847
745 Example: Install an Event watcher that automatically calls 848 Example: Install an Event watcher that automatically calls
746 IO::AIO::poll_cb with high priority: 849 IO::AIO::poll_cb with high priority:
747 850
748 Event->io (fd => IO::AIO::poll_fileno, 851 Event->io (fd => IO::AIO::poll_fileno,
854 957
855 The default is probably ok in most situations, especially if thread 958 The default is probably ok in most situations, especially if thread
856 creation is fast. If thread creation is very slow on your system you 959 creation is fast. If thread creation is very slow on your system you
857 might want to use larger values. 960 might want to use larger values.
858 961
859 $oldmaxreqs = IO::AIO::max_outstanding $maxreqs 962 IO::AIO::max_outstanding $maxreqs
860 This is a very bad function to use in interactive programs because 963 This is a very bad function to use in interactive programs because
861 it blocks, and a bad way to reduce concurrency because it is 964 it blocks, and a bad way to reduce concurrency because it is
862 inexact: Better use an "aio_group" together with a feed callback. 965 inexact: Better use an "aio_group" together with a feed callback.
863 966
864 Sets the maximum number of outstanding requests to $nreqs. If you do 967 Sets the maximum number of outstanding requests to $nreqs. If you do
868 971
869 The default value is very large, so there is no practical limit on 972 The default value is very large, so there is no practical limit on
870 the number of outstanding requests. 973 the number of outstanding requests.
871 974
872 You can still queue as many requests as you want. Therefore, 975 You can still queue as many requests as you want. Therefore,
873 "max_oustsanding" is mainly useful in simple scripts (with low 976 "max_outstanding" is mainly useful in simple scripts (with low
874 values) or as a stop gap to shield against fatal memory overflow 977 values) or as a stop gap to shield against fatal memory overflow
875 (with large values). 978 (with large values).
876 979
877 STATISTICAL INFORMATION 980 STATISTICAL INFORMATION
878 IO::AIO::nreqs 981 IO::AIO::nreqs
928 1031
929KNOWN BUGS 1032KNOWN BUGS
930 Known bugs will be fixed in the next release. 1033 Known bugs will be fixed in the next release.
931 1034
932SEE ALSO 1035SEE ALSO
933 Coro::AIO. 1036 AnyEvent::AIO for easy integration into event loops, Coro::AIO for a
1037 more natural syntax.
934 1038
935AUTHOR 1039AUTHOR
936 Marc Lehmann <schmorp@schmorp.de> 1040 Marc Lehmann <schmorp@schmorp.de>
937 http://home.schmorp.de/ 1041 http://home.schmorp.de/
938 1042

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines