NXC file issue: BCC hangs up when loading

Discussion specific to NXT-G, NXC, NBC, RobotC, Lejos, and more.
Post Reply
HaWe
Posts: 2500
Joined: 04 Nov 2014, 19:00

NXC file issue: BCC hangs up when loading

Post by HaWe »

there is a strange issue with this file:
I can open it by the Windows editor, but if I want to load it into BCC (copy/paste into new tab or open file from Hard Disk) then BCC hangs up:

Code: Select all

/******************************************************************************/
//                               micro-NeXC
//                             chess for NXT
/******************************************************************************/
//                               BT slave
/******************************************************************************/
#define debug

#include "CHESS_AI_MOVE_GENERATOR.nxc"
#include "BT_JHS_TOOLS_H.nxc"

#define BT_CONN   0

#define INBOX_1   1 // in: bool
#define OUTBOX_1  2 // out: sensors + variables

#define INBOX_2   3 // in: cmd_string
#define OUTBOX_2  4 // out: ack

#define MyName="001"
    


char PMOD=1;

mutex MUTEX_ARRAYWRITE;

/* forward */ task DisplayValues();


/******************************************************************************/
void Init(){
/******************************************************************************/
  SetLongAbort(true);
  ResetSleepTimer();
  SetSleepTimeout(0);
  AUTOMV_RDY=0;
}


//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
inline int checksum(string s) {
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    int cs=0;
    for (int i=0;i<strlen(s);++i) cs+=s[i];
    return cs;
}


//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
//BT Setup
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    long SensorCurrArr;
    int  SensorValueDecimals[11];  // decimals: 1: (0...9), 4: (-999...9999)
    long SensorArray[11];

    char MPortArray[3];     //RotateMotorEx(OUT_A, 75, 360, 0, false, true);
    char MPowrArray[3];
    int  MAnglArray[3];
    char MTpctArray[3];
    bool MSyncArray[3];
    bool MStopArray[3];

    char __MGrdy=0;

//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void InitSensors()
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    {
                                    //  Sensors  S1...S4
       SetSensorTouch(0);
       SensorValueDecimals[0]=1;    // Touch Sensor1: 1 decimal ("0" or "1")

       SetSensorTouch(1);
       SensorValueDecimals[1]=1;    // Touch Sensor2: 1 decimal ("0" or "1")

       SetSensorTouch(2);
       SensorValueDecimals[2]=1;    // Touch Sensor3: 1 decimal ("0" or "1")

       SetSensorTouch(3);
       SensorValueDecimals[3]=1;    // flag: Move generation ready=1/0

//..............................................................................
                                    // e.g. "fictive" Sensors / values
       SensorValueDecimals[4]=3;    // K: -1...128

       SensorValueDecimals[5]=3;    // L: -1...128

       SensorValueDecimals[6]=4;    // score: -999...+999

       SensorValueDecimals[7]=1;    // flag: EP

       SensorValueDecimals[8]=1;    // flag: RK

       SensorValueDecimals[9]=1;    //

       SensorValueDecimals[10]=2;   // dummy

    }

//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

#define PPS35_Port  S4
#define PneumPump   OUT_C
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
float PPS35_PSI (byte port){  return ( -0.0574 * SensorRaw(port) + 56.8); }

//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
task PneumPressurePump()
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
{
	string msg;
  int v,w,r, hPa;
  float PSI;

	while (true) {
    r = SensorRaw(PPS35_Port);
    PSI = PPS35_PSI (PPS35_Port);
    hPa = PSI * 68.95;

    if(hPa<800)  OnFwd(PneumPump,100); // pneumatic pressure pump
		else if(hPa>900) Off(PneumPump);
		Wait (500);
  }
}


//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
inline void GetSensorValues(int i)
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

