d6
/
nxu
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

start adding support for creating archives

This commit is contained in:
Erik Osheim 2025-02-12 10:56:40 -05:00
parent 8171300a7c
commit 7640bce419
1 changed files with 25 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
tar.tal
View File

@ -27,24 +27,33 @@
@panic ( -> $exit )
#010e DEO #010f DEO BRK
@print-usage ( -> )
;usage1 print ;usage2 !print
( handle all provided command-line arguments )
@arg-callback ( -> )
;arg/count LDA
DUP #00 EQU ?&missing-mode
DUP #01 EQU ?&missing-file
#02 GTH ?&toomany !run
&missing-mode ;missing-mode !&error
&missing-file ;missing-filename !&error
&toomany ;too-many-arguments
&error print ;usage print #01 !exit
DUP #00 GTH ?{ POP ;missing-mode !handle-error }
DUP #01 GTH ?{ POP ;missing-filename !handle-error }
!run
@error-toomany ( -> BRK )
;too-many-arguments !handle-error
@error-noinput ( -> BRK )
;no-input-arguments !handle-error
@handle-error ( ;msg -> BRK )
print print-usage #01 !exit
( run the program )
@run ( -> BRK )
#01 arg/read .File1/name DEO2
#00 arg/read LDA
DUP LIT "c NEQ ?{ POP create-archive #00 !exit }
DUP LIT "t NEQ ?{ POP list-entries #00 !exit }
DUP LIT "x NEQ ?{ POP expand-entries #00 !exit }
POP ;invalid-mode print ;usage print #00 !exit
POP ;invalid-mode print print-usage #00 !exit
( exit normally )
@exit ( code^ -> BRK )
@ -124,10 +133,9 @@
ADD2r INC2 GTH2k ?&loop ( limit* pos+1* [sum+n*] )
POP2 POP2 STH2r JMP2r ( sum* )
( list all the entries in the tar archive )
@list-entries ( -> )
;arg/count LDA #02 GTH ?error-toomany
read-header ?{ JMP2r }
;header/filename LDA ?&non-null
#800f DEO BRK
@ -177,6 +185,7 @@
( expand a .tar archive in the current working directory )
@expand-entries ( -> )
;arg/count LDA #02 GTH ?error-toomany
read-header ?{ JMP2r }
;header/filename LDA ?&non-null
#800f DEO BRK
@ -216,9 +225,9 @@
print-filename
;header/size load-octal11 round-up-to-512 skip !expand-entries
( src and dst should be paths )
@compress-entries ( src* dst* -> )
POP2 POP2 JMP2r
@create-archive ( -> )
;arg/count LDA #03 LTH ?error-noinput
JMP2r
( writes `n` bytes from File1 to File2 )
( uses a 32k internal buffer )
@ -406,10 +415,12 @@
JMP2r
( some handy string constants )
@usage "usage: 20 "uxncli 20 "tar.rom 20 "t|x 20 "FILENAME 0a 00
@usage1 "usage: 20 "uxncli 20 "tar.rom 20 "t|x 20 "TARFILE 0a 00
@usage2 20 20 20 20 20 20 20 "uxncli 20 "tar.rom 20 "c 20 "TARFILE 20 "FILE1 20 "... 0a 00
@missing-mode "error: 20 "missing 20 "mode 0a 00
@missing-filename "error: 20 "missing 20 "filename 0a 00
@too-many-arguments "error: 20 "too 20 "many 20 "arguments 0a 00
@no-input-arguments "error: 20 "no 20 "input 20 "files 0a 00
@invalid-mode "error: 20 "invalid 20 "mode 0a 00
@read-error "error 20 "reading 20 "data 0a 00
@write-error "error 20 "writing 20 "data 0a 00