;
; value.sh
;
; r/value evaluation
;
; © 1995 Straylight
;

;----- Overview -------------------------------------------------------------
;
; Functions provided:
;
;  val_readExp
;  val__readP1
;  val_readLvalue

		[	:LNOT::DEF:value__dfn
		GBLL	value__dfn

; --- val_readExp ---
;
; On entry:	R8 == lookahead token
;		R9 == current line number
;		R10 == pointer into the tokenised buffer
;		R11 == evaluation stack pointer
;		R12 == anchor block pointer
;
; On exit:	R0 == value of the rvalue
;		R1 == type of the variable
;		R8 == new lookahead token
;		R11 == moved on to the first character after the rvalue
;		May return an error
;
; Use:		Tries to read an rvalue from the current program location.

		IMPORT	val_readExp

; --- val__readP1 ---
;
; On entry:	R9 == current line number
;		R10 == pointer into the tokenised buffer
;		R11 == evaluation stack pointer
;		R12 == anchor block pointer
;
; On exit:	R0 == next character to look at
;
; Use:		Evaluates a precedence 4 type expression and store the
;		result on the stack.  The first unused character is
;		placed in R0.

		IMPORT	val__readP1

; --- val_readLvalue ---
;
; On entry:	R7 == 0 to read as an rvalue, 1 for lvalue
;		R8 == next token to read
;		R9 == current line number
;		R10 == pointer into the tokenised buffer
;		R11 == evaluation stack pointer
;		R12 == anchor block pointer
;
; On exit:	R0 == pointer to the variable block if R7 == 1
;		R8 == new next token to read
;		May return an error
;
; Use:		Tries to read an lvalue from the current program location.

		IMPORT	val_readLvalue

		]

;----- That's all, folks ----------------------------------------------------

		END