TalkChess.com

Posted: **Sun Mar 01, 2009 2:39 pm**

Hi all,

The source code for the iPhone/iPod Touch version of Glaurung has until now only been available on an on-demand basis; I have now finally uploaded it to my web site:

http://www.glaurungchess.com/iphone-src.tar.gz

This is the source code for version 1.0.1, which hasn't appeared on the App Store yet (I'm waiting for Apple to approve it). Abaia, the version for jailbroken devices, will be updated to 1.0.1 later today. Compared to the 1.0 version available from the App Store, the following changes have been made:

Numerous bug fixes and stability improvements. In particular, the app should no longer freeze at startup.
Figurine notation (optional).
Minor adjustments to board colors.

The engine source code is quite close to Glaurung 2.2, with a few minor bug fixes and customizations for the slow ARM CPU. The GUI source code is an awful mess.

Tord

Posted: **Sun Mar 01, 2009 3:07 pm**

Thank you for making the source available.

I note with interest your usage of the variable names "us" and "them" in the source for representing the active and passive colors. In my code, I've always used "actc" and "pasc" respectively. But now I've been inspired by Glaurung and just might change the identifiers to "good" and "evil".

Posted: **Mon Mar 02, 2009 10:21 pm**

sje wrote:I note with interest your usage of the variable names "us" and "them" in the source for representing the active and passive colors. In my code, I've always used "actc" and "pasc" respectively. But now I've been inspired by Glaurung and just might change the identifiers to "good" and "evil".

I've always preferred the poker terms, "hero" and "villian" myself

.

Posted: **Mon Mar 02, 2009 11:01 pm**

gladius wrote:
sje wrote:I note with interest your usage of the variable names "us" and "them" in the source for representing the active and passive colors. In my code, I've always used "actc" and "pasc" respectively. But now I've been inspired by Glaurung and just might change the identifiers to "good" and "evil".
I've always preferred the poker terms, "hero" and "villian" myself .

And from Dungeons and Dragons we have the alignment terms "lawful" and "chaotic".

Posted: **Tue Mar 03, 2009 12:10 am**

sje wrote:Thank you for making the source available.

I note with interest your usage of the variable names "us" and "them" in the source for representing the active and passive colors. In my code, I've always used "actc" and "pasc" respectively. But now I've been inspired by Glaurung and just might change the identifiers to "good" and "evil".

I use the terms "green" and "red" as that reminds me who's turn it is to move. "good" and "evil" sound more fun though

Cheers,
Steffan

Posted: **Tue Mar 03, 2009 1:58 am**

steffan wrote: I use the terms "green" and "red" as that reminds me who's turn it is to move. "good" and "evil" sound more fun though

Also, consider "angel" and "demon".

----
Some actual code:

Code: Select all

    Color GetGoodColor&#40;void&#41; const &#123;return good;&#125;
    Color GetEvilColor&#40;void&#41; const &#123;return evil;&#125;

    Sq GetKingSq&#40;const Color color&#41; const &#123;return ksbc&#91;color&#93;;&#125;

    Sq GetGoodKingSq&#40;void&#41; const &#123;return GetKingSq&#40;good&#41;;&#125;
    Sq GetEvilKingSq&#40;void&#41; const &#123;return GetKingSq&#40;evil&#41;;&#125;

    bool IsGKIC&#40;void&#41; const &#123;return ColorAttacksSq&#40;evil, GetGoodKingSq&#40;));&#125;
    bool IsEKIC&#40;void&#41; const &#123;return ColorAttacksSq&#40;good, GetEvilKingSq&#40;));&#125;

Code: Select all

