1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Conflicts:
	meta/Makefile.am
This commit is contained in:
Andy Wingo 2015-01-22 13:32:59 +01:00
commit 7c6ce75e2c
2 changed files with 49 additions and 21 deletions

View file

@ -443,8 +443,12 @@ open.
@deffn {Scheme Procedure} seek fd_port offset whence
@deffnx {C Function} scm_seek (fd_port, offset, whence)
Sets the current position of @var{fd_port} to the integer
@var{offset}, which is interpreted according to the value of
@var{whence}.
@var{offset}. For a file port, @var{offset} is expressed
as a number of bytes; for other types of ports, such as string
ports, @var{offset} is an abstract representation of the
position within the port's data, not necessarily expressed
as a number of bytes. @var{offset} is interpreted according to
the value of @var{whence}.
One of the following variables should be supplied for
@var{whence}:
@ -460,7 +464,7 @@ Seek from the end of the file.
If @var{fd_port} is a file descriptor, the underlying system
call is @code{lseek}. @var{port} may be a string port.
The value returned is the new position in the file. This means
The value returned is the new position in @var{fd_port}. This means
that the current position of a port can be obtained using:
@lisp
(seek port 0 SEEK_CUR)

View file

@ -48,26 +48,50 @@ aclocal_DATA = guile.m4
# Script to instantiate substitution variables found on the standard
# input. We do this from the Makefile because we need things like
# $(program_transform_name), which are not usable from 'configure.ac'.
substitute = \
guile="`echo guile | $(SED) -e '$(program_transform_name)'`" ; \
guild="`echo guild | $(SED) -e '$(program_transform_name)'`" ; \
installed_guile="@bindir@/$$guile" ; \
$(SED) -e "s,[@]PACKAGE_NAME[@],$(PACKAGE_NAME),g" \
-e "s,[@]PACKAGE_BUGREPORT[@],$(PACKAGE_BUGREPORT),g" \
-e "s,[@]PKG_CONFIG[@],$(PKG_CONFIG),g" \
-e "s,[@]pkgconfigdir[@],$(pkgconfigdir),g" \
-e "s,[@]prefix[@],$(prefix),g" \
-e "s,[@]exec_prefix[@],$(exec_prefix),g" \
-e "s,[@]bindir[@],$(bindir),g" \
-e "s,[@]libdir[@],$(libdir),g" \
-e "s,[@]includedir[@],$(includedir),g" \
-e "s,[@]datarootdir[@],$(datarootdir),g" \
-e "s,[@]datadir[@],$(datadir),g" \
-e "s,[@]sitedir[@],$(sitedir),g" \
-e "s,[@]guile[@],$$guile,g" \
-e "s,[@]guild[@],$$guild,g" \
substitute = \
guile="`echo guile | $(SED) -e '$(program_transform_name)'`" ; \
guild="`echo guild | $(SED) -e '$(program_transform_name)'`" ; \
installed_guile="@bindir@/$$guile" ; \
$(SED) -e "s,[@]PACKAGE_NAME[@],$(PACKAGE_NAME),g" \
-e "s,[@]PACKAGE_BUGREPORT[@],$(PACKAGE_BUGREPORT),g" \
-e "s,[@]GUILE_EFFECTIVE_VERSION[@],$(GUILE_EFFECTIVE_VERSION),g" \
-e "s,[@]GUILE_VERSION[@],$(GUILE_VERSION),g" \
-e "s,[@]GUILE_CFLAGS[@],$(GUILE_CFLAGS),g" \
-e "s,[@]GUILE_LIBS[@],$(GUILE_LIBS),g" \
-e "s,[@]LIBGUILE_INTERFACE[@],$(LIBGUILE_INTERFACE),g" \
$(dependency_substitutions) \
-e "s,[@]PKG_CONFIG[@],$(PKG_CONFIG),g" \
-e "s,[@]pkgconfigdir[@],$(pkgconfigdir),g" \
-e "s,[@]prefix[@],$(prefix),g" \
-e "s,[@]exec_prefix[@],$(exec_prefix),g" \
-e "s,[@]bindir[@],$(bindir),g" \
-e "s,[@]libdir[@],$(libdir),g" \
-e "s,[@]includedir[@],$(includedir),g" \
-e "s,[@]datarootdir[@],$(datarootdir),g" \
-e "s,[@]datadir[@],$(datadir),g" \
-e "s,[@]sitedir[@],$(sitedir),g" \
-e "s,[@]guile[@],$$guile,g" \
-e "s,[@]guild[@],$$guild,g" \
-e "s,[@]installed_guile[@],$$installed_guile,g"
# Substitutions for dependencies that appear in 'guile-2.0.pc'.
dependency_substitutions = \
-e "s,[@]BDW_GC_CFLAGS[@],$(BDW_GC_CFLAGS),g" \
-e "s,[@]BDW_GC_LIBS[@],$(BDW_GC_LIBS),g" \
-e "s,[@]LIB_CLOCK_GETTIME[@],$(LIB_CLOCK_GETTIME),g" \
-e "s,[@]LIBGMP[@],$(LIBGMP),g" \
-e "s,[@]LIBLTDL[@],$(LIBLTDL),g" \
-e "s,[@]LIBFFI_LIBS[@],$(LIBFFI_LIBS),g" \
-e "s,[@]LIBUNISTRING[@],$(LIBUNISTRING),g" \
-e "s,[@]LIBICONV[@],$(LIBICONV),g" \
-e "s,[@]LIBINTL[@],$(LIBINTL),g" \
-e "s,[@]LIBSOCKET[@],$(LIBSOCKET),g" \
-e "s,[@]SERVENT_LIB[@],$(SERVENT_LIB),g" \
-e "s,[@]HOSTENT_LIB[@],$(HOSTENT_LIB),g" \
-e "s,[@]GETADDRINFO_LIB[@],$(GETADDRINFO_LIB),g" \
-e "s,[@]INET_NTOP_LIB[@],$(INET_NTOP_LIB),g" \
-e "s,[@]INET_PTON_LIB[@],$(INET_PTON_LIB),g"
guile-$(GUILE_EFFECTIVE_VERSION).pc: guile-$(GUILE_EFFECTIVE_VERSION).pc.in
$(substitute) < "$<" > "$@.out"
mv "$@.out" "$@"