home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / fish / 811-820 / ff811 / bsh / octal < prev    next >
Text File  |  1993-02-14  |  766b  |  28 lines
  1. if !?argv[1]
  2.     label usage
  3.     echo usage: octal number
  4.     exit 10
  5. endif
  6. if !numeric(argv[1])
  7.     goto usage
  8. endif
  9. local number result
  10. if number=argv[1]
  11.     result=""
  12. else
  13.     result="0"
  14. endif
  15. while number
  16.     result=cat(number&7,"$result"),number=(number>>3)&0x1fffffff
  17. endwhile
  18. echo $result
  19. exit 0
  20. # Octal - convert a decimal number to an octal string.  Normally, strings
  21. # which contain only digits are considered to be numeric and are
  22. # therefore subject to loss of leading zeros; this is why result is
  23. # quoted in the loop.
  24. # Octal is presented as is; no warrantee is either expressed or implied
  25. # as to it's suitability to any purpose whatsoever.  You assume all the
  26. # risk for all damage, even if caused by a defect in the software, no
  27. # matter how awful.
  28.