yogsototh/mal
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

bbc-basic: Add support for validating functions and optional trailing arguments.

Browse source 
This is necessary for 'swap!', but not dependent on how I end up
implementing it.
This commit is contained in:
Ben Harris 2019-04-20 18:28:15 +01:00
parent 940092c6c8
commit b47f5dd2fb
1 changed files with 15 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
bbc-basic/core
View file

@ -122,14 +122,23 @@ DEF PROCcore_assert_args(spec$, fn$, args%())
REM "i" - Must be an integer
REM "s" - Must be a string
REM "l" - Must be a list
REM "f" - Must be a function
REM "a" - Must be an atom
REM "C" - Must be 'count'able
REM "?" - Any single argument
REM "*" - Any number of (trailing) arguments
LOCAL i%
IF DIM(args%(), 1) <> LEN(spec$) THEN
ERROR &40E80921, "Core function '"+fn$+"' requires "+STR$(LEN(spec$))+" arguments"
IF RIGHT$(spec$) = "*" THEN
spec$ = LEFT$(spec$)
IF DIM(args%(), 1) < LEN(spec$) THEN
ERROR &40E80921, "Core function '"+fn$+"' requires at least "+STR$(LEN(spec$))+" arguments"
ENDIF
ELSE
IF DIM(args%(), 1) <> LEN(spec$) THEN
ERROR &40E80921, "Core function '"+fn$+"' requires "+STR$(LEN(spec$))+" arguments"
ENDIF
ENDIF
FOR i% = 1 TO LEN(spec$)
CASE MID$(spec$, i%, 1) OF
@ -145,6 +154,10 @@ DEF PROCcore_assert_args(spec$, fn$, args%())
IF NOT FNis_list(args%(i% - 1)) THEN
ERROR &40E80916, "Argument "+STR$(i%)+" to core function '"+fn$+"' must be a list"
ENDIF
WHEN "f"
IF NOT FNis_fn(args%(i% - 1)) AND NOT FNis_corefn(args%(i% - 1)) THEN
ERROR &40E80919, "Argument "+STR$(i%)+" to core function '"+fn$+"' must be a function"
ENDIF
WHEN "a"
IF NOT FNis_atom(args%(i% - 1)) THEN
ERROR &40E8091C, "Argument "+STR$(i%)+" to core function '"+fn$+"' must be an atom"