{
   if(i<4) Acquire(MUTEX_ARRAYWRITE);

   switch (i) {

          case 0:  SensorCurrArr=Sensor(i);
                   SensorArray[i] =Sensor(i);
                   break;

          case 1:  SensorCurrArr=Sensor(i);
                   SensorArray[i] =Sensor(i);
                   break;

          case 2:  SensorCurrArr=Sensor(i);     //
                   SensorArray[i] =Sensor(i);
                   break;

          case 3:  SensorCurrArr= AUTOMV_RDY;     break;   // flag move ready

          case 4:  SensorCurrArr=SensorArray[4];  break;   // K

          case 5:  SensorCurrArr=SensorArray[5];  break;   // L

          case 6:  SensorCurrArr=SensorArray[6];  break;   // score

          case 7:  SensorCurrArr=SensorArray[7];  break;   // flag EP

          case 8:  SensorCurrArr=SensorArray[8];  break;   // flag RK

          case 9:  SensorCurrArr=0;      break;   // dummy

          case 10: SensorCurrArr=0;      break;   // dummy

   }
   if(i<4) Release(MUTEX_ARRAYWRITE);
}

//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
task DisplayValues(){
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
   int i;
   ClearScreen();
   while (true) {
     for (i=0; i<3; ++i) {
       printf1(0,56-i*8,"T%d",i); printf1(30,56-i*8,"%2d",SensorArray[i]);
     }
     printf1(0,32,"3Mrdy%2d",SensorArray[3]);
     printf1(0,24,"4 K  %5d",SensorArray[4]);
     printf1(0,16,"5 L  %5d",SensorArray[5]);
     printf1(0, 8,"6 Scr%5d",SensorArray[6]);

     Wait(50);
   }
}

//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
inline void ClearMailbox(byte mailbox)
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
{
  MessageReadType args;
  args.QueueID = mailbox;     // on slave: + 10
  args.Remove = true;
  args.Result = NO_ERR;
  while (args.Result != STAT_MSG_EMPTY_MAILBOX)
    SysMessageRead(args);
}



//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
inline void MotorOff(const byte &port)
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
{
   SetOutput(port, Power, 0,
             OutputMode,  OUT_MODE_COAST,
             RegMode,     OUT_REGMODE_IDLE,
             RunState,    OUT_RUNSTATE_IDLE,
             UpdateFlags, UF_UPDATE_MODE + UF_UPDATE_SPEED);
}



char CmdRdy;

//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
task OUT_A_up() {
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
   CmdRdy=false;
   MotorOff(OUT_A);
   Wait(1);
   while(!(SensorValue(S3))) {  // dn pos = S3
     OnFwd(OUT_A, -100);
     Wait(1);
     if (SensorValue(S3)) {
        MotorOff(OUT_A);
        Wait(50);
     }
  }
  Coast(OUT_A);
  CmdRdy=true;
  Wait(1);
}


//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
task OUT_A_md() {
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  char speed ;
  speed=100;
  CmdRdy=false;

  MotorOff(OUT_A);
  Wait(1);
  while(!(SensorValue(S2))) {
      if(SensorValue(S1)) speed=-100;
      OnFwd(OUT_A, speed);
      Wait(1);
      if (SensorValue(S2)) {  // dn pos = S1
        MotorOff(OUT_A);
        speed=0;
        Wait(50);
      }
  }
  Coast(OUT_A);
  CmdRdy=true;
  Wait(1);
}

//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
task OUT_A_dn() {
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  CmdRdy=false;
  MotorOff(OUT_A);
  Wait(1);
  while(!(SensorValue(S1))) {
      OnFwd(OUT_A, +100);
      Wait(1);
      if (SensorValue(S1)) {  // dn pos = S1
        MotorOff(OUT_A);
        Wait(50);
      }
  }
  Coast(OUT_A);
  CmdRdy=true;
  Wait(1);
}


//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
char aArray_[], bArray_[], cArray_[], dArray_[];
char board_[129];
char K_, L_, turn_, EP_, RK_, CK_, CM_;
int rscore_;
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
#define INVALID -1024

