home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c128 / util / 128c.arc / SORT.C < prev    next >
Text File  |  1993-03-04  |  2KB  |  89 lines
  1. #INCLUDE <STDIO.H>
  2.  
  3. #DEFINE ╠╔╬┼╙  500
  4. #DEFINE ═┴╪╠┼╬  81
  5. #DEFINE ╘╥╒┼     1
  6. #DEFINE ╞┴╠╙┼    0
  7.  
  8.  
  9. MAIN (ARGC, ARGV)
  10.  
  11. UNSIGNED ARGC;
  12. CHAR **ARGV;
  13.  
  14. █
  15.    STATIC CHAR *LINEPTR[╠╔╬┼╙];
  16.    INT NLINES;
  17.    INT STRCOMP(), NUMCMP();
  18.    INT NUMERIC = ╞┴╠╙┼;
  19.    CHAR *S;
  20.  
  21.    S = *++ARGV;
  22.    IF (ARGC>1 && *S++ == '-' && *S == 'N')
  23.       NUMERIC = ╘╥╒┼;
  24.    IF ((NLINES = READLINES(LINEPTR, ╠╔╬┼╙)) >= 0) █
  25.       IF (NUMERIC)
  26.          QSORT(LINEPTR, NLINES, SIZEOF(CHAR *), NUMCMP);
  27.       ELSE
  28.          QSORT(LINEPTR, NLINES, SIZEOF(CHAR *), STRCOMP);
  29.       WRITELINES (LINEPTR, NLINES);
  30.    ▌ ELSE
  31.       PRINTF("INPUT TOO BIG TO SORT\N");
  32. ▌
  33.  
  34. READLINES(LINEPTR, MAXLINES)
  35. CHAR *LINEPTR[];
  36. UNSIGNED MAXLINES;
  37. █
  38.    UNSIGNED LEN, NLINES;
  39.    CHAR *P, *MALLOC(), LINE[═┴╪╠┼╬];
  40.  
  41.    NLINES = 0;
  42.    WHILE ((LEN = GETLINE(LINE, ═┴╪╠┼╬))) █
  43.       IF (NLINES >= MAXLINES)
  44.          RETURN (-1);
  45.       IF ((P = MALLOC(LEN)) == ╬╒╠╠)
  46.          RETURN (-1);
  47.       STRCPY(P, LINE);
  48.       LINEPTR[NLINES++] = P;
  49.    ▌
  50.    RETURN (NLINES);
  51. ▌
  52.  
  53. GETLINE (S, LIM)
  54. CHAR *S;
  55. UNSIGNED LIM;
  56. █
  57.    IF (FGETS(S, LIM, STDIN) == ╬╒╠╠)
  58.       RETURN (0);
  59.    RETURN (STRLEN(S)+1);
  60. ▌
  61.  
  62. STRCOMP (S1, S2)
  63. CHAR **S1, **S2;
  64. █
  65.    RETURN (STRCMP(*S1, *S2));
  66. ▌
  67.  
  68. NUMCMP (S1, S2)
  69. CHAR **S1, **S2;
  70. █
  71.    DOUBLE ATOF(), V1, V2;
  72.  
  73.    V1 = ATOF(*S1);
  74.    V2 = ATOF(*S2);
  75.    IF (V1 < V2)
  76.       RETURN(-1);
  77.    IF (V1 > V2)
  78.       RETURN(1);
  79.    RETURN(0);
  80. ▌
  81.  
  82. WRITELINES (LINEPTR, NLINES)
  83. CHAR *LINEPTR[];
  84. UNSIGNED NLINES;
  85. █
  86.    WHILE (NLINES--)
  87.       PRINTF ("%S", *LINEPTR++);
  88. ▌
  89.