ooRexx  4.2.0-source
About: ooRexx (Open Object Rexx) is a free implementation of Object Rexx. Object Rexx is an enhancement of the classic Rexx interpreter; a full-featured programming language with a human-oriented syntax.
  Fossies Dox: ooRexx-4.2.0-source.tar.gz  ("inofficial" and yet experimental doxygen-generated source code documentation)  

QueueInstruction.cpp
Go to the documentation of this file.
1 /*----------------------------------------------------------------------------*/
2 /* */
3 /* Copyright (c) 1995, 2004 IBM Corporation. All rights reserved. */
4 /* Copyright (c) 2005-2009 Rexx Language Association. All rights reserved. */
5 /* */
6 /* This program and the accompanying materials are made available under */
7 /* the terms of the Common Public License v1.0 which accompanies this */
8 /* distribution. A copy is also available at the following address: */
9 /* http://www.oorexx.org/license.html */
10 /* */
11 /* Redistribution and use in source and binary forms, with or */
12 /* without modification, are permitted provided that the following */
13 /* conditions are met: */
14 /* */
15 /* Redistributions of source code must retain the above copyright */
16 /* notice, this list of conditions and the following disclaimer. */
17 /* Redistributions in binary form must reproduce the above copyright */
18 /* notice, this list of conditions and the following disclaimer in */
19 /* the documentation and/or other materials provided with the distribution. */
20 /* */
21 /* Neither the name of Rexx Language Association nor the names */
22 /* of its contributors may be used to endorse or promote products */
23 /* derived from this software without specific prior written permission. */
24 /* */
25 /* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS */
26 /* "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT */
27 /* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS */
28 /* FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT */
29 /* OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, */
30 /* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED */
31 /* TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, */
32 /* OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY */
33 /* OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING */
34 /* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS */
35 /* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */
36 /* */
37 /*----------------------------------------------------------------------------*/
38 /******************************************************************************/
39 /* REXX Translator */
40 /* */
41 /* Primitive Queue Parse Class */
42 /* */
43 /******************************************************************************/
44 #include <stdlib.h>
45 #include "RexxCore.h"
46 #include "StringClass.hpp"
47 #include "RexxActivation.hpp"
48 #include "RexxActivity.hpp"
49 #include "QueueInstruction.hpp"
50 
52  RexxObject *_expression, /* expresion to evaluate */
53  int type) /* top of queueing operation */
54 /******************************************************************************/
55 /* Function: Initialize a QUEUE instruction object */
56 /******************************************************************************/
57 {
58  /* process the expression */
59  OrefSet(this, this->expression, _expression);
60  if (type == QUEUE_LIFO)
61  {
63  }
64 }
65 
67  RexxActivation *context, /* current activation context */
68  RexxExpressionStack *stack ) /* evaluation stack */
69 /****************************************************************************/
70 /* Function: Execute a REXX QUEUE or PUSH instruction */
71 /****************************************************************************/
72 {
73  RexxObject *result; /* expression result */
74  RexxString *value; /* output value */
75 
76  context->traceInstruction(this); /* trace if necessary */
77  if (this->expression != OREF_NULL) /* have an expression value? */
78  {
79  /* get the expression value */
80  result = this->expression->evaluate(context, stack);
81  value = REQUEST_STRING(result); /* get the string version */
82  }
83  else
84  {
85  value = OREF_NULLSTRING; /* use a NULL string */
86  }
87  context->traceResult(value); /* trace if necessary */
88  /* write out the line */
90  context->pauseInstruction(); /* do debug pause if necessary */
91 }
92 
RexxActivity::queue
void queue(RexxActivation *, RexxString *, int)
Definition: RexxActivity.cpp:2968
RexxExpressionStack
Definition: ExpressionStack.hpp:53
QUEUE_FIFO
Definition: ServiceMessage.hpp:194
RexxInternalObject::evaluate
virtual RexxObject * evaluate(RexxActivation *, RexxExpressionStack *)
Definition: ObjectClass.hpp:269
RexxInstructionQueue::execute
void execute(RexxActivation *, RexxExpressionStack *)
Definition: QueueInstruction.cpp:66
RexxInstruction::instructionFlags
uint16_t instructionFlags
Definition: RexxInstruction.hpp:82
RexxActivation.hpp
type
int type
Definition: cmdparse.cpp:1965
OrefSet
#define OrefSet(o, r, v)
Definition: RexxCore.h:94
RexxActivation::traceResult
void traceResult(RexxObject *v)
Definition: RexxActivation.hpp:392
RexxInstructionQueue::RexxInstructionQueue
RexxInstructionQueue(RESTORETYPE restoreType)
Definition: QueueInstruction.hpp:57
OREF_NULL
#define OREF_NULL
Definition: RexxCore.h:60
RexxActivation::pauseInstruction
void pauseInstruction()
Definition: RexxActivation.hpp:401
QueueInstruction.hpp
StringClass.hpp
queue_lifo
#define queue_lifo
Definition: QueueInstruction.hpp:49
QUEUE_LIFO
Definition: ServiceMessage.hpp:195
REQUEST_STRING
RexxString * REQUEST_STRING(RexxObject *object)
Definition: RexxCore.h:276
RexxActivation
Definition: RexxActivation.hpp:156
RexxInstructionExpression::expression
RexxObject * expression
Definition: RexxInstruction.hpp:121
RexxActivation::traceInstruction
void traceInstruction(RexxInstruction *v)
Definition: RexxActivation.hpp:396
ActivityManager::currentActivity
static RexxActivity *volatile currentActivity
Definition: ActivityManager.hpp:95
RexxActivity.hpp
RexxCore.h
RexxObject
Definition: ObjectClass.hpp:311
RexxString
Definition: StringClass.hpp:119