From:	Svein Ove Aas <ketilaas AT online DOT no>
Newsgroups:	comp.os.msdos.djgpp
Subject:	Weird error
Date:	Fri, 24 Jul 1998 15:32:01 +0200
Organization:	Telenor Online Public Access
Lines:	88
Message-ID:	<35B88CD1.DC1C92C8@online.no>
NNTP-Posting-Host:	ti33a95-0025.dialup.online.no
Mime-Version:	1.0
To:	djgpp AT delorie DOT com
DJ-Gateway:	from newsgroup comp.os.msdos.djgpp

I have a rather strange error here:

My compiler insists that there's a parse error in front of a zero, but
there isn't any number at all there.

What might be the reason?

I use Allegro 3.0, and RHIDE.


Here's the source. (Failure point indicated)

// Functions for loading menu objects, and displaying menus.

#include <allegro.h>
#include <string.h>
#include "ss.h"
#include "datafile.h"

void *load_menufile(PACKFILE *f, long size)
     {
     int c;
     C_MENU *tmp=new C_MENU;
     tmp->numitems = pack_igetw(f);
     tmp->menudata = new char* [tmp->numitems];
     char buf[100];

     for (c=0; c <= tmp->numitems; c++) {
         pack_fgets(buf,100,f);
         tmp->menudata[c]=new char[strlen(buf)];
         strncpy(tmp->menudata[c],buf,strlen(buf));
     }
     return(tmp);
}

void destroy_menufile(void *menu) {
     delete menu;
}

// Here's the menu-view function.
int PROGRAM::menu(C_MENU *menu) {
    int menuchoice = 0;
    bool no_choice = -1;
    DATAFILE
*backgrounds=load_datafile_object("datafile.dat","backgrounds");
<-----<------<  Failure point.
    BITMAP *buffer=create_bitmap(640,480);
    BITMAP *bg=(BITMAP *)backgrounds[backgrounds_menu].dat;
<---------<---------< Another failure here.(Error:       invalid types
'int[int]' for array subscript.

    text_mode(-1);
    blit(buffer,bg,0,0,0,0,640,480);
    const up_start=(menu->numitems*8)+((menu->numitems-1)*8);
    const down_end=(menu->numitems*8)+((menu->numitems-1)*8);
    int y;

    while (no_choice) {
          y=up_start;
          for (int index=0; index <= (menu->numitems); index++) {
              y += 16;
              if (index==menuchoice)
                 textout_centre
(buffer,font,menu->menudata[index],320,y,makecol(255,200,200));
              else
                 textout_centre
(buffer,font,menu->menudata[index],320,y,makecol(200,40,40));
          }
          vsync();
          blit (screen,buffer,0,0,0,0,640,480);
          switch (readkey() >> 8) {
                 case KEY_UP:
                             menuchoice = menuchoice == 0 ?
menu->numitems : menuchoice - 1;
                             break;
                 case KEY_DOWN:
                               menuchoice = menuchoice == menu->numitems
? 0 : menuchoice + 1;
                               break;
                 case KEY_ENTER:
                                no_choice = 0;
                                break;
          }
    }
    vsync();
    clear(screen);
    destroy_bitmap(buffer);
}

- Raw text -