ORCALib/backup

if "{#}" != "1"
   echo Form: backup [day]
   exit 65535
end

set dest /library/mike/{1}/ORCALib

set list        make backup smac equates.asm
set list {list} assert.asm assert.macros
set list {list} cc.asm cc.macros
set list {list} ctype.asm
set list {list} fcntl.asm fcntl.macros
set list {list} orca.asm orca.macros
set list {list} setjmp.asm
set list {list} signal.asm signal.macros
set list {list} ctype.asm
set list {list} stdio.asm stdio.macros
set list {list} stdlib.asm stdlib.macros
set list {list} string.asm string.macros
set list {list} time.asm time.macros
set list {list} toolglue.asm toolglue.macros
set list {list} vars.asm vars.macros

unset exit
create {dest} >.null >&.null
for i in {list}
   newer {dest}/{i} {i}
   if {Status} != 0
      copy -c {i} {dest}/{i}
   end
end