/* types */

#define AUTO            auto    /* automatic variables */
#define AGLOBAL         ;       /* global (project-scope) */
#define MODULE		static	/* external static (file-scope) */
#define PERSIST		static	/* internal static (function-scope) */
typedef signed char	ABOOL;	/* 8-bit signed quantity (replaces BOOL) */
typedef signed char	SBYTE;	/* 8-bit signed quantity (replaces Amiga BYTE) */
typedef signed short	SWORD;	/* 16-bit signed quantity (replaces Amiga WORD) */
typedef signed long	SLONG;	/* 32-bit signed quantity (same as LONG) */
#define elif		else if

#define ASM             __asm
#define REG(x)          register __ ## x

#ifdef __STORM__
    #define __inline
    #define chip
    #define EXIT_SUCCESS  0
    #define EXIT_FAILURE 20
    AGLOBAL ULONG stcl_d(STRPTR out, ULONG val);
    AGLOBAL ULONG stcl_h(STRPTR out, ULONG val);
#endif
#ifdef LATTICE
    #define CONST_STRPTR STRPTR
#endif

// defined by AmigaOS are: IMPORT, UBYTE, UWORD, ULONG.

#define  GID_5_LY1 0  // root layout
#define  GID_5_ST1 1  // string 1 (card)
#define  GID_5_ST2 2  // string 2 (manufacturer)
#define  GID_5_ST3 3  // string 3 (product)
#define  GID_5_ST4 4  // string 4 (description)
#define  GID_5_BU1 5  // button 1 (menu)
#define  GID_5_BU2 6  // button 2 (previous card)
#define  GID_5_BU3 7  // button 3 (next card)
#define  GID_5_CB1 8  // checkbox 1 (internal)
#define  GID_5_CB2 9  // checkbox 2 (official)
#define  GID_5_CH1 10 // chooser 1 (precedence)
#define  GID_5_IN1 11 // integer 1 (manufacturer ID)
#define  GID_5_IN2 12 // integer 2 (product ID)
#define  GIDS_5    GID_5_IN2

#define GID_10_LY1 0  // root layout
#define GID_10_CB1 1  // checkbox 1
#define GID_10_CB2 2  // checkbox 2
#define GID_10_CB3 3  // checkbox 3
#define GID_10_CB4 4  // checkbox 4
#define GID_10_CB5 5  // checkbox 5
#define GID_10_CB6 6  // checkbox 6
#define GID_10_CB7 7  // checkbox 7
#define GID_10_CB8 8  // checkbox 8
#define GID_10_CB9 9  // checkbox 9 (log to file?)
#define GID_10_CH1 10 // chooser     (AmigaOS version)
#define GID_10_ST1 11 // string 1    (pathname)
#define GID_10_ST2 12 // string 2    (status)
#define GID_10_BU1 13 // button 1    (pathname(s) ASL)
#define GID_10_BU2 14 // button 2    (update)
#define GID_10_BU3 15 // button 3    (stop)
#define GID_10_BU4 16 // button 4    (menu)
#define GID_10_LB1 17 // listbrowser (results)
#define GIDS_10    GID_10_LB1

#define GID_11_LY1 0
#define GID_11_ST1 1
#define GID_11_ST2 2
#define GID_11_ST3 3
#define GID_11_ST4 4
#define GID_11_ST5 5
#define GID_11_ST6 6
#define GID_11_ST7 7
#define GID_11_TE1 8
#define GID_11_BU1 9
#define GIDS_11    GID_11_BU1

#define GID_12_LY1 0  // root layout
#define GID_12_CH1 1  // chooser 1   (icon type)
#define GID_12_CB1 2  // checkbox 1  (optimize?)
#define GID_12_CB2 3  // checkbox 2  (planar?)
#define GID_12_ST1 4  // string 1    (pathname(s))
#define GID_12_ST2 5  // string 2    (status)
#define GID_12_BU1 6  // button 1    (pathname(s) ASL)
#define GID_12_BU2 7  // button 2    (menu)
#define GID_12_BU3 8  // button 3    (process)
#define GID_12_BU4 9  // button 4    (stop)
#define GIDS_12    GID_12_BU4

#define BUG        0
#define COM        1
#define ENH        2

#define FONTX      8
#define FONTY      8

// ASCII values (vanillakey)
#define TAB        9 /* tab */
#define LF        10 /* linefeed */
#define CR        13 /* carriage return */
#define ESCAPE    27 /* escape */
#define QUOTE     34 /* " (double quote) */

