Learn how easy it is to sync an existing GitHub or Google Code repo to a SourceForge project! See Demo

Close

Diff of /incubator/enumeration/test.cmd [000000] .. [r1335] Maximize Restore

  Switch to side-by-side view

--- a
+++ b/incubator/enumeration/test.cmd
@@ -0,0 +1,72 @@
+#!/usr/bin/rexx
+/*----------------------------------------------------------------------------*/
+/*                                                                            */
+/* Copyright (c) 2005-2008 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.               */
+/*                                                                            */
+/* Author: Moritz Hoffmann <spambasket@antiguru.de>                           */
+/*----------------------------------------------------------------------------*/
+/* Sample application */
+--s = .class~methods
+--do while s~available
+--  say s~index
+--  s~next
+--end
+do colour over .Colours~Values
+    item = .Colours~valueOf(colour)
+    say "Colour:"  item item~orderID item~next colour
+end
+do dir over .Direction~Values
+    say "Direction:" dir
+end
+
+red =  .Colours~red
+say red \= .Colours~red
+say red
+say "red first"
+say red = .Colours~red
+say "class first"
+say .Colours~red = red
+say "string->object"
+say .Colours~valueOf("blue")
+say .Direction~valueOf(north)
+
+say "compare:" .Colours~red~compareTo(.Colours~blue)
+a = .WithContent~aContent
+a~setContent("Hello")
+
+b = .WithContent~aContent("Test")
+say "strictly equal:" a~strictEquals(b)
+say "equal:" (a=b)
+say a~getContent
+::REQUIRES "Colours.cls"