╭╗ 关于“文章代码(AID)”说明
├╯
│⒈ 文章识别系统 (AIDS)
│ Article IDentification System
│
│ 目的在告知他人某篇特定的文章，
│ 请那个人顺利找到。
│
│ 同时，有效地解决传统上，仅告知
│ 看板的文章编号；却因为前面文章
│ 被删除并且清理索引的空位，导致
│ 之后的文章向前递补之后所造成的
│ 文章编号不同困境。
│
│⒉ 在 PttBBS 的应用 (telnet) ：
│
│ ① 任何文章前，按 大写 Q 即可，
│ 系统显示该篇文章代码 (AID)及
│ 该篇文章网址(默认关闭)。
│
│ ② 将查询到的文章代码 (AID)复制
│ 如：#14rWZ-E4 (PttNewhand)
│
│ ③ 对方进入 PttNewhand 看板后，
│ 按下 # (符号) 并输入文章代码
│ ，或直接贴上即可查阅。
│
│ ④ 以上操作为 PC 电脑版的说明，
│ 若您使用手机版、平板电脑版等
│ 连线 Ptt BBS，可能因该软件的
│ 开发商(作者)不同而有所不同。
│
│⒊ 在 PttBBS 的应用 (Web BBS) ：
│
│ ① 假设使用者在：
│ 某篇文章推文留文章代码 (AID)
│
│ #14rWZ-E4
│ #14rWZ-E4 (PttNewhand)
│ PttNewhand 看板 #14rWZ-E4
│ ▲备注：三种形式皆可。
│
│ ② 浏览批踢踢实业坊 WebBBS 接口
│ 发现 PttNewhand 板的该篇文章
│ 内推文出现超连结。
│
│ ❶ Web BBS 原始文章：
│ https://www.ptt.cc/bbs/PttNewhand/M.1189784400.A.FAD.html
│
│ ❷ Web BBS 文章内的超连结：
│ https://www.ptt.cc/bbs/PttNewhand/M.1154877694.A.384.html
│
│⒋ 目前 PttBBS 所使用的文章及文摘
│ 档名为： M（文章）或 G（文摘）
│ 、接着十进制的 31-bit 数字（事
│ 实上是一个 32-bit time_t 的正
│ 数部分）、接着 ".A" 之后，再接
│ 著 "." 及一个三位的大写十六进
│ 位数字，以 Regular Expression
│ 拮取：
│ /^(M|G)\.(\d+)\.A(?:\.([0-9A-F]{3}))?$/
│ $type = $1
│ $v1 = $2
│ $v2 = (defined($3) ? hex($3) : 0)
│
│⒌ 目前 AID 另外有几种表现形态：
│
│ ① AIDu (AID uncompressed)
│ 即 AID，以 uncompressed 强调
│ 其为原始形态。
│
│ ② AIDc (AID compressed)
│
│ 以类似 Base64 的表现方式（即
│ 每 6-bit 以一个字符表示），
│ 用字串表示 AIDu。
│
│ 目前以 0-9, A-Z, a-z, -, _，
│ 共 64 个符号代表 6-bit 里面
│ 0~64 的值。
│
│ AIDv1 使用 48-bit，故再转换
│ 成 AIDc 时为 8 个字符长。
│
│ ③ AIDu 与 AIDc 可完全互相转换。
│
[相关代码-一] //若未定义则无 AID
/* AIDS */
#define AID_DISPLAYNAME "文章代码(AID)"
/* end of AIDS */
/* QUERY_ARTICLE_URL */
#define URL_DISPLAYNAME "文章网址"
/* end of QUERY_ARTICLE_URL */
[相关代码-二]
static int
pvrb_search(char key, int curr, int total, pvrb_ctx *cx) {
fileheader_t *fh;
static char search_str[FNLEN] = "";
static char search_cmd = 0;
const char *prompt = "";
const char *aid_str = NULL;
aidu_t aidu = 0;
int need_input = 1;
if (key == 'n') {
key = search_cmd;
if (key) {
need_input = 0;
if (curr + 1 < total)
curr ++;
} else
key = '/';
}
if (key == '#')
prompt = "请输入文章代码: #";
else if (key == '/')
prompt = "请输入标题关键字: ";
else if (key == 'a')
prompt = "请输入作者关键字: ";
else {
assert(!"unknown search command");
return PSB_NA;
}
assert(sizeof(search_str) >= FNLEN);
if (need_input &&
getdata(b_lines-1, 0, prompt, search_str, FNLEN, DOECHO) < 1)
return PSB_NA;
// cache for next cache.
search_cmd = key;
if (key == '#') {
// AID search is very special, we have to search from begin to end.
curr = 0;
aid_str = search_str;
while (*aid_str == ' ' || *aid_str == '#')
aid_str++;
aidu = aidc2aidu(aid_str);
if (!aidu)
return PSB_NOP;
}
// the records was in reversed ordering
for (; curr < total; curr++) {
fh = &cx->records[total - curr - 1];
if ((key == '/' && DBCS_strcasestr(fh->title, search_str)) ||
(key == 'a' && DBCS_strcasestr(fh->owner, search_str)) ||
(key == '#' && fn2aidu(fh->filename) == aidu)) {
// found something. return as current index.
return curr;
}
}
return PSB_NOP;
}
[相关代码-三]
#ifdef AID_DISPLAYNAME
// quick exit
if (r <= 0)
break;
// LatestRef only works if system supports AID.
// try to load next reference.
lua_getglobal(L, "toc"); // stack 1
lua_getfield(L, -1, "latestref"); // stack 2
lastref = lua_tostring(L, -1);
while (lastref && *lastref)
{
// try to load by AID
char bn[IDLEN+1] = "";
aidu_t aidu = 0;
unsigned char *p = (unsigned char*)bn;
if (*lastref == '#') lastref++;
aidu = aidc2aidu((char*)lastref);
if (aidu <= 0) break;
while (*lastref > ' ') lastref ++; // lastref points to zero of space
while (*lastref && *lastref <= ' ') lastref++; // lastref points to zero or board name
if (*lastref == '(') lastref ++;
if (!*lastref) break;
strlcpy(bn, lastref, sizeof(bn));
// truncate board name
// (not_alnum(ch) && ch != '_' && ch != '-' && ch != '.')
while (*p &&
(isalnum(*p) || *p == '_' || *p == '-' || *p == '.')) p++;
*p = 0;
if (bn[0])
{
bfpath[0] = 0;
setaidfile(bfpath, bn, aidu);
}
if (bfpath[0])
loadnext = 1;
break;
}
lua_pop(L, 2);
if (loadnext) continue;
#endif // AID_DISPLAYNAME
break;
} while (r