void Pos&#58;&#58;Execute&#40;PPD &ppd, const Move move&#41;
&#123;
  ppd.PutPPDmove&#40;move&#41;;

  const bool notnull = move.IsNotNull&#40;);
  const Sq frsq = move.GetFrSq&#40;), tosq = move.GetToSq&#40;);
  const Man frman = move.GetFrMan&#40;), toman = move.GetToMan&#40;);
  const Mc mc = move.GetMc&#40;);

  *&#40;FENScalars *) &ppd = *this;
  ppd.PutPPDaphs&#40;aphs&#41;; ppd.PutPPDpmbb&#40;pmbb&#41;; ppd.PutPPDfmbb&#40;fmbb&#41;; ppd.PutPPDinch&#40;inch&#41;;

  if &#40;notnull&#41;
  &#123;
    switch &#40;mc&#41;
    &#123;
      case McReg&#58;
        if &#40;IsManNotVacant&#40;toman&#41;) DelMan&#40;tosq, evil, toman&#41;;
        MoveMan&#40;frsq, tosq, good, frman&#41;;
        break;

      case McEPC&#58;
        DelMan&#40;&#40;Sq&#41; &#40;tosq + CvColorToForwardDelta&#91;evil&#93;), evil, SynthMP&#91;evil&#93;);
        MoveMan&#40;frsq, tosq, good, frman&#41;;
        break;

      case McCKS&#58; case McCQS&#58;
        &#123;
          const Castling castling = CvColorMcToCastling&#91;good&#93;&#91;mc&#93;;

          MoveMan&#40;frsq, tosq, good, frman&#41;;
          MoveMan&#40;
            CvCastlingToRookHomeSq&#91;castling&#93;, CvCastlingToRookAwaySq&#91;castling&#93;,
            good, SynthMR&#91;good&#93;);
        &#125;;
        break;

      case McPPN&#58; case McPPB&#58; case McPPR&#58; case McPPQ&#58;
        if &#40;IsManNotVacant&#40;toman&#41;) DelMan&#40;tosq, evil, toman&#41;;
        DelMan&#40;frsq, good, frman&#41;; AddMan&#40;tosq, good, CvColorMcToMan&#91;good&#93;&#91;mc&#93;);
        break;

      default&#58;
        BadSwitch&#40;"Pos&#58;&#58;Execute");
        break;
    &#125;;
  &#125;;

  good = OtherColor&#40;good&#41;; evil = OtherColor&#40;evil&#41;;

  if &#40;notnull && &#40;cabs != 0&#41;)
  &#123;
    const ui newcabs = cabs & ~&#40;CastlingCancellation&#91;frsq&#93; | CastlingCancellation&#91;tosq&#93;);

    if &#40;cabs != newcabs&#41; &#123;ApplyHashDeltaCastling&#40;cabs, newcabs&#41;; cabs = newcabs;&#125;;
  &#125;;

  if &#40;IsSqNotNil&#40;epsq&#41;) &#123;ApplyHashDeltaEnPassant&#40;epsq&#41;; epsq = SqNil;&#125;;
  if &#40;notnull && IsManPawn&#40;frman&#41; && (&#40;tosq ^ frsq&#41; == &#40;FileLen * 2&#41;) &&
    &#40;BB&#58;&#58;HorzAdjSqBB&#91;tosq&#93; & locbm&#91;CvManToOtherMan&#91;frman&#93;&#93;).IsNotReset&#40;))
  &#123;
    epsq = &#40;Sq&#41; (&#40;frsq + tosq&#41; >> 1&#41;; ApplyHashDeltaEnPassant&#40;epsq&#41;;
  &#125;;

  if &#40;notnull && &#40;IsManPawn&#40;frman&#41; || IsManNotVacant&#40;toman&#41;)) hmvc = 0; else hmvc++;
  if &#40;IsColorWhite&#40;good&#41;) fmvn++;
  if &#40;notnull&#41; RegenPinBitboards&#40;);
  inch = IsGKIC&#40;);
&#125;

void Pos&#58;&#58;Retract&#40;const PPD &ppd&#41;
&#123;
  const Move move = ppd.GetPPDmove&#40;);

  if &#40;cabs != ppd.GetFScabs&#40;)) ApplyHashDeltaCastling&#40;cabs, ppd.GetFScabs&#40;));
  if &#40;IsSqNotNil&#40;epsq&#41;) ApplyHashDeltaEnPassant&#40;epsq&#41;;
  if &#40;IsSqNotNil&#40;ppd.GetFSepsq&#40;))) ApplyHashDeltaEnPassant&#40;ppd.GetFSepsq&#40;));

  *&#40;FENScalars *) this = ppd;
  pmbb = ppd.GetPPDpmbb&#40;); fmbb = ppd.GetPPDfmbb&#40;); inch = ppd.GetPPDinch&#40;);

  if &#40;move.IsNotNull&#40;))
  &#123;
    const Sq frsq = move.GetFrSq&#40;), tosq  = move.GetToSq&#40;);
    const Man frman = move.GetFrMan&#40;), toman = move.GetToMan&#40;);
    const Mc mc = move.GetMc&#40;);

    switch &#40;mc&#41;
    &#123;
      case McReg&#58;
        MoveMan&#40;tosq, frsq, good, frman&#41;;
        if &#40;IsManNotVacant&#40;toman&#41;) AddMan&#40;tosq, evil, toman&#41;;
        break;

      case McEPC&#58;
        MoveMan&#40;tosq, frsq, good, frman&#41;;
        AddMan&#40;&#40;Sq&#41; &#40;tosq + CvColorToForwardDelta&#91;evil&#93;), evil, SynthMP&#91;evil&#93;);
        break;

      case McCKS&#58; case McCQS&#58;
        &#123;
          const Castling castling = CvColorMcToCastling&#91;good&#93;&#91;mc&#93;;

          MoveMan&#40;
            CvCastlingToRookAwaySq&#91;castling&#93;, CvCastlingToRookHomeSq&#91;castling&#93;,
            good, SynthMR&#91;good&#93;);
          MoveMan&#40;tosq, frsq, good, frman&#41;;
        &#125;;
        break;

      case McPPN&#58; case McPPB&#58; case McPPR&#58; case McPPQ&#58;
        DelMan&#40;tosq, good, CvColorMcToMan&#91;good&#93;&#91;mc&#93;); AddMan&#40;frsq, good, frman&#41;;
        if &#40;IsManNotVacant&#40;toman&#41;) AddMan&#40;tosq, evil, toman&#41;;
        break;

      default&#58;
        BadSwitch&#40;"Pos&#58;&#58;Retract");
        break;
    &#125;;
  &#125;;
&#125;

TalkChess.com

Glaurung for the iPhone: Source code available

Glaurung for the iPhone: Source code available

Re: Glaurung for the iPhone: Source code available

Re: Glaurung for the iPhone: Source code available

Re: Glaurung for the iPhone: Source code available

Re: Glaurung for the iPhone: Source code available

Re: Glaurung for the iPhone: Source code available