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" plasma.4th"
|
||||||
SRC" conio.4th"
|
SRC" conio.4th"
|
||||||
: RESUME ;
|
: RESUME> ; ( PLACE HOLDER TO RESUME EXECUTION )
|
||||||
: ?EXEC
|
: ?EXEC ( F -- )
|
||||||
NOT IF
|
NOT IF ( SKIP CODE IN BETWEEN ?EXEC AND RESUME> )
|
||||||
1 >R
|
1 >R
|
||||||
BEGIN
|
BEGIN
|
||||||
BL WORD FIND IF
|
BL WORD FIND IF
|
||||||
CASE
|
CASE
|
||||||
' RESUME OF
|
' RESUME> OF
|
||||||
R> 1- ?DUP 0= IF
|
R> 1- ?DUP 0= IF ( EXIT IF FINAL RESUME> )
|
||||||
DROP EXIT
|
DROP EXIT
|
||||||
THEN
|
THEN
|
||||||
>R
|
>R
|
||||||
ENDOF
|
ENDOF
|
||||||
' ?EXEC OF
|
' ?EXEC OF ( CHECK FOR NESTED ?EXEC )
|
||||||
R> 1+ >R
|
R> 1+ >R
|
||||||
ENDOF
|
ENDOF
|
||||||
ENDCASE
|
ENDCASE
|
||||||
@ -24,13 +24,13 @@ SRC" conio.4th"
|
|||||||
THEN
|
THEN
|
||||||
;
|
;
|
||||||
|
|
||||||
: INPUTSTR"
|
: INPUTSTR" ( STR -- )
|
||||||
COMPILE ."
|
COMPILE ."
|
||||||
DUP 1+ 255 ACCEPT SWAP C!
|
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 ."
|
COMPILE ."
|
||||||
." (Y/N)"
|
." (Y/N)"
|
||||||
KEY CR TOUPPER CHAR Y =
|
KEY CR TOUPPER CHAR Y =
|
||||||
@ -43,9 +43,9 @@ HOME
|
|||||||
12 SPACES INVERSETEXT
|
12 SPACES INVERSETEXT
|
||||||
." PLASMA HD INSTALL"
|
." PLASMA HD INSTALL"
|
||||||
NORMALTEXT CR CR
|
NORMALTEXT CR CR
|
||||||
0 1 40 23 VIEWPORT
|
|
||||||
DEST INPUTSTR" Enter destination "
|
DEST INPUTSTR" Enter destination "
|
||||||
DEST C@ 0= ?ABORT" Destination required"
|
DEST C@ 0= ?ABORT" Destination required"
|
||||||
|
0 1 40 23 VIEWPORT
|
||||||
|
|
||||||
." Copying system files to " DEST (.") CR
|
." Copying system files to " DEST (.") CR
|
||||||
FILELIST " -R PLVM16 CMD128 SYS " STRCPY DEST STRCAT
|
FILELIST " -R PLVM16 CMD128 SYS " STRCPY DEST STRCAT
|
||||||
@ -55,7 +55,7 @@ CONFIRM" Copy demos?"
|
|||||||
?EXEC
|
?EXEC
|
||||||
FILELIST " -R DEMOS " STRCPY DEST STRCAT
|
FILELIST " -R DEMOS " STRCPY DEST STRCAT
|
||||||
" COPY" SWAP LOADMOD
|
" COPY" SWAP LOADMOD
|
||||||
RESUME
|
RESUME>
|
||||||
|
|
||||||
CONFIRM" Copy build tools?"
|
CONFIRM" Copy build tools?"
|
||||||
?EXEC
|
?EXEC
|
||||||
@ -66,12 +66,14 @@ CONFIRM" Copy build tools?"
|
|||||||
" COPY" SWAP LOADMOD
|
" COPY" SWAP LOADMOD
|
||||||
FILELIST " -R BLD/INC " STRCPY DEST STRCAT
|
FILELIST " -R BLD/INC " STRCPY DEST STRCAT
|
||||||
" COPY" SWAP LOADMOD
|
" COPY" SWAP LOADMOD
|
||||||
|
|
||||||
CONFIRM" Copy sample code?"
|
CONFIRM" Copy sample code?"
|
||||||
?EXEC
|
?EXEC
|
||||||
FILELIST " -R BLD/SAMPLES " STRCPY DEST STRCAT
|
FILELIST " -R BLD/SAMPLES " STRCPY DEST STRCAT
|
||||||
" COPY" SWAP LOADMOD
|
" COPY" SWAP LOADMOD
|
||||||
RESUME
|
RESUME>
|
||||||
RESUME
|
|
||||||
|
RESUME>
|
||||||
|
|
||||||
." Done" CR
|
." Done" CR
|
||||||
0 0 40 24 VIEWPORT
|
0 0 40 24 VIEWPORT
|
||||||
|
Loading…
Reference in New Issue
Block a user