Computerhistorie: NOS/VE’s System Command Language (SCL)
NOS/VE’s System Command Language (SCL)
* Vooralsnog wordt geen vertaling van deze pagina in het Nederlands voorzien
SCL —System Command Language– was the name given to the language used for control statements and what can be called scripts (or what MS-DOS calls “batch files”). This section discusses both ordinary control statements and SCL features used in script programming.
Command Syntax
NOS/VE attempted to provide easy-to-understand, verbose commands that could also be abbreviated for faster typing. Commands in NOS/VE were given names consisting of English words strung together by underscores, with the first word being a verb. For example the command to list file names (DIR in MS-DOS) was DISPLAY_CATALOG. Commands could be abbreviated by taking the first three letters of the first word in the command and appending the first letter of each subsequent word. For DISPLAY_CATALOG, the abbreviation was DISC. This was simply a convention adhered to by developers, not a rule built into the command processor.
By the way, a procedure or command could have multiple names. Thus for many commands the plural form, e.g. display_catalog_entries was also available to the user.
Command parameters could be positional or keyword=value. Each command had a specific set of parameters, declared in a specific order. Each parameter was declared with a name, but parameters could be specified either with param_name=value or with just positional values. Parameters could be declared as optional or required. Parameter names, like command names, took the form of English words strung together with underscores. However the rules for abbreviating parameters were slightly different: abbreviations were made by taking the first letter of every word.
If you were specifying parameters positionally, you could skip over parameters (allowing them to default) by specifying commas on the command line.
A single parameters could have multiple values. For instance, you might want to rewind a bunch of files with one statement. This was accomplished with a list of values, surrounded by parentheses and separated by commas. E.g., (file1,file2)
Nearly all commands included a special Status parameter. When this was specified, it gave the name of a special structure which received the status of the command upon completion. If a command completed successfully, it returned a status of Normal. A command would not abort if you specified Status=variable, because it was assumed you’d check the value of the variable. If you did not specify Status=variable and the command returned an abnormal status, a condition handler would be invoked, typically aborting the job.
Commands could be continued onto a subsequent line by placing “..” at the end of a line. Note that this was not a three-dot elipsis, but rather the two-dot range operator inspired by Pascal. Comments could be included in control statements by surrounding them with double quotes. The lack of a closing quote meant that the rest of the line was a comment.
Names of commands and other entities were not case-sensitive. Identifiers could contain letters, digits, _, #, @, and $ (which was reserved for system-defined identifiers).
Here’s an example. Capitalization is used here to illustrate how entities could be abbreviated and was not required.
DISplay_Catalog “abbrev. DISC” Catalog=<catalog name> “abbrev. C, default $CATALOG” Display_Option=option “abbrev. DO, default ID” Output=file “abbrev. O, default $OUTPUT” Status=status var “special case; no abbrev.
The following commands are all equivalent:
DISC “Use all defaults” DISC ,,ID “Commas skip over C parameter” DISC $CATALOG ID “Must get right order when using positional” DISC DO=id “Case not important” DISC DISPLAY_OPTION=Id C=$CATALOG DISC O=$OUTPUT
Scripting Language
The programming aspects of SCL were reasonably conventional by modern standards. There were variables, operators, control structures, and system- and user-supplied procedures. But the mindset was strict typechecking. Don’t think UNIX sh or Perl–think Pascal.
Expressions
The following types were available in SCL:
Boolean | TRUE or FALSE |
Integer | |
Name | e.g., file names |
Status | special structure |
String | Length range 0-256 characters, dynamic length. Constants delimited by ‘ (apostrophe). |
Variables
Variables could be created implicitly by assignment (at least in most cases), or explicitly by the CREate_Variable command. For instance:
loop_count = 3
was equivalent to:
CREate_Variable loop_count kind=integer value=3
Single-dimension arrays were available. Note the Pascal-like array bounds syntax:
CREV picniclist kind=string dimension=1..20
Operators
The following operators were available:
Integer | + – * / ** |
Relational | > < >= <= = <> |
Boolean | OR XOR AND NOT |
String | // (concatenation) $SUBSTR(string,begpos,length) |
Built-in Functions
$CLOCK | microsecond real-time clock |
$DATE | date in your choice of formats (with ISO date format, no year 200 problem!) |
$TIME | time in your choice of formats |
$CATALOG | current working catalog |
$JOB | job attributes |
$PROGRAM | program/job attributes |
$CHAR | integer to ASCII string |
$ORD | ASCII char to integer |
$STRING | SCL name to string |
$STRREP | integer or boolean to string |
$VNAME | string to variable name |
Statements
Assignment
This was simply
variable = value
I’m surprised they didn’t use Pascal’s :=
Control Structures
There was no GOTO, but optional labels on some constructs allowed for flexible control of flow. In most statements, labels simply provided documentation, but with EXIT, you could break out of multiple nested loops with the use of a label.
I feel that SCL’s control flow structures were better than that of any other language.
IF boolean_exp THEN statements [ELSEIF boolean_exp THEN statements] [ELSE statements] IFEND [label:] WHILE boolean_exp DO statements WHILEND [label] [label:] REPEAT statements UNTIL boolean_exp [label:] FOR variable = initial TO final [BY step] DO statements FOREND [label] [label:] LOOP statements LOOPEND [label:] BLOCK statements BLOCKEND [label]
Interruption of Control Flow
These statements served the purpose of break and continue in C, and were especially useful for BLOCK and LOOP. The only thing I don’t like about them is the optional Perl-like (or Ada-like) WHEN clause at the end of the statements.
CYCLE [label] [WHEN boolean_exp] Jumps up for another loop EXIT [label] [WHEN boolean_exp] Exits the loop EXIT_PROC [WITH status_exp] [WHEN boolean_exp] Exits current procedure
Condition Handling
These statements were like BASIC’s ON ERROR and RESUME. A condition handler was a block of code that looked like:
WHEN condition_name(s) DO statements WHENEND
Within a WHEN block, you could return to the main line code with the following. RETRY meant return to the statement that caused the fault:
CONTINUE [RETRY] [WHEN boolean_exp]
A sample SCL Procedure
I don’t have the full specifications for SCL procedure usage, but this should give you a flavor. Procedure names as well as arguments could have multiple names, called aliases. This procedure displays the prime numbers between two given numbers. Its names are find_primes (or FINd_Primes, following the syntactic convention in this document) and finp. Note that in order to conform to the convention that a command can be abbreviated by the first three letters of the first word plus the first letter of each subsequent word, you had to explicitly declare both names.
PROC find_primes, finp { “These aliases happen to follow convention.” from, f : INTEGER = 1 “from and f are synonyms and default to 1.” to, t : INTEGER = $REQUIRED “This parameter is required; no default.” status) “Special parameter type is always status.”
IF $VALUE(from) < 2 THEN myfrom = 2 ELSE myfrom = $VALUE(from) IFEND
CREV primes DIMENSION=myfrom/2..$VALUE(to)/2 .. KIND=BOOLEAN VALUE=TRUE
CREV (try,possible_prime) “Note use of list”
divlp: FOR divisor = 3 TO $VALUE(to) EXIT divlp WHEN divisor**2 > $VALUE(to)
try = divisor * divisor
IF try < myfrom THEN
try = try + ((myfrom-try)/(2*divisor))*(2*divisor)
IF try < myfrom THEN
try = try + 2*divisor
IFEND
IFEND
WHILE try <= $VALUE(to) DO
primes(try/2) = FALSE try = try + 2*divisor
WHILEND
FOREND divlp FOR possible_prime = myfrom/2 TO $VALUE(to)/2 DO
IF primes(possible_prime) AND .. possible_prime*2+1<=$VALUE(to) THEN
display_value possible_prime*2+1
IFEND
FOREND
PROCEND find_primes
Prolog and Epilog Files
Prolog and Epilog files were files of SCL commands that were executed at the beginning and end of a job. There was a stack of prologs and epilogs: at the inner ring the user-specific ones, then the job_class ones and last not but least the system prologs/epilogs. The latter was used for instance for accounting purposes.
At TNO we made use of the FTP job_class specific prolog and epilogs. When it concerned a plot file being moved to the CYBER, automatically a job was generated to process the interpretable plot commands. (full story in Dutch)
Here’s a sample of prologs and epilogs. It was apparently used for a shared account.
“Set command list (like MS-DOS path)” SETCL delete=all add=($system, $user, .systems.util, $user.bin.stulib )
“Set current directory to user’s home” SET_Working_Catalog $user set_message_mode full
if $job(mode) = ‘INTERACTIVE’ then
set_program_attributes add_library=.systems.terminal_definitions set_terminal_attributes abort_line_character=$char(15)
set_terminal_attributes .. backspace_character=$char(8) cancel_line_character=$char(24) .. echoplex=true end_of_information=$char(3) .. hold_page=false output_flow_control=true set_terminal_attributes .. network_control_character=’%’ parity=even .. type_ahead=true prompt_string=” .. terminate_break_character=$char(20)
create_variable stemp# string accept_line stemp# input p=’Terminal model? ‘
setta terminal_model=$name(stemp#)
if (stemp# = ‘vt100’) or (stemp# = ‘vt200’) then
setta terminal_class=x364
ifend
“Get the user’s initials. If they don’t match one in a list, log the user off, else change catalog to one matching the initials.”
accept_line stemp# input p=’Your initials? ‘
if ((stemp# <> ‘ccb’) and .. (stemp# <> ‘clh’) and .. (stemp# <> ‘dwb’) and .. (stemp# <> ‘msb’) and .. (stemp# <> ‘pvp’)) then
logout
ifend
crev stemp2 string stemp2 = $string($catalog())//’.’//stemp#
setwc $fname(stemp2)
disv (‘Catalog changed to ‘//$string($catalog))
ifend
Multitasking
The TASK .. ENDTASK command sequence started of a either a asynchronous or a synchronous task.
Example:
TASK Task_name=”backup1″
BACPF I=backup_commands_1 L=output_backup_1
TASKEND
TASK Task_name=”backup2″
BACPF I=backup_commands_2 L=output_backup_1
TASKEND
In the same way JOB..JOBEND could launch a separate job from within a command sequence or SCL procedure.