//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
inline void RemoteAutoMove(){
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    Acquire(MUTEX_ARRAYWRITE);
     ClearScreen();
     AUTOMV_RDY    =0;
     rscore_       =INVALID;
     SensorArray[4]=K_;
     SensorArray[5]=L_;

     SensorArray[7]=EP_;
     SensorArray[8]=RK_;
     PrintBoard(K_, L_, turn_, CK_, CM_, RK_, board_);
     ClearMailbox (INBOX +10);
     Wait(1);
    Release(MUTEX_ARRAYWRITE);


    rscore_=AutoMove(K_, L_, turn_, EP_, RK_, CK_, CM_, board_, PMOD);
    while(rscore_==INVALID) {Wait(1);}
    
    Acquire(MUTEX_ARRAYWRITE);
     ClearScreen();
     AUTOMV_RDY    =1;
     SensorArray[4]=K_;
     SensorArray[5]=L_;
     SensorArray[6]=rscore_;
     SensorArray[7]=EP_;
     SensorArray[8]=RK_;
    Release(MUTEX_ARRAYWRITE);

    Wait(1);
    TextOut(0,24, MyName);      printf1(54,24,"rdy:%2d", AUTOMV_RDY);
    printf1(0,16,"K%4d",  K_);  printf1(54,16,"L%4d",    L_);
    printf1(0, 8,"EP%3d" ,EP_); printf1(54, 8,"RK%3d",   RK_);
    printf1(0, 0,"scr%5d",rscore_);
#ifdef debug
    Wait(2000);
#endif

    start DisplayValues;
}


string __cmd;
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
task ExecCmd()
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
{
      char initial, port=0, power=0, turnpct=0, synch=0, stopp=0;
      int  i, angle=0;
      string sport,  spower,  sangle,  sturnpct,  ssynch,  sstopp, sbuf;

      initial=__cmd[0];
                                      // F: OnFwd
      if (initial=='F')  {
         sport=SubStr(__cmd, 1, 4);
         port=StrToNum(sport);        //TextOut(0,48, sport);
         spower=SubStr(__cmd, 5, 4);
         power=StrToNum(spower);      //TextOut(0,40, spower);

         MotorOff(port); Wait(1);
         OnFwd( port, power);
         Wait(1);
      }


      if (initial=='0')  {            // 0: OUT_A_up
         start OUT_A_up;
         Wait(1);
         //while(!CmdRdy);
      }


      if (initial=='1')  {            // 1: OUT_A_md
         start OUT_A_md;
         Wait(1);
         //while(!CmdRdy);
      }


      if (initial=='2')  {            // 0: OUT_A_dn
         start OUT_A_dn;
         Wait(1);
         //while(!CmdRdy);
      }

                                                  // [: array 1st part
      if (initial=='[')                           // transfered board 0-42
      {
         stop DisplayValues;
         Wait(1);
         ClearScreen();
         sbuf=SubStr(__cmd,1,strlen(__cmd)-1);
         StrToByteArray(sbuf, aArray_);
         printf1(0,48, "%s%", sbuf);
         Wait(1);
      }

                                                  // #: array 2nd part
      if (initial=='#')                           // transfered board 43-85
      {
         sbuf=SubStr(__cmd,1,strlen(__cmd)-1);
         StrToByteArray(sbuf, bArray_);
         printf1(0,40, "%s%", sbuf);
         Wait(1);
      }

                                                  // ]: array 3rd part
      if (initial==']')                           // transfered board 86-129
      {
         sbuf=SubStr(__cmd,1,strlen(__cmd)-1);
         StrToByteArray(sbuf, cArray_);
         ArrayBuild(board_,aArray_,bArray_,cArray_);
         printf1(0,32, "%s%", sbuf);
         Wait(1);
      }

                                                  // &: additional board values
      if (initial=='&')                           // transfered moves and flags
      {
         StrToByteArray(__cmd, dArray_);
         K_=   dArray_[1];
         L_=   dArray_[2];
         turn_=dArray_[3];
         EP_=  dArray_[4];
         RK_=  dArray_[5];
         CK_=  dArray_[6];
         CM_=  dArray_[7];
         printf1(0,48, "%s%", __cmd);
         Wait(1);
      }

      if (initial=='$')                           // $: start chess AI auot move
      {
         Wait(1);
         PlayTones(sndTaDaa);
         if (AUTOMV_RDY==0)  RemoteAutoMove();
         Wait(1);
      }

      __cmd="";
}


