The Objeck Language

The Objeck computer language is an object-oriented (OO) computing language that has ties with Java, Pascal and indirectly Ruby. In this language, all data types are treated as objects. The language contains all of the "basic" features of a general-purpose (Turing complete) programming language with an emphasis placed on OOP simplicity. The language consists of a compiler and virtual machine with associated garbage collector and JIT compiler. The compiler emits binary byte code that is executed by the runtime system. The runtime system has the ability to translate the byte code into IA-32 native machine code.

Please check out the The Objeck Programmer's Guide.

Examples

Hello World!

<lang objeck> bundle Default {

 class SayHello {
   function : Main(args : String[]), Nil {
     "Hello World!"->PrintLine();
   }
 }

} </lang>

Prime Numbers

<lang objeck> bundle Default {

 class FindPrime {
   function : Main(args : System.String[]), Nil {
     Run(1000000); 
   }

  function : native : Run(topCandidate : Int), Nil {
     candidate : Int := 2;
     while(candidate <= topCandidate) {
       trialDivisor : Int := 2;
       prime : Int := 1;
       
       found : Bool := true;
       while(trialDivisor * trialDivisor <= candidate & found) {
         if(candidate % trialDivisor = 0) {
           prime := 0;
           found := false;
         }
         else {
           trialDivisor := trialDivisor + 1;
         };
       };
       
       if(found) {
         candidate->PrintLine();
       };
       candidate := candidate + 1;
     };
   }
 }

} </lang>

Socket Client

<lang objeck> use Net; use IO;

bundle Default {

 class SocketTest {
   function : Main(args : System.String[]), Nil {
     address := "www.du.edu";

     socket := TCPSocket->New(address, 80);
     if(socket->IsOpen()) {
       get := "GET / HTTP/1.1\r\nHost: ";
       get->Append(address);
       get->Append("\r\n\r\n");
       socket->WriteString(get);

       line := socket->ReadString();
       while(line->GetSize() > 0) {  
         trim := line->Trim();
         start : Int;
         end : Int;
         for(i := 0; i < trim->GetSize(); i := i + 1;) {
           # find tag start
           if(trim->GetChar(i) = '<') {
             start := i;
           };

           # find tag end
           if(trim->GetChar(i) = '>') {
             end := i;
             len := i - start;
             # print tag
             if(len > 0) {
               tag := trim->SubString(start + 1, len - 1);
               if(tag->GetSize() > 0) {
                 if(tag->GetChar(0) <> '/') {
                   tag_end := 0;
                   while(tag_end < tag->GetSize() & 
                     tag->GetChar(tag_end) <> ' ') {
                     tag_end := tag_end + 1;
                   };
                   Console->GetInstance()->Print("start tag: |")->Print(tag->SubString(tag_end))->PrintLine("|");      
                 }
                 else {
                   tag_end := 1;
                   while(tag_end < tag->GetSize() & 
                     tag->GetChar(tag_end) <> ' ') {
                     tag_end := tag_end + 1;
                   };
                   Console->GetInstance()->Print("end tag: |")->Print(tag->SubString(1, tag_end - 1))->PrintLine("|");
                 };
               };                      
             };
           };
         };
         line := socket->ReadString();
       };
       socket->Close();
     }
     else {
       error := "unable to connect to: ";
       error->Append(address);
       error->PrintLine();
     };
   }
 }

} </lang>