workbench/c/Type.c

   1 /*
   2     Copyright © 1995-2008, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Type CLI command
   6     Lang: English
   7 */
   8
   9 /******************************************************************************
  10
  11     NAME
  12
  13         Type {<file | pattern>} [TO <name>] [OPT H | N] [HEX | NUMBER]
  14
  15     SYNOPSIS
  16
  17         FROM/A/M,TO/K,OPT/K,HEX/S,NUMBER/S
  18
  19     LOCATION
  20
  21         C:
  22
  23     FUNCTION
  24
  25         Displays content of a file
  26
  27     INPUTS
  28
  29         FROM   -- one or more files to display
  30         TO     -- print output to file
  31         OPT    -- H or N (see HEX or NUMBER)
  32         HEX    -- displays output in hexadecimal format
  33         NUMBER -- the lines are numbered
  34                   HEX and NUMBER are mutually exclusive
  35
  36     RESULT
  37
  38     NOTES
  39
  40     EXAMPLE
  41
  42         Type abc.txt
  43         Type xyz.dat HEX
  44
  45     BUGS
  46
  47     SEE ALSO
  48
  49     INTERNALS
  50
  51 ******************************************************************************/
  52
  53 #include <exec/memory.h>
  54 #include <exec/execbase.h>
  55 #include <proto/exec.h>
  56 #include <proto/dos.h>
  57 #include <dos/dos.h>
  58
  59 #include <string.h>
  60
  61 const TEXT version[] = "$VER: Type 42.1 (20.10.2005)\n";
  62
  63 #define BUFSIZE 8192
  64 #define MAX_PATH_LEN    512
  65
  66 enum
  67 {
  68     ARG_FROM,
  69     ARG_TO,
  70     ARG_OPT,
  71     ARG_HEX,
  72     ARG_NUMBER,
  73     NUMARGS
  74 };
  75
  76 struct file
  77 {
  78     BPTR fd;
  79     UBYTE *cur;
  80     ULONG cnt;
  81     LONG error;
  82     UBYTE buf[BUFSIZE];
  83 };
  84
  85 const UBYTE hs[16]="0123456789abcdef";
  86
  87 #define putc(f,c) (*(f)->cur++=(c),--(f)->cnt?0:put(f))
  88 static int put(struct file *f)
  89 {
  90     LONG size,subsize;
  91     STRPTR buf;
  92     size=f->cur-f->buf;
  93     buf=f->buf;
  94     while(size)
  95     {
  96         subsize=Write(f->fd,buf,size);
  97         if(subsize<=0)
  98         {
  99             f->error=IoErr();
 100             return 1;
 101         }
 102         buf+=subsize;
 103         size-=subsize;
 104     }
 105     f->cur=f->buf;
 106     f->cnt=BUFSIZE;
 107     return 0;
 108 }
 109
 110 #define getc(f) ((f)->cnt--?*(f)->cur++:get(f))
 111 static int get(struct file *f)
 112 {
 113     LONG size;
 114     size=Read(f->fd,f->buf,BUFSIZE);
 115     if(size<0)
 116         f->error=IoErr();
 117     if(size<=0)
 118         return -1;
 119     f->cnt=size-1;
 120     f->cur=f->buf;
 121     return *f->cur++;
 122 }
 123
 124 static void putlinequick(struct file *f, ULONG offset, UBYTE *buf)
 125 {
 126     int c, i, k;
 127     UBYTE *b, *o;
 128     o=f->cur;
 129     if(offset>=0x10000)
 130     {
 131         if(offset>=0x100000)
 132         {
 133             if(offset>=0x1000000)
 134             {
 135                 if(offset>=0x10000000)
 136                 {
 137                     *o++=hs[(offset>>28)&0xf];
 138                     f->cnt--;
 139                 }
 140                 *o++=hs[(offset>>24)&0xf];
 141                 f->cnt--;
 142             }
 143             *o++=hs[(offset>>20)&0xf];
 144             f->cnt--;
 145         }
 146         *o++=hs[(offset>>16)&0xf];
 147         f->cnt--;
 148     }
 149     *o++=hs[(offset>>12)&0xf];
 150     *o++=hs[(offset>>8)&0xf];
 151     *o++=hs[(offset>>4)&0xf];
 152     *o++=hs[offset&0xf];
 153     *o++=':';
 154     *o++=' ';
 155     b=buf;
 156     for(i=0;i<4;i++)
 157     {
 158         for(k=0;k<4;k++)
 159         {
 160             c=*b++;
 161             *o++=hs[c>>4];
 162             *o++=hs[c&0xf];
 163         }
 164         *o++=' ';
 165     }
 166     b=buf;
 167     for(i=0;i<16;i++)
 168     {
 169         c=*b++;
 170         *o++=(c&0x7f)>=0x20&&c!=0x7f?c:'.';
 171     }
 172     *o++='\n';
 173     f->cur=o;
 174     f->cnt-=59;
 175 }
 176
 177 static int putline(struct file *f, ULONG offset, UBYTE *buf, ULONG num)
 178 {
 179     int c, i;
 180     UBYTE *b;
 181     if(offset>=0x10000)
 182     {
 183         if(offset>=0x10000000&&putc(f,hs[(offset>>28)&0xf]))
 184             return 1;
 185         if(offset>=0x1000000&&putc(f,hs[(offset>>24)&0xf]))
 186             return 1;
 187         if(offset>=0x100000&&putc(f,hs[(offset>>20)&0xf]))
 188             return 1;
 189         if(offset>=0x10000&&putc(f,hs[(offset>>16)&0xf]))
 190             return 1;
 191     }
 192     if(putc(f,hs[(offset>>12)&0xf]))
 193         return 1;
 194     if(putc(f,hs[(offset>>8)&0xf]))
 195         return 1;
 196     if(putc(f,hs[(offset>>4)&0xf]))
 197         return 1;
 198     if(putc(f,hs[offset&0xf]))
 199         return 1;
 200     if(putc(f,':'))
 201         return 1;
 202     if(putc(f,' '))
 203         return 1;
 204     b=buf;
 205     for(i=0;i<16;i++)
 206     {
 207         if(i<num)
 208         {
 209             c=*b++;
 210             if(putc(f,hs[c>>4]))
 211                 return 1;
 212             if(putc(f,hs[c&0xf]))
 213                 return 1;
 214         }else
 215         {
 216             if(putc(f,' '))
 217                 return 1;
 218             if(putc(f,' '))
 219                 return 1;
 220         }
 221         if((i&3)==3)
 222             if(putc(f,' '))
 223                 return 1;
 224     }
 225     b=buf;
 226     for(i=0;i<num;i++)
 227     {
 228         c=*b++;
 229         if(putc(f,(c&0x7f)>=0x20&&c!=0x7f?c:'.'))
 230             return 1;
 231     }
 232     if(putc(f,'\n'))
 233         return 1;
 234     return 0;
 235 }
 236
 237 LONG hexdumpfile(struct file *in, struct file *out)
 238 {
 239     UBYTE buf[16];
 240     UBYTE *b;
 241     LONG offset=0, n, c, tty;
 242     LONG retval = RETURN_OK;
 243
 244     tty=IsInteractive(out->fd);
 245     for(;;)
 246     {
 247         if(in->cnt>16)
 248         {
 249             b=in->cur;
 250             n=16;
 251             in->cur+=16;
 252             in->cnt-=16;
 253         }else
 254         {
 255             b=buf;
 256             for(n=0;n<16;n++)
 257             {
 258                 c=getc(in);
 259                 if(c<0)
 260                 {
 261                     break;
 262                 }
 263                 b[n]=c;
 264             }
 265         }
 266         if(n==16)
 267         {
 268             if(out->cnt>=63)
 269                 putlinequick(out,offset,b);
 270             else
 271                 if(putline(out,offset,b,n))
 272                 {
 273                     retval = RETURN_ERROR;
 274                     break;
 275                 }
 276         }else
 277         {
 278             if(n)
 279                 putline(out,offset,b,n);
 280             if(out->cur!=out->buf)
 281                 put(out);
 282             break;
 283         }
 284         if(tty)
 285             if(put(out))
 286             {
 287                 retval = RETURN_ERROR;
 288                 break;
 289             }
 290         offset+=n;
 291
 292         if (CheckSignal(SIGBREAKF_CTRL_C))
 293         {
 294             retval = RETURN_WARN;
 295             break;
 296         }
 297     }
 298
 299     return retval;
 300
 301 }
 302
 303 void putlinenumber(struct file * out, unsigned short line)
 304 {
 305   int x = 10000;
 306   BOOL s = FALSE;
 307
 308   while (x)
 309   {
 310     if (line / x || s)
 311     {
 312       putc(out, line/x+'0');
 313       line %= x;
 314       s = TRUE;
 315     }
 316     else
 317       putc(out, ' ');
 318
 319     x/=10;
 320   }
 321
 322   putc(out, ' ');
 323 }
 324
 325 LONG dumpfile(struct file *in, struct file *out, BOOL showline)
 326 {
 327     LONG c, lastc = 0;
 328     unsigned short line = 0;
 329     LONG retval = RETURN_OK;
 330
 331     if (showline)
 332       putlinenumber(out, ++line);
 333
 334     if(1/*IsInteractive(out->fd)*/)
 335         for(;;)
 336         {
 337             c=getc(in);
 338
 339             if(c<0)
 340             {
 341                 if (lastc!='\n')
 342                   putc(out, '\n');
 343
 344                 put(out);
 345                 break;
 346             }
 347
 348             if (lastc==0x0a && showline)
 349               putlinenumber(out, ++line);
 350
 351             if(putc(out,c)||(c=='\n' && put(out)))
 352             {
 353                 if (c!='\n')
 354                   putc(out, '\n');
 355
 356                 put(out);
 357                 retval = RETURN_ERROR;
 358                 break;
 359             }
 360
 361             if ((c == '\n') && CheckSignal(SIGBREAKF_CTRL_C))
 362             {
 363                 retval = RETURN_WARN;
 364                 break;
 365             }
 366             lastc = c;
 367         }
 368
 369     return retval;
 370 }
 371
 372 static LONG processfile(CONST_STRPTR name, struct file *in, struct file *out, IPTR *args, LONG *numfiles)
 373 {
 374         LONG error = 0;
 375
 376         in->fd = Open(name, MODE_OLDFILE);
 377         if (in->fd)
 378         {
 379                 (*numfiles)++;
 380                 in->cnt = 0;
 381
 382                 if (args[ARG_HEX])
 383                         error = hexdumpfile(in, out);
 384                 else
 385                         error = dumpfile(in, out, args[ARG_NUMBER]);
 386
 387                 Close(in->fd);
 388         }
 389         else
 390                 error = IoErr();
 391
 392         return error;
 393 }
 394
 395 int __nocommandline;
 396
 397 struct MyAnchorPath
 398 {
 399     struct AnchorPath apath;
 400     UBYTE buf[MAX_PATH_LEN - 1];
 401 };
 402
 403 int main (void)
 404 {
 405     IPTR args[5]={ 0, 0, 0, 0, 0 };
 406     struct RDArgs *rda;
 407     struct file *in, *out;
 408     STRPTR *names;
 409     int retval = RETURN_OK;
 410     struct MyAnchorPath apath;
 411
 412     rda=ReadArgs("FROM/A/M,TO/K,OPT/K,HEX/S,NUMBER/S",args,NULL);
 413     if(rda==NULL)
 414     {
 415         PrintFault(IoErr(),"Type");
 416         return RETURN_FAIL;
 417     }
 418     names=(STRPTR *)args[0];
 419
 420     in =AllocMem(sizeof(struct file),MEMF_ANY);
 421     out=AllocMem(sizeof(struct file),MEMF_ANY);
 422
 423     if(in!=NULL&&out!=NULL)
 424     {
 425         out->cur=out->buf;
 426         out->cnt=BUFSIZE;
 427         apath.apath.ap_BreakBits  = SIGBREAKF_CTRL_C;
 428         apath.apath.ap_FoundBreak = 0;
 429         apath.apath.ap_Flags      = 0;
 430         apath.apath.ap_Strlen     = MAX_PATH_LEN;
 431         if (args[ARG_TO])
 432                 out->fd = Open((STRPTR) args[ARG_TO], MODE_NEWFILE);
 433         else
 434                 out->fd=Output();
 435         if (out->fd)
 436         {
 437                 while(*names!=NULL)
 438                 {
 439                         ULONG numfiles = 0;
 440                         LONG error;
 441
 442                         for (error = MatchFirst(*names, &apath.apath);
 443                              !error;
 444                              error = MatchNext(&apath.apath))
 445                         {
 446                                 error = processfile(apath.apath.ap_Buf, in, out, args, &numfiles);
 447                                 if (error)
 448                                         break;
 449                         }
 450                         MatchEnd(&apath.apath);
 451
 452                         if (numfiles == 0 && error == ERROR_NO_MORE_ENTRIES)
 453                         {
 454                                 error = -1;
 455                         }
 456
 457                         if (error && error != ERROR_NO_MORE_ENTRIES)
 458                         {
 459                                 if (*names && error != ERROR_BREAK)
 460                                 {
 461                                         Printf("TYPE: can't open %s\n", (IPTR) *names);
 462                                 }
 463
 464                                 if (error != -1)
 465                                 {
 466                                         PrintFault(error, NULL);
 467                                         SetIoErr(error);
 468                                 }
 469
 470                                 break;
 471                         }
 472                 names++;
 473                 }
 474
 475                 if (args[ARG_TO])
 476                         Close(out->fd);
 477
 478                 /* If all files got dumped, return ok, else error.
 479                 */
 480                 retval = *names ? RETURN_ERROR : RETURN_OK;
 481         } else
 482         {
 483                 PrintFault(IoErr(), NULL);
 484         }
 485     }else
 486     {
 487         PrintFault(ERROR_NO_FREE_STORE,"Type");
 488         retval = RETURN_ERROR;
 489     }
 490
 491     if(in!=NULL)
 492         FreeMem(in,sizeof(struct file));
 493     if(out!=NULL)
 494         FreeMem(out,sizeof(struct file));
 495     if(rda!=NULL)
 496         FreeArgs(rda);
 497
 498     return retval;
 499 }