//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
task BTReceive() {
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  string in;
  int ack, len;
  char bResult;

  while(true) {
    in= "  ";

    JHSReceiveRemoteString(BT_CONN, INBOX_2, true, in, bResult); // cmd string
       ack=checksum(in);
       JHSSendResponseNumber(BT_CONN, OUTBOX_2, ack);   //  check / acknowledge
       Wait(1);
       __cmd=in;
       start ExecCmd;
    Wait(1);
  }
}


//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
task BTMBxWrite() {
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  string sn, sv;
  string fmtstr, buf, out;
  int i, dec;
  char bResult;

  while(true)   {
     out="";
     JHSReceiveRemoteBool( BT_CONN, INBOX_1, true, bResult);  // receive request

     for(i=0; i<11; i++) {  // Sensorports: 0...3  plus virtual ports
        GetSensorValues(i);
        dec=SensorValueDecimals[i];
        sn=NumToStr(dec);                          // value decimals
        fmtstr=StrCat("%",NumToStr(dec),"d");
        sv=FormatNum(fmtstr,SensorCurrArr);
        out = StrCat(out, sn, sv);
     } //  for port i=...

     if (StrLen(out)>58) strncpy(out,out,58);     // 58 = max msg length
     JHSSendResponseString(BT_CONN, OUTBOX_1, out);
     //TextOut(0, 0, out);
     Wait(1);

  } // while(true)
}


//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void BT_SlaveCheck()
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
{
  do  {
    printf("%s", "search: BTmaster");
    Wait(50);
  } while (BluetoothStatus(0)!=NO_ERR)
  printf("%s", "BTmaster connected");
}



//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
task main()   {
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++


  Init();
  InitSensors();

  start PneumPressurePump;
  Wait(500);

  BT_SlaveCheck();                                  // for slaves
  ClearScreen();

  start BTMBxWrite;
  start BTReceive;
  start DisplayValues;

  while(1);

} // task main
Top
mattallen37
Posts: 1818
Joined: 02 Oct 2010, 02:19
Location: Michigan USA
Contact:
Contact mattallen37

Re: NXC file issue: BCC hangs up when loading

Post by mattallen37 »

BCC doesn't like the combination of:

Code: Select all

'$'
so replace it with:

Code: Select all

36
Matt
http://mattallen37.wordpress.com/

I'm all for gun control... that's why I use both hands when shooting ;)
Top
HaWe
Posts: 2500
Joined: 04 Nov 2014, 19:00

Re: NXC file issue: BCC hangs up when loading

Post by HaWe »

well, that's really bizarre -
indeed, 36 instead of '$' works.

thank you.

But BCC don't like a character ???
I'm really curious about that weird editor behaviour !
Top
afanofosc
Site Admin
Posts: 1256
Joined: 26 Sep 2010, 19:36
Location: Nashville, TN
Contact:
Contact afanofosc

Re: NXC file issue: BCC hangs up when loading

Post by afanofosc »

This sounds like a bug that should be reported to the BricxCC team! :-)

John Hansen

P.S. this turns out to be a syntax highlighter bug in the NQC/NXC syntax highlighter. I am working on a fix.
Multi-platform LEGO MINDSTORMS programming
http://bricxcc.sourceforge.net/
Top
derozari
Posts: 1
Joined: 22 Mar 2014, 14:05

Re: NXC file issue: BCC hangs up when loading

Post by derozari »

afanofosc wrote:This sounds like a bug that should be reported to the BricxCC team! :-)

John Hansen

P.S. this turns out to be a syntax highlighter bug in the NQC/NXC syntax highlighter. I am working on a fix.
Hi John,
Has this syntax highlighter bug been resolved in the latest test_release (20131007?), I'm still using the test_release 20120724.
Top
Post Reply

Return to “Mindstorms Software”

Who is online

Users browsing this forum: No registered users and 4 guests