mirror of
https://github.com/dschmenk/PLASMA.git
synced 2024-10-18 07:24:16 +00:00
Comments for install script
This commit is contained in:
parent
6c6d6e664d
commit
547bdcc2ad
@ -1,19 +1,19 @@
|
||||
SRC" plasma.4th"
|
||||
SRC" conio.4th"
|
||||
: RESUME ;
|
||||
: ?EXEC
|
||||
NOT IF
|
||||
: RESUME> ; ( PLACE HOLDER TO RESUME EXECUTION )
|
||||
: ?EXEC ( F -- )
|
||||
NOT IF ( SKIP CODE IN BETWEEN ?EXEC AND RESUME> )
|
||||
1 >R
|
||||
BEGIN
|
||||
BL WORD FIND IF
|
||||
CASE
|
||||
' RESUME OF
|
||||
R> 1- ?DUP 0= IF
|
||||
' RESUME> OF
|
||||
R> 1- ?DUP 0= IF ( EXIT IF FINAL RESUME> )
|
||||
DROP EXIT
|
||||
THEN
|
||||
>R
|
||||
ENDOF
|
||||
' ?EXEC OF
|
||||
' ?EXEC OF ( CHECK FOR NESTED ?EXEC )
|
||||
R> 1+ >R
|
||||
ENDOF
|
||||
ENDCASE
|
||||
@ -24,13 +24,13 @@ SRC" conio.4th"
|
||||
THEN
|
||||
;
|
||||
|
||||
: INPUTSTR"
|
||||
: INPUTSTR" ( STR -- )
|
||||
COMPILE ."
|
||||
DUP 1+ 255 ACCEPT SWAP C!
|
||||
;
|
||||
: STRING CREATE 256 ALLOT DOES> ;
|
||||
: STRING CREATE 256 ALLOT DOES> ; ( JUST ALLOCATE THE BIGGEST STRING POSSIBLE )
|
||||
|
||||
: CONFIRM"
|
||||
: CONFIRM" ( -- F )
|
||||
COMPILE ."
|
||||
." (Y/N)"
|
||||
KEY CR TOUPPER CHAR Y =
|
||||
@ -43,9 +43,9 @@ HOME
|
||||
12 SPACES INVERSETEXT
|
||||
." PLASMA HD INSTALL"
|
||||
NORMALTEXT CR CR
|
||||
0 1 40 23 VIEWPORT
|
||||
DEST INPUTSTR" Enter destination "
|
||||
DEST C@ 0= ?ABORT" Destination required"
|
||||
0 1 40 23 VIEWPORT
|
||||
|
||||
." Copying system files to " DEST (.") CR
|
||||
FILELIST " -R PLVM16 CMD128 SYS " STRCPY DEST STRCAT
|
||||
@ -55,7 +55,7 @@ CONFIRM" Copy demos?"
|
||||
?EXEC
|
||||
FILELIST " -R DEMOS " STRCPY DEST STRCAT
|
||||
" COPY" SWAP LOADMOD
|
||||
RESUME
|
||||
RESUME>
|
||||
|
||||
CONFIRM" Copy build tools?"
|
||||
?EXEC
|
||||
@ -66,12 +66,14 @@ CONFIRM" Copy build tools?"
|
||||
" COPY" SWAP LOADMOD
|
||||
FILELIST " -R BLD/INC " STRCPY DEST STRCAT
|
||||
" COPY" SWAP LOADMOD
|
||||
|
||||
CONFIRM" Copy sample code?"
|
||||
?EXEC
|
||||
FILELIST " -R BLD/SAMPLES " STRCPY DEST STRCAT
|
||||
" COPY" SWAP LOADMOD
|
||||
RESUME
|
||||
RESUME
|
||||
RESUME>
|
||||
|
||||
RESUME>
|
||||
|
||||
." Done" CR
|
||||
0 0 40 24 VIEWPORT
|
||||
|
Loading…
Reference in New Issue
Block a user