// Scancodes (rawkey)
#define SCAN_R      19
#define SCAN_T      20
#define SCAN_I      23
#define SCAN_P      25
#define SCAN_S      33
#define SCAN_D      34
#define SCAN_G      36
#define SCAN_H      37
#define SCAN_L      40
#define SCAN_C      51
#define SCAN_V      52
#define SCAN_ESCAPE 69
#define SCAN_UP     76
#define SCAN_DOWN   77
#define SCAN_HELP   95

#define GREY              0
#define BLACK             1
#define WHITE             2
#define RED               3
#define BLUE              4
#define LIGHTGREY         5
#define ORANGE            6
#define YELLOW            7
#define LIGHTGREEN       14

#define MAXELEMENTS      14 // counting from 0

#define TITLEBARTEXT      "Report+ 5.21"

#define FIRSTQUALIFIER 0x61
#define LASTQUALIFIER  0x67
#define KEYUP          0x80 /* key release */

#define MN_PROJECT        0
#define MN_HELP           1

#define IN_NEW            0
#define IN_OPEN           1
#define IN_SAVE           3
#define IN_SAVEAS         4
#define IN_QUIT           6

#define IN_MANUAL         0
#define IN_ABOUT          2

AGLOBAL void report1(void);
AGLOBAL void report_loop(ULONG class, struct Gadget* addr, UWORD code, UWORD qual);
AGLOBAL void report_exit(void);
AGLOBAL void report_init(void);
AGLOBAL void sender(void);
AGLOBAL void config(void);
AGLOBAL void newreport(ABOOL display);
AGLOBAL void openreport(void);
AGLOBAL void savereport(ABOOL saveas);
AGLOBAL void loadreport(void);

AGLOBAL void aminet_init(void);
AGLOBAL void aminet_die(void);
AGLOBAL void aminet1(void);
AGLOBAL void aminet_loop(ULONG class, struct Gadget* addr, UWORD code, UWORD qual);
AGLOBAL void aminet_exit(void);
AGLOBAL void newaminet(ABOOL display);
AGLOBAL void openaminet(void);
AGLOBAL void saveaminet(ABOOL saveas);
AGLOBAL void loadaminet(void);

AGLOBAL void acse1(void);
AGLOBAL void acse2(void);
AGLOBAL void acse3(void);
AGLOBAL void acse_exit(void);
AGLOBAL void decrypt(void);
AGLOBAL void acse_loop(ULONG class, struct Gadget* addr, UWORD code);

AGLOBAL void autodoc_init(void);
AGLOBAL void autodoc1(void);
AGLOBAL void newautodoc(ABOOL display);
AGLOBAL void openautodoc(void);
AGLOBAL void saveautodoc(ABOOL saveas);
AGLOBAL void autodoc_loop(ULONG class, struct Gadget* addr, UWORD code);

AGLOBAL void manuf1(void);
AGLOBAL void manuf_loop(ULONG gid);
AGLOBAL void manuf_config(void);
AGLOBAL void manuf_die(void);
AGLOBAL ULONG Hook5Func(struct Hook *h, VOID *o, VOID *msg);

AGLOBAL void iff1(void);
AGLOBAL void iff_loop(ULONG class, struct Gadget* addr, UWORD code, UWORD qual);
AGLOBAL void iff_config(void);
AGLOBAL void iff_die(void);

AGLOBAL void eol1(void);
AGLOBAL void eol2(void);
AGLOBAL void eolconvert(ABOOL gui);
AGLOBAL void eol_loop(ULONG class, struct Gadget* addr, UWORD code, UWORD qual);
AGLOBAL void eol_die(void);

AGLOBAL void size_init(void);
AGLOBAL void size_die(void);
AGLOBAL void size1(void);
AGLOBAL void updatesize(void);
AGLOBAL void size_loop(ULONG class, struct Gadget* addr, UWORD code, UWORD qual);
AGLOBAL void size_exit(void);

AGLOBAL void batt_init(void);
AGLOBAL void batt1(void);
AGLOBAL void batt_loop(ULONG class, struct Gadget* addr, UWORD code, UWORD qual, SWORD mousex, SWORD mousey);
AGLOBAL void batt_open(void);
AGLOBAL void batt_save(ABOOL saveas);
AGLOBAL void writebatt(ABOOL verify);

