Firebee/FireBee_Setup-Dev
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

initial commit

Browse Source
This commit is contained in:
root
2023-06-12 09:14:09 +02:00
commit b4912f303e
2545 changed files with 209350 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
tools/qextract/arc/bunzip2.ttp Normal file
View File

Binary file not shown.

61
tools/qextract/arc/gunzip.ttp Normal file
View File

@@ -0,0 +1,61 @@
#!/bin/sh
# Uncompress files. This is the inverse of gzip.
# Copyright (C) 2007 Free Software Foundation
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
# You should have received a copy of the GNU General Public License along
# with this program; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
bindir='/usr/bin'
case $1 in
--__bindir) bindir=${2?}; shift; shift;;
esac
PATH=$bindir:$PATH
version="gunzip (gzip) 1.4
Copyright (C) 2007, 2009-2010 Free Software Foundation, Inc.
This is free software. You may redistribute copies of it under the terms of
the GNU General Public License <http://www.gnu.org/licenses/gpl.html>.
There is NO WARRANTY, to the extent permitted by law.
Written by Paul Eggert."
usage="Usage: $0 [OPTION]... [FILE]...
Uncompress FILEs (by default, in-place).
Mandatory arguments to long options are mandatory for short options too.
-c, --stdout write on standard output, keep original files unchanged
-f, --force force overwrite of output file and compress links
-l, --list list compressed file contents
-n, --no-name do not save or restore the original name and time stamp
-N, --name save or restore the original name and time stamp
-q, --quiet suppress all warnings
-r, --recursive operate recursively on directories
-S, --suffix=SUF use suffix SUF on compressed files
-t, --test test compressed file integrity
-v, --verbose verbose mode
--help display this help and exit
--version display version information and exit
With no FILE, or when FILE is -, read standard input.
Report bugs to <bug-gzip@gnu.org>."
case $1 in
--help) exec echo "$usage";;
--version) exec echo "$version";;
esac
exec gzip -d "$@"

BIN
tools/qextract/arc/lha.ttp Normal file
View File

Binary file not shown.

10
tools/qextract/arc/readme.txt Normal file
View File

@@ -0,0 +1,10 @@
All unpackers built for the ColdFire by Vincent Riviere.
Sources and binaries downloaded from:
http://vincent.riviere.free.fr/soft/m68k-atari-mint/archives/mint/bzip2/
http://vincent.riviere.free.fr/soft/m68k-atari-mint/archives/mint/gzip/
http://vincent.riviere.free.fr/soft/m68k-atari-mint/archives/mint/lha/
http://vincent.riviere.free.fr/soft/m68k-atari-mint/archives/mint/tar/
http://vincent.riviere.free.fr/soft/m68k-atari-mint/archives/mint/unrar/
http://vincent.riviere.free.fr/soft/m68k-atari-mint/archives/mint/unzip/
http://vincent.riviere.free.fr/soft/m68k-atari-mint/archives/mint/zoo/

BIN
tools/qextract/arc/tar.ttp Normal file
View File

Binary file not shown.

BIN
tools/qextract/arc/unrar.ttp Normal file
View File

Binary file not shown.

BIN
tools/qextract/arc/unzip.ttp Normal file
View File

Binary file not shown.

BIN
tools/qextract/arc/zoo.ttp Normal file
View File

Binary file not shown.

14
tools/qextract/copying Normal file
View File

@@ -0,0 +1,14 @@
DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
Version 2, December 2004
Copyright (C) 2004 Sam Hocevar <sam@hocevar.net>
Everyone is permitted to copy and distribute verbatim or modified
copies of this license document, and changing it is allowed as long
as the name is changed.
DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
0. You just DO WHAT THE FUCK YOU WANT TO.

BIN
tools/qextract/qextract.gfa Normal file
View File

Binary file not shown.

233
tools/qextract/qextract.lst Normal file
View File

