Dear all, For some reason my (automated) messages to oorexx-svn list are rejected. The committed items go through but until this issue is solved I will forward the messages here. Sorry for spamming but I do not know what else to do, I am subscribed to the list afaik.
Hälsningar/Regards/Grüsse, P.O. Jonsson oor...@jonases.se > Anfang der weitergeleiteten Nachricht: > > Von: oorexx-svn-ow...@lists.sourceforge.net > Betreff: SF.net SVN: oorexx-code-0:[12018] main/trunk > Datum: 29. März 2020 um 17:01:08 MESZ > An: perolovjons...@users.sf.net > > Your message has been rejected, probably because you are not > subscribed to the mailing list and the list's policy is to prohibit > non-members from posting to it. If you think that your messages are > being rejected in error, contact the mailing list owner at > oorexx-svn-ow...@lists.sourceforge.net. > > > Von: perolovjons...@users.sf.net > Betreff: SF.net SVN: oorexx-code-0:[12018] main/trunk > Datum: 29. März 2020 um 17:01:05 MESZ > An: oorexx-...@lists.sourceforge.net > > > Revision: 12018 > http://sourceforge.net/p/oorexx/code-0/12018 > Author: perolovjonsson > Date: 2020-03-29 15:01:05 +0000 (Sun, 29 Mar 2020) > Log Message: > ----------- > adding factor.rex from 4.2; amending copyright; amending CMakeLists.txt > > Modified Paths: > -------------- > main/trunk/CMakeLists.txt > > Added Paths: > ----------- > main/trunk/samples/factor.rex > > Modified: main/trunk/CMakeLists.txt > =================================================================== > --- main/trunk/CMakeLists.txt 2020-03-28 20:30:31 UTC (rev 12017) > +++ main/trunk/CMakeLists.txt 2020-03-29 15:01:05 UTC (rev 12018) > @@ -1703,6 +1703,7 @@ > configure_build_file(rexxtry.rex ${build_samples_dir}) > configure_build_file(rexxcps.rex ${build_samples_dir}) > configure_build_file(ccreply.rex ${build_samples_dir}) > +configure_build_file(factor.rex ${build_samples_dir}) > configure_build_file(greply.rex ${build_samples_dir}) > configure_build_file(guess.rex ${build_samples_dir}) > configure_build_file(ktguard.rex ${build_samples_dir}) > @@ -1773,6 +1774,7 @@ > # common sample programs > install(PROGRAMS ${CMAKE_SAMPLES_OUTPUT_DIRECTORY}/rexxcps.rex COMPONENT > Samples DESTINATION ${INSTALL_SAMPLES_DIR}) > install(PROGRAMS ${CMAKE_SAMPLES_OUTPUT_DIRECTORY}/ccreply.rex COMPONENT > Samples DESTINATION ${INSTALL_SAMPLES_DIR}) > +install(PROGRAMS ${CMAKE_SAMPLES_OUTPUT_DIRECTORY}/factor.rex COMPONENT > Samples DESTINATION ${INSTALL_SAMPLES_DIR}) > install(PROGRAMS ${CMAKE_SAMPLES_OUTPUT_DIRECTORY}/greply.rex COMPONENT > Samples DESTINATION ${INSTALL_SAMPLES_DIR}) > install(PROGRAMS ${CMAKE_SAMPLES_OUTPUT_DIRECTORY}/guess.rex COMPONENT > Samples DESTINATION ${INSTALL_SAMPLES_DIR}) > install(PROGRAMS ${CMAKE_SAMPLES_OUTPUT_DIRECTORY}/ktguard.rex COMPONENT > Samples DESTINATION ${INSTALL_SAMPLES_DIR}) > > Added: main/trunk/samples/factor.rex > =================================================================== > --- main/trunk/samples/factor.rex (rev 0) > +++ main/trunk/samples/factor.rex 2020-03-29 15:01:05 UTC (rev 12018) > @@ -0,0 +1,70 @@ > +#!@OOREXX_SHEBANG_PROGRAM@ > +/*----------------------------------------------------------------------------*/ > +/* > */ > +/* Copyright (c) 1995, 2004 IBM Corporation. All rights reserved. > */ > +/* Copyright (c) 2005-2020 Rexx Language Association. All rights reserved. > */ > +/* > */ > +/* This program and the accompanying materials are made available under > */ > +/* the terms of the Common Public License v1.0 which accompanies this > */ > +/* distribution. A copy is also available at the following address: > */ > +/* http://www.oorexx.org/license.html */ > +/* > */ > +/* Redistribution and use in source and binary forms, with or > */ > +/* without modification, are permitted provided that the following > */ > +/* conditions are met: > */ > +/* > */ > +/* Redistributions of source code must retain the above copyright > */ > +/* notice, this list of conditions and the following disclaimer. > */ > +/* Redistributions in binary form must reproduce the above copyright > */ > +/* notice, this list of conditions and the following disclaimer in > */ > +/* the documentation and/or other materials provided with the distribution. > */ > +/* > */ > +/* Neither the name of Rexx Language Association nor the names > */ > +/* of its contributors may be used to endorse or promote products > */ > +/* derived from this software without specific prior written permission. > */ > +/* > */ > +/* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS > */ > +/* "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT > */ > +/* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS > */ > +/* FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT > */ > +/* OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, > */ > +/* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED > */ > +/* TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, > */ > +/* OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY > */ > +/* OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING > */ > +/* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS > */ > +/* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. > */ > +/* > */ > +/*----------------------------------------------------------------------------*/ > +/******************************************************************************/ > +/* factor.rex Open Object Rexx Samples > */ > +/* > */ > +/* A factorial program. > */ > +/* > */ > +/* > */ > +/* > -------------------------------------------------------------------------- */ > +/* > */ > +/* Description: > */ > +/* This program demonstrates a way to define a factorial class using the > */ > +/* subclass method and the .methods environment symbol. > */ > +/******************************************************************************/ > +say "Enter a number" > +pull number > +If \datatype(number, '9') then do > + Say 'Invalid whole number' number > + Exit > +end > + > +factorial_class = .string~subclass("Sample")~~define('FACTORIAL', > .methods['FACTORIAL']) > +say number 'factorial is' factorial_class~new(number)~factorial > + > +Exit > + > +/* Define the factorial method. Note that this method contains a recursive > */ > +/* call to itself. > */ > +::method factorial > + If self <= 1 then return 1 > + else do > + t = self~class~new(self - 1) > + Return self * (t~factorial) > + end > > > Property changes on: main/trunk/samples/factor.rex > ___________________________________________________________________ > Added: svn:executable > ## -0,0 +1 ## > +* > \ No newline at end of property > > >
_______________________________________________ Oorexx-devel mailing list Oorexx-devel@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/oorexx-devel
