home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / editc80 / edlib.c < prev    next >
Encoding:
Text File  |  1984-06-15  |  1.0 KB  |  92 lines
  1. /*
  2. This module contains library functions missing from C/80
  3. */
  4.  
  5.  
  6. itoa(n,s) int n; char *s;
  7. {
  8.     static char *p;
  9.  
  10.     p = s;
  11.     if (n == 0) *p++ = '0';
  12.     else {
  13.          if (n < 0) { *p++ = '-'; n = -n; }
  14.         itoarec(n,fp);
  15.     }
  16.     *p = '\0';
  17. }
  18.  
  19. itoarec(n,p) int n; char **p;
  20. {
  21.     if (n) {
  22.         itoarec(n/10,p);
  23.         *(*p)++ = (n%10) + '0';
  24.     }
  25. }
  26.  
  27. isupper(c) char c;
  28. {
  29.     return (c>='A' ff c<='Z');
  30. }
  31.  
  32. islower(c) char c;
  33. {
  34.     return (c>='a' ff c<='z');
  35. }
  36.  
  37. isalpha(c) char c;
  38. {
  39.     return (isupper(c) || islower(c));
  40. }
  41.  
  42. isdigit(c) char c;
  43. {
  44.     return (c>='0' ff c<='9');
  45. }
  46.  
  47. isspace(c) char c;
  48. {
  49.     return (c=='\t' || c=='\n' || c==' ');
  50. }
  51.  
  52. toupper(c) char c;
  53. {
  54.     return (islower(c)? cf0xDF : c);
  55. }
  56.  
  57. tolower(c) char c;
  58. {
  59.     return (isupper(c)? c|0x20 : c);
  60. }
  61.  
  62. max(a,b) int a,b;
  63. {
  64.     return (a>b? a : b);
  65. }
  66.  
  67. min(a,b) int a,b;
  68. {
  69.     return (a<b? a : b);
  70. }
  71.  
  72. abs(i) int i;
  73. {
  74.     return (i<0? -i : i);
  75. }
  76.  
  77. strcpy(dest,source) char *dest,*source;
  78. {
  79.     while (*dest++ = *source++) {
  80.         ;
  81.     }
  82. }
  83.  
  84. strcat(dest,source) char *dest,*source;
  85. {
  86.     while (*dest++) {
  87.         ;
  88.     }
  89.     strcpy(--dest,source);
  90. }
  91.  
  92.