@@ -0,0 +1,233 @@
' This program is released under the WTFPL 2.0. See COPYING for more details
'
'
' Shel_read is used to get the parameters that executed the program
' the next series of instructions are used to get the directory variables
' ...................................................
'
' memory allocation
$m128000
'
~SHEL_READ(cmd$,tail_str$)
tail$=RIGHT$(tail_str$,(LEN(tail_str$)-1))
filelength%=RINSTR(tail$,"\")
length%=LEN(tail$)-filelength%
filename$=RIGHT$(tail$,length%)
progsize%=RINSTR(cmd$,"\")
progdir$=LEFT$(cmd$,progsize%)
' get the file extension
ext$=RIGHT$(tail$,3)
' folder$ is the name and location of the folder to be created
size%=LEN(tail$)-4
folderfull$=LEFT$(tail$,size%)
lsize%=RINSTR(folderfull$,"\")
mysize%=LEN(folderfull$)-lsize%
folder$=RIGHT$(folderfull$,mysize%)
' this set gives us the current directory
dsize%=RINSTR(tail$,"\")
directory$=LEFT$(tail$,dsize%)+CHR$(0)
CHDIR directory$
' this will create an alert box so the user can choose what to do
text$="QUICK EXTRACT 0.6SE Firebee|Released under WTFPL version 2|Extract in current dir|or create a new one?"
button$="New|Cur|Quit"
ALERT 2,text$,1,button$,choice
IF choice=3
END
ENDIF
' here we check the extension to define what type of packing method was used
' and proceed to the relative unpacking procedure
IF ext$="zip" OR ext$="ZIP"
@unzip
ENDIF
IF ext$="rar" OR ext$="RAR"
@unrar
ENDIF
IF ext$="lzh" OR ext$="LZH" OR ext$="lha" OR ext$="LHA"
@unlzh
ENDIF
IF ext$="zoo" OR ext$="ZOO"
@unzoo
ENDIF
IF ext$="tar" OR ext$="TAR"
@untar
ENDIF
IF ext$=".gz" OR ext$=".GZ"
extmore$=RIGHT$(tail$,6)
IF extmore$="tar.gz" OR extmore$="TAR.GZ"
@untargz
ELSE
@gunzip
ENDIF
ENDIF
IF ext$="tgz" OR ext$="TGZ"
@untargz
ENDIF
IF ext$="bz2" OR ext$="BZ2"
extmore$=RIGHT$(tail$,7)
IF extmore$="tar.bz2" OR extmore$="TAR.BZ2"
@untarbz2
ELSE
@bunzip2
ENDIF
ENDIF
IF ext$="tbz" OR ext$="TBZ"
@untarbz2
ENDIF
END
> PROCEDURE project_settings
' WARNING: The contents of this procedure should not be edited!
' INFO "GFA-Basic Editor v1.51 "
' DATE "03/12/2012"
' TIME "19:02:08"
' LIB$ "GBE Lib "
' LIB# $3
' $CMD %00000000000000100000000000000001
' $RAM $0001F400
' FLGS %00010111
' _SYM $0
' .EXT "prg"
' OBJ0 " "
' OBJ1 " "
' OBJ2 " "
' OBJ3 " "
' OBJ4 " "
' OBJ5 " "
' CRSR $00000007
' BLKS $000000C2
' BLKE $000000C4
' MRK0 $FFFFFFFF
' MRK1 $FFFFFFFF
' MRK2 $FFFFFFFF
' MRK3 $FFFFFFFF
' MRK4 $FFFFFFFF
' MRK5 $FFFFFFFF
' MRK6 $00000000
' MRK7 $00000012
' MRK8 $FFFFFFFF
' MRK9 $000000C2
' FIND '00 '
' RPLC '00 '
' FRH0 '00 '
' FRH1 '00 '
' FRH2 '00 '
' FRH3 '00 '
' FRH4 '00 '
' FRH5 '00 '
' FRH6 '00 '
' FRH7 '00 '
' FRH8 '00 '
' FRH9 '00 '
' PST0 '00 '
' PST1 '00 '
' UND0 '00 '
' UND1 '00 '
' CMD$ '00 '
' ENV$ '00 '
RETURN
PROCEDURE unzip
' this procedure calls the extracting programs with the appropriate parameters
' as choosen at the alert box
cmdl$=filename$+" -d "+folder$+CHR$(0)
cmdl2$=filename$+CHR$(0)
IF choice=1
EXEC 0,progdir$+"arc\unzip.ttp",CHR$(LEN(cmdl$))+cmdl$,""
ENDIF
IF choice=2
EXEC 0,progdir$+"arc\unzip.ttp",CHR$(LEN(cmdl2$))+cmdl2$,""
ENDIF
' I should probably find a way to check whether the program completed succesfuly
' and not just write it
ALERT 1,"Operation completed",1,"OK",ending
END
RETURN
PROCEDURE unrar
cmdl$="x "+filename$+" "+folder$+CHR$(0)
cmdl2$="x "+filename$+CHR$(0)
IF choice=1
EXEC 0,progdir$+"arc\unrar.ttp",CHR$(LEN(cmdl$))+cmdl$,""
ELSE
EXEC 0,progdir$+"arc\unrar.ttp",CHR$(LEN(cmdl2$))+cmdl2$,""
ENDIF
ALERT 1,"Operation completed",1,"OK",ending
RETURN
PROCEDURE unlzh
cmdl$="-xw="+folder$+" "+filename$+CHR$(0)
cmdl2$="-x "+filename$+CHR$(0)
IF choice=1
EXEC 0,progdir$+"arc\lha.ttp",CHR$(LEN(cmdl$))+cmdl$,""
ELSE
EXEC 0,progdir$+"arc\lha.ttp",CHR$(LEN(cmdl2$))+cmdl2$,""
ENDIF
ALERT 1,"Operation completed",1,"OK",ending
RETURN
PROCEDURE unzoo
cmdl$="x// "+filename$+CHR$(0)
cmdl2$="x/ "+filename$+CHR$(0)
IF choice=1
EXEC 0,progdir$+"arc\zoo.ttp",CHR$(LEN(cmdl$))+cmdl$,""
ELSE
EXEC 0,progdir$+"arc\zoo.ttp",CHR$(LEN(cmdl2$))+cmdl2$,""
ENDIF
ALERT 1,"Operation Completed",1,"OK",ending
RETURN
PROCEDURE untar
cmdl$=" -xvf "+filename$+" -C"+folder$+CHR$(0)
cmdl2$=" -xvf "+filename$+CHR$(0)
IF choice=1
MKDIR folder$
EXEC 0,progdir$+"arc\tar.ttp",CHR$(LEN(cmdl$))+cmdl$,""
ELSE
EXEC 0,progdir$+"arc\tar.ttp",CHR$(LEN(cmdl2$))+cmdl2$,""
ENDIF
ALERT 1,"Operation completed",1,"OK",ending
RETURN
PROCEDURE untargz
@gunzip
filetar$=LEFT$(filename$,LEN(filename$)-3)
foldertar$=LEFT$(folder$,LEN(folder$)-4)
cmdl$=" -xvf "+filetar$+" -C"+foldertar$+CHR$(0)
cmdl2$=" -xvf "+filetar$+CHR$(0)
IF choice=1
IF ext$="tgz" OR ext$="TGZ"
' **************special provisions for tgz**************
MKDIR folder$
filetar$=filetar$+"tar"
cmdl$=" -xvf "+filetar$+" -C"+folder$+CHR$(0)
cmdl2$=" -xvf "+filetar$+CHR$(0)
' ********end of ugly hack***********
ELSE
MKDIR foldertar$
ENDIF
EXEC 0,progdir$+"arc\tar.ttp",CHR$(LEN(cmdl$))+cmdl$,""
ELSE
EXEC 0,progdir$+"arc\tar.ttp",CHR$(LEN(cmdl2$))+cmdl2$,""
ENDIF
ALERT 1,"Operation completed",1,"OK",ending
RETURN
PROCEDURE gunzip
cmdl$=" -d "+filename$+CHR$(0)
EXEC 0,progdir$+"arc\gunzip.ttp",CHR$(LEN(cmdl$))+cmdl$,""
ALERT 1,"Operation completed",1,"OK",ending
' RESERVE
RETURN
PROCEDURE untarbz2
@bunzip2
filetar$=LEFT$(filename$,LEN(filename$)-4)
foldertar$=LEFT$(folder$,LEN(folder$)-5)
PRINT filetar$
PRINT foldertar$
cmdl$=" -xvf "+filetar$+" -C "+foldertar$+CHR$(0)
cmdl2$=" -xvf "+filetar$+CHR$(0)
IF choice=1
MKDIR foldertar$
EXEC 0,progdir$+"arc\tar.ttp",CHR$(LEN(cmdl$))+cmdl$,""
ELSE
EXEC 0,progdir$+"arc\tar.ttp",CHR$(LEN(cmdl2$))+cmdl2$,""
ENDIF
ALERT 1,"Operation completed",1,"OK",ending
RETURN
PROCEDURE bunzip2
cmdl$=" -d "+filename$+CHR$(0)
EXEC 0,progdir$+"arc\bunzip2.ttp",CHR$(LEN(cmdl$))+cmdl$,""
ALERT 1,"Operation completed",1,"OK",ending
RETURN

BIN
tools/qextract/qextract.prg Normal file
View File

Binary file not shown.

73
tools/qextract/qextract.txt Normal file
View File

@@ -0,0 +1,73 @@
Quick Extract is a small tool designed to call unpacker programs directly
from the desktop. Qextract is free software and released under the WTFPL
version 2.
Most programs of this type are ttp programs that require the passing of
parameters from a command line. This program is designed to bypass this step
in a way that a double click from the desktop will pass all the necessary
parameters to that application. That way with a simple interface the user
can very quickly unpack a zip, rar, lzh, lha and zoo file as well as tar
and gzip archives.
INSTALLATION: The installation is done via the install application option of
the desktop. You copy the program and the arc folder anywhere in your hard
disk (it might work with floppies too haven't tested nor do I plan too,
buy a hard disk). Let's say you copy it in C:\TOOLS\QEXTRACT. You select
QEXTRACT.PRG and you choose "Install application" in the desktop (Set
application in Teradesk). There is an option to assign document type. Select
zip for that and save desktop. Now open Newdesk.inf or desktop.inf with a
text editor, find the string where this is set and copy it below. Now change
zip to rar, lzh, lha, zoo respectively so that you have 5 lines. Save and
exit. Reload the desktop and the application is installed. Double clicking
on any archived file will bring an alert with 3 options.
New: This option will create a new folder named as your filename minus the
extension and all files will be extracted there.
Cur: This will extract the files in the current directory.
Quit: Pretty obvious.
Once finished you'll get an operation completed message. However the program
doesn't check if it has been succesful. There should be error messages from
the unarchivers though.
What else? This program is released under the WTFPL version 2 and I provide
NO WARRANTY whatsoever. See COPYING for more detail.
Bugs and problems: This program uses the Pexec() function and as such it
has the limitation that you can't really use too large strings. Therefore
if the filename and the extracting folder amount to more than 115 chars it
will fail. There is a workaround for that, but I couldn't figure it out. It's
on the todo list though.
-Zoo files are also a bitch. Since the zoo command line is beyond my
cognitive abilities zoo, files will be extracted at the current directory
only. If someone wants to help please do so.
GZ files are always extracted in the current folder. TAR files on the
other hand can be extracted to either the current folder or a new one but
since tar files might make absolute references user discretion is required.
tar.gz files are handled in one go since version 0.4.
BZ2 files are supported since version 0.5. The shortened version tbz isn't and
unless there is demand it won't be. Basically you need to copy the tgz code
and change it just a bit.Everything else is like tar.gz.
CHMOD issues. If you install this program on a mint partition you might need
to change the program flags on all programs.
Other notes. For version 0.5 some nasty bugs have been fixed which surprisinly
noone noticed. It makes sense because these are not issues you normally encounter
or when you do you don't notice but still...
Version 0.6 uses "lha.ttp" mint coldfire compiled version from V.Rivi<76>re instead
of the old "lharceng.ttp" for LZH and LHA archives.
Credits:
Code and idea: ChrisTOS (or ChrisMiNT if I am on the falcon)
unrar.ttp compiled by GGN
Tester group: GGN, SHW, PeP, Beetle, Lonny Purcell
Coding tips and bug tracking: Lonny Purcell, GGN
This program was coded with GBE:
http://www.bright.net/~gfabasic/html/gbe.htm