AGLOBAL void files1(void);
AGLOBAL void files_loop(ULONG gid);
AGLOBAL void files_init(void);
AGLOBAL void files_exit(void);
AGLOBAL void files_die(void);
AGLOBAL ULONG Hook10Func(struct Hook *h, VOID *o, VOID *msg);

AGLOBAL void agdb1(void);
AGLOBAL void agdb_loop(ULONG gid);
AGLOBAL void newagdb(ABOOL display);
AGLOBAL void openagdb(void);
AGLOBAL void saveagdb(ABOOL saveas);
AGLOBAL void loadagdb(void);
AGLOBAL ULONG Hook11Func(struct Hook *h, VOID *o, VOID *msg);

AGLOBAL void icon1(void);
AGLOBAL void icon2(void);
AGLOBAL void iconconvert(ABOOL gui);
AGLOBAL void icon_loop(ULONG gid);
AGLOBAL void icon_do(void);
AGLOBAL void icon_die(void);
AGLOBAL ULONG Hook12Func(struct Hook* h, VOID* o, VOID* msg);

// rp.c
AGLOBAL void outputasl(STRPTR pattern);
AGLOBAL void outputstring(void);
AGLOBAL void fliplog(ABOOL keyboard);
AGLOBAL void getdate(void);
AGLOBAL void loop(void);
AGLOBAL void navigate(void);
AGLOBAL void rq(STRPTR text);
AGLOBAL void cleanexit(SBYTE rc);
AGLOBAL void closewindow(void);
AGLOBAL void FreeNameNodes(struct List* ListPtr);
AGLOBAL ABOOL asl(STRPTR pattern);
AGLOBAL void launcheditor(STRPTR pathname);
AGLOBAL void readordie(STRPTR pathname);
AGLOBAL void writeout(STRPTR pathname); // remember write() is reserved
AGLOBAL ABOOL readin(STRPTR pathname);
AGLOBAL void verynewwindow(SWORD width, SWORD height, STRPTR title, ULONG idcmp);
AGLOBAL void setgadget(WORD leftx, WORD topy, WORD width, WORD height, STRPTR text,
    ULONG flags);
AGLOBAL void append(STRPTR pathname);
AGLOBAL ULONG checkbreak(void);
AGLOBAL void clearlist(struct List*);
AGLOBAL ABOOL aboutloop(void);
AGLOBAL VOID DrawGels(void);
AGLOBAL void AddNameToTail(struct List* ListPtr, STRPTR name);
AGLOBAL void drawgadgets(WORD gadgets);
AGLOBAL void parse(STRPTR terminator);
AGLOBAL void parsetoend(void);
AGLOBAL ABOOL saveasl(STRPTR message, STRPTR pattern);
AGLOBAL void handlemenus(UWORD code);
AGLOBAL void gadtools(void);
AGLOBAL void lockscreen(void);
AGLOBAL void unlockscreen(void);
AGLOBAL void getfillcolour(void);
AGLOBAL void multiasl(STRPTR pattern);
AGLOBAL void convert(ABOOL gui);
AGLOBAL void checkabort(ABOOL gui);
AGLOBAL void InitHook(struct Hook* hook, ULONG (*func)(), void* data);
AGLOBAL ULONG Hook0Func(struct Hook* h, VOID* o, VOID* msg);
AGLOBAL ULONG ASM hookEntry(REG(a0) struct Hook *h, REG(a2) VOID *o, REG(a1) VOID *msg);
AGLOBAL void helpabout(void);
AGLOBAL void clearreactionlist(struct List* ListPtr);
AGLOBAL void textedit(void);

#define REPORTHEIGHT    256 /* page 11 */
#define REPORTWIDTH     640 /* page 11 */
#define SENDERWIDTH     442 /* page 12 */
#define SENDERHEIGHT    124 /* page 12 */
#define CONFIGWIDTH     640 /* page 13 */
#define CONFIGHEIGHT    198 /* page 13 */

#define AMINETWIDTH     640 // page 21
#define AMINETHEIGHT    256 // page 21

#define ACSE1WIDTH      640 /* page 31 */
#define ACSE1HEIGHT     192 /* page 31 */
#define ACSE2WIDTH      600 /* page 32 */
#define ACSE2HEIGHT     126 /* page 32 */
#define ACSE3WIDTH      600 /* page 33 */
#define ACSE3HEIGHT      94 /* page 33 */

#define AUTODOCWIDTH    640 /* page 41 */
#define AUTODOCHEIGHT   256 /* page 41 */

