对文本行进行排序，新增-d（目录排序），只对字母数字空格排序（TCPL 练习5-16）

文本行的排序用到了命令行参数以及多级指针，在要求只对字母数字空格进行排序时，关键的问题点是兼容-f命令参数，也就是排序的同时忽略大小写。
由于在之前的练习中，我将忽略大小写的比较方法重新写了一个函数transfercmp（），于是无法再sort排序程序中同时调用他们。
因此，不得不增加一个外部变量uptolow，用来在只对字母数字排序的函数inpuntcmp（）中兼容忽略大小写的排序方式。
暂时还没有想到更好的方法。

#include <stdio.h>
#include <string.h>
/*  编写sort函数，扩充其功能，使得函数只对空格数字和字母排序，-d为指令，还需能和-r，-f等组合使用 */
#define MAXLINES 5000        /*  待排序的最大行数 */
char *lineptr[MAXLINES];    /*    指向问本行的指针 */

int readlines(char *lineptr[], int nlines);
void writelines(char *lineptr[], int nlines);
int inpuntcmp(char *, char *);          /*  函数inpuntcmp：将忽略除空格字母数字以外的字符比较，如果某行以上三种字符都没有，则判断为最小 */

char *alloc(int n);
void sort(void *lineptr[], int left, int right, int (*comp)(void *, void *));
int numcmp(char *, char *);
int transfercmp(char *s1, char *s2);   /* 函数transfercmp：忽略大小写的按字典比较的函数，例如，认为a=A，和numcmp以及strcmp并列的选项 */
static char allocbuf[];
static char *allocp=allocbuf;
int post=,uptolow=;                /*    post 为1则逆序排序；uptolow为1，忽略大小写  */

main(int argc, char *argv[])
{
    int nlines,nlines2;                /*  读入的输入行数            */
    int numeric=,nw=;            /*  numeric为1则以数值排序 uptolow为1则转换大小写 */

    while(argc-->){
    if(strcmp(*++argv,"-n")==)
        numeric=;
    else if(strcmp(*argv,"-r")==)
        post=;
    else if(strcmp(*argv,"-f")==)
        uptolow=;
    else if(strcmp(*argv,"-d")==)
        nw=;                        /*  nw为1只对字母数字空格排序  */
    else
        printf("error: unkonwn command\n");
    }
    if((nlines=readlines(lineptr,MAXLINES))>=) {
        if(nw==){
            sort((void **)lineptr, post?(nlines-):,  post?:(nlines-), (int (*)(void*,void*))(inpuntcmp));
        writelines(lineptr,nlines);
        return ;
        } else {
        if(uptolow==)
            sort((void **)lineptr, post?(nlines-):,  post?:(nlines-), (int (*)(void*,void*))(numeric?numcmp:strcmp));
        else
            sort((void **)lineptr, post?(nlines-):,  post?:(nlines-), (int (*)(void*,void*))(numeric?numcmp:transfercmp));

        writelines(lineptr,nlines);
        return ;
        }
    }
        else  {
        printf("input too big to sort\n");
        return ;
    }

}

void sort(void *v[], int left, int right, int (*comp)(void *, void *))
{
    if(post==) {
    int i, last;
    void swap(void *v[], int, int);

    if(left>=right)
        return;
    swap(v,left,(left+right)/);
    last =left;
    for(i=left+;i<=right;i++)
        if((*comp)(v[i],v[left])<)
            swap(v,++last,i);
    swap(v,left,last);
    sort(v,left,last-,comp);
    sort(v,last+,right,comp);
    } else
    {
    int i, last;
    void swap(void *v[], int, int);

    if(left<=right)
        return;
    swap(v,left,(left+right)/);
    last =left;
    for(i=left-;i>=right;i--)
        if((*comp)(v[i],v[left])<)
            swap(v,--last,i);
    swap(v,left,last);
    sort(v,left,last+,comp);
    sort(v,last-,right,comp);
    }
}
#include<stdlib.h>
int numcmp(char *s1,char *s2)
{
    double v1,v2;
    v1=atof(s1);
    v2=atof(s2);
    if(v1<v2)
        return -;
    else if (v1>v2)
        return  ;
    else
        return ;

}

void swap(void *v[], int i, int j) {
    void *temp;

    temp =v[i];
    v[i]=v[j];
    v[j]=temp;

}
#define MAXLEN 1000
int getline(char *, int);
int readlines(char *lineptr[], int maxlines) {
    int len,nlines;
    char *p,line[MAXLEN];
    nlines =;
    while((len=getline(line,MAXLEN))>)
        if (nlines>= maxlines || (p=alloc(len))==)
            return -;
        else {
            line[len-]=;
            strcpy(p,line);
            lineptr[nlines++]=p;
        }
        return nlines;
}

void writelines(char *lineptr[], int nlines)
{
    int i;

    for(i=; i< nlines; i++)
        printf("%s\n",lineptr[i]);
}
int getline(char *s, int lim) {
    int i=,c;
    for(; i<lim && (c=getchar()) != EOF && c!='\n';++i)
        *(s+i)=c;
    if(c=='\n') {
        *(s+i)=c;
        ++i;}
    *(s+i)=;
    return i;

}
char *alloc(int n) {
    if(allocbuf +-allocp>=n) {
        allocp +=n;
        return allocp - n;
    } else
        return ;
}
#include<ctype.h>
int inpuntcmp(char *s1, char *s2)
{
    char c,d;
    while(*s1 != && *s2!=) {
        while(ispunct(*s1)) {
            if(*s1==)
                return -;
            ++s1;
        }
        while(ispunct(*s2)) {
            if(*s2==)
                return ;
            ++s2;
        }
        if(uptolow==) {
        c=tolower(*s1);
        d=tolower(*s2);
        }
        else {
            c=*s1;
            d=*s2;
        }
        if(c<d)
            return -;
        else if (c>d)
            return ;
        ++s1;
        ++s2;

    }
    if(*s1<*s2)
            return -;
    else if (*s1>*s2)
            return ;
    else
        return ;
}
int transfercmp(char *s1, char *s2)
{
    char c,d;
    while(*s1 != && *s2!=) {
        c=tolower(*s1);
        d=tolower(*s2);
        if(c<d)
            return -;
        else if (c>d)
            return ;
        ++s1;
        ++s2;

    }
    if(*s1<*s2)
            return -;
    else if (*s1>*s2)
            return ;
    else
        return ;
}