typedef struct{ElemType *base;                 //数组元素基址，由InitArray 分配int dim;                        //数组维数int *bounds;                    //数组维界基址，由InitArray 分配int *constants;                 //数组映像函数常量基址，由InitArray 分配（constants[i]=ci）
}Array;

#include<stdio.h>
#include<stdlib.h>
#include<stdarg.h>
//stdarg.h 头文件定义了一个变量类型 va_list 和三个宏，
//这三个宏可用于在参数个数未知（即参数个数可变）时获取函数中的参数。#define TRUE 1
#define FALSE 0
#define OK 1
#define ERROR 0
#define INFEASIBLE -1
#define OVERFLOW -2
#define UNDERFLOW -3#define MAX_ARRAY_DIM 8
//Status是函数的类型，其值是函数结果状态码
typedef int Status;
typedef char ElemType;typedef struct{ElemType *base;                 //数组元素基址，由InitArray 分配int dim;                        //数组维数int *bounds;                    //数组维界基址，由InitArray 分配int *constants;                 //数组映像函数常量基址，由InitArray 分配(constants[i]=ci)
}Array;//初始化数组A]
Status InitArray(Array &A,int dim,...){if(dim<1||dim>MAX_ARRAY_DIM)return ERROR;A.dim=dim;A.bounds=(int *)malloc(dim*sizeof(int));if(!A.bounds) exit(OVERFLOW);//初始化每一维度的长度，并计算总的元素个数int ElemTotal=1;va_list ap;va_start(ap, dim);for(int i=0;i<dim;i++){A.bounds[i]=va_arg(ap, int);                //依次接收dim 参数后面的未确定的参数if(A.bounds[i]<0) return UNDERFLOW;ElemTotal *= A.bounds[i];                    //计算元素总数（ 累乘维度 ）
    }va_end(ap);//为dim 维数组A 分配所有的存储空间A.base=(ElemType *)malloc(ElemTotal*sizeof(ElemType));if(!A.base) exit(OVERFLOW);A.constants=(int *)malloc(dim*sizeof(int));if(!A.constants) exit(OVERFLOW);A.constants[dim-1]=sizeof(ElemType);for(int j=dim-2;j>=0;j--){A.constants[j]=A.bounds[j+1]*A.constants[j+1];}    return OK;
}Status DestoryArray(Array &A){//销毁数组Aif(!A.base) return ERROR;free(A.base);A.base=NULL;if(!A.bounds) return ERROR;free(A.bounds);A.bounds=NULL;if(!A.constants) return ERROR;free(A.constants);A.constants=NULL;return OK;
}//计算 元素在 A 的相对位置，并用off返回
Status LocateArray(Array &A,va_list ap,int &off){off=0;for(int i=0;i<A.dim;i++){int locate=va_arg(ap, int);if(locate<0||locate>A.bounds[i])return OVERFLOW;off+=A.constants[i]*locate;}return OK;
}//返回某个合法下标对应的值。
Status Value(Array &A,ElemType *e,...){va_list ap;va_start(ap,e);int off;LocateArray(A,ap,off);va_end(ap);    *e=*(A.base+off);return OK;
}//给A数组的合法下标赋值
Status Assign(Array &A,ElemType e,...){va_list ap;va_start(ap, e);int off;LocateArray(A,ap,off);va_end(ap);    *(A.base+off)=e;return OK;
}void main(){Array A;InitArray(A,4,3,4,5,6);//赋值Assign(A,'b',2,1,4,1);ElemType e;//取值Value(A,&e,2,1,4,1);printf("value:%c\n",e);
}