Usermode/Applications/irc_src/main.c

   1 /*\r
   2  * Acess2 IRC Client\r
   3  */\r
   4 #include <acess/sys.h>\r
   5 #include <stdlib.h>\r
   6 #include <stdio.h>\r
   7 #include <string.h>\r
   8 #include <net.h>\r
   9 #include <readline.h>\r
  10 \r
  11 #define BUFSIZ  1023\r
  12 \r
  13 // === TYPES ===\r
  14 typedef struct sServer {\r
  15         struct sServer  *Next;\r
  16          int    FD;\r
  17         char    InBuf[BUFSIZ+1];\r
  18          int    ReadPos;\r
  19         char    Name[];\r
  20 } tServer;\r
  21 \r
  22 typedef struct sMessage\r
  23 {\r
  24         struct sMessage *Next;\r
  25         time_t  Timestamp;\r
  26         tServer *Server;\r
  27          int    Type;\r
  28         char    *Source;        // Pointer into `Data`\r
  29         char    Data[];\r
  30 }       tMessage;\r
  31 \r
  32 typedef struct sWindow\r
  33 {\r
  34         struct sWindow  *Next;\r
  35         tMessage        *Messages;\r
  36         tServer *Server;        //!< Canoical server (can be NULL)\r
  37          int    ActivityLevel;\r
  38         char    Name[]; // Channel name / remote user\r
  39 }       tWindow;\r
  40 \r
  41 enum eMessageTypes\r
  42 {\r
  43         MSG_TYPE_NULL,\r
  44         MSG_TYPE_SERVER,        // Server message\r
  45         \r
  46         MSG_TYPE_NOTICE,        // NOTICE command\r
  47         MSG_TYPE_JOIN,  // JOIN command\r
  48         MSG_TYPE_PART,  // PART command\r
  49         MSG_TYPE_QUIT,  // QUIT command\r
  50         \r
  51         MSG_TYPE_STANDARD,      // Standard line\r
  52         MSG_TYPE_ACTION,        // /me\r
  53         \r
  54         MSG_TYPE_UNK\r
  55 };\r
  56 \r
  57 // === PROTOTYPES ===\r
  58  int    ParseArguments(int argc, const char *argv[]);\r
  59  int    ParseUserCommand(char *String);\r
  60 // --- \r
  61 tServer *Server_Connect(const char *Name, const char *AddressString, short PortNumber);\r
  62 tMessage        *Message_AppendF(tServer *Server, int Type, const char *Source, const char *Dest, const char *Message, ...);\r
  63 tMessage        *Message_Append(tServer *Server, int Type, const char *Source, const char *Dest, const char *Message);\r
  64 tWindow *Window_Create(tServer *Server, const char *Name);\r
  65 \r
  66  int    ProcessIncoming(tServer *Server);\r
  67 // --- Helpers\r
  68  int    SetCursorPos(int Row, int Col);\r
  69  int    writef(int FD, const char *Format, ...);\r
  70  int    OpenTCP(const char *AddressString, short PortNumber);\r
  71 char    *GetValue(char *Str, int *Ofs);\r
  72 static inline int       isdigit(int ch);\r
  73 \r
  74 // === GLOBALS ===\r
  75 char    *gsUsername = "user";\r
  76 char    *gsHostname = "acess";\r
  77 char    *gsRealName = "Acess2 IRC Client";\r
  78 char    *gsNickname = "acess";\r
  79 tServer *gpServers;\r
  80 tWindow gWindow_Status = {\r
  81         NULL, NULL, NULL,       // No next, empty list, no server\r
  82         0, ""   // No activity, empty name (rendered as status)\r
  83 };\r
  84 tWindow *gpWindows = &gWindow_Status;\r
  85 tWindow *gpCurrentWindow = &gWindow_Status;\r
  86  int    giTerminal_Width = 80;\r
  87  int    giTerminal_Height = 25;\r
  88 \r
  89 // ==== CODE ====\r
  90 void ExitHandler(void)\r
  91 {\r
  92         printf("\x1B[?1047l");\r
  93         printf("Quit\n");\r
  94 }\r
  95 \r
  96 int main(int argc, const char *argv[], const char *envp[])\r
  97 {\r
  98          int    tmp;\r
  99         tReadline       *readline_info;\r
 100         \r
 101         // Parse Command line\r
 102         if( (tmp = ParseArguments(argc, argv)) )        return tmp;\r
 103         \r
 104         atexit(ExitHandler);\r
 105         \r
 106         giTerminal_Width = ioctl(1, 5, NULL);   // getset_width\r
 107         giTerminal_Height = ioctl(1, 6, NULL);  // getset_height\r
 108         \r
 109         printf("\x1B[?1047h");\r
 110         printf("\x1B[%i;%ir", 0, giTerminal_Height-1);\r
 111         \r
 112         SetCursorPos(giTerminal_Height-1, 0);\r
 113         printf("[(status)] ");\r
 114         \r
 115         // HACK: Static server entry\r
 116         // UCC (University [of Western Australia] Computer Club) IRC Server\r
 117         gWindow_Status.Server = Server_Connect( "UCC", "130.95.13.18", 6667 );\r
 118         \r
 119         if( !gWindow_Status.Server )\r
 120                 return -1;\r
 121         \r
 122         SetCursorPos(giTerminal_Height-1, 0);\r
 123         printf("[(status)] ");\r
 124         readline_info = Readline_Init(1);\r
 125         \r
 126         for( ;; )\r
 127         {\r
 128                 fd_set  readfds, errorfds;\r
 129                  int    rv, maxFD = 0;\r
 130                 tServer *srv;\r
 131                 \r
 132                 FD_ZERO(&readfds);\r
 133                 FD_ZERO(&errorfds);\r
 134                 FD_SET(0, &readfds);    // stdin\r
 135                 \r
 136                 // Fill server FDs in fd_set\r
 137                 for( srv = gpServers; srv; srv = srv->Next )\r
 138                 {\r
 139                         FD_SET(srv->FD, &readfds);\r
 140                         FD_SET(srv->FD, &errorfds);\r
 141                         if( srv->FD > maxFD )\r
 142                                 maxFD = srv->FD;\r
 143                 }\r
 144                 \r
 145                 rv = select(maxFD+1, &readfds, 0, &errorfds, NULL);\r
 146                 if( rv == -1 )  break;\r
 147                 \r
 148                 if(FD_ISSET(0, &readfds))\r
 149                 {\r
 150                         // User input\r
 151                         char    *cmd = Readline_NonBlock(readline_info);\r
 152                         if( cmd )\r
 153                         {\r
 154                                 if( cmd[0] )\r
 155                                 {\r
 156                                         ParseUserCommand(cmd);\r
 157                                 }\r
 158                                 free(cmd);\r
 159                                 // Prompt\r
 160                                 SetCursorPos(giTerminal_Height-1, 0);\r
 161                                 printf("\x1B[K");       // Clear line\r
 162                                 if( gpCurrentWindow->Name[0] )\r
 163                                         printf("[%s:%s] ", gpCurrentWindow->Server->Name, gpCurrentWindow->Name);\r
 164                                 else\r
 165                                         printf("[(status)] ");\r
 166                         }\r
 167                 }\r
 168                 \r
 169                 // Server response\r
 170                 for( srv = gpServers; srv; srv = srv->Next )\r
 171                 {\r
 172                         if(FD_ISSET(srv->FD, &readfds))\r
 173                         {\r
 174                                 if( ProcessIncoming(srv) != 0 ) {\r
 175                                         // Oops, error\r
 176                                         break;\r
 177                                 }\r
 178                         }\r
 179                         \r
 180                         if(FD_ISSET(srv->FD, &errorfds))\r
 181                         {\r
 182                                 break;\r
 183                         }\r
 184                 }\r
 185                 \r
 186                 // Oops, an error\r
 187                 if( srv )       break;\r
 188         }\r
 189         \r
 190         {\r
 191                 tServer *srv;\r
 192                 for( srv = gpServers; srv; srv = srv->Next )\r
 193                         close(srv->FD);\r
 194         }\r
 195         return 0;\r
 196 }\r
 197 \r
 198 /**\r
 199  * \todo Actually implement correctly :)\r
 200  */\r
 201 int ParseArguments(int argc, const char *argv[])\r
 202 {\r
 203         return 0;\r
 204 }\r
 205 \r
 206 int ParseUserCommand(char *String)\r
 207 {\r
 208         if( String[0] == '/' )\r
 209         {\r
 210                 char    *command;\r
 211                  int    pos = 0;\r
 212                 \r
 213                 command = GetValue(String, &pos);\r
 214                 \r
 215                 if( strcmp(command, "/join") == 0 )\r
 216                 {\r
 217                         char    *channel_name = GetValue(String, &pos);\r
 218                         \r
 219                         if( gpCurrentWindow->Server )\r
 220                         {\r
 221                                 writef(gpCurrentWindow->Server->FD, "JOIN :%s\n",  channel_name);\r
 222                         }\r
 223                 }\r
 224                 else if( strcmp(command, "/quit") == 0 )\r
 225                 {\r
 226                         char    *quit_message = String + pos;\r
 227                         tServer *srv;\r
 228                         \r
 229                         if( quit_message == NULL || quit_message[0] == '\0' )\r
 230                                 quit_message = "/quit - Acess2 IRC Client";\r
 231                         \r
 232                         for( srv = gpServers; srv; srv = srv->Next )\r
 233                         {\r
 234                                 writef(srv->FD, "QUIT :%s\n", quit_message);\r
 235                         }\r
 236                         \r
 237                         exit(0);\r
 238                 }\r
 239                 else if( strcmp(command, "/window") == 0 || strcmp(command, "/win") == 0 || strcmp(command, "/w") == 0 )\r
 240                 {\r
 241                         char    *window_id = GetValue(String, &pos);\r
 242                          int    window_num = atoi(window_id);\r
 243                         \r
 244                         if( window_num > 0 )\r
 245                         {\r
 246                                 tWindow *win;\r
 247                                 window_num --;  // Move to base 0\r
 248                                 // Get `window_num`th window\r
 249                                 for( win = gpWindows; win && window_num--; win = win->Next );\r
 250                                 if( win ) {\r
 251                                         gpCurrentWindow = win;\r
 252                                 }\r
 253                                 // Otherwise, silently ignore\r
 254                         }\r
 255                         else\r
 256                         {\r
 257                                 tWindow *win;\r
 258                                 window_num = 1;\r
 259                                 for( win = gpWindows; win; win = win->Next, window_num ++ )\r
 260                                 {\r
 261                                         if( win->Name[0] ) {\r
 262                                                 Message_AppendF(NULL, MSG_TYPE_SERVER, "client", "",\r
 263                                                         "%i: %s/%s", window_num, win->Server->Name, win->Name);\r
 264                                         }\r
 265                                         else {\r
 266                                                 Message_AppendF(NULL, MSG_TYPE_SERVER, "client", "",\r
 267                                                         "%i: (status)", window_num);\r
 268                                         }\r
 269                                 }\r
 270                         }\r
 271                 }\r
 272                 else\r
 273                 {\r
 274                         Message_AppendF(NULL, MSG_TYPE_SERVER, "client", "", "Unknown command %s", command);\r
 275                 }\r
 276         }\r
 277         else\r
 278         {\r
 279                 // Message\r
 280                 // - Only send if server is valid and window name is non-empty\r
 281                 if( gpCurrentWindow->Server && gpCurrentWindow->Name[0] )\r
 282                 {\r
 283                         Message_Append(gpCurrentWindow->Server, MSG_TYPE_STANDARD,\r
 284                                 gsNickname, gpCurrentWindow->Name, String);\r
 285                         writef(gpCurrentWindow->Server->FD,\r
 286                                 "PRIVMSG %s :%s\n", gpCurrentWindow->Name,\r
 287                                 String\r
 288                                 );\r
 289                 }\r
 290         }\r
 291         \r
 292         return 0;\r
 293 }\r
 294 \r
 295 /**\r
 296  * \brief Connect to a server\r
 297  */\r
 298 tServer *Server_Connect(const char *Name, const char *AddressString, short PortNumber)\r
 299 {\r
 300         tServer *ret;\r
 301         \r
 302         ret = calloc(1, sizeof(tServer) + strlen(Name) + 1);\r
 303         \r
 304         strcpy(ret->Name, Name);\r
 305         \r
 306         // Connect to the remove server\r
 307         ret->FD = OpenTCP( AddressString, PortNumber );\r
 308         if( ret->FD == -1 ) {\r
 309                 fprintf(stderr, "%s: Unable to create socket\n", Name);\r
 310                 return NULL;\r
 311         }\r
 312         \r
 313         // Append to open list\r
 314         ret->Next = gpServers;\r
 315         gpServers = ret;\r
 316         \r
 317         // Read some initial data\r
 318         Message_Append(NULL, MSG_TYPE_SERVER, Name, "", "Connection opened");\r
 319         ProcessIncoming(ret);\r
 320         \r
 321         // Identify\r
 322         writef(ret->FD, "USER %s %s %s : %s\n", gsUsername, gsHostname, AddressString, gsRealName);\r
 323         writef(ret->FD, "NICK %s\n", gsNickname);\r
 324         Message_Append(NULL, MSG_TYPE_SERVER, Name, "", "Identified");\r
 325         //printf("%s: Identified\n", Name);\r
 326         \r
 327         return ret;\r
 328 }\r
 329 \r
 330 tMessage *Message_AppendF(tServer *Server, int Type, const char *Source, const char *Dest, const char *Message, ...)\r
 331 {\r
 332         va_list args;\r
 333          int    len;\r
 334         va_start(args, Message);\r
 335         len = vsnprintf(NULL, 1000, Message, args);\r
 336         {\r
 337                 char    buf[len+1];\r
 338                 vsnprintf(buf, len+1, Message, args);\r
 339                 return Message_Append(Server, Type, Source, Dest, buf);\r
 340         }\r
 341 }\r
 342 \r
 343 tMessage *Message_Append(tServer *Server, int Type, const char *Source, const char *Dest, const char *Message)\r
 344 {\r
 345         tMessage        *ret;\r
 346         tWindow *win = NULL;\r
 347          int    msgLen = strlen(Message);\r
 348         \r
 349         // NULL servers are internal messages\r
 350         if( Server == NULL || Source[0] == '\0' )\r
 351         {\r
 352                 win = &gWindow_Status;\r
 353         }\r
 354         // Determine if it's a channel or PM message\r
 355         else if( Dest[0] == '#' || Dest[0] == '&' )     // TODO: Better determining here\r
 356         {\r
 357                 tWindow *prev = NULL;\r
 358                 for(win = gpWindows; win; prev = win, win = win->Next)\r
 359                 {\r
 360                         if( win->Server == Server && strcmp(win->Name, Dest) == 0 )\r
 361                         {\r
 362                                 break;\r
 363                         }\r
 364                 }\r
 365                 if( !win ) {\r
 366                         win = Window_Create(Server, Dest);\r
 367                 }\r
 368         }\r
 369         #if 0\r
 370         else if( strcmp(Dest, Server->Nick) != 0 )\r
 371         {\r
 372                 // Umm... message for someone who isn't us?\r
 373                 win = &gWindow_Status;  // Stick it in the status window, just in case\r
 374         }\r
 375         #endif\r
 376         // Server message?\r
 377         else if( strchr(Source, '.') )  // TODO: And again, less hack please\r
 378         {\r
 379                 #if 1\r
 380                 for(win = gpWindows; win; win = win->Next)\r
 381                 {\r
 382                         if( win->Server == Server && strcmp(win->Name, Source) == 0 )\r
 383                         {\r
 384                                 break;\r
 385                         }\r
 386                 }\r
 387                 #endif\r
 388                 if( !win ) {\r
 389                         win = &gWindow_Status;\r
 390                 }\r
 391                 \r
 392         }\r
 393         // Private message\r
 394         else\r
 395         {\r
 396                 for(win = gpWindows; win; win = win->Next)\r
 397                 {\r
 398                         if( win->Server == Server && strcmp(win->Name, Source) == 0 )\r
 399                         {\r
 400                                 break;\r
 401                         }\r
 402                 }\r
 403                 if( !win ) {\r
 404                         win = Window_Create(Server, Dest);\r
 405                 }\r
 406         }\r
 407         \r
 408         ret = malloc( sizeof(tMessage) + msgLen + 1 + strlen(Source) + 1 );\r
 409         ret->Source = ret->Data + msgLen + 1;\r
 410         strcpy(ret->Source, Source);\r
 411         strcpy(ret->Data, Message);\r
 412         ret->Type = Type;\r
 413         ret->Server = Server;\r
 414         \r
 415         // TODO: Append to window message list\r
 416         ret->Next = win->Messages;\r
 417         win->Messages = ret;\r
 418         \r
 419         //TODO: Set location\r
 420         \r
 421         {\r
 422                 int pos = SetCursorPos(giTerminal_Height-2, 0);\r
 423                 #if 1\r
 424                 if( win == gpCurrentWindow ) {\r
 425                         printf("\x1B[T");       // Scroll down 1 (free space below)\r
 426                         printf("[%s] %s\n", Source, Message);\r
 427                 }\r
 428                 #else\r
 429                 if(win->Name[0])\r
 430                         printf("%s/%s [%s] %s\n", win->Server->Name, win->Name, Source, Message);\r
 431                 else\r
 432                         printf("(status) [%s] %s\n", Source, Message);\r
 433                 #endif\r
 434                 SetCursorPos(-1, pos);\r
 435         }\r
 436         \r
 437         return ret;\r
 438 }\r
 439 \r
 440 tWindow *Window_Create(tServer *Server, const char *Name)\r
 441 {\r
 442         tWindow *ret, *prev = NULL;\r
 443          int    num = 1;\r
 444         \r
 445         // Get the end of the list\r
 446         // TODO: Cache this instead\r
 447         for( ret = gpCurrentWindow; ret; prev = ret, ret = ret->Next )\r
 448                 num ++;\r
 449         \r
 450         ret = malloc(sizeof(tWindow) + strlen(Name) + 1);\r
 451         ret->Messages = NULL;\r
 452         ret->Server = Server;\r
 453         ret->ActivityLevel = 1;\r
 454         strcpy(ret->Name, Name);\r
 455         \r
 456         if( prev ) {\r
 457                 ret->Next = prev->Next;\r
 458                 prev->Next = ret;\r
 459         }\r
 460         else {  // Shouldn't happen really\r
 461                 ret->Next = gpWindows;\r
 462                 gpWindows = ret;\r
 463         }\r
 464         \r
 465 //      printf("Win %i %s:%s created\n", num, Server->Name, Name);\r
 466         \r
 467         return ret;\r
 468 }\r
 469 \r
 470 void Cmd_PRIVMSG(tServer *Server, const char *Dest, const char *Src, const char *Message)\r
 471 {\r
 472         Message_Append(Server, MSG_TYPE_STANDARD, Dest, Src, Message);\r
 473         //printf("<%s:%s:%s> %s\n", Server->Name, Dest, Src, Message);\r
 474 }\r
 475 \r
 476 /**\r
 477  */\r
 478 void ParseServerLine(tServer *Server, char *Line)\r
 479 {\r
 480          int    pos = 0;\r
 481         char    *ident, *cmd;\r
 482         \r
 483         // Message?\r
 484         if( *Line == ':' )\r
 485         {\r
 486                 ident = GetValue(Line, &pos);   // Ident (user or server)\r
 487                 cmd = GetValue(Line, &pos);\r
 488                 \r
 489                 // Numeric command\r
 490                 if( isdigit(cmd[0]) && isdigit(cmd[1]) && isdigit(cmd[2]) )\r
 491                 {\r
 492                         char    *user, *message;\r
 493                          int    num;\r
 494                         num  = (cmd[0] - '0') * 100;\r
 495                         num += (cmd[1] - '0') * 10;\r
 496                         num += (cmd[2] - '0') * 1;\r
 497                         \r
 498                         user = GetValue(Line, &pos);\r
 499                         \r
 500                         if( Line[pos] == ':' ) {\r
 501                                 message = Line + pos + 1;\r
 502                         }\r
 503                         else {\r
 504                                 message = GetValue(Line, &pos);\r
 505                         }\r
 506                         \r
 507                         switch(num)\r
 508                         {\r
 509                         default:\r
 510                                 //printf("[%s] %i %s\n", Server->Name, num, message);\r
 511                                 Message_Append(Server, MSG_TYPE_SERVER, ident, user, message);\r
 512                                 break;\r
 513                         }\r
 514                 }\r
 515                 else if( strcmp(cmd, "NOTICE") == 0 )\r
 516                 {\r
 517                         char    *class, *message;\r
 518                         \r
 519                         class = GetValue(Line, &pos);\r
 520                         \r
 521                         if( Line[pos] == ':' ) {\r
 522                                 message = Line + pos + 1;\r
 523                         }\r
 524                         else {\r
 525                                 message = GetValue(Line, &pos);\r
 526                         }\r
 527                         \r
 528                         //printf("[%s] NOTICE %s: %s\n", Server->Name, ident, message);\r
 529                         Message_Append(Server, MSG_TYPE_NOTICE, ident, "", message);\r
 530                 }\r
 531                 else if( strcmp(cmd, "PRIVMSG") == 0 )\r
 532                 {\r
 533                         char    *dest, *message;\r
 534                         dest = GetValue(Line, &pos);\r
 535                         \r
 536                         if( Line[pos] == ':' ) {\r
 537                                 message = Line + pos + 1;\r
 538                         }\r
 539                         else {\r
 540                                 message = GetValue(Line, &pos);\r
 541                         }\r
 542                         Cmd_PRIVMSG(Server, dest, ident, message);\r
 543                         Message_Append(Server, MSG_TYPE_STANDARD, ident, dest, message);\r
 544                 }\r
 545                 else if( strcmp(cmd, "JOIN" ) == 0 )\r
 546                 {\r
 547                         char    *channel;\r
 548                         channel = GetValue(Line, &pos) + 1;\r
 549                         Window_Create(Server, channel);\r
 550                 }\r
 551                 else\r
 552                 {\r
 553                         Message_AppendF(Server, MSG_TYPE_SERVER, "", "", "Unknown message %s (%s)\n", cmd, Line+pos);\r
 554                 }\r
 555         }\r
 556         else {\r
 557                 \r
 558                 // Command to client\r
 559                 printf("Client Command: %s", Line);\r
 560         }\r
 561 }\r
 562 \r
 563 /**\r
 564  * \brief Process incoming lines from the server\r
 565  */\r
 566 int ProcessIncoming(tServer *Server)\r
 567 {       \r
 568         char    *ptr, *newline;\r
 569          int    len;\r
 570         \r
 571         // While there is data in the buffer, read it into user memory and \r
 572         // process it line by line\r
 573         // ioctl#8 on a TCP client gets the number of bytes in the recieve buffer\r
 574         // - Used to avoid blocking\r
 575         #if NON_BLOCK_READ\r
 576         while( (len = ioctl(Server->FD, 8, NULL)) > 0 )\r
 577         {\r
 578         #endif\r
 579                 // Read data\r
 580                 len = read(Server->FD, BUFSIZ - Server->ReadPos, &Server->InBuf[Server->ReadPos]);\r
 581                 if( len == -1 ) {\r
 582                         return -1;\r
 583                 }\r
 584                 Server->InBuf[Server->ReadPos + len] = '\0';\r
 585                 \r
 586                 // Break into lines\r
 587                 ptr = Server->InBuf;\r
 588                 while( (newline = strchr(ptr, '\n')) )\r
 589                 {\r
 590                         *newline = '\0';\r
 591                         if( newline[-1] == '\r' )       newline[-1] = '\0';\r
 592                         ParseServerLine(Server, ptr);\r
 593                         ptr = newline + 1;\r
 594                 }\r
 595                 \r
 596                 // Handle incomplete lines\r
 597                 if( ptr - Server->InBuf < len + Server->ReadPos ) {\r
 598                         // Update the read position\r
 599                         // InBuf ReadPos    ptr          ReadPos+len\r
 600                         // | old | new used | new unused |\r
 601                         Server->ReadPos = len + Server->ReadPos - (ptr - Server->InBuf);\r
 602                         // Copy stuff back (moving "new unused" to the start of the buffer)\r
 603                         memcpy(Server->InBuf, ptr, Server->ReadPos);\r
 604                 }\r
 605                 else {\r
 606                         Server->ReadPos = 0;\r
 607                 }\r
 608         #if NON_BLOCK_READ\r
 609         }\r
 610         #endif\r
 611         \r
 612         return 0;\r
 613 }\r
 614 \r
 615 /**\r
 616  * \brief Write a formatted string to a file descriptor\r
 617  * \r
 618  */\r
 619 int writef(int FD, const char *Format, ...)\r
 620 {\r
 621         va_list args;\r
 622          int    len;\r
 623         \r
 624         va_start(args, Format);\r
 625         len = vsnprintf(NULL, 1000, Format, args);\r
 626         va_end(args);\r
 627         \r
 628         {\r
 629                 char    buf[len+1];\r
 630                 va_start(args, Format);\r
 631                 vsnprintf(buf, len+1, Format, args);\r
 632                 va_end(args);\r
 633                 \r
 634                 return write(FD, len, buf);\r
 635         }\r
 636 }\r
 637 \r
 638 /**\r
 639  * \brief Initialise a TCP connection to \a AddressString on port \a PortNumber\r
 640  */\r
 641 int OpenTCP(const char *AddressString, short PortNumber)\r
 642 {\r
 643          int    fd, addrType;\r
 644         char    *iface;\r
 645         char    addrBuffer[8];\r
 646         \r
 647         // Parse IP Address\r
 648         addrType = Net_ParseAddress(AddressString, addrBuffer);\r
 649         if( addrType == 0 ) {\r
 650                 fprintf(stderr, "Unable to parse '%s' as an IP address\n", AddressString);\r
 651                 return -1;\r
 652         }\r
 653         \r
 654         // Finds the interface for the destination address\r
 655         iface = Net_GetInterface(addrType, addrBuffer);\r
 656         if( iface == NULL ) {\r
 657                 fprintf(stderr, "Unable to find a route to '%s'\n", AddressString);\r
 658                 return -1;\r
 659         }\r
 660         \r
 661         printf("iface = '%s'\n", iface);\r
 662         \r
 663         // Open client socket\r
 664         // TODO: Move this out to libnet?\r
 665         {\r
 666                  int    len = snprintf(NULL, 100, "/Devices/ip/%s/tcpc", iface);\r
 667                 char    path[len+1];\r
 668                 snprintf(path, 100, "/Devices/ip/%s/tcpc", iface);\r
 669                 fd = open(path, OPENFLAG_READ|OPENFLAG_WRITE);\r
 670         }\r
 671         \r
 672         free(iface);\r
 673         \r
 674         if( fd == -1 ) {\r
 675                 fprintf(stderr, "Unable to open TCP Client for reading\n");\r
 676                 return -1;\r
 677         }\r
 678         \r
 679         // Set remote port and address\r
 680         printf("Setting port and remote address\n");\r
 681         ioctl(fd, 5, &PortNumber);\r
 682         ioctl(fd, 6, addrBuffer);\r
 683         \r
 684         // Connect\r
 685         printf("Initiating connection\n");\r
 686         if( ioctl(fd, 7, NULL) == 0 ) {\r
 687                 // Shouldn't happen :(\r
 688                 fprintf(stderr, "Unable to start connection\n");\r
 689                 return -1;\r
 690         }\r
 691         \r
 692         // Return descriptor\r
 693         return fd;\r
 694 }\r
 695 \r
 696 /**\r
 697  * \brief Read a space-separated value from a string\r
 698  */\r
 699 char *GetValue(char *Src, int *Ofs)\r
 700 {\r
 701          int    pos = *Ofs;\r
 702         char    *ret = Src + pos;\r
 703         char    *end;\r
 704         \r
 705         if( !Src )      return NULL;\r
 706         \r
 707         while( *ret == ' ' )    ret ++;\r
 708         \r
 709         end = strchr(ret, ' ');\r
 710         if( end ) {\r
 711                 *end = '\0';\r
 712         }\r
 713         else {\r
 714                 end = ret + strlen(ret) - 1;\r
 715         }\r
 716         \r
 717         end ++ ;\r
 718         while( *ret == ' ' )    end ++;\r
 719         *Ofs = end - Src;\r
 720         \r
 721         return ret;\r
 722 }\r
 723 \r
 724 int SetCursorPos(int Row, int Col)\r
 725 {\r
 726         if( Row == -1 ) {\r
 727                 Row = Col / giTerminal_Width;\r
 728                 Col = Col % giTerminal_Width;\r
 729         }\r
 730         printf("\x1B[%i;%iH", Col, Row);\r
 731         return ioctl(1, 9, NULL);       // Ugh, constants\r
 732 }\r
 733 \r
 734 static inline int isdigit(int ch)\r
 735 {\r
 736         return '0' <= ch && ch < '9';\r
 737 }\r