原始程式
W_OBJ.H
原始檔－起始
/*---------( W_OBJ.H )--------------*/
#include "alloc.h"
#include "stdio.h"
#include "stdlib.h"
#include "mem.h"
#include "string.h"
#include "math.h"
#include "io.h"
extern int _Cdecl _argc;
extern char **_Cdecl _argv;
typedef unsigned char unchar;
typedef unsigned short unshort;
typedef unsigned int unint;
/*---------------------------------------------------------------------------*/
typedef struct
{ int X1,Y1,X2,Y2,TitleX; /*TitleX在M.EXE會用到*/
char *pBuff; /*畫面儲存區指標*/
} WINDOW ;
WINDOW *Uwo_Open(int X1, int Y1, int X2, int Y2);
void Uwo_Save(WINDOW *Wo);
void Uwo_Restore(WINDOW *Wo);
void Uwo_Close(WINDOW *Wo);
void Uwo_DrawBar(WINDOW *Wo,int attr,int clear,int shadow,int type); /*畫一矩形並將矩形內清為空白*/
#define WDO(fn) {WINDOW *w;w=Uwo_Open(1,1,80,25);fn();Uwo_Close(w);}
/*---------------------------------------------------------------------------*/
typedef struct
{ WINDOW *wo; /* window 一律由第一行開起 */
int x1,x2; /* x1為左框,x2為右框 */
char **ptr1; /* 存放所有Ins的字串,search時一律在此陣列 */
char **ptr2; /* 存放符合條件字串或MtPick的指標 */
unchar sel[31]; /* 選擇條件的字串 */
int sel_sw; /* 是否要選擇條件 */
int FIND; /* InsPtr找到時為ON,否則為OFF, 原 ins */
int max_row; /* open要求最大可配置字串的數量 */
int mem_row; /* 已add,ins 到ptr1的字串數量 */
int kcl; /* KEY 的長度(不含NULL) */
int match_num; /* 符合Pick條件的數量,,原 no */
int pno; /* MtPick選到的數量 */
int top; /* 顯示時的頂端 */
int bar; /* 將目前的反白棒存起來供下次進入使用 */
int lock; /* lock head number 數 */
unchar *pfmt; /* 指向正確的USprint()字串格式 */
unchar *gfmt; /* 指向原始字串 */
int handle; /* 檢查是否可以使用否 */
} TEXT;
TEXT *Utx_Open(int X1,int Y1,int X2,int Y2,int max_row,int kcl,int sel_sw);
void Utx_Del(TEXT *tx,char *s);
int Utx_Ins(TEXT *tx,char *fmt,...); /*失敗傳回OFF,成功傳回ON*/
int Utx_Add(TEXT *tx,char *fmt,...); /*失敗傳回OFF,成功傳回第幾筆*/
int Utx_AddHead(TEXT *tx,char *fmt,...);
/*按ENTER:RetKey=ENTER,Modify=ON,傳回ON. 按ESC:RetKey=NULL,傳回OFF */
char *Utx_Pick(TEXT *tx,char *buf,int x,int y,int len,char *title,int attr);
char **Utx_MtPick(TEXT *tx,int no,char *title); /*傳回指標陣列,當陣列指標為NULL表示結束,類似字串*/
int Utx_Chain(TEXT *tx,char *key,int x,int y,int len,int attr);
int Utx_GetS(TEXT *tx,char *buf,char *key,int offset); /*key的長度與Utx_Open的key長度要一樣*/
void Utx_View(TEXT *tx,char *title);
void Utx_Close(TEXT *tx);
void Utx_Sort(TEXT *Tx,char *fmt,int sw); /*sw=ON由小到大,OFF由大到小*/
TEXT *Utx_SetMemo(int X1,int Y1,int X2,int Y2,int kln,char *fn);
/*全部要傳入位址(&),fmt裏應指明int(I),long(L),float(F),double(D)... 等*/
int Utx_GetFmt(TEXT *tx,unchar *str,unchar *fmt,...); /*日期,數值用&*/
int Utx_Strstr(TEXT *tx,char *buf,char *key,int offset); /*從頭到尾搜尋有含key的字串,key長度不限制*/
/*---------------------------------------------------------------------------*/
typedef struct
{ int ffd; /* View的file handle */
int col; /* 每列最大行數 */
int lcol; /* 左邊 lock colom byte數 */
int ncol; /* 目前的offset值 */
int scol; /* display 出來的byte數(lcol+mcol+spc) */
int mcol; /* 設定後半部move byte數 */
long row; /* 最大列數(含台頭) */
int lrow; /* 平水lock列數 */
int srow; /* 螢目最大列數(不含台頭) */
long nrow; /* 目前的row在第幾列(含台頭) */
int lhed; /* 是否鎖標頭 */
int itm; /*0用以判斷是否已SetRptItem(在UPrint()中) 故0不用,由1算起,橫向最多可有40組item */
int litm; /* lock item 項數,由1算起 */
int sitm; /* 目前後半部起始item項,由0算起 */
int eitm; /* 目前後半部結束item項,由0算起 */
int x[41],n[41]; /* 0不用,由1算起,共有40組 */
char *pHead;
char *pVirt;
} VIEW ; /* 專供report用 */
void LockItemHead(int litm,char *s1,char *n,char *s2);
void LineReturn(int nextpage);
/*---------------------------------------------------------------------------*/
typedef struct
{ char *ffn; /* 主檔檔名 */
int ffd; /* 主檔的file handle */
int frl; /* 主檔的記錄長度 */
char *kfn; /* 索引檔名 */
int kfd; /* 索引檔的file handle */
int krl; /* 索引檔的資料長度 */
int kcl; /* 索引檔的比較長度(含NULL) */
int desh; /* desh 有幾BYTE */
int kmk; /* kcl-desh-1(main key 長) */
int kpl; /* 索引檔的指標長度(2,3) */
char *krb; /* 索引檔的KEY緩衝區 */
long kip; /* 索引檔中指向主檔的第kip 筆 */
long ksr; /* 自索引檔中找到的第 ksr 筆 */
int wrk; /* 是否為 work file 暫時檔 */
int handle; /* 檢查是否已經可以使用了(7632) */
char hasbuf; /* 0無Buffer,1:有且flush要寫入,2:有但flush不寫入 */
void **ptr; /* 有用Buffer時的Record指標 */
int max_row; /* 有用Buffer時最多可配置數目 */
int mem_row; /* 有用Buffer時mem裏現有數目 */
int net_sw; /* 網路檔案控制否 */
int net_fd; /* 網路公用檔案 */
char net_fn[24]; /* 網路LOG檔名 */
unchar net_lk[16]; /* read時最後登錄 */
} FKIP;
#define FKMAXBUF 16384 /* FKIP Ins & Del 時每次搬動的Buffer*/
#define NETBUF 256
void Ufk_NetOnlyRW(FKIP *Fk,int sw);/*專屬存取檔,暫時佔據該檔,以進行Update,參考FSOCP011.c（１）*/
void Ufk_NetLogKey(FKIP *Fk,unchar *key);/*不透過Ufk_Read直接撤銷並登錄新KEY,參考FSBMP041.c（２）*/
void Ufk_ViewNetLog(FKIP *Fk); /*查看網路的LOG檔*/
void Ufk_Close(FKIP *Fk);
long Ufk_Del(FKIP *Fk,void *Buf); /*傳回del第幾筆*/
void Ufk_Flush(FKIP *Fk);
void Ufk_NotFlush(FKIP *Fk); /*1:要flush,2:不flush,本函式設定不flush*/
void Ufk_InsKey(FKIP *Fk,void *Buf);
void Ufk_LockFile(FKIP *fk,char *doc); /*將檔案由共用轉為專用*/
FKIP *Ufk_Open(char *ffn,int frl,int kcl,int desh,int kpl);
int Ufk_PgUD(FKIP *Fk,char *bufS); /*若PGDN超過檔尾則*bufS==NULL*/
int Condition();
void Ufk_Pack(FKIP *Fk,void *Buf,int (*Condition)());
int Ufk_Read(FKIP *Fk,void *Buf,char *Key); /*失敗傳回OFF,正確傳回ON*/
#define Ufk_Chain(b,s) if(Ufk_Read(b##K,&b,s)==0) memset(&b,NULL,sizeof(b))
int Ufk_Search(FKIP *Fk,char *Str);
int Ufk_SeqRead(FKIP *Fk,void *Buf,char *k1,char *k2); /*EOF:檔案結束,ON:讀入成功,OFF:不在k1,k2範圍之內*/
int Ufk_SetBuf(FKIP *Fk); /*傳回配置的數量,使用後要呼叫Ufk_Flush()才正確*/
long Ufk_Write(FKIP *Fk,void *Buf); /*傳回write第幾筆*/
int Ufk_ReadLast(FKIP *Fk,char *Key); /*將上次的KEY值自LAST_IP檔讀入到Key*/
void Ufk_WriteLast(FKIP *Fk); /*將最後寫入的KEY值存入LAST_IP檔裡*/
#define Ufk_RecNo(f) (filelength(f->kfd)/f->krl) /*傳回目前資料筆數*/
#define READ2 }}free(pp);}
#define WRITE1 }lseek(fd,frl*ll,SEEK_SET);write(fd,pp,frl*rr);}free(pp);}
#define READ1(f) READ1_T(f##K,FS##f##_T)
#define READ1_T(fk,type) {long tt,nn,rr,jj,ll;int fd=fk->ffd,frl=fk->frl;type *p,*pp;tt=filelength(fd)/frl;nn=65520U/frl;\
if((pp=malloc(nn*frl))==NULL){nn=32;if((pp=malloc(nn*frl))==NULL) UFatal("READ1 mem");}lseek(fd,0L,SEEK_SET);\
for(ll=L=0;tt>0;tt-=rr,ll+=rr){if(tt>=nn) rr=nn;else rr=tt;read(fd,pp,frl*rr);for(p=pp,jj=0;jj<rr;jj++,p++,L++){if(p->KEY[0]<=SPACE) continue;
/*---------------------------------------------------------------------------*/
typedef struct
{ char **key; /* 存 入 的 字 串 */
long *ip; /* 存 入 的 指 標 */
int fd1; /* open tmp file for file split buffer */
FILE *fp1;
int fd2; /* open tmp file for file split buffer */
FILE *fp2;
int kcl; /* 插入key的長(含NULL) */
int mem_row; /* 排 序 後 的 ip & 字串指標數 */
long all_row; /* 總共排列的筆數 */
long now; /* 初值為0L,以後每次Usp_GetIp()則加1 */
int free_key; /* 若 有 Usp_GetIp 則 ON */
int dec_sw; /* 依遞減排序 */
int disk; /* 若無SORT到DISK則OFF,在GetIp,Close時有用到 */
int handle; /* 檢 查 是 否 已 經 可 以 使 用 了(7632) */
} SORTIP;
SORTIP *Usp_Open();
void Usp_Dec(SORTIP *Sp); /*內定值為遞增,本函數設定為遞減*/
int Usp_InsIp(SORTIP *Sp,char *key,long ip);/*傳入Key(需固定長度),及ip值*/
int Usp_GetIp(SORTIP *Sp,long *ip); /*依Key次序取出其ip值,失敗時傳回OFF*/
/*並將下一筆的KEY值預先存入Nkey所指*/
/*---------------------------------------------------------------------------*/
typedef struct
{ unint Y:7 ; /* 82.08.31 = FC52 = 11111 1000 1010010, RAM存時,可能第1byte=0*/
unint M:4 ; /* 82.09.02 = 14D2 = 00010 1001 1010010, (當年=0,月>1)*/
unint D:5 ; /* M或D為0表示錯誤*/
} DATE;
DATE UAsc2Date(char *pStr); /*將YY.MM.DD格式的日期轉為DATE型態*/
long UDiffDate(DATE Start, DATE End);/*計算Start到End相差幾天 */
DATE UGetM(void); /*取得電腦目前日期 */
DATE UGetLastM(void); /*取得電腦上個月的日期 */
long UHowDate(DATE day); /*傳回自西元0年到day的天數 */
void UShowM(int X,int Y,int len,DATE Date,int attr);
int UReadM(int X,int Y,int len,DATE *day,int locate,int attr_off,int attr);
/* len : 5 再由Christ判斷為"年.月",日則為1, 或"月/日",年則為127
flag: 0-7 表示要檢查日期是否正確,且在 UReadM()自動讀取系統日期,且定游標
flag: 8 表示要檢查日期是否正確,且在 UReadM()自動讀取上次輸入之舊日期,
flag: 9 表示在 UReadM() 時不自動顯示系統日期,可不輸入,若日期錯誤則不顯示日期
flag: 10 表示在要檢查日期是否正確,且在 UReadM() 時自動讀取(西元)系統日期
flag: < 0 表示要檢查日期,一定要輸入,但在 UReadM() 時不自動顯示系統日期
*/
int UMidDate(DATE S,DATE M,DATE E); /*M介於S,E之間,失敗傳回OFF */
DATE UAddDate(DATE Date, long n, int today); /*加入天數*/
/*today=0當天不算 10月5日 + 1天 = 10月6日 */
/*today=1當天算 10月5日 + 1天 = 10月5日 */
DATE USubDate(DATE Date, long n, int today); /*減掉天數*/
/*TODAY=0當天不算 10月5日 - 1天 = 10月4日 */
/*TODAY=1當天算 10月5日 - 1天 = 10月5日 */
/*---------------------------------------------------------------------------*/
typedef struct
{ unint H:5 ;
unint M:6 ;
unint F:1 ; /* ON為正確,OFF為錯誤*/
} TIME;
int UReadT(int X,int Y,int len,TIME *t,int flag,int attr_off,int attr);
void UShowT(int X,int Y,int len,TIME Time,int attr); /* modify 93/04/17 */
TIME UDiffTim2(TIME Start, TIME End); /*計算Start到End相差幾時,幾分*/
TIME UDiffTim3(TIME Start, TIME End, TIME Rest); /*計算Start到End,再淢休息,相差幾時,幾分*/
TIME UAddTime(TIME t1,TIME t2); /*時間相加*/
TIME USubTime(TIME t1,TIME t2); /*時間相減*/
/*-----------------------------------------------------------------*/
#define OFF 0 /* set cursor disappear */
#define BIG -1 /* set cursor style big, insert mode */
#define SMALL 1 /* set cursor style small, replace mode*/
void USetCursor(int Status); /*設定游標正常,放大,消失*/
/*---------------------------------------------------------------------------*/
void Ugr_Open(char typ,int x,int up,double base);
void Ugr_Qty(char *s,double *f);
void Ugr_Head(char *s);
void Ugr_MtHead(char *s,...);
void Ugr_View(int sw); /*是否設平均線*/
/*---------------------------------------------------------------------------*/
void UFatal(char *fmt,...); /*顯示錯誤訊息並結束程式 */
void Ugd_Open(char *fmt,...); /*以堆疊方式在第25列顯示訊息 */
unchar UGetC(int X,int Y);
FILE *USetTmpFp(char *mode,char *fn); /*傳回檔案的指標,及其檔名*/
unshort UGetKb(void);
char *UGetName(char *a);
void UGetS(int X,int Y,int len,char *p);
void UPrint(char *fmt,...); /*依Psf變數將字串輸出到相對資料流去*/
void USprint(char *buf,char *fmt,...);
void UWait(int bell,char *fmt,...); /*顯示訊息,並自鍵盤取得一字存入RetKey*/
/*---------------------------------------------------------------------------*/
#define DEC 7
#define COMA 8 /* for long int has Comma */
#define ZERO 16 /* if number is 0 then show 0 */
#define MONEY 32 /* if has MONEY flag show '$' */
#define OFF 0
#define ON 1
#define SPACE 32
#define F3 0x3D00
#define F4 0x3E00
#define F5 0x3F00
#define F6 0x4000
#define F7 0x4100
#define F8 0x4200
#define F9 0x4300
#define F10 0x4400
#define HOME 0x4700
#define END 0x4F00
#define INS 0x5200
#define DEL 0x5300
#define PGUP 0x4900
#define PGDN 0x5100
#define UP 0x4800
#define DOWN 0x5000
#define LEFT 0x4B00
#define RIGHT 0x4D00
#define ENTER 0x1C0D
#define BACK 0x0E08
#define ESC 0x011B
#define TAB 0x0F09
#define C_F1 0x5E00
#define C_F2 0x5F00
#define C_F3 0x6000
#define C_F4 0x6100
#define C_F5 0x6200
#define C_F6 0x6300
#define C_F8 0x6500
#define C_F9 0x6600
#define C_F10 0x6700
#define C_LEFT 0x7300
#define C_RIGHT 0x7400
#define C_PGUP 0x7200 /* 原為 0x8400 */
#define C_PGDN 0x7600
#define C_HOME 0x7700
#define C_END 0x7500
#define C_ENTER 0x1C0A
#define C_BACK 0x0E7F
#define S_TAB 0x0F00
#define A_A 0x1E00
#define A_B 0x3000
#define A_C 0x2E00
#define A_D 0x2000
#define A_E 0x1200
#define A_F 0x2100
#define A_G 0x2200
#define A_H 0x2300
#define A_I 0x1700
#define A_J 0x2400
#define A_K 0x2500
#define A_L 0x2600
#define A_M 0x3200
#define A_N 0x3100
#define A_O 0x1800
#define A_P 0x1900
#define A_Q 0x1000
#define A_R 0x1300
#define A_S 0x1F00
#define A_T 0x1400
#define A_U 0x1600
#define A_V 0x2F00
#define A_W 0x1100
#define A_X 0x2D00
#define A_Y 0x1500
#define A_Z 0x2C00
#define A_F1 0x6800
#define A_F2 0x6900
#define A_F3 0x6A00
#define A_F4 0x6B00
#define A_F5 0x6C00
#define A_F6 0x6D00
#define A_F7 0x6E00
#define A_F8 0x6F00
#define A_F9 0x7000
#define A_F10 0x7100
#define beep() putch(7)
#define XN(r) X[r],y,N[r]
#define XY(r) X[r],y
#define XL(s,e) X[s],y,X[e]+N[e]-X[s]
#define BXN(r) BX[r],BY[r],BN[r] /* for USetBXYN() */
#define MAX_FIELD 100 /* for BX[],BY[],BN[] */
#define UClsTable(x1,y1,x2,y2,attr) UScroll(0,x1,y1,x2,y2,attr)
#define UClsField(x,y,len,attr) UScroll(0,x,y,x+len-1,y,attr)
#define UCls() UScroll(0,1,3,80,24,V_SHOW)
#define s_open(fn) sopen(fn,4|0x0100|0x8000,0x0040,0x0100|0x0080); /*用fopen者,網路版均以此取代（３）*/
#define ShowNullLine(y) UShowSL(3,y,76,&Table[(SNO-4)*76],V_SHOW) /*清一列*/
/*---------------------------------------------------------------------------*/
#ifdef MAIN
unshort RetKey;
int Modify; /*讀出資料時要設為OFF,資料若有被更動則為ON.需寫入*/
int Field=1,OffSet=0,Cter,I;
int X[20],N[20]; /*以SetXN()函數設定輸入欄位的X.len,並常與XN()巨集併用*/
int NetWare,NetWritAble; /*是否網路版,是否有權寫入資料*/
int P0,P1,K0,K1; /*列印報表控制變數,P0頁數,P1偶數跳頁,K0列數,K1最大列數*/
int DiskRec,Update=OFF; /*供Write1Page使用 */
long L; /*常用的長整數變數 */
unchar BufS[320],TmpS[320],TmpFn[32]; /*常用的字串變數 */
unchar *Str,*Lkey,*Nkey,*RptHd,*NamS; /*使用系統的公司名稱*/
unchar Psf2,Psf; /*UPrint依Psf變數將字串輸出到 S螢幕,P印表機,f.V檔案*/
unchar LastKey[32],SelKey[32],Skey[24],Ekey[24]; /*報表常用的字串變數*/
DATE Sday,Eday,Day; /*常用的日期變數 */
VIEW Vw;
SORTIP *Sp;
TEXT *Tx;
FILE *Stream;
WINDOW *Wo;
FKIP *WORKK;
#define OPEN_WORK WORKK=Ufk_Open("WORKFILE",sizeof(WORK),sizeof(WORK.KEY),0,2);Ufk_SetBuf(WORKK)
int HasRead=OFF;
int BX[MAX_FIELD],BY[MAX_FIELD],BN[MAX_FIELD]; /* 0不用,由1算起,共有MAX_FIELD-1組,配合BXN(r)使用 */
int SR; /* 自動計算 */
int Christ=OFF; /*ON=西元,OFF=民國*/
int CURSOR=SMALL; /* set cursor style small, replace mode*/
unint KbMode; /*鍵盤原始值*/
int OldSec; /*CLOCK(),記錄秒用*/
unint Click; /*CLOCK(),記錄進入次數用*/
unchar Pe2=OFF; /*按Alt-P,則由 PE2 印出*/
#endif
/*===========================================================================*/
/*===========================================================================*/
/*===========================================================================*/
/*---------( W_PROTO.UTL )--------------*/
/* "原型宣告" 及 其可能使用之 "公用變數值" 及 "#define" 值
/*-----------------------------------------------------------------*/
#define COMPANY_ROW 1
#define TITLE_ROW 2 /* screen from 1 .. 25 row */
#define ITEM_ROW 3
#define STATUS_ROW 25 /* screen from 1 .. 25 row */
/*---------*/
#define NO 0
#define YES 1
/*-----------------------------------------------------------------*/
#define ET_CURSOR_TRAN 'T' /* cousor move transparant, Chiness skip 2 byte */
#define ET_CHINESS 'C' /* force use previous Chiness input method */
#define ET_ENGLISH 'N' /* force use English input method */
#define ET_CHANGJEI '1' /* use Changjei method input Chiness */
#define ET_SAMPLY '2' /* use samply method input Chiness */
#define ET_PHONETIC '3' /* use samply method input Chiness */
void UETKbSet(char set_key);
/*-----------------------------------------------------------------*/
#define KB_GET 1 /*記錄原始值*/
#define KB_SET 2 /*Num Lock=ON,Caps Lock=大寫*/
#define KB_RET 3 /*回復原始值*/
void USetKbFlag(int sw);
/*-----------------------------------------------------------------*/
#define MONO_MODE 0 /*if is MONO display */
#define VGA_MODE 1 /*if is VGA display */
typedef char far *V_PTR;
#ifdef MAIN
int VIDEO = VGA_MODE;
V_PTR video_base = (V_PTR) 0xb8000000; /* 內定 VGA displey */
int RIBBON = ON; /*Clock()用,ON=跑色,OFF=不跑*/
char ET_PICK[4]="CL0"; /*中文="CL0",英文="NL0",控制輸入法*/
#else
extern int VIDEO;
extern V_PTR video_base;
#endif
void ChkVideo(); /*測式單色或彩色螢幕 */
/*-----------------------------------------------------------------*/
#define B_W 7
#define HB_W 15 /*High light*/
#define XB_W 120 /*Invert*/
#define FB_W 240 /*Flash*/
#define V_BLUE (VIDEO) ? 11 : B_W /* UDrawBox() frame color */
#define V_BOARD (VIDEO) ? 46 : B_W /* 19 */
#define V_CALC_BOX (VIDEO) ? 91 : XB_W /* for calcurate */
#define V_CALC_IN (VIDEO) ? 63 : XB_W /* for calcurate */
#define V_CALC (VIDEO) ? 79 : B_W /* for calcurate */
#define V_COMPANY (VIDEO) ? 46 : HB_W /* company title line */
#define V_COPY (VIDEO) ? 206: FB_W /* for A_C copy string */
#define V_CREATE (VIDEO) ? 63 : HB_W /* the reacord is new */
#define V_DATE (VIDEO) ? 43 : HB_W /* title line date */
#define V_DOS (VIDEO) ? B_W: B_W /* return DOS */
#define V_EDIT (VIDEO) ? 78 : XB_W /* the record is old */
#define V_EXE_ITEM (VIDEO) ? 94 : XB_W /* execute ITEM string */
#define V_EXPRESS (VIDEO) ? 91 : XB_W /* for Express */
#define V_GREEN (VIDEO) ? 10 : HB_W /* for Express */
#define V_ITEM_ON (VIDEO) ? 110: XB_W /* item name active */
#define V_ITEM_OFF (VIDEO) ? 63 : B_W /* item name inactive */
#define V_IDX_IN (VIDEO) ? 30 : B_W /* index pick_box inside */
#define V_MENU (VIDEO) ? 94 : B_W /* window frame */
#define V_MONTH (VIDEO) ? 62 : XB_W /* for calandar */
#define V_MODIFY (VIDEO) ? 206: FB_W /* for calandar */
#define V_READ (VIDEO) ? 30 : XB_W /* 46 for READ function */
#define V_READ_F (VIDEO) ? 174: 240 /* for READ function */
#define V_RED_F (VIDEO) ? 207: 240 /* for < 0 flash color */
#define V_SHOW (VIDEO) ? 15 : B_W /* for SHOW function */
#define V_STATUS (VIDEO) ? 107: XB_W /* bottom status line */
#define V_SYMBLE (VIDEO) ? 238: 240 /* for Symble */
#define V_TABLE (VIDEO) ? 11 : B_W /* table */
#define V_TIME (VIDEO) ? 47 : HB_W /* title line time */
#define V_TITLE_ON (VIDEO) ? 94 : B_W /* title name active */
#define V_TITLE_OFF (VIDEO) ? 127: XB_W /* title name inactive */
#define V_TOG (VIDEO) ? 78 : XB_W /* UReadTog() */
#define V_TX_READ (VIDEO) ? 78 : XB_W /* active bar */
#define V_TX_SHOW (VIDEO) ? 95 : B_W /* inactive bar */
#define V_TX_SEL (VIDEO) ? 94 : HB_W /* inactive bar */
#define V_TX_VIEW (VIDEO) ? 30 : XB_W /* inactive bar */
#define V_W_IN (VIDEO) ? 91 : B_W /* window in_side attr */
#define V_WARNING (VIDEO) ? 203: 240 /* warning message */
#define V_WBOX (VIDEO) ? 123: XB_W /* frame color */
#define V_WUSR (VIDEO) ? 95 : HB_W /* window in_side string attr */
#define V_YELLOW (VIDEO) ? 14 : B_W /* UDrawBox() frame color */
void UScroll(int sw,int x1,int y1,int x2,int y2,char attr); /* sw=UP,DOWN or 0(cls screen) */
void USetColor(int X, int Y, int len, int color); /*改變顏色屬性*/
void UShowSL(int X,int Y,int len,char *s,int attr);
void UShowFD(int X,int Y,int len,double DoubleNum,char *FlagS,int attr);
void UShowS(int X,int Y,char *s,int attr);
void UShowC(int X,int Y,int len,char c,int attr);
void UShowI(int X,int Y,int len,int IntNum, char *FlagS,int attr);
void UShowD(int X,int Y,int len,double D , char *flag ,int attr);
void UShowF(int X,int Y,int len,float F,char *flag,int attr);
void UShowL(int X,int Y,int len,long L,char *flag,int attr);
double UReadFD(int X, int Y, int len,char *FlagS,int attr_off, int attr);
int UReadS(int X,int Y,int len,char *Pstr,char *flagS,int attr_off,int attr);
int UReadD(int X,int Y,int len,double *pD,char *flagS,int attr_off,int attr);
int UReadF(int X,int Y,int len,float *pF ,char *flagS,int attr_off,int attr);
int UReadI(int X,int Y,int len,int *pI ,char *flagS,int attr_off,int attr);
int UReadL(int X,int Y,int len,long *pL ,char *flagS,int attr_off,int attr);
int UReadV(int X,int Y,int len,unchar *s,int truelen,char *flagS,int attr_off,int attr);
int UReadC(int X,int Y,int len,char *c, char *flagS,int attr_off,int attr);
#define UShowV(x,y,l,s,a,b) UShowSL(x,y,l,s,V_SHOW)
void UShowTable(int X1,int Y1,int X2,int Y2,char *s,int attr);
/*================================================================*/
void UClKbBuf(); /*清除鍵盤緩衝區裡的資料*/
int UClock(); /*傳回值YES=同秒,NO=不同秒*/
void UInitSys(); /* Initial system,(ChkVideo,SetKb,...) */
void UVsprint(char *buf,char *fmt,va_list ap);
void UShiftString(unchar str[],int len,char *flagS);
void SetRptItem(char *p);
void UExtract(char bufS[]); /* 去掉非數字字元 */
void Read1Page();
void Write1Page();
void Show1Page();
void ShowHead();
int UReadTog(int X, int Y,int leng,char *Pc, int attr, char *flags, ...);
void UTime(int i,int sw); /*(0,OFF)=開始,(1,ON)=結束嗶*/
void UF1Help(char *FileName);
int USetBXYN(char *Table, int SX, int SY, int SC);
void USetMtXN(int lock,int lino,char *fmt,int sno,int cno); /*(要鎖幾欄,Fmt共有幾列,Fmt指標(要輸入'---',不輸入'==='),SNO,CNO)*/
int IndexHelp(int fd,int DispLeng,int GetLeng,char *mode,char *buf,char *wbuf,char *title);
double Out4In5(double f,int p); /*p=precision,精確度,0=全整數,1=小數1位*/
void UPrnCtrl(char *s,...); /*送出控制碼,並算出L列距,及字高,在NextPage()中*/
void NextPage(void); /*新版,不用引數,95/1/25*/
void NextLabel(int tot); /*標籤用,tot=標籤高度,96/6/26*/
原始檔－結束
Byron Wey Oct.21.1998