#include "readwrite.h"#include "open.h"#include "getln.h"#include "stralloc.h"#include "substdio.h"#include "error.h"#include "control.h"#include "alloc.h"#include "scan.h"static char inbuf[64];static stralloc line = {0};static stralloc me = {0};static int meok = 0;
//	古老的定義方法 相當于
/*
	static void striptrailingwhitespace(stralloc *sa)
	{
	}
*/static void striptrailingwhitespace(sa)stralloc *sa;{ while (sa->len > 0)   switch(sa->s[sa->len - 1])    {     case '\n': case ' ': case '\t':       --sa->len;       break;     default:       return;    }}int control_init(){ int r; r = control_readline(&me,"control/me"); if (r == 1) meok = 1; return r;}int control_rldef(sa,fn,flagme,def)stralloc *sa;char *fn;int flagme;char *def;{ int r; r = control_readline(sa,fn); if (r) return r; if (flagme) if (meok) return stralloc_copy(sa,&me) ? 1 : -1; if (def) return stralloc_copys(sa,def) ? 1 : -1; return r;}int control_readline(sa,fn)stralloc *sa;char *fn;{ substdio ss; int fd; int match; fd = open_read(fn); if (fd == -1) { if (errno == error_noent) return 0; return -1; }  substdio_fdbuf(&ss,read,fd,inbuf,sizeof(inbuf)); if (getln(&ss,sa,&match,'\n') == -1) { close(fd); return -1; } striptrailingwhitespace(sa); close(fd); return 1;}int control_readint(i,fn)int *i;char *fn;{ unsigned long u; switch(control_readline(&line,fn))  {   case 0: return 0;   case -1: return -1;  } if (!stralloc_0(&line)) return -1; if (!scan_ulong(line.s,&u)) return 0; *i = u; return 1;}int control_readfile(sa,fn,flagme)stralloc *sa;char *fn;int flagme;{ substdio ss; int fd; int match; if (!stralloc_copys(sa,"")) return -1; fd = open_read(fn); if (fd == -1)   {   if (errno == error_noent)    {     if (flagme && meok)      {       if (!stralloc_copy(sa,&me)) return -1;       if (!stralloc_0(sa)) return -1;       return 1;      }     return 0;    }   return -1;  } substdio_fdbuf(&ss,read,fd,inbuf,sizeof(inbuf)); for (;;)  {   if (getln(&ss,&line,&match,'\n') == -1) break;   if (!match && !line.len) { close(fd); return 1; }   striptrailingwhitespace(&line);   if (!stralloc_0(&line)) break;   if (line.s[0])     if (line.s[0] != '#')       if (!stralloc_cat(sa,&line)) break;   if (!match) { close(fd); return 1; }  } close(fd); return -1;}