Index

Package: Scripts

Description

package Scripting.Scripts is
Copyright (c) 2012 Kevin Wellwood All rights reserved. This source code is distributed under the Modified BSD License. For terms and conditions, see license.txt.

Classes

Script

type Script is new Limited_Object with private;

Ancestors:

Primitive operations:

Delete (overriding Objects.Delete)
Objects.Construct (Inherited)
Objects.To_String (Inherited)
A Script is an executable series of Statements. It does not return a a value, so evaluation doesn't return a result.

Types

A_Script

type A_Script is access all Script'Class;

Subprograms & Entries

Create_Script

function Create_Script return A_Script;
Creates a new empty Script.

Evaluate

procedure Evaluate
( this: access Script;
context: not null A_Eval_Context );
Evaluates/executes the script. Evaluation_Exception will be raised if an error occurs.

Set_Statements

procedure Set_Statements
( this: not null access Script'Class;
statements: in out Statement_Lists.List );
Sets the statements in the script. Each will be evaluated in order, when the script is evaluated. 'statements' will be consumed.

Delete

procedure Delete
( this: in out A_Script );
Deletes the Script.