#define IFF1WIDTH       640 /* page 61 */
#define IFF1HEIGHT      422 /* page 61 */

#define EOL1WIDTH       540 /* page 71 */
#define EOL1HEIGHT      198 /* page 71 */

#define SIZE1HEIGHT     512 /* page 81 */
#define SIZE1WIDTH      640 /* page 81 */

#define BATT1HEIGHT     166 /* page 91 */
#define BATT1WIDTH      640 /* page 91 */

#define MEDFIELD         32
#define LONGFIELD        64
#define VLONGFIELD      254
#define LONGESTFIELD  16536

AGLOBAL struct SharedStruct
{   ULONG log;                      // we use GetAttr() on it, so it must be ULONG
    UWORD function;
    TEXT    output[VLONGFIELD + 1],
          thisfile[VLONGFIELD + 1], /* <= 254 characters per pathname */
          thatfile[VLONGFIELD + 1],
          pathname[VLONGFIELD + 1];
};

/* struct NameNode is simply an extended Node structure: a Node structure
followed by 96 bytes which hold the name of the node. This is so that the
NameNode structure can hold everything relevant to the node. */
AGLOBAL struct NameNode
{   struct Node nn_Node;
    TEXT        nn_Data[96];
    /* It must be long enough that you can hold a long pathname, longer than
    will fit on the display, because it needs to be accurately compared
    with the built-in list of system files. It needs to be at least as
    long as the longest of those built-in files, plus 5 extra characters
    for the .info extension. */
};
AGLOBAL struct PathnameNode
{   struct Node nn_Node;
    TEXT        nn_Data[256];
    // Used to hold complete pathnames.
};
AGLOBAL struct ReportStruct
{   ABOOL loaded;
    ULONG floppies;
    UWORD agnus, denise, cpu, model, type, severity, subsystem;
    TEXT     chipram[5],
             fastram[5],
                hard[MEDFIELD + 1],
               debug[LONGFIELD + 1],
           developer[LONGFIELD + 1],
           expansion[LONGFIELD + 1],
             summary[LONGFIELD + 1],
                  ks[6],
                  wb[6],
                  pv[LONGFIELD + 1],
                  pp[LONGFIELD + 1],
           thirdname[MEDFIELD + 1],
            thirdver[MEDFIELD + 1],
          thirdmanuf[MEDFIELD + 1],
            lastname[MEDFIELD + 1],
           firstname[MEDFIELD + 1],
             company[MEDFIELD + 1],
               phone[MEDFIELD + 1],
               email[MEDFIELD + 1],
               refer[VLONGFIELD + 1],
             referid[VLONGFIELD + 1],
                path[VLONGFIELD + 1],
              config[VLONGFIELD + 1],
           textfield[6][4096],
              output[VLONGFIELD + 1];
};
AGLOBAL struct AminetStruct
{   TEXT  amishort[41], // `short' is a reserved keyword, of course
          uploader[41],
          author[41],
          requires[41],
          version[41],
          distribution[41],
          type[12], // ____/_____
          replaces[41],
          output[VLONGFIELD + 1],
          textfield[4096];
    ULONG maintype,
          subtype;
    ABOOL loaded;
};
AGLOBAL struct AutodocStruct
{   ULONG version;
    ABOOL loaded;
    TEXT  library[MEDFIELD + 1],        /* eg. workbench.library */
          function[MEDFIELD + 1],
          description[VLONGFIELD + 1],
          output[VLONGFIELD + 1],
          textfield[5][4096];
    struct
    {   TEXT name[MEDFIELD + 1],
             type[MEDFIELD + 1],
             reg[MEDFIELD + 1],
             desc[4096];
    } var[9];
};
AGLOBAL struct IFFStruct
{   ABOOL cd, rkm, obsolete, private, proposal, reserved, standard, unregistered, raw;
    TEXT  pathname[VLONGFIELD + 1];
};
AGLOBAL struct AGDBStruct
{   TEXT  title[MEDFIELD + 1], // `short' is a reserved keyword, of course
          publisher[MEDFIELD + 1],
          players[MEDFIELD + 1],
          hdinstallable[MEDFIELD + 1],
          compatibility[MEDFIELD + 1],
          gametype[MEDFIELD + 1],
          output[VLONGFIELD + 1],
          textfield[4096];
    ABOOL loaded;
};
AGLOBAL struct IconStruct
{   ULONG optimize, planar, // these must be ULONG not ABOOL nor BOOL!
          type;             // this must be ULONG not UWORD!
};