[packages/scm] - new

qboosh qboosh at pld-linux.org
Sun Apr 20 11:06:46 CEST 2014


commit cb67aca3a1bf5c95a265ae3c9621b5209a26b114
Author: Jakub Bogusz <qboosh at pld-linux.org>
Date:   Sun Apr 20 11:08:47 2014 +0200

    - new

 scm-info.patch    |  33 +++++
 scm-install.patch |  12 ++
 scm-texinfo.patch | 404 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 scm.spec          |  94 +++++++++++++
 4 files changed, 543 insertions(+)
---
diff --git a/scm.spec b/scm.spec
new file mode 100644
index 0000000..c91d3b2
--- /dev/null
+++ b/scm.spec
@@ -0,0 +1,94 @@
+%define	slib_ver	3b4
+Summary:	Scheme implementation
+Summary(pl.UTF-8):	Implementacja Scheme
+Name:		scm
+Version:	5f1
+Release:	1
+License:	LGPL v3+
+Group:		Development/Languages/Scheme
+Source0:	http://groups.csail.mit.edu/mac/ftpdir/scm/%{name}-%{version}.zip
+# Source0-md5:	98be8275f5c69d234c55a8a995a500dd
+Source1:	http://groups.csail.mit.edu/mac/ftpdir/scm/slib-%{slib_ver}.tar.gz
+# Source1-md5:	dcada65c4df4209c8f71211095bcef8e
+Patch0:		%{name}-info.patch
+Patch1:		%{name}-install.patch
+Patch2:		%{name}-texinfo.patch
+URL:		http://people.csail.mit.edu/jaffer/SCM
+BuildRequires:	sed >= 4.0
+BuildRequires:	texinfo
+Requires:	slib >= %{slib_ver}
+BuildRoot:	%{tmpdir}/%{name}-%{version}-root-%(id -u -n)
+
+%description
+SCM is a portable Scheme language implementation. SCM conforms to
+Revised^5 Report on the Algorithmic Language Scheme and the IEEE P1178
+specification.
+
+%description -l pl.UTF-8
+SCM jest przenośną implementacją języka Scheme. SCM jest zgodna ze
+specyfikacją Revised^5 Report on the Algorithmic Language Scheme oraz
+IEEE P1178.
+
+%prep
+%setup -q -c -a1
+%patch0 -p0
+%patch1 -p0
+%patch2 -p0
+
+ln -s slib-%{slib_ver} slib
+
+%{__sed} -i -e 's/install-lib install-infoz /install-lib install-info /' scm/Makefile
+
+%build
+cd scm
+# not autoconf-generated
+./configure \
+	--prefix=%{_prefix} \
+	--libdir=%{_libdir}
+
+%{__make} scm.info Xlibscm.info hobbit.info
+
+%{__make} scmlit \
+	CC="%{__cc} %{rpmcflags}" \
+	LD="%{__cc} %{rpmldflags} %{rpmcflags}"
+%{__make} all \
+	CC="%{__cc} %{rpmcflags}" \
+	LD="%{__cc} %{rpmldflags} %{rpmcflags}"
+
+%install
+rm -rf $RPM_BUILD_ROOT
+
+%{__make} -C scm install \
+	DESTDIR=$RPM_BUILD_ROOT
+
+# let rpm autogenerate depecdencies
+chmod 755 $RPM_BUILD_ROOT%{_libdir}/scm/*.so
+
+%clean
+rm -rf $RPM_BUILD_ROOT
+
+%post	-p /sbin/postshell
+-/usr/sbin/fix-info-dir -c %{_infodir}
+
+%postun	-p /sbin/postshell
+-/usr/sbin/fix-info-dir -c %{_infodir}
+
+%files
+%defattr(644,root,root,755)
+%doc scm/{ANNOUNCE,ChangeLog,QUICKREF,README}
+%attr(755,root,root) %{_bindir}/scm
+%attr(755,root,root) %{_bindir}/scmlit
+%dir %{_libdir}/scm
+%attr(755,root,root) %{_libdir}/scm/*.so
+%attr(755,root,root) %{_libdir}/scm/build
+%{_libdir}/scm/*.scm
+%{_libdir}/scm/*.h
+%{_libdir}/scm/COPYING
+%{_libdir}/scm/COPYING.LESSER
+%{_includedir}/scm.h
+%{_includedir}/scmfig.h
+%{_includedir}/scmflags.h
+%{_mandir}/man1/scm.1*
+%{_infodir}/Xlibscm.info*
+%{_infodir}/hobbit.info*
+%{_infodir}/scm.info*
diff --git a/scm-info.patch b/scm-info.patch
new file mode 100644
index 0000000..3f31420
--- /dev/null
+++ b/scm-info.patch
@@ -0,0 +1,33 @@
+--- scm/Xlibscm.texi.orig	2009-03-21 05:45:22.000000000 +0100
++++ scm/Xlibscm.texi	2014-04-11 22:43:32.112989044 +0200
+@@ -37,7 +37,7 @@
+ 
+ @dircategory The Algorithmic Language Scheme
+ @direntry
+-* XlibScm: (XlibScm).   SCM Language X Interface.
++* XlibScm: (XlibScm).			SCM Language X Interface
+ @end direntry
+ 
+ @iftex
+--- scm/hobbit.texi.orig	2011-10-25 23:41:13.000000000 +0200
++++ scm/hobbit.texi	2014-04-11 22:43:55.582988556 +0200
+@@ -35,7 +35,7 @@
+ 
+ @dircategory The Algorithmic Language Scheme
+ @direntry
+-* hobbit: (hobbit).   SCM Compiler.
++* hobbit: (hobbit).			SCM Compiler
+ @end direntry
+ 
+ @iftex
+--- scm/scm.texi.orig	2011-11-24 18:39:03.000000000 +0100
++++ scm/scm.texi	2014-04-11 22:44:31.992987801 +0200
+@@ -30,7 +30,7 @@
+ 
+ @dircategory The Algorithmic Language Scheme
+ @direntry
+-* SCM: (scm).           A Scheme interpreter.
++* SCM: (scm).				A Scheme interpreter
+ @end direntry
+ 
+ @iftex
diff --git a/scm-install.patch b/scm-install.patch
new file mode 100644
index 0000000..6bd753f
--- /dev/null
+++ b/scm-install.patch
@@ -0,0 +1,12 @@
+--- scm/Makefile.orig	2013-03-10 04:29:54.000000000 +0100
++++ scm/Makefile	2014-04-12 12:17:41.251970877 +0200
+@@ -619,9 +619,7 @@
+ 
+ install: install-man install-lib install-infoz installdirs
+ 	$(INSTALL_PROGRAM) scm scmlit $(DESTDIR)$(bindir)
+-	-strip $(DESTDIR)$(bindir)scmlit
+ 	$(INSTALL_DATA) scm.h scmfig.h scmflags.h $(DESTDIR)$(includedir)
+-	$(DESTDIR)$(bindir)scm -br new-catalog
+ 
+ uninstall:
+ 	$(PRE_UNINSTALL)     # Pre-uninstall commands follow.
diff --git a/scm-texinfo.patch b/scm-texinfo.patch
new file mode 100644
index 0000000..b459a18
--- /dev/null
+++ b/scm-texinfo.patch
@@ -0,0 +1,404 @@
+--- scm/scm.texi.orig	2014-04-12 22:49:42.834513806 +0200
++++ scm/scm.texi	2014-04-20 08:38:52.824504413 +0200
+@@ -1700,8 +1700,9 @@
+ @defun getenv name
+ Looks up @var{name}, a string, in the program environment.  If @var{name} is
+ found a string of its value is returned.  Otherwise, @code{#f} is returned.
++ at end defun
+ 
+- at defunx getenv
++ at defun getenv
+ Returns names and values of all the environment variables as an
+ association-list.
+ 
+@@ -1726,8 +1727,9 @@
+ The value of the environment variable @code{EDITOR} (or just @code{ed}
+ if it isn't defined) is invoked as a command with arguments @var{arg1}
+ @dots{}.
++ at end defun
+ 
+- at defunx ed filename
++ at defun ed filename
+ If SCM is compiled under VMS @code{ed} will invoke the editor with a
+ single the single argument @var{filename}.
+ @end defun
+@@ -1813,7 +1815,9 @@
+ 
+ @defmac trace proc1 @dots{}
+ Traces the top-level named procedures given as arguments.
+- at defmacx trace
++ at end defmac
++
++ at defmac trace
+ With no arguments, makes sure that all the currently traced identifiers
+ are traced (even if those identifiers have been redefined) and returns a
+ list of the traced identifiers.
+@@ -1821,7 +1825,9 @@
+ 
+ @defmac untrace proc1 @dots{}
+ Turns tracing off for its arguments.
+- at defmacx untrace
++ at end defmac
++
++ at defmac untrace
+ With no arguments, untraces all currently traced identifiers and returns
+ a list of these formerly traced identifiers.
+ @end defmac
+@@ -2284,8 +2290,9 @@
+ Returns the path (string) which SCM uses to find the executable file
+ whose invocation the currently running session is, or #f if the path is
+ not set.
++ at end defun
+ 
+- at defunx execpath #f
++ at defun execpath #f
+ @defunx execpath newpath
+ Sets the path to @code{#f} or @var{newpath}, respectively.  The old path
+ is returned.
+@@ -2599,10 +2606,10 @@
+ @itemx @code{exact->inexact}
+ @itemx @code{inexact->exact}
+ @xref{Numerical operations, , , r5rs, Revised(5) Scheme}.
+- at itemx @code{with-input-from-file}
++ at item @code{with-input-from-file}
+ @itemx @code{with-output-to-file}
+ @xref{Ports, , , r5rs, Revised(5) Scheme}.
+- at itemx @code{load}
++ at item @code{load}
+ @itemx @code{transcript-on}
+ @itemx @code{transcript-off}
+ @xref{System interface, , , r5rs, Revised(5) Scheme}.
+@@ -3008,8 +3015,9 @@
+ Returns the current position of the character in @var{port} which will
+ next be read or written.  If @var{port} is open to a non-file then
+ @code{#f} is returned.
++ at end defun
+ 
+- at defunx file-position port k
++ at defun file-position port k
+ Sets the current position in @var{port} which will next be read or
+ written.  If successful, @code{#f} is returned.  If @var{port} is open
+ to a non-file, then @code{file-position} returns @code{#f}.
+@@ -3399,8 +3407,9 @@
+ @defun comment string1 @dots{}
+ Appends @var{string1} @dots{} to the strings given as arguments to
+ previous calls @code{comment}.
++ at end defun
+ 
+- at defunx comment
++ at defun comment
+ Returns the (appended) strings given as arguments to previous calls
+ @code{comment} and empties the current string collection.
+ @end defun
+@@ -3423,8 +3432,9 @@
+ @code{#<unspecified>} in which case the expression will be treated as
+ whitespace.  @code{#<unspecified>} is the value returned by the
+ expression @code{(if #f #f)}.
++ at end deffn
+ 
+- at deffnx {Callback procedure} load:sharp c port
++ at deffn {Callback procedure} load:sharp c port
+ Dispatches like @code{read:sharp}, but only during @code{load}s.  The
+ read-syntaxes handled by @code{load:sharp} are a superset of those
+ handled by @code{read:sharp}.  @code{load:sharp} calls
+@@ -4818,12 +4828,14 @@
+ each file in @var{directory}.  The dynamic order in which @var{proc} is
+ applied to the filenames is unspecified.  The value returned by
+ @samp{directory-for-each} is unspecified.
++ at end defun
+ 
+- at defunx directory-for-each proc directory pred
++ at defun directory-for-each proc directory pred
+ Applies @var{proc} only to those filenames for which the procedure
+ @var{pred} returns a non-false value.
++ at end defun
+ 
+- at defunx directory-for-each proc directory match
++ at defun directory-for-each proc directory match
+ Applies @var{proc} only to those filenames for which
+ @code{(filename:match?? @var{match})} would return a non-false value
+ (@pxref{Filenames, , , slib, SLIB}).
+@@ -4959,8 +4971,9 @@
+ 
+ If successful, this procedure does not return.  Otherwise an error
+ message is printed and the integer @code{errno} is returned.
++ at end defun
+ 
+- at defunx execv command arglist
++ at defun execv command arglist
+ @defunx execvp command arglist
+ Like @code{execl} and @code{execlp} except that the set of arguments to
+ @var{command} is @var{arglist}.
+@@ -5239,8 +5252,9 @@
+ 
+ @defun setpwent #t
+ Rewinds the pw entry table back to the begining.
++ at end defun
+ 
+- at defunx setpwent #f
++ at defun setpwent #f
+ @defunx setpwent
+ Closes the pw table.
+ @end defun
+@@ -5267,8 +5281,9 @@
+ 
+ @defun setgrent #t
+ Rewinds the group entry table back to the begining.
++ at end defun
+ 
+- at defunx setgrent #f
++ at defun setgrent #f
+ @defunx setgrent
+ Closes the group table.
+ @end defun
+@@ -5553,8 +5568,9 @@
+ 
+ @defun line-editing
+ Returns the current edited line port or @code{#f}.
++ at end defun
+ 
+- at defunx line-editing bool
++ at defun line-editing bool
+ If @var{bool} is false, exits line-editing mode and returns the previous
+ value of @code{(line-editing)}.  If @var{bool} is true, sets the current
+ input and output ports to an edited line port and returns the previous
+@@ -6555,8 +6571,9 @@
+ @code{letrec}, @code{or}, @code{quote}, @code{set!}, @code{#f},
+ @code{#t}, @code{#<undefined>}, @code{#<eof>}, @code{()}, and
+ @code{#<unspecified>}.
++ at end deftp
+ 
+- at deftpx {CAR Immediate} ispcsym
++ at deftp {CAR Immediate} ispcsym
+ special symbols: syntax-checked versions of first 14 isyms
+ @end deftp
+ 
+@@ -6682,8 +6699,9 @@
+ 
+ @deftp Header tc7_ssymbol
+ static scheme symbol (part of initial system)
++ at end deftp
+ 
+- at deftpx Header tc7_msymbol
++ at deftp Header tc7_msymbol
+ @code{malloc}ed scheme symbol (can be GCed)
+ 
+ @defmac SYMBOLP x
+@@ -7754,8 +7772,9 @@
+ @code{deferred_proc} is set to non-zero, one of the global variables
+ @code{SIGINT_deferred} or @code{SIGALRM_deferred} is set to 1, and the
+ handler returns.
++ at end defmac
+ 
+- at defmacx ALLOW_INTS
++ at defmac ALLOW_INTS
+ Checks the deferred variables and if set the appropriate handler is
+ called.
+ 
+@@ -8339,8 +8358,9 @@
+ 
+ @code{scm_addr} is useful for performing C operations on strings or
+ other uniform arrays (@pxref{Uniform Array}).
++ at end deftypefun
+ 
+- at deftypefunx unsigned long scm_base_addr(SCM @var{ra}, char *@var{s_name})
++ at deftypefun unsigned long scm_base_addr(SCM @var{ra}, char *@var{s_name})
+ Returns a pointer (cast to an @code{unsigned long}) to the beginning
+ of storage of array @var{ra}.  Note that if @var{ra} is a
+ shared-array, the strorage accessed this way may be much larger than
+--- scm/Xlibscm.texi.orig	2014-04-20 09:17:36.657789313 +0200
++++ scm/Xlibscm.texi	2014-04-20 09:44:30.514422341 +0200
+@@ -257,8 +257,9 @@
+ Returns the root window for the specified @var{screen-number}.  Use
+ @code{x:root-window} for functions that need a drawable of a particular
+ screen or for creating top-level windows.
++ at end defun
+ 
+- at defunx x:root-window window
++ at defun x:root-window window
+ Returns the root window for the specified @var{window}'s screen.
+ @end defun
+ 
+@@ -345,7 +346,8 @@
+ 
+ @defun x:screen-depth display screen-number
+ Returns the depth of the root window of the specified screen.
+- at defunx x:screen-depth display
++ at end defun
++ at defun x:screen-depth display
+ @defunx x:screen-depth window
+ @defunx x:screen-depth visual
+ Returns the depth of argument.
+@@ -420,8 +422,9 @@
+ 
+ The returned window will have the attributes specified by
+ @var{field-name}s and @var{value}.
++ at end defun
+ 
+- at defunx x:create-window window position size border-width border background
++ at defun x:create-window window position size border-width border background
+ The returned window inherits its depth, class, and visual from its
+ parent.  All other window attributes, except @var{background} and
+ @var{border}, have their default values.
+@@ -909,7 +912,8 @@
+ @defun x:get-window-property window property 
+ Returns the (string or list of numbers) value of @var{property} of
+ @var{window}.
+- at defunx x:get-window-property window property #t
++ at end defun
++ at defun x:get-window-property window property #t
+ Removes and returns the (string or list of numbers) value of
+ @var{property} of @var{window}.
+ @end defun
+@@ -1392,8 +1396,9 @@
+ initial colors of a cursor are a black foreground and a white background
+ (see X:Recolor-Cursor).  The names of all cursor shapes are defined with
+ the prefix XC: in @file{x11.scm}.
++ at end defun
+ 
+- at defunx x:create-cursor source-font source-char mask-font mask-char fgc bgc
++ at defun x:create-cursor source-font source-char mask-font mask-char fgc bgc
+ Creates a cursor from the source and mask bitmaps obtained from the
+ specified font glyphs.  The integer @var{source-char} must be a defined
+ glyph in @var{source-font}.  The integer @var{mask-char} must be a
+@@ -1402,12 +1407,14 @@
+ hotspot.  The @var{source-char} and @var{mask-char} need not have the
+ same bounding box metrics, and there is no restriction on the placement
+ of the hotspot relative to the bounding boxes.
++ at end defun
+ 
+- at defunx x:create-cursor source-font source-char #f #f fgc bgc
++ at defun x:create-cursor source-font source-char #f #f fgc bgc
+ If @var{mask-font} and @var{mask-char} are #f, all pixels of the source
+ are displayed.
++ at end defun
+ 
+- at defunx x:create-cursor source-pixmap mask-pixmap fgc bgc origin
++ at defun x:create-cursor source-pixmap mask-pixmap fgc bgc origin
+ @var{mask-pixmap} must be the same size as the pixmap defined by the
+ @var{source-pixmap} argument.  The foreground and background RGB values
+ must be specified using @var{foreground-color} and
+@@ -1422,8 +1429,9 @@
+ @var{mask-pixmap} defines the shape of the cursor.  The pixels set to 1
+ in @var{mask-pixmap} define which source pixels are displayed, and the
+ pixels set to 0 define which pixels are ignored.
++ at end defun
+ 
+- at defunx x:create-cursor source-pixmap #f fgc bgc origin
++ at defun x:create-cursor source-pixmap #f fgc bgc origin
+ If @var{mask-pixmap} is #f, all pixels of the source are displayed.
+ @end defun
+ 
+@@ -1538,9 +1546,9 @@
+ @code{X:Alloc-Color-Cells} returns a list of two uniform arrays if it
+ succeeded or #f if it failed.  The first array has the pixels allocated
+ and the second has the plane-masks.
++ at end defun
+ 
+-
+- at defunx x:alloc-colormap-cells colormap ncolors rgb
++ at defun x:alloc-colormap-cells colormap ncolors rgb
+ @defunx x:alloc-colormap-cells colormap ncolors rgb contiguous?
+ 
+ The specified @var{ncolors} must be positive; and @var{rgb} a list or
+@@ -1596,8 +1604,9 @@
+ @var{rgb} is a list or vector of 3 integers, describing the red, green,
+ and blue intensities respectively; or an integer @samp{#x at i{rrggbb}},
+ packing red, green and blue intensities in the range 0 - 255.
++ at end defun
+ 
+- at defunx x:colormap-find-color colormap color-name
++ at defun x:colormap-find-color colormap color-name
+ 
+ The case-insensitive string @var{color_name} specifies the name of a
+ color (for example, @file{red})
+@@ -1630,8 +1639,9 @@
+ @var{rgb} is a list or vector of 3 integers, describing the red, green,
+ and blue intensities respectively; or an integer @samp{#x at i{rrggbb}},
+ packing red, green and blue intensities in the range 0 - 255.
++ at end defun
+ 
+- at defunx X:Color-Set! colormap pixel color-name
++ at defun X:Color-Set! colormap pixel color-name
+ 
+ The case-insensitive string @var{color_name} specifies the name of a
+ color (for example, @file{red})
+@@ -1671,8 +1681,9 @@
+ function because the output buffer is automatically flushed as needed by
+ calls to X:Pending, X:Next-Event, and X:Window-Event.  Events generated
+ by the server may be enqueued into the library's event queue.
++ at end defun
+ 
+- at defunx x:flush gc
++ at defun x:flush gc
+ Forces sending of GC component changes.
+ 
+ Xlib usually defers sending changes to the components of a GC to the
+@@ -1726,12 +1737,14 @@
+ 
+ @defun x:draw-points drawable gc position @dots{}
+ @var{Position} @dots{} specifies coordinates of the point to be drawn.
++ at end defun
+ 
+- at defunx x:draw-points drawable gc x y @dots{}
++ at defun x:draw-points drawable gc x y @dots{}
+ (@var{x}, @var{y}) @dots{} specifies coordinates of the point to be
+ drawn.
++ at end defun
+ 
+- at defunx x:draw-points drawable gc point-array
++ at defun x:draw-points drawable gc point-array
+ @var{point-array} is a uniform short array of rank 2, whose rightmost
+ index spans a range of 2.
+ 
+@@ -1748,12 +1761,14 @@
+ @defun x:draw-segments drawable gc pos1 pos2 @dots{}
+ @var{Pos1}, @var{pos2}, @dots{} specify coordinates to be connected by
+ segments.
++ at end defun
+ 
+- at defunx x:draw-segments drawable gc x1 y1 x2 y2 @dots{}
++ at defun x:draw-segments drawable gc x1 y1 x2 y2 @dots{}
+ (@var{x1}, @var{y1}), (@var{x2}, @var{y2}) @dots{} specify coordinates
+ to be connected by segments.
++ at end defun
+ 
+- at defunx x:draw-segments drawable gc point-array
++ at defun x:draw-segments drawable gc point-array
+ @var{point-array} is a uniform short array of rank 2, whose rightmost
+ index spans a range of 2.
+ 
+@@ -1779,12 +1794,14 @@
+ @defun x:draw-lines drawable gc pos1 pos2 @dots{}
+ @var{Pos1}, @var{pos2}, @dots{} specify coordinates to be connected by
+ lines.
++ at end defun
+ 
+- at defunx x:draw-lines drawable gc x1 y1 x2 y2 @dots{}
++ at defun x:draw-lines drawable gc x1 y1 x2 y2 @dots{}
+ (@var{x1}, @var{y1}), (@var{x2}, @var{y2}) @dots{} specify coordinates
+ to be connected by lines.
++ at end defun
+ 
+- at defunx x:draw-lines drawable gc point-array
++ at defun x:draw-lines drawable gc point-array
+ @var{point-array} is a uniform short array of rank 2, whose rightmost
+ index spans a range of 2.
+ 
+@@ -1810,12 +1827,14 @@
+ 
+ @defun x:fill-polygon drawable gc pos1 pos2 @dots{}
+ @var{Pos1}, @var{pos2}, @dots{} specify coordinates of the border path.
++ at end defun
+ 
+- at defunx x:fill-polygon drawable gc x1 y1 x2 y2 @dots{}
++ at defun x:fill-polygon drawable gc x1 y1 x2 y2 @dots{}
+ (@var{x1}, @var{y1}), (@var{x2}, @var{y2}) @dots{} specify coordinates
+ of the border path.
++ at end defun
+ 
+- at defunx x:fill-polygon drawable gc point-array
++ at defun x:fill-polygon drawable gc point-array
+ @var{point-array} is a uniform short array of rank 2, whose rightmost
+ index spans a range of 2.
+ 
================================================================

---- gitweb:

http://git.pld-linux.org/gitweb.cgi/packages/scm.git/commitdiff/cb67aca3a1bf5c95a265ae3c9621b5209a26b114



More information about the pld-cvs-commit mailing list