C/COMPACTA
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

First commit 11/11/1991

Browse Source
This commit is contained in:
José David Guillén
2021-09-03 17:51:51 +02:00
commit 27e54671f3
16 changed files with 2251 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

215
COMPACTA.H Normal file
View File

@ -0,0 +1,215 @@
//////////////// Recuadros de Selecci<63>n
#define Fichero_EXE 1
#define Info_Fich_Cola 2
#define B_Browser 3
#define Files_Already_Added 4
#define Files_Added 5
//////////////// Botones
#define Select_EXE 1
#define Load_PRJ 2
#define Save_PRJ 3
#define Make_H 4
#define Sort_Cola 5
#define Join_Files 6
#define Ins 7
#define Supr 8
#define SWAP 9
#define Exit 10
#define Subir_Browser 11
#define Select_Browser 12
#define Bajar_Browser 13
/////
#define HIDE 0
#define SHOW 1
/************************************************************************\
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
\************************************************************************/
typedef struct
{
char Fichero[13];
long Longitud;
unsigned char attrs;
} BROWSER;
typedef struct
{
char Fichero[13];
long Longitud;
long Posicion;
} COLA;
typedef struct
{
BROWSER ExeInfo;
char DirectorioExe[200];
char DestName[13];
char FilesAdded;
COLA Cola[51];
char Directorio[51][200];
char Selected[51];
char Macro[51][15];
} PROJECT;
typedef struct
{
char ID_Code; // Debe contener una constante de comprobacion 'J'
char ID_check; // igual que el anterior pero conteniendo 'D'
char JD_string[11]; // aqui debe haber escrito "Jos<6F> David" + NULL
long Org_Long; // Longitud original del EXE...
char N_Files_Added;
} EXE_COLA;
/************************************************************************\
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
\************************************************************************/
/************************************************************************\
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>F<EFBFBD>U<EFBFBD>N<EFBFBD>C<EFBFBD>I<EFBFBD>O<EFBFBD>N<EFBFBD>E<EFBFBD>S<EFBFBD><53><EFBFBD>D<EFBFBD>E<EFBFBD>L<EFBFBD><4C><EFBFBD>S<EFBFBD>E<EFBFBD>L<EFBFBD>E<EFBFBD>C<EFBFBD>T<EFBFBD><54><EFBFBD>F<EFBFBD>I<EFBFBD>L<EFBFBD>E<EFBFBD>S<EFBFBD><53><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
\************************************************************************/
#ifndef __Modulo_Principal
#define JD_ch extern
#else
#define JD_ch
#endif
JD_ch void formatea_long( long Numero, char *Inter_Chg );
JD_ch void ShowHideSelect( char Hide_Show ) ;
JD_ch void Delete_Added( void ) ;
JD_ch void Marca_Bordes( void ) ;
JD_ch void All_Screen( void ) ;
JD_ch void DownSelect( void ) ;
JD_ch void UpSelect( void ) ;
JD_ch void AddFile( void ) ;
JD_ch void ShowInfo( int Hide_Show ) ;
JD_ch void SelectFile( void ) ;
JD_ch void Start_Join(void) ;
JD_ch void Load_Project(void) ;
JD_ch void Save_Project(void) ;
JD_ch void Make_Header(void) ;
JD_ch void Check_EXE(void) ;
#ifdef __Modulo_Principal
void Start_Join(void) {}
void Load_Project(void) {}
void Save_Project(void) {}
void Make_Header(void) ;
void Check_EXE(void) {}
void FSort_Cola(void) ;
#endif
#undef JD_ch
/************************************************************************\
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>F<EFBFBD>U<EFBFBD>N<EFBFBD>C<EFBFBD>I<EFBFBD>O<EFBFBD>N<EFBFBD>E<EFBFBD>S<EFBFBD><53><EFBFBD>D<EFBFBD>E<EFBFBD>L<EFBFBD><4C><EFBFBD>B<EFBFBD>R<EFBFBD>O<EFBFBD>W<EFBFBD>S<EFBFBD>E<EFBFBD>R<EFBFBD><52><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
\************************************************************************/
#ifndef __Modulo_Browser
#define JD_ch extern
#else
#define JD_ch
#endif
JD_ch unsigned int RasterScan( void ) ;
JD_ch void ShowHideBrowserRow( char Hide_Show ) ;
JD_ch void ReDraw_Browser( void ) ;
JD_ch void Fill_Directory( void ) ;
JD_ch int SelectBrowser( void ) ;
JD_ch void DownBrowser( void ) ;
JD_ch void UpBrowser( void ) ;
#undef JD_ch
/**************************************************************************\
<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>
\**************************************************************************/
/*
,
\
\ !
___________________________\___ <20>Ŀ
/ / <20> <20>Ŀ\ <20><><EFBFBD>
/ / <20> <20><><EFBFBD> \ <20><><EFBFBD>
/__/ <20>__<5F>-_ÿ \ <20><><EFBFBD> <20>Ŀ
----- <20> ____ ____ \____\___ ---------<2D><><EFBFBD>----
/ / __ \ / __ \ <20># ------<2D>ſ
<09>/ / \ \ ________________ / / \ \ \<5C> -------|<7C>|
<20><> | JD | <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> | JD | <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ________
<20> \ / \ / ________
______________<EFBFBD><EFBFBD>____________________________<EFBFBD><EFBFBD>_______________________________
|||||||||======
/ ___ \====
/ ___ / __
/ / __/ <20> \
| / <20> \ <20><><EFBFBD>|
\ | <20><><EFBFBD>| /
| \ / <20>-------\
\ <20><> ---------/
\ \======/ |
\_________/
*/
#ifndef __Modulo_Principal
#define JD_ch extern
#else
#define JD_ch
#endif
JD_ch char Borde_Activo; // Indica el recuadro actualmente activo
JD_ch char Comodin[13]; // Comodin de rastreo para el Browser
JD_ch char EXE_is_JD; // El EXE cargado ha sido tratado por JD
JD_ch char FilesAdded; // Numero de Ficheros a<>adidos a la cola
JD_ch char CurrRow; // Linea actual en la cola..............
JD_ch char BrowserRow;
JD_ch int BrowserTop;
JD_ch int maxfiles;
JD_ch char oldpath[229]; //internal. do not change
JD_ch unsigned char olddrive; //impossible drive name
JD_ch char olddisk, key;
JD_ch long LastPosicion; // Esta variable guarda la ultima posici<63>n dentro
JD_ch char LastSelected; // del ejecutable y la siguiente, el <20>ltimo se<73>alado
////////////////////////////////////////////////////////////////////////////
/***************************************************************************\
| Critical Disk Error handling routines (C) 1995 Jason Speight. |
| void interrupt critical_error_handler(__CPPARGS) is the interrupt which |
| captures disk io errors. (int 0x24, if you're interested!) Such errors |
| are : Disk not inserted in drive, seek error reading from a drive, general|
| disk failure etc. The only things the interrupt does is : |
| Suppress the dos ABORT,RETRY,FAIL,IGNORE statement |
| Sets a variable erroroccurred to the dos error statement. (!=0) |
| |
| StartCEH() and StopCEH() start and stop the error handler. YOU MUST |
| STOPCEH BEFORE THE EXIT OF THE PROGRAM. or else when you get a disk |
| error, the int 24 issued bu DOS points to the middle of nowhere! *HANG* |
| |
| diskerror() is my routine to display a disk IO error. It also sets the |
| global variable erroroccurred to 0 for future use. This procedure also |
| needs access to "SCRNHNDL.H" and "BOXES.H" |
| |
| BTW, anybody know how to trap the message "PLEASE INSERT DISK FOR DRIVE x"|
\***************************************************************************/
//for interrupt handlers
JD_ch void interrupt critical_error_handler(...) ; // interrupt prototype
JD_ch void interrupt (*old_int24)(...) ; // interrupt function pointer
JD_ch void startceh() ;
JD_ch void stopceh() ;
JD_ch int erroroccurred;
#undef JD_ch