<\/a><\/a>Ada \u7f16\u7a0b\u6307\u5357<\/h1>\n\u7248\u6743\u6240\u6709 \u00a9 1997 Rational Software Corporation.
\n\u4fdd\u7559\u6240\u6709\u6743\u5229\u3002<\/p>\n
“Rational” \u4e00\u8bcd\u548c Rational \u4ea7\u54c1\u662f Rational Software Corporation \u7684\u5546\u6807\u3002\u6587\u4e2d\u63d0\u5230\u7684\u5176\u4ed6\u516c\u53f8\u53ca\u5176\u5206\u522b\u6240\u6709\u7684\u4ea7\u54c1\u6807\u8bc6\u4ec5\u7528\u4e8e\u53c2\u8003\u76ee\u7684\u3002<\/h5>\n
\n\u76ee\u5f55<\/h1>\n\u5173\u4e8e\u672c\u6587\u6863<\/a><\/h3>\n\u7b80\u4ecb<\/a><\/h3>\n\u57fa\u672c\u539f\u5219<\/a>
\n\u5047\u8bbe<\/a>
\n\u6307\u5357\u5206\u7c7b<\/a>
\n\u6700\u6839\u672c\u7684\u539f\u5219<\/a><\/h4>\n\u4ee3\u7801\u5e03\u5c40<\/a><\/h3>\n\u6982\u8ff0<\/a>
\n\u5b57\u6bcd\u5927\u5c0f\u5199<\/a>
\n\u7f29\u8fdb<\/a>
\n\u884c\u7684\u957f\u5ea6\u4e0e\u884c\u7684\u5206\u9694<\/a>
\n\u5bf9\u9f50<\/a><\/h4>\n\u6ce8\u91ca<\/a><\/h3>\n\u6982\u8ff0<\/a>
\n\u6ce8\u91ca\u7528\u6cd5\u6307\u5357<\/a><\/h4>\n\u547d\u540d\u7ea6\u5b9a<\/a><\/h3>\n\u6982\u8ff0<\/a>
\n\u7a0b\u5e8f\u5305<\/a>
\n\u7c7b\u578b<\/a>
\n\u5f02\u5e38<\/a>
\n\u5b50\u7a0b\u5e8f<\/a>
\n\u5bf9\u8c61\u548c\u5b50\u7a0b\u5e8f\uff08\u6216\u5165\u53e3\uff09\u53c2\u6570<\/a>
\n\u7c7b\u5c5e\u5355\u5143<\/a>
\n\u5b50\u7cfb\u7edf\u7684\u547d\u540d\u7b56\u7565<\/a><\/h4>\n\u7c7b\u578b\u3001\u5bf9\u8c61\u548c\u7a0b\u5e8f\u5355\u5143\u7684\u58f0\u660e<\/a><\/h3>\n\u679a\u4e3e\u7c7b\u578b<\/a>
\n\u6570\u503c\u7c7b\u578b<\/a>
\n\u5b9e\u578b<\/a>
\n\u8bb0\u5f55\u7c7b\u578b<\/a>
\n\u5b58\u53d6\u7c7b\u578b<\/a>
\n\u79c1\u6709\u7c7b\u578b<\/a>
\n\u6d3e\u751f\u7c7b\u578b<\/a>
\n\u5bf9\u8c61\u58f0\u660e<\/a>
\n\u5b50\u7a0b\u5e8f\u548c\u7c7b\u5c5e\u5355\u5143<\/a><\/h4>\n\u8868\u8fbe\u5f0f\u548c\u8bed\u53e5<\/a><\/h3>\n\u8868\u8fbe\u5f0f<\/a>
\n\u8bed\u53e5<\/a>
\n\u7f16\u7801\u63d0\u793a<\/a><\/h4>\n\u53ef\u89c1\u6027\u95ee\u9898<\/a><\/h3>\n\u91cd\u8f7d\u548c\u540c\u5f62\u5f02\u4e49\u5b57<\/a>
\n\u4e0a\u4e0b\u6587\u5b50\u53e5<\/a>
\n\u91cd\u547d\u540d<\/a>
\n\u5173\u4e8e Use \u5b50\u53e5\u7684\u8bf4\u660e<\/a><\/h4>\n\u7a0b\u5e8f\u7ed3\u6784\u548c\u7f16\u8bd1\u95ee\u9898<\/a><\/h3>\n\u7a0b\u5e8f\u5305\u7684\u5206\u89e3<\/a>
\n\u58f0\u660e\u90e8\u5206\u7684\u7ed3\u6784<\/a>
\n\u4e0a\u4e0b\u6587\u5b50\u53e5<\/a>
\n\u786e\u7acb\u987a\u5e8f<\/a><\/h4>\n\u5e76\u884c<\/a><\/h3>\n\u9519\u8bef\u5904\u7406\u4e0e\u5f02\u5e38<\/a><\/h3>\n\u4f4e\u7ea7\u7f16\u7a0b<\/a><\/h3>\n\u8868\u793a\u5b50\u53e5\u548c\u5c5e\u6027<\/a>
\n\u65e0\u68c0\u67e5\u8f6c\u6362<\/a><\/h4>\n\u603b\u7ed3<\/a><\/h3>\n\u53c2\u8003\u6587\u732e<\/a><\/h3>\n\u8bcd\u6c47\u8868<\/a><\/h3>\n
\n<\/a>\u7b2c\u4e00\u7ae0<\/em><\/h2>\n\u5173\u4e8e\u672c\u6587\u6863<\/h1>\n
\u672c\u6587\u6863 Rational Unified Process – Ada \u7f16\u7a0b\u6307\u5357<\/em>\u662f\u4e00\u4e2a\u6807\u51c6\u7684\u6a21\u677f\uff0c\u4f60\u7684\u5f00\u53d1\u7ec4\u7ec7\u53ef\u4f9d\u6b64\u6d3e\u751f\u51fa\u4e00\u5957\u7a0b\u5e8f\u8bbe\u8ba1\u6807\u51c6\u3002\u8be5\u6307\u5357\u8be6\u7ec6\u8bf4\u660e\u4e86\u5e94\u5982\u4f55\u7f16\u5199 Ada \u7a0b\u5e8f\u3002\u672c\u6587\u670d\u52a1\u7684\u5bf9\u8c61\u662f\u6240\u6709\u5c06 Ada \u4f5c\u4e3a\u5b9e\u65bd\u8bed\u8a00\u6216\u8005\u4e00\u79cd\u8bf4\u660e\u63a5\u53e3\u6216\u6570\u636e\u7ed3\u6784\u7684\u8bbe\u8ba1\u8bed\u8a00\u7684\u5e94\u7528\u8f6f\u4ef6\u8bbe\u8ba1\u8005\u548c\u5f00\u53d1\u8005\u3002<\/p>\n\u6587\u4e2d\u6240\u63cf\u8ff0\u7684\u89c4\u5219\u56ca\u62ec\u4e86\u7a0b\u5e8f\u8bbe\u8ba1\u7684\u5927\u90e8\u5206\u65b9\u9762\u3002\u901a\u7528\u89c4\u5219\u9002\u7528\u4e8e\u7a0b\u5e8f\u5e03\u5c40\u3001\u547d\u540d\u7ea6\u5b9a\u548c\u6ce8\u91ca\u5e94\u7528\u3002\u7279\u6b8a\u89c4\u5219\u9002\u7528\u4e8e\u9009\u5b9a\u7684 Ada \u7279\u6027\uff0c\u5e76\u8bf4\u660e\u4e86\u7981\u7528\u6784\u9020\u3001\u63a8\u8350\u4f7f\u7528\u6a21\u5f0f\u548c\u7528\u4ee5\u63d0\u9ad8\u7a0b\u5e8f\u8d28\u91cf\u7684\u901a\u7528\u6280\u5de7\u3002<\/p>\n
\u9879\u76ee\u7684\u8bbe\u8ba1<\/em>\u6307\u5357\u548c\u5f53\u524d\u7684\u7f16\u7a0b<\/em>\u6307\u5357\u6709\u4e00\u5b9a\u7684\u91cd\u590d\uff0c\u662f\u6709\u610f\u8fd9\u6837\u505a\u7684\u3002\u4ecb\u7ecd\u7684\u8bb8\u591a\u7a0b\u5e8f\u8bbe\u8ba1\u89c4\u5219\uff0c\u5c24\u5176\u662f\u5728\u547d\u540d\u7ea6\u5b9a<\/em>\u4e2d\u7684\u89c4\u5219\uff0c\u7528\u4e8e\u79ef\u6781\u652f\u6301\u548c\u52a0\u5f3a\u8f6f\u4ef6\u8bbe\u8ba1\u4e2d\u7684\u9762\u5411\u5bf9\u8c61<\/em>\u65b9\u5f0f\u3002<\/p>\n\u6307\u5357\u6700\u521d\u7528\u4e8e Ada 83\u3002\u5b83\u542b\u6709\u4e0e Ada 95 \u517c\u5bb9\u7684\u89c4\u5219\uff0c\u4f46\u4e0d\u542b\u6709\u6539\u7248\u540e\u8bed\u8a00\u6807\u51c6\u65b0\u7279\u6027\u7684\u4f7f\u7528\u6307\u5357\uff0c\u4f8b\u5982\u6807\u8bc6\u7c7b\u578b\u3001\u5b50\u5355\u5143\u6216\u5c0f\u6570\u7c7b\u578b\u3002<\/p>\n
\u6587\u6863\u5927\u81f4\u6309\u7167 Ada Reference Manual \u7684\u7ed3\u6784\u6765\u7ec4\u7ec7 [ISO 8052]<\/a>\u3002<\/p>\n\u7b2c\u4e8c\u7ae0\u201c\u7b80\u4ecb<\/em>\u201d\u89e3\u91ca\u4e86\u6307\u5357\u6240\u57fa\u4e8e\u7684\u57fa\u672c\u539f\u7406\u5e76\u4ecb\u7ecd\u4e86\u6307\u5357\u5206\u7c7b\u3002<\/p>\n\u7b2c\u4e09\u7ae0\u201c\u4ee3\u7801\u5e03\u5c40<\/em>\u201d\u8bb2\u8ff0\u4e86\u7a0b\u5e8f\u6587\u672c\u7684\u4e00\u822c\u89c6\u89c9\u7ec4\u7ec7\u7ed3\u6784\u3002<\/p>\n\u7b2c\u56db\u7ae0\u201c\u6ce8\u91ca<\/em>\u201d\u7ed9\u51fa\u4e86\u5982\u4f55\u7528\u7ed3\u6784\u5316\u7684\u3001\u53ef\u7528\u7684\u548c\u53ef\u7ef4\u62a4\u7684\u65b9\u5f0f\u6765\u6ce8\u91ca\u8bf4\u660e\u4ee3\u7801\u3002<\/p>\n\u7b2c\u4e94\u7ae0\u201c\u547d\u540d\u7ea6\u5b9a<\/em>\u201d\u7ed9\u51fa\u6709\u5173\u547d\u540d\u8bed\u8a00\u5b9e\u4f53\u7684\u4e00\u822c\u89c4\u5219\u548c\u8303\u4f8b\u3002\u8fd9\u4e00\u7ae0\u7684\u5185\u5bb9\u5e94\u518d\u7ecf\u4fee\u6539\uff0c\u4ee5\u6ee1\u8db3\u7279\u5b9a\u9879\u76ee\u6216\u673a\u6784\u7684\u9700\u8981\u3002<\/p>\n\u7b2c\u516d\u7ae0\u201c\u58f0\u660e<\/em>\u201d\u548c\u7b2c\u4e03\u7ae0\u201c\u8868\u8fbe\u5f0f\u548c\u8bed\u53e5<\/em>\u201d\u5bf9\u6bcf\u79cd\u8bed\u8a00\u7ed3\u6784\u7ed9\u51fa\u4e86\u8fdb\u4e00\u6b65\u7684\u5efa\u8bae\u3002<\/p>\n\u7b2c\u516b\u7ae0\u201c\u53ef\u89c6\u6027\u95ee\u9898<\/em>\u201d\u548c\u7b2c\u4e5d\u7ae0\u201c\u7a0b\u5e8f\u7ed3\u6784\u548c\u7f16\u8bd1\u95ee\u9898<\/em>\u201d\u7ed9\u51fa\u4e86\u6709\u5173\u5168\u5c40\u6784\u5efa\u548c\u7a0b\u5e8f\u7ec4\u6210\u7684\u6307\u5bfc\u3002<\/p>\n\u7b2c\u5341\u7ae0\u201c\u5e76\u884c<\/em>\u201d\u5904\u7406\u8bed\u8a00\u4e2d\u6709\u5173\u4f7f\u7528\u4efb\u52a1\u548c\u65f6\u95f4\u76f8\u5173\u7279\u6027\u7684\u4e13\u95e8\u95ee\u9898\u3002<\/p>\n\u7b2c\u5341\u4e00\u7ae0\u201c\u9519\u8bef\u5904\u7406\u548c\u5f02\u5e38<\/em>\u201d\u7ed9\u51fa\u5982\u4f55\u7cfb\u7edf\u5730\u3001\u7b80\u4fbf\u5730\u4f7f\u7528\u6216\u4e0d\u4f7f\u7528\u5f02\u5e38\u6765\u5904\u7406\u9519\u8bef\u3002<\/p>\n\u7b2c\u5341\u4e8c\u7ae0\u201c\u4f4e\u7ea7\u7f16\u7a0b<\/em>\u201d\u5904\u7406\u8868\u793a\u5b50\u53e5\u7684\u95ee\u9898\u3002<\/p>\n\u7b2c\u5341\u4e09\u7ae0\u201c\u603b\u7ed3<\/em>\u201d\u627c\u8981\u590d\u8ff0\u4e86\u6700\u4e3a\u91cd\u8981\u7684\u6307\u5bfc\u65b9\u9488\u3002<\/p>\n\u672c\u6587\u6863\u53d6\u4ee3\u4e86 Ada Guidelines: Recommendation for Designers and programmers<\/em> \u4e2d\u7684 Application Note #15, Rational, Santa Clara, CA., 1990\u3002<\/p>\n
\n<\/a>\u7b2c\u4e8c\u7ae0<\/em><\/h2>\n\u7b80\u4ecb<\/h1>\n\u57fa\u672c\u539f\u5219<\/h2>\n
Ada \u8bed\u8a00\u7684\u8bbe\u8ba1\u5f88\u6709\u9488\u5bf9\u6027\u7684\u76ee\u7684\u5c31\u662f\u652f\u6301\u9ad8\u8d28\u91cf\u3001\u53ef\u9760\u3001\u53ef\u590d\u7528\u548c\u53ef\u79fb\u690d\u8f6f\u4ef6 [ISO 87, sect. 1.3]<\/a>\u3002\u7136\u800c\uff0c\u6ca1\u6709\u54ea\u4e00\u79cd\u8bed\u8a00\u4ec5\u9760\u5176\u672c\u8eab\u5c31\u53ef\u4ee5\u5b9e\u73b0\u4e0a\u8ff0\u76ee\u6807\u3002\u7a0b\u5e8f\u8bbe\u8ba1\u5fc5\u987b\u662f\u4e00\u4e2a\u6709\u826f\u597d\u89c4\u8303\u7684\u8fc7\u7a0b\u7684\u4e00\u90e8\u5206\u3002<\/p>\n\u6e05\u695a\u660e\u767d\u7684 Ada \u6e90\u4ee3\u7801\u662f\u672c\u6587\u4e2d\u5927\u591a\u6570\u6307\u5bfc\u65b9\u9488\u7684\u4e3b\u8981\u76ee\u6807\u3002\u8fd9\u4e00\u70b9\u662f\u5b9e\u73b0\u53ef\u9760\u6027\u548c\u53ef\u7ef4\u62a4\u6027\u7684\u4e3b\u8981\u56e0\u7d20\u3002\u6240\u8c13\u6e05\u695a\u660e\u767d\u7684\u4ee3\u7801\u53ef\u4ee5\u4ece\u4ee5\u4e0b\u4e09\u6761\u7b80\u5355\u7684\u57fa\u672c\u539f\u5219\u4e0a\u6765\u7406\u89e3\u3002<\/p>\n
\u6700\u5c0f\u9650\u5ea6\u7684\u610f\u5916<\/h3>\n
\u5728\u5176\u751f\u547d\u671f\u5185\uff0c\u4ee3\u7801\u66f4\u591a\u5730\u662f\u88ab\u8bfb\uff0c\u800c\u4e0d\u662f\u88ab\u5199\uff0c\u5c24\u5176\u662f\u5b83\u7684\u8bf4\u660e\u90e8\u5206\u3002\u7406\u60f3\u60c5\u51b5\u4e0b\uff0c\u4ee3\u7801\u8bfb\u8d77\u6765\u5e94\u8be5\u8c61\u4e00\u7bc7\u8bf4\u660e\u5b83\u505a\u4e86\u4ec0\u4e48\u7684\u82f1\u6587\u63cf\u8ff0\uff0c\u5b83\u5177\u6709\u4e00\u4e2a\u9644\u52a0\u4f18\u70b9\u662f\u53ef\u4ee5\u6267\u884c\u3002 \u7a0b\u5e8f\u66f4\u591a\u662f\u4e3a\u4eba\u7f16\u5199\uff0c\u800c\u4e0d\u662f\u4e3a\u8ba1\u7b97\u673a\u7f16\u5199\u3002\u9605\u8bfb\u7f16\u7801\u662f\u4e00\u4e2a\u590d\u6742\u7684\u8111\u529b\u8fc7\u7a0b\uff0c\u5b83\u53ef\u901a\u8fc7\u7edf\u4e00\u6807\u51c6\u6765\u7b80\u5316\uff0c\u5728\u672c\u6587\u4e2d\u8fd9\u4e00\u6307\u5bfc\u4e5f\u53eb\u201c\u6700\u5c0f\u9650\u5ea6\u610f\u5916\u539f\u5219<\/em>\u201d\u3002\u6574\u4e2a\u9879\u76ee\u4e2d\u7edf\u4e00\u6837\u5f0f\u662f\u8f6f\u4ef6\u5f00\u53d1\u56e2\u961f\u5728\u7f16\u7a0b\u6807\u51c6\u4e0a\u8fbe\u6210\u4e00\u81f4\u7684\u4e3b\u8981\u539f\u56e0\uff0c\u5b83\u4e0d\u5e94\u89c6\u4e3a\u4e00\u79cd\u60e9\u7f5a\u6216\u5bf9\u521b\u9020\u6027\u548c\u751f\u4ea7\u529b\u7684\u963b\u788d\u3002<\/p>\n\u5355\u70b9\u7ef4\u62a4<\/h3>\n
\u8fd9\u4e00\u6307\u5bfc\u6240\u57fa\u4e8e\u7684\u53e6\u4e00\u4e2a\u91cd\u8981\u539f\u5219\u662f\u5355\u70b9\u7ef4\u62a4\u539f\u5219<\/em>\u3002\u5e94\u5c3d\u91cf\u4f7f\u8bbe\u8ba1\u51b3\u7b56\u53ea\u5728 Ada \u6e90\u7801\u4e2d\u7684\u4e00\u5904\u8868\u8ff0\uff0c\u5b83\u7684\u591a\u6570\u7ed3\u8bba\u5e94\u7a0b\u5e8f\u5316\u5730\u4ece\u8be5\u5904\u6d3e\u751f\u51fa\u6765\u3002\u4e0d\u9075\u5b88\u8fd9\u4e00\u539f\u5219\u4f1a\u4e25\u91cd\u5f71\u54cd\u4ee3\u7801\u7684\u53ef\u7ef4\u62a4\u6027\u3001\u53ef\u9760\u6027\u548c\u53ef\u7406\u89e3\u6027\u3002<\/p>\n\u6700\u5c0f\u9650\u5ea6\u7684\u5e72\u6270<\/h3>\n
\u6700\u540e\uff0c\u4f5c\u4e3a\u6613\u8bfb\u6027\u7684\u4e3b\u8981\u4f5c\u7528\u56e0\u7d20\uff0c\u91c7\u7528\u6700\u5c0f\u5e72\u6270\u539f\u5219<\/em>\u3002\u5373\u907f\u514d\u5c06\u6e90\u4ee3\u7801\u4e0e\u89c6\u89c9\u201c\u5e72\u6270\u201d\u76f8\u6df7\u5408\uff1a\u5373\u680f\u3001\u6846\u4ee5\u53ca\u5176\u5b83\u4f4e\u4fe1\u606f\u91cf\u7684\u6587\u672c\u6216\u662f\u5bf9\u7406\u89e3\u8f6f\u4ef6\u529f\u80fd\u6ca1\u6709\u5e2e\u52a9\u7684\u4fe1\u606f\u3002<\/p>\n\u53ef\u79fb\u690d\u6027\u548c\u53ef\u590d\u7528\u6027\u4e5f\u662f\u5236\u5b9a\u8bb8\u591a\u6307\u5bfc\u65b9\u9488\u7684\u539f\u7531\u3002\u4ee3\u7801\u5e94\u53ef\u79fb\u690d\u5230\u4e0d\u540c\u76ee\u6807\u8ba1\u7b97\u673a\u7684\u51e0\u4e2a\u4e0d\u540c\u7f16\u8bd1\u5668\u4e0a\uff0c\u5e76\u6700\u7ec8\u79fb\u690d\u5230\u4e00\u4e2a\u66f4\u9ad8\u7ea7\u7684 Ada \u7248\u672c\u201cAda 95\u201d\u4e0a [PLO92,<\/a> TAY92]<\/a>\u3002<\/p>\n<\/a>\u5047\u8bbe<\/h2>\n\u8fd9\u91cc\u7684\u6307\u5bfc\u65b9\u9488\u6709\u51e0\u4e2a\u57fa\u672c\u5047\u8bbe\uff1a<\/p>\n
\u8bfb\u8005\u4e86\u89e3 Ada\u3002<\/h3>\n
\u5e94\u9f13\u52b1\u5728\u4efb\u4f55\u53ef\u5e26\u6765\u597d\u5904\u7684\u5730\u65b9\u4f7f\u7528 Ada \u7684\u9ad8\u7ea7\u7279\u6027\uff0c\u800c\u4e0d\u8981\u4ec5\u4ec5\u56e0\u4e3a\u4e00\u4e9b\u7a0b\u5e8f\u5458\u4e0d\u719f\u6089\u5b83\u4eec\u800c\u53cd\u5bf9\u91c7\u7528\u3002 \u8fd9\u662f\u9879\u76ee\u80fd\u4ece\u4f7f\u7528 Ada \u4e2d\u771f\u6b63\u83b7\u76ca\u7684\u552f\u4e00\u65b9\u5f0f\u3002Ada \u4e0d\u5e94\u8c61 Pascal \u6216 FORTRAN \u8bed\u8a00\u90a3\u6837\u4f7f\u7528\u3002\u4e0d\u9f13\u52b1\u5728\u6ce8\u91ca\u4e2d\u89e3\u91ca\u4ee3\u7801\uff1b\u76f8\u53cd\uff0cAda \u672c\u8eab\u5e94\u5c3d\u53ef\u80fd\u5730\u53d6\u4ee3\u6ce8\u91ca\u3002<\/p>\n
\u8bfb\u8005\u61c2\u82f1\u6587\u3002<\/h3>\n
\u8bb8\u591a\u547d\u540d\u7ea6\u5b9a\u5728\u8bcd\u6c47\u548c\u8bed\u6cd5\u4e0a\u57fa\u4e8e\u82f1\u6587\u3002\u6b64\u5916\uff0c Ada \u7684\u5173\u952e\u5b57\u90fd\u662f\u5e38\u7528\u7684\u82f1\u8bed\u5355\u8bcd\u3002\u5c06\u5176\u4e0e\u5176\u5b83\u8bed\u8a00\u6df7\u5408\u5c06\u964d\u4f4e\u4ee3\u7801\u7684\u6613\u8bfb\u6027\u3002<\/p>\n
\u4e25\u683c\u9650\u5236\u4f7f\u7528\u5b50\u53e5 (use clause) \u7684\u8fd0\u7528\u3002<\/h3>\n
\u547d\u540d\u7ea6\u5b9a\u548c\u5176\u5b83\u4e00\u4e9b\u89c4\u5219\u5047\u5b9a\u201cuse\u201d\u5b50\u53e5\u4e0d\u88ab\u8fd0\u7528\u3002<\/p>\n
\u5904\u7406\u7684\u662f\u4e00\u4e2a\u5927\u9879\u76ee\u3002<\/h3>\n
\u8bb8\u591a\u89c4\u5219\u5728\u5927\u578b\u9879\u76ee\u4e2d\u6700\u6709\u4ef7\u503c\uff0c\u867d\u7136\u51fa\u4e8e\u9879\u76ee\u7ea7\u6216\u516c\u53f8\u7ea7\u5b9e\u73b0\u548c\u7edf\u4e00\u7684\u76ee\u7684\uff0c\u5b83\u4eec\u4e5f\u5728\u5c0f\u578b\u7cfb\u7edf\u4e2d\u4f7f\u7528\u3002<\/p>\n
\u6e90\u7801\u5728\u201cRational \u73af\u5883\u201d (Rational Environment) \u4e2d\u5f00\u53d1\u3002<\/h3>\n
\u901a\u8fc7\u8fd0\u7528\u201cRational \u73af\u5883\u201d (Rational Environment)\uff0c\u4e00\u4e9b\u95ee\u9898\u5982\u4ee3\u7801\u5e03\u5c40\u3001\u5c01\u95ed\u6784\u9020\u4e2d\u7684\u6807\u8bc6\u7b26\u7b49\u5c31\u5728 Ada \u7f16\u8f91\u5668\u548c\u683c\u5f0f\u5668\u4e2d\u5904\u7406\u4e86\u3002 \u4f46\u662f\u672c\u6587\u4e2d\u7684\u5e03\u5c40\u5efa\u8bae\u9002\u7528\u4e8e\u4efb\u4f55\u5f00\u53d1\u5e73\u53f0\u3002<\/p>\n
\u7a0b\u5e8f\u8bbe\u8ba1\u9075\u5faa\u9762\u5411\u5bf9\u8c61\u7684\u65b9\u6cd5\u3002<\/h3>\n
\u8bb8\u591a\u89c4\u5219\u652f\u6301\u5c06 Ada \u7279\u6027\u548c\u7279\u5b9a\u547d\u540d\u7ea6\u5b9a\u7684\u9762\u5411\u5bf9\u8c61 (OO) \u6982\u5ff5\u7684\u7cfb\u7edf\u6620\u5c04\u3002<\/p>\n
<\/a>\u6307\u5357\u5206\u7c7b<\/h2>\n\u8fd9\u4e9b\u6307\u5bfc\u65b9\u9488\u5e76\u975e\u540c\u7b49\u91cd\u8981\u3002\u5b83\u4eec\u5927\u81f4\u9075\u5faa\u4ee5\u4e0b\u7684\u7b49\u7ea7\uff1a<\/p>\n
\u63d0\u793a\uff1a![\"\"](\"http:\/\/www.woodpecker.org.cn:9081\/doc\/RationalUnifiedProcess.zh_cn\/manuals\/images\/cg_1.gif\")
<\/h3>\n
\u8be5\u6307\u5bfc\u65b9\u9488\u4ec5\u662f\u4e00\u6761\u7b80\u5355\u7684\u5efa\u8bae\uff1b\u4e0d\u9075\u5b88\u5b83\u4e5f\u4e0d\u4f1a\u6709\u4ec0\u4e48\u5b9e\u8d28\u6027\u7684\u635f\u5bb3\uff0c\u91c7\u7528\u6216\u662f\u4e0d\u91c7\u7528\u5b83\u4eec\u4ec5\u662f\u4e2a\u4eba\u559c\u597d\u95ee\u9898\u3002\u6587\u4e2d\u7684\u63d0\u793a\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u5efa\u8bae\uff1a![\"\"](\"http:\/\/www.woodpecker.org.cn:9081\/doc\/RationalUnifiedProcess.zh_cn\/manuals\/images\/cg_4.gif\")
<\/h3>\n
\u8be5\u6307\u5bfc\u65b9\u9488\u901a\u5e38\u66f4\u591a\u5730\u57fa\u4e8e\u6280\u672f\u7684\u89c2\u70b9\uff1b\u5b83\u53ef\u80fd\u4f1a\u5f71\u54cd\u5230\u4ee3\u7801\u7684\u53ef\u79fb\u690d\u6027\u6216\u53ef\u590d\u7528\u6027\uff0c\u5e76\u5728\u4e00\u4e9b\u5b9e\u65bd\u4e2d\u5f71\u54cd\u6027\u80fd\u3002 \u9664\u975e\u6709\u5408\u9002\u7684\u7406\u7531\uff0c\u5426\u5219\u5fc5\u987b\u9075\u5b88\u5efa\u8bae\u3002\u6587\u4e2d\u63d0\u5230\u4e00\u4e9b\u4f8b\u5916\u7684\u60c5\u51b5\u3002\u6587\u4e2d\u7684\u5efa\u8bae\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u9650\u5236\uff1a![\"\"](\"http:\/\/www.woodpecker.org.cn:9081\/doc\/RationalUnifiedProcess.zh_cn\/manuals\/images\/cg_2.gif\")
<\/h3>\n
\u6709\u7591\u95ee\u7684\u7279\u6027\u4f7f\u7528\u8d77\u6765\u5371\u9669\uff0c\u4f46\u5b83\u5e76\u4e0d\u88ab\u5b8c\u5168\u7981\u6b62\uff1b\u5e94\u7528\u8be5\u7279\u6027\u7684\u51b3\u5b9a\u5e94\u5728\u9879\u76ee\u7ea7\u4e0a\u505a\u51fa\uff0c\u5e76\u4e14\u51b3\u5b9a\u5e94\u8be5\u662f\u9ad8\u5ea6\u53ef\u89c1\u7684\u3002\u6587\u4e2d\u7684\u9650\u5236\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u8981\u6c42\uff1a![\"\"](\"http:\/\/www.woodpecker.org.cn:9081\/doc\/RationalUnifiedProcess.zh_cn\/manuals\/images\/cg_3.gif\")
<\/h3>\n
\u8fdd\u80cc\u5b83\u5b9a\u5c06\u5bfc\u81f4\u4e0d\u597d\u7684\u3001\u4e0d\u53ef\u9760\u7684\u6216\u662f\u4e0d\u53ef\u79fb\u690d\u7684\u4ee3\u7801\u3002 \u8981\u6c42\u4e0d\u53ef\u8fdd\u80cc\u3002\u6587\u4e2d\u7684\u8981\u6c42\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u201cRational \u8bbe\u8ba1\u5de5\u5177\u201d (Rational Design Facility) \u5c06\u7528\u6765\u51cf\u5c11\u53d7\u9650\u7279\u6027\u7684\u4f7f\u7528\u5e76\u52a0\u5f3a\u5fc5\u9700\u6cd5\u5219\u548c\u8bb8\u591a\u5efa\u8bae\u7684\u8fd0\u7528\u3002<\/p>\n
\u4e0e\u8bb8\u591a\u5176\u5b83\u7684 Ada \u7a0b\u5e8f\u8bbe\u8ba1\u6807\u51c6\u4e0d\u540c\u7684\u662f\uff1a\u4e8b\u5b9e\u4e0a\uff0c\u8fd9\u4e9b\u6307\u5bfc\u65b9\u9488\u4e2d\u53ca\u5c11\u6709\u5b8c\u5168\u7981\u7528\u7684\u3002\u597d\u7684\u8f6f\u4ef6\u7684\u5173\u952e\u5728\u4e8e\uff1a<\/p>\n
\n- \u4e86\u89e3\u6bcf\u79cd\u7279\u6027\uff0c\u4e86\u89e3\u5b83\u7684\u5c40\u9650\u548c\u53ef\u80fd\u7684\u5371\u9669<\/li>\n
- \u51c6\u786e\u4e86\u89e3\u8fd9\u79cd\u7279\u6027\u5728\u4f55\u79cd\u573a\u5408\u53ef\u4ee5\u5b89\u5168\u4f7f\u7528<\/li>\n
- \u8ba9\u4f7f\u7528\u8be5\u7279\u6027\u7684\u51b3\u7b56\u9ad8\u5ea6\u53ef\u89c1<\/li>\n
- \u5341\u5206\u5c0f\u5fc3\u8c28\u614e\u5730\u5728\u9002\u5f53\u5904\u4f7f\u7528\u8be5\u7279\u6027\u3002<\/li>\n<\/ul>\n
<\/a>\u6700\u6839\u672c\u7684\u539f\u5219<\/h2>\n\u4f7f\u7528\u5e38\u8bc6\u3002<\/p>\n
\u5f53\u65e0\u6cd5\u627e\u5230\u53ef\u7528\u7684\u89c4\u5219\u6216\u6307\u5357\uff0c\u5f53\u89c4\u5219\u660e\u663e\u4e0d\u9002\u7528\uff0c\u5f53\u5176\u5b83\u4e00\u5207\u90fd\u5931\u8d25\u65f6\uff1a\u4f7f\u7528\u5e38\u8bc6\uff0c\u5e76\u6838\u67e5\u57fa\u672c\u539f\u5219\u3002\u8fd9\u6761\u6cd5\u5219\u51cc\u9a7e\u4e8e\u5176\u5b83\u6240\u6709\u6cd5\u5219\u4e4b\u4e0a\u3002\u5e38\u8bc6\u662f\u5fc5\u4e0d\u53ef\u5c11\u7684<\/em>\u3002<\/p>\n
\n<\/a>\u7b2c\u4e09\u7ae0<\/em><\/h2>\n\u4ee3\u7801\u5e03\u5c40<\/h1>\n\u6982\u8ff0<\/h2>\n
\u4e00\u4e2a\u7a0b\u5e8f\u5355\u5143\u7684\u5e03\u5c40\u5b8c\u5168\u5728\u201cRational \u73af\u5883\u683c\u5f0f\u5668\u201d (Rational Environment Formatter) \u7684\u63a7\u5236\u4e4b\u4e0b\uff0c\u9664\u4e86\u5728\u6ce8\u91ca\u548c\u7a7a\u767d\u5904\u5185\uff0c\u7a0b\u5e8f\u5458\u4e0d\u5fc5\u8fc7\u591a\u62c5\u5fc3\u7a0b\u5e8f\u7684\u5e03\u5c40\u3002\u8fd9\u4e2a\u5de5\u5177\u6240\u91c7\u7528\u7684\u683c\u5f0f\u7ea6\u5b9a\u5728 Reference Manual for the Ada Programming Language \u7684 Appendix E \u4e2d\u8868\u8ff0 [ISO87]<\/a>\u3002 \u7279\u522b\u662f\uff0c\u4ed6\u4eec\u5efa\u8bae\u7ed3\u6784\u5316\u6784\u9020\u7684\u5f00\u59cb\u548c\u7ed3\u675f\u5904\u7684\u5173\u952e\u5b57\u5e94\u5782\u76f4\u5bf9\u9f50\u3002\u4e00\u4e2a\u6784\u9020\u7684\u6807\u8bc6\u7b26\u4e5f\u5e94\u7cfb\u7edf\u6027\u5730\u5728\u6784\u9020\u7684\u672b\u5c3e\u91cd\u590d\u3002<\/p>\n\u683c\u5f0f\u5668\u7684\u786e\u5207\u884c\u4e3a\u7531\u4e00\u7cfb\u5217\u7684\u5e93\u5f00\u5173<\/em>\u5728\u4e00\u4e2a\u901a\u7528\u6a21\u578b\u4e16\u754c (model world) \u57fa\u7840\u4e0a\u63a7\u5236\uff0c\u8fd9\u4e9b\u5e93\u5f00\u5173\u5728\u6574\u4e2a\u9879\u76ee\u8fc7\u7a0b\u4e2d\u63a5\u6536\u4e00\u5957\u7edf\u4e00\u7684\u503c\u3002\u76f8\u5173\u7684\u5f00\u5173\u4ee5\u53ca\u5b83\u4eec\u5728\u6211\u4eec\u6240\u5efa\u8bae\u7684\u6a21\u578b\u4e16\u754c<\/em>\u4e2d\u7684\u901a\u7528\u503c\u5217\u8868\u5982\u4e0b\u3002<\/p>\n<\/a>\u5b57\u6bcd\u5927\u5c0f\u5199<\/h2>\nFormat .Id_Case : Letter_Case := Capitalized<\/h3>\n
\u8be6\u7ec6\u8bf4\u660e Ada \u5355\u5143\u4e2d\u6807\u8bc6\u7b26\u7684\u5b57\u6bcd\u5927\u5c0f\u5199\uff1a\u6700\u5f00\u59cb\u7684\u5b57\u6bcd\u4ee5\u53ca\u6bcf\u4e2a\u4e0b\u5212\u7ebf\u4e4b\u540e\u7684\u7b2c\u4e00\u4e2a\u5b57\u6bcd\u7528\u5927\u5199\u3002\u5927\u5199\u662f\u8bfb\u8005\u6700\u6613\u8bfb\u7684\u5f62\u5f0f\uff0c\u5177\u6709\u4f17\u591a\u73b0\u4ee3\u5c4f\u5e55\u548c\u6fc0\u5149\u6253\u5370\u673a\u5b57\u4f53\u3002<\/p>\n
Format .Keyword_Case : Letter_Case := Lower<\/h3>\n
\u8bf4\u660e Ada \u5173\u952e\u5b57\u7684\u5927\u5c0f\u5199\u3002\u8fd9\u5c06\u5b83\u4eec\u4e0e\u6807\u8bc6\u7b26\u7565\u5fae\u533a\u5206\u5f00\u6765\u3002<\/p>\n
Format .Number_Case : Letter_Case := Upper<\/h3>\n
\u8bf4\u660e\u6d6e\u70b9\u76f4\u63a5\u91cf\u4e2d\u5b57\u6bcd\u201cE\u201d\u548c\u57fa\u672c\u76f4\u63a5\u91cf\u4e2d\u57fa\u672c\u6570\u5b57\uff08\u201cA\u201d \u5230 \u201cF\u201d\uff09\u7684\u5927\u5c0f\u5199\u3002<\/p>\n
<\/a>\u7f29\u8fdb<\/h2>\n\u4e00\u4e2a Ada \u5355\u5143\u6309\u7167 Ada Reference Manual \u4e2d Appendix E \u6240\u8bf4\u7684\u4e00\u822c\u7ea6\u5b9a\u6765\u7f16\u6392\u683c\u5f0f [ISO87]<\/a>\u3002\u8fd9\u5c31\u662f\u8bf4\uff0c\u4e00\u4e2a\u7ed3\u6784\u5316\u6784\u9020\u7684\u5f00\u59cb\u548c\u7ed3\u675f\u5904\u7684\u5173\u952e\u5b57\u5e94\u8be5\u5bf9\u9f50\u3002 \u4f8b\u5982\uff0c\u201cloop\u201d\u548c\u201cend loop\u201d\uff0c\u201crecord\u201d\u548c\u201cend record\u201d\u3002\u5728\u7ed3\u6784\u5316\u6784\u9020\u5185<\/em>\u7684\u5355\u5143\u5e94\u5411\u53f3\u7f29\u8fdb<\/em>\u3002<\/p>\nFormat .Major_Indentation : Indent_Range := 3<\/h3>\n
\u8bf4\u660e\u683c\u5f0f\u5668\u4ee4\u5982\u201cif\u201d\u8bed\u53e5\u3001\u201ccase\u201d\u8bed\u53e5\u548c\u201cloop\u201d\u8bed\u53e5\u8fd9\u6837\u7684\u7ed3\u6784\u5316\uff08\u4e3b\u8981\u7684\uff09\u6784\u9020\u7f29\u8fdb\u7684\u5217\u6570\u3002<\/p>\n
Format .Minor_Indentation : Indent_Range := 2<\/h3>\n
\u8bf4\u660e\u683c\u5f0f\u5668\u4f7f\u6b21\u8981\u6784\u9020\u7f29\u8fdb\u7684\u5217\u6570\uff1a \u8bb0\u5f55\u7684\u58f0\u660e\u3001\u53d8\u4f53\u8bb0\u5f55\u7684\u58f0\u660e\u3001\u7c7b\u578b\u7684\u58f0\u660e\u3001\u5f02\u5e38\u5904\u7406\u3001\u9009\u62e9\u8bed\u53e5\u3001case \u8bed\u53e5\u3001\u547d\u540d\u548c\u6807\u5fd7\u8bed\u53e5\u3002<\/p>\n
<\/a>\u884c\u7684\u957f\u5ea6\u548c\u884c\u7684\u5206\u9694<\/h2>\nFormat .Line_Length : Line_Range := 80<\/h3>\n
\u8bf4\u660e\u6362\u884c\u524d\u683c\u5f0f\u5668\u663e\u793a Ada \u5355\u5143\u4e2d\u7684\u884c\u6240\u91c7\u7528\u7684\u5217\u6570\u3002\u8fd9\u4f7f\u5f97\u683c\u5f0f\u5316\u7684\u5355\u5143\u53ef\u7528\u4f20\u7edf\u7684 VT100 \u7c7b\u7ec8\u7aef\u663e\u793a\u3002<\/p>\n
Format .Statement_Indentation : Indent_Range := 3<\/h3>\n
\u8bf4\u660e\u5f53\u4e00\u6761\u8bed\u53e5\u957f\u4e8e Line_Length\uff0c\u5fc5\u987b\u8981\u65ad\u5f00\u65f6\uff0c\u683c\u5f0f\u5668\u5e94\u4f7f\u7b2c\u4e8c\u884c\u548c\u540e\u7eed\u884c\u7f29\u8fdb\u591a\u5c11\u5217\u3002\u53ea\u6709\u5f53\u4e0d\u5b58\u5728\u8bcd\u6cd5\u6784\u9020\u53ef\u8ba9\u7f29\u8fdb\u7684\u4ee3\u7801\u5bf9\u9f50\u65f6\uff0c\u683c\u5f0f\u5668\u624d\u4ee4\u4ee3\u7801\u7f29\u8fdb Statement_Indentation \u4e2a\u5217\u3002<\/p>\n
Format .Statement_Length : Line_Range := 35<\/h3>\n
\u8bf4\u660e\u5f53\u663e\u793a\u4e00\u4e2a\u8bed\u53e5\u65f6\uff0c\u6bcf\u884c\u6240\u4fdd\u7559\u7684\u5217\u6570\u3002 \u5982\u679c\u5f53\u524d\u7f29\u8fdb\u7a0b\u5ea6\u6240\u5141\u8bb8\u7684\u4e00\u884c\u4e2d\u7684\u5217\u6570\u5c0f\u4e8e Statement_Length\uff0c\u90a3\u4e48\u683c\u5f0f\u5668\u5c06 Wrap_Indentation \u4f5c\u4e3a\u65b0\u7684\u7f29\u8fdb\u7a0b\u5ea6\u3002\u6b64\u6cd5\u53ef\u9632\u6b62\u5d4c\u5957\u592a\u6df1\u7684\u8bed\u53e5\u663e\u793a\u65f6\u8d85\u51fa\u53f3\u8fb9\u754c\u3002<\/p>\n
Format .Wrap_Indentation : Line_Range := 16<\/h3>\n
\u8bf4\u660e\u5f53\u524d\u7684\u7f29\u8fdb\u7a0b\u5ea6\u4e0d\u4e0d\u8db3 Statement_Length \u65f6\uff0c\u683c\u5f0f\u5668\u5728\u4e0b\u4e00\u884c\u5f00\u5934\u5904\u5e94\u7f29\u8fdb\u7684\u5217\u6570\u3002\u6b64\u6cd5\u53ef\u9632\u6b62\u5d4c\u5957\u592a\u6df1\u7684\u8bed\u53e5\u663e\u793a\u65f6\u8d85\u51fa\u53f3\u8fb9\u754c\u3002<\/p>\n
<\/a>\u5bf9\u9f50<\/h2>\nFormat .Consistent_Breaking : Integer := 1<\/h3>\n
\u63a7\u5236\u5f62\u5982 (xxx:aaa; yyy:bbb) \u7684\u5217\u8868\u683c\u5f0f\uff0c\u8be5\u5217\u8868\u51fa\u73b0\u5728\u5b50\u7a0b\u5e8f\u7684\u5f62\u53c2\u8bf4\u660e\u5904\u548c\u7c7b\u578b\u58f0\u660e\u4e2d\u7684\u5224\u522b\u5f0f\u5904\u3002\u5b83\u4e5f\u63a7\u5236\u5f62\u5982 (xxx=>aaa, yyy=>bbb) \u7684\u5217\u8868\u7684\u683c\u5f0f\uff0c\u8be5\u5217\u8868\u51fa\u73b0\u5728\u5b50\u7a0b\u5e8f\u8c03\u7528\u548c\u805a\u96c6\u5904\u3002\u56e0\u4e3a\u8be5\u9009\u9879\u975e\u96f6\uff08\u771f\uff09\uff0c\u6240\u4ee5\u5f53\u4e00\u4e2a\u5217\u8868\u65e0\u6cd5\u5728\u4e00\u884c\u4e2d\u88c5\u4e0b\u65f6\uff0c\u5217\u8868\u4e2d\u7684\u6bcf\u4e00\u4e2a\u5143\u7d20\u90fd\u5360\u7528\u65b0\u7684\u4e00\u884c\u3002<\/p>\n
Format .Alignment_Threshold : Line_Range := 20<\/h3>\n
\u8bf4\u660e\u4e3a\u4f7f\u8fde\u7eed\u8bed\u53e5\u4e2d\u7684\u8bcd\u6cd5\u6784\u9020\u5bf9\u9f50\uff08\u5982\u547d\u540d\u7b26\u53f7\u4e2d\u7684\u5192\u53f7\u3001\u8d4b\u503c\u53f7\u548c\u7bad\u5934\uff09\uff0c\u683c\u5f0f\u5668\u53ef\u63d2\u5165\u7684\u7a7a\u683c\u6570\u3002\u5982\u679c\u5bf9\u9f50\u4e00\u4e2a\u6784\u9020\u6240\u9700\u7684\u7a7a\u683c\u6570\u591a\u4e8e\u8fd9\u4e2a\u6570\uff0c\u90a3\u4e48\u6784\u9020\u4e0d\u88ab\u5bf9\u9f50\u3002<\/p>\n
\u8981\u6ce8\u610f\u7684\u662f\uff0c\u4e3a\u4e86\u5f62\u6210\u67d0\u79cd\u5e03\u5c40\uff0c\u7a0b\u5e8f\u5458\u53ef\u4ee5\u63d2\u5165\u4e00\u4e2a\u884c\u7ed3\u675f\u7b26\u6216\u8005\u901a\u8fc7\u8f93\u5165 <space> <space> <carriage-return> \u6765\u6572\u5165\u4e00\u4e2a\u4e0d\u4f1a\u88ab\u683c\u5f0f\u5668\u5220\u6389\u7684\u884c\u4e2d\u65ad\u3002<\/p>\n
\u5f53 \u5217\u8868\u4e2d\u7684\u5143\u7d20\u8d85\u8fc7 3 \u4e2a\u5e76\u4e14\u5728\u4e00\u884c\u4e2d\u88c5\u4e0d\u4e0b\u8fd9\u4e9b\u5143\u7d20\u65f6\uff0c\u91c7\u7528\u4e0a\u8ff0\u6280\u5de7\u3002Ada \u5143\u7d20\u5217\u8868\u5e94\u5206\u9694\u4e3a\u4e00\u884c\u4ec5\u6709\u4e00\u4e2a\u5143\u7d20\uff0c\u4ee5\u63d0\u9ad8\u4ee3\u7801\u7684\u6613\u8bfb\u6027\u548c\u53ef\u7ef4\u62a4\u6027\u3002\u8fd9\u4e00\u6761\u5c24\u5176\u9002\u7528\u4e8e\u4ee5\u4e0b Ada \u6784\u9020\uff08\u8c61 Ada Reference Manual \u7684 Appendix E \u4e2d\u6240\u5b9a\u4e49\u7684\u90a3\u6837 [ISO87]<\/a>\uff09\uff1a<\/p>\n\u5b9e\u53c2\u5173\u8054\u5173\u7cfb<\/p>\n
pragma Suppress (Range_Check,\r\nOn => This_Type,\r\nOn => That_Type, On => That_Other_Type);<\/pre>\n\u6807\u8bc6\u7b26\u5217\u8868\uff0c\u7ec4\u4ef6\u5217\u8868<\/p>\n
Next_Position,\r\nPrevious_Position,\r\nCurrent_Position : Position;\r\ntype Some_Record is \r\nrecord\r\nA_Component,\r\nB_Component,\r\nC_Component : Component_Type;\r\nend record;<\/pre>\n\u679a\u4e3e\u7c7b\u578b\u5b9a\u4e49<\/p>\n
type Navaid is \r\n(Vor, \r\nVor_Dme, \r\nDme, \r\nTacan, \r\nVor_Tac, \r\nNDB);<\/pre>\n\u5224\u522b\u5f0f\u7ea6\u675f<\/p>\n
subtype Constrained is Element \r\n(Name_Length => Name'Length,\r\nValid => True,\r\nOperation => Skip);<\/pre>\n\u8bed\u53e5\u7684\u987a\u5e8f\uff08\u7531\u683c\u5f0f\u5668\u5904\u7406\uff09<\/p>\n
\u5f62\u5f0f\u90e8\u5206\u3001\u7c7b\u5c5e\u5f62\u5f0f\u90e8\u5206\u3001\u5b9e\u53c2\u90e8\u5206\u3001\u7c7b\u5c5e\u5b9e\u53c2\u90e8\u5206<\/p>\n
procedure Just_Do_It (This : in Some_Type;\r\nFor_That : in Some Other_Type;\r\nStatus : out Status_Type);\r\nJust_Do_It (This => This_Value;\r\nFor_That => That_Value;\r\nStatus => The_Status);<\/pre>\n
\n<\/a>\u7b2c\u56db\u7ae0<\/em><\/h2>\n\u6ce8\u91ca<\/h1>\n\u6982\u8ff0<\/h2>\n
\u4e0e\u5e7f\u6cdb\u63a5\u53d7\u7684\u89c2\u70b9\u76f8\u53cd\u7684\u662f\uff0c\u597d\u7684\u7a0b\u5e8f\u7684\u7279\u70b9\u5e76\u975e\u662f\u6ce8\u91ca\u7684\u6570\u91cf<\/em>\uff0c\u800c\u662f\u6ce8\u91ca\u7684\u8d28\u91cf<\/em>\u3002<\/p>\n\u6ce8\u91ca\u5e94\u5f53\u4f5c\u4e3a Ada \u4ee3\u7801\u7684\u8865\u5145<\/em>\uff0c\u800c\u4e0d\u662f\u89e3\u91ca\uff1aAda \u672c\u8eab\u662f\u4e00\u79cd\u975e\u5e38\u6613\u8bfb\u7684\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00\uff0c\u5c24\u5176\u662f\u5f53\u88ab\u597d\u7684\u547d\u540d\u7ea6\u5b9a\u652f\u6301\u65f6\u3002\u6ce8\u91ca\u5e94\u5f53\u89e3\u91ca\u90a3\u4e9b\u4e0d\u80fd\u76f4\u63a5\u4ece Ada \u4ee3\u7801\u4e2d\u770b\u51fa\u7684\u5185\u5bb9\uff1b\u5b83\u4eec\u4e0d\u5e94\u590d\u5236 Ada \u7684\u8bed\u6cd5\u6216\u8bed\u4e49\u3002\u6ce8\u91ca\u5e94\u5f53\u5e2e\u52a9\u8bfb\u8005\u638c\u63e1\u80cc\u666f\u6982\u5ff5\u548c\u4f9d\u8d56\u6761\u4ef6\uff0c\u7279\u522b\u662f\u590d\u6742\u7684\u6570\u636e\u7f16\u7801\u548c\u7b97\u6cd5\u3002\u6ce8\u91ca\u5e94\u5f53\u7a81\u51fa\u4e0e\u7f16\u7801\u6216\u8bbe\u8ba1\u6807\u51c6\u7684\u4e0d\u540c\u70b9\u3001\u53d7\u9650\u7279\u6027\u7684\u4f7f\u7528\u4ee5\u53ca\u7279\u6b8a\u7684 \u201c\u6280\u5de7\u201d\u3002\u5728\u6bcf\u4e2a\u4e3b\u8981\u7684 Ada \u6784\u9020\uff08\u5982\u5b50\u7a0b\u5e8f\u548c\u7a0b\u5e8f\u5305\uff09\u4e2d\uff0c\u7cfb\u7edf\u5730\u51fa\u73b0\u7684\u6ce8\u91ca\u6846\u6216\u8868\u5355\u5177\u6709\u4e00\u81f4\u6027\u548c\u63d0\u9192\u7a0b\u5e8f\u5458\u8bf4\u660e\u4ee3\u7801\u7684\u4f18\u70b9\uff0c\u4f46\u5b83\u4eec\u4e5f\u5e38\u5e38\u5e26\u6765\u91ca\u4e49\u4ee3\u7801\u7684\u98ce\u683c\u3002\u5bf9\u6bcf\u4e00\u884c\u6ce8\u91ca\uff0c\u7a0b\u5e8f\u5458\u90fd \u5e94\u80fd\u591f\u5f88\u597d\u5730\u56de\u7b54\uff1a\u201c\u52a0\u5165\u8fd9\u4e2a\u6ce8\u91ca\u6709\u4f55\u4ef7\u503c\uff1f\u201d<\/p>\n\u4e00\u4e2a\u8bef\u5bfc\u6216\u8005\u9519\u8bef\u7684\u6ce8\u91ca\u6bd4\u5b8c\u5168\u4e0d\u6ce8\u91ca\u8fd8\u7cdf\u3002\u7f16\u8bd1\u5668\u4e0d\u68c0\u67e5\u6ce8\u91ca\uff08\u9664\u975e\u5b83\u4eec\u8c61\u201cRational \u8bbe\u8ba1\u5de5\u5177\u201d\u90a3\u6837\u53c2\u4e0e\u4e86\u6b63\u5f0f\u7684 Ada \u8bbe\u8ba1\u8bed\u8a00 (ADL) \u6216\u8005\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00 (PDL)\uff09\u3002\u56e0\u6b64\uff0c\u6839\u636e\u5355\u70b9\u7ef4\u62a4\u539f\u5219\uff0c\u8bbe\u8ba1\u51b3\u5b9a\u5e94\u5728 Ada \u800c\u4e0d\u662f\u6ce8\u91ca\u4e2d\u8868\u8ff0\uff0c\u5373\u4f7f\u8fd9\u6837\u505a\u9700\u8981\u591a\u51e0\u4e2a\u58f0\u660e\u3002<\/p>\n
\u4f5c\u4e3a\u4e00\u4e2a\uff08\u5e76\u975e\u5f88\u597d\u7684\uff09\u4f8b\u5b50\u8003\u8651\u5982\u4e0b\u7684\u58f0\u660e\uff1a<\/p>\n
------------------------------------------------------------\r\n-- procedure Create\r\n------------------------------------------------------------\r\n--\r\nprocedure Create\r\n(The_Subscriber: in out Subscriber.Handle;\r\nWith_Name : in out Subscriber.Name);\r\n--\r\n-- Purpose: This procedure creates a subscriber with a given\r\n-- name.\r\n--\r\n-- Parameters: \r\n- The_Subscriber :mode in out, type Subscriber.Handle\r\n- It is the handle to the created subscriber\r\n- With_Name :mode in, type Subscriber.Name\r\n- The name of the subscriber to be created.\r\n- The syntax of the name is\r\n-- <letter> { <letter> | <digit> }\r\n-- Exceptions:\r\n-- Subscriber.Collection_Overflow when there is no more\r\n-- space to create a new subscriber\r\n-- Subscriber.Invalid_Name when the name is blank or\r\n-- malformed\r\n--\r\n-------------------------------------------- end Create ----<\/pre>\n\u4f8b\u5b50\u4e2d\u6709\u51e0\u70b9\u8981\u6307\u51fa\u6765\u3002<\/p>\n
\n- \u6709\u8bb8\u591a\u5197\u4f59\uff1a<\/li>\n<\/ul>\n
\n- – \u8fc7\u7a0b\u521b\u5efa (Procedure Create)\uff1a\u5982\u679c\u8981\u6539\u540d\uff0c\u6709\u51e0\u5904\u5730\u65b9\u9700\u8981\u4fee\u6539\uff1b\u7ecf\u5e38\u6027\u5730\u4fee\u6539\u6ce8\u91ca\uff0c\u7f16\u8bd1\u5668\u4e0d\u4f1a\u6267\u884c\u3002<\/dd>\n
- – \u6ce8\u91ca\u4e2d\u65e0\u9700\u91cd\u590d\u8bf4\u660e\u53c2\u6570\u540d\u3001\u6a21\u5f0f\u548c\u7c7b\u578b\u3002<\/dd>\n
- – \u8fd9\u91cc\u7ed9\u6bcf\u4e2a Ada \u5b9e\u4f53\u6240\u53d6\u7684\u540d\u5b57\u5f88\u597d\uff0c\u8fd9\u4f7f\u5f97\u529f\u80fd\u548c\u53c2\u6570\u89e3\u91ca\u53d8\u5f97\u591a\u4f59\u3002\u6ce8\u610f\uff0c\u8fd9\u4e00\u70b9\u53ea\u662f\u5bf9\u4e8e\u5982\u4e0a\u4f8b\u8fd9\u6837\u7684\u7b80\u5355\u7684\u5b50\u7a0b\u5e8f\u6765\u8bf4\u624d\u662f\u6b63\u786e\u7684\u3002\u5bf9\u4e8e\u66f4\u590d\u6742\u7684\u5b50\u7a0b\u5e8f\uff0c\u4ecd\u9700\u8981\u529f\u80fd\u548c\u53c2\u6570\u89e3\u91ca\u3002<\/dd>\n<\/dl>\n
\n- \u6846\u67b6\u52a0\u5165\u4e86\u592a\u591a\u7684\u5e72\u6270\uff0c\u9690\u85cf\u4e86\u5173\u952e\u9879\uff1a\u8fc7\u7a0b\u58f0\u660e\u3002\u53e6\u5916\uff0c\u53f3\u7aef\u7684\u5782\u76f4\u8fb9\u5f00\u59cb\u65f6\u770b\u4e0a\u53bb\u8fd8\u5f88\u6f02\u4eae\uff0c\u4f46\u5374\u4f7f\u4fee\u6539\u53d8\u5f97\u6781\u4e3a\u75db\u82e6\uff0c\u901a\u5e38\u51e0\u5e74\u7684\u7ef4\u62a4\u4e0b\u6765\uff0c\u4ee3\u7801\u6700\u540e\u5b8c\u5168\u4e0d\u5bf9\u9f50\u5e76\u4e14\u5343\u75ae\u767e\u5b54\u3002<\/li>\n
- \u76f8\u53cd\u7684\u662f\uff0c\u8fd9\u91cc\u5e94\u8bf4\u660e\u4ea7\u751f\u4e86\u4f55\u79cd\u5f02\u5e38\uff0c\u56e0\u4e3a\u82e5\u53ea\u8bfb\u89c4\u683c\u8bf4\u660e\uff0c\u8fd9\u4e00\u70b9\u5e76\u4e0d\u660e\u663e\u3002\u4f46\u6bcf\u4e2a\u5f02\u5e38\u7684\u51c6\u786e\u542b\u4e49\u5e94\u653e\u5728\u81ea\u8eab\u7684\u5f02\u5e38\u58f0\u660e\u5904\u3002<\/li>\n
- \u5e94\u8bf4\u660e\u53c2\u6570\u7684\u524d\u7f6e\u548c\u540e\u7f6e\u6761\u4ef6\uff0c\u5c24\u5176\u662f\u53c2\u6570\u95f4\u7684\u5173\u7cfb\u3002\u8fd9\u4e9b\u4e0d\u5e94\u4e0e\u5176\u5b83\u5730\u65b9\u53ef\u4ee5\u627e\u5230\u7684\u4fe1\u606f\u91cd\u590d\uff0c\u5982\u6709\u6548\u540d\u7684\u8bed\u6cd5\uff0c\u5b83\u53ea\u5e94\u5728\u4e00\u5904\u8bf4\u660e\u3002<\/li>\n<\/ul>\n
\u5728\u8fd9\u4e2a\u4f8b\u5b50\u4e2d\uff0c\u6700\u597d\u91c7\u7528\u5982\u4e0b\u66f4\u7b80\u6d01\u3001\u66f4\u6709\u7528\u7684\u65b9\u5f0f\uff1a<\/p>\n
procedure Create (The_Subscriber : in out Subscriber.Handle;\r\nWith_Name : in Subscriber.Name);--\r\n-Raises Subscriber.Collection_Overflow.\r\n-Raises Subscriber.Invalid_Name when the name is \r\nblank or malformed (see syntax description \r\nattached to declaration of type Subscriber.Name).<\/pre>\n<\/a>\u6ce8\u91ca\u7528\u6cd5\u6307\u5357<\/h2>\n\u6ce8\u91ca\u5e94\u653e\u5728\u76f8\u5173\u4ee3\u7801\u7684\u65c1\u8fb9\uff0c\u7f29\u8fdb\u540c\u6837\u7684\u5927\u5c0f\uff0c\u7d27\u9760\u7740\u4ee3\u7801 – \u5373\u7528\u7a7a\u7684\u6ce8\u91ca\u884c\u5728\u89c6\u89c9\u4e0a\u5c06\u6ce8\u91ca\u5757\u4e0e Ada \u6784\u9020\u6346\u5728\u4e00\u8d77\uff1a<\/p>\n
procedure First_One;\r\n--\r\n-- This comment relates to First_One.\r\n-- But this comment is for Second_One.\r\n-- \r\nprocedure Second_One (Times : Natural);<\/pre>\n\u7528\u7a7a\u884c\u5206\u9694\u76f8\u5173\u7684\u6e90\u7801\u5757\uff08\u6ce8\u91ca\u548c\u4ee3\u7801\uff09\uff0c\u800c\u4e0d\u7528\u7c97\u91cd\u7684\u6ce8\u91ca\u884c\uff0c\u5982\uff1a<\/p>\n
-------------------------------------------------------------<\/pre>\n\u6216\u8005\uff1a<\/p>\n
--===========================================================<\/pre>\n\u5728\u4e00\u4e2a\u6ce8\u91ca\u5757\u4e2d\uff0c\u4f7f\u7528\u7a7a\u6ce8\u91ca\u884c\u800c\u975e\u7a7a\u884c\u6765\u5206\u5272\u6ce8\u91ca\u6bb5<\/p>\n
-- Some explanation here that needs to be continued in a\r\n-- subsequent paragraph.\r\n--\r\n-- The empty comment line above makes it clear that we \r\n-- are dealing with a single comment block.<\/pre>\n\u867d\u7136\u6ce8\u91ca\u53ef\u4ee5\u653e\u5728\u76f8\u5173 Ada \u6784\u9020\u7684\u4e0a\u65b9\u6216\u4e0b\u65b9\uff0c\u4f46\u662f\u8981\u5c06\u4e00\u8282\u7684\u6807\u9898\u6216\u8005\u4e00\u4e2a\u8bf4\u660e\u51e0\u4e2a Ada \u6784\u9020\u7684\u4e3b\u8981\u4fe1\u606f\u653e\u5728\u6784\u9020\u7684\u4e0a\u65b9<\/em>\u3002\u5c06\u8bc4\u8ff0\u6216\u9644\u52a0\u4fe1\u606f\u7b49\u8fd9\u4e00\u7c7b\u7684\u6ce8\u91ca\u653e\u5728\u76f8\u5173 Ada \u6784\u9020\u7684\u4e0b\u65b9<\/em>\u3002<\/p>\n\u7528\u4e00\u9875\u7684\u6574\u884c\u5bbd\u5728 Ada \u6784\u9020\u7684\u5f00\u5934\u5904\u5206\u7ec4\u3002\u907f\u514d\u5c06\u6ce8\u91ca\u653e\u5728 Ada \u6784\u9020\u7684\u540c\u4e00\u884c\u3002\u8fd9\u4e9b\u6ce8\u91ca\u5e38\u5e38\u53d8\u5f97\u4e0d\u5bf9\u9f50\u3002\u4f46\u662f\u5728\u8bf4\u660e\u4e00\u4e2a\u957f\u7684\u58f0\u660e\u65f6\uff0c\u5982\u679a\u4e3e\u7c7b\u578b\u76f4\u63a5\u91cf\uff0c\u8fd9\u6837\u7684\u6ce8\u91ca\u65b9\u5f0f\u662f\u53ef\u4ee5\u5bb9\u8bb8\u7684\u3002<\/p>\n
\u7528\u4e00\u4e2a\u5c0f\u7684\u5206\u5c42\u6b21\u7684\u6807\u51c6\u6ce8\u91ca\u5757\u6765\u8bf4\u660e\u5c0f\u8282\u7684\u6807\u9898\uff0c\u4f46\u8fd9\u4ec5\u4ec5\u9002\u7528\u4e8e\u5f88\u5927\u7684 Ada \u5355\u5143\uff08>200 \u884c\u7684\u58f0\u660e\u6216\u8005\u8bed\u53e5\uff09\uff1a<\/p>\n
--===========================================================\r\n--\r\n \u4e3b\u6807\u9898\r\n--\r\n--===========================================================\r\n\r\n-------------------------------------------------------------\r\n \u526f\u6807\u9898\r\n-------------------------------------------------------------\r\n\r\n --------------------\r\n \u5b50\u90e8\u5206\u7684\u5934\r\n --------------------<\/pre>\n\u5728\u8fd9\u79cd\u6807\u9898\u524d\u9762\u6240\u653e\u7684\u7a7a\u884c\u6570\u8981\u591a\u4e8e\u540e\u9762\u7684\u7a7a\u884c\u6570\uff0c\u4f8b\u5982\uff0c\u4e24\u884c\u5728\u524d\u4e00\u884c\u5728\u540e\u3002\u8fd9\u6837\u4f7f\u6807\u9898\u4e0e\u968f\u540e\u7684\u6b63\u6587\u5728\u89c6\u89c9\u4e0a\u76f8\u8054\u7cfb\u3002<\/p>\n
\u907f \u514d\u4f7f\u7528\u542b\u6709\u4fe1\u606f\u7684\u51fd\u6570\u5934\uff0c\u6bd4\u5982\u4f5c\u8005\u3001\u7535\u8bdd\u3001\u521b\u5efa\u548c\u4fee\u6539\u65e5\u671f\u3001\u5355\u5143\uff08\u6216\u6587\u4ef6\u540d\uff09\u7684\u4f4d\u7f6e\uff0c\u56e0\u4e3a\u8fd9\u4e9b\u4fe1\u606f\u5f88\u5feb\u5c31\u4f1a\u8fc7\u65f6\u3002\u5c06\u6240\u6709\u8005\u7248\u6743\u4fe1\u606f\u653e\u5728\u5355\u5143\u7684\u672b\u5c3e\uff0c\u5c24\u5176\u662f \u4f7f\u7528\u201cRational \u73af\u5883\u201d\u65f6\u3002\u5f53\u8bbf\u95ee\u4e00\u4e2a\u7a0b\u5e8f\u5305\u7684\u89c4\u683c\u8bf4\u660e\u6e90\u7801\u65f6 – \u4f8b\u5982\u5728\u201cRational \u73af\u5883\u201d\u4e2d\u6309 [Definition] – \u8bfb\u8005\u4e0d\u60f3\u6d4f\u89c8\u4e24\u9875\u6216\u8005\u4e09\u9875\u5bf9\u7406\u89e3\u7a0b\u5e8f\u65e0\u4efb\u4f55\u7528\u5904\u7684\u6587\u672c\u548c\/\u6216\u5b8c\u5168\u4e0d\u5e26\u6709\u4efb\u4f55\u7a0b\u5e8f\u4fe1\u606f\u7684\u6587\u672c\u3002\u907f\u514d\u4f7f\u7528\u5782\u76f4\u6eda\u52a8\u6761\u3001\u5c01\u95ed\u56fe\u6587\u6846\u6216\u65b9\u6846\uff0c\u8fd9\u4e9b\u4e1c\u897f\u53ea\u4f1a\u589e\u52a0\u89c6\u89c9 \u5e72\u6270\uff0c\u800c\u4e14\u96be\u4ee5\u4fdd\u6301\u4e00\u81f4\u6027\u3002\u7528 Rational CMVC \u9644\u6ce8\uff08\u6216\u8005\u5176\u5b83\u5f62\u5f0f\u7684\u8f6f\u4ef6\u5f00\u53d1\u6587\u4ef6\uff09\u6765\u4fdd\u5b58\u5355\u5143\u5386\u53f2\u3002<\/p>\n
\u4e0d\u8981\u91cd\u590d\u53ef\u4ee5\u5728\u5176\u5b83\u5730\u65b9\u627e\u5230\u7684\u4fe1\u606f\uff1b\u4ec5\u63d0\u4f9b\u4e00\u4e2a\u6307\u5411\u8be5\u4fe1\u606f\u7684\u6307\u9488\u5373\u53ef\u3002<\/p>\n
\u5c3d \u91cf\u91c7\u7528 Ada\uff0c\u800c\u975e\u6ce8\u91ca\u3002\u8981\u5b9e\u73b0\u8fd9\u4e00\u70b9\uff0c\u4f60\u53ef\u9009\u62e9\u66f4\u597d\u7684\u540d\u5b57\u3001\u9644\u52a0\u4e34\u65f6\u53d8\u91cf\u3001\u9650\u5b9a\u3001\u91cd\u547d\u540d\u3001\u5b50\u7c7b\u578b\u3001\u9759\u6001\u8868\u8fbe\u5f0f\u548c\u5c5e\u6027\uff0c\u8fd9\u4e9b\u90fd\u4e0d\u5f71\u54cd\u751f\u6210\u7684\u4ee3\u7801\uff08\u81f3\u5c11\u5728\u4e00\u4e2a\u597d\u7684 \u7f16\u8bd1\u5668\u4e2d\u4e0d\u5f71\u54cd\uff09\u3002\u4f60\u4e5f\u53ef\u4ee5\u91c7\u7528\u5c0f\u7684\u3001\u5d4c\u5165\u5f0f\u7684\u8c13\u8bcd\u51fd\u6570\uff0c\u5e76\u5c06\u4ee3\u7801\u5206\u6210\u51e0\u4e2a\u65e0\u53c2\u8fc7\u7a0b\uff0c\u8fd9\u4e9b\u8fc7\u7a0b\u7684\u540d\u5b57\u63d0\u4f9b\u4e86\u4ee3\u7801\u51e0\u4e2a\u79bb\u6563\u90e8\u5206\u7684\u6807\u9898\u3002<\/p>\n
\u793a\u4f8b\uff1a<\/p>\n
\u5c06\uff1a<\/p>\n
exit when Su.Locate (Ch, Str) \/= 0; \r\n-- Exit search loop when found it.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
Search_Loop : loop<\/p>\n
Found_It := Su.Locate (Ch, Str) \/= 0;<\/p>\n
exit Search_Loop when Found_It<\/p>\n
end Search_Loop;<\/p>\n
\u5c06\uff1a<\/p>\n
if Value < 'A' or else Value > 'Z' then\r\n-- If not in uppercase letters.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
subtype Uppercase_Letters is Character range 'A' ..'Z';\r\nif Value not in Uppercase_Letters then ...<\/pre>\n\u5c06\uff1a<\/p>\n
X := Green; -- This is the Green from \r\n-- Status, not from Color.\r\nraise Fatal_Error; -- From package Outer_Scope.\r\ndelay 384.0; -- Equal to 6 minutes and 24 \r\n-- seconds.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
The_Status := Green;<\/pre>\nor:<\/p>\n
X := Status'(Green);\r\nraise Outer_Scope.Fatal_Error;\r\ndelay 6.0 * Minute + 24.0 * Second;<\/pre>\n\u5c06\uff1a<\/p>\n
if Is_Valid (The_Table (Index).Descriptor(Rank).all) then\r\n-- This is the current value for the iteration; if it is \r\n-- valid we append to the list it contains.\r\nAppend (Item, To_List => The_Table (Index).Descriptor(Rank).Ptr);|<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
declare\r\nCurrent_Rank : Lists.List renames The_Table \r\n(Index).Descriptor (Rank);\r\nbegin\r\nif Is_Valid (Current_Rank.all) then\r\nAppend (Item, To_List => Current_Rank.Ptr);\r\nend if;\r\nend;<\/pre>\n\u6ce8\u610f\u6ce8\u91ca\u4e2d\u7684\u98ce\u683c\u3001\u8bed\u6cd5\u548c\u62fc\u5199\u3002\u4e0d\u8981\u4f7f\u7528\u8c61\u7535\u62a5\u5bc6\u7801\u4e00\u822c\u7684\u98ce\u683c\u3002\u4f7f\u7528\u62fc\u5199\u68c0\u67e5\u3002\uff08\u5728\u201cRational \u73af\u5883\u201d\u4e2d\u8c03\u7528 Speller.Check_Image\uff09\u3002<\/p>\n
\u4e0d\u8981\u4f7f\u7528\u65b9\u8a00\u5b57\u6bcd\u6216\u8005\u5176\u5b83\u975e\u82f1\u6587\u5b57\u7b26\u3002\u6839\u636e Ada Issue AI-339\uff0c\u975e\u82f1\u6587\u5b57\u7b26\u53ef\u88ab\u4e00\u4e9b\u5f00\u53d1\u7cfb\u7edf\u652f\u6301\uff0c\u4e00\u4e9b Ada \u7f16\u8bd1\u5668\u4ec5\u5728\u6ce8\u91ca\u4e2d\u652f\u6301\u3002\u4f46\u8fd9\u662f\u4e0d\u53ef\u79fb\u690d\u7684\uff0c\u5f88\u6709\u53ef\u80fd\u5728\u5176\u5b83\u7cfb\u7edf\u4e0a\u5931\u6548\u3002<\/p>\n
\u5bf9\u4e8e\u5b50\u7a0b\u5e8f\uff0c\u81f3\u5c11\u8bf4\u660e\uff1a<\/p>\n
\n- \u5b50\u7a0b\u5e8f\u7684\u7528\u9014\uff0c\u4f46\u8fd9\u53ea\u662f\u5f53\u4ece\u5b83\u7684\u540d\u5b57\u4e2d\u4e0d\u80fd\u660e\u786e\u4e86\u89e3\u5176\u7528\u9014\u65f6<\/li>\n
- \u5728\u4f55\u79cd\u6761\u4ef6\u4e0b\u751f\u6210\u4e86\u4f55\u79cd\u5f02\u5e38<\/li>\n
- \u5982\u679c\u6709\u7684\u8bdd\uff0c\u53c2\u6570\u7684\u524d\u7f6e\u6216\u540e\u7f6e\u6761\u4ef6<\/li>\n
- \u5176\u4ed6\u6570\u636e\u8bbf\u95ee\uff0c\u7279\u522b\u662f\u5f53\u6570\u636e\u88ab\u4fee\u6539\u65f6\uff1b\u8fd9\u5c24\u5176\u5305\u62ec\u6709\u526f\u4f5c\u7528\u7684\u51fd\u6570<\/li>\n
- \u6b63\u786e\u4f7f\u7528\u5b50\u7a0b\u5e8f\u6240\u9700\u7684\u4efb\u4f55\u9650\u5236\u6216\u9644\u52a0\u4fe1\u606f<\/li>\n<\/ul>\n
\u5bf9\u4e8e\u7c7b\u578b\u548c\u5bf9\u8c61\uff0c\u8981\u8bf4\u660e\u6240\u6709\u4e0d\u80fd\u901a\u8fc7 Ada \u8868\u8fbe\u7684\u4e0d\u53d8\u91cf\u6216\u9644\u52a0\u7ea6\u675f\u3002<\/p>\n
\u907f\u514d\u6ce8\u91ca\u4e2d\u7684\u91cd\u590d\u3002\u4f8b\u5982\uff0c\u6709\u5173\u7528\u9014\u7684\u90e8\u5206\u5e94\u662f\u201c\u5b83\u505a\u4ec0\u4e48\uff1f\u201d\u8fd9\u4e2a\u95ee\u9898\u7684\u7b80\u5355\u56de\u7b54\uff0c\u800c\u4e0d\u662f\u201c\u5b83\u600e\u4e48\u505a\uff1f\u201d\u7684\u56de\u7b54\u3002\u6982\u8ff0\u5e94\u662f\u8bbe\u8ba1\u7684\u7b80\u77ed\u8868\u8fbe\u3002\u8bf4\u660e\u4e2d\u4e0d\u5e94\u63cf\u8ff0\u6240\u7528\u7684\u7b97\u6cd5\uff0c\u800c\u5e94\u89e3\u91ca\u7a0b\u5e8f\u5305\u5e94\u5982\u4f55\u4f7f\u7528\u3002<\/p>\n
\u6570\u636e\u7ed3\u6784\u548c\u7b97\u6cd5\u90e8\u5206\u5e94\u542b\u6709\u8db3\u591f\u7684\u4fe1\u606f\u6765\u5e2e\u52a9\u7406\u89e3\u4e3b\u8981\u7684\u5b9e\u73b0\u7b56\u7565\uff08\u4ee5\u4fbf\u6b63\u786e\u4f7f\u7528\u7a0b\u5e8f\u5305\uff09\uff0c\u4f46\u65e0\u9700\u5305\u542b\u6240\u6709\u7684\u5b9e\u73b0\u7ec6\u8282\u6216\u4e0e\u6b63\u786e\u4f7f\u7528\u5305\u6beb\u4e0d\u76f8\u5173\u7684\u4fe1\u606f\u3002<\/p>\n
\n<\/a>\u7b2c\u4e94\u7ae0<\/em><\/h2>\n\u547d\u540d\u7ea6\u5b9a<\/h1>\n\u6982\u8ff0<\/h2>\n
\u7ed9 Ada \u5b9e\u4f53\uff08\u7a0b\u5e8f\u5355\u5143\u3001\u7c7b\u578b\u3001\u5b50\u7c7b\u578b\u3001\u5bf9\u8c61\u3001\u76f4\u63a5\u91cf\u3001\u5f02\u5e38\uff09\u6307\u5b9a\u597d\u540d\u5b57\u662f\u6240\u6709\u8f6f\u4ef6\u5e94\u7528\u7a0b\u5e8f\u8981\u8868\u8ff0\u7684\u6700\u7cbe\u5de7\u7684\u4e8b\u60c5\u4e4b\u4e00\u3002\u4e2d\u7b49\u89c4\u6a21\u5230\u5927\u89c4\u6a21\u7684\u5e94\u7528\u7a0b\u5e8f\u5b58\u5728\u7740\u53e6\u4e00\u4e2a\u95ee \u9898\uff1a\u540d\u5b57\u95f4\u7684\u51b2\u7a81\uff0c\u6216\u662f\u8981\u627e\u5230\u8db3\u591f\u7684\u540c\u4e49\u8bcd\u6765\u6307\u4ee3\u76f8\u540c\u73b0\u5b9e\u4e16\u754c\u4e2d\u76f8\u4f3c\u4f46\u53c8\u6709\u522b\u7684\u6982\u5ff5\uff08\u6216\u662f\u547d\u540d\u4e00\u4e2a\u7c7b\u578b\u3001\u5b50\u7c7b\u3001\u5bf9\u8c61\u3001\u53c2\u6570\uff09\u3002\u8fd9\u91cc\u53ef\u5229\u7528\u4e0d\u91c7\u7528\u201cuse\u201d \u5b50\u53e5\uff08\u6216\u53ea\u5728\u6781\u4e3a\u53d7\u9650\u7684\u6761\u4ef6\u4e0b\u91c7\u7528\uff09\u7684\u6cd5\u5219\u3002\u5728\u8bb8\u591a\u60c5\u5f62\u4e0b\uff0c\u8fd9\u4f7f\u5f97\u53ef\u4ee5\u4e0d\u5192\u6df7\u6dc6\u7684\u98ce\u9669\u800c\u7f29\u77ed\u540d\u5b57\uff0c\u5e76\u590d\u7528\u76f8\u540c\u7684\u63cf\u8ff0\u8bcd\u3002<\/p>\n
\u9009\u62e9\u6e05\u6670\u7684\u3001\u6613\u8bfb\u7684\u3001\u6709\u610f\u4e49\u7684\u540d\u79f0\u3002<\/p>\n
\u4e0e\u5176\u5b83\u7684\u7f16\u7a0b\u8bed\u8a00\u4e0d\u540c\uff0cAda \u4e0d\u5c06\u6807\u8bc6\u7b26\u7684\u957f\u5ea6\u9650\u5236\u5728 6\uff0c8 \u6216\u8005 15 \u4e2a\u5b57\u7b26\u5185\u3002\u77ed\u540d\u5b57\u6253\u5b57\u901f\u5ea6\u5feb\u4e0d\u662f\u91c7\u7528\u5b83\u4eec\u7684\u53ef\u4ee5\u4e3a\u4eba\u63a5\u53d7\u7684\u7406\u7531\u3002\u53ea\u6709\u4e00\u4e2a\u5b57\u6bcd\u7684\u6807\u8bc6\u7b26\u901a\u5e38\u8bf4\u660e\u9009\u62e9\u4e0d\u5f53\u6216\u662f\u61d2\u60f0\u3002\u53ef\u80fd\u6709\u51e0\u4e2a\u4f8b\u5916\uff0c\u5982\u5c06 E \u4f5c\u4e3a\u81ea\u7136\u5bf9\u6570\u7684\u5e95\uff0cPi\uff0c\u4ee5\u53ca\u5176\u5b83\u5c11\u6570\u51e0\u4e2a\u6613\u8fa8\u8bc6\u7684\u60c5\u51b5\u3002<\/p>\n
\u7528\u4e0b\u5212\u7ebf\u5c06\u4e00\u4e2a\u540d\u5b57\u4e2d\u7684\u4e0d\u540c\u5355\u8bcd\u5206\u9694\u5f00\u6765\uff1a<\/p>\n
Is_Name_Valid<\/code> \u4e0d\u662f IsNameValid<\/code><\/p>\n\u91c7\u7528\u5168\u540d\u800c\u4e0d\u662f\u7f29\u5199\u3002<\/p>\n
\u53ea\u91c7\u7528\u9879\u76ee\u8ba4\u53ef\u7684\u7f29\u7565\u8bcd\u3002<\/p>\n
\u53ea\u80fd\u662f\u5728\u4e24\u79cd\u60c5\u51b5\u4e4b\u4e00\u65f6\u91c7\u7528\u7f29\u5199\uff1a\u8be5\u7f29\u5199\u5728\u5e94\u7528\u9886\u57df\u4e2d\u5f88\u666e\u904d\uff08\u5982 FFT \u4ee3\u8868\u5085\u7acb\u53f6\u53d8\u6362\uff09\u6216\u8005\u6765\u81ea\u516c\u8ba4\u7f29\u5199\u7684\u9879\u76ee\u7ea7\u5217\u8868\u3002\u5426\u5219\uff0c\u5f88\u6709\u53ef\u80fd\u4f7f\u76f8\u4f3c\u4f46\u4e0d\u76f8\u540c\u7684\u7f29\u5199\u5230\u5904\u51fa\u73b0\uff0c\u5bfc\u81f4\u4ee5\u540e\u7684\u6df7\u6dc6\u548c\u9519\u8bef\uff08\u5982\u5c06 track_identification \u7f29\u5199\u6210 trid\u3001trck_id\u3001tr_iden\u3001tid\u3001tr_ident\u7b49\uff09\u3002<\/p>\n
\u5c11\u7528\u540e\u7f00\u8bf4\u660e Ada \u6784\u9020\u7684\u5206\u7c7b\u3002\u5b83\u4eec\u4e0d\u80fd\u63d0\u9ad8\u6613\u8bfb\u6027\u3002<\/p>\n
\u901a\u5e38\u6309\u7167 Ada \u5b9e\u4f53\u7684\u7c7b\u6765\u52a0\u540e\u7f00\uff0c\u5982\u7ed9\u7a0b\u5e8f\u5305\u52a0\u4e0a _Package\uff0c\u5f02\u5e38\u52a0\u4e0a _Error\uff0c\u7c7b\u578b\u52a0\u4e0a _Type\uff0c\u4ee5\u53ca\u5b50\u7a0b\u5e8f\u7684\u53c2\u6570\u52a0\u4e0a _Param\uff0c\u5bf9\u5e2e\u52a9\u9605\u8bfb\u548c\u7406\u89e3\u4ee3\u7801\u4e0d\u662f<\/em>\u5f88\u6709\u6548\u3002 \u800c\u52a0\u4e0a\u5982 _Array\uff0c_Record \u548c _Function \u8fd9\u6837\u7684\u540e\u7f00\u5219\u66f4\u7cdf\u3002Ada \u7f16\u8bd1\u5668\u548c\u8bfb\u8005\u90fd\u53ef\u4ee5\u6839\u636e\u4e0a\u4e0b\u6587\u4ece\u5b50\u7a0b\u5e8f\u4e2d\u5206\u8fa8\u4e00\u4e2a\u5f02\u5e38\uff1a\u663e\u7136\u53ea\u6709\u5f02\u5e38\u540d\u53ef\u4ee5\u5728 raise<\/em> \u8bed\u53e5\u6216\u5f02\u5e38\u5904\u7406\u4e2d\u51fa\u73b0\u3002\u8fd9\u4e9b\u540e\u7f00\u5728\u5982\u4e0b\u53d7\u9650\u7684\u6761\u4ef6\u4e0b\u53ef\u7528\uff1a<\/p>\n\n- \u5f53\u5408\u9002\u7684\u8bcd\u7684\u9009\u62e9\u8303\u56f4\u975e\u5e38\u6709\u9650\u65f6\uff0c\u7ed9\u5bf9\u8c61\u9009\u4e00\u4e2a\u6700\u597d\u7684\u540d\u5b57\u5e76\u52a0\u4e0a\u7c7b\u578b\u7684\u540e\u7f00\u3002<\/li>\n
- \u5bf9\u4e8e\u7c7b\u5c5e\u5355\u5143,\u603b\u53ef\u4ee5\u52a0\u4e0a\u5f62\u5982 _Generic \u7684\u540e\u7f00\uff0c\u6240\u4ee5\u5bf9\u4e00\u4e9b\u6216\u8bb8\u591a\u5b9e\u4f8b\u6765\u8bf4\uff0c\u53ef\u4ee5\u4e0d\u6dfb\u52a0\u8be5\u540e\u7f00\u800c\u4f7f\u7528\u4e0e\u5176\u76f8\u540c\u7684\u540d\u5b57\u3002<\/li>\n
- \u5f53\u5b83\u8868\u793a\u4e00\u4e2a\u5e94\u7528\u9886\u57df\u7684\u6982\u5ff5\u65f6\uff0c\u5982 Aircraft_Type\u3002<\/li>\n
- \u5f53\u91cd\u8981\u7684\u8bbe\u8ba1\u51b3\u7b56\u9700\u9ad8\u5ea6\u53ef\u89c1\u65f6\uff1a<\/li>\n<\/ul>\n
\u7c7b\u5c5e\u5f62\u53c2\u7c7b\u578b\u540e\u7f00\u4e3a _Constrained<\/p>\n
\u540e\u7f00\u4e3a _Pointer \u7684\u5b58\u53d6\u7c7b\u578b\u6216\u5176\u5b83\u975e\u76f4\u63a5\u6307\u4ee3\u7684\u5f62\u5f0f\uff1a_Handle \u6216 _Reference<\/p>\n
\u901a\u8fc7 _Or_Wait \u9690\u85cf\u4e86\u53ef\u80fd\u963b\u585e\u7684\u5165\u53e3\u8c03\u7528\u7684\u5b50\u7a0b\u5e8f<\/p>\n
\u5c06\u540d\u5b57\u8868\u8ff0\u51fa\u6765\uff0c\u4f7f\u5f97\u4ece\u4f7f\u7528<\/em>\u7684\u89d2\u5ea6\u770b\uff0c\u5b83\u4eec\u8fd8\u4e0d\u9519\u3002<\/p>\n\u8bd5\u60f3\u4e00\u4e2a\u5bfc\u51fa\u5b9e\u4f53\u53ef\u5728\u5176\u4e2d\u4f7f\u7528\u7684\u4e0a\u4e0b\u6587\uff0c\u5e76\u7ad9\u5728\u90a3\u4e2a\u89d2\u5ea6\u9009\u62e9\u4e00\u4e2a\u540d\u5b57\u3002\u4e00\u4e2a\u5b9e\u4f53\u4ec5\u88ab\u5b9a\u4e49\u4e00\u6b21\uff0c\u4f46\u5374\u88ab\u4f7f\u7528\u8bb8\u591a\u6b21\u3002\u8fd9\u4e00\u70b9\u5bf9\u4e8e\u5b50\u7a0b\u5e8f\u7684\u540d\u5b57\u53ca\u5176\u53c2\u6570\u6765\u8bf4\u5c24\u4e3a\u6b63\u786e\uff1b \u4f7f\u7528\u547d\u540d\u5173\u8054\u5173\u7cfb\u7684\u7ed3\u679c\u8c03\u7528\u5e94\u5c3d\u91cf\u4e0e\u81ea\u7136\u8bed\u8a00\u76f8\u8fd1\u3002\u8bb0\u4f4f\u7f3a\u5c11\u4f7f\u7528<\/em>\u5b50\u53e5\u4f7f\u5f97\u5927\u591a\u6570\u58f0\u660e\u5b9e\u4f53\u5fc5\u987b\u5177\u6709\u53d7\u9650\u540d\u3002\u5bf9\u4e8e\u6709\u53ef\u80fd\u5728\u7c7b\u5c5e\u5355\u5143\u4e2d\u6bd4\u5728\u4eab\u7528\u6a21\u5757\u90a3\u91cc\u4f7f\u7528\u5f97\u8fd8\u591a\u7684\u7c7b\u5c5e\u5f62\u53c2\u6765\u8bf4\uff0c\u5fc5\u987b\u5bfb\u627e\u4e00\u4e2a\u597d\u7684\u534f\u8c03\u529e\u6cd5\uff0c\u4f46\u662f\u7edd\u5bf9\u8981\u4fdd\u8bc1\u5b50\u7a0b\u5e8f\u7684\u5f62\u53c2\u5728\u4eab\u7528\u6a21\u5757\u7aef\u597d\u770b\u3002<\/p>\n\u4f7f\u7528\u82f1\u6587\u5355\u8bcd\u5e76\u62fc\u5199\u6b63\u786e\u3002<\/p>\n
\u8bed\u8a00\u7684\u6df7\u5408\uff08\u5982\u6cd5\u8bed\u548c\u82f1\u8bed\uff09\u5c06\u4f7f\u4ee3\u7801\u96be\u8bfb\uff0c\u6709\u65f6\u4f7f\u6807\u8bc6\u7b26\u7684\u610f\u4e49\u6478\u68f1\u4e24\u53ef\u3002 \u65e2\u7136 Ada \u7684\u5173\u952e\u5b57\u5df2\u662f\u82f1\u6587\u7684\uff0c\u5219\u8981\u6c42\u4f7f\u7528\u82f1\u6587\u5355\u8bcd\u3002\u6700\u597d\u91c7\u7528\u7f8e\u5f0f\u62fc\u6cd5\uff0c\u4ee5\u4fbf\u5229\u7528\u201cRational \u73af\u5883\u201d\u4e2d\u5185\u7f6e\u7684\u62fc\u5199\u68c0\u67e5\u3002<\/p>\n
\u4e0d\u8981\u91cd\u65b0\u5b9a\u4e49 Standard \u7a0b\u5e8f\u5305\u4e2d\u7684\u4efb\u4f55\u5b9e\u4f53\u3002\u8fd9\u662f\u7edd\u5bf9\u7981\u6b62\u7684\u3002<\/p>\n
\u8fd9\u6837\u505a\u5c06\u4ea7\u751f\u6df7\u6dc6\u548c\u4e25\u91cd\u7684\u9519\u8bef\u3002\u8be5\u6cd5\u5219\u53ef\u5ef6\u4f38\u81f3\u5176\u5b83\u9884\u5b9a\u4e49\u7684\u5e93\u5355\u5143\uff1aCalendar\uff0cSystem\u3002\u8fd9\u4e5f\u5305\u62ec Standard<\/em> \u6807\u8bc6\u7b26\u672c\u8eab\u3002<\/p>\n\u907f\u514d\u5bf9\u5176\u5b83\u9884\u5b9a\u4e49\u7a0b\u5e8f\u5305\u4e2d\u7684\u6807\u8bc6\u7b26\u91cd\u5b9a\u4e49\uff0c\u5982 System \u6216 Calendar\u3002<\/p>\n
\u4e0d\u8981\u4f7f\u7528\u5982\u4e0b\u7684\u6807\u8bc6\u7b26\uff1aWide_Character<\/strong> \u548c Wide_String<\/strong>\uff0c\u5b83\u4eec\u5c06\u5728 Ada 95 \u7684 Standard \u7a0b\u5e8f\u5305\u4e2d\u5f15\u5165\u3002\u4e0d\u8981\u5f15\u5165\u4e00\u4e2a\u540d\u4e3a Ada<\/strong> \u7684\u7f16\u8bd1\u5355\u5143\u3002<\/p>\n\u4e0d\u8981\u4f7f\u7528\u4ee5\u4e0b\u5355\u8bcd\u4f5c\u4e3a\u6807\u8bc6\u7b26\uff1aabstract<\/strong>\uff0caliased<\/strong>\uff0cprotected<\/strong>\uff0crequeue<\/strong>\uff0ctagged<\/strong> \u548c until<\/strong>\uff0c\u5b83\u4eec\u5728 Ada 95 \u5c06\u6210\u4e3a\u5173\u952e\u5b57\u3002<\/p>\n\u4e00\u4e9b\u7ed9\u5404\u79cd Ada \u5b9e\u4f53\u7684\u547d\u540d\u5efa\u8bae\u4e5f\u662f\u540c\u6837\u3002\u5047\u5b9a\u4e00\u822c\u60c5\u5f62\u4e0b\uff0c\u201c\u9762\u5411\u5bf9\u8c61\u201d\u98ce\u683c\u7684\u8bbe\u8ba1\u53d7\u6b22\u8fce\u3002\u8be6\u60c5\u8bf7\u53c2\u89c1\u9644\u5f55 A\u3002<\/p>\n
<\/a>\u7a0b\u5e8f\u5305<\/h2>\n\u5f53\u4e00\u4e2a\u7a0b\u5e8f\u5305\u5f15\u5165\u4e86\u67d0\u4e2a\u5bf9\u8c61\u7c7b\u65f6\uff0c\u7528\u8be5\u5bf9\u8c61\u7c7b\u7684\u540d\u5b57\u547d\u540d\u7a0b\u5e8f\u5305\uff0c\u901a\u5e38\u662f\u4e00\u4e2a\u5355\u6570\u5f62\u5f0f\u7684\u540d\u8bcd\uff0c\u82e5\u9700\u8981\uff08\u5373\u5b9a\u4e49\u4e86\u4e00\u4e2a\u5e26\u53c2\u6570\u7684\u7c7b\uff09\uff0c\u53ef\u52a0\u4e0a\u540e\u7f00 _Generic\u3002\u4ec5\u5f53\u5bf9\u8c61\u603b\u4ee5\u7fa4\u4f53\u5f62\u5f0f\u51fa\u73b0\u65f6\uff0c\u624d\u91c7\u7528\u590d\u6570\u5f62\u5f0f\u3002\u4f8b\u5982\uff1a<\/p>\n
package Text is\r\npackage Line is\r\npackage Mailbox is\r\npackage Message is\r\npackage Attributes is\r\npackage Subscriber is\r\npackage List_Generic is<\/pre>\n\u82e5\u4e00\u4e2a\u7a0b\u5e8f\u5305\u8bf4\u660e\u4e86\u4e00\u4e2a\u63a5\u53e3\u6216\u8005\u529f\u80fd\u5206\u7ec4\uff0c\u5e76\u4e14\u5b83\u4e0d\u4e0e\u4efb\u4f55\u5bf9\u8c61\u76f8\u5173\uff0c\u5219\u5e94\u5728\u5b83\u7684\u540d\u5b57\u4e2d\u5c06\u8fd9\u4e00\u70b9\u8868\u8ff0\u51fa\u6765\uff1a<\/p>\n
package Low_Layer_Interface is\r\npackage Math_Definitions is<\/pre>\n\u5f53\u4e00\u4e2a\u201c\u903b\u8f91\u201d\u5305\u7528\u5e73\u9762\u5206\u89e3 (flat decomposition)\uff0c\u9700\u8981\u4f5c\u4e3a\u51e0\u4e2a\u5305\u6765\u8868\u8fbe\u65f6\uff0c\u91c7\u7528\u9879\u76ee\u7ea7\u4e00\u81f4\u7684\u5217\u8868\u4e2d\u7684\u540e\u7f00\u3002\u4f8b\u5982\uff0c\u4e00\u4e2a\u903b\u8f91\u7a0b\u5e8f\u5305 Mailbox \u53ef\u5982\u4e0b\u5b9e\u73b0\uff1a<\/p>\n
package Mailbox_Definitions is\r\npackage Mailbox_Exceptions is\r\npackage Mailbox_Io is\r\npackage Mailbox_Utilities is\r\npackage Mailbox_Implementation is\r\npackage Mailbox_Main is<\/pre>\n\u5176\u5b83\u53ef\u63a5\u53d7\u7684\u540e\u7f00\u6709\uff1a<\/p>\n
_Test_Support \r\n_Test_Main \r\n_Log \r\n_Hidden_Definitions \r\n_Maintenance \r\n_Debug<\/pre>\n<\/a>\u7c7b\u578b<\/h2>\n\u5f53\u5728\u7a0b\u5e8f\u5305\u4e2d\u5b9a\u4e49\u4e00\u4e2a\u5bf9\u8c61\u7c7b\u8574\u6db5\u62f7\u8d1d\u8bed\u4e49\u65f6 – \u5373\u5f53\u7c7b\u578b\u53ef\u5b9e\u4f8b\u5316\u5e76\u4e14\u67d0\u79cd\u5f62\u5f0f\u7684\u4efb\u52a1\u5206\u914d\u53ef\u884c\u65f6\uff0c\u91c7\u7528\uff1a<\/p>\n
type Object is ...<\/pre>\n\u6ce8\u610f\u7c7b\u540d\u4e0d\u5e94\u5728\u6807\u8bc6\u7b26\u4e2d\u91cd\u590d\uff0c\u56e0\u4e3a\u5b83\u603b\u662f\u4ee5\u5b8c\u5168\u53d7\u9650\u7684\u5f62\u5f0f\u4f7f\u7528\uff1a<\/p>\n
Mailbox.Object\r\nLine.Object<\/pre>\n\u5f53\u5305\u542b\u5171\u4eab\u8bed\u4e49\u65f6 – \u5373\u7c7b\u578b\u7528\u5b58\u53d6\u503c\uff08\u6216\u8005\u5176\u5b83\u975e\u76f4\u63a5\u7684\u5f62\u5f0f\uff09\u5b9e\u73b0\uff0c\u5e76\u4e14\u8d4b\u503c\u8bed\u53e5\uff08\u82e5\u5b58\u5728\uff09\u4e0d\u590d\u5236\u5bf9\u8c61 – \u7528\u5982\u4e0b\u65b9\u5f0f\u8bf4\u660e\uff1a<\/p>\n
UL><\/p>\n
\ntype Handle is <\/code>\u7528\u4e8e\u975e\u76f4\u63a5\u5f15\u7528<\/li>\ntype Reference is <\/code>\u662f\u4e00\u4e2a\u53ef\u884c\u7684\u5907\u7528\u65b9\u6848<\/li>\n<\/ul>\n\u8fd9\u4e9b\u5143\u7d20\u5728\u5355\u72ec\u4f7f\u7528\u65f6\u4f5c\u540e\u7f00\uff0c\u524d\u9762\u52a0\u4e0a\u5305\u540d\uff0c\u8fd9\u6837\u5e76\u4e0d\u6e05\u695a\u6216\u975e\u5e38\u6478\u68f1\u4e24\u53ef\u3002<\/p>\n
\u5f53\u8574\u6db5\u591a\u4e2a\u5bf9\u8c61\u65f6\uff0c\u91c7\u7528\uff1a<\/p>\n
\ntype Set is <\/code>\u5f53\u6697\u542b\u5143\u7d20\u7684\u7279\u6b8a\u6027\u65f6<\/li>\ntype List is <\/code>\u5f53\u5305\u542b\u67d0\u79cd\u6b21\u5e8f\u65f6<\/li>\ntype Collection is<\/code> \u5f53\u65e2\u4e0d\u542b\u96c6\u5408\u4e5f\u4e0d\u542b\u5217\u8868\u8bed\u4e49\u65f6<\/li>\ntype Iterator is<\/code> \u5f53\u63d0\u4f9b\u4e86 Initialize\uff0cValue_Of\uff0cNext\uff0cIs_Done \u7b49\u539f\u8bed\u65f6
\n\uff08\u53c2\u89c1 6.5 \u8282\uff09<\/li>\n<\/ul>\n\u5bf9\u4e8e\u67d0\u4e2a\u5bf9\u8c61\u4e32\u7684\u6307\u5b9a\uff0c\u91c7\u7528\uff1a<\/p>\n
type Name is<\/code><\/p>\n\u4e3a\u4e86\u8fbe\u5230\u66f4\u597d\u7684\u6613\u8bfb\u6027\uff0c\u7c7b\u578b\u7684\u53d7\u9650\u540d\u4e5f\u5e94\u5728\u6574\u4e2a\u5b9a\u4e49\u5305\u5185\u4f7f\u7528\u3002\u201cRational \u73af\u5883\u201d\u4e2d\uff0c\u5f53\u5728\u5b50\u7a0b\u5e8f\u8c03\u7528\u4e2d\u91c7\u7528 [Complete] \u51fd\u6570\u65f6\uff0c\u4e0a\u8ff0\u65b9\u6cd5\u4e5f\u53ef\u4f7f\u8fd0\u884c\u66f4\u52a0\u597d\u3002<\/p>\n
\u4f8b\u5982\uff0c\u6ce8\u610f\u4e0b\u9762\u7684\u5b8c\u5168\u540d Subscriber.Object\uff1a<\/p>\n
package Subscriber is\r\ntype Object is private;\r\ntype Handle is access Subscriber.Object;\r\nsubtype Name is String;\r\npackage List is new List_Generic (Subscriber.Handle);\r\nMaster_List : Subscriber.List.Handle;\r\nprocedure Create (The_Handle : out Subscriber.Handle;\r\nWith_Name : in Subscriber.Name);\r\nprocedure Append (The_Subscriber : in Subscriber.Handle;\r\nTo_List : in out Subscriber.List.Handle);\r\nfunction Name_Of (The_Subscriber : Subscriber.Handle) return\r\nSubscriber.Name;\r\n ...\r\nprivate\r\ntype Object is\r\nrecord\r\nThe_Name : Subscriber.Name (1..20);\r\n ...\r\nend Subscriber;<\/pre>\n\u5728\u5176\u5b83\u60c5\u51b5\u4e0b\uff0c\u7c7b\u540d\u91c7\u7528\u540d\u8bcd\u6216\u8005\u4fee\u9970\u7b26 + \u540d\u8bcd\u3002\u7c7b\u578b\u53ef\u7528\u590d\u6570\u5f62\u5f0f\uff0c\u5bf9\u8c61\uff08\u53d8\u91cf\uff09\u540d\u91c7\u7528\u5355\u6570\uff1a<\/p>\n
type Point is record ...\r\ntype Hidden_Attributes is ( ...\r\ntype Boxes is array ...<\/pre>\n\u5bf9\u4e8e\u679a\u4e3e\u7c7b\u578b\uff0c\u5355\u72ec\u6216\u8005\u4f5c\u4e3a\u540e\u7f00\u4f7f\u7528 Mode\uff0cKind\uff0cCode \u7b49\u5355\u8bcd\u3002<\/p>\n
\u5bf9\u4e8e\u6570\u7ec4\u7c7b\u578b\uff0c\u5f53\u5df2\u5c06\u7b80\u5355\u540d\u7528\u4e8e\u7ec4\u4ef6\u7c7b\u578b\u65f6\uff0c\u53ef\u4ee5\u91c7\u7528\u540e\u7f00 _Table\u3002\u4ec5\u5f53\u6570\u7ec4\u7528\u8574\u6db5\u8bed\u4e49\u6765\u7ef4\u62a4\u65f6\uff0c\u624d\u91c7\u7528\u8c61 _Set \u548c _List \u8fd9\u6837\u7684\u540d\u5b57\u6216\u540e\u7f00\u3002Reserve _Vector \u548c _Matrix \u5e94\u7559\u4f5c\u76f8\u5e94\u7684\u6570\u5b66\u6982\u5ff5\u4f7f\u7528\u3002<\/p>\n
\u56e0\u4e3a\u8981\u907f\u514d\u5355\u6570\u7684\u4efb\u52a1\u5bf9\u8c61\uff08\u539f\u56e0\u5728\u540e\u6587\u89e3\u91ca\uff09\uff0c\u6240\u4ee5\u5373\u4f7f\u53ea\u6709\u4e00\u4e2a\u8be5\u7c7b\u578b\u7684\u5bf9\u8c61\u65f6\uff0c\u4e5f\u5e94\u5f15\u5165\u4efb\u52a1\u7c7b\u578b\u3002\u4e0b\u9762\u662f\u4f7f\u7528\u4e86\u4e00\u4e2a\u8c61 _Type \u8fd9\u6837\u7684\u7b80\u5355\u540e\u7f00\u4e4b\u540e\u4fbf\u4ee4\u4eba\u6ee1\u610f\u7684\u4f8b\u5b50\uff1a<\/p>\n
task type Listener_Type is ...\r\nfor Listener_Type'Storage_Size use ...\r\nListener : Listener_Type;<\/pre>\n\u7c7b\u4f3c\u5730\uff0c\u5f53\u7c7b\u578b\u540d\u91c7\u7528\u540d\u8bcd\uff08\u6216\u8005\u540d\u8bcd\u77ed\u8bed\uff09\u5b58\u5728\u51b2\u7a81\u65f6\uff0c\u6216\u8005\u51e0\u5904\u7684\u5bf9\u8c61\u540d\u6216\u53c2\u6570\u540d\u6709\u51b2\u7a81\u65f6\uff0c\u5728\u8be5\u7c7b\u578b\u540d\u540e\u52a0\u4e0a\u540e\u7f00 _Kind\uff0c\u800c\u8ba9\u5bf9\u8c61\u4f7f\u7528\uff08\u65e0\u540e\u7f00\u7684\uff09\u7b80\u5355\u540d\u8bcd\uff1a<\/p>\n
type Status_Kind is (None, Normal, Urgent, Red);\r\nStatus : Status_Kind := None;<\/pre>\n\u6216\u8005\uff0c\u5bf9\u4e8e\u603b\u4ee5\u590d\u6570\u51fa\u73b0\u7684\u4e8b\u7269\u7684\u7c7b\u578b\uff0c\u91c7\u7528\u590d\u6570\u5f62\u5f0f\u3002<\/p>\n
\u56e0\u4e3a\u5b58\u53d6\u7c7b\u578b\u5b58\u5728\u56fa\u6709\u7684\u5371\u5bb3\uff0c\u6240\u4ee5\u4f7f\u7528\u8005\u5e94\u5c0f\u5fc3\u3002\u4e00\u822c\u5b83\u4eec\u53eb\u505a Pointer\u3002\u5982\u679c\u540d\u5b57\u672c\u8eab\u610f\u4e49\u8fd8\u5f88\u6478\u68f1\u4e24\u53ef\uff0c\u5219\u5e94\u52a0\u4e0a\u540e\u7f00 _pointer\u3002\u4f5c\u4e3a\u540e\u5907\u65b9\u6848\uff0c\u4e5f\u53ef\u91c7\u7528 _Access \u505a\u540e\u7f00\u3002<\/p>\n
\u6709\u65f6\u91c7\u7528\u5d4c\u5957\u5b50\u7a0b\u5e8f\u5305\u6765\u5f15\u5165\u6b21\u7ea7\u62bd\u8c61\u53ef\u4ee5\u7b80\u5316\u547d\u540d\uff1a<\/p>\n
package Subscriber is ...\r\npackage Status is\r\ntype Kind is (Ok, Deleted, Incomplete, Suspended, \r\nPrivileged);\r\nfunction Set (The_Status : Subscriber.Status.Kind;\r\nTo_Subscriber : Subscriber.Handle);\r\nend Status;\r\n ...<\/pre>\n<\/a>\u5f02\u5e38<\/h2>\n\u56e0\u4e3a\u5f02\u5e38\u53ea\u80fd\u7528\u6765\u5904\u7406\u9519\u8bef\uff0c\u6240\u4ee5\u5e94\u4f7f\u7528\u540d\u8bcd\u6216\u540d\u8bcd\u77ed\u8bed\u6765\u6e05\u695a\u8868\u8fbe\u4e00\u4e2a\u8d1f\u9762\u7684\u610f\u4e49\uff1a<\/p>\n
Overflow, Threshold_Exceeded, Bad_Initial_Value<\/pre>\n\u5f53\u5728\u4e00\u4e2a\u7c7b\u7a0b\u5e8f\u5305\u4e2d\u5b9a\u4e49\u5f02\u5e38\u65f6\uff0c\u6807\u8bc6\u7b26\u65e0\u9700\u5305\u542b\u7c7b\u540d – \u4f8b\u5982 Bad_Initial_Subscriber_Value – \u56e0\u4e3a\u5f02\u5e38\u4e00\u76f4\u88ab\u7528\u4f5c Subscriber.Bad_Initial_Value\u3002<\/p>\n
\u91c7\u7528 Bad\uff0cIncomplete\uff0cInvalid\uff0cWrong\uff0cMissing \u6216\u8005 Illegal \u4e2d\u7684\u4e00\u4e2a\u5355\u8bcd\u4f5c\u4e3a\u540d\u5b57\u7684\u4e00\u90e8\u5206\uff0c\u800c\u4e0d\u662f\u7cfb\u7edf\u5730\u91c7\u7528\u4e0d\u4f20\u8fbe\u4efb\u4f55\u8be6\u7ec6\u4fe1\u606f\u7684 Error\uff1a<\/p>\n
Illegal_Data, Incomplete_Data<\/pre>\n<\/a>\u5b50\u7a0b\u5e8f<\/h2>\n\u8fc7\u7a0b\uff08\u548c\u4efb\u52a1\u5165\u53e3\uff09\u91c7\u7528\u52a8\u8bcd\u3002\u51fd\u6570\u540d\u91c7\u7528\u5e26\u6709\u5bf9\u8c61\u7c7b\u5c5e\u6027\u6216\u7279\u5f81\u7684\u540d\u8bcd\u3002\u8fd4\u56de\u5e03\u5c14\u503c\uff08\u8c13\u8bcd\uff09\u7684\u51fd\u6570\u4f7f\u7528\u5f62\u5bb9\u8bcd\uff08\u6216\u8fc7\u53bb\u5206\u8bcd\uff09\u3002<\/p>\n
Subscriber.Create\r\nSubscriber.Destroy\r\nSubscriber.List.Append\r\nSubscriber.First_Name -- Returns a string.\r\nSubscriber.Creation_Date -- Returns a date.\r\nSubscriber.List.Next\r\nSubscriber.Deleted -- Returns a Boolean.\r\nSubscriber.Unavailable -- Returns a Boolean.\r\nSubscriber.Remote<\/pre>\n\u5bf9\u4e8e\u8c13\u8bcd\uff0c\u5728\u4e00\u4e9b\u60c5\u51b5\u4e0b\u7ed9\u540d\u8bcd\u524d\u9762\u52a0\u4e0a\u524d\u7f00 Is_ \u6216 Has_ \u6216\u8bb8\u6709\u5e2e\u52a9\uff1b\u65f6\u6001\u8981\u51c6\u786e\u548c\u4e00\u81f4\uff1a<\/p>\n
function Has_First_Name ...\r\nfunction Is_Administrator ...\r\nfunction Is_First...\r\nfunction Was_Deleted ...<\/pre>\n\u5f53\u7b80\u5355\u540d\u79f0\u5df2\u4f5c\u4e3a\u7c7b\u578b\u540d\u6216\u679a\u4e3e\u578b\u76f4\u63a5\u91cf\u65f6\uff0c\u4e0a\u8ff0\u65b9\u6cd5\u6709\u7528\u3002<\/p>\n
\u8c13\u8bcd\u5e94\u4f7f\u7528\u80af\u5b9a\u5f0f\uff0c\u4e5f\u5c31\u662f\u8bf4\uff0c\u5176\u4e2d\u4e0d\u5e94\u542b\u6709\u201cNot_\u201d\u4e00\u8bcd\u3002<\/p>\n
\u5bf9\u4e8e\u666e\u901a\u64cd\u4f5c\uff0c\u7edf\u4e00\u4ece\u9879\u76ee\u53ef\u9009\u5217\u8868\uff08\u5217\u8868\u968f\u7740\u6211\u4eec\u5bf9\u7cfb\u7edf\u8ba4\u8bc6\u7684\u52a0\u6df1\u800c\u6269\u5c55\uff09\u4e2d\u9009\u62e9\u52a8\u8bcd\uff1a<\/p>\n
Create\r\nDelete\r\nDestroy\r\nInitialize\r\nAppend\r\nRevert\r\nCommit\r\nShow, Display<\/pre>\n\u8c13\u8bcd\u51fd\u6570\u548c\u5e03\u5c14\u578b\u7684\u53c2\u6570\u91c7\u7528\u80af\u5b9a\u5f0f\u3002\u5426\u5b9a\u5f0f\u7684\u540d\u5b57\u53ef\u80fd\u4ea7\u751f\u53cc\u91cd\u5426\u5b9a\uff08\u4f8b\u5982 Not Is_Not_Found\uff09\uff0c\u4ece\u800c\u4f7f\u4ee3\u7801\u96be\u8bfb\u3002<\/p>\n
function Is_Not_Valid (...) return Boolean\r\nprocedure Find_Client (With_The_Name : in Name;\r\nNot_Found : out Boolean)<\/pre>\n\u5e94\u5b9a\u4e49\u6210\uff1a<\/p>\n
function Is_Valid (...) return Boolean;\r\nprocedure Find_Client (With_The_Name: in Name;\r\nFound: out Boolean)<\/pre>\n\u8fd9\u624d\u8ba9\u4eab\u7528\u6a21\u5757\u6309\u5176\u6240\u9700\u7684\u90a3\u6837\u5b9e\u73b0\u4e86\u8868\u8fbe\u5f0f\u7684\u5426\u5b9a\uff08\u8fd9\u6837\u505a\u4e0d\u4f1a\u5bfc\u81f4\u8fd0\u884c\u65f6\u95f4\u5ef6\u957f\uff09\uff1a<\/p>\n
if not Is_Valid (...) then ....<\/pre>\n\u6709\u4e9b\u60c5\u51b5\u4e0b\uff0c\u901a\u8fc7\u4f7f\u7528\u53cd\u4e49\u8bcd\uff0c\u5982\u7528\u201cIs_Invalid\u201d\u6765\u4ee3\u66ff\u201cIs_Not_Valid\u201d\uff0c\u53ef\u4ee5\u4f7f\u5426\u5b9a\u8c13\u8bcd\u5728\u4e0d\u6539\u53d8\u8bed\u4e49\u7684\u60c5\u51b5\u4e0a\u53d8\u6210\u80af\u5b9a\u5f0f\u3002\u4f46\u662f\uff0c\u80af\u5b9a\u5f0f\u7684\u540d\u5b57\u66f4\u6613\u8bfb\uff1a \u201cIs_Valid\u201d\u6bd4\u201cnot Is_Invalid\u201d\u66f4\u6613\u7406\u89e3\u3002<\/p>\n
\u5f53\u8574\u6db5\u7740\u5927\u81f4\u76f8\u540c\u7684\u610f\u4e49\u65f6\uff0c\u91c7\u7528\u76f8\u540c\u7684\u5355\u8bcd\uff0c\u800c\u4e0d\u662f\u5bfb\u627e\u540c\u4e49\u8bcd\u6216\u53d8\u4f53\u3002\u56e0\u6b64\uff0c\u9f13\u52b1\u4f7f\u7528\u91cd\u8f7d\u6765\u63d0\u9ad8\u4ee3\u7801\u7684\u4e00\u81f4\u6027\uff0c\u9075\u5faa\u6700\u5c0f\u9650\u5ea6\u610f\u5916\u539f\u5219\u3002<\/p>\n
\u82e5\u5b50\u7a0b\u5e8f\u88ab\u7528\u505a\u5165\u53e3\u8c03\u7528\u7684\u201c\u5916\u8868\u201d (skins) \u6216\u8005\u201c\u5305\u88c5\u201d (wrappers)\uff0c\u5219\u7ed9\u5176\u540d\u5b57\u52a8\u8bcd\u52a0\u4e0a\u540e\u7f00 _Or_Wait\uff0c\u6216\u8005\u7ed9\u51fd\u6570\u53d6\u4e2a Wait_For_ \u77ed\u8bed\u52a0\u540d\u8bcd\u7684\u540d\u5b57\u6765\u53cd\u6620\u8fd9\u4e00\u70b9\uff0c\u8fd9\u6837\u53ef\u80fd\u6709\u7528\uff1a<\/p>\n
Subscriber.Get_Reply_Or_Wait\r\nSubscriber.Wait_For_Reply<\/pre>\n\u4e00\u4e9b\u64cd\u4f5c\u5e94\u4e00\u76f4\u4f7f\u7528\u76f8\u540c\u7684\u540d\u5b57\u6765\u7edf\u4e00\u5b9a\u4e49\uff1a<\/p>\n
\u5bf9\u4e8e\u8f6c\u6362\u5230\u5b57\u4e32\u548c\u4ece\u5b57\u4e32\u8f6c\u6362\u6765\u7684\u7c7b\u578b\u53d8\u6362\uff0c\u5bf9\u79f0\u51fd\u6570\u662f\uff1a<\/p>\n
function Image and function Value<\/pre>\n\u5bf9\u4e8e\u8f6c\u6362\u5230\u4f4e\u7ea7\u8868\u793a\u6cd5\uff08\u5982\u7528\u4e8e\u6570\u636e\u4ea4\u6362\u7684 Byte_String\uff09\u548c\u4ece\u4f4e\u7ea7\u8868\u793a\u6cd5\u8f6c\u6362\u8fc7\u6765\u7684\u7c7b\u578b\u53d8\u6362\uff0c\u5bf9\u79f0\u8fc7\u7a0b\u662f\uff1a<\/p>\n
procedure Read and Write<\/pre>\n\u5bf9\u4e8e\u5206\u914d\u6570\u636e\uff1a<\/p>\n
function Allocate (rather than Create)\r\nfunction Destroy (or Release, to express that the object will disappear)<\/pre>\n\u5f53\u7cfb\u7edf\u5730\u5904\u7406\u5b83\u4eec\u65f6\u91c7\u7528\u7edf\u4e00\u7684\u547d\u540d\uff0c\u7c7b\u578b\u5408\u6210\u5c06\u5bb9\u6613\u8bb8\u591a\u3002<\/p>\n
\u5bf9\u4e8e\u6d3b\u52a8\u7684\u8fed\u4ee3\u7a0b\u5e8f\uff0c\u5fc5\u987b\u5b9a\u4e49\u4ee5\u4e0b\u539f\u8bed\uff1a<\/p>\n
Initialize\r\nNext\r\nIs_Done\r\nValue_Of<\/pre>\n\u82e5\u53ef\u884c\uff0c\u8fd8\u8981\u5b9a\u4e49 Reset<\/code>\u3002\u82e5\u8981\u5728\u76f8\u540c\u7684\u4f5c\u7528\u57df\u8303\u56f4\u5185\u5f15\u5165\u51e0\u4e2a\u8fed\u4ee3\u7c7b\u578b\uff0c\u90a3\u4e48\u5e94\u91cd\u8f7d\u8fd9\u4e9b\u539f\u8bed\uff0c\u800c\u4e0d\u662f\u4e3a\u6bcf\u4e2a\u8fed\u4ee3\u7a0b\u5e8f\u5206\u522b\u5f15\u5165\u4e00\u5957\u5404\u4e0d\u76f8\u540c\u7684\u6807\u8bc6\u7b26\u3002\u53c2\u89c1 [BOO87]<\/a>\u3002<\/p>\n\u5f53\u91c7\u7528 Ada \u9884\u786e\u5b9a\u5c5e\u6027\u4f5c\u4e3a\u51fd\u6570\u540d\u65f6\uff0c\u8981\u4fdd\u8bc1\u5176\u7528\u6cd5\u4e0e\u4e00\u822c\u7684\u8bed\u4e49\u76f8\u540c\uff1a’First\uff0c’Last\uff0c’Length\uff0c’Image\uff0c’Value\uff0c\u7b49\u7b49\u3002 \u6ce8\u610f\uff0c\u51e0\u4e2a\u5c5e\u6027\uff08\u5982 ‘Range \u548c ‘Delta\uff09\u662f\u4e0d\u80fd\u7528\u505a\u51fd\u6570\u540d\u7684\uff0c\u56e0\u4e3a\u5b83\u4eec\u662f\u4fdd\u7559\u5b57\u3002<\/p>\n
<\/a>\u5bf9\u8c61\u548c\u5b50\u7a0b\u5e8f\uff08\u6216\u5165\u53e3\uff09\u53c2\u6570<\/h2>\n\u4e3a\u8868\u660e\u5176\u552f\u4e00\u6027\u6216\u662f\u8868\u660e\u8be5\u5b9e\u4f53\u662f\u6d3b\u52a8\u7684\u4e3b\u8981\u805a\u96c6\u5904\uff0c\u5728\u5bf9\u8c61\u6216\u53c2\u6570\u540d\u79f0\u524d\u52a0\u524d\u7f00\u201cThe\u201d\u6216\u201cThis\u201d\u3002\u8981\u8bf4\u660e\u4e00\u4e2a\u6b21\u8981\u3001\u4e34\u65f6\u3001\u8f85\u52a9\u7684\u5bf9\u8c61\uff0c\u5219\u52a0\u524d\u7f00\u201cA_\u201d\u6216\u201cCurrent_\u201d\uff1a<\/p>\n
procedure Change_Name (The_Subscriber : in Subscriber.Handle;\r\nThe_Name : in Subscriber.Name );\r\ndeclare\r\nA_Subscriber : Subscriber.Handle := Subscriber.First;\r\nbegin\r\n ...\r\nA_Subscriber := Subscriber.Next (The_Subscriber);\r\nend;<\/pre>\n\u5bf9\u4e8e\u5e03\u5c14\u578b\u7684\u5bf9\u8c61\uff0c\u91c7\u7528\u80af\u5b9a\u5f0f\u7684\u8c13\u8bcd\u5b50\u53e5\uff1a<\/p>\n
Found_It\r\nIs_Available<\/pre>\n\u4f46\u662f\uff1a<\/p>\n
Is_Not_Available<\/code> \u5fc5\u987b\u907f\u514d\u3002<\/p>\n\u5bf9\u4e8e\u4efb\u52a1\u5bf9\u8c61\uff0c\u5e94\u91c7\u7528\u4e00\u4e2a\u8574\u6db5\u4e86\u6d3b\u52a8\u5b9e\u4f53\u7684\u540d\u8bcd\u6216\u8005\u540d\u8bcd\u77ed\u8bed\uff1a<\/p>\n
Listener\r\nResource_Manager\r\nTerminal_Driver<\/pre>\n
\n\u4fdd\u7559\u6240\u6709\u6743\u5229\u3002<\/p>\n
\u5173\u4e8e\u672c\u6587\u6863<\/a><\/h3>\n\u7b80\u4ecb<\/a><\/h3>\n\u57fa\u672c\u539f\u5219<\/a>
\n\u5047\u8bbe<\/a>
\n\u6307\u5357\u5206\u7c7b<\/a>
\n\u6700\u6839\u672c\u7684\u539f\u5219<\/a><\/h4>\n\u4ee3\u7801\u5e03\u5c40<\/a><\/h3>\n\u6982\u8ff0<\/a>
\n\u5b57\u6bcd\u5927\u5c0f\u5199<\/a>
\n\u7f29\u8fdb<\/a>
\n\u884c\u7684\u957f\u5ea6\u4e0e\u884c\u7684\u5206\u9694<\/a>
\n\u5bf9\u9f50<\/a><\/h4>\n\u6ce8\u91ca<\/a><\/h3>\n\u6982\u8ff0<\/a>
\n\u6ce8\u91ca\u7528\u6cd5\u6307\u5357<\/a><\/h4>\n\u547d\u540d\u7ea6\u5b9a<\/a><\/h3>\n\u6982\u8ff0<\/a>
\n\u7a0b\u5e8f\u5305<\/a>
\n\u7c7b\u578b<\/a>
\n\u5f02\u5e38<\/a>
\n\u5b50\u7a0b\u5e8f<\/a>
\n\u5bf9\u8c61\u548c\u5b50\u7a0b\u5e8f\uff08\u6216\u5165\u53e3\uff09\u53c2\u6570<\/a>
\n\u7c7b\u5c5e\u5355\u5143<\/a>
\n\u5b50\u7cfb\u7edf\u7684\u547d\u540d\u7b56\u7565<\/a><\/h4>\n\u7c7b\u578b\u3001\u5bf9\u8c61\u548c\u7a0b\u5e8f\u5355\u5143\u7684\u58f0\u660e<\/a><\/h3>\n\u679a\u4e3e\u7c7b\u578b<\/a>
\n\u6570\u503c\u7c7b\u578b<\/a>
\n\u5b9e\u578b<\/a>
\n\u8bb0\u5f55\u7c7b\u578b<\/a>
\n\u5b58\u53d6\u7c7b\u578b<\/a>
\n\u79c1\u6709\u7c7b\u578b<\/a>
\n\u6d3e\u751f\u7c7b\u578b<\/a>
\n\u5bf9\u8c61\u58f0\u660e<\/a>
\n\u5b50\u7a0b\u5e8f\u548c\u7c7b\u5c5e\u5355\u5143<\/a><\/h4>\n\u8868\u8fbe\u5f0f\u548c\u8bed\u53e5<\/a><\/h3>\n\u8868\u8fbe\u5f0f<\/a>
\n\u8bed\u53e5<\/a>
\n\u7f16\u7801\u63d0\u793a<\/a><\/h4>\n\u53ef\u89c1\u6027\u95ee\u9898<\/a><\/h3>\n\u91cd\u8f7d\u548c\u540c\u5f62\u5f02\u4e49\u5b57<\/a>
\n\u4e0a\u4e0b\u6587\u5b50\u53e5<\/a>
\n\u91cd\u547d\u540d<\/a>
\n\u5173\u4e8e Use \u5b50\u53e5\u7684\u8bf4\u660e<\/a><\/h4>\n\u7a0b\u5e8f\u7ed3\u6784\u548c\u7f16\u8bd1\u95ee\u9898<\/a><\/h3>\n\u7a0b\u5e8f\u5305\u7684\u5206\u89e3<\/a>
\n\u58f0\u660e\u90e8\u5206\u7684\u7ed3\u6784<\/a>
\n\u4e0a\u4e0b\u6587\u5b50\u53e5<\/a>
\n\u786e\u7acb\u987a\u5e8f<\/a><\/h4>\n\u5e76\u884c<\/a><\/h3>\n\u9519\u8bef\u5904\u7406\u4e0e\u5f02\u5e38<\/a><\/h3>\n\u4f4e\u7ea7\u7f16\u7a0b<\/a><\/h3>\n\u8868\u793a\u5b50\u53e5\u548c\u5c5e\u6027<\/a>
\n\u65e0\u68c0\u67e5\u8f6c\u6362<\/a><\/h4>\n\u603b\u7ed3<\/a><\/h3>\n\u53c2\u8003\u6587\u732e<\/a><\/h3>\n\u8bcd\u6c47\u8868<\/a><\/h3>\n
\n<\/a>\u7b2c\u4e00\u7ae0<\/em><\/h2>\n\u5173\u4e8e\u672c\u6587\u6863<\/h1>\n
\u672c\u6587\u6863 Rational Unified Process – Ada \u7f16\u7a0b\u6307\u5357<\/em>\u662f\u4e00\u4e2a\u6807\u51c6\u7684\u6a21\u677f\uff0c\u4f60\u7684\u5f00\u53d1\u7ec4\u7ec7\u53ef\u4f9d\u6b64\u6d3e\u751f\u51fa\u4e00\u5957\u7a0b\u5e8f\u8bbe\u8ba1\u6807\u51c6\u3002\u8be5\u6307\u5357\u8be6\u7ec6\u8bf4\u660e\u4e86\u5e94\u5982\u4f55\u7f16\u5199 Ada \u7a0b\u5e8f\u3002\u672c\u6587\u670d\u52a1\u7684\u5bf9\u8c61\u662f\u6240\u6709\u5c06 Ada \u4f5c\u4e3a\u5b9e\u65bd\u8bed\u8a00\u6216\u8005\u4e00\u79cd\u8bf4\u660e\u63a5\u53e3\u6216\u6570\u636e\u7ed3\u6784\u7684\u8bbe\u8ba1\u8bed\u8a00\u7684\u5e94\u7528\u8f6f\u4ef6\u8bbe\u8ba1\u8005\u548c\u5f00\u53d1\u8005\u3002<\/p>\n\u6587\u4e2d\u6240\u63cf\u8ff0\u7684\u89c4\u5219\u56ca\u62ec\u4e86\u7a0b\u5e8f\u8bbe\u8ba1\u7684\u5927\u90e8\u5206\u65b9\u9762\u3002\u901a\u7528\u89c4\u5219\u9002\u7528\u4e8e\u7a0b\u5e8f\u5e03\u5c40\u3001\u547d\u540d\u7ea6\u5b9a\u548c\u6ce8\u91ca\u5e94\u7528\u3002\u7279\u6b8a\u89c4\u5219\u9002\u7528\u4e8e\u9009\u5b9a\u7684 Ada \u7279\u6027\uff0c\u5e76\u8bf4\u660e\u4e86\u7981\u7528\u6784\u9020\u3001\u63a8\u8350\u4f7f\u7528\u6a21\u5f0f\u548c\u7528\u4ee5\u63d0\u9ad8\u7a0b\u5e8f\u8d28\u91cf\u7684\u901a\u7528\u6280\u5de7\u3002<\/p>\n
\u9879\u76ee\u7684\u8bbe\u8ba1<\/em>\u6307\u5357\u548c\u5f53\u524d\u7684\u7f16\u7a0b<\/em>\u6307\u5357\u6709\u4e00\u5b9a\u7684\u91cd\u590d\uff0c\u662f\u6709\u610f\u8fd9\u6837\u505a\u7684\u3002\u4ecb\u7ecd\u7684\u8bb8\u591a\u7a0b\u5e8f\u8bbe\u8ba1\u89c4\u5219\uff0c\u5c24\u5176\u662f\u5728\u547d\u540d\u7ea6\u5b9a<\/em>\u4e2d\u7684\u89c4\u5219\uff0c\u7528\u4e8e\u79ef\u6781\u652f\u6301\u548c\u52a0\u5f3a\u8f6f\u4ef6\u8bbe\u8ba1\u4e2d\u7684\u9762\u5411\u5bf9\u8c61<\/em>\u65b9\u5f0f\u3002<\/p>\n\u6307\u5357\u6700\u521d\u7528\u4e8e Ada 83\u3002\u5b83\u542b\u6709\u4e0e Ada 95 \u517c\u5bb9\u7684\u89c4\u5219\uff0c\u4f46\u4e0d\u542b\u6709\u6539\u7248\u540e\u8bed\u8a00\u6807\u51c6\u65b0\u7279\u6027\u7684\u4f7f\u7528\u6307\u5357\uff0c\u4f8b\u5982\u6807\u8bc6\u7c7b\u578b\u3001\u5b50\u5355\u5143\u6216\u5c0f\u6570\u7c7b\u578b\u3002<\/p>\n
\u6587\u6863\u5927\u81f4\u6309\u7167 Ada Reference Manual \u7684\u7ed3\u6784\u6765\u7ec4\u7ec7 [ISO 8052]<\/a>\u3002<\/p>\n\u7b2c\u4e8c\u7ae0\u201c\u7b80\u4ecb<\/em>\u201d\u89e3\u91ca\u4e86\u6307\u5357\u6240\u57fa\u4e8e\u7684\u57fa\u672c\u539f\u7406\u5e76\u4ecb\u7ecd\u4e86\u6307\u5357\u5206\u7c7b\u3002<\/p>\n\u7b2c\u4e09\u7ae0\u201c\u4ee3\u7801\u5e03\u5c40<\/em>\u201d\u8bb2\u8ff0\u4e86\u7a0b\u5e8f\u6587\u672c\u7684\u4e00\u822c\u89c6\u89c9\u7ec4\u7ec7\u7ed3\u6784\u3002<\/p>\n\u7b2c\u56db\u7ae0\u201c\u6ce8\u91ca<\/em>\u201d\u7ed9\u51fa\u4e86\u5982\u4f55\u7528\u7ed3\u6784\u5316\u7684\u3001\u53ef\u7528\u7684\u548c\u53ef\u7ef4\u62a4\u7684\u65b9\u5f0f\u6765\u6ce8\u91ca\u8bf4\u660e\u4ee3\u7801\u3002<\/p>\n\u7b2c\u4e94\u7ae0\u201c\u547d\u540d\u7ea6\u5b9a<\/em>\u201d\u7ed9\u51fa\u6709\u5173\u547d\u540d\u8bed\u8a00\u5b9e\u4f53\u7684\u4e00\u822c\u89c4\u5219\u548c\u8303\u4f8b\u3002\u8fd9\u4e00\u7ae0\u7684\u5185\u5bb9\u5e94\u518d\u7ecf\u4fee\u6539\uff0c\u4ee5\u6ee1\u8db3\u7279\u5b9a\u9879\u76ee\u6216\u673a\u6784\u7684\u9700\u8981\u3002<\/p>\n\u7b2c\u516d\u7ae0\u201c\u58f0\u660e<\/em>\u201d\u548c\u7b2c\u4e03\u7ae0\u201c\u8868\u8fbe\u5f0f\u548c\u8bed\u53e5<\/em>\u201d\u5bf9\u6bcf\u79cd\u8bed\u8a00\u7ed3\u6784\u7ed9\u51fa\u4e86\u8fdb\u4e00\u6b65\u7684\u5efa\u8bae\u3002<\/p>\n\u7b2c\u516b\u7ae0\u201c\u53ef\u89c6\u6027\u95ee\u9898<\/em>\u201d\u548c\u7b2c\u4e5d\u7ae0\u201c\u7a0b\u5e8f\u7ed3\u6784\u548c\u7f16\u8bd1\u95ee\u9898<\/em>\u201d\u7ed9\u51fa\u4e86\u6709\u5173\u5168\u5c40\u6784\u5efa\u548c\u7a0b\u5e8f\u7ec4\u6210\u7684\u6307\u5bfc\u3002<\/p>\n\u7b2c\u5341\u7ae0\u201c\u5e76\u884c<\/em>\u201d\u5904\u7406\u8bed\u8a00\u4e2d\u6709\u5173\u4f7f\u7528\u4efb\u52a1\u548c\u65f6\u95f4\u76f8\u5173\u7279\u6027\u7684\u4e13\u95e8\u95ee\u9898\u3002<\/p>\n\u7b2c\u5341\u4e00\u7ae0\u201c\u9519\u8bef\u5904\u7406\u548c\u5f02\u5e38<\/em>\u201d\u7ed9\u51fa\u5982\u4f55\u7cfb\u7edf\u5730\u3001\u7b80\u4fbf\u5730\u4f7f\u7528\u6216\u4e0d\u4f7f\u7528\u5f02\u5e38\u6765\u5904\u7406\u9519\u8bef\u3002<\/p>\n\u7b2c\u5341\u4e8c\u7ae0\u201c\u4f4e\u7ea7\u7f16\u7a0b<\/em>\u201d\u5904\u7406\u8868\u793a\u5b50\u53e5\u7684\u95ee\u9898\u3002<\/p>\n\u7b2c\u5341\u4e09\u7ae0\u201c\u603b\u7ed3<\/em>\u201d\u627c\u8981\u590d\u8ff0\u4e86\u6700\u4e3a\u91cd\u8981\u7684\u6307\u5bfc\u65b9\u9488\u3002<\/p>\n\u672c\u6587\u6863\u53d6\u4ee3\u4e86 Ada Guidelines: Recommendation for Designers and programmers<\/em> \u4e2d\u7684 Application Note #15, Rational, Santa Clara, CA., 1990\u3002<\/p>\n
\n<\/a>\u7b2c\u4e8c\u7ae0<\/em><\/h2>\n\u7b80\u4ecb<\/h1>\n\u57fa\u672c\u539f\u5219<\/h2>\n
Ada \u8bed\u8a00\u7684\u8bbe\u8ba1\u5f88\u6709\u9488\u5bf9\u6027\u7684\u76ee\u7684\u5c31\u662f\u652f\u6301\u9ad8\u8d28\u91cf\u3001\u53ef\u9760\u3001\u53ef\u590d\u7528\u548c\u53ef\u79fb\u690d\u8f6f\u4ef6 [ISO 87, sect. 1.3]<\/a>\u3002\u7136\u800c\uff0c\u6ca1\u6709\u54ea\u4e00\u79cd\u8bed\u8a00\u4ec5\u9760\u5176\u672c\u8eab\u5c31\u53ef\u4ee5\u5b9e\u73b0\u4e0a\u8ff0\u76ee\u6807\u3002\u7a0b\u5e8f\u8bbe\u8ba1\u5fc5\u987b\u662f\u4e00\u4e2a\u6709\u826f\u597d\u89c4\u8303\u7684\u8fc7\u7a0b\u7684\u4e00\u90e8\u5206\u3002<\/p>\n\u6e05\u695a\u660e\u767d\u7684 Ada \u6e90\u4ee3\u7801\u662f\u672c\u6587\u4e2d\u5927\u591a\u6570\u6307\u5bfc\u65b9\u9488\u7684\u4e3b\u8981\u76ee\u6807\u3002\u8fd9\u4e00\u70b9\u662f\u5b9e\u73b0\u53ef\u9760\u6027\u548c\u53ef\u7ef4\u62a4\u6027\u7684\u4e3b\u8981\u56e0\u7d20\u3002\u6240\u8c13\u6e05\u695a\u660e\u767d\u7684\u4ee3\u7801\u53ef\u4ee5\u4ece\u4ee5\u4e0b\u4e09\u6761\u7b80\u5355\u7684\u57fa\u672c\u539f\u5219\u4e0a\u6765\u7406\u89e3\u3002<\/p>\n
\u6700\u5c0f\u9650\u5ea6\u7684\u610f\u5916<\/h3>\n
\u5728\u5176\u751f\u547d\u671f\u5185\uff0c\u4ee3\u7801\u66f4\u591a\u5730\u662f\u88ab\u8bfb\uff0c\u800c\u4e0d\u662f\u88ab\u5199\uff0c\u5c24\u5176\u662f\u5b83\u7684\u8bf4\u660e\u90e8\u5206\u3002\u7406\u60f3\u60c5\u51b5\u4e0b\uff0c\u4ee3\u7801\u8bfb\u8d77\u6765\u5e94\u8be5\u8c61\u4e00\u7bc7\u8bf4\u660e\u5b83\u505a\u4e86\u4ec0\u4e48\u7684\u82f1\u6587\u63cf\u8ff0\uff0c\u5b83\u5177\u6709\u4e00\u4e2a\u9644\u52a0\u4f18\u70b9\u662f\u53ef\u4ee5\u6267\u884c\u3002 \u7a0b\u5e8f\u66f4\u591a\u662f\u4e3a\u4eba\u7f16\u5199\uff0c\u800c\u4e0d\u662f\u4e3a\u8ba1\u7b97\u673a\u7f16\u5199\u3002\u9605\u8bfb\u7f16\u7801\u662f\u4e00\u4e2a\u590d\u6742\u7684\u8111\u529b\u8fc7\u7a0b\uff0c\u5b83\u53ef\u901a\u8fc7\u7edf\u4e00\u6807\u51c6\u6765\u7b80\u5316\uff0c\u5728\u672c\u6587\u4e2d\u8fd9\u4e00\u6307\u5bfc\u4e5f\u53eb\u201c\u6700\u5c0f\u9650\u5ea6\u610f\u5916\u539f\u5219<\/em>\u201d\u3002\u6574\u4e2a\u9879\u76ee\u4e2d\u7edf\u4e00\u6837\u5f0f\u662f\u8f6f\u4ef6\u5f00\u53d1\u56e2\u961f\u5728\u7f16\u7a0b\u6807\u51c6\u4e0a\u8fbe\u6210\u4e00\u81f4\u7684\u4e3b\u8981\u539f\u56e0\uff0c\u5b83\u4e0d\u5e94\u89c6\u4e3a\u4e00\u79cd\u60e9\u7f5a\u6216\u5bf9\u521b\u9020\u6027\u548c\u751f\u4ea7\u529b\u7684\u963b\u788d\u3002<\/p>\n\u5355\u70b9\u7ef4\u62a4<\/h3>\n
\u8fd9\u4e00\u6307\u5bfc\u6240\u57fa\u4e8e\u7684\u53e6\u4e00\u4e2a\u91cd\u8981\u539f\u5219\u662f\u5355\u70b9\u7ef4\u62a4\u539f\u5219<\/em>\u3002\u5e94\u5c3d\u91cf\u4f7f\u8bbe\u8ba1\u51b3\u7b56\u53ea\u5728 Ada \u6e90\u7801\u4e2d\u7684\u4e00\u5904\u8868\u8ff0\uff0c\u5b83\u7684\u591a\u6570\u7ed3\u8bba\u5e94\u7a0b\u5e8f\u5316\u5730\u4ece\u8be5\u5904\u6d3e\u751f\u51fa\u6765\u3002\u4e0d\u9075\u5b88\u8fd9\u4e00\u539f\u5219\u4f1a\u4e25\u91cd\u5f71\u54cd\u4ee3\u7801\u7684\u53ef\u7ef4\u62a4\u6027\u3001\u53ef\u9760\u6027\u548c\u53ef\u7406\u89e3\u6027\u3002<\/p>\n\u6700\u5c0f\u9650\u5ea6\u7684\u5e72\u6270<\/h3>\n
\u6700\u540e\uff0c\u4f5c\u4e3a\u6613\u8bfb\u6027\u7684\u4e3b\u8981\u4f5c\u7528\u56e0\u7d20\uff0c\u91c7\u7528\u6700\u5c0f\u5e72\u6270\u539f\u5219<\/em>\u3002\u5373\u907f\u514d\u5c06\u6e90\u4ee3\u7801\u4e0e\u89c6\u89c9\u201c\u5e72\u6270\u201d\u76f8\u6df7\u5408\uff1a\u5373\u680f\u3001\u6846\u4ee5\u53ca\u5176\u5b83\u4f4e\u4fe1\u606f\u91cf\u7684\u6587\u672c\u6216\u662f\u5bf9\u7406\u89e3\u8f6f\u4ef6\u529f\u80fd\u6ca1\u6709\u5e2e\u52a9\u7684\u4fe1\u606f\u3002<\/p>\n\u53ef\u79fb\u690d\u6027\u548c\u53ef\u590d\u7528\u6027\u4e5f\u662f\u5236\u5b9a\u8bb8\u591a\u6307\u5bfc\u65b9\u9488\u7684\u539f\u7531\u3002\u4ee3\u7801\u5e94\u53ef\u79fb\u690d\u5230\u4e0d\u540c\u76ee\u6807\u8ba1\u7b97\u673a\u7684\u51e0\u4e2a\u4e0d\u540c\u7f16\u8bd1\u5668\u4e0a\uff0c\u5e76\u6700\u7ec8\u79fb\u690d\u5230\u4e00\u4e2a\u66f4\u9ad8\u7ea7\u7684 Ada \u7248\u672c\u201cAda 95\u201d\u4e0a [PLO92,<\/a> TAY92]<\/a>\u3002<\/p>\n<\/a>\u5047\u8bbe<\/h2>\n\u8fd9\u91cc\u7684\u6307\u5bfc\u65b9\u9488\u6709\u51e0\u4e2a\u57fa\u672c\u5047\u8bbe\uff1a<\/p>\n
\u8bfb\u8005\u4e86\u89e3 Ada\u3002<\/h3>\n
\u5e94\u9f13\u52b1\u5728\u4efb\u4f55\u53ef\u5e26\u6765\u597d\u5904\u7684\u5730\u65b9\u4f7f\u7528 Ada \u7684\u9ad8\u7ea7\u7279\u6027\uff0c\u800c\u4e0d\u8981\u4ec5\u4ec5\u56e0\u4e3a\u4e00\u4e9b\u7a0b\u5e8f\u5458\u4e0d\u719f\u6089\u5b83\u4eec\u800c\u53cd\u5bf9\u91c7\u7528\u3002 \u8fd9\u662f\u9879\u76ee\u80fd\u4ece\u4f7f\u7528 Ada \u4e2d\u771f\u6b63\u83b7\u76ca\u7684\u552f\u4e00\u65b9\u5f0f\u3002Ada \u4e0d\u5e94\u8c61 Pascal \u6216 FORTRAN \u8bed\u8a00\u90a3\u6837\u4f7f\u7528\u3002\u4e0d\u9f13\u52b1\u5728\u6ce8\u91ca\u4e2d\u89e3\u91ca\u4ee3\u7801\uff1b\u76f8\u53cd\uff0cAda \u672c\u8eab\u5e94\u5c3d\u53ef\u80fd\u5730\u53d6\u4ee3\u6ce8\u91ca\u3002<\/p>\n
\u8bfb\u8005\u61c2\u82f1\u6587\u3002<\/h3>\n
\u8bb8\u591a\u547d\u540d\u7ea6\u5b9a\u5728\u8bcd\u6c47\u548c\u8bed\u6cd5\u4e0a\u57fa\u4e8e\u82f1\u6587\u3002\u6b64\u5916\uff0c Ada \u7684\u5173\u952e\u5b57\u90fd\u662f\u5e38\u7528\u7684\u82f1\u8bed\u5355\u8bcd\u3002\u5c06\u5176\u4e0e\u5176\u5b83\u8bed\u8a00\u6df7\u5408\u5c06\u964d\u4f4e\u4ee3\u7801\u7684\u6613\u8bfb\u6027\u3002<\/p>\n
\u4e25\u683c\u9650\u5236\u4f7f\u7528\u5b50\u53e5 (use clause) \u7684\u8fd0\u7528\u3002<\/h3>\n
\u547d\u540d\u7ea6\u5b9a\u548c\u5176\u5b83\u4e00\u4e9b\u89c4\u5219\u5047\u5b9a\u201cuse\u201d\u5b50\u53e5\u4e0d\u88ab\u8fd0\u7528\u3002<\/p>\n
\u5904\u7406\u7684\u662f\u4e00\u4e2a\u5927\u9879\u76ee\u3002<\/h3>\n
\u8bb8\u591a\u89c4\u5219\u5728\u5927\u578b\u9879\u76ee\u4e2d\u6700\u6709\u4ef7\u503c\uff0c\u867d\u7136\u51fa\u4e8e\u9879\u76ee\u7ea7\u6216\u516c\u53f8\u7ea7\u5b9e\u73b0\u548c\u7edf\u4e00\u7684\u76ee\u7684\uff0c\u5b83\u4eec\u4e5f\u5728\u5c0f\u578b\u7cfb\u7edf\u4e2d\u4f7f\u7528\u3002<\/p>\n
\u6e90\u7801\u5728\u201cRational \u73af\u5883\u201d (Rational Environment) \u4e2d\u5f00\u53d1\u3002<\/h3>\n
\u901a\u8fc7\u8fd0\u7528\u201cRational \u73af\u5883\u201d (Rational Environment)\uff0c\u4e00\u4e9b\u95ee\u9898\u5982\u4ee3\u7801\u5e03\u5c40\u3001\u5c01\u95ed\u6784\u9020\u4e2d\u7684\u6807\u8bc6\u7b26\u7b49\u5c31\u5728 Ada \u7f16\u8f91\u5668\u548c\u683c\u5f0f\u5668\u4e2d\u5904\u7406\u4e86\u3002 \u4f46\u662f\u672c\u6587\u4e2d\u7684\u5e03\u5c40\u5efa\u8bae\u9002\u7528\u4e8e\u4efb\u4f55\u5f00\u53d1\u5e73\u53f0\u3002<\/p>\n
\u7a0b\u5e8f\u8bbe\u8ba1\u9075\u5faa\u9762\u5411\u5bf9\u8c61\u7684\u65b9\u6cd5\u3002<\/h3>\n
\u8bb8\u591a\u89c4\u5219\u652f\u6301\u5c06 Ada \u7279\u6027\u548c\u7279\u5b9a\u547d\u540d\u7ea6\u5b9a\u7684\u9762\u5411\u5bf9\u8c61 (OO) \u6982\u5ff5\u7684\u7cfb\u7edf\u6620\u5c04\u3002<\/p>\n
<\/a>\u6307\u5357\u5206\u7c7b<\/h2>\n\u8fd9\u4e9b\u6307\u5bfc\u65b9\u9488\u5e76\u975e\u540c\u7b49\u91cd\u8981\u3002\u5b83\u4eec\u5927\u81f4\u9075\u5faa\u4ee5\u4e0b\u7684\u7b49\u7ea7\uff1a<\/p>\n
\u63d0\u793a\uff1a<\/h3>\n
\u8be5\u6307\u5bfc\u65b9\u9488\u4ec5\u662f\u4e00\u6761\u7b80\u5355\u7684\u5efa\u8bae\uff1b\u4e0d\u9075\u5b88\u5b83\u4e5f\u4e0d\u4f1a\u6709\u4ec0\u4e48\u5b9e\u8d28\u6027\u7684\u635f\u5bb3\uff0c\u91c7\u7528\u6216\u662f\u4e0d\u91c7\u7528\u5b83\u4eec\u4ec5\u662f\u4e2a\u4eba\u559c\u597d\u95ee\u9898\u3002\u6587\u4e2d\u7684\u63d0\u793a\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u5efa\u8bae\uff1a<\/h3>\n
\u8be5\u6307\u5bfc\u65b9\u9488\u901a\u5e38\u66f4\u591a\u5730\u57fa\u4e8e\u6280\u672f\u7684\u89c2\u70b9\uff1b\u5b83\u53ef\u80fd\u4f1a\u5f71\u54cd\u5230\u4ee3\u7801\u7684\u53ef\u79fb\u690d\u6027\u6216\u53ef\u590d\u7528\u6027\uff0c\u5e76\u5728\u4e00\u4e9b\u5b9e\u65bd\u4e2d\u5f71\u54cd\u6027\u80fd\u3002 \u9664\u975e\u6709\u5408\u9002\u7684\u7406\u7531\uff0c\u5426\u5219\u5fc5\u987b\u9075\u5b88\u5efa\u8bae\u3002\u6587\u4e2d\u63d0\u5230\u4e00\u4e9b\u4f8b\u5916\u7684\u60c5\u51b5\u3002\u6587\u4e2d\u7684\u5efa\u8bae\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u9650\u5236\uff1a<\/h3>\n
\u6709\u7591\u95ee\u7684\u7279\u6027\u4f7f\u7528\u8d77\u6765\u5371\u9669\uff0c\u4f46\u5b83\u5e76\u4e0d\u88ab\u5b8c\u5168\u7981\u6b62\uff1b\u5e94\u7528\u8be5\u7279\u6027\u7684\u51b3\u5b9a\u5e94\u5728\u9879\u76ee\u7ea7\u4e0a\u505a\u51fa\uff0c\u5e76\u4e14\u51b3\u5b9a\u5e94\u8be5\u662f\u9ad8\u5ea6\u53ef\u89c1\u7684\u3002\u6587\u4e2d\u7684\u9650\u5236\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u8981\u6c42\uff1a<\/h3>\n
\u8fdd\u80cc\u5b83\u5b9a\u5c06\u5bfc\u81f4\u4e0d\u597d\u7684\u3001\u4e0d\u53ef\u9760\u7684\u6216\u662f\u4e0d\u53ef\u79fb\u690d\u7684\u4ee3\u7801\u3002 \u8981\u6c42\u4e0d\u53ef\u8fdd\u80cc\u3002\u6587\u4e2d\u7684\u8981\u6c42\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u201cRational \u8bbe\u8ba1\u5de5\u5177\u201d (Rational Design Facility) \u5c06\u7528\u6765\u51cf\u5c11\u53d7\u9650\u7279\u6027\u7684\u4f7f\u7528\u5e76\u52a0\u5f3a\u5fc5\u9700\u6cd5\u5219\u548c\u8bb8\u591a\u5efa\u8bae\u7684\u8fd0\u7528\u3002<\/p>\n
\u4e0e\u8bb8\u591a\u5176\u5b83\u7684 Ada \u7a0b\u5e8f\u8bbe\u8ba1\u6807\u51c6\u4e0d\u540c\u7684\u662f\uff1a\u4e8b\u5b9e\u4e0a\uff0c\u8fd9\u4e9b\u6307\u5bfc\u65b9\u9488\u4e2d\u53ca\u5c11\u6709\u5b8c\u5168\u7981\u7528\u7684\u3002\u597d\u7684\u8f6f\u4ef6\u7684\u5173\u952e\u5728\u4e8e\uff1a<\/p>\n
\n- \u4e86\u89e3\u6bcf\u79cd\u7279\u6027\uff0c\u4e86\u89e3\u5b83\u7684\u5c40\u9650\u548c\u53ef\u80fd\u7684\u5371\u9669<\/li>\n
- \u51c6\u786e\u4e86\u89e3\u8fd9\u79cd\u7279\u6027\u5728\u4f55\u79cd\u573a\u5408\u53ef\u4ee5\u5b89\u5168\u4f7f\u7528<\/li>\n
- \u8ba9\u4f7f\u7528\u8be5\u7279\u6027\u7684\u51b3\u7b56\u9ad8\u5ea6\u53ef\u89c1<\/li>\n
- \u5341\u5206\u5c0f\u5fc3\u8c28\u614e\u5730\u5728\u9002\u5f53\u5904\u4f7f\u7528\u8be5\u7279\u6027\u3002<\/li>\n<\/ul>\n
<\/a>\u6700\u6839\u672c\u7684\u539f\u5219<\/h2>\n\u4f7f\u7528\u5e38\u8bc6\u3002<\/p>\n
\u5f53\u65e0\u6cd5\u627e\u5230\u53ef\u7528\u7684\u89c4\u5219\u6216\u6307\u5357\uff0c\u5f53\u89c4\u5219\u660e\u663e\u4e0d\u9002\u7528\uff0c\u5f53\u5176\u5b83\u4e00\u5207\u90fd\u5931\u8d25\u65f6\uff1a\u4f7f\u7528\u5e38\u8bc6\uff0c\u5e76\u6838\u67e5\u57fa\u672c\u539f\u5219\u3002\u8fd9\u6761\u6cd5\u5219\u51cc\u9a7e\u4e8e\u5176\u5b83\u6240\u6709\u6cd5\u5219\u4e4b\u4e0a\u3002\u5e38\u8bc6\u662f\u5fc5\u4e0d\u53ef\u5c11\u7684<\/em>\u3002<\/p>\n
\n<\/a>\u7b2c\u4e09\u7ae0<\/em><\/h2>\n\u4ee3\u7801\u5e03\u5c40<\/h1>\n\u6982\u8ff0<\/h2>\n
\u4e00\u4e2a\u7a0b\u5e8f\u5355\u5143\u7684\u5e03\u5c40\u5b8c\u5168\u5728\u201cRational \u73af\u5883\u683c\u5f0f\u5668\u201d (Rational Environment Formatter) \u7684\u63a7\u5236\u4e4b\u4e0b\uff0c\u9664\u4e86\u5728\u6ce8\u91ca\u548c\u7a7a\u767d\u5904\u5185\uff0c\u7a0b\u5e8f\u5458\u4e0d\u5fc5\u8fc7\u591a\u62c5\u5fc3\u7a0b\u5e8f\u7684\u5e03\u5c40\u3002\u8fd9\u4e2a\u5de5\u5177\u6240\u91c7\u7528\u7684\u683c\u5f0f\u7ea6\u5b9a\u5728 Reference Manual for the Ada Programming Language \u7684 Appendix E \u4e2d\u8868\u8ff0 [ISO87]<\/a>\u3002 \u7279\u522b\u662f\uff0c\u4ed6\u4eec\u5efa\u8bae\u7ed3\u6784\u5316\u6784\u9020\u7684\u5f00\u59cb\u548c\u7ed3\u675f\u5904\u7684\u5173\u952e\u5b57\u5e94\u5782\u76f4\u5bf9\u9f50\u3002\u4e00\u4e2a\u6784\u9020\u7684\u6807\u8bc6\u7b26\u4e5f\u5e94\u7cfb\u7edf\u6027\u5730\u5728\u6784\u9020\u7684\u672b\u5c3e\u91cd\u590d\u3002<\/p>\n\u683c\u5f0f\u5668\u7684\u786e\u5207\u884c\u4e3a\u7531\u4e00\u7cfb\u5217\u7684\u5e93\u5f00\u5173<\/em>\u5728\u4e00\u4e2a\u901a\u7528\u6a21\u578b\u4e16\u754c (model world) \u57fa\u7840\u4e0a\u63a7\u5236\uff0c\u8fd9\u4e9b\u5e93\u5f00\u5173\u5728\u6574\u4e2a\u9879\u76ee\u8fc7\u7a0b\u4e2d\u63a5\u6536\u4e00\u5957\u7edf\u4e00\u7684\u503c\u3002\u76f8\u5173\u7684\u5f00\u5173\u4ee5\u53ca\u5b83\u4eec\u5728\u6211\u4eec\u6240\u5efa\u8bae\u7684\u6a21\u578b\u4e16\u754c<\/em>\u4e2d\u7684\u901a\u7528\u503c\u5217\u8868\u5982\u4e0b\u3002<\/p>\n<\/a>\u5b57\u6bcd\u5927\u5c0f\u5199<\/h2>\nFormat .Id_Case : Letter_Case := Capitalized<\/h3>\n
\u8be6\u7ec6\u8bf4\u660e Ada \u5355\u5143\u4e2d\u6807\u8bc6\u7b26\u7684\u5b57\u6bcd\u5927\u5c0f\u5199\uff1a\u6700\u5f00\u59cb\u7684\u5b57\u6bcd\u4ee5\u53ca\u6bcf\u4e2a\u4e0b\u5212\u7ebf\u4e4b\u540e\u7684\u7b2c\u4e00\u4e2a\u5b57\u6bcd\u7528\u5927\u5199\u3002\u5927\u5199\u662f\u8bfb\u8005\u6700\u6613\u8bfb\u7684\u5f62\u5f0f\uff0c\u5177\u6709\u4f17\u591a\u73b0\u4ee3\u5c4f\u5e55\u548c\u6fc0\u5149\u6253\u5370\u673a\u5b57\u4f53\u3002<\/p>\n
Format .Keyword_Case : Letter_Case := Lower<\/h3>\n
\u8bf4\u660e Ada \u5173\u952e\u5b57\u7684\u5927\u5c0f\u5199\u3002\u8fd9\u5c06\u5b83\u4eec\u4e0e\u6807\u8bc6\u7b26\u7565\u5fae\u533a\u5206\u5f00\u6765\u3002<\/p>\n
Format .Number_Case : Letter_Case := Upper<\/h3>\n
\u8bf4\u660e\u6d6e\u70b9\u76f4\u63a5\u91cf\u4e2d\u5b57\u6bcd\u201cE\u201d\u548c\u57fa\u672c\u76f4\u63a5\u91cf\u4e2d\u57fa\u672c\u6570\u5b57\uff08\u201cA\u201d \u5230 \u201cF\u201d\uff09\u7684\u5927\u5c0f\u5199\u3002<\/p>\n
<\/a>\u7f29\u8fdb<\/h2>\n\u4e00\u4e2a Ada \u5355\u5143\u6309\u7167 Ada Reference Manual \u4e2d Appendix E \u6240\u8bf4\u7684\u4e00\u822c\u7ea6\u5b9a\u6765\u7f16\u6392\u683c\u5f0f [ISO87]<\/a>\u3002\u8fd9\u5c31\u662f\u8bf4\uff0c\u4e00\u4e2a\u7ed3\u6784\u5316\u6784\u9020\u7684\u5f00\u59cb\u548c\u7ed3\u675f\u5904\u7684\u5173\u952e\u5b57\u5e94\u8be5\u5bf9\u9f50\u3002 \u4f8b\u5982\uff0c\u201cloop\u201d\u548c\u201cend loop\u201d\uff0c\u201crecord\u201d\u548c\u201cend record\u201d\u3002\u5728\u7ed3\u6784\u5316\u6784\u9020\u5185<\/em>\u7684\u5355\u5143\u5e94\u5411\u53f3\u7f29\u8fdb<\/em>\u3002<\/p>\nFormat .Major_Indentation : Indent_Range := 3<\/h3>\n
\u8bf4\u660e\u683c\u5f0f\u5668\u4ee4\u5982\u201cif\u201d\u8bed\u53e5\u3001\u201ccase\u201d\u8bed\u53e5\u548c\u201cloop\u201d\u8bed\u53e5\u8fd9\u6837\u7684\u7ed3\u6784\u5316\uff08\u4e3b\u8981\u7684\uff09\u6784\u9020\u7f29\u8fdb\u7684\u5217\u6570\u3002<\/p>\n
Format .Minor_Indentation : Indent_Range := 2<\/h3>\n
\u8bf4\u660e\u683c\u5f0f\u5668\u4f7f\u6b21\u8981\u6784\u9020\u7f29\u8fdb\u7684\u5217\u6570\uff1a \u8bb0\u5f55\u7684\u58f0\u660e\u3001\u53d8\u4f53\u8bb0\u5f55\u7684\u58f0\u660e\u3001\u7c7b\u578b\u7684\u58f0\u660e\u3001\u5f02\u5e38\u5904\u7406\u3001\u9009\u62e9\u8bed\u53e5\u3001case \u8bed\u53e5\u3001\u547d\u540d\u548c\u6807\u5fd7\u8bed\u53e5\u3002<\/p>\n
<\/a>\u884c\u7684\u957f\u5ea6\u548c\u884c\u7684\u5206\u9694<\/h2>\nFormat .Line_Length : Line_Range := 80<\/h3>\n
\u8bf4\u660e\u6362\u884c\u524d\u683c\u5f0f\u5668\u663e\u793a Ada \u5355\u5143\u4e2d\u7684\u884c\u6240\u91c7\u7528\u7684\u5217\u6570\u3002\u8fd9\u4f7f\u5f97\u683c\u5f0f\u5316\u7684\u5355\u5143\u53ef\u7528\u4f20\u7edf\u7684 VT100 \u7c7b\u7ec8\u7aef\u663e\u793a\u3002<\/p>\n
Format .Statement_Indentation : Indent_Range := 3<\/h3>\n
\u8bf4\u660e\u5f53\u4e00\u6761\u8bed\u53e5\u957f\u4e8e Line_Length\uff0c\u5fc5\u987b\u8981\u65ad\u5f00\u65f6\uff0c\u683c\u5f0f\u5668\u5e94\u4f7f\u7b2c\u4e8c\u884c\u548c\u540e\u7eed\u884c\u7f29\u8fdb\u591a\u5c11\u5217\u3002\u53ea\u6709\u5f53\u4e0d\u5b58\u5728\u8bcd\u6cd5\u6784\u9020\u53ef\u8ba9\u7f29\u8fdb\u7684\u4ee3\u7801\u5bf9\u9f50\u65f6\uff0c\u683c\u5f0f\u5668\u624d\u4ee4\u4ee3\u7801\u7f29\u8fdb Statement_Indentation \u4e2a\u5217\u3002<\/p>\n
Format .Statement_Length : Line_Range := 35<\/h3>\n
\u8bf4\u660e\u5f53\u663e\u793a\u4e00\u4e2a\u8bed\u53e5\u65f6\uff0c\u6bcf\u884c\u6240\u4fdd\u7559\u7684\u5217\u6570\u3002 \u5982\u679c\u5f53\u524d\u7f29\u8fdb\u7a0b\u5ea6\u6240\u5141\u8bb8\u7684\u4e00\u884c\u4e2d\u7684\u5217\u6570\u5c0f\u4e8e Statement_Length\uff0c\u90a3\u4e48\u683c\u5f0f\u5668\u5c06 Wrap_Indentation \u4f5c\u4e3a\u65b0\u7684\u7f29\u8fdb\u7a0b\u5ea6\u3002\u6b64\u6cd5\u53ef\u9632\u6b62\u5d4c\u5957\u592a\u6df1\u7684\u8bed\u53e5\u663e\u793a\u65f6\u8d85\u51fa\u53f3\u8fb9\u754c\u3002<\/p>\n
Format .Wrap_Indentation : Line_Range := 16<\/h3>\n
\u8bf4\u660e\u5f53\u524d\u7684\u7f29\u8fdb\u7a0b\u5ea6\u4e0d\u4e0d\u8db3 Statement_Length \u65f6\uff0c\u683c\u5f0f\u5668\u5728\u4e0b\u4e00\u884c\u5f00\u5934\u5904\u5e94\u7f29\u8fdb\u7684\u5217\u6570\u3002\u6b64\u6cd5\u53ef\u9632\u6b62\u5d4c\u5957\u592a\u6df1\u7684\u8bed\u53e5\u663e\u793a\u65f6\u8d85\u51fa\u53f3\u8fb9\u754c\u3002<\/p>\n
<\/a>\u5bf9\u9f50<\/h2>\nFormat .Consistent_Breaking : Integer := 1<\/h3>\n
\u63a7\u5236\u5f62\u5982 (xxx:aaa; yyy:bbb) \u7684\u5217\u8868\u683c\u5f0f\uff0c\u8be5\u5217\u8868\u51fa\u73b0\u5728\u5b50\u7a0b\u5e8f\u7684\u5f62\u53c2\u8bf4\u660e\u5904\u548c\u7c7b\u578b\u58f0\u660e\u4e2d\u7684\u5224\u522b\u5f0f\u5904\u3002\u5b83\u4e5f\u63a7\u5236\u5f62\u5982 (xxx=>aaa, yyy=>bbb) \u7684\u5217\u8868\u7684\u683c\u5f0f\uff0c\u8be5\u5217\u8868\u51fa\u73b0\u5728\u5b50\u7a0b\u5e8f\u8c03\u7528\u548c\u805a\u96c6\u5904\u3002\u56e0\u4e3a\u8be5\u9009\u9879\u975e\u96f6\uff08\u771f\uff09\uff0c\u6240\u4ee5\u5f53\u4e00\u4e2a\u5217\u8868\u65e0\u6cd5\u5728\u4e00\u884c\u4e2d\u88c5\u4e0b\u65f6\uff0c\u5217\u8868\u4e2d\u7684\u6bcf\u4e00\u4e2a\u5143\u7d20\u90fd\u5360\u7528\u65b0\u7684\u4e00\u884c\u3002<\/p>\n
Format .Alignment_Threshold : Line_Range := 20<\/h3>\n
\u8bf4\u660e\u4e3a\u4f7f\u8fde\u7eed\u8bed\u53e5\u4e2d\u7684\u8bcd\u6cd5\u6784\u9020\u5bf9\u9f50\uff08\u5982\u547d\u540d\u7b26\u53f7\u4e2d\u7684\u5192\u53f7\u3001\u8d4b\u503c\u53f7\u548c\u7bad\u5934\uff09\uff0c\u683c\u5f0f\u5668\u53ef\u63d2\u5165\u7684\u7a7a\u683c\u6570\u3002\u5982\u679c\u5bf9\u9f50\u4e00\u4e2a\u6784\u9020\u6240\u9700\u7684\u7a7a\u683c\u6570\u591a\u4e8e\u8fd9\u4e2a\u6570\uff0c\u90a3\u4e48\u6784\u9020\u4e0d\u88ab\u5bf9\u9f50\u3002<\/p>\n
\u8981\u6ce8\u610f\u7684\u662f\uff0c\u4e3a\u4e86\u5f62\u6210\u67d0\u79cd\u5e03\u5c40\uff0c\u7a0b\u5e8f\u5458\u53ef\u4ee5\u63d2\u5165\u4e00\u4e2a\u884c\u7ed3\u675f\u7b26\u6216\u8005\u901a\u8fc7\u8f93\u5165 <space> <space> <carriage-return> \u6765\u6572\u5165\u4e00\u4e2a\u4e0d\u4f1a\u88ab\u683c\u5f0f\u5668\u5220\u6389\u7684\u884c\u4e2d\u65ad\u3002<\/p>\n
\u5f53 \u5217\u8868\u4e2d\u7684\u5143\u7d20\u8d85\u8fc7 3 \u4e2a\u5e76\u4e14\u5728\u4e00\u884c\u4e2d\u88c5\u4e0d\u4e0b\u8fd9\u4e9b\u5143\u7d20\u65f6\uff0c\u91c7\u7528\u4e0a\u8ff0\u6280\u5de7\u3002Ada \u5143\u7d20\u5217\u8868\u5e94\u5206\u9694\u4e3a\u4e00\u884c\u4ec5\u6709\u4e00\u4e2a\u5143\u7d20\uff0c\u4ee5\u63d0\u9ad8\u4ee3\u7801\u7684\u6613\u8bfb\u6027\u548c\u53ef\u7ef4\u62a4\u6027\u3002\u8fd9\u4e00\u6761\u5c24\u5176\u9002\u7528\u4e8e\u4ee5\u4e0b Ada \u6784\u9020\uff08\u8c61 Ada Reference Manual \u7684 Appendix E \u4e2d\u6240\u5b9a\u4e49\u7684\u90a3\u6837 [ISO87]<\/a>\uff09\uff1a<\/p>\n\u5b9e\u53c2\u5173\u8054\u5173\u7cfb<\/p>\n
pragma Suppress (Range_Check,\r\nOn => This_Type,\r\nOn => That_Type, On => That_Other_Type);<\/pre>\n\u6807\u8bc6\u7b26\u5217\u8868\uff0c\u7ec4\u4ef6\u5217\u8868<\/p>\n
Next_Position,\r\nPrevious_Position,\r\nCurrent_Position : Position;\r\ntype Some_Record is \r\nrecord\r\nA_Component,\r\nB_Component,\r\nC_Component : Component_Type;\r\nend record;<\/pre>\n\u679a\u4e3e\u7c7b\u578b\u5b9a\u4e49<\/p>\n
type Navaid is \r\n(Vor, \r\nVor_Dme, \r\nDme, \r\nTacan, \r\nVor_Tac, \r\nNDB);<\/pre>\n\u5224\u522b\u5f0f\u7ea6\u675f<\/p>\n
subtype Constrained is Element \r\n(Name_Length => Name'Length,\r\nValid => True,\r\nOperation => Skip);<\/pre>\n\u8bed\u53e5\u7684\u987a\u5e8f\uff08\u7531\u683c\u5f0f\u5668\u5904\u7406\uff09<\/p>\n
\u5f62\u5f0f\u90e8\u5206\u3001\u7c7b\u5c5e\u5f62\u5f0f\u90e8\u5206\u3001\u5b9e\u53c2\u90e8\u5206\u3001\u7c7b\u5c5e\u5b9e\u53c2\u90e8\u5206<\/p>\n
procedure Just_Do_It (This : in Some_Type;\r\nFor_That : in Some Other_Type;\r\nStatus : out Status_Type);\r\nJust_Do_It (This => This_Value;\r\nFor_That => That_Value;\r\nStatus => The_Status);<\/pre>\n
\n<\/a>\u7b2c\u56db\u7ae0<\/em><\/h2>\n\u6ce8\u91ca<\/h1>\n\u6982\u8ff0<\/h2>\n
\u4e0e\u5e7f\u6cdb\u63a5\u53d7\u7684\u89c2\u70b9\u76f8\u53cd\u7684\u662f\uff0c\u597d\u7684\u7a0b\u5e8f\u7684\u7279\u70b9\u5e76\u975e\u662f\u6ce8\u91ca\u7684\u6570\u91cf<\/em>\uff0c\u800c\u662f\u6ce8\u91ca\u7684\u8d28\u91cf<\/em>\u3002<\/p>\n\u6ce8\u91ca\u5e94\u5f53\u4f5c\u4e3a Ada \u4ee3\u7801\u7684\u8865\u5145<\/em>\uff0c\u800c\u4e0d\u662f\u89e3\u91ca\uff1aAda \u672c\u8eab\u662f\u4e00\u79cd\u975e\u5e38\u6613\u8bfb\u7684\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00\uff0c\u5c24\u5176\u662f\u5f53\u88ab\u597d\u7684\u547d\u540d\u7ea6\u5b9a\u652f\u6301\u65f6\u3002\u6ce8\u91ca\u5e94\u5f53\u89e3\u91ca\u90a3\u4e9b\u4e0d\u80fd\u76f4\u63a5\u4ece Ada \u4ee3\u7801\u4e2d\u770b\u51fa\u7684\u5185\u5bb9\uff1b\u5b83\u4eec\u4e0d\u5e94\u590d\u5236 Ada \u7684\u8bed\u6cd5\u6216\u8bed\u4e49\u3002\u6ce8\u91ca\u5e94\u5f53\u5e2e\u52a9\u8bfb\u8005\u638c\u63e1\u80cc\u666f\u6982\u5ff5\u548c\u4f9d\u8d56\u6761\u4ef6\uff0c\u7279\u522b\u662f\u590d\u6742\u7684\u6570\u636e\u7f16\u7801\u548c\u7b97\u6cd5\u3002\u6ce8\u91ca\u5e94\u5f53\u7a81\u51fa\u4e0e\u7f16\u7801\u6216\u8bbe\u8ba1\u6807\u51c6\u7684\u4e0d\u540c\u70b9\u3001\u53d7\u9650\u7279\u6027\u7684\u4f7f\u7528\u4ee5\u53ca\u7279\u6b8a\u7684 \u201c\u6280\u5de7\u201d\u3002\u5728\u6bcf\u4e2a\u4e3b\u8981\u7684 Ada \u6784\u9020\uff08\u5982\u5b50\u7a0b\u5e8f\u548c\u7a0b\u5e8f\u5305\uff09\u4e2d\uff0c\u7cfb\u7edf\u5730\u51fa\u73b0\u7684\u6ce8\u91ca\u6846\u6216\u8868\u5355\u5177\u6709\u4e00\u81f4\u6027\u548c\u63d0\u9192\u7a0b\u5e8f\u5458\u8bf4\u660e\u4ee3\u7801\u7684\u4f18\u70b9\uff0c\u4f46\u5b83\u4eec\u4e5f\u5e38\u5e38\u5e26\u6765\u91ca\u4e49\u4ee3\u7801\u7684\u98ce\u683c\u3002\u5bf9\u6bcf\u4e00\u884c\u6ce8\u91ca\uff0c\u7a0b\u5e8f\u5458\u90fd \u5e94\u80fd\u591f\u5f88\u597d\u5730\u56de\u7b54\uff1a\u201c\u52a0\u5165\u8fd9\u4e2a\u6ce8\u91ca\u6709\u4f55\u4ef7\u503c\uff1f\u201d<\/p>\n\u4e00\u4e2a\u8bef\u5bfc\u6216\u8005\u9519\u8bef\u7684\u6ce8\u91ca\u6bd4\u5b8c\u5168\u4e0d\u6ce8\u91ca\u8fd8\u7cdf\u3002\u7f16\u8bd1\u5668\u4e0d\u68c0\u67e5\u6ce8\u91ca\uff08\u9664\u975e\u5b83\u4eec\u8c61\u201cRational \u8bbe\u8ba1\u5de5\u5177\u201d\u90a3\u6837\u53c2\u4e0e\u4e86\u6b63\u5f0f\u7684 Ada \u8bbe\u8ba1\u8bed\u8a00 (ADL) \u6216\u8005\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00 (PDL)\uff09\u3002\u56e0\u6b64\uff0c\u6839\u636e\u5355\u70b9\u7ef4\u62a4\u539f\u5219\uff0c\u8bbe\u8ba1\u51b3\u5b9a\u5e94\u5728 Ada \u800c\u4e0d\u662f\u6ce8\u91ca\u4e2d\u8868\u8ff0\uff0c\u5373\u4f7f\u8fd9\u6837\u505a\u9700\u8981\u591a\u51e0\u4e2a\u58f0\u660e\u3002<\/p>\n
\u4f5c\u4e3a\u4e00\u4e2a\uff08\u5e76\u975e\u5f88\u597d\u7684\uff09\u4f8b\u5b50\u8003\u8651\u5982\u4e0b\u7684\u58f0\u660e\uff1a<\/p>\n
------------------------------------------------------------\r\n-- procedure Create\r\n------------------------------------------------------------\r\n--\r\nprocedure Create\r\n(The_Subscriber: in out Subscriber.Handle;\r\nWith_Name : in out Subscriber.Name);\r\n--\r\n-- Purpose: This procedure creates a subscriber with a given\r\n-- name.\r\n--\r\n-- Parameters: \r\n- The_Subscriber :mode in out, type Subscriber.Handle\r\n- It is the handle to the created subscriber\r\n- With_Name :mode in, type Subscriber.Name\r\n- The name of the subscriber to be created.\r\n- The syntax of the name is\r\n-- <letter> { <letter> | <digit> }\r\n-- Exceptions:\r\n-- Subscriber.Collection_Overflow when there is no more\r\n-- space to create a new subscriber\r\n-- Subscriber.Invalid_Name when the name is blank or\r\n-- malformed\r\n--\r\n-------------------------------------------- end Create ----<\/pre>\n\u4f8b\u5b50\u4e2d\u6709\u51e0\u70b9\u8981\u6307\u51fa\u6765\u3002<\/p>\n
\n- \u6709\u8bb8\u591a\u5197\u4f59\uff1a<\/li>\n<\/ul>\n
\n- – \u8fc7\u7a0b\u521b\u5efa (Procedure Create)\uff1a\u5982\u679c\u8981\u6539\u540d\uff0c\u6709\u51e0\u5904\u5730\u65b9\u9700\u8981\u4fee\u6539\uff1b\u7ecf\u5e38\u6027\u5730\u4fee\u6539\u6ce8\u91ca\uff0c\u7f16\u8bd1\u5668\u4e0d\u4f1a\u6267\u884c\u3002<\/dd>\n
- – \u6ce8\u91ca\u4e2d\u65e0\u9700\u91cd\u590d\u8bf4\u660e\u53c2\u6570\u540d\u3001\u6a21\u5f0f\u548c\u7c7b\u578b\u3002<\/dd>\n
- – \u8fd9\u91cc\u7ed9\u6bcf\u4e2a Ada \u5b9e\u4f53\u6240\u53d6\u7684\u540d\u5b57\u5f88\u597d\uff0c\u8fd9\u4f7f\u5f97\u529f\u80fd\u548c\u53c2\u6570\u89e3\u91ca\u53d8\u5f97\u591a\u4f59\u3002\u6ce8\u610f\uff0c\u8fd9\u4e00\u70b9\u53ea\u662f\u5bf9\u4e8e\u5982\u4e0a\u4f8b\u8fd9\u6837\u7684\u7b80\u5355\u7684\u5b50\u7a0b\u5e8f\u6765\u8bf4\u624d\u662f\u6b63\u786e\u7684\u3002\u5bf9\u4e8e\u66f4\u590d\u6742\u7684\u5b50\u7a0b\u5e8f\uff0c\u4ecd\u9700\u8981\u529f\u80fd\u548c\u53c2\u6570\u89e3\u91ca\u3002<\/dd>\n<\/dl>\n
\n- \u6846\u67b6\u52a0\u5165\u4e86\u592a\u591a\u7684\u5e72\u6270\uff0c\u9690\u85cf\u4e86\u5173\u952e\u9879\uff1a\u8fc7\u7a0b\u58f0\u660e\u3002\u53e6\u5916\uff0c\u53f3\u7aef\u7684\u5782\u76f4\u8fb9\u5f00\u59cb\u65f6\u770b\u4e0a\u53bb\u8fd8\u5f88\u6f02\u4eae\uff0c\u4f46\u5374\u4f7f\u4fee\u6539\u53d8\u5f97\u6781\u4e3a\u75db\u82e6\uff0c\u901a\u5e38\u51e0\u5e74\u7684\u7ef4\u62a4\u4e0b\u6765\uff0c\u4ee3\u7801\u6700\u540e\u5b8c\u5168\u4e0d\u5bf9\u9f50\u5e76\u4e14\u5343\u75ae\u767e\u5b54\u3002<\/li>\n
- \u76f8\u53cd\u7684\u662f\uff0c\u8fd9\u91cc\u5e94\u8bf4\u660e\u4ea7\u751f\u4e86\u4f55\u79cd\u5f02\u5e38\uff0c\u56e0\u4e3a\u82e5\u53ea\u8bfb\u89c4\u683c\u8bf4\u660e\uff0c\u8fd9\u4e00\u70b9\u5e76\u4e0d\u660e\u663e\u3002\u4f46\u6bcf\u4e2a\u5f02\u5e38\u7684\u51c6\u786e\u542b\u4e49\u5e94\u653e\u5728\u81ea\u8eab\u7684\u5f02\u5e38\u58f0\u660e\u5904\u3002<\/li>\n
- \u5e94\u8bf4\u660e\u53c2\u6570\u7684\u524d\u7f6e\u548c\u540e\u7f6e\u6761\u4ef6\uff0c\u5c24\u5176\u662f\u53c2\u6570\u95f4\u7684\u5173\u7cfb\u3002\u8fd9\u4e9b\u4e0d\u5e94\u4e0e\u5176\u5b83\u5730\u65b9\u53ef\u4ee5\u627e\u5230\u7684\u4fe1\u606f\u91cd\u590d\uff0c\u5982\u6709\u6548\u540d\u7684\u8bed\u6cd5\uff0c\u5b83\u53ea\u5e94\u5728\u4e00\u5904\u8bf4\u660e\u3002<\/li>\n<\/ul>\n
\u5728\u8fd9\u4e2a\u4f8b\u5b50\u4e2d\uff0c\u6700\u597d\u91c7\u7528\u5982\u4e0b\u66f4\u7b80\u6d01\u3001\u66f4\u6709\u7528\u7684\u65b9\u5f0f\uff1a<\/p>\n
procedure Create (The_Subscriber : in out Subscriber.Handle;\r\nWith_Name : in Subscriber.Name);--\r\n-Raises Subscriber.Collection_Overflow.\r\n-Raises Subscriber.Invalid_Name when the name is \r\nblank or malformed (see syntax description \r\nattached to declaration of type Subscriber.Name).<\/pre>\n<\/a>\u6ce8\u91ca\u7528\u6cd5\u6307\u5357<\/h2>\n\u6ce8\u91ca\u5e94\u653e\u5728\u76f8\u5173\u4ee3\u7801\u7684\u65c1\u8fb9\uff0c\u7f29\u8fdb\u540c\u6837\u7684\u5927\u5c0f\uff0c\u7d27\u9760\u7740\u4ee3\u7801 – \u5373\u7528\u7a7a\u7684\u6ce8\u91ca\u884c\u5728\u89c6\u89c9\u4e0a\u5c06\u6ce8\u91ca\u5757\u4e0e Ada \u6784\u9020\u6346\u5728\u4e00\u8d77\uff1a<\/p>\n
procedure First_One;\r\n--\r\n-- This comment relates to First_One.\r\n-- But this comment is for Second_One.\r\n-- \r\nprocedure Second_One (Times : Natural);<\/pre>\n\u7528\u7a7a\u884c\u5206\u9694\u76f8\u5173\u7684\u6e90\u7801\u5757\uff08\u6ce8\u91ca\u548c\u4ee3\u7801\uff09\uff0c\u800c\u4e0d\u7528\u7c97\u91cd\u7684\u6ce8\u91ca\u884c\uff0c\u5982\uff1a<\/p>\n
-------------------------------------------------------------<\/pre>\n\u6216\u8005\uff1a<\/p>\n
--===========================================================<\/pre>\n\u5728\u4e00\u4e2a\u6ce8\u91ca\u5757\u4e2d\uff0c\u4f7f\u7528\u7a7a\u6ce8\u91ca\u884c\u800c\u975e\u7a7a\u884c\u6765\u5206\u5272\u6ce8\u91ca\u6bb5<\/p>\n
-- Some explanation here that needs to be continued in a\r\n-- subsequent paragraph.\r\n--\r\n-- The empty comment line above makes it clear that we \r\n-- are dealing with a single comment block.<\/pre>\n\u867d\u7136\u6ce8\u91ca\u53ef\u4ee5\u653e\u5728\u76f8\u5173 Ada \u6784\u9020\u7684\u4e0a\u65b9\u6216\u4e0b\u65b9\uff0c\u4f46\u662f\u8981\u5c06\u4e00\u8282\u7684\u6807\u9898\u6216\u8005\u4e00\u4e2a\u8bf4\u660e\u51e0\u4e2a Ada \u6784\u9020\u7684\u4e3b\u8981\u4fe1\u606f\u653e\u5728\u6784\u9020\u7684\u4e0a\u65b9<\/em>\u3002\u5c06\u8bc4\u8ff0\u6216\u9644\u52a0\u4fe1\u606f\u7b49\u8fd9\u4e00\u7c7b\u7684\u6ce8\u91ca\u653e\u5728\u76f8\u5173 Ada \u6784\u9020\u7684\u4e0b\u65b9<\/em>\u3002<\/p>\n\u7528\u4e00\u9875\u7684\u6574\u884c\u5bbd\u5728 Ada \u6784\u9020\u7684\u5f00\u5934\u5904\u5206\u7ec4\u3002\u907f\u514d\u5c06\u6ce8\u91ca\u653e\u5728 Ada \u6784\u9020\u7684\u540c\u4e00\u884c\u3002\u8fd9\u4e9b\u6ce8\u91ca\u5e38\u5e38\u53d8\u5f97\u4e0d\u5bf9\u9f50\u3002\u4f46\u662f\u5728\u8bf4\u660e\u4e00\u4e2a\u957f\u7684\u58f0\u660e\u65f6\uff0c\u5982\u679a\u4e3e\u7c7b\u578b\u76f4\u63a5\u91cf\uff0c\u8fd9\u6837\u7684\u6ce8\u91ca\u65b9\u5f0f\u662f\u53ef\u4ee5\u5bb9\u8bb8\u7684\u3002<\/p>\n
\u7528\u4e00\u4e2a\u5c0f\u7684\u5206\u5c42\u6b21\u7684\u6807\u51c6\u6ce8\u91ca\u5757\u6765\u8bf4\u660e\u5c0f\u8282\u7684\u6807\u9898\uff0c\u4f46\u8fd9\u4ec5\u4ec5\u9002\u7528\u4e8e\u5f88\u5927\u7684 Ada \u5355\u5143\uff08>200 \u884c\u7684\u58f0\u660e\u6216\u8005\u8bed\u53e5\uff09\uff1a<\/p>\n
--===========================================================\r\n--\r\n \u4e3b\u6807\u9898\r\n--\r\n--===========================================================\r\n\r\n-------------------------------------------------------------\r\n \u526f\u6807\u9898\r\n-------------------------------------------------------------\r\n\r\n --------------------\r\n \u5b50\u90e8\u5206\u7684\u5934\r\n --------------------<\/pre>\n\u5728\u8fd9\u79cd\u6807\u9898\u524d\u9762\u6240\u653e\u7684\u7a7a\u884c\u6570\u8981\u591a\u4e8e\u540e\u9762\u7684\u7a7a\u884c\u6570\uff0c\u4f8b\u5982\uff0c\u4e24\u884c\u5728\u524d\u4e00\u884c\u5728\u540e\u3002\u8fd9\u6837\u4f7f\u6807\u9898\u4e0e\u968f\u540e\u7684\u6b63\u6587\u5728\u89c6\u89c9\u4e0a\u76f8\u8054\u7cfb\u3002<\/p>\n
\u907f \u514d\u4f7f\u7528\u542b\u6709\u4fe1\u606f\u7684\u51fd\u6570\u5934\uff0c\u6bd4\u5982\u4f5c\u8005\u3001\u7535\u8bdd\u3001\u521b\u5efa\u548c\u4fee\u6539\u65e5\u671f\u3001\u5355\u5143\uff08\u6216\u6587\u4ef6\u540d\uff09\u7684\u4f4d\u7f6e\uff0c\u56e0\u4e3a\u8fd9\u4e9b\u4fe1\u606f\u5f88\u5feb\u5c31\u4f1a\u8fc7\u65f6\u3002\u5c06\u6240\u6709\u8005\u7248\u6743\u4fe1\u606f\u653e\u5728\u5355\u5143\u7684\u672b\u5c3e\uff0c\u5c24\u5176\u662f \u4f7f\u7528\u201cRational \u73af\u5883\u201d\u65f6\u3002\u5f53\u8bbf\u95ee\u4e00\u4e2a\u7a0b\u5e8f\u5305\u7684\u89c4\u683c\u8bf4\u660e\u6e90\u7801\u65f6 – \u4f8b\u5982\u5728\u201cRational \u73af\u5883\u201d\u4e2d\u6309 [Definition] – \u8bfb\u8005\u4e0d\u60f3\u6d4f\u89c8\u4e24\u9875\u6216\u8005\u4e09\u9875\u5bf9\u7406\u89e3\u7a0b\u5e8f\u65e0\u4efb\u4f55\u7528\u5904\u7684\u6587\u672c\u548c\/\u6216\u5b8c\u5168\u4e0d\u5e26\u6709\u4efb\u4f55\u7a0b\u5e8f\u4fe1\u606f\u7684\u6587\u672c\u3002\u907f\u514d\u4f7f\u7528\u5782\u76f4\u6eda\u52a8\u6761\u3001\u5c01\u95ed\u56fe\u6587\u6846\u6216\u65b9\u6846\uff0c\u8fd9\u4e9b\u4e1c\u897f\u53ea\u4f1a\u589e\u52a0\u89c6\u89c9 \u5e72\u6270\uff0c\u800c\u4e14\u96be\u4ee5\u4fdd\u6301\u4e00\u81f4\u6027\u3002\u7528 Rational CMVC \u9644\u6ce8\uff08\u6216\u8005\u5176\u5b83\u5f62\u5f0f\u7684\u8f6f\u4ef6\u5f00\u53d1\u6587\u4ef6\uff09\u6765\u4fdd\u5b58\u5355\u5143\u5386\u53f2\u3002<\/p>\n
\u4e0d\u8981\u91cd\u590d\u53ef\u4ee5\u5728\u5176\u5b83\u5730\u65b9\u627e\u5230\u7684\u4fe1\u606f\uff1b\u4ec5\u63d0\u4f9b\u4e00\u4e2a\u6307\u5411\u8be5\u4fe1\u606f\u7684\u6307\u9488\u5373\u53ef\u3002<\/p>\n
\u5c3d \u91cf\u91c7\u7528 Ada\uff0c\u800c\u975e\u6ce8\u91ca\u3002\u8981\u5b9e\u73b0\u8fd9\u4e00\u70b9\uff0c\u4f60\u53ef\u9009\u62e9\u66f4\u597d\u7684\u540d\u5b57\u3001\u9644\u52a0\u4e34\u65f6\u53d8\u91cf\u3001\u9650\u5b9a\u3001\u91cd\u547d\u540d\u3001\u5b50\u7c7b\u578b\u3001\u9759\u6001\u8868\u8fbe\u5f0f\u548c\u5c5e\u6027\uff0c\u8fd9\u4e9b\u90fd\u4e0d\u5f71\u54cd\u751f\u6210\u7684\u4ee3\u7801\uff08\u81f3\u5c11\u5728\u4e00\u4e2a\u597d\u7684 \u7f16\u8bd1\u5668\u4e2d\u4e0d\u5f71\u54cd\uff09\u3002\u4f60\u4e5f\u53ef\u4ee5\u91c7\u7528\u5c0f\u7684\u3001\u5d4c\u5165\u5f0f\u7684\u8c13\u8bcd\u51fd\u6570\uff0c\u5e76\u5c06\u4ee3\u7801\u5206\u6210\u51e0\u4e2a\u65e0\u53c2\u8fc7\u7a0b\uff0c\u8fd9\u4e9b\u8fc7\u7a0b\u7684\u540d\u5b57\u63d0\u4f9b\u4e86\u4ee3\u7801\u51e0\u4e2a\u79bb\u6563\u90e8\u5206\u7684\u6807\u9898\u3002<\/p>\n
\u793a\u4f8b\uff1a<\/p>\n
\u5c06\uff1a<\/p>\n
exit when Su.Locate (Ch, Str) \/= 0; \r\n-- Exit search loop when found it.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
Search_Loop : loop<\/p>\n
Found_It := Su.Locate (Ch, Str) \/= 0;<\/p>\n
exit Search_Loop when Found_It<\/p>\n
end Search_Loop;<\/p>\n
\u5c06\uff1a<\/p>\n
if Value < 'A' or else Value > 'Z' then\r\n-- If not in uppercase letters.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
subtype Uppercase_Letters is Character range 'A' ..'Z';\r\nif Value not in Uppercase_Letters then ...<\/pre>\n\u5c06\uff1a<\/p>\n
X := Green; -- This is the Green from \r\n-- Status, not from Color.\r\nraise Fatal_Error; -- From package Outer_Scope.\r\ndelay 384.0; -- Equal to 6 minutes and 24 \r\n-- seconds.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
The_Status := Green;<\/pre>\nor:<\/p>\n
X := Status'(Green);\r\nraise Outer_Scope.Fatal_Error;\r\ndelay 6.0 * Minute + 24.0 * Second;<\/pre>\n\u5c06\uff1a<\/p>\n
if Is_Valid (The_Table (Index).Descriptor(Rank).all) then\r\n-- This is the current value for the iteration; if it is \r\n-- valid we append to the list it contains.\r\nAppend (Item, To_List => The_Table (Index).Descriptor(Rank).Ptr);|<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
declare\r\nCurrent_Rank : Lists.List renames The_Table \r\n(Index).Descriptor (Rank);\r\nbegin\r\nif Is_Valid (Current_Rank.all) then\r\nAppend (Item, To_List => Current_Rank.Ptr);\r\nend if;\r\nend;<\/pre>\n\u6ce8\u610f\u6ce8\u91ca\u4e2d\u7684\u98ce\u683c\u3001\u8bed\u6cd5\u548c\u62fc\u5199\u3002\u4e0d\u8981\u4f7f\u7528\u8c61\u7535\u62a5\u5bc6\u7801\u4e00\u822c\u7684\u98ce\u683c\u3002\u4f7f\u7528\u62fc\u5199\u68c0\u67e5\u3002\uff08\u5728\u201cRational \u73af\u5883\u201d\u4e2d\u8c03\u7528 Speller.Check_Image\uff09\u3002<\/p>\n
\u4e0d\u8981\u4f7f\u7528\u65b9\u8a00\u5b57\u6bcd\u6216\u8005\u5176\u5b83\u975e\u82f1\u6587\u5b57\u7b26\u3002\u6839\u636e Ada Issue AI-339\uff0c\u975e\u82f1\u6587\u5b57\u7b26\u53ef\u88ab\u4e00\u4e9b\u5f00\u53d1\u7cfb\u7edf\u652f\u6301\uff0c\u4e00\u4e9b Ada \u7f16\u8bd1\u5668\u4ec5\u5728\u6ce8\u91ca\u4e2d\u652f\u6301\u3002\u4f46\u8fd9\u662f\u4e0d\u53ef\u79fb\u690d\u7684\uff0c\u5f88\u6709\u53ef\u80fd\u5728\u5176\u5b83\u7cfb\u7edf\u4e0a\u5931\u6548\u3002<\/p>\n
\u5bf9\u4e8e\u5b50\u7a0b\u5e8f\uff0c\u81f3\u5c11\u8bf4\u660e\uff1a<\/p>\n
\n- \u5b50\u7a0b\u5e8f\u7684\u7528\u9014\uff0c\u4f46\u8fd9\u53ea\u662f\u5f53\u4ece\u5b83\u7684\u540d\u5b57\u4e2d\u4e0d\u80fd\u660e\u786e\u4e86\u89e3\u5176\u7528\u9014\u65f6<\/li>\n
- \u5728\u4f55\u79cd\u6761\u4ef6\u4e0b\u751f\u6210\u4e86\u4f55\u79cd\u5f02\u5e38<\/li>\n
- \u5982\u679c\u6709\u7684\u8bdd\uff0c\u53c2\u6570\u7684\u524d\u7f6e\u6216\u540e\u7f6e\u6761\u4ef6<\/li>\n
- \u5176\u4ed6\u6570\u636e\u8bbf\u95ee\uff0c\u7279\u522b\u662f\u5f53\u6570\u636e\u88ab\u4fee\u6539\u65f6\uff1b\u8fd9\u5c24\u5176\u5305\u62ec\u6709\u526f\u4f5c\u7528\u7684\u51fd\u6570<\/li>\n
- \u6b63\u786e\u4f7f\u7528\u5b50\u7a0b\u5e8f\u6240\u9700\u7684\u4efb\u4f55\u9650\u5236\u6216\u9644\u52a0\u4fe1\u606f<\/li>\n<\/ul>\n
\u5bf9\u4e8e\u7c7b\u578b\u548c\u5bf9\u8c61\uff0c\u8981\u8bf4\u660e\u6240\u6709\u4e0d\u80fd\u901a\u8fc7 Ada \u8868\u8fbe\u7684\u4e0d\u53d8\u91cf\u6216\u9644\u52a0\u7ea6\u675f\u3002<\/p>\n
\u907f\u514d\u6ce8\u91ca\u4e2d\u7684\u91cd\u590d\u3002\u4f8b\u5982\uff0c\u6709\u5173\u7528\u9014\u7684\u90e8\u5206\u5e94\u662f\u201c\u5b83\u505a\u4ec0\u4e48\uff1f\u201d\u8fd9\u4e2a\u95ee\u9898\u7684\u7b80\u5355\u56de\u7b54\uff0c\u800c\u4e0d\u662f\u201c\u5b83\u600e\u4e48\u505a\uff1f\u201d\u7684\u56de\u7b54\u3002\u6982\u8ff0\u5e94\u662f\u8bbe\u8ba1\u7684\u7b80\u77ed\u8868\u8fbe\u3002\u8bf4\u660e\u4e2d\u4e0d\u5e94\u63cf\u8ff0\u6240\u7528\u7684\u7b97\u6cd5\uff0c\u800c\u5e94\u89e3\u91ca\u7a0b\u5e8f\u5305\u5e94\u5982\u4f55\u4f7f\u7528\u3002<\/p>\n
\u6570\u636e\u7ed3\u6784\u548c\u7b97\u6cd5\u90e8\u5206\u5e94\u542b\u6709\u8db3\u591f\u7684\u4fe1\u606f\u6765\u5e2e\u52a9\u7406\u89e3\u4e3b\u8981\u7684\u5b9e\u73b0\u7b56\u7565\uff08\u4ee5\u4fbf\u6b63\u786e\u4f7f\u7528\u7a0b\u5e8f\u5305\uff09\uff0c\u4f46\u65e0\u9700\u5305\u542b\u6240\u6709\u7684\u5b9e\u73b0\u7ec6\u8282\u6216\u4e0e\u6b63\u786e\u4f7f\u7528\u5305\u6beb\u4e0d\u76f8\u5173\u7684\u4fe1\u606f\u3002<\/p>\n
\n<\/a>\u7b2c\u4e94\u7ae0<\/em><\/h2>\n\u547d\u540d\u7ea6\u5b9a<\/h1>\n\u6982\u8ff0<\/h2>\n
\u7ed9 Ada \u5b9e\u4f53\uff08\u7a0b\u5e8f\u5355\u5143\u3001\u7c7b\u578b\u3001\u5b50\u7c7b\u578b\u3001\u5bf9\u8c61\u3001\u76f4\u63a5\u91cf\u3001\u5f02\u5e38\uff09\u6307\u5b9a\u597d\u540d\u5b57\u662f\u6240\u6709\u8f6f\u4ef6\u5e94\u7528\u7a0b\u5e8f\u8981\u8868\u8ff0\u7684\u6700\u7cbe\u5de7\u7684\u4e8b\u60c5\u4e4b\u4e00\u3002\u4e2d\u7b49\u89c4\u6a21\u5230\u5927\u89c4\u6a21\u7684\u5e94\u7528\u7a0b\u5e8f\u5b58\u5728\u7740\u53e6\u4e00\u4e2a\u95ee \u9898\uff1a\u540d\u5b57\u95f4\u7684\u51b2\u7a81\uff0c\u6216\u662f\u8981\u627e\u5230\u8db3\u591f\u7684\u540c\u4e49\u8bcd\u6765\u6307\u4ee3\u76f8\u540c\u73b0\u5b9e\u4e16\u754c\u4e2d\u76f8\u4f3c\u4f46\u53c8\u6709\u522b\u7684\u6982\u5ff5\uff08\u6216\u662f\u547d\u540d\u4e00\u4e2a\u7c7b\u578b\u3001\u5b50\u7c7b\u3001\u5bf9\u8c61\u3001\u53c2\u6570\uff09\u3002\u8fd9\u91cc\u53ef\u5229\u7528\u4e0d\u91c7\u7528\u201cuse\u201d \u5b50\u53e5\uff08\u6216\u53ea\u5728\u6781\u4e3a\u53d7\u9650\u7684\u6761\u4ef6\u4e0b\u91c7\u7528\uff09\u7684\u6cd5\u5219\u3002\u5728\u8bb8\u591a\u60c5\u5f62\u4e0b\uff0c\u8fd9\u4f7f\u5f97\u53ef\u4ee5\u4e0d\u5192\u6df7\u6dc6\u7684\u98ce\u9669\u800c\u7f29\u77ed\u540d\u5b57\uff0c\u5e76\u590d\u7528\u76f8\u540c\u7684\u63cf\u8ff0\u8bcd\u3002<\/p>\n
\u9009\u62e9\u6e05\u6670\u7684\u3001\u6613\u8bfb\u7684\u3001\u6709\u610f\u4e49\u7684\u540d\u79f0\u3002<\/p>\n
\u4e0e\u5176\u5b83\u7684\u7f16\u7a0b\u8bed\u8a00\u4e0d\u540c\uff0cAda \u4e0d\u5c06\u6807\u8bc6\u7b26\u7684\u957f\u5ea6\u9650\u5236\u5728 6\uff0c8 \u6216\u8005 15 \u4e2a\u5b57\u7b26\u5185\u3002\u77ed\u540d\u5b57\u6253\u5b57\u901f\u5ea6\u5feb\u4e0d\u662f\u91c7\u7528\u5b83\u4eec\u7684\u53ef\u4ee5\u4e3a\u4eba\u63a5\u53d7\u7684\u7406\u7531\u3002\u53ea\u6709\u4e00\u4e2a\u5b57\u6bcd\u7684\u6807\u8bc6\u7b26\u901a\u5e38\u8bf4\u660e\u9009\u62e9\u4e0d\u5f53\u6216\u662f\u61d2\u60f0\u3002\u53ef\u80fd\u6709\u51e0\u4e2a\u4f8b\u5916\uff0c\u5982\u5c06 E \u4f5c\u4e3a\u81ea\u7136\u5bf9\u6570\u7684\u5e95\uff0cPi\uff0c\u4ee5\u53ca\u5176\u5b83\u5c11\u6570\u51e0\u4e2a\u6613\u8fa8\u8bc6\u7684\u60c5\u51b5\u3002<\/p>\n
\u7528\u4e0b\u5212\u7ebf\u5c06\u4e00\u4e2a\u540d\u5b57\u4e2d\u7684\u4e0d\u540c\u5355\u8bcd\u5206\u9694\u5f00\u6765\uff1a<\/p>\n
Is_Name_Valid<\/code> \u4e0d\u662f IsNameValid<\/code><\/p>\n\u91c7\u7528\u5168\u540d\u800c\u4e0d\u662f\u7f29\u5199\u3002<\/p>\n
\u53ea\u91c7\u7528\u9879\u76ee\u8ba4\u53ef\u7684\u7f29\u7565\u8bcd\u3002<\/p>\n
\u53ea\u80fd\u662f\u5728\u4e24\u79cd\u60c5\u51b5\u4e4b\u4e00\u65f6\u91c7\u7528\u7f29\u5199\uff1a\u8be5\u7f29\u5199\u5728\u5e94\u7528\u9886\u57df\u4e2d\u5f88\u666e\u904d\uff08\u5982 FFT \u4ee3\u8868\u5085\u7acb\u53f6\u53d8\u6362\uff09\u6216\u8005\u6765\u81ea\u516c\u8ba4\u7f29\u5199\u7684\u9879\u76ee\u7ea7\u5217\u8868\u3002\u5426\u5219\uff0c\u5f88\u6709\u53ef\u80fd\u4f7f\u76f8\u4f3c\u4f46\u4e0d\u76f8\u540c\u7684\u7f29\u5199\u5230\u5904\u51fa\u73b0\uff0c\u5bfc\u81f4\u4ee5\u540e\u7684\u6df7\u6dc6\u548c\u9519\u8bef\uff08\u5982\u5c06 track_identification \u7f29\u5199\u6210 trid\u3001trck_id\u3001tr_iden\u3001tid\u3001tr_ident\u7b49\uff09\u3002<\/p>\n
\u5c11\u7528\u540e\u7f00\u8bf4\u660e Ada \u6784\u9020\u7684\u5206\u7c7b\u3002\u5b83\u4eec\u4e0d\u80fd\u63d0\u9ad8\u6613\u8bfb\u6027\u3002<\/p>\n
\u901a\u5e38\u6309\u7167 Ada \u5b9e\u4f53\u7684\u7c7b\u6765\u52a0\u540e\u7f00\uff0c\u5982\u7ed9\u7a0b\u5e8f\u5305\u52a0\u4e0a _Package\uff0c\u5f02\u5e38\u52a0\u4e0a _Error\uff0c\u7c7b\u578b\u52a0\u4e0a _Type\uff0c\u4ee5\u53ca\u5b50\u7a0b\u5e8f\u7684\u53c2\u6570\u52a0\u4e0a _Param\uff0c\u5bf9\u5e2e\u52a9\u9605\u8bfb\u548c\u7406\u89e3\u4ee3\u7801\u4e0d\u662f<\/em>\u5f88\u6709\u6548\u3002 \u800c\u52a0\u4e0a\u5982 _Array\uff0c_Record \u548c _Function \u8fd9\u6837\u7684\u540e\u7f00\u5219\u66f4\u7cdf\u3002Ada \u7f16\u8bd1\u5668\u548c\u8bfb\u8005\u90fd\u53ef\u4ee5\u6839\u636e\u4e0a\u4e0b\u6587\u4ece\u5b50\u7a0b\u5e8f\u4e2d\u5206\u8fa8\u4e00\u4e2a\u5f02\u5e38\uff1a\u663e\u7136\u53ea\u6709\u5f02\u5e38\u540d\u53ef\u4ee5\u5728 raise<\/em> \u8bed\u53e5\u6216\u5f02\u5e38\u5904\u7406\u4e2d\u51fa\u73b0\u3002\u8fd9\u4e9b\u540e\u7f00\u5728\u5982\u4e0b\u53d7\u9650\u7684\u6761\u4ef6\u4e0b\u53ef\u7528\uff1a<\/p>\n\n- \u5f53\u5408\u9002\u7684\u8bcd\u7684\u9009\u62e9\u8303\u56f4\u975e\u5e38\u6709\u9650\u65f6\uff0c\u7ed9\u5bf9\u8c61\u9009\u4e00\u4e2a\u6700\u597d\u7684\u540d\u5b57\u5e76\u52a0\u4e0a\u7c7b\u578b\u7684\u540e\u7f00\u3002<\/li>\n
- \u5bf9\u4e8e\u7c7b\u5c5e\u5355\u5143,\u603b\u53ef\u4ee5\u52a0\u4e0a\u5f62\u5982 _Generic \u7684\u540e\u7f00\uff0c\u6240\u4ee5\u5bf9\u4e00\u4e9b\u6216\u8bb8\u591a\u5b9e\u4f8b\u6765\u8bf4\uff0c\u53ef\u4ee5\u4e0d\u6dfb\u52a0\u8be5\u540e\u7f00\u800c\u4f7f\u7528\u4e0e\u5176\u76f8\u540c\u7684\u540d\u5b57\u3002<\/li>\n
- \u5f53\u5b83\u8868\u793a\u4e00\u4e2a\u5e94\u7528\u9886\u57df\u7684\u6982\u5ff5\u65f6\uff0c\u5982 Aircraft_Type\u3002<\/li>\n
- \u5f53\u91cd\u8981\u7684\u8bbe\u8ba1\u51b3\u7b56\u9700\u9ad8\u5ea6\u53ef\u89c1\u65f6\uff1a<\/li>\n<\/ul>\n
\u7c7b\u5c5e\u5f62\u53c2\u7c7b\u578b\u540e\u7f00\u4e3a _Constrained<\/p>\n
\u540e\u7f00\u4e3a _Pointer \u7684\u5b58\u53d6\u7c7b\u578b\u6216\u5176\u5b83\u975e\u76f4\u63a5\u6307\u4ee3\u7684\u5f62\u5f0f\uff1a_Handle \u6216 _Reference<\/p>\n
\u901a\u8fc7 _Or_Wait \u9690\u85cf\u4e86\u53ef\u80fd\u963b\u585e\u7684\u5165\u53e3\u8c03\u7528\u7684\u5b50\u7a0b\u5e8f<\/p>\n
\u5c06\u540d\u5b57\u8868\u8ff0\u51fa\u6765\uff0c\u4f7f\u5f97\u4ece\u4f7f\u7528<\/em>\u7684\u89d2\u5ea6\u770b\uff0c\u5b83\u4eec\u8fd8\u4e0d\u9519\u3002<\/p>\n\u8bd5\u60f3\u4e00\u4e2a\u5bfc\u51fa\u5b9e\u4f53\u53ef\u5728\u5176\u4e2d\u4f7f\u7528\u7684\u4e0a\u4e0b\u6587\uff0c\u5e76\u7ad9\u5728\u90a3\u4e2a\u89d2\u5ea6\u9009\u62e9\u4e00\u4e2a\u540d\u5b57\u3002\u4e00\u4e2a\u5b9e\u4f53\u4ec5\u88ab\u5b9a\u4e49\u4e00\u6b21\uff0c\u4f46\u5374\u88ab\u4f7f\u7528\u8bb8\u591a\u6b21\u3002\u8fd9\u4e00\u70b9\u5bf9\u4e8e\u5b50\u7a0b\u5e8f\u7684\u540d\u5b57\u53ca\u5176\u53c2\u6570\u6765\u8bf4\u5c24\u4e3a\u6b63\u786e\uff1b \u4f7f\u7528\u547d\u540d\u5173\u8054\u5173\u7cfb\u7684\u7ed3\u679c\u8c03\u7528\u5e94\u5c3d\u91cf\u4e0e\u81ea\u7136\u8bed\u8a00\u76f8\u8fd1\u3002\u8bb0\u4f4f\u7f3a\u5c11\u4f7f\u7528<\/em>\u5b50\u53e5\u4f7f\u5f97\u5927\u591a\u6570\u58f0\u660e\u5b9e\u4f53\u5fc5\u987b\u5177\u6709\u53d7\u9650\u540d\u3002\u5bf9\u4e8e\u6709\u53ef\u80fd\u5728\u7c7b\u5c5e\u5355\u5143\u4e2d\u6bd4\u5728\u4eab\u7528\u6a21\u5757\u90a3\u91cc\u4f7f\u7528\u5f97\u8fd8\u591a\u7684\u7c7b\u5c5e\u5f62\u53c2\u6765\u8bf4\uff0c\u5fc5\u987b\u5bfb\u627e\u4e00\u4e2a\u597d\u7684\u534f\u8c03\u529e\u6cd5\uff0c\u4f46\u662f\u7edd\u5bf9\u8981\u4fdd\u8bc1\u5b50\u7a0b\u5e8f\u7684\u5f62\u53c2\u5728\u4eab\u7528\u6a21\u5757\u7aef\u597d\u770b\u3002<\/p>\n\u4f7f\u7528\u82f1\u6587\u5355\u8bcd\u5e76\u62fc\u5199\u6b63\u786e\u3002<\/p>\n
\u8bed\u8a00\u7684\u6df7\u5408\uff08\u5982\u6cd5\u8bed\u548c\u82f1\u8bed\uff09\u5c06\u4f7f\u4ee3\u7801\u96be\u8bfb\uff0c\u6709\u65f6\u4f7f\u6807\u8bc6\u7b26\u7684\u610f\u4e49\u6478\u68f1\u4e24\u53ef\u3002 \u65e2\u7136 Ada \u7684\u5173\u952e\u5b57\u5df2\u662f\u82f1\u6587\u7684\uff0c\u5219\u8981\u6c42\u4f7f\u7528\u82f1\u6587\u5355\u8bcd\u3002\u6700\u597d\u91c7\u7528\u7f8e\u5f0f\u62fc\u6cd5\uff0c\u4ee5\u4fbf\u5229\u7528\u201cRational \u73af\u5883\u201d\u4e2d\u5185\u7f6e\u7684\u62fc\u5199\u68c0\u67e5\u3002<\/p>\n
\u4e0d\u8981\u91cd\u65b0\u5b9a\u4e49 Standard \u7a0b\u5e8f\u5305\u4e2d\u7684\u4efb\u4f55\u5b9e\u4f53\u3002\u8fd9\u662f\u7edd\u5bf9\u7981\u6b62\u7684\u3002<\/p>\n
\u8fd9\u6837\u505a\u5c06\u4ea7\u751f\u6df7\u6dc6\u548c\u4e25\u91cd\u7684\u9519\u8bef\u3002\u8be5\u6cd5\u5219\u53ef\u5ef6\u4f38\u81f3\u5176\u5b83\u9884\u5b9a\u4e49\u7684\u5e93\u5355\u5143\uff1aCalendar\uff0cSystem\u3002\u8fd9\u4e5f\u5305\u62ec Standard<\/em> \u6807\u8bc6\u7b26\u672c\u8eab\u3002<\/p>\n\u907f\u514d\u5bf9\u5176\u5b83\u9884\u5b9a\u4e49\u7a0b\u5e8f\u5305\u4e2d\u7684\u6807\u8bc6\u7b26\u91cd\u5b9a\u4e49\uff0c\u5982 System \u6216 Calendar\u3002<\/p>\n
\u4e0d\u8981\u4f7f\u7528\u5982\u4e0b\u7684\u6807\u8bc6\u7b26\uff1aWide_Character<\/strong> \u548c Wide_String<\/strong>\uff0c\u5b83\u4eec\u5c06\u5728 Ada 95 \u7684 Standard \u7a0b\u5e8f\u5305\u4e2d\u5f15\u5165\u3002\u4e0d\u8981\u5f15\u5165\u4e00\u4e2a\u540d\u4e3a Ada<\/strong> \u7684\u7f16\u8bd1\u5355\u5143\u3002<\/p>\n\u4e0d\u8981\u4f7f\u7528\u4ee5\u4e0b\u5355\u8bcd\u4f5c\u4e3a\u6807\u8bc6\u7b26\uff1aabstract<\/strong>\uff0caliased<\/strong>\uff0cprotected<\/strong>\uff0crequeue<\/strong>\uff0ctagged<\/strong> \u548c until<\/strong>\uff0c\u5b83\u4eec\u5728 Ada 95 \u5c06\u6210\u4e3a\u5173\u952e\u5b57\u3002<\/p>\n\u4e00\u4e9b\u7ed9\u5404\u79cd Ada \u5b9e\u4f53\u7684\u547d\u540d\u5efa\u8bae\u4e5f\u662f\u540c\u6837\u3002\u5047\u5b9a\u4e00\u822c\u60c5\u5f62\u4e0b\uff0c\u201c\u9762\u5411\u5bf9\u8c61\u201d\u98ce\u683c\u7684\u8bbe\u8ba1\u53d7\u6b22\u8fce\u3002\u8be6\u60c5\u8bf7\u53c2\u89c1\u9644\u5f55 A\u3002<\/p>\n
<\/a>\u7a0b\u5e8f\u5305<\/h2>\n\u5f53\u4e00\u4e2a\u7a0b\u5e8f\u5305\u5f15\u5165\u4e86\u67d0\u4e2a\u5bf9\u8c61\u7c7b\u65f6\uff0c\u7528\u8be5\u5bf9\u8c61\u7c7b\u7684\u540d\u5b57\u547d\u540d\u7a0b\u5e8f\u5305\uff0c\u901a\u5e38\u662f\u4e00\u4e2a\u5355\u6570\u5f62\u5f0f\u7684\u540d\u8bcd\uff0c\u82e5\u9700\u8981\uff08\u5373\u5b9a\u4e49\u4e86\u4e00\u4e2a\u5e26\u53c2\u6570\u7684\u7c7b\uff09\uff0c\u53ef\u52a0\u4e0a\u540e\u7f00 _Generic\u3002\u4ec5\u5f53\u5bf9\u8c61\u603b\u4ee5\u7fa4\u4f53\u5f62\u5f0f\u51fa\u73b0\u65f6\uff0c\u624d\u91c7\u7528\u590d\u6570\u5f62\u5f0f\u3002\u4f8b\u5982\uff1a<\/p>\n
package Text is\r\npackage Line is\r\npackage Mailbox is\r\npackage Message is\r\npackage Attributes is\r\npackage Subscriber is\r\npackage List_Generic is<\/pre>\n\u82e5\u4e00\u4e2a\u7a0b\u5e8f\u5305\u8bf4\u660e\u4e86\u4e00\u4e2a\u63a5\u53e3\u6216\u8005\u529f\u80fd\u5206\u7ec4\uff0c\u5e76\u4e14\u5b83\u4e0d\u4e0e\u4efb\u4f55\u5bf9\u8c61\u76f8\u5173\uff0c\u5219\u5e94\u5728\u5b83\u7684\u540d\u5b57\u4e2d\u5c06\u8fd9\u4e00\u70b9\u8868\u8ff0\u51fa\u6765\uff1a<\/p>\n
package Low_Layer_Interface is\r\npackage Math_Definitions is<\/pre>\n\u5f53\u4e00\u4e2a\u201c\u903b\u8f91\u201d\u5305\u7528\u5e73\u9762\u5206\u89e3 (flat decomposition)\uff0c\u9700\u8981\u4f5c\u4e3a\u51e0\u4e2a\u5305\u6765\u8868\u8fbe\u65f6\uff0c\u91c7\u7528\u9879\u76ee\u7ea7\u4e00\u81f4\u7684\u5217\u8868\u4e2d\u7684\u540e\u7f00\u3002\u4f8b\u5982\uff0c\u4e00\u4e2a\u903b\u8f91\u7a0b\u5e8f\u5305 Mailbox \u53ef\u5982\u4e0b\u5b9e\u73b0\uff1a<\/p>\n
package Mailbox_Definitions is\r\npackage Mailbox_Exceptions is\r\npackage Mailbox_Io is\r\npackage Mailbox_Utilities is\r\npackage Mailbox_Implementation is\r\npackage Mailbox_Main is<\/pre>\n\u5176\u5b83\u53ef\u63a5\u53d7\u7684\u540e\u7f00\u6709\uff1a<\/p>\n
_Test_Support \r\n_Test_Main \r\n_Log \r\n_Hidden_Definitions \r\n_Maintenance \r\n_Debug<\/pre>\n<\/a>\u7c7b\u578b<\/h2>\n\u5f53\u5728\u7a0b\u5e8f\u5305\u4e2d\u5b9a\u4e49\u4e00\u4e2a\u5bf9\u8c61\u7c7b\u8574\u6db5\u62f7\u8d1d\u8bed\u4e49\u65f6 – \u5373\u5f53\u7c7b\u578b\u53ef\u5b9e\u4f8b\u5316\u5e76\u4e14\u67d0\u79cd\u5f62\u5f0f\u7684\u4efb\u52a1\u5206\u914d\u53ef\u884c\u65f6\uff0c\u91c7\u7528\uff1a<\/p>\n
type Object is ...<\/pre>\n\u6ce8\u610f\u7c7b\u540d\u4e0d\u5e94\u5728\u6807\u8bc6\u7b26\u4e2d\u91cd\u590d\uff0c\u56e0\u4e3a\u5b83\u603b\u662f\u4ee5\u5b8c\u5168\u53d7\u9650\u7684\u5f62\u5f0f\u4f7f\u7528\uff1a<\/p>\n
Mailbox.Object\r\nLine.Object<\/pre>\n\u5f53\u5305\u542b\u5171\u4eab\u8bed\u4e49\u65f6 – \u5373\u7c7b\u578b\u7528\u5b58\u53d6\u503c\uff08\u6216\u8005\u5176\u5b83\u975e\u76f4\u63a5\u7684\u5f62\u5f0f\uff09\u5b9e\u73b0\uff0c\u5e76\u4e14\u8d4b\u503c\u8bed\u53e5\uff08\u82e5\u5b58\u5728\uff09\u4e0d\u590d\u5236\u5bf9\u8c61 – \u7528\u5982\u4e0b\u65b9\u5f0f\u8bf4\u660e\uff1a<\/p>\n
UL><\/p>\n
\ntype Handle is <\/code>\u7528\u4e8e\u975e\u76f4\u63a5\u5f15\u7528<\/li>\ntype Reference is <\/code>\u662f\u4e00\u4e2a\u53ef\u884c\u7684\u5907\u7528\u65b9\u6848<\/li>\n<\/ul>\n\u8fd9\u4e9b\u5143\u7d20\u5728\u5355\u72ec\u4f7f\u7528\u65f6\u4f5c\u540e\u7f00\uff0c\u524d\u9762\u52a0\u4e0a\u5305\u540d\uff0c\u8fd9\u6837\u5e76\u4e0d\u6e05\u695a\u6216\u975e\u5e38\u6478\u68f1\u4e24\u53ef\u3002<\/p>\n
\u5f53\u8574\u6db5\u591a\u4e2a\u5bf9\u8c61\u65f6\uff0c\u91c7\u7528\uff1a<\/p>\n
\ntype Set is <\/code>\u5f53\u6697\u542b\u5143\u7d20\u7684\u7279\u6b8a\u6027\u65f6<\/li>\ntype List is <\/code>\u5f53\u5305\u542b\u67d0\u79cd\u6b21\u5e8f\u65f6<\/li>\ntype Collection is<\/code> \u5f53\u65e2\u4e0d\u542b\u96c6\u5408\u4e5f\u4e0d\u542b\u5217\u8868\u8bed\u4e49\u65f6<\/li>\ntype Iterator is<\/code> \u5f53\u63d0\u4f9b\u4e86 Initialize\uff0cValue_Of\uff0cNext\uff0cIs_Done \u7b49\u539f\u8bed\u65f6
\n\uff08\u53c2\u89c1 6.5 \u8282\uff09<\/li>\n<\/ul>\n\u5bf9\u4e8e\u67d0\u4e2a\u5bf9\u8c61\u4e32\u7684\u6307\u5b9a\uff0c\u91c7\u7528\uff1a<\/p>\n
type Name is<\/code><\/p>\n\u4e3a\u4e86\u8fbe\u5230\u66f4\u597d\u7684\u6613\u8bfb\u6027\uff0c\u7c7b\u578b\u7684\u53d7\u9650\u540d\u4e5f\u5e94\u5728\u6574\u4e2a\u5b9a\u4e49\u5305\u5185\u4f7f\u7528\u3002\u201cRational \u73af\u5883\u201d\u4e2d\uff0c\u5f53\u5728\u5b50\u7a0b\u5e8f\u8c03\u7528\u4e2d\u91c7\u7528 [Complete] \u51fd\u6570\u65f6\uff0c\u4e0a\u8ff0\u65b9\u6cd5\u4e5f\u53ef\u4f7f\u8fd0\u884c\u66f4\u52a0\u597d\u3002<\/p>\n
\u4f8b\u5982\uff0c\u6ce8\u610f\u4e0b\u9762\u7684\u5b8c\u5168\u540d Subscriber.Object\uff1a<\/p>\n
package Subscriber is\r\ntype Object is private;\r\ntype Handle is access Subscriber.Object;\r\nsubtype Name is String;\r\npackage List is new List_Generic (Subscriber.Handle);\r\nMaster_List : Subscriber.List.Handle;\r\nprocedure Create (The_Handle : out Subscriber.Handle;\r\nWith_Name : in Subscriber.Name);\r\nprocedure Append (The_Subscriber : in Subscriber.Handle;\r\nTo_List : in out Subscriber.List.Handle);\r\nfunction Name_Of (The_Subscriber : Subscriber.Handle) return\r\nSubscriber.Name;\r\n ...\r\nprivate\r\ntype Object is\r\nrecord\r\nThe_Name : Subscriber.Name (1..20);\r\n ...\r\nend Subscriber;<\/pre>\n\u5728\u5176\u5b83\u60c5\u51b5\u4e0b\uff0c\u7c7b\u540d\u91c7\u7528\u540d\u8bcd\u6216\u8005\u4fee\u9970\u7b26 + \u540d\u8bcd\u3002\u7c7b\u578b\u53ef\u7528\u590d\u6570\u5f62\u5f0f\uff0c\u5bf9\u8c61\uff08\u53d8\u91cf\uff09\u540d\u91c7\u7528\u5355\u6570\uff1a<\/p>\n
type Point is record ...\r\ntype Hidden_Attributes is ( ...\r\ntype Boxes is array ...<\/pre>\n\u5bf9\u4e8e\u679a\u4e3e\u7c7b\u578b\uff0c\u5355\u72ec\u6216\u8005\u4f5c\u4e3a\u540e\u7f00\u4f7f\u7528 Mode\uff0cKind\uff0cCode \u7b49\u5355\u8bcd\u3002<\/p>\n
\u5bf9\u4e8e\u6570\u7ec4\u7c7b\u578b\uff0c\u5f53\u5df2\u5c06\u7b80\u5355\u540d\u7528\u4e8e\u7ec4\u4ef6\u7c7b\u578b\u65f6\uff0c\u53ef\u4ee5\u91c7\u7528\u540e\u7f00 _Table\u3002\u4ec5\u5f53\u6570\u7ec4\u7528\u8574\u6db5\u8bed\u4e49\u6765\u7ef4\u62a4\u65f6\uff0c\u624d\u91c7\u7528\u8c61 _Set \u548c _List \u8fd9\u6837\u7684\u540d\u5b57\u6216\u540e\u7f00\u3002Reserve _Vector \u548c _Matrix \u5e94\u7559\u4f5c\u76f8\u5e94\u7684\u6570\u5b66\u6982\u5ff5\u4f7f\u7528\u3002<\/p>\n
\u56e0\u4e3a\u8981\u907f\u514d\u5355\u6570\u7684\u4efb\u52a1\u5bf9\u8c61\uff08\u539f\u56e0\u5728\u540e\u6587\u89e3\u91ca\uff09\uff0c\u6240\u4ee5\u5373\u4f7f\u53ea\u6709\u4e00\u4e2a\u8be5\u7c7b\u578b\u7684\u5bf9\u8c61\u65f6\uff0c\u4e5f\u5e94\u5f15\u5165\u4efb\u52a1\u7c7b\u578b\u3002\u4e0b\u9762\u662f\u4f7f\u7528\u4e86\u4e00\u4e2a\u8c61 _Type \u8fd9\u6837\u7684\u7b80\u5355\u540e\u7f00\u4e4b\u540e\u4fbf\u4ee4\u4eba\u6ee1\u610f\u7684\u4f8b\u5b50\uff1a<\/p>\n
task type Listener_Type is ...\r\nfor Listener_Type'Storage_Size use ...\r\nListener : Listener_Type;<\/pre>\n\u7c7b\u4f3c\u5730\uff0c\u5f53\u7c7b\u578b\u540d\u91c7\u7528\u540d\u8bcd\uff08\u6216\u8005\u540d\u8bcd\u77ed\u8bed\uff09\u5b58\u5728\u51b2\u7a81\u65f6\uff0c\u6216\u8005\u51e0\u5904\u7684\u5bf9\u8c61\u540d\u6216\u53c2\u6570\u540d\u6709\u51b2\u7a81\u65f6\uff0c\u5728\u8be5\u7c7b\u578b\u540d\u540e\u52a0\u4e0a\u540e\u7f00 _Kind\uff0c\u800c\u8ba9\u5bf9\u8c61\u4f7f\u7528\uff08\u65e0\u540e\u7f00\u7684\uff09\u7b80\u5355\u540d\u8bcd\uff1a<\/p>\n
type Status_Kind is (None, Normal, Urgent, Red);\r\nStatus : Status_Kind := None;<\/pre>\n\u6216\u8005\uff0c\u5bf9\u4e8e\u603b\u4ee5\u590d\u6570\u51fa\u73b0\u7684\u4e8b\u7269\u7684\u7c7b\u578b\uff0c\u91c7\u7528\u590d\u6570\u5f62\u5f0f\u3002<\/p>\n
\u56e0\u4e3a\u5b58\u53d6\u7c7b\u578b\u5b58\u5728\u56fa\u6709\u7684\u5371\u5bb3\uff0c\u6240\u4ee5\u4f7f\u7528\u8005\u5e94\u5c0f\u5fc3\u3002\u4e00\u822c\u5b83\u4eec\u53eb\u505a Pointer\u3002\u5982\u679c\u540d\u5b57\u672c\u8eab\u610f\u4e49\u8fd8\u5f88\u6478\u68f1\u4e24\u53ef\uff0c\u5219\u5e94\u52a0\u4e0a\u540e\u7f00 _pointer\u3002\u4f5c\u4e3a\u540e\u5907\u65b9\u6848\uff0c\u4e5f\u53ef\u91c7\u7528 _Access \u505a\u540e\u7f00\u3002<\/p>\n
\u6709\u65f6\u91c7\u7528\u5d4c\u5957\u5b50\u7a0b\u5e8f\u5305\u6765\u5f15\u5165\u6b21\u7ea7\u62bd\u8c61\u53ef\u4ee5\u7b80\u5316\u547d\u540d\uff1a<\/p>\n
package Subscriber is ...\r\npackage Status is\r\ntype Kind is (Ok, Deleted, Incomplete, Suspended, \r\nPrivileged);\r\nfunction Set (The_Status : Subscriber.Status.Kind;\r\nTo_Subscriber : Subscriber.Handle);\r\nend Status;\r\n ...<\/pre>\n<\/a>\u5f02\u5e38<\/h2>\n\u56e0\u4e3a\u5f02\u5e38\u53ea\u80fd\u7528\u6765\u5904\u7406\u9519\u8bef\uff0c\u6240\u4ee5\u5e94\u4f7f\u7528\u540d\u8bcd\u6216\u540d\u8bcd\u77ed\u8bed\u6765\u6e05\u695a\u8868\u8fbe\u4e00\u4e2a\u8d1f\u9762\u7684\u610f\u4e49\uff1a<\/p>\n
Overflow, Threshold_Exceeded, Bad_Initial_Value<\/pre>\n\u5f53\u5728\u4e00\u4e2a\u7c7b\u7a0b\u5e8f\u5305\u4e2d\u5b9a\u4e49\u5f02\u5e38\u65f6\uff0c\u6807\u8bc6\u7b26\u65e0\u9700\u5305\u542b\u7c7b\u540d – \u4f8b\u5982 Bad_Initial_Subscriber_Value – \u56e0\u4e3a\u5f02\u5e38\u4e00\u76f4\u88ab\u7528\u4f5c Subscriber.Bad_Initial_Value\u3002<\/p>\n
\u91c7\u7528 Bad\uff0cIncomplete\uff0cInvalid\uff0cWrong\uff0cMissing \u6216\u8005 Illegal \u4e2d\u7684\u4e00\u4e2a\u5355\u8bcd\u4f5c\u4e3a\u540d\u5b57\u7684\u4e00\u90e8\u5206\uff0c\u800c\u4e0d\u662f\u7cfb\u7edf\u5730\u91c7\u7528\u4e0d\u4f20\u8fbe\u4efb\u4f55\u8be6\u7ec6\u4fe1\u606f\u7684 Error\uff1a<\/p>\n
Illegal_Data, Incomplete_Data<\/pre>\n<\/a>\u5b50\u7a0b\u5e8f<\/h2>\n\u8fc7\u7a0b\uff08\u548c\u4efb\u52a1\u5165\u53e3\uff09\u91c7\u7528\u52a8\u8bcd\u3002\u51fd\u6570\u540d\u91c7\u7528\u5e26\u6709\u5bf9\u8c61\u7c7b\u5c5e\u6027\u6216\u7279\u5f81\u7684\u540d\u8bcd\u3002\u8fd4\u56de\u5e03\u5c14\u503c\uff08\u8c13\u8bcd\uff09\u7684\u51fd\u6570\u4f7f\u7528\u5f62\u5bb9\u8bcd\uff08\u6216\u8fc7\u53bb\u5206\u8bcd\uff09\u3002<\/p>\n
Subscriber.Create\r\nSubscriber.Destroy\r\nSubscriber.List.Append\r\nSubscriber.First_Name -- Returns a string.\r\nSubscriber.Creation_Date -- Returns a date.\r\nSubscriber.List.Next\r\nSubscriber.Deleted -- Returns a Boolean.\r\nSubscriber.Unavailable -- Returns a Boolean.\r\nSubscriber.Remote<\/pre>\n\u5bf9\u4e8e\u8c13\u8bcd\uff0c\u5728\u4e00\u4e9b\u60c5\u51b5\u4e0b\u7ed9\u540d\u8bcd\u524d\u9762\u52a0\u4e0a\u524d\u7f00 Is_ \u6216 Has_ \u6216\u8bb8\u6709\u5e2e\u52a9\uff1b\u65f6\u6001\u8981\u51c6\u786e\u548c\u4e00\u81f4\uff1a<\/p>\n
function Has_First_Name ...\r\nfunction Is_Administrator ...\r\nfunction Is_First...\r\nfunction Was_Deleted ...<\/pre>\n\u5f53\u7b80\u5355\u540d\u79f0\u5df2\u4f5c\u4e3a\u7c7b\u578b\u540d\u6216\u679a\u4e3e\u578b\u76f4\u63a5\u91cf\u65f6\uff0c\u4e0a\u8ff0\u65b9\u6cd5\u6709\u7528\u3002<\/p>\n
\u8c13\u8bcd\u5e94\u4f7f\u7528\u80af\u5b9a\u5f0f\uff0c\u4e5f\u5c31\u662f\u8bf4\uff0c\u5176\u4e2d\u4e0d\u5e94\u542b\u6709\u201cNot_\u201d\u4e00\u8bcd\u3002<\/p>\n
\u5bf9\u4e8e\u666e\u901a\u64cd\u4f5c\uff0c\u7edf\u4e00\u4ece\u9879\u76ee\u53ef\u9009\u5217\u8868\uff08\u5217\u8868\u968f\u7740\u6211\u4eec\u5bf9\u7cfb\u7edf\u8ba4\u8bc6\u7684\u52a0\u6df1\u800c\u6269\u5c55\uff09\u4e2d\u9009\u62e9\u52a8\u8bcd\uff1a<\/p>\n
Create\r\nDelete\r\nDestroy\r\nInitialize\r\nAppend\r\nRevert\r\nCommit\r\nShow, Display<\/pre>\n\u8c13\u8bcd\u51fd\u6570\u548c\u5e03\u5c14\u578b\u7684\u53c2\u6570\u91c7\u7528\u80af\u5b9a\u5f0f\u3002\u5426\u5b9a\u5f0f\u7684\u540d\u5b57\u53ef\u80fd\u4ea7\u751f\u53cc\u91cd\u5426\u5b9a\uff08\u4f8b\u5982 Not Is_Not_Found\uff09\uff0c\u4ece\u800c\u4f7f\u4ee3\u7801\u96be\u8bfb\u3002<\/p>\n
function Is_Not_Valid (...) return Boolean\r\nprocedure Find_Client (With_The_Name : in Name;\r\nNot_Found : out Boolean)<\/pre>\n\u5e94\u5b9a\u4e49\u6210\uff1a<\/p>\n
function Is_Valid (...) return Boolean;\r\nprocedure Find_Client (With_The_Name: in Name;\r\nFound: out Boolean)<\/pre>\n\u8fd9\u624d\u8ba9\u4eab\u7528\u6a21\u5757\u6309\u5176\u6240\u9700\u7684\u90a3\u6837\u5b9e\u73b0\u4e86\u8868\u8fbe\u5f0f\u7684\u5426\u5b9a\uff08\u8fd9\u6837\u505a\u4e0d\u4f1a\u5bfc\u81f4\u8fd0\u884c\u65f6\u95f4\u5ef6\u957f\uff09\uff1a<\/p>\n
if not Is_Valid (...) then ....<\/pre>\n\u6709\u4e9b\u60c5\u51b5\u4e0b\uff0c\u901a\u8fc7\u4f7f\u7528\u53cd\u4e49\u8bcd\uff0c\u5982\u7528\u201cIs_Invalid\u201d\u6765\u4ee3\u66ff\u201cIs_Not_Valid\u201d\uff0c\u53ef\u4ee5\u4f7f\u5426\u5b9a\u8c13\u8bcd\u5728\u4e0d\u6539\u53d8\u8bed\u4e49\u7684\u60c5\u51b5\u4e0a\u53d8\u6210\u80af\u5b9a\u5f0f\u3002\u4f46\u662f\uff0c\u80af\u5b9a\u5f0f\u7684\u540d\u5b57\u66f4\u6613\u8bfb\uff1a \u201cIs_Valid\u201d\u6bd4\u201cnot Is_Invalid\u201d\u66f4\u6613\u7406\u89e3\u3002<\/p>\n
\u5f53\u8574\u6db5\u7740\u5927\u81f4\u76f8\u540c\u7684\u610f\u4e49\u65f6\uff0c\u91c7\u7528\u76f8\u540c\u7684\u5355\u8bcd\uff0c\u800c\u4e0d\u662f\u5bfb\u627e\u540c\u4e49\u8bcd\u6216\u53d8\u4f53\u3002\u56e0\u6b64\uff0c\u9f13\u52b1\u4f7f\u7528\u91cd\u8f7d\u6765\u63d0\u9ad8\u4ee3\u7801\u7684\u4e00\u81f4\u6027\uff0c\u9075\u5faa\u6700\u5c0f\u9650\u5ea6\u610f\u5916\u539f\u5219\u3002<\/p>\n
\u82e5\u5b50\u7a0b\u5e8f\u88ab\u7528\u505a\u5165\u53e3\u8c03\u7528\u7684\u201c\u5916\u8868\u201d (skins) \u6216\u8005\u201c\u5305\u88c5\u201d (wrappers)\uff0c\u5219\u7ed9\u5176\u540d\u5b57\u52a8\u8bcd\u52a0\u4e0a\u540e\u7f00 _Or_Wait\uff0c\u6216\u8005\u7ed9\u51fd\u6570\u53d6\u4e2a Wait_For_ \u77ed\u8bed\u52a0\u540d\u8bcd\u7684\u540d\u5b57\u6765\u53cd\u6620\u8fd9\u4e00\u70b9\uff0c\u8fd9\u6837\u53ef\u80fd\u6709\u7528\uff1a<\/p>\n
Subscriber.Get_Reply_Or_Wait\r\nSubscriber.Wait_For_Reply<\/pre>\n\u4e00\u4e9b\u64cd\u4f5c\u5e94\u4e00\u76f4\u4f7f\u7528\u76f8\u540c\u7684\u540d\u5b57\u6765\u7edf\u4e00\u5b9a\u4e49\uff1a<\/p>\n
\u5bf9\u4e8e\u8f6c\u6362\u5230\u5b57\u4e32\u548c\u4ece\u5b57\u4e32\u8f6c\u6362\u6765\u7684\u7c7b\u578b\u53d8\u6362\uff0c\u5bf9\u79f0\u51fd\u6570\u662f\uff1a<\/p>\n
function Image and function Value<\/pre>\n\u5bf9\u4e8e\u8f6c\u6362\u5230\u4f4e\u7ea7\u8868\u793a\u6cd5\uff08\u5982\u7528\u4e8e\u6570\u636e\u4ea4\u6362\u7684 Byte_String\uff09\u548c\u4ece\u4f4e\u7ea7\u8868\u793a\u6cd5\u8f6c\u6362\u8fc7\u6765\u7684\u7c7b\u578b\u53d8\u6362\uff0c\u5bf9\u79f0\u8fc7\u7a0b\u662f\uff1a<\/p>\n
procedure Read and Write<\/pre>\n\u5bf9\u4e8e\u5206\u914d\u6570\u636e\uff1a<\/p>\n
function Allocate (rather than Create)\r\nfunction Destroy (or Release, to express that the object will disappear)<\/pre>\n\u5f53\u7cfb\u7edf\u5730\u5904\u7406\u5b83\u4eec\u65f6\u91c7\u7528\u7edf\u4e00\u7684\u547d\u540d\uff0c\u7c7b\u578b\u5408\u6210\u5c06\u5bb9\u6613\u8bb8\u591a\u3002<\/p>\n
\u5bf9\u4e8e\u6d3b\u52a8\u7684\u8fed\u4ee3\u7a0b\u5e8f\uff0c\u5fc5\u987b\u5b9a\u4e49\u4ee5\u4e0b\u539f\u8bed\uff1a<\/p>\n
Initialize\r\nNext\r\nIs_Done\r\nValue_Of<\/pre>\n\u82e5\u53ef\u884c\uff0c\u8fd8\u8981\u5b9a\u4e49 Reset<\/code>\u3002\u82e5\u8981\u5728\u76f8\u540c\u7684\u4f5c\u7528\u57df\u8303\u56f4\u5185\u5f15\u5165\u51e0\u4e2a\u8fed\u4ee3\u7c7b\u578b\uff0c\u90a3\u4e48\u5e94\u91cd\u8f7d\u8fd9\u4e9b\u539f\u8bed\uff0c\u800c\u4e0d\u662f\u4e3a\u6bcf\u4e2a\u8fed\u4ee3\u7a0b\u5e8f\u5206\u522b\u5f15\u5165\u4e00\u5957\u5404\u4e0d\u76f8\u540c\u7684\u6807\u8bc6\u7b26\u3002\u53c2\u89c1 [BOO87]<\/a>\u3002<\/p>\n\u5f53\u91c7\u7528 Ada \u9884\u786e\u5b9a\u5c5e\u6027\u4f5c\u4e3a\u51fd\u6570\u540d\u65f6\uff0c\u8981\u4fdd\u8bc1\u5176\u7528\u6cd5\u4e0e\u4e00\u822c\u7684\u8bed\u4e49\u76f8\u540c\uff1a’First\uff0c’Last\uff0c’Length\uff0c’Image\uff0c’Value\uff0c\u7b49\u7b49\u3002 \u6ce8\u610f\uff0c\u51e0\u4e2a\u5c5e\u6027\uff08\u5982 ‘Range \u548c ‘Delta\uff09\u662f\u4e0d\u80fd\u7528\u505a\u51fd\u6570\u540d\u7684\uff0c\u56e0\u4e3a\u5b83\u4eec\u662f\u4fdd\u7559\u5b57\u3002<\/p>\n
<\/a>\u5bf9\u8c61\u548c\u5b50\u7a0b\u5e8f\uff08\u6216\u5165\u53e3\uff09\u53c2\u6570<\/h2>\n\u4e3a\u8868\u660e\u5176\u552f\u4e00\u6027\u6216\u662f\u8868\u660e\u8be5\u5b9e\u4f53\u662f\u6d3b\u52a8\u7684\u4e3b\u8981\u805a\u96c6\u5904\uff0c\u5728\u5bf9\u8c61\u6216\u53c2\u6570\u540d\u79f0\u524d\u52a0\u524d\u7f00\u201cThe\u201d\u6216\u201cThis\u201d\u3002\u8981\u8bf4\u660e\u4e00\u4e2a\u6b21\u8981\u3001\u4e34\u65f6\u3001\u8f85\u52a9\u7684\u5bf9\u8c61\uff0c\u5219\u52a0\u524d\u7f00\u201cA_\u201d\u6216\u201cCurrent_\u201d\uff1a<\/p>\n
procedure Change_Name (The_Subscriber : in Subscriber.Handle;\r\nThe_Name : in Subscriber.Name );\r\ndeclare\r\nA_Subscriber : Subscriber.Handle := Subscriber.First;\r\nbegin\r\n ...\r\nA_Subscriber := Subscriber.Next (The_Subscriber);\r\nend;<\/pre>\n\u5bf9\u4e8e\u5e03\u5c14\u578b\u7684\u5bf9\u8c61\uff0c\u91c7\u7528\u80af\u5b9a\u5f0f\u7684\u8c13\u8bcd\u5b50\u53e5\uff1a<\/p>\n
Found_It\r\nIs_Available<\/pre>\n\u4f46\u662f\uff1a<\/p>\n
Is_Not_Available<\/code> \u5fc5\u987b\u907f\u514d\u3002<\/p>\n\u5bf9\u4e8e\u4efb\u52a1\u5bf9\u8c61\uff0c\u5e94\u91c7\u7528\u4e00\u4e2a\u8574\u6db5\u4e86\u6d3b\u52a8\u5b9e\u4f53\u7684\u540d\u8bcd\u6216\u8005\u540d\u8bcd\u77ed\u8bed\uff1a<\/p>\n
Listener\r\nResource_Manager\r\nTerminal_Driver<\/pre>\n
\u57fa\u672c\u539f\u5219<\/a>
\n\u5047\u8bbe<\/a>
\n\u6307\u5357\u5206\u7c7b<\/a>
\n\u6700\u6839\u672c\u7684\u539f\u5219<\/a><\/h4>\n\u4ee3\u7801\u5e03\u5c40<\/a><\/h3>\n\u6982\u8ff0<\/a>
\n\u5b57\u6bcd\u5927\u5c0f\u5199<\/a>
\n\u7f29\u8fdb<\/a>
\n\u884c\u7684\u957f\u5ea6\u4e0e\u884c\u7684\u5206\u9694<\/a>
\n\u5bf9\u9f50<\/a><\/h4>\n\u6ce8\u91ca<\/a><\/h3>\n\u6982\u8ff0<\/a>
\n\u6ce8\u91ca\u7528\u6cd5\u6307\u5357<\/a><\/h4>\n\u547d\u540d\u7ea6\u5b9a<\/a><\/h3>\n\u6982\u8ff0<\/a>
\n\u7a0b\u5e8f\u5305<\/a>
\n\u7c7b\u578b<\/a>
\n\u5f02\u5e38<\/a>
\n\u5b50\u7a0b\u5e8f<\/a>
\n\u5bf9\u8c61\u548c\u5b50\u7a0b\u5e8f\uff08\u6216\u5165\u53e3\uff09\u53c2\u6570<\/a>
\n\u7c7b\u5c5e\u5355\u5143<\/a>
\n\u5b50\u7cfb\u7edf\u7684\u547d\u540d\u7b56\u7565<\/a><\/h4>\n\u7c7b\u578b\u3001\u5bf9\u8c61\u548c\u7a0b\u5e8f\u5355\u5143\u7684\u58f0\u660e<\/a><\/h3>\n\u679a\u4e3e\u7c7b\u578b<\/a>
\n\u6570\u503c\u7c7b\u578b<\/a>
\n\u5b9e\u578b<\/a>
\n\u8bb0\u5f55\u7c7b\u578b<\/a>
\n\u5b58\u53d6\u7c7b\u578b<\/a>
\n\u79c1\u6709\u7c7b\u578b<\/a>
\n\u6d3e\u751f\u7c7b\u578b<\/a>
\n\u5bf9\u8c61\u58f0\u660e<\/a>
\n\u5b50\u7a0b\u5e8f\u548c\u7c7b\u5c5e\u5355\u5143<\/a><\/h4>\n\u8868\u8fbe\u5f0f\u548c\u8bed\u53e5<\/a><\/h3>\n\u8868\u8fbe\u5f0f<\/a>
\n\u8bed\u53e5<\/a>
\n\u7f16\u7801\u63d0\u793a<\/a><\/h4>\n\u53ef\u89c1\u6027\u95ee\u9898<\/a><\/h3>\n\u91cd\u8f7d\u548c\u540c\u5f62\u5f02\u4e49\u5b57<\/a>
\n\u4e0a\u4e0b\u6587\u5b50\u53e5<\/a>
\n\u91cd\u547d\u540d<\/a>
\n\u5173\u4e8e Use \u5b50\u53e5\u7684\u8bf4\u660e<\/a><\/h4>\n\u7a0b\u5e8f\u7ed3\u6784\u548c\u7f16\u8bd1\u95ee\u9898<\/a><\/h3>\n\u7a0b\u5e8f\u5305\u7684\u5206\u89e3<\/a>
\n\u58f0\u660e\u90e8\u5206\u7684\u7ed3\u6784<\/a>
\n\u4e0a\u4e0b\u6587\u5b50\u53e5<\/a>
\n\u786e\u7acb\u987a\u5e8f<\/a><\/h4>\n\u5e76\u884c<\/a><\/h3>\n\u9519\u8bef\u5904\u7406\u4e0e\u5f02\u5e38<\/a><\/h3>\n\u4f4e\u7ea7\u7f16\u7a0b<\/a><\/h3>\n\u8868\u793a\u5b50\u53e5\u548c\u5c5e\u6027<\/a>
\n\u65e0\u68c0\u67e5\u8f6c\u6362<\/a><\/h4>\n\u603b\u7ed3<\/a><\/h3>\n\u53c2\u8003\u6587\u732e<\/a><\/h3>\n\u8bcd\u6c47\u8868<\/a><\/h3>\n
\n<\/a>\u7b2c\u4e00\u7ae0<\/em><\/h2>\n\u5173\u4e8e\u672c\u6587\u6863<\/h1>\n
\u672c\u6587\u6863 Rational Unified Process – Ada \u7f16\u7a0b\u6307\u5357<\/em>\u662f\u4e00\u4e2a\u6807\u51c6\u7684\u6a21\u677f\uff0c\u4f60\u7684\u5f00\u53d1\u7ec4\u7ec7\u53ef\u4f9d\u6b64\u6d3e\u751f\u51fa\u4e00\u5957\u7a0b\u5e8f\u8bbe\u8ba1\u6807\u51c6\u3002\u8be5\u6307\u5357\u8be6\u7ec6\u8bf4\u660e\u4e86\u5e94\u5982\u4f55\u7f16\u5199 Ada \u7a0b\u5e8f\u3002\u672c\u6587\u670d\u52a1\u7684\u5bf9\u8c61\u662f\u6240\u6709\u5c06 Ada \u4f5c\u4e3a\u5b9e\u65bd\u8bed\u8a00\u6216\u8005\u4e00\u79cd\u8bf4\u660e\u63a5\u53e3\u6216\u6570\u636e\u7ed3\u6784\u7684\u8bbe\u8ba1\u8bed\u8a00\u7684\u5e94\u7528\u8f6f\u4ef6\u8bbe\u8ba1\u8005\u548c\u5f00\u53d1\u8005\u3002<\/p>\n\u6587\u4e2d\u6240\u63cf\u8ff0\u7684\u89c4\u5219\u56ca\u62ec\u4e86\u7a0b\u5e8f\u8bbe\u8ba1\u7684\u5927\u90e8\u5206\u65b9\u9762\u3002\u901a\u7528\u89c4\u5219\u9002\u7528\u4e8e\u7a0b\u5e8f\u5e03\u5c40\u3001\u547d\u540d\u7ea6\u5b9a\u548c\u6ce8\u91ca\u5e94\u7528\u3002\u7279\u6b8a\u89c4\u5219\u9002\u7528\u4e8e\u9009\u5b9a\u7684 Ada \u7279\u6027\uff0c\u5e76\u8bf4\u660e\u4e86\u7981\u7528\u6784\u9020\u3001\u63a8\u8350\u4f7f\u7528\u6a21\u5f0f\u548c\u7528\u4ee5\u63d0\u9ad8\u7a0b\u5e8f\u8d28\u91cf\u7684\u901a\u7528\u6280\u5de7\u3002<\/p>\n
\u9879\u76ee\u7684\u8bbe\u8ba1<\/em>\u6307\u5357\u548c\u5f53\u524d\u7684\u7f16\u7a0b<\/em>\u6307\u5357\u6709\u4e00\u5b9a\u7684\u91cd\u590d\uff0c\u662f\u6709\u610f\u8fd9\u6837\u505a\u7684\u3002\u4ecb\u7ecd\u7684\u8bb8\u591a\u7a0b\u5e8f\u8bbe\u8ba1\u89c4\u5219\uff0c\u5c24\u5176\u662f\u5728\u547d\u540d\u7ea6\u5b9a<\/em>\u4e2d\u7684\u89c4\u5219\uff0c\u7528\u4e8e\u79ef\u6781\u652f\u6301\u548c\u52a0\u5f3a\u8f6f\u4ef6\u8bbe\u8ba1\u4e2d\u7684\u9762\u5411\u5bf9\u8c61<\/em>\u65b9\u5f0f\u3002<\/p>\n\u6307\u5357\u6700\u521d\u7528\u4e8e Ada 83\u3002\u5b83\u542b\u6709\u4e0e Ada 95 \u517c\u5bb9\u7684\u89c4\u5219\uff0c\u4f46\u4e0d\u542b\u6709\u6539\u7248\u540e\u8bed\u8a00\u6807\u51c6\u65b0\u7279\u6027\u7684\u4f7f\u7528\u6307\u5357\uff0c\u4f8b\u5982\u6807\u8bc6\u7c7b\u578b\u3001\u5b50\u5355\u5143\u6216\u5c0f\u6570\u7c7b\u578b\u3002<\/p>\n
\u6587\u6863\u5927\u81f4\u6309\u7167 Ada Reference Manual \u7684\u7ed3\u6784\u6765\u7ec4\u7ec7 [ISO 8052]<\/a>\u3002<\/p>\n\u7b2c\u4e8c\u7ae0\u201c\u7b80\u4ecb<\/em>\u201d\u89e3\u91ca\u4e86\u6307\u5357\u6240\u57fa\u4e8e\u7684\u57fa\u672c\u539f\u7406\u5e76\u4ecb\u7ecd\u4e86\u6307\u5357\u5206\u7c7b\u3002<\/p>\n\u7b2c\u4e09\u7ae0\u201c\u4ee3\u7801\u5e03\u5c40<\/em>\u201d\u8bb2\u8ff0\u4e86\u7a0b\u5e8f\u6587\u672c\u7684\u4e00\u822c\u89c6\u89c9\u7ec4\u7ec7\u7ed3\u6784\u3002<\/p>\n\u7b2c\u56db\u7ae0\u201c\u6ce8\u91ca<\/em>\u201d\u7ed9\u51fa\u4e86\u5982\u4f55\u7528\u7ed3\u6784\u5316\u7684\u3001\u53ef\u7528\u7684\u548c\u53ef\u7ef4\u62a4\u7684\u65b9\u5f0f\u6765\u6ce8\u91ca\u8bf4\u660e\u4ee3\u7801\u3002<\/p>\n\u7b2c\u4e94\u7ae0\u201c\u547d\u540d\u7ea6\u5b9a<\/em>\u201d\u7ed9\u51fa\u6709\u5173\u547d\u540d\u8bed\u8a00\u5b9e\u4f53\u7684\u4e00\u822c\u89c4\u5219\u548c\u8303\u4f8b\u3002\u8fd9\u4e00\u7ae0\u7684\u5185\u5bb9\u5e94\u518d\u7ecf\u4fee\u6539\uff0c\u4ee5\u6ee1\u8db3\u7279\u5b9a\u9879\u76ee\u6216\u673a\u6784\u7684\u9700\u8981\u3002<\/p>\n\u7b2c\u516d\u7ae0\u201c\u58f0\u660e<\/em>\u201d\u548c\u7b2c\u4e03\u7ae0\u201c\u8868\u8fbe\u5f0f\u548c\u8bed\u53e5<\/em>\u201d\u5bf9\u6bcf\u79cd\u8bed\u8a00\u7ed3\u6784\u7ed9\u51fa\u4e86\u8fdb\u4e00\u6b65\u7684\u5efa\u8bae\u3002<\/p>\n\u7b2c\u516b\u7ae0\u201c\u53ef\u89c6\u6027\u95ee\u9898<\/em>\u201d\u548c\u7b2c\u4e5d\u7ae0\u201c\u7a0b\u5e8f\u7ed3\u6784\u548c\u7f16\u8bd1\u95ee\u9898<\/em>\u201d\u7ed9\u51fa\u4e86\u6709\u5173\u5168\u5c40\u6784\u5efa\u548c\u7a0b\u5e8f\u7ec4\u6210\u7684\u6307\u5bfc\u3002<\/p>\n\u7b2c\u5341\u7ae0\u201c\u5e76\u884c<\/em>\u201d\u5904\u7406\u8bed\u8a00\u4e2d\u6709\u5173\u4f7f\u7528\u4efb\u52a1\u548c\u65f6\u95f4\u76f8\u5173\u7279\u6027\u7684\u4e13\u95e8\u95ee\u9898\u3002<\/p>\n\u7b2c\u5341\u4e00\u7ae0\u201c\u9519\u8bef\u5904\u7406\u548c\u5f02\u5e38<\/em>\u201d\u7ed9\u51fa\u5982\u4f55\u7cfb\u7edf\u5730\u3001\u7b80\u4fbf\u5730\u4f7f\u7528\u6216\u4e0d\u4f7f\u7528\u5f02\u5e38\u6765\u5904\u7406\u9519\u8bef\u3002<\/p>\n\u7b2c\u5341\u4e8c\u7ae0\u201c\u4f4e\u7ea7\u7f16\u7a0b<\/em>\u201d\u5904\u7406\u8868\u793a\u5b50\u53e5\u7684\u95ee\u9898\u3002<\/p>\n\u7b2c\u5341\u4e09\u7ae0\u201c\u603b\u7ed3<\/em>\u201d\u627c\u8981\u590d\u8ff0\u4e86\u6700\u4e3a\u91cd\u8981\u7684\u6307\u5bfc\u65b9\u9488\u3002<\/p>\n\u672c\u6587\u6863\u53d6\u4ee3\u4e86 Ada Guidelines: Recommendation for Designers and programmers<\/em> \u4e2d\u7684 Application Note #15, Rational, Santa Clara, CA., 1990\u3002<\/p>\n
\n<\/a>\u7b2c\u4e8c\u7ae0<\/em><\/h2>\n\u7b80\u4ecb<\/h1>\n\u57fa\u672c\u539f\u5219<\/h2>\n
Ada \u8bed\u8a00\u7684\u8bbe\u8ba1\u5f88\u6709\u9488\u5bf9\u6027\u7684\u76ee\u7684\u5c31\u662f\u652f\u6301\u9ad8\u8d28\u91cf\u3001\u53ef\u9760\u3001\u53ef\u590d\u7528\u548c\u53ef\u79fb\u690d\u8f6f\u4ef6 [ISO 87, sect. 1.3]<\/a>\u3002\u7136\u800c\uff0c\u6ca1\u6709\u54ea\u4e00\u79cd\u8bed\u8a00\u4ec5\u9760\u5176\u672c\u8eab\u5c31\u53ef\u4ee5\u5b9e\u73b0\u4e0a\u8ff0\u76ee\u6807\u3002\u7a0b\u5e8f\u8bbe\u8ba1\u5fc5\u987b\u662f\u4e00\u4e2a\u6709\u826f\u597d\u89c4\u8303\u7684\u8fc7\u7a0b\u7684\u4e00\u90e8\u5206\u3002<\/p>\n\u6e05\u695a\u660e\u767d\u7684 Ada \u6e90\u4ee3\u7801\u662f\u672c\u6587\u4e2d\u5927\u591a\u6570\u6307\u5bfc\u65b9\u9488\u7684\u4e3b\u8981\u76ee\u6807\u3002\u8fd9\u4e00\u70b9\u662f\u5b9e\u73b0\u53ef\u9760\u6027\u548c\u53ef\u7ef4\u62a4\u6027\u7684\u4e3b\u8981\u56e0\u7d20\u3002\u6240\u8c13\u6e05\u695a\u660e\u767d\u7684\u4ee3\u7801\u53ef\u4ee5\u4ece\u4ee5\u4e0b\u4e09\u6761\u7b80\u5355\u7684\u57fa\u672c\u539f\u5219\u4e0a\u6765\u7406\u89e3\u3002<\/p>\n
\u6700\u5c0f\u9650\u5ea6\u7684\u610f\u5916<\/h3>\n
\u5728\u5176\u751f\u547d\u671f\u5185\uff0c\u4ee3\u7801\u66f4\u591a\u5730\u662f\u88ab\u8bfb\uff0c\u800c\u4e0d\u662f\u88ab\u5199\uff0c\u5c24\u5176\u662f\u5b83\u7684\u8bf4\u660e\u90e8\u5206\u3002\u7406\u60f3\u60c5\u51b5\u4e0b\uff0c\u4ee3\u7801\u8bfb\u8d77\u6765\u5e94\u8be5\u8c61\u4e00\u7bc7\u8bf4\u660e\u5b83\u505a\u4e86\u4ec0\u4e48\u7684\u82f1\u6587\u63cf\u8ff0\uff0c\u5b83\u5177\u6709\u4e00\u4e2a\u9644\u52a0\u4f18\u70b9\u662f\u53ef\u4ee5\u6267\u884c\u3002 \u7a0b\u5e8f\u66f4\u591a\u662f\u4e3a\u4eba\u7f16\u5199\uff0c\u800c\u4e0d\u662f\u4e3a\u8ba1\u7b97\u673a\u7f16\u5199\u3002\u9605\u8bfb\u7f16\u7801\u662f\u4e00\u4e2a\u590d\u6742\u7684\u8111\u529b\u8fc7\u7a0b\uff0c\u5b83\u53ef\u901a\u8fc7\u7edf\u4e00\u6807\u51c6\u6765\u7b80\u5316\uff0c\u5728\u672c\u6587\u4e2d\u8fd9\u4e00\u6307\u5bfc\u4e5f\u53eb\u201c\u6700\u5c0f\u9650\u5ea6\u610f\u5916\u539f\u5219<\/em>\u201d\u3002\u6574\u4e2a\u9879\u76ee\u4e2d\u7edf\u4e00\u6837\u5f0f\u662f\u8f6f\u4ef6\u5f00\u53d1\u56e2\u961f\u5728\u7f16\u7a0b\u6807\u51c6\u4e0a\u8fbe\u6210\u4e00\u81f4\u7684\u4e3b\u8981\u539f\u56e0\uff0c\u5b83\u4e0d\u5e94\u89c6\u4e3a\u4e00\u79cd\u60e9\u7f5a\u6216\u5bf9\u521b\u9020\u6027\u548c\u751f\u4ea7\u529b\u7684\u963b\u788d\u3002<\/p>\n\u5355\u70b9\u7ef4\u62a4<\/h3>\n
\u8fd9\u4e00\u6307\u5bfc\u6240\u57fa\u4e8e\u7684\u53e6\u4e00\u4e2a\u91cd\u8981\u539f\u5219\u662f\u5355\u70b9\u7ef4\u62a4\u539f\u5219<\/em>\u3002\u5e94\u5c3d\u91cf\u4f7f\u8bbe\u8ba1\u51b3\u7b56\u53ea\u5728 Ada \u6e90\u7801\u4e2d\u7684\u4e00\u5904\u8868\u8ff0\uff0c\u5b83\u7684\u591a\u6570\u7ed3\u8bba\u5e94\u7a0b\u5e8f\u5316\u5730\u4ece\u8be5\u5904\u6d3e\u751f\u51fa\u6765\u3002\u4e0d\u9075\u5b88\u8fd9\u4e00\u539f\u5219\u4f1a\u4e25\u91cd\u5f71\u54cd\u4ee3\u7801\u7684\u53ef\u7ef4\u62a4\u6027\u3001\u53ef\u9760\u6027\u548c\u53ef\u7406\u89e3\u6027\u3002<\/p>\n\u6700\u5c0f\u9650\u5ea6\u7684\u5e72\u6270<\/h3>\n
\u6700\u540e\uff0c\u4f5c\u4e3a\u6613\u8bfb\u6027\u7684\u4e3b\u8981\u4f5c\u7528\u56e0\u7d20\uff0c\u91c7\u7528\u6700\u5c0f\u5e72\u6270\u539f\u5219<\/em>\u3002\u5373\u907f\u514d\u5c06\u6e90\u4ee3\u7801\u4e0e\u89c6\u89c9\u201c\u5e72\u6270\u201d\u76f8\u6df7\u5408\uff1a\u5373\u680f\u3001\u6846\u4ee5\u53ca\u5176\u5b83\u4f4e\u4fe1\u606f\u91cf\u7684\u6587\u672c\u6216\u662f\u5bf9\u7406\u89e3\u8f6f\u4ef6\u529f\u80fd\u6ca1\u6709\u5e2e\u52a9\u7684\u4fe1\u606f\u3002<\/p>\n\u53ef\u79fb\u690d\u6027\u548c\u53ef\u590d\u7528\u6027\u4e5f\u662f\u5236\u5b9a\u8bb8\u591a\u6307\u5bfc\u65b9\u9488\u7684\u539f\u7531\u3002\u4ee3\u7801\u5e94\u53ef\u79fb\u690d\u5230\u4e0d\u540c\u76ee\u6807\u8ba1\u7b97\u673a\u7684\u51e0\u4e2a\u4e0d\u540c\u7f16\u8bd1\u5668\u4e0a\uff0c\u5e76\u6700\u7ec8\u79fb\u690d\u5230\u4e00\u4e2a\u66f4\u9ad8\u7ea7\u7684 Ada \u7248\u672c\u201cAda 95\u201d\u4e0a [PLO92,<\/a> TAY92]<\/a>\u3002<\/p>\n<\/a>\u5047\u8bbe<\/h2>\n\u8fd9\u91cc\u7684\u6307\u5bfc\u65b9\u9488\u6709\u51e0\u4e2a\u57fa\u672c\u5047\u8bbe\uff1a<\/p>\n
\u8bfb\u8005\u4e86\u89e3 Ada\u3002<\/h3>\n
\u5e94\u9f13\u52b1\u5728\u4efb\u4f55\u53ef\u5e26\u6765\u597d\u5904\u7684\u5730\u65b9\u4f7f\u7528 Ada \u7684\u9ad8\u7ea7\u7279\u6027\uff0c\u800c\u4e0d\u8981\u4ec5\u4ec5\u56e0\u4e3a\u4e00\u4e9b\u7a0b\u5e8f\u5458\u4e0d\u719f\u6089\u5b83\u4eec\u800c\u53cd\u5bf9\u91c7\u7528\u3002 \u8fd9\u662f\u9879\u76ee\u80fd\u4ece\u4f7f\u7528 Ada \u4e2d\u771f\u6b63\u83b7\u76ca\u7684\u552f\u4e00\u65b9\u5f0f\u3002Ada \u4e0d\u5e94\u8c61 Pascal \u6216 FORTRAN \u8bed\u8a00\u90a3\u6837\u4f7f\u7528\u3002\u4e0d\u9f13\u52b1\u5728\u6ce8\u91ca\u4e2d\u89e3\u91ca\u4ee3\u7801\uff1b\u76f8\u53cd\uff0cAda \u672c\u8eab\u5e94\u5c3d\u53ef\u80fd\u5730\u53d6\u4ee3\u6ce8\u91ca\u3002<\/p>\n
\u8bfb\u8005\u61c2\u82f1\u6587\u3002<\/h3>\n
\u8bb8\u591a\u547d\u540d\u7ea6\u5b9a\u5728\u8bcd\u6c47\u548c\u8bed\u6cd5\u4e0a\u57fa\u4e8e\u82f1\u6587\u3002\u6b64\u5916\uff0c Ada \u7684\u5173\u952e\u5b57\u90fd\u662f\u5e38\u7528\u7684\u82f1\u8bed\u5355\u8bcd\u3002\u5c06\u5176\u4e0e\u5176\u5b83\u8bed\u8a00\u6df7\u5408\u5c06\u964d\u4f4e\u4ee3\u7801\u7684\u6613\u8bfb\u6027\u3002<\/p>\n
\u4e25\u683c\u9650\u5236\u4f7f\u7528\u5b50\u53e5 (use clause) \u7684\u8fd0\u7528\u3002<\/h3>\n
\u547d\u540d\u7ea6\u5b9a\u548c\u5176\u5b83\u4e00\u4e9b\u89c4\u5219\u5047\u5b9a\u201cuse\u201d\u5b50\u53e5\u4e0d\u88ab\u8fd0\u7528\u3002<\/p>\n
\u5904\u7406\u7684\u662f\u4e00\u4e2a\u5927\u9879\u76ee\u3002<\/h3>\n
\u8bb8\u591a\u89c4\u5219\u5728\u5927\u578b\u9879\u76ee\u4e2d\u6700\u6709\u4ef7\u503c\uff0c\u867d\u7136\u51fa\u4e8e\u9879\u76ee\u7ea7\u6216\u516c\u53f8\u7ea7\u5b9e\u73b0\u548c\u7edf\u4e00\u7684\u76ee\u7684\uff0c\u5b83\u4eec\u4e5f\u5728\u5c0f\u578b\u7cfb\u7edf\u4e2d\u4f7f\u7528\u3002<\/p>\n
\u6e90\u7801\u5728\u201cRational \u73af\u5883\u201d (Rational Environment) \u4e2d\u5f00\u53d1\u3002<\/h3>\n
\u901a\u8fc7\u8fd0\u7528\u201cRational \u73af\u5883\u201d (Rational Environment)\uff0c\u4e00\u4e9b\u95ee\u9898\u5982\u4ee3\u7801\u5e03\u5c40\u3001\u5c01\u95ed\u6784\u9020\u4e2d\u7684\u6807\u8bc6\u7b26\u7b49\u5c31\u5728 Ada \u7f16\u8f91\u5668\u548c\u683c\u5f0f\u5668\u4e2d\u5904\u7406\u4e86\u3002 \u4f46\u662f\u672c\u6587\u4e2d\u7684\u5e03\u5c40\u5efa\u8bae\u9002\u7528\u4e8e\u4efb\u4f55\u5f00\u53d1\u5e73\u53f0\u3002<\/p>\n
\u7a0b\u5e8f\u8bbe\u8ba1\u9075\u5faa\u9762\u5411\u5bf9\u8c61\u7684\u65b9\u6cd5\u3002<\/h3>\n
\u8bb8\u591a\u89c4\u5219\u652f\u6301\u5c06 Ada \u7279\u6027\u548c\u7279\u5b9a\u547d\u540d\u7ea6\u5b9a\u7684\u9762\u5411\u5bf9\u8c61 (OO) \u6982\u5ff5\u7684\u7cfb\u7edf\u6620\u5c04\u3002<\/p>\n
<\/a>\u6307\u5357\u5206\u7c7b<\/h2>\n\u8fd9\u4e9b\u6307\u5bfc\u65b9\u9488\u5e76\u975e\u540c\u7b49\u91cd\u8981\u3002\u5b83\u4eec\u5927\u81f4\u9075\u5faa\u4ee5\u4e0b\u7684\u7b49\u7ea7\uff1a<\/p>\n
\u63d0\u793a\uff1a<\/h3>\n
\u8be5\u6307\u5bfc\u65b9\u9488\u4ec5\u662f\u4e00\u6761\u7b80\u5355\u7684\u5efa\u8bae\uff1b\u4e0d\u9075\u5b88\u5b83\u4e5f\u4e0d\u4f1a\u6709\u4ec0\u4e48\u5b9e\u8d28\u6027\u7684\u635f\u5bb3\uff0c\u91c7\u7528\u6216\u662f\u4e0d\u91c7\u7528\u5b83\u4eec\u4ec5\u662f\u4e2a\u4eba\u559c\u597d\u95ee\u9898\u3002\u6587\u4e2d\u7684\u63d0\u793a\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u5efa\u8bae\uff1a<\/h3>\n
\u8be5\u6307\u5bfc\u65b9\u9488\u901a\u5e38\u66f4\u591a\u5730\u57fa\u4e8e\u6280\u672f\u7684\u89c2\u70b9\uff1b\u5b83\u53ef\u80fd\u4f1a\u5f71\u54cd\u5230\u4ee3\u7801\u7684\u53ef\u79fb\u690d\u6027\u6216\u53ef\u590d\u7528\u6027\uff0c\u5e76\u5728\u4e00\u4e9b\u5b9e\u65bd\u4e2d\u5f71\u54cd\u6027\u80fd\u3002 \u9664\u975e\u6709\u5408\u9002\u7684\u7406\u7531\uff0c\u5426\u5219\u5fc5\u987b\u9075\u5b88\u5efa\u8bae\u3002\u6587\u4e2d\u63d0\u5230\u4e00\u4e9b\u4f8b\u5916\u7684\u60c5\u51b5\u3002\u6587\u4e2d\u7684\u5efa\u8bae\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u9650\u5236\uff1a<\/h3>\n
\u6709\u7591\u95ee\u7684\u7279\u6027\u4f7f\u7528\u8d77\u6765\u5371\u9669\uff0c\u4f46\u5b83\u5e76\u4e0d\u88ab\u5b8c\u5168\u7981\u6b62\uff1b\u5e94\u7528\u8be5\u7279\u6027\u7684\u51b3\u5b9a\u5e94\u5728\u9879\u76ee\u7ea7\u4e0a\u505a\u51fa\uff0c\u5e76\u4e14\u51b3\u5b9a\u5e94\u8be5\u662f\u9ad8\u5ea6\u53ef\u89c1\u7684\u3002\u6587\u4e2d\u7684\u9650\u5236\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u8981\u6c42\uff1a<\/h3>\n
\u8fdd\u80cc\u5b83\u5b9a\u5c06\u5bfc\u81f4\u4e0d\u597d\u7684\u3001\u4e0d\u53ef\u9760\u7684\u6216\u662f\u4e0d\u53ef\u79fb\u690d\u7684\u4ee3\u7801\u3002 \u8981\u6c42\u4e0d\u53ef\u8fdd\u80cc\u3002\u6587\u4e2d\u7684\u8981\u6c42\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u201cRational \u8bbe\u8ba1\u5de5\u5177\u201d (Rational Design Facility) \u5c06\u7528\u6765\u51cf\u5c11\u53d7\u9650\u7279\u6027\u7684\u4f7f\u7528\u5e76\u52a0\u5f3a\u5fc5\u9700\u6cd5\u5219\u548c\u8bb8\u591a\u5efa\u8bae\u7684\u8fd0\u7528\u3002<\/p>\n
\u4e0e\u8bb8\u591a\u5176\u5b83\u7684 Ada \u7a0b\u5e8f\u8bbe\u8ba1\u6807\u51c6\u4e0d\u540c\u7684\u662f\uff1a\u4e8b\u5b9e\u4e0a\uff0c\u8fd9\u4e9b\u6307\u5bfc\u65b9\u9488\u4e2d\u53ca\u5c11\u6709\u5b8c\u5168\u7981\u7528\u7684\u3002\u597d\u7684\u8f6f\u4ef6\u7684\u5173\u952e\u5728\u4e8e\uff1a<\/p>\n
\n- \u4e86\u89e3\u6bcf\u79cd\u7279\u6027\uff0c\u4e86\u89e3\u5b83\u7684\u5c40\u9650\u548c\u53ef\u80fd\u7684\u5371\u9669<\/li>\n
- \u51c6\u786e\u4e86\u89e3\u8fd9\u79cd\u7279\u6027\u5728\u4f55\u79cd\u573a\u5408\u53ef\u4ee5\u5b89\u5168\u4f7f\u7528<\/li>\n
- \u8ba9\u4f7f\u7528\u8be5\u7279\u6027\u7684\u51b3\u7b56\u9ad8\u5ea6\u53ef\u89c1<\/li>\n
- \u5341\u5206\u5c0f\u5fc3\u8c28\u614e\u5730\u5728\u9002\u5f53\u5904\u4f7f\u7528\u8be5\u7279\u6027\u3002<\/li>\n<\/ul>\n
<\/a>\u6700\u6839\u672c\u7684\u539f\u5219<\/h2>\n\u4f7f\u7528\u5e38\u8bc6\u3002<\/p>\n
\u5f53\u65e0\u6cd5\u627e\u5230\u53ef\u7528\u7684\u89c4\u5219\u6216\u6307\u5357\uff0c\u5f53\u89c4\u5219\u660e\u663e\u4e0d\u9002\u7528\uff0c\u5f53\u5176\u5b83\u4e00\u5207\u90fd\u5931\u8d25\u65f6\uff1a\u4f7f\u7528\u5e38\u8bc6\uff0c\u5e76\u6838\u67e5\u57fa\u672c\u539f\u5219\u3002\u8fd9\u6761\u6cd5\u5219\u51cc\u9a7e\u4e8e\u5176\u5b83\u6240\u6709\u6cd5\u5219\u4e4b\u4e0a\u3002\u5e38\u8bc6\u662f\u5fc5\u4e0d\u53ef\u5c11\u7684<\/em>\u3002<\/p>\n
\n<\/a>\u7b2c\u4e09\u7ae0<\/em><\/h2>\n\u4ee3\u7801\u5e03\u5c40<\/h1>\n\u6982\u8ff0<\/h2>\n
\u4e00\u4e2a\u7a0b\u5e8f\u5355\u5143\u7684\u5e03\u5c40\u5b8c\u5168\u5728\u201cRational \u73af\u5883\u683c\u5f0f\u5668\u201d (Rational Environment Formatter) \u7684\u63a7\u5236\u4e4b\u4e0b\uff0c\u9664\u4e86\u5728\u6ce8\u91ca\u548c\u7a7a\u767d\u5904\u5185\uff0c\u7a0b\u5e8f\u5458\u4e0d\u5fc5\u8fc7\u591a\u62c5\u5fc3\u7a0b\u5e8f\u7684\u5e03\u5c40\u3002\u8fd9\u4e2a\u5de5\u5177\u6240\u91c7\u7528\u7684\u683c\u5f0f\u7ea6\u5b9a\u5728 Reference Manual for the Ada Programming Language \u7684 Appendix E \u4e2d\u8868\u8ff0 [ISO87]<\/a>\u3002 \u7279\u522b\u662f\uff0c\u4ed6\u4eec\u5efa\u8bae\u7ed3\u6784\u5316\u6784\u9020\u7684\u5f00\u59cb\u548c\u7ed3\u675f\u5904\u7684\u5173\u952e\u5b57\u5e94\u5782\u76f4\u5bf9\u9f50\u3002\u4e00\u4e2a\u6784\u9020\u7684\u6807\u8bc6\u7b26\u4e5f\u5e94\u7cfb\u7edf\u6027\u5730\u5728\u6784\u9020\u7684\u672b\u5c3e\u91cd\u590d\u3002<\/p>\n\u683c\u5f0f\u5668\u7684\u786e\u5207\u884c\u4e3a\u7531\u4e00\u7cfb\u5217\u7684\u5e93\u5f00\u5173<\/em>\u5728\u4e00\u4e2a\u901a\u7528\u6a21\u578b\u4e16\u754c (model world) \u57fa\u7840\u4e0a\u63a7\u5236\uff0c\u8fd9\u4e9b\u5e93\u5f00\u5173\u5728\u6574\u4e2a\u9879\u76ee\u8fc7\u7a0b\u4e2d\u63a5\u6536\u4e00\u5957\u7edf\u4e00\u7684\u503c\u3002\u76f8\u5173\u7684\u5f00\u5173\u4ee5\u53ca\u5b83\u4eec\u5728\u6211\u4eec\u6240\u5efa\u8bae\u7684\u6a21\u578b\u4e16\u754c<\/em>\u4e2d\u7684\u901a\u7528\u503c\u5217\u8868\u5982\u4e0b\u3002<\/p>\n<\/a>\u5b57\u6bcd\u5927\u5c0f\u5199<\/h2>\nFormat .Id_Case : Letter_Case := Capitalized<\/h3>\n
\u8be6\u7ec6\u8bf4\u660e Ada \u5355\u5143\u4e2d\u6807\u8bc6\u7b26\u7684\u5b57\u6bcd\u5927\u5c0f\u5199\uff1a\u6700\u5f00\u59cb\u7684\u5b57\u6bcd\u4ee5\u53ca\u6bcf\u4e2a\u4e0b\u5212\u7ebf\u4e4b\u540e\u7684\u7b2c\u4e00\u4e2a\u5b57\u6bcd\u7528\u5927\u5199\u3002\u5927\u5199\u662f\u8bfb\u8005\u6700\u6613\u8bfb\u7684\u5f62\u5f0f\uff0c\u5177\u6709\u4f17\u591a\u73b0\u4ee3\u5c4f\u5e55\u548c\u6fc0\u5149\u6253\u5370\u673a\u5b57\u4f53\u3002<\/p>\n
Format .Keyword_Case : Letter_Case := Lower<\/h3>\n
\u8bf4\u660e Ada \u5173\u952e\u5b57\u7684\u5927\u5c0f\u5199\u3002\u8fd9\u5c06\u5b83\u4eec\u4e0e\u6807\u8bc6\u7b26\u7565\u5fae\u533a\u5206\u5f00\u6765\u3002<\/p>\n
Format .Number_Case : Letter_Case := Upper<\/h3>\n
\u8bf4\u660e\u6d6e\u70b9\u76f4\u63a5\u91cf\u4e2d\u5b57\u6bcd\u201cE\u201d\u548c\u57fa\u672c\u76f4\u63a5\u91cf\u4e2d\u57fa\u672c\u6570\u5b57\uff08\u201cA\u201d \u5230 \u201cF\u201d\uff09\u7684\u5927\u5c0f\u5199\u3002<\/p>\n
<\/a>\u7f29\u8fdb<\/h2>\n\u4e00\u4e2a Ada \u5355\u5143\u6309\u7167 Ada Reference Manual \u4e2d Appendix E \u6240\u8bf4\u7684\u4e00\u822c\u7ea6\u5b9a\u6765\u7f16\u6392\u683c\u5f0f [ISO87]<\/a>\u3002\u8fd9\u5c31\u662f\u8bf4\uff0c\u4e00\u4e2a\u7ed3\u6784\u5316\u6784\u9020\u7684\u5f00\u59cb\u548c\u7ed3\u675f\u5904\u7684\u5173\u952e\u5b57\u5e94\u8be5\u5bf9\u9f50\u3002 \u4f8b\u5982\uff0c\u201cloop\u201d\u548c\u201cend loop\u201d\uff0c\u201crecord\u201d\u548c\u201cend record\u201d\u3002\u5728\u7ed3\u6784\u5316\u6784\u9020\u5185<\/em>\u7684\u5355\u5143\u5e94\u5411\u53f3\u7f29\u8fdb<\/em>\u3002<\/p>\nFormat .Major_Indentation : Indent_Range := 3<\/h3>\n
\u8bf4\u660e\u683c\u5f0f\u5668\u4ee4\u5982\u201cif\u201d\u8bed\u53e5\u3001\u201ccase\u201d\u8bed\u53e5\u548c\u201cloop\u201d\u8bed\u53e5\u8fd9\u6837\u7684\u7ed3\u6784\u5316\uff08\u4e3b\u8981\u7684\uff09\u6784\u9020\u7f29\u8fdb\u7684\u5217\u6570\u3002<\/p>\n
Format .Minor_Indentation : Indent_Range := 2<\/h3>\n
\u8bf4\u660e\u683c\u5f0f\u5668\u4f7f\u6b21\u8981\u6784\u9020\u7f29\u8fdb\u7684\u5217\u6570\uff1a \u8bb0\u5f55\u7684\u58f0\u660e\u3001\u53d8\u4f53\u8bb0\u5f55\u7684\u58f0\u660e\u3001\u7c7b\u578b\u7684\u58f0\u660e\u3001\u5f02\u5e38\u5904\u7406\u3001\u9009\u62e9\u8bed\u53e5\u3001case \u8bed\u53e5\u3001\u547d\u540d\u548c\u6807\u5fd7\u8bed\u53e5\u3002<\/p>\n
<\/a>\u884c\u7684\u957f\u5ea6\u548c\u884c\u7684\u5206\u9694<\/h2>\nFormat .Line_Length : Line_Range := 80<\/h3>\n
\u8bf4\u660e\u6362\u884c\u524d\u683c\u5f0f\u5668\u663e\u793a Ada \u5355\u5143\u4e2d\u7684\u884c\u6240\u91c7\u7528\u7684\u5217\u6570\u3002\u8fd9\u4f7f\u5f97\u683c\u5f0f\u5316\u7684\u5355\u5143\u53ef\u7528\u4f20\u7edf\u7684 VT100 \u7c7b\u7ec8\u7aef\u663e\u793a\u3002<\/p>\n
Format .Statement_Indentation : Indent_Range := 3<\/h3>\n
\u8bf4\u660e\u5f53\u4e00\u6761\u8bed\u53e5\u957f\u4e8e Line_Length\uff0c\u5fc5\u987b\u8981\u65ad\u5f00\u65f6\uff0c\u683c\u5f0f\u5668\u5e94\u4f7f\u7b2c\u4e8c\u884c\u548c\u540e\u7eed\u884c\u7f29\u8fdb\u591a\u5c11\u5217\u3002\u53ea\u6709\u5f53\u4e0d\u5b58\u5728\u8bcd\u6cd5\u6784\u9020\u53ef\u8ba9\u7f29\u8fdb\u7684\u4ee3\u7801\u5bf9\u9f50\u65f6\uff0c\u683c\u5f0f\u5668\u624d\u4ee4\u4ee3\u7801\u7f29\u8fdb Statement_Indentation \u4e2a\u5217\u3002<\/p>\n
Format .Statement_Length : Line_Range := 35<\/h3>\n
\u8bf4\u660e\u5f53\u663e\u793a\u4e00\u4e2a\u8bed\u53e5\u65f6\uff0c\u6bcf\u884c\u6240\u4fdd\u7559\u7684\u5217\u6570\u3002 \u5982\u679c\u5f53\u524d\u7f29\u8fdb\u7a0b\u5ea6\u6240\u5141\u8bb8\u7684\u4e00\u884c\u4e2d\u7684\u5217\u6570\u5c0f\u4e8e Statement_Length\uff0c\u90a3\u4e48\u683c\u5f0f\u5668\u5c06 Wrap_Indentation \u4f5c\u4e3a\u65b0\u7684\u7f29\u8fdb\u7a0b\u5ea6\u3002\u6b64\u6cd5\u53ef\u9632\u6b62\u5d4c\u5957\u592a\u6df1\u7684\u8bed\u53e5\u663e\u793a\u65f6\u8d85\u51fa\u53f3\u8fb9\u754c\u3002<\/p>\n
Format .Wrap_Indentation : Line_Range := 16<\/h3>\n
\u8bf4\u660e\u5f53\u524d\u7684\u7f29\u8fdb\u7a0b\u5ea6\u4e0d\u4e0d\u8db3 Statement_Length \u65f6\uff0c\u683c\u5f0f\u5668\u5728\u4e0b\u4e00\u884c\u5f00\u5934\u5904\u5e94\u7f29\u8fdb\u7684\u5217\u6570\u3002\u6b64\u6cd5\u53ef\u9632\u6b62\u5d4c\u5957\u592a\u6df1\u7684\u8bed\u53e5\u663e\u793a\u65f6\u8d85\u51fa\u53f3\u8fb9\u754c\u3002<\/p>\n
<\/a>\u5bf9\u9f50<\/h2>\nFormat .Consistent_Breaking : Integer := 1<\/h3>\n
\u63a7\u5236\u5f62\u5982 (xxx:aaa; yyy:bbb) \u7684\u5217\u8868\u683c\u5f0f\uff0c\u8be5\u5217\u8868\u51fa\u73b0\u5728\u5b50\u7a0b\u5e8f\u7684\u5f62\u53c2\u8bf4\u660e\u5904\u548c\u7c7b\u578b\u58f0\u660e\u4e2d\u7684\u5224\u522b\u5f0f\u5904\u3002\u5b83\u4e5f\u63a7\u5236\u5f62\u5982 (xxx=>aaa, yyy=>bbb) \u7684\u5217\u8868\u7684\u683c\u5f0f\uff0c\u8be5\u5217\u8868\u51fa\u73b0\u5728\u5b50\u7a0b\u5e8f\u8c03\u7528\u548c\u805a\u96c6\u5904\u3002\u56e0\u4e3a\u8be5\u9009\u9879\u975e\u96f6\uff08\u771f\uff09\uff0c\u6240\u4ee5\u5f53\u4e00\u4e2a\u5217\u8868\u65e0\u6cd5\u5728\u4e00\u884c\u4e2d\u88c5\u4e0b\u65f6\uff0c\u5217\u8868\u4e2d\u7684\u6bcf\u4e00\u4e2a\u5143\u7d20\u90fd\u5360\u7528\u65b0\u7684\u4e00\u884c\u3002<\/p>\n
Format .Alignment_Threshold : Line_Range := 20<\/h3>\n
\u8bf4\u660e\u4e3a\u4f7f\u8fde\u7eed\u8bed\u53e5\u4e2d\u7684\u8bcd\u6cd5\u6784\u9020\u5bf9\u9f50\uff08\u5982\u547d\u540d\u7b26\u53f7\u4e2d\u7684\u5192\u53f7\u3001\u8d4b\u503c\u53f7\u548c\u7bad\u5934\uff09\uff0c\u683c\u5f0f\u5668\u53ef\u63d2\u5165\u7684\u7a7a\u683c\u6570\u3002\u5982\u679c\u5bf9\u9f50\u4e00\u4e2a\u6784\u9020\u6240\u9700\u7684\u7a7a\u683c\u6570\u591a\u4e8e\u8fd9\u4e2a\u6570\uff0c\u90a3\u4e48\u6784\u9020\u4e0d\u88ab\u5bf9\u9f50\u3002<\/p>\n
\u8981\u6ce8\u610f\u7684\u662f\uff0c\u4e3a\u4e86\u5f62\u6210\u67d0\u79cd\u5e03\u5c40\uff0c\u7a0b\u5e8f\u5458\u53ef\u4ee5\u63d2\u5165\u4e00\u4e2a\u884c\u7ed3\u675f\u7b26\u6216\u8005\u901a\u8fc7\u8f93\u5165 <space> <space> <carriage-return> \u6765\u6572\u5165\u4e00\u4e2a\u4e0d\u4f1a\u88ab\u683c\u5f0f\u5668\u5220\u6389\u7684\u884c\u4e2d\u65ad\u3002<\/p>\n
\u5f53 \u5217\u8868\u4e2d\u7684\u5143\u7d20\u8d85\u8fc7 3 \u4e2a\u5e76\u4e14\u5728\u4e00\u884c\u4e2d\u88c5\u4e0d\u4e0b\u8fd9\u4e9b\u5143\u7d20\u65f6\uff0c\u91c7\u7528\u4e0a\u8ff0\u6280\u5de7\u3002Ada \u5143\u7d20\u5217\u8868\u5e94\u5206\u9694\u4e3a\u4e00\u884c\u4ec5\u6709\u4e00\u4e2a\u5143\u7d20\uff0c\u4ee5\u63d0\u9ad8\u4ee3\u7801\u7684\u6613\u8bfb\u6027\u548c\u53ef\u7ef4\u62a4\u6027\u3002\u8fd9\u4e00\u6761\u5c24\u5176\u9002\u7528\u4e8e\u4ee5\u4e0b Ada \u6784\u9020\uff08\u8c61 Ada Reference Manual \u7684 Appendix E \u4e2d\u6240\u5b9a\u4e49\u7684\u90a3\u6837 [ISO87]<\/a>\uff09\uff1a<\/p>\n\u5b9e\u53c2\u5173\u8054\u5173\u7cfb<\/p>\n
pragma Suppress (Range_Check,\r\nOn => This_Type,\r\nOn => That_Type, On => That_Other_Type);<\/pre>\n\u6807\u8bc6\u7b26\u5217\u8868\uff0c\u7ec4\u4ef6\u5217\u8868<\/p>\n
Next_Position,\r\nPrevious_Position,\r\nCurrent_Position : Position;\r\ntype Some_Record is \r\nrecord\r\nA_Component,\r\nB_Component,\r\nC_Component : Component_Type;\r\nend record;<\/pre>\n\u679a\u4e3e\u7c7b\u578b\u5b9a\u4e49<\/p>\n
type Navaid is \r\n(Vor, \r\nVor_Dme, \r\nDme, \r\nTacan, \r\nVor_Tac, \r\nNDB);<\/pre>\n\u5224\u522b\u5f0f\u7ea6\u675f<\/p>\n
subtype Constrained is Element \r\n(Name_Length => Name'Length,\r\nValid => True,\r\nOperation => Skip);<\/pre>\n\u8bed\u53e5\u7684\u987a\u5e8f\uff08\u7531\u683c\u5f0f\u5668\u5904\u7406\uff09<\/p>\n
\u5f62\u5f0f\u90e8\u5206\u3001\u7c7b\u5c5e\u5f62\u5f0f\u90e8\u5206\u3001\u5b9e\u53c2\u90e8\u5206\u3001\u7c7b\u5c5e\u5b9e\u53c2\u90e8\u5206<\/p>\n
procedure Just_Do_It (This : in Some_Type;\r\nFor_That : in Some Other_Type;\r\nStatus : out Status_Type);\r\nJust_Do_It (This => This_Value;\r\nFor_That => That_Value;\r\nStatus => The_Status);<\/pre>\n
\n<\/a>\u7b2c\u56db\u7ae0<\/em><\/h2>\n\u6ce8\u91ca<\/h1>\n\u6982\u8ff0<\/h2>\n
\u4e0e\u5e7f\u6cdb\u63a5\u53d7\u7684\u89c2\u70b9\u76f8\u53cd\u7684\u662f\uff0c\u597d\u7684\u7a0b\u5e8f\u7684\u7279\u70b9\u5e76\u975e\u662f\u6ce8\u91ca\u7684\u6570\u91cf<\/em>\uff0c\u800c\u662f\u6ce8\u91ca\u7684\u8d28\u91cf<\/em>\u3002<\/p>\n\u6ce8\u91ca\u5e94\u5f53\u4f5c\u4e3a Ada \u4ee3\u7801\u7684\u8865\u5145<\/em>\uff0c\u800c\u4e0d\u662f\u89e3\u91ca\uff1aAda \u672c\u8eab\u662f\u4e00\u79cd\u975e\u5e38\u6613\u8bfb\u7684\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00\uff0c\u5c24\u5176\u662f\u5f53\u88ab\u597d\u7684\u547d\u540d\u7ea6\u5b9a\u652f\u6301\u65f6\u3002\u6ce8\u91ca\u5e94\u5f53\u89e3\u91ca\u90a3\u4e9b\u4e0d\u80fd\u76f4\u63a5\u4ece Ada \u4ee3\u7801\u4e2d\u770b\u51fa\u7684\u5185\u5bb9\uff1b\u5b83\u4eec\u4e0d\u5e94\u590d\u5236 Ada \u7684\u8bed\u6cd5\u6216\u8bed\u4e49\u3002\u6ce8\u91ca\u5e94\u5f53\u5e2e\u52a9\u8bfb\u8005\u638c\u63e1\u80cc\u666f\u6982\u5ff5\u548c\u4f9d\u8d56\u6761\u4ef6\uff0c\u7279\u522b\u662f\u590d\u6742\u7684\u6570\u636e\u7f16\u7801\u548c\u7b97\u6cd5\u3002\u6ce8\u91ca\u5e94\u5f53\u7a81\u51fa\u4e0e\u7f16\u7801\u6216\u8bbe\u8ba1\u6807\u51c6\u7684\u4e0d\u540c\u70b9\u3001\u53d7\u9650\u7279\u6027\u7684\u4f7f\u7528\u4ee5\u53ca\u7279\u6b8a\u7684 \u201c\u6280\u5de7\u201d\u3002\u5728\u6bcf\u4e2a\u4e3b\u8981\u7684 Ada \u6784\u9020\uff08\u5982\u5b50\u7a0b\u5e8f\u548c\u7a0b\u5e8f\u5305\uff09\u4e2d\uff0c\u7cfb\u7edf\u5730\u51fa\u73b0\u7684\u6ce8\u91ca\u6846\u6216\u8868\u5355\u5177\u6709\u4e00\u81f4\u6027\u548c\u63d0\u9192\u7a0b\u5e8f\u5458\u8bf4\u660e\u4ee3\u7801\u7684\u4f18\u70b9\uff0c\u4f46\u5b83\u4eec\u4e5f\u5e38\u5e38\u5e26\u6765\u91ca\u4e49\u4ee3\u7801\u7684\u98ce\u683c\u3002\u5bf9\u6bcf\u4e00\u884c\u6ce8\u91ca\uff0c\u7a0b\u5e8f\u5458\u90fd \u5e94\u80fd\u591f\u5f88\u597d\u5730\u56de\u7b54\uff1a\u201c\u52a0\u5165\u8fd9\u4e2a\u6ce8\u91ca\u6709\u4f55\u4ef7\u503c\uff1f\u201d<\/p>\n\u4e00\u4e2a\u8bef\u5bfc\u6216\u8005\u9519\u8bef\u7684\u6ce8\u91ca\u6bd4\u5b8c\u5168\u4e0d\u6ce8\u91ca\u8fd8\u7cdf\u3002\u7f16\u8bd1\u5668\u4e0d\u68c0\u67e5\u6ce8\u91ca\uff08\u9664\u975e\u5b83\u4eec\u8c61\u201cRational \u8bbe\u8ba1\u5de5\u5177\u201d\u90a3\u6837\u53c2\u4e0e\u4e86\u6b63\u5f0f\u7684 Ada \u8bbe\u8ba1\u8bed\u8a00 (ADL) \u6216\u8005\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00 (PDL)\uff09\u3002\u56e0\u6b64\uff0c\u6839\u636e\u5355\u70b9\u7ef4\u62a4\u539f\u5219\uff0c\u8bbe\u8ba1\u51b3\u5b9a\u5e94\u5728 Ada \u800c\u4e0d\u662f\u6ce8\u91ca\u4e2d\u8868\u8ff0\uff0c\u5373\u4f7f\u8fd9\u6837\u505a\u9700\u8981\u591a\u51e0\u4e2a\u58f0\u660e\u3002<\/p>\n
\u4f5c\u4e3a\u4e00\u4e2a\uff08\u5e76\u975e\u5f88\u597d\u7684\uff09\u4f8b\u5b50\u8003\u8651\u5982\u4e0b\u7684\u58f0\u660e\uff1a<\/p>\n
------------------------------------------------------------\r\n-- procedure Create\r\n------------------------------------------------------------\r\n--\r\nprocedure Create\r\n(The_Subscriber: in out Subscriber.Handle;\r\nWith_Name : in out Subscriber.Name);\r\n--\r\n-- Purpose: This procedure creates a subscriber with a given\r\n-- name.\r\n--\r\n-- Parameters: \r\n- The_Subscriber :mode in out, type Subscriber.Handle\r\n- It is the handle to the created subscriber\r\n- With_Name :mode in, type Subscriber.Name\r\n- The name of the subscriber to be created.\r\n- The syntax of the name is\r\n-- <letter> { <letter> | <digit> }\r\n-- Exceptions:\r\n-- Subscriber.Collection_Overflow when there is no more\r\n-- space to create a new subscriber\r\n-- Subscriber.Invalid_Name when the name is blank or\r\n-- malformed\r\n--\r\n-------------------------------------------- end Create ----<\/pre>\n\u4f8b\u5b50\u4e2d\u6709\u51e0\u70b9\u8981\u6307\u51fa\u6765\u3002<\/p>\n
\n- \u6709\u8bb8\u591a\u5197\u4f59\uff1a<\/li>\n<\/ul>\n
\n- – \u8fc7\u7a0b\u521b\u5efa (Procedure Create)\uff1a\u5982\u679c\u8981\u6539\u540d\uff0c\u6709\u51e0\u5904\u5730\u65b9\u9700\u8981\u4fee\u6539\uff1b\u7ecf\u5e38\u6027\u5730\u4fee\u6539\u6ce8\u91ca\uff0c\u7f16\u8bd1\u5668\u4e0d\u4f1a\u6267\u884c\u3002<\/dd>\n
- – \u6ce8\u91ca\u4e2d\u65e0\u9700\u91cd\u590d\u8bf4\u660e\u53c2\u6570\u540d\u3001\u6a21\u5f0f\u548c\u7c7b\u578b\u3002<\/dd>\n
- – \u8fd9\u91cc\u7ed9\u6bcf\u4e2a Ada \u5b9e\u4f53\u6240\u53d6\u7684\u540d\u5b57\u5f88\u597d\uff0c\u8fd9\u4f7f\u5f97\u529f\u80fd\u548c\u53c2\u6570\u89e3\u91ca\u53d8\u5f97\u591a\u4f59\u3002\u6ce8\u610f\uff0c\u8fd9\u4e00\u70b9\u53ea\u662f\u5bf9\u4e8e\u5982\u4e0a\u4f8b\u8fd9\u6837\u7684\u7b80\u5355\u7684\u5b50\u7a0b\u5e8f\u6765\u8bf4\u624d\u662f\u6b63\u786e\u7684\u3002\u5bf9\u4e8e\u66f4\u590d\u6742\u7684\u5b50\u7a0b\u5e8f\uff0c\u4ecd\u9700\u8981\u529f\u80fd\u548c\u53c2\u6570\u89e3\u91ca\u3002<\/dd>\n<\/dl>\n
\n- \u6846\u67b6\u52a0\u5165\u4e86\u592a\u591a\u7684\u5e72\u6270\uff0c\u9690\u85cf\u4e86\u5173\u952e\u9879\uff1a\u8fc7\u7a0b\u58f0\u660e\u3002\u53e6\u5916\uff0c\u53f3\u7aef\u7684\u5782\u76f4\u8fb9\u5f00\u59cb\u65f6\u770b\u4e0a\u53bb\u8fd8\u5f88\u6f02\u4eae\uff0c\u4f46\u5374\u4f7f\u4fee\u6539\u53d8\u5f97\u6781\u4e3a\u75db\u82e6\uff0c\u901a\u5e38\u51e0\u5e74\u7684\u7ef4\u62a4\u4e0b\u6765\uff0c\u4ee3\u7801\u6700\u540e\u5b8c\u5168\u4e0d\u5bf9\u9f50\u5e76\u4e14\u5343\u75ae\u767e\u5b54\u3002<\/li>\n
- \u76f8\u53cd\u7684\u662f\uff0c\u8fd9\u91cc\u5e94\u8bf4\u660e\u4ea7\u751f\u4e86\u4f55\u79cd\u5f02\u5e38\uff0c\u56e0\u4e3a\u82e5\u53ea\u8bfb\u89c4\u683c\u8bf4\u660e\uff0c\u8fd9\u4e00\u70b9\u5e76\u4e0d\u660e\u663e\u3002\u4f46\u6bcf\u4e2a\u5f02\u5e38\u7684\u51c6\u786e\u542b\u4e49\u5e94\u653e\u5728\u81ea\u8eab\u7684\u5f02\u5e38\u58f0\u660e\u5904\u3002<\/li>\n
- \u5e94\u8bf4\u660e\u53c2\u6570\u7684\u524d\u7f6e\u548c\u540e\u7f6e\u6761\u4ef6\uff0c\u5c24\u5176\u662f\u53c2\u6570\u95f4\u7684\u5173\u7cfb\u3002\u8fd9\u4e9b\u4e0d\u5e94\u4e0e\u5176\u5b83\u5730\u65b9\u53ef\u4ee5\u627e\u5230\u7684\u4fe1\u606f\u91cd\u590d\uff0c\u5982\u6709\u6548\u540d\u7684\u8bed\u6cd5\uff0c\u5b83\u53ea\u5e94\u5728\u4e00\u5904\u8bf4\u660e\u3002<\/li>\n<\/ul>\n
\u5728\u8fd9\u4e2a\u4f8b\u5b50\u4e2d\uff0c\u6700\u597d\u91c7\u7528\u5982\u4e0b\u66f4\u7b80\u6d01\u3001\u66f4\u6709\u7528\u7684\u65b9\u5f0f\uff1a<\/p>\n
procedure Create (The_Subscriber : in out Subscriber.Handle;\r\nWith_Name : in Subscriber.Name);--\r\n-Raises Subscriber.Collection_Overflow.\r\n-Raises Subscriber.Invalid_Name when the name is \r\nblank or malformed (see syntax description \r\nattached to declaration of type Subscriber.Name).<\/pre>\n<\/a>\u6ce8\u91ca\u7528\u6cd5\u6307\u5357<\/h2>\n\u6ce8\u91ca\u5e94\u653e\u5728\u76f8\u5173\u4ee3\u7801\u7684\u65c1\u8fb9\uff0c\u7f29\u8fdb\u540c\u6837\u7684\u5927\u5c0f\uff0c\u7d27\u9760\u7740\u4ee3\u7801 – \u5373\u7528\u7a7a\u7684\u6ce8\u91ca\u884c\u5728\u89c6\u89c9\u4e0a\u5c06\u6ce8\u91ca\u5757\u4e0e Ada \u6784\u9020\u6346\u5728\u4e00\u8d77\uff1a<\/p>\n
procedure First_One;\r\n--\r\n-- This comment relates to First_One.\r\n-- But this comment is for Second_One.\r\n-- \r\nprocedure Second_One (Times : Natural);<\/pre>\n\u7528\u7a7a\u884c\u5206\u9694\u76f8\u5173\u7684\u6e90\u7801\u5757\uff08\u6ce8\u91ca\u548c\u4ee3\u7801\uff09\uff0c\u800c\u4e0d\u7528\u7c97\u91cd\u7684\u6ce8\u91ca\u884c\uff0c\u5982\uff1a<\/p>\n
-------------------------------------------------------------<\/pre>\n\u6216\u8005\uff1a<\/p>\n
--===========================================================<\/pre>\n\u5728\u4e00\u4e2a\u6ce8\u91ca\u5757\u4e2d\uff0c\u4f7f\u7528\u7a7a\u6ce8\u91ca\u884c\u800c\u975e\u7a7a\u884c\u6765\u5206\u5272\u6ce8\u91ca\u6bb5<\/p>\n
-- Some explanation here that needs to be continued in a\r\n-- subsequent paragraph.\r\n--\r\n-- The empty comment line above makes it clear that we \r\n-- are dealing with a single comment block.<\/pre>\n\u867d\u7136\u6ce8\u91ca\u53ef\u4ee5\u653e\u5728\u76f8\u5173 Ada \u6784\u9020\u7684\u4e0a\u65b9\u6216\u4e0b\u65b9\uff0c\u4f46\u662f\u8981\u5c06\u4e00\u8282\u7684\u6807\u9898\u6216\u8005\u4e00\u4e2a\u8bf4\u660e\u51e0\u4e2a Ada \u6784\u9020\u7684\u4e3b\u8981\u4fe1\u606f\u653e\u5728\u6784\u9020\u7684\u4e0a\u65b9<\/em>\u3002\u5c06\u8bc4\u8ff0\u6216\u9644\u52a0\u4fe1\u606f\u7b49\u8fd9\u4e00\u7c7b\u7684\u6ce8\u91ca\u653e\u5728\u76f8\u5173 Ada \u6784\u9020\u7684\u4e0b\u65b9<\/em>\u3002<\/p>\n\u7528\u4e00\u9875\u7684\u6574\u884c\u5bbd\u5728 Ada \u6784\u9020\u7684\u5f00\u5934\u5904\u5206\u7ec4\u3002\u907f\u514d\u5c06\u6ce8\u91ca\u653e\u5728 Ada \u6784\u9020\u7684\u540c\u4e00\u884c\u3002\u8fd9\u4e9b\u6ce8\u91ca\u5e38\u5e38\u53d8\u5f97\u4e0d\u5bf9\u9f50\u3002\u4f46\u662f\u5728\u8bf4\u660e\u4e00\u4e2a\u957f\u7684\u58f0\u660e\u65f6\uff0c\u5982\u679a\u4e3e\u7c7b\u578b\u76f4\u63a5\u91cf\uff0c\u8fd9\u6837\u7684\u6ce8\u91ca\u65b9\u5f0f\u662f\u53ef\u4ee5\u5bb9\u8bb8\u7684\u3002<\/p>\n
\u7528\u4e00\u4e2a\u5c0f\u7684\u5206\u5c42\u6b21\u7684\u6807\u51c6\u6ce8\u91ca\u5757\u6765\u8bf4\u660e\u5c0f\u8282\u7684\u6807\u9898\uff0c\u4f46\u8fd9\u4ec5\u4ec5\u9002\u7528\u4e8e\u5f88\u5927\u7684 Ada \u5355\u5143\uff08>200 \u884c\u7684\u58f0\u660e\u6216\u8005\u8bed\u53e5\uff09\uff1a<\/p>\n
--===========================================================\r\n--\r\n \u4e3b\u6807\u9898\r\n--\r\n--===========================================================\r\n\r\n-------------------------------------------------------------\r\n \u526f\u6807\u9898\r\n-------------------------------------------------------------\r\n\r\n --------------------\r\n \u5b50\u90e8\u5206\u7684\u5934\r\n --------------------<\/pre>\n\u5728\u8fd9\u79cd\u6807\u9898\u524d\u9762\u6240\u653e\u7684\u7a7a\u884c\u6570\u8981\u591a\u4e8e\u540e\u9762\u7684\u7a7a\u884c\u6570\uff0c\u4f8b\u5982\uff0c\u4e24\u884c\u5728\u524d\u4e00\u884c\u5728\u540e\u3002\u8fd9\u6837\u4f7f\u6807\u9898\u4e0e\u968f\u540e\u7684\u6b63\u6587\u5728\u89c6\u89c9\u4e0a\u76f8\u8054\u7cfb\u3002<\/p>\n
\u907f \u514d\u4f7f\u7528\u542b\u6709\u4fe1\u606f\u7684\u51fd\u6570\u5934\uff0c\u6bd4\u5982\u4f5c\u8005\u3001\u7535\u8bdd\u3001\u521b\u5efa\u548c\u4fee\u6539\u65e5\u671f\u3001\u5355\u5143\uff08\u6216\u6587\u4ef6\u540d\uff09\u7684\u4f4d\u7f6e\uff0c\u56e0\u4e3a\u8fd9\u4e9b\u4fe1\u606f\u5f88\u5feb\u5c31\u4f1a\u8fc7\u65f6\u3002\u5c06\u6240\u6709\u8005\u7248\u6743\u4fe1\u606f\u653e\u5728\u5355\u5143\u7684\u672b\u5c3e\uff0c\u5c24\u5176\u662f \u4f7f\u7528\u201cRational \u73af\u5883\u201d\u65f6\u3002\u5f53\u8bbf\u95ee\u4e00\u4e2a\u7a0b\u5e8f\u5305\u7684\u89c4\u683c\u8bf4\u660e\u6e90\u7801\u65f6 – \u4f8b\u5982\u5728\u201cRational \u73af\u5883\u201d\u4e2d\u6309 [Definition] – \u8bfb\u8005\u4e0d\u60f3\u6d4f\u89c8\u4e24\u9875\u6216\u8005\u4e09\u9875\u5bf9\u7406\u89e3\u7a0b\u5e8f\u65e0\u4efb\u4f55\u7528\u5904\u7684\u6587\u672c\u548c\/\u6216\u5b8c\u5168\u4e0d\u5e26\u6709\u4efb\u4f55\u7a0b\u5e8f\u4fe1\u606f\u7684\u6587\u672c\u3002\u907f\u514d\u4f7f\u7528\u5782\u76f4\u6eda\u52a8\u6761\u3001\u5c01\u95ed\u56fe\u6587\u6846\u6216\u65b9\u6846\uff0c\u8fd9\u4e9b\u4e1c\u897f\u53ea\u4f1a\u589e\u52a0\u89c6\u89c9 \u5e72\u6270\uff0c\u800c\u4e14\u96be\u4ee5\u4fdd\u6301\u4e00\u81f4\u6027\u3002\u7528 Rational CMVC \u9644\u6ce8\uff08\u6216\u8005\u5176\u5b83\u5f62\u5f0f\u7684\u8f6f\u4ef6\u5f00\u53d1\u6587\u4ef6\uff09\u6765\u4fdd\u5b58\u5355\u5143\u5386\u53f2\u3002<\/p>\n
\u4e0d\u8981\u91cd\u590d\u53ef\u4ee5\u5728\u5176\u5b83\u5730\u65b9\u627e\u5230\u7684\u4fe1\u606f\uff1b\u4ec5\u63d0\u4f9b\u4e00\u4e2a\u6307\u5411\u8be5\u4fe1\u606f\u7684\u6307\u9488\u5373\u53ef\u3002<\/p>\n
\u5c3d \u91cf\u91c7\u7528 Ada\uff0c\u800c\u975e\u6ce8\u91ca\u3002\u8981\u5b9e\u73b0\u8fd9\u4e00\u70b9\uff0c\u4f60\u53ef\u9009\u62e9\u66f4\u597d\u7684\u540d\u5b57\u3001\u9644\u52a0\u4e34\u65f6\u53d8\u91cf\u3001\u9650\u5b9a\u3001\u91cd\u547d\u540d\u3001\u5b50\u7c7b\u578b\u3001\u9759\u6001\u8868\u8fbe\u5f0f\u548c\u5c5e\u6027\uff0c\u8fd9\u4e9b\u90fd\u4e0d\u5f71\u54cd\u751f\u6210\u7684\u4ee3\u7801\uff08\u81f3\u5c11\u5728\u4e00\u4e2a\u597d\u7684 \u7f16\u8bd1\u5668\u4e2d\u4e0d\u5f71\u54cd\uff09\u3002\u4f60\u4e5f\u53ef\u4ee5\u91c7\u7528\u5c0f\u7684\u3001\u5d4c\u5165\u5f0f\u7684\u8c13\u8bcd\u51fd\u6570\uff0c\u5e76\u5c06\u4ee3\u7801\u5206\u6210\u51e0\u4e2a\u65e0\u53c2\u8fc7\u7a0b\uff0c\u8fd9\u4e9b\u8fc7\u7a0b\u7684\u540d\u5b57\u63d0\u4f9b\u4e86\u4ee3\u7801\u51e0\u4e2a\u79bb\u6563\u90e8\u5206\u7684\u6807\u9898\u3002<\/p>\n
\u793a\u4f8b\uff1a<\/p>\n
\u5c06\uff1a<\/p>\n
exit when Su.Locate (Ch, Str) \/= 0; \r\n-- Exit search loop when found it.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
Search_Loop : loop<\/p>\n
Found_It := Su.Locate (Ch, Str) \/= 0;<\/p>\n
exit Search_Loop when Found_It<\/p>\n
end Search_Loop;<\/p>\n
\u5c06\uff1a<\/p>\n
if Value < 'A' or else Value > 'Z' then\r\n-- If not in uppercase letters.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
subtype Uppercase_Letters is Character range 'A' ..'Z';\r\nif Value not in Uppercase_Letters then ...<\/pre>\n\u5c06\uff1a<\/p>\n
X := Green; -- This is the Green from \r\n-- Status, not from Color.\r\nraise Fatal_Error; -- From package Outer_Scope.\r\ndelay 384.0; -- Equal to 6 minutes and 24 \r\n-- seconds.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
The_Status := Green;<\/pre>\nor:<\/p>\n
X := Status'(Green);\r\nraise Outer_Scope.Fatal_Error;\r\ndelay 6.0 * Minute + 24.0 * Second;<\/pre>\n\u5c06\uff1a<\/p>\n
if Is_Valid (The_Table (Index).Descriptor(Rank).all) then\r\n-- This is the current value for the iteration; if it is \r\n-- valid we append to the list it contains.\r\nAppend (Item, To_List => The_Table (Index).Descriptor(Rank).Ptr);|<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
declare\r\nCurrent_Rank : Lists.List renames The_Table \r\n(Index).Descriptor (Rank);\r\nbegin\r\nif Is_Valid (Current_Rank.all) then\r\nAppend (Item, To_List => Current_Rank.Ptr);\r\nend if;\r\nend;<\/pre>\n\u6ce8\u610f\u6ce8\u91ca\u4e2d\u7684\u98ce\u683c\u3001\u8bed\u6cd5\u548c\u62fc\u5199\u3002\u4e0d\u8981\u4f7f\u7528\u8c61\u7535\u62a5\u5bc6\u7801\u4e00\u822c\u7684\u98ce\u683c\u3002\u4f7f\u7528\u62fc\u5199\u68c0\u67e5\u3002\uff08\u5728\u201cRational \u73af\u5883\u201d\u4e2d\u8c03\u7528 Speller.Check_Image\uff09\u3002<\/p>\n
\u4e0d\u8981\u4f7f\u7528\u65b9\u8a00\u5b57\u6bcd\u6216\u8005\u5176\u5b83\u975e\u82f1\u6587\u5b57\u7b26\u3002\u6839\u636e Ada Issue AI-339\uff0c\u975e\u82f1\u6587\u5b57\u7b26\u53ef\u88ab\u4e00\u4e9b\u5f00\u53d1\u7cfb\u7edf\u652f\u6301\uff0c\u4e00\u4e9b Ada \u7f16\u8bd1\u5668\u4ec5\u5728\u6ce8\u91ca\u4e2d\u652f\u6301\u3002\u4f46\u8fd9\u662f\u4e0d\u53ef\u79fb\u690d\u7684\uff0c\u5f88\u6709\u53ef\u80fd\u5728\u5176\u5b83\u7cfb\u7edf\u4e0a\u5931\u6548\u3002<\/p>\n
\u5bf9\u4e8e\u5b50\u7a0b\u5e8f\uff0c\u81f3\u5c11\u8bf4\u660e\uff1a<\/p>\n
\n- \u5b50\u7a0b\u5e8f\u7684\u7528\u9014\uff0c\u4f46\u8fd9\u53ea\u662f\u5f53\u4ece\u5b83\u7684\u540d\u5b57\u4e2d\u4e0d\u80fd\u660e\u786e\u4e86\u89e3\u5176\u7528\u9014\u65f6<\/li>\n
- \u5728\u4f55\u79cd\u6761\u4ef6\u4e0b\u751f\u6210\u4e86\u4f55\u79cd\u5f02\u5e38<\/li>\n
- \u5982\u679c\u6709\u7684\u8bdd\uff0c\u53c2\u6570\u7684\u524d\u7f6e\u6216\u540e\u7f6e\u6761\u4ef6<\/li>\n
- \u5176\u4ed6\u6570\u636e\u8bbf\u95ee\uff0c\u7279\u522b\u662f\u5f53\u6570\u636e\u88ab\u4fee\u6539\u65f6\uff1b\u8fd9\u5c24\u5176\u5305\u62ec\u6709\u526f\u4f5c\u7528\u7684\u51fd\u6570<\/li>\n
- \u6b63\u786e\u4f7f\u7528\u5b50\u7a0b\u5e8f\u6240\u9700\u7684\u4efb\u4f55\u9650\u5236\u6216\u9644\u52a0\u4fe1\u606f<\/li>\n<\/ul>\n
\u5bf9\u4e8e\u7c7b\u578b\u548c\u5bf9\u8c61\uff0c\u8981\u8bf4\u660e\u6240\u6709\u4e0d\u80fd\u901a\u8fc7 Ada \u8868\u8fbe\u7684\u4e0d\u53d8\u91cf\u6216\u9644\u52a0\u7ea6\u675f\u3002<\/p>\n
\u907f\u514d\u6ce8\u91ca\u4e2d\u7684\u91cd\u590d\u3002\u4f8b\u5982\uff0c\u6709\u5173\u7528\u9014\u7684\u90e8\u5206\u5e94\u662f\u201c\u5b83\u505a\u4ec0\u4e48\uff1f\u201d\u8fd9\u4e2a\u95ee\u9898\u7684\u7b80\u5355\u56de\u7b54\uff0c\u800c\u4e0d\u662f\u201c\u5b83\u600e\u4e48\u505a\uff1f\u201d\u7684\u56de\u7b54\u3002\u6982\u8ff0\u5e94\u662f\u8bbe\u8ba1\u7684\u7b80\u77ed\u8868\u8fbe\u3002\u8bf4\u660e\u4e2d\u4e0d\u5e94\u63cf\u8ff0\u6240\u7528\u7684\u7b97\u6cd5\uff0c\u800c\u5e94\u89e3\u91ca\u7a0b\u5e8f\u5305\u5e94\u5982\u4f55\u4f7f\u7528\u3002<\/p>\n
\u6570\u636e\u7ed3\u6784\u548c\u7b97\u6cd5\u90e8\u5206\u5e94\u542b\u6709\u8db3\u591f\u7684\u4fe1\u606f\u6765\u5e2e\u52a9\u7406\u89e3\u4e3b\u8981\u7684\u5b9e\u73b0\u7b56\u7565\uff08\u4ee5\u4fbf\u6b63\u786e\u4f7f\u7528\u7a0b\u5e8f\u5305\uff09\uff0c\u4f46\u65e0\u9700\u5305\u542b\u6240\u6709\u7684\u5b9e\u73b0\u7ec6\u8282\u6216\u4e0e\u6b63\u786e\u4f7f\u7528\u5305\u6beb\u4e0d\u76f8\u5173\u7684\u4fe1\u606f\u3002<\/p>\n
\n<\/a>\u7b2c\u4e94\u7ae0<\/em><\/h2>\n\u547d\u540d\u7ea6\u5b9a<\/h1>\n\u6982\u8ff0<\/h2>\n
\u7ed9 Ada \u5b9e\u4f53\uff08\u7a0b\u5e8f\u5355\u5143\u3001\u7c7b\u578b\u3001\u5b50\u7c7b\u578b\u3001\u5bf9\u8c61\u3001\u76f4\u63a5\u91cf\u3001\u5f02\u5e38\uff09\u6307\u5b9a\u597d\u540d\u5b57\u662f\u6240\u6709\u8f6f\u4ef6\u5e94\u7528\u7a0b\u5e8f\u8981\u8868\u8ff0\u7684\u6700\u7cbe\u5de7\u7684\u4e8b\u60c5\u4e4b\u4e00\u3002\u4e2d\u7b49\u89c4\u6a21\u5230\u5927\u89c4\u6a21\u7684\u5e94\u7528\u7a0b\u5e8f\u5b58\u5728\u7740\u53e6\u4e00\u4e2a\u95ee \u9898\uff1a\u540d\u5b57\u95f4\u7684\u51b2\u7a81\uff0c\u6216\u662f\u8981\u627e\u5230\u8db3\u591f\u7684\u540c\u4e49\u8bcd\u6765\u6307\u4ee3\u76f8\u540c\u73b0\u5b9e\u4e16\u754c\u4e2d\u76f8\u4f3c\u4f46\u53c8\u6709\u522b\u7684\u6982\u5ff5\uff08\u6216\u662f\u547d\u540d\u4e00\u4e2a\u7c7b\u578b\u3001\u5b50\u7c7b\u3001\u5bf9\u8c61\u3001\u53c2\u6570\uff09\u3002\u8fd9\u91cc\u53ef\u5229\u7528\u4e0d\u91c7\u7528\u201cuse\u201d \u5b50\u53e5\uff08\u6216\u53ea\u5728\u6781\u4e3a\u53d7\u9650\u7684\u6761\u4ef6\u4e0b\u91c7\u7528\uff09\u7684\u6cd5\u5219\u3002\u5728\u8bb8\u591a\u60c5\u5f62\u4e0b\uff0c\u8fd9\u4f7f\u5f97\u53ef\u4ee5\u4e0d\u5192\u6df7\u6dc6\u7684\u98ce\u9669\u800c\u7f29\u77ed\u540d\u5b57\uff0c\u5e76\u590d\u7528\u76f8\u540c\u7684\u63cf\u8ff0\u8bcd\u3002<\/p>\n
\u9009\u62e9\u6e05\u6670\u7684\u3001\u6613\u8bfb\u7684\u3001\u6709\u610f\u4e49\u7684\u540d\u79f0\u3002<\/p>\n
\u4e0e\u5176\u5b83\u7684\u7f16\u7a0b\u8bed\u8a00\u4e0d\u540c\uff0cAda \u4e0d\u5c06\u6807\u8bc6\u7b26\u7684\u957f\u5ea6\u9650\u5236\u5728 6\uff0c8 \u6216\u8005 15 \u4e2a\u5b57\u7b26\u5185\u3002\u77ed\u540d\u5b57\u6253\u5b57\u901f\u5ea6\u5feb\u4e0d\u662f\u91c7\u7528\u5b83\u4eec\u7684\u53ef\u4ee5\u4e3a\u4eba\u63a5\u53d7\u7684\u7406\u7531\u3002\u53ea\u6709\u4e00\u4e2a\u5b57\u6bcd\u7684\u6807\u8bc6\u7b26\u901a\u5e38\u8bf4\u660e\u9009\u62e9\u4e0d\u5f53\u6216\u662f\u61d2\u60f0\u3002\u53ef\u80fd\u6709\u51e0\u4e2a\u4f8b\u5916\uff0c\u5982\u5c06 E \u4f5c\u4e3a\u81ea\u7136\u5bf9\u6570\u7684\u5e95\uff0cPi\uff0c\u4ee5\u53ca\u5176\u5b83\u5c11\u6570\u51e0\u4e2a\u6613\u8fa8\u8bc6\u7684\u60c5\u51b5\u3002<\/p>\n
\u7528\u4e0b\u5212\u7ebf\u5c06\u4e00\u4e2a\u540d\u5b57\u4e2d\u7684\u4e0d\u540c\u5355\u8bcd\u5206\u9694\u5f00\u6765\uff1a<\/p>\n
Is_Name_Valid<\/code> \u4e0d\u662f IsNameValid<\/code><\/p>\n\u91c7\u7528\u5168\u540d\u800c\u4e0d\u662f\u7f29\u5199\u3002<\/p>\n
\u53ea\u91c7\u7528\u9879\u76ee\u8ba4\u53ef\u7684\u7f29\u7565\u8bcd\u3002<\/p>\n
\u53ea\u80fd\u662f\u5728\u4e24\u79cd\u60c5\u51b5\u4e4b\u4e00\u65f6\u91c7\u7528\u7f29\u5199\uff1a\u8be5\u7f29\u5199\u5728\u5e94\u7528\u9886\u57df\u4e2d\u5f88\u666e\u904d\uff08\u5982 FFT \u4ee3\u8868\u5085\u7acb\u53f6\u53d8\u6362\uff09\u6216\u8005\u6765\u81ea\u516c\u8ba4\u7f29\u5199\u7684\u9879\u76ee\u7ea7\u5217\u8868\u3002\u5426\u5219\uff0c\u5f88\u6709\u53ef\u80fd\u4f7f\u76f8\u4f3c\u4f46\u4e0d\u76f8\u540c\u7684\u7f29\u5199\u5230\u5904\u51fa\u73b0\uff0c\u5bfc\u81f4\u4ee5\u540e\u7684\u6df7\u6dc6\u548c\u9519\u8bef\uff08\u5982\u5c06 track_identification \u7f29\u5199\u6210 trid\u3001trck_id\u3001tr_iden\u3001tid\u3001tr_ident\u7b49\uff09\u3002<\/p>\n
\u5c11\u7528\u540e\u7f00\u8bf4\u660e Ada \u6784\u9020\u7684\u5206\u7c7b\u3002\u5b83\u4eec\u4e0d\u80fd\u63d0\u9ad8\u6613\u8bfb\u6027\u3002<\/p>\n
\u901a\u5e38\u6309\u7167 Ada \u5b9e\u4f53\u7684\u7c7b\u6765\u52a0\u540e\u7f00\uff0c\u5982\u7ed9\u7a0b\u5e8f\u5305\u52a0\u4e0a _Package\uff0c\u5f02\u5e38\u52a0\u4e0a _Error\uff0c\u7c7b\u578b\u52a0\u4e0a _Type\uff0c\u4ee5\u53ca\u5b50\u7a0b\u5e8f\u7684\u53c2\u6570\u52a0\u4e0a _Param\uff0c\u5bf9\u5e2e\u52a9\u9605\u8bfb\u548c\u7406\u89e3\u4ee3\u7801\u4e0d\u662f<\/em>\u5f88\u6709\u6548\u3002 \u800c\u52a0\u4e0a\u5982 _Array\uff0c_Record \u548c _Function \u8fd9\u6837\u7684\u540e\u7f00\u5219\u66f4\u7cdf\u3002Ada \u7f16\u8bd1\u5668\u548c\u8bfb\u8005\u90fd\u53ef\u4ee5\u6839\u636e\u4e0a\u4e0b\u6587\u4ece\u5b50\u7a0b\u5e8f\u4e2d\u5206\u8fa8\u4e00\u4e2a\u5f02\u5e38\uff1a\u663e\u7136\u53ea\u6709\u5f02\u5e38\u540d\u53ef\u4ee5\u5728 raise<\/em> \u8bed\u53e5\u6216\u5f02\u5e38\u5904\u7406\u4e2d\u51fa\u73b0\u3002\u8fd9\u4e9b\u540e\u7f00\u5728\u5982\u4e0b\u53d7\u9650\u7684\u6761\u4ef6\u4e0b\u53ef\u7528\uff1a<\/p>\n\n- \u5f53\u5408\u9002\u7684\u8bcd\u7684\u9009\u62e9\u8303\u56f4\u975e\u5e38\u6709\u9650\u65f6\uff0c\u7ed9\u5bf9\u8c61\u9009\u4e00\u4e2a\u6700\u597d\u7684\u540d\u5b57\u5e76\u52a0\u4e0a\u7c7b\u578b\u7684\u540e\u7f00\u3002<\/li>\n
- \u5bf9\u4e8e\u7c7b\u5c5e\u5355\u5143,\u603b\u53ef\u4ee5\u52a0\u4e0a\u5f62\u5982 _Generic \u7684\u540e\u7f00\uff0c\u6240\u4ee5\u5bf9\u4e00\u4e9b\u6216\u8bb8\u591a\u5b9e\u4f8b\u6765\u8bf4\uff0c\u53ef\u4ee5\u4e0d\u6dfb\u52a0\u8be5\u540e\u7f00\u800c\u4f7f\u7528\u4e0e\u5176\u76f8\u540c\u7684\u540d\u5b57\u3002<\/li>\n
- \u5f53\u5b83\u8868\u793a\u4e00\u4e2a\u5e94\u7528\u9886\u57df\u7684\u6982\u5ff5\u65f6\uff0c\u5982 Aircraft_Type\u3002<\/li>\n
- \u5f53\u91cd\u8981\u7684\u8bbe\u8ba1\u51b3\u7b56\u9700\u9ad8\u5ea6\u53ef\u89c1\u65f6\uff1a<\/li>\n<\/ul>\n
\u7c7b\u5c5e\u5f62\u53c2\u7c7b\u578b\u540e\u7f00\u4e3a _Constrained<\/p>\n
\u540e\u7f00\u4e3a _Pointer \u7684\u5b58\u53d6\u7c7b\u578b\u6216\u5176\u5b83\u975e\u76f4\u63a5\u6307\u4ee3\u7684\u5f62\u5f0f\uff1a_Handle \u6216 _Reference<\/p>\n
\u901a\u8fc7 _Or_Wait \u9690\u85cf\u4e86\u53ef\u80fd\u963b\u585e\u7684\u5165\u53e3\u8c03\u7528\u7684\u5b50\u7a0b\u5e8f<\/p>\n
\u5c06\u540d\u5b57\u8868\u8ff0\u51fa\u6765\uff0c\u4f7f\u5f97\u4ece\u4f7f\u7528<\/em>\u7684\u89d2\u5ea6\u770b\uff0c\u5b83\u4eec\u8fd8\u4e0d\u9519\u3002<\/p>\n\u8bd5\u60f3\u4e00\u4e2a\u5bfc\u51fa\u5b9e\u4f53\u53ef\u5728\u5176\u4e2d\u4f7f\u7528\u7684\u4e0a\u4e0b\u6587\uff0c\u5e76\u7ad9\u5728\u90a3\u4e2a\u89d2\u5ea6\u9009\u62e9\u4e00\u4e2a\u540d\u5b57\u3002\u4e00\u4e2a\u5b9e\u4f53\u4ec5\u88ab\u5b9a\u4e49\u4e00\u6b21\uff0c\u4f46\u5374\u88ab\u4f7f\u7528\u8bb8\u591a\u6b21\u3002\u8fd9\u4e00\u70b9\u5bf9\u4e8e\u5b50\u7a0b\u5e8f\u7684\u540d\u5b57\u53ca\u5176\u53c2\u6570\u6765\u8bf4\u5c24\u4e3a\u6b63\u786e\uff1b \u4f7f\u7528\u547d\u540d\u5173\u8054\u5173\u7cfb\u7684\u7ed3\u679c\u8c03\u7528\u5e94\u5c3d\u91cf\u4e0e\u81ea\u7136\u8bed\u8a00\u76f8\u8fd1\u3002\u8bb0\u4f4f\u7f3a\u5c11\u4f7f\u7528<\/em>\u5b50\u53e5\u4f7f\u5f97\u5927\u591a\u6570\u58f0\u660e\u5b9e\u4f53\u5fc5\u987b\u5177\u6709\u53d7\u9650\u540d\u3002\u5bf9\u4e8e\u6709\u53ef\u80fd\u5728\u7c7b\u5c5e\u5355\u5143\u4e2d\u6bd4\u5728\u4eab\u7528\u6a21\u5757\u90a3\u91cc\u4f7f\u7528\u5f97\u8fd8\u591a\u7684\u7c7b\u5c5e\u5f62\u53c2\u6765\u8bf4\uff0c\u5fc5\u987b\u5bfb\u627e\u4e00\u4e2a\u597d\u7684\u534f\u8c03\u529e\u6cd5\uff0c\u4f46\u662f\u7edd\u5bf9\u8981\u4fdd\u8bc1\u5b50\u7a0b\u5e8f\u7684\u5f62\u53c2\u5728\u4eab\u7528\u6a21\u5757\u7aef\u597d\u770b\u3002<\/p>\n\u4f7f\u7528\u82f1\u6587\u5355\u8bcd\u5e76\u62fc\u5199\u6b63\u786e\u3002<\/p>\n
\u8bed\u8a00\u7684\u6df7\u5408\uff08\u5982\u6cd5\u8bed\u548c\u82f1\u8bed\uff09\u5c06\u4f7f\u4ee3\u7801\u96be\u8bfb\uff0c\u6709\u65f6\u4f7f\u6807\u8bc6\u7b26\u7684\u610f\u4e49\u6478\u68f1\u4e24\u53ef\u3002 \u65e2\u7136 Ada \u7684\u5173\u952e\u5b57\u5df2\u662f\u82f1\u6587\u7684\uff0c\u5219\u8981\u6c42\u4f7f\u7528\u82f1\u6587\u5355\u8bcd\u3002\u6700\u597d\u91c7\u7528\u7f8e\u5f0f\u62fc\u6cd5\uff0c\u4ee5\u4fbf\u5229\u7528\u201cRational \u73af\u5883\u201d\u4e2d\u5185\u7f6e\u7684\u62fc\u5199\u68c0\u67e5\u3002<\/p>\n
\u4e0d\u8981\u91cd\u65b0\u5b9a\u4e49 Standard \u7a0b\u5e8f\u5305\u4e2d\u7684\u4efb\u4f55\u5b9e\u4f53\u3002\u8fd9\u662f\u7edd\u5bf9\u7981\u6b62\u7684\u3002<\/p>\n
\u8fd9\u6837\u505a\u5c06\u4ea7\u751f\u6df7\u6dc6\u548c\u4e25\u91cd\u7684\u9519\u8bef\u3002\u8be5\u6cd5\u5219\u53ef\u5ef6\u4f38\u81f3\u5176\u5b83\u9884\u5b9a\u4e49\u7684\u5e93\u5355\u5143\uff1aCalendar\uff0cSystem\u3002\u8fd9\u4e5f\u5305\u62ec Standard<\/em> \u6807\u8bc6\u7b26\u672c\u8eab\u3002<\/p>\n\u907f\u514d\u5bf9\u5176\u5b83\u9884\u5b9a\u4e49\u7a0b\u5e8f\u5305\u4e2d\u7684\u6807\u8bc6\u7b26\u91cd\u5b9a\u4e49\uff0c\u5982 System \u6216 Calendar\u3002<\/p>\n
\u4e0d\u8981\u4f7f\u7528\u5982\u4e0b\u7684\u6807\u8bc6\u7b26\uff1aWide_Character<\/strong> \u548c Wide_String<\/strong>\uff0c\u5b83\u4eec\u5c06\u5728 Ada 95 \u7684 Standard \u7a0b\u5e8f\u5305\u4e2d\u5f15\u5165\u3002\u4e0d\u8981\u5f15\u5165\u4e00\u4e2a\u540d\u4e3a Ada<\/strong> \u7684\u7f16\u8bd1\u5355\u5143\u3002<\/p>\n\u4e0d\u8981\u4f7f\u7528\u4ee5\u4e0b\u5355\u8bcd\u4f5c\u4e3a\u6807\u8bc6\u7b26\uff1aabstract<\/strong>\uff0caliased<\/strong>\uff0cprotected<\/strong>\uff0crequeue<\/strong>\uff0ctagged<\/strong> \u548c until<\/strong>\uff0c\u5b83\u4eec\u5728 Ada 95 \u5c06\u6210\u4e3a\u5173\u952e\u5b57\u3002<\/p>\n\u4e00\u4e9b\u7ed9\u5404\u79cd Ada \u5b9e\u4f53\u7684\u547d\u540d\u5efa\u8bae\u4e5f\u662f\u540c\u6837\u3002\u5047\u5b9a\u4e00\u822c\u60c5\u5f62\u4e0b\uff0c\u201c\u9762\u5411\u5bf9\u8c61\u201d\u98ce\u683c\u7684\u8bbe\u8ba1\u53d7\u6b22\u8fce\u3002\u8be6\u60c5\u8bf7\u53c2\u89c1\u9644\u5f55 A\u3002<\/p>\n
<\/a>\u7a0b\u5e8f\u5305<\/h2>\n\u5f53\u4e00\u4e2a\u7a0b\u5e8f\u5305\u5f15\u5165\u4e86\u67d0\u4e2a\u5bf9\u8c61\u7c7b\u65f6\uff0c\u7528\u8be5\u5bf9\u8c61\u7c7b\u7684\u540d\u5b57\u547d\u540d\u7a0b\u5e8f\u5305\uff0c\u901a\u5e38\u662f\u4e00\u4e2a\u5355\u6570\u5f62\u5f0f\u7684\u540d\u8bcd\uff0c\u82e5\u9700\u8981\uff08\u5373\u5b9a\u4e49\u4e86\u4e00\u4e2a\u5e26\u53c2\u6570\u7684\u7c7b\uff09\uff0c\u53ef\u52a0\u4e0a\u540e\u7f00 _Generic\u3002\u4ec5\u5f53\u5bf9\u8c61\u603b\u4ee5\u7fa4\u4f53\u5f62\u5f0f\u51fa\u73b0\u65f6\uff0c\u624d\u91c7\u7528\u590d\u6570\u5f62\u5f0f\u3002\u4f8b\u5982\uff1a<\/p>\n
package Text is\r\npackage Line is\r\npackage Mailbox is\r\npackage Message is\r\npackage Attributes is\r\npackage Subscriber is\r\npackage List_Generic is<\/pre>\n\u82e5\u4e00\u4e2a\u7a0b\u5e8f\u5305\u8bf4\u660e\u4e86\u4e00\u4e2a\u63a5\u53e3\u6216\u8005\u529f\u80fd\u5206\u7ec4\uff0c\u5e76\u4e14\u5b83\u4e0d\u4e0e\u4efb\u4f55\u5bf9\u8c61\u76f8\u5173\uff0c\u5219\u5e94\u5728\u5b83\u7684\u540d\u5b57\u4e2d\u5c06\u8fd9\u4e00\u70b9\u8868\u8ff0\u51fa\u6765\uff1a<\/p>\n
package Low_Layer_Interface is\r\npackage Math_Definitions is<\/pre>\n\u5f53\u4e00\u4e2a\u201c\u903b\u8f91\u201d\u5305\u7528\u5e73\u9762\u5206\u89e3 (flat decomposition)\uff0c\u9700\u8981\u4f5c\u4e3a\u51e0\u4e2a\u5305\u6765\u8868\u8fbe\u65f6\uff0c\u91c7\u7528\u9879\u76ee\u7ea7\u4e00\u81f4\u7684\u5217\u8868\u4e2d\u7684\u540e\u7f00\u3002\u4f8b\u5982\uff0c\u4e00\u4e2a\u903b\u8f91\u7a0b\u5e8f\u5305 Mailbox \u53ef\u5982\u4e0b\u5b9e\u73b0\uff1a<\/p>\n
package Mailbox_Definitions is\r\npackage Mailbox_Exceptions is\r\npackage Mailbox_Io is\r\npackage Mailbox_Utilities is\r\npackage Mailbox_Implementation is\r\npackage Mailbox_Main is<\/pre>\n\u5176\u5b83\u53ef\u63a5\u53d7\u7684\u540e\u7f00\u6709\uff1a<\/p>\n
_Test_Support \r\n_Test_Main \r\n_Log \r\n_Hidden_Definitions \r\n_Maintenance \r\n_Debug<\/pre>\n<\/a>\u7c7b\u578b<\/h2>\n\u5f53\u5728\u7a0b\u5e8f\u5305\u4e2d\u5b9a\u4e49\u4e00\u4e2a\u5bf9\u8c61\u7c7b\u8574\u6db5\u62f7\u8d1d\u8bed\u4e49\u65f6 – \u5373\u5f53\u7c7b\u578b\u53ef\u5b9e\u4f8b\u5316\u5e76\u4e14\u67d0\u79cd\u5f62\u5f0f\u7684\u4efb\u52a1\u5206\u914d\u53ef\u884c\u65f6\uff0c\u91c7\u7528\uff1a<\/p>\n
type Object is ...<\/pre>\n\u6ce8\u610f\u7c7b\u540d\u4e0d\u5e94\u5728\u6807\u8bc6\u7b26\u4e2d\u91cd\u590d\uff0c\u56e0\u4e3a\u5b83\u603b\u662f\u4ee5\u5b8c\u5168\u53d7\u9650\u7684\u5f62\u5f0f\u4f7f\u7528\uff1a<\/p>\n
Mailbox.Object\r\nLine.Object<\/pre>\n\u5f53\u5305\u542b\u5171\u4eab\u8bed\u4e49\u65f6 – \u5373\u7c7b\u578b\u7528\u5b58\u53d6\u503c\uff08\u6216\u8005\u5176\u5b83\u975e\u76f4\u63a5\u7684\u5f62\u5f0f\uff09\u5b9e\u73b0\uff0c\u5e76\u4e14\u8d4b\u503c\u8bed\u53e5\uff08\u82e5\u5b58\u5728\uff09\u4e0d\u590d\u5236\u5bf9\u8c61 – \u7528\u5982\u4e0b\u65b9\u5f0f\u8bf4\u660e\uff1a<\/p>\n
UL><\/p>\n
\ntype Handle is <\/code>\u7528\u4e8e\u975e\u76f4\u63a5\u5f15\u7528<\/li>\ntype Reference is <\/code>\u662f\u4e00\u4e2a\u53ef\u884c\u7684\u5907\u7528\u65b9\u6848<\/li>\n<\/ul>\n\u8fd9\u4e9b\u5143\u7d20\u5728\u5355\u72ec\u4f7f\u7528\u65f6\u4f5c\u540e\u7f00\uff0c\u524d\u9762\u52a0\u4e0a\u5305\u540d\uff0c\u8fd9\u6837\u5e76\u4e0d\u6e05\u695a\u6216\u975e\u5e38\u6478\u68f1\u4e24\u53ef\u3002<\/p>\n
\u5f53\u8574\u6db5\u591a\u4e2a\u5bf9\u8c61\u65f6\uff0c\u91c7\u7528\uff1a<\/p>\n
\ntype Set is <\/code>\u5f53\u6697\u542b\u5143\u7d20\u7684\u7279\u6b8a\u6027\u65f6<\/li>\ntype List is <\/code>\u5f53\u5305\u542b\u67d0\u79cd\u6b21\u5e8f\u65f6<\/li>\ntype Collection is<\/code> \u5f53\u65e2\u4e0d\u542b\u96c6\u5408\u4e5f\u4e0d\u542b\u5217\u8868\u8bed\u4e49\u65f6<\/li>\ntype Iterator is<\/code> \u5f53\u63d0\u4f9b\u4e86 Initialize\uff0cValue_Of\uff0cNext\uff0cIs_Done \u7b49\u539f\u8bed\u65f6
\n\uff08\u53c2\u89c1 6.5 \u8282\uff09<\/li>\n<\/ul>\n\u5bf9\u4e8e\u67d0\u4e2a\u5bf9\u8c61\u4e32\u7684\u6307\u5b9a\uff0c\u91c7\u7528\uff1a<\/p>\n
type Name is<\/code><\/p>\n\u4e3a\u4e86\u8fbe\u5230\u66f4\u597d\u7684\u6613\u8bfb\u6027\uff0c\u7c7b\u578b\u7684\u53d7\u9650\u540d\u4e5f\u5e94\u5728\u6574\u4e2a\u5b9a\u4e49\u5305\u5185\u4f7f\u7528\u3002\u201cRational \u73af\u5883\u201d\u4e2d\uff0c\u5f53\u5728\u5b50\u7a0b\u5e8f\u8c03\u7528\u4e2d\u91c7\u7528 [Complete] \u51fd\u6570\u65f6\uff0c\u4e0a\u8ff0\u65b9\u6cd5\u4e5f\u53ef\u4f7f\u8fd0\u884c\u66f4\u52a0\u597d\u3002<\/p>\n
\u4f8b\u5982\uff0c\u6ce8\u610f\u4e0b\u9762\u7684\u5b8c\u5168\u540d Subscriber.Object\uff1a<\/p>\n
package Subscriber is\r\ntype Object is private;\r\ntype Handle is access Subscriber.Object;\r\nsubtype Name is String;\r\npackage List is new List_Generic (Subscriber.Handle);\r\nMaster_List : Subscriber.List.Handle;\r\nprocedure Create (The_Handle : out Subscriber.Handle;\r\nWith_Name : in Subscriber.Name);\r\nprocedure Append (The_Subscriber : in Subscriber.Handle;\r\nTo_List : in out Subscriber.List.Handle);\r\nfunction Name_Of (The_Subscriber : Subscriber.Handle) return\r\nSubscriber.Name;\r\n ...\r\nprivate\r\ntype Object is\r\nrecord\r\nThe_Name : Subscriber.Name (1..20);\r\n ...\r\nend Subscriber;<\/pre>\n\u5728\u5176\u5b83\u60c5\u51b5\u4e0b\uff0c\u7c7b\u540d\u91c7\u7528\u540d\u8bcd\u6216\u8005\u4fee\u9970\u7b26 + \u540d\u8bcd\u3002\u7c7b\u578b\u53ef\u7528\u590d\u6570\u5f62\u5f0f\uff0c\u5bf9\u8c61\uff08\u53d8\u91cf\uff09\u540d\u91c7\u7528\u5355\u6570\uff1a<\/p>\n
type Point is record ...\r\ntype Hidden_Attributes is ( ...\r\ntype Boxes is array ...<\/pre>\n\u5bf9\u4e8e\u679a\u4e3e\u7c7b\u578b\uff0c\u5355\u72ec\u6216\u8005\u4f5c\u4e3a\u540e\u7f00\u4f7f\u7528 Mode\uff0cKind\uff0cCode \u7b49\u5355\u8bcd\u3002<\/p>\n
\u5bf9\u4e8e\u6570\u7ec4\u7c7b\u578b\uff0c\u5f53\u5df2\u5c06\u7b80\u5355\u540d\u7528\u4e8e\u7ec4\u4ef6\u7c7b\u578b\u65f6\uff0c\u53ef\u4ee5\u91c7\u7528\u540e\u7f00 _Table\u3002\u4ec5\u5f53\u6570\u7ec4\u7528\u8574\u6db5\u8bed\u4e49\u6765\u7ef4\u62a4\u65f6\uff0c\u624d\u91c7\u7528\u8c61 _Set \u548c _List \u8fd9\u6837\u7684\u540d\u5b57\u6216\u540e\u7f00\u3002Reserve _Vector \u548c _Matrix \u5e94\u7559\u4f5c\u76f8\u5e94\u7684\u6570\u5b66\u6982\u5ff5\u4f7f\u7528\u3002<\/p>\n
\u56e0\u4e3a\u8981\u907f\u514d\u5355\u6570\u7684\u4efb\u52a1\u5bf9\u8c61\uff08\u539f\u56e0\u5728\u540e\u6587\u89e3\u91ca\uff09\uff0c\u6240\u4ee5\u5373\u4f7f\u53ea\u6709\u4e00\u4e2a\u8be5\u7c7b\u578b\u7684\u5bf9\u8c61\u65f6\uff0c\u4e5f\u5e94\u5f15\u5165\u4efb\u52a1\u7c7b\u578b\u3002\u4e0b\u9762\u662f\u4f7f\u7528\u4e86\u4e00\u4e2a\u8c61 _Type \u8fd9\u6837\u7684\u7b80\u5355\u540e\u7f00\u4e4b\u540e\u4fbf\u4ee4\u4eba\u6ee1\u610f\u7684\u4f8b\u5b50\uff1a<\/p>\n
task type Listener_Type is ...\r\nfor Listener_Type'Storage_Size use ...\r\nListener : Listener_Type;<\/pre>\n\u7c7b\u4f3c\u5730\uff0c\u5f53\u7c7b\u578b\u540d\u91c7\u7528\u540d\u8bcd\uff08\u6216\u8005\u540d\u8bcd\u77ed\u8bed\uff09\u5b58\u5728\u51b2\u7a81\u65f6\uff0c\u6216\u8005\u51e0\u5904\u7684\u5bf9\u8c61\u540d\u6216\u53c2\u6570\u540d\u6709\u51b2\u7a81\u65f6\uff0c\u5728\u8be5\u7c7b\u578b\u540d\u540e\u52a0\u4e0a\u540e\u7f00 _Kind\uff0c\u800c\u8ba9\u5bf9\u8c61\u4f7f\u7528\uff08\u65e0\u540e\u7f00\u7684\uff09\u7b80\u5355\u540d\u8bcd\uff1a<\/p>\n
type Status_Kind is (None, Normal, Urgent, Red);\r\nStatus : Status_Kind := None;<\/pre>\n\u6216\u8005\uff0c\u5bf9\u4e8e\u603b\u4ee5\u590d\u6570\u51fa\u73b0\u7684\u4e8b\u7269\u7684\u7c7b\u578b\uff0c\u91c7\u7528\u590d\u6570\u5f62\u5f0f\u3002<\/p>\n
\u56e0\u4e3a\u5b58\u53d6\u7c7b\u578b\u5b58\u5728\u56fa\u6709\u7684\u5371\u5bb3\uff0c\u6240\u4ee5\u4f7f\u7528\u8005\u5e94\u5c0f\u5fc3\u3002\u4e00\u822c\u5b83\u4eec\u53eb\u505a Pointer\u3002\u5982\u679c\u540d\u5b57\u672c\u8eab\u610f\u4e49\u8fd8\u5f88\u6478\u68f1\u4e24\u53ef\uff0c\u5219\u5e94\u52a0\u4e0a\u540e\u7f00 _pointer\u3002\u4f5c\u4e3a\u540e\u5907\u65b9\u6848\uff0c\u4e5f\u53ef\u91c7\u7528 _Access \u505a\u540e\u7f00\u3002<\/p>\n
\u6709\u65f6\u91c7\u7528\u5d4c\u5957\u5b50\u7a0b\u5e8f\u5305\u6765\u5f15\u5165\u6b21\u7ea7\u62bd\u8c61\u53ef\u4ee5\u7b80\u5316\u547d\u540d\uff1a<\/p>\n
package Subscriber is ...\r\npackage Status is\r\ntype Kind is (Ok, Deleted, Incomplete, Suspended, \r\nPrivileged);\r\nfunction Set (The_Status : Subscriber.Status.Kind;\r\nTo_Subscriber : Subscriber.Handle);\r\nend Status;\r\n ...<\/pre>\n<\/a>\u5f02\u5e38<\/h2>\n\u56e0\u4e3a\u5f02\u5e38\u53ea\u80fd\u7528\u6765\u5904\u7406\u9519\u8bef\uff0c\u6240\u4ee5\u5e94\u4f7f\u7528\u540d\u8bcd\u6216\u540d\u8bcd\u77ed\u8bed\u6765\u6e05\u695a\u8868\u8fbe\u4e00\u4e2a\u8d1f\u9762\u7684\u610f\u4e49\uff1a<\/p>\n
Overflow, Threshold_Exceeded, Bad_Initial_Value<\/pre>\n\u5f53\u5728\u4e00\u4e2a\u7c7b\u7a0b\u5e8f\u5305\u4e2d\u5b9a\u4e49\u5f02\u5e38\u65f6\uff0c\u6807\u8bc6\u7b26\u65e0\u9700\u5305\u542b\u7c7b\u540d – \u4f8b\u5982 Bad_Initial_Subscriber_Value – \u56e0\u4e3a\u5f02\u5e38\u4e00\u76f4\u88ab\u7528\u4f5c Subscriber.Bad_Initial_Value\u3002<\/p>\n
\u91c7\u7528 Bad\uff0cIncomplete\uff0cInvalid\uff0cWrong\uff0cMissing \u6216\u8005 Illegal \u4e2d\u7684\u4e00\u4e2a\u5355\u8bcd\u4f5c\u4e3a\u540d\u5b57\u7684\u4e00\u90e8\u5206\uff0c\u800c\u4e0d\u662f\u7cfb\u7edf\u5730\u91c7\u7528\u4e0d\u4f20\u8fbe\u4efb\u4f55\u8be6\u7ec6\u4fe1\u606f\u7684 Error\uff1a<\/p>\n
Illegal_Data, Incomplete_Data<\/pre>\n<\/a>\u5b50\u7a0b\u5e8f<\/h2>\n\u8fc7\u7a0b\uff08\u548c\u4efb\u52a1\u5165\u53e3\uff09\u91c7\u7528\u52a8\u8bcd\u3002\u51fd\u6570\u540d\u91c7\u7528\u5e26\u6709\u5bf9\u8c61\u7c7b\u5c5e\u6027\u6216\u7279\u5f81\u7684\u540d\u8bcd\u3002\u8fd4\u56de\u5e03\u5c14\u503c\uff08\u8c13\u8bcd\uff09\u7684\u51fd\u6570\u4f7f\u7528\u5f62\u5bb9\u8bcd\uff08\u6216\u8fc7\u53bb\u5206\u8bcd\uff09\u3002<\/p>\n
Subscriber.Create\r\nSubscriber.Destroy\r\nSubscriber.List.Append\r\nSubscriber.First_Name -- Returns a string.\r\nSubscriber.Creation_Date -- Returns a date.\r\nSubscriber.List.Next\r\nSubscriber.Deleted -- Returns a Boolean.\r\nSubscriber.Unavailable -- Returns a Boolean.\r\nSubscriber.Remote<\/pre>\n\u5bf9\u4e8e\u8c13\u8bcd\uff0c\u5728\u4e00\u4e9b\u60c5\u51b5\u4e0b\u7ed9\u540d\u8bcd\u524d\u9762\u52a0\u4e0a\u524d\u7f00 Is_ \u6216 Has_ \u6216\u8bb8\u6709\u5e2e\u52a9\uff1b\u65f6\u6001\u8981\u51c6\u786e\u548c\u4e00\u81f4\uff1a<\/p>\n
function Has_First_Name ...\r\nfunction Is_Administrator ...\r\nfunction Is_First...\r\nfunction Was_Deleted ...<\/pre>\n\u5f53\u7b80\u5355\u540d\u79f0\u5df2\u4f5c\u4e3a\u7c7b\u578b\u540d\u6216\u679a\u4e3e\u578b\u76f4\u63a5\u91cf\u65f6\uff0c\u4e0a\u8ff0\u65b9\u6cd5\u6709\u7528\u3002<\/p>\n
\u8c13\u8bcd\u5e94\u4f7f\u7528\u80af\u5b9a\u5f0f\uff0c\u4e5f\u5c31\u662f\u8bf4\uff0c\u5176\u4e2d\u4e0d\u5e94\u542b\u6709\u201cNot_\u201d\u4e00\u8bcd\u3002<\/p>\n
\u5bf9\u4e8e\u666e\u901a\u64cd\u4f5c\uff0c\u7edf\u4e00\u4ece\u9879\u76ee\u53ef\u9009\u5217\u8868\uff08\u5217\u8868\u968f\u7740\u6211\u4eec\u5bf9\u7cfb\u7edf\u8ba4\u8bc6\u7684\u52a0\u6df1\u800c\u6269\u5c55\uff09\u4e2d\u9009\u62e9\u52a8\u8bcd\uff1a<\/p>\n
Create\r\nDelete\r\nDestroy\r\nInitialize\r\nAppend\r\nRevert\r\nCommit\r\nShow, Display<\/pre>\n\u8c13\u8bcd\u51fd\u6570\u548c\u5e03\u5c14\u578b\u7684\u53c2\u6570\u91c7\u7528\u80af\u5b9a\u5f0f\u3002\u5426\u5b9a\u5f0f\u7684\u540d\u5b57\u53ef\u80fd\u4ea7\u751f\u53cc\u91cd\u5426\u5b9a\uff08\u4f8b\u5982 Not Is_Not_Found\uff09\uff0c\u4ece\u800c\u4f7f\u4ee3\u7801\u96be\u8bfb\u3002<\/p>\n
function Is_Not_Valid (...) return Boolean\r\nprocedure Find_Client (With_The_Name : in Name;\r\nNot_Found : out Boolean)<\/pre>\n\u5e94\u5b9a\u4e49\u6210\uff1a<\/p>\n
function Is_Valid (...) return Boolean;\r\nprocedure Find_Client (With_The_Name: in Name;\r\nFound: out Boolean)<\/pre>\n\u8fd9\u624d\u8ba9\u4eab\u7528\u6a21\u5757\u6309\u5176\u6240\u9700\u7684\u90a3\u6837\u5b9e\u73b0\u4e86\u8868\u8fbe\u5f0f\u7684\u5426\u5b9a\uff08\u8fd9\u6837\u505a\u4e0d\u4f1a\u5bfc\u81f4\u8fd0\u884c\u65f6\u95f4\u5ef6\u957f\uff09\uff1a<\/p>\n
if not Is_Valid (...) then ....<\/pre>\n\u6709\u4e9b\u60c5\u51b5\u4e0b\uff0c\u901a\u8fc7\u4f7f\u7528\u53cd\u4e49\u8bcd\uff0c\u5982\u7528\u201cIs_Invalid\u201d\u6765\u4ee3\u66ff\u201cIs_Not_Valid\u201d\uff0c\u53ef\u4ee5\u4f7f\u5426\u5b9a\u8c13\u8bcd\u5728\u4e0d\u6539\u53d8\u8bed\u4e49\u7684\u60c5\u51b5\u4e0a\u53d8\u6210\u80af\u5b9a\u5f0f\u3002\u4f46\u662f\uff0c\u80af\u5b9a\u5f0f\u7684\u540d\u5b57\u66f4\u6613\u8bfb\uff1a \u201cIs_Valid\u201d\u6bd4\u201cnot Is_Invalid\u201d\u66f4\u6613\u7406\u89e3\u3002<\/p>\n
\u5f53\u8574\u6db5\u7740\u5927\u81f4\u76f8\u540c\u7684\u610f\u4e49\u65f6\uff0c\u91c7\u7528\u76f8\u540c\u7684\u5355\u8bcd\uff0c\u800c\u4e0d\u662f\u5bfb\u627e\u540c\u4e49\u8bcd\u6216\u53d8\u4f53\u3002\u56e0\u6b64\uff0c\u9f13\u52b1\u4f7f\u7528\u91cd\u8f7d\u6765\u63d0\u9ad8\u4ee3\u7801\u7684\u4e00\u81f4\u6027\uff0c\u9075\u5faa\u6700\u5c0f\u9650\u5ea6\u610f\u5916\u539f\u5219\u3002<\/p>\n
\u82e5\u5b50\u7a0b\u5e8f\u88ab\u7528\u505a\u5165\u53e3\u8c03\u7528\u7684\u201c\u5916\u8868\u201d (skins) \u6216\u8005\u201c\u5305\u88c5\u201d (wrappers)\uff0c\u5219\u7ed9\u5176\u540d\u5b57\u52a8\u8bcd\u52a0\u4e0a\u540e\u7f00 _Or_Wait\uff0c\u6216\u8005\u7ed9\u51fd\u6570\u53d6\u4e2a Wait_For_ \u77ed\u8bed\u52a0\u540d\u8bcd\u7684\u540d\u5b57\u6765\u53cd\u6620\u8fd9\u4e00\u70b9\uff0c\u8fd9\u6837\u53ef\u80fd\u6709\u7528\uff1a<\/p>\n
Subscriber.Get_Reply_Or_Wait\r\nSubscriber.Wait_For_Reply<\/pre>\n\u4e00\u4e9b\u64cd\u4f5c\u5e94\u4e00\u76f4\u4f7f\u7528\u76f8\u540c\u7684\u540d\u5b57\u6765\u7edf\u4e00\u5b9a\u4e49\uff1a<\/p>\n
\u5bf9\u4e8e\u8f6c\u6362\u5230\u5b57\u4e32\u548c\u4ece\u5b57\u4e32\u8f6c\u6362\u6765\u7684\u7c7b\u578b\u53d8\u6362\uff0c\u5bf9\u79f0\u51fd\u6570\u662f\uff1a<\/p>\n
function Image and function Value<\/pre>\n\u5bf9\u4e8e\u8f6c\u6362\u5230\u4f4e\u7ea7\u8868\u793a\u6cd5\uff08\u5982\u7528\u4e8e\u6570\u636e\u4ea4\u6362\u7684 Byte_String\uff09\u548c\u4ece\u4f4e\u7ea7\u8868\u793a\u6cd5\u8f6c\u6362\u8fc7\u6765\u7684\u7c7b\u578b\u53d8\u6362\uff0c\u5bf9\u79f0\u8fc7\u7a0b\u662f\uff1a<\/p>\n
procedure Read and Write<\/pre>\n\u5bf9\u4e8e\u5206\u914d\u6570\u636e\uff1a<\/p>\n
function Allocate (rather than Create)\r\nfunction Destroy (or Release, to express that the object will disappear)<\/pre>\n\u5f53\u7cfb\u7edf\u5730\u5904\u7406\u5b83\u4eec\u65f6\u91c7\u7528\u7edf\u4e00\u7684\u547d\u540d\uff0c\u7c7b\u578b\u5408\u6210\u5c06\u5bb9\u6613\u8bb8\u591a\u3002<\/p>\n
\u5bf9\u4e8e\u6d3b\u52a8\u7684\u8fed\u4ee3\u7a0b\u5e8f\uff0c\u5fc5\u987b\u5b9a\u4e49\u4ee5\u4e0b\u539f\u8bed\uff1a<\/p>\n
Initialize\r\nNext\r\nIs_Done\r\nValue_Of<\/pre>\n\u82e5\u53ef\u884c\uff0c\u8fd8\u8981\u5b9a\u4e49 Reset<\/code>\u3002\u82e5\u8981\u5728\u76f8\u540c\u7684\u4f5c\u7528\u57df\u8303\u56f4\u5185\u5f15\u5165\u51e0\u4e2a\u8fed\u4ee3\u7c7b\u578b\uff0c\u90a3\u4e48\u5e94\u91cd\u8f7d\u8fd9\u4e9b\u539f\u8bed\uff0c\u800c\u4e0d\u662f\u4e3a\u6bcf\u4e2a\u8fed\u4ee3\u7a0b\u5e8f\u5206\u522b\u5f15\u5165\u4e00\u5957\u5404\u4e0d\u76f8\u540c\u7684\u6807\u8bc6\u7b26\u3002\u53c2\u89c1 [BOO87]<\/a>\u3002<\/p>\n\u5f53\u91c7\u7528 Ada \u9884\u786e\u5b9a\u5c5e\u6027\u4f5c\u4e3a\u51fd\u6570\u540d\u65f6\uff0c\u8981\u4fdd\u8bc1\u5176\u7528\u6cd5\u4e0e\u4e00\u822c\u7684\u8bed\u4e49\u76f8\u540c\uff1a’First\uff0c’Last\uff0c’Length\uff0c’Image\uff0c’Value\uff0c\u7b49\u7b49\u3002 \u6ce8\u610f\uff0c\u51e0\u4e2a\u5c5e\u6027\uff08\u5982 ‘Range \u548c ‘Delta\uff09\u662f\u4e0d\u80fd\u7528\u505a\u51fd\u6570\u540d\u7684\uff0c\u56e0\u4e3a\u5b83\u4eec\u662f\u4fdd\u7559\u5b57\u3002<\/p>\n
<\/a>\u5bf9\u8c61\u548c\u5b50\u7a0b\u5e8f\uff08\u6216\u5165\u53e3\uff09\u53c2\u6570<\/h2>\n\u4e3a\u8868\u660e\u5176\u552f\u4e00\u6027\u6216\u662f\u8868\u660e\u8be5\u5b9e\u4f53\u662f\u6d3b\u52a8\u7684\u4e3b\u8981\u805a\u96c6\u5904\uff0c\u5728\u5bf9\u8c61\u6216\u53c2\u6570\u540d\u79f0\u524d\u52a0\u524d\u7f00\u201cThe\u201d\u6216\u201cThis\u201d\u3002\u8981\u8bf4\u660e\u4e00\u4e2a\u6b21\u8981\u3001\u4e34\u65f6\u3001\u8f85\u52a9\u7684\u5bf9\u8c61\uff0c\u5219\u52a0\u524d\u7f00\u201cA_\u201d\u6216\u201cCurrent_\u201d\uff1a<\/p>\n
procedure Change_Name (The_Subscriber : in Subscriber.Handle;\r\nThe_Name : in Subscriber.Name );\r\ndeclare\r\nA_Subscriber : Subscriber.Handle := Subscriber.First;\r\nbegin\r\n ...\r\nA_Subscriber := Subscriber.Next (The_Subscriber);\r\nend;<\/pre>\n\u5bf9\u4e8e\u5e03\u5c14\u578b\u7684\u5bf9\u8c61\uff0c\u91c7\u7528\u80af\u5b9a\u5f0f\u7684\u8c13\u8bcd\u5b50\u53e5\uff1a<\/p>\n
Found_It\r\nIs_Available<\/pre>\n\u4f46\u662f\uff1a<\/p>\n
Is_Not_Available<\/code> \u5fc5\u987b\u907f\u514d\u3002<\/p>\n\u5bf9\u4e8e\u4efb\u52a1\u5bf9\u8c61\uff0c\u5e94\u91c7\u7528\u4e00\u4e2a\u8574\u6db5\u4e86\u6d3b\u52a8\u5b9e\u4f53\u7684\u540d\u8bcd\u6216\u8005\u540d\u8bcd\u77ed\u8bed\uff1a<\/p>\n
Listener\r\nResource_Manager\r\nTerminal_Driver<\/pre>\n
\u6982\u8ff0<\/a>
\n\u5b57\u6bcd\u5927\u5c0f\u5199<\/a>
\n\u7f29\u8fdb<\/a>
\n\u884c\u7684\u957f\u5ea6\u4e0e\u884c\u7684\u5206\u9694<\/a>
\n\u5bf9\u9f50<\/a><\/h4>\n\u6ce8\u91ca<\/a><\/h3>\n\u6982\u8ff0<\/a>
\n\u6ce8\u91ca\u7528\u6cd5\u6307\u5357<\/a><\/h4>\n\u547d\u540d\u7ea6\u5b9a<\/a><\/h3>\n\u6982\u8ff0<\/a>
\n\u7a0b\u5e8f\u5305<\/a>
\n\u7c7b\u578b<\/a>
\n\u5f02\u5e38<\/a>
\n\u5b50\u7a0b\u5e8f<\/a>
\n\u5bf9\u8c61\u548c\u5b50\u7a0b\u5e8f\uff08\u6216\u5165\u53e3\uff09\u53c2\u6570<\/a>
\n\u7c7b\u5c5e\u5355\u5143<\/a>
\n\u5b50\u7cfb\u7edf\u7684\u547d\u540d\u7b56\u7565<\/a><\/h4>\n\u7c7b\u578b\u3001\u5bf9\u8c61\u548c\u7a0b\u5e8f\u5355\u5143\u7684\u58f0\u660e<\/a><\/h3>\n\u679a\u4e3e\u7c7b\u578b<\/a>
\n\u6570\u503c\u7c7b\u578b<\/a>
\n\u5b9e\u578b<\/a>
\n\u8bb0\u5f55\u7c7b\u578b<\/a>
\n\u5b58\u53d6\u7c7b\u578b<\/a>
\n\u79c1\u6709\u7c7b\u578b<\/a>
\n\u6d3e\u751f\u7c7b\u578b<\/a>
\n\u5bf9\u8c61\u58f0\u660e<\/a>
\n\u5b50\u7a0b\u5e8f\u548c\u7c7b\u5c5e\u5355\u5143<\/a><\/h4>\n\u8868\u8fbe\u5f0f\u548c\u8bed\u53e5<\/a><\/h3>\n\u8868\u8fbe\u5f0f<\/a>
\n\u8bed\u53e5<\/a>
\n\u7f16\u7801\u63d0\u793a<\/a><\/h4>\n\u53ef\u89c1\u6027\u95ee\u9898<\/a><\/h3>\n\u91cd\u8f7d\u548c\u540c\u5f62\u5f02\u4e49\u5b57<\/a>
\n\u4e0a\u4e0b\u6587\u5b50\u53e5<\/a>
\n\u91cd\u547d\u540d<\/a>
\n\u5173\u4e8e Use \u5b50\u53e5\u7684\u8bf4\u660e<\/a><\/h4>\n\u7a0b\u5e8f\u7ed3\u6784\u548c\u7f16\u8bd1\u95ee\u9898<\/a><\/h3>\n\u7a0b\u5e8f\u5305\u7684\u5206\u89e3<\/a>
\n\u58f0\u660e\u90e8\u5206\u7684\u7ed3\u6784<\/a>
\n\u4e0a\u4e0b\u6587\u5b50\u53e5<\/a>
\n\u786e\u7acb\u987a\u5e8f<\/a><\/h4>\n\u5e76\u884c<\/a><\/h3>\n\u9519\u8bef\u5904\u7406\u4e0e\u5f02\u5e38<\/a><\/h3>\n\u4f4e\u7ea7\u7f16\u7a0b<\/a><\/h3>\n\u8868\u793a\u5b50\u53e5\u548c\u5c5e\u6027<\/a>
\n\u65e0\u68c0\u67e5\u8f6c\u6362<\/a><\/h4>\n\u603b\u7ed3<\/a><\/h3>\n\u53c2\u8003\u6587\u732e<\/a><\/h3>\n\u8bcd\u6c47\u8868<\/a><\/h3>\n
\n<\/a>\u7b2c\u4e00\u7ae0<\/em><\/h2>\n\u5173\u4e8e\u672c\u6587\u6863<\/h1>\n
\u672c\u6587\u6863 Rational Unified Process – Ada \u7f16\u7a0b\u6307\u5357<\/em>\u662f\u4e00\u4e2a\u6807\u51c6\u7684\u6a21\u677f\uff0c\u4f60\u7684\u5f00\u53d1\u7ec4\u7ec7\u53ef\u4f9d\u6b64\u6d3e\u751f\u51fa\u4e00\u5957\u7a0b\u5e8f\u8bbe\u8ba1\u6807\u51c6\u3002\u8be5\u6307\u5357\u8be6\u7ec6\u8bf4\u660e\u4e86\u5e94\u5982\u4f55\u7f16\u5199 Ada \u7a0b\u5e8f\u3002\u672c\u6587\u670d\u52a1\u7684\u5bf9\u8c61\u662f\u6240\u6709\u5c06 Ada \u4f5c\u4e3a\u5b9e\u65bd\u8bed\u8a00\u6216\u8005\u4e00\u79cd\u8bf4\u660e\u63a5\u53e3\u6216\u6570\u636e\u7ed3\u6784\u7684\u8bbe\u8ba1\u8bed\u8a00\u7684\u5e94\u7528\u8f6f\u4ef6\u8bbe\u8ba1\u8005\u548c\u5f00\u53d1\u8005\u3002<\/p>\n\u6587\u4e2d\u6240\u63cf\u8ff0\u7684\u89c4\u5219\u56ca\u62ec\u4e86\u7a0b\u5e8f\u8bbe\u8ba1\u7684\u5927\u90e8\u5206\u65b9\u9762\u3002\u901a\u7528\u89c4\u5219\u9002\u7528\u4e8e\u7a0b\u5e8f\u5e03\u5c40\u3001\u547d\u540d\u7ea6\u5b9a\u548c\u6ce8\u91ca\u5e94\u7528\u3002\u7279\u6b8a\u89c4\u5219\u9002\u7528\u4e8e\u9009\u5b9a\u7684 Ada \u7279\u6027\uff0c\u5e76\u8bf4\u660e\u4e86\u7981\u7528\u6784\u9020\u3001\u63a8\u8350\u4f7f\u7528\u6a21\u5f0f\u548c\u7528\u4ee5\u63d0\u9ad8\u7a0b\u5e8f\u8d28\u91cf\u7684\u901a\u7528\u6280\u5de7\u3002<\/p>\n
\u9879\u76ee\u7684\u8bbe\u8ba1<\/em>\u6307\u5357\u548c\u5f53\u524d\u7684\u7f16\u7a0b<\/em>\u6307\u5357\u6709\u4e00\u5b9a\u7684\u91cd\u590d\uff0c\u662f\u6709\u610f\u8fd9\u6837\u505a\u7684\u3002\u4ecb\u7ecd\u7684\u8bb8\u591a\u7a0b\u5e8f\u8bbe\u8ba1\u89c4\u5219\uff0c\u5c24\u5176\u662f\u5728\u547d\u540d\u7ea6\u5b9a<\/em>\u4e2d\u7684\u89c4\u5219\uff0c\u7528\u4e8e\u79ef\u6781\u652f\u6301\u548c\u52a0\u5f3a\u8f6f\u4ef6\u8bbe\u8ba1\u4e2d\u7684\u9762\u5411\u5bf9\u8c61<\/em>\u65b9\u5f0f\u3002<\/p>\n\u6307\u5357\u6700\u521d\u7528\u4e8e Ada 83\u3002\u5b83\u542b\u6709\u4e0e Ada 95 \u517c\u5bb9\u7684\u89c4\u5219\uff0c\u4f46\u4e0d\u542b\u6709\u6539\u7248\u540e\u8bed\u8a00\u6807\u51c6\u65b0\u7279\u6027\u7684\u4f7f\u7528\u6307\u5357\uff0c\u4f8b\u5982\u6807\u8bc6\u7c7b\u578b\u3001\u5b50\u5355\u5143\u6216\u5c0f\u6570\u7c7b\u578b\u3002<\/p>\n
\u6587\u6863\u5927\u81f4\u6309\u7167 Ada Reference Manual \u7684\u7ed3\u6784\u6765\u7ec4\u7ec7 [ISO 8052]<\/a>\u3002<\/p>\n\u7b2c\u4e8c\u7ae0\u201c\u7b80\u4ecb<\/em>\u201d\u89e3\u91ca\u4e86\u6307\u5357\u6240\u57fa\u4e8e\u7684\u57fa\u672c\u539f\u7406\u5e76\u4ecb\u7ecd\u4e86\u6307\u5357\u5206\u7c7b\u3002<\/p>\n\u7b2c\u4e09\u7ae0\u201c\u4ee3\u7801\u5e03\u5c40<\/em>\u201d\u8bb2\u8ff0\u4e86\u7a0b\u5e8f\u6587\u672c\u7684\u4e00\u822c\u89c6\u89c9\u7ec4\u7ec7\u7ed3\u6784\u3002<\/p>\n\u7b2c\u56db\u7ae0\u201c\u6ce8\u91ca<\/em>\u201d\u7ed9\u51fa\u4e86\u5982\u4f55\u7528\u7ed3\u6784\u5316\u7684\u3001\u53ef\u7528\u7684\u548c\u53ef\u7ef4\u62a4\u7684\u65b9\u5f0f\u6765\u6ce8\u91ca\u8bf4\u660e\u4ee3\u7801\u3002<\/p>\n\u7b2c\u4e94\u7ae0\u201c\u547d\u540d\u7ea6\u5b9a<\/em>\u201d\u7ed9\u51fa\u6709\u5173\u547d\u540d\u8bed\u8a00\u5b9e\u4f53\u7684\u4e00\u822c\u89c4\u5219\u548c\u8303\u4f8b\u3002\u8fd9\u4e00\u7ae0\u7684\u5185\u5bb9\u5e94\u518d\u7ecf\u4fee\u6539\uff0c\u4ee5\u6ee1\u8db3\u7279\u5b9a\u9879\u76ee\u6216\u673a\u6784\u7684\u9700\u8981\u3002<\/p>\n\u7b2c\u516d\u7ae0\u201c\u58f0\u660e<\/em>\u201d\u548c\u7b2c\u4e03\u7ae0\u201c\u8868\u8fbe\u5f0f\u548c\u8bed\u53e5<\/em>\u201d\u5bf9\u6bcf\u79cd\u8bed\u8a00\u7ed3\u6784\u7ed9\u51fa\u4e86\u8fdb\u4e00\u6b65\u7684\u5efa\u8bae\u3002<\/p>\n\u7b2c\u516b\u7ae0\u201c\u53ef\u89c6\u6027\u95ee\u9898<\/em>\u201d\u548c\u7b2c\u4e5d\u7ae0\u201c\u7a0b\u5e8f\u7ed3\u6784\u548c\u7f16\u8bd1\u95ee\u9898<\/em>\u201d\u7ed9\u51fa\u4e86\u6709\u5173\u5168\u5c40\u6784\u5efa\u548c\u7a0b\u5e8f\u7ec4\u6210\u7684\u6307\u5bfc\u3002<\/p>\n\u7b2c\u5341\u7ae0\u201c\u5e76\u884c<\/em>\u201d\u5904\u7406\u8bed\u8a00\u4e2d\u6709\u5173\u4f7f\u7528\u4efb\u52a1\u548c\u65f6\u95f4\u76f8\u5173\u7279\u6027\u7684\u4e13\u95e8\u95ee\u9898\u3002<\/p>\n\u7b2c\u5341\u4e00\u7ae0\u201c\u9519\u8bef\u5904\u7406\u548c\u5f02\u5e38<\/em>\u201d\u7ed9\u51fa\u5982\u4f55\u7cfb\u7edf\u5730\u3001\u7b80\u4fbf\u5730\u4f7f\u7528\u6216\u4e0d\u4f7f\u7528\u5f02\u5e38\u6765\u5904\u7406\u9519\u8bef\u3002<\/p>\n\u7b2c\u5341\u4e8c\u7ae0\u201c\u4f4e\u7ea7\u7f16\u7a0b<\/em>\u201d\u5904\u7406\u8868\u793a\u5b50\u53e5\u7684\u95ee\u9898\u3002<\/p>\n\u7b2c\u5341\u4e09\u7ae0\u201c\u603b\u7ed3<\/em>\u201d\u627c\u8981\u590d\u8ff0\u4e86\u6700\u4e3a\u91cd\u8981\u7684\u6307\u5bfc\u65b9\u9488\u3002<\/p>\n\u672c\u6587\u6863\u53d6\u4ee3\u4e86 Ada Guidelines: Recommendation for Designers and programmers<\/em> \u4e2d\u7684 Application Note #15, Rational, Santa Clara, CA., 1990\u3002<\/p>\n
\n<\/a>\u7b2c\u4e8c\u7ae0<\/em><\/h2>\n\u7b80\u4ecb<\/h1>\n\u57fa\u672c\u539f\u5219<\/h2>\n
Ada \u8bed\u8a00\u7684\u8bbe\u8ba1\u5f88\u6709\u9488\u5bf9\u6027\u7684\u76ee\u7684\u5c31\u662f\u652f\u6301\u9ad8\u8d28\u91cf\u3001\u53ef\u9760\u3001\u53ef\u590d\u7528\u548c\u53ef\u79fb\u690d\u8f6f\u4ef6 [ISO 87, sect. 1.3]<\/a>\u3002\u7136\u800c\uff0c\u6ca1\u6709\u54ea\u4e00\u79cd\u8bed\u8a00\u4ec5\u9760\u5176\u672c\u8eab\u5c31\u53ef\u4ee5\u5b9e\u73b0\u4e0a\u8ff0\u76ee\u6807\u3002\u7a0b\u5e8f\u8bbe\u8ba1\u5fc5\u987b\u662f\u4e00\u4e2a\u6709\u826f\u597d\u89c4\u8303\u7684\u8fc7\u7a0b\u7684\u4e00\u90e8\u5206\u3002<\/p>\n\u6e05\u695a\u660e\u767d\u7684 Ada \u6e90\u4ee3\u7801\u662f\u672c\u6587\u4e2d\u5927\u591a\u6570\u6307\u5bfc\u65b9\u9488\u7684\u4e3b\u8981\u76ee\u6807\u3002\u8fd9\u4e00\u70b9\u662f\u5b9e\u73b0\u53ef\u9760\u6027\u548c\u53ef\u7ef4\u62a4\u6027\u7684\u4e3b\u8981\u56e0\u7d20\u3002\u6240\u8c13\u6e05\u695a\u660e\u767d\u7684\u4ee3\u7801\u53ef\u4ee5\u4ece\u4ee5\u4e0b\u4e09\u6761\u7b80\u5355\u7684\u57fa\u672c\u539f\u5219\u4e0a\u6765\u7406\u89e3\u3002<\/p>\n
\u6700\u5c0f\u9650\u5ea6\u7684\u610f\u5916<\/h3>\n
\u5728\u5176\u751f\u547d\u671f\u5185\uff0c\u4ee3\u7801\u66f4\u591a\u5730\u662f\u88ab\u8bfb\uff0c\u800c\u4e0d\u662f\u88ab\u5199\uff0c\u5c24\u5176\u662f\u5b83\u7684\u8bf4\u660e\u90e8\u5206\u3002\u7406\u60f3\u60c5\u51b5\u4e0b\uff0c\u4ee3\u7801\u8bfb\u8d77\u6765\u5e94\u8be5\u8c61\u4e00\u7bc7\u8bf4\u660e\u5b83\u505a\u4e86\u4ec0\u4e48\u7684\u82f1\u6587\u63cf\u8ff0\uff0c\u5b83\u5177\u6709\u4e00\u4e2a\u9644\u52a0\u4f18\u70b9\u662f\u53ef\u4ee5\u6267\u884c\u3002 \u7a0b\u5e8f\u66f4\u591a\u662f\u4e3a\u4eba\u7f16\u5199\uff0c\u800c\u4e0d\u662f\u4e3a\u8ba1\u7b97\u673a\u7f16\u5199\u3002\u9605\u8bfb\u7f16\u7801\u662f\u4e00\u4e2a\u590d\u6742\u7684\u8111\u529b\u8fc7\u7a0b\uff0c\u5b83\u53ef\u901a\u8fc7\u7edf\u4e00\u6807\u51c6\u6765\u7b80\u5316\uff0c\u5728\u672c\u6587\u4e2d\u8fd9\u4e00\u6307\u5bfc\u4e5f\u53eb\u201c\u6700\u5c0f\u9650\u5ea6\u610f\u5916\u539f\u5219<\/em>\u201d\u3002\u6574\u4e2a\u9879\u76ee\u4e2d\u7edf\u4e00\u6837\u5f0f\u662f\u8f6f\u4ef6\u5f00\u53d1\u56e2\u961f\u5728\u7f16\u7a0b\u6807\u51c6\u4e0a\u8fbe\u6210\u4e00\u81f4\u7684\u4e3b\u8981\u539f\u56e0\uff0c\u5b83\u4e0d\u5e94\u89c6\u4e3a\u4e00\u79cd\u60e9\u7f5a\u6216\u5bf9\u521b\u9020\u6027\u548c\u751f\u4ea7\u529b\u7684\u963b\u788d\u3002<\/p>\n\u5355\u70b9\u7ef4\u62a4<\/h3>\n
\u8fd9\u4e00\u6307\u5bfc\u6240\u57fa\u4e8e\u7684\u53e6\u4e00\u4e2a\u91cd\u8981\u539f\u5219\u662f\u5355\u70b9\u7ef4\u62a4\u539f\u5219<\/em>\u3002\u5e94\u5c3d\u91cf\u4f7f\u8bbe\u8ba1\u51b3\u7b56\u53ea\u5728 Ada \u6e90\u7801\u4e2d\u7684\u4e00\u5904\u8868\u8ff0\uff0c\u5b83\u7684\u591a\u6570\u7ed3\u8bba\u5e94\u7a0b\u5e8f\u5316\u5730\u4ece\u8be5\u5904\u6d3e\u751f\u51fa\u6765\u3002\u4e0d\u9075\u5b88\u8fd9\u4e00\u539f\u5219\u4f1a\u4e25\u91cd\u5f71\u54cd\u4ee3\u7801\u7684\u53ef\u7ef4\u62a4\u6027\u3001\u53ef\u9760\u6027\u548c\u53ef\u7406\u89e3\u6027\u3002<\/p>\n\u6700\u5c0f\u9650\u5ea6\u7684\u5e72\u6270<\/h3>\n
\u6700\u540e\uff0c\u4f5c\u4e3a\u6613\u8bfb\u6027\u7684\u4e3b\u8981\u4f5c\u7528\u56e0\u7d20\uff0c\u91c7\u7528\u6700\u5c0f\u5e72\u6270\u539f\u5219<\/em>\u3002\u5373\u907f\u514d\u5c06\u6e90\u4ee3\u7801\u4e0e\u89c6\u89c9\u201c\u5e72\u6270\u201d\u76f8\u6df7\u5408\uff1a\u5373\u680f\u3001\u6846\u4ee5\u53ca\u5176\u5b83\u4f4e\u4fe1\u606f\u91cf\u7684\u6587\u672c\u6216\u662f\u5bf9\u7406\u89e3\u8f6f\u4ef6\u529f\u80fd\u6ca1\u6709\u5e2e\u52a9\u7684\u4fe1\u606f\u3002<\/p>\n\u53ef\u79fb\u690d\u6027\u548c\u53ef\u590d\u7528\u6027\u4e5f\u662f\u5236\u5b9a\u8bb8\u591a\u6307\u5bfc\u65b9\u9488\u7684\u539f\u7531\u3002\u4ee3\u7801\u5e94\u53ef\u79fb\u690d\u5230\u4e0d\u540c\u76ee\u6807\u8ba1\u7b97\u673a\u7684\u51e0\u4e2a\u4e0d\u540c\u7f16\u8bd1\u5668\u4e0a\uff0c\u5e76\u6700\u7ec8\u79fb\u690d\u5230\u4e00\u4e2a\u66f4\u9ad8\u7ea7\u7684 Ada \u7248\u672c\u201cAda 95\u201d\u4e0a [PLO92,<\/a> TAY92]<\/a>\u3002<\/p>\n<\/a>\u5047\u8bbe<\/h2>\n\u8fd9\u91cc\u7684\u6307\u5bfc\u65b9\u9488\u6709\u51e0\u4e2a\u57fa\u672c\u5047\u8bbe\uff1a<\/p>\n
\u8bfb\u8005\u4e86\u89e3 Ada\u3002<\/h3>\n
\u5e94\u9f13\u52b1\u5728\u4efb\u4f55\u53ef\u5e26\u6765\u597d\u5904\u7684\u5730\u65b9\u4f7f\u7528 Ada \u7684\u9ad8\u7ea7\u7279\u6027\uff0c\u800c\u4e0d\u8981\u4ec5\u4ec5\u56e0\u4e3a\u4e00\u4e9b\u7a0b\u5e8f\u5458\u4e0d\u719f\u6089\u5b83\u4eec\u800c\u53cd\u5bf9\u91c7\u7528\u3002 \u8fd9\u662f\u9879\u76ee\u80fd\u4ece\u4f7f\u7528 Ada \u4e2d\u771f\u6b63\u83b7\u76ca\u7684\u552f\u4e00\u65b9\u5f0f\u3002Ada \u4e0d\u5e94\u8c61 Pascal \u6216 FORTRAN \u8bed\u8a00\u90a3\u6837\u4f7f\u7528\u3002\u4e0d\u9f13\u52b1\u5728\u6ce8\u91ca\u4e2d\u89e3\u91ca\u4ee3\u7801\uff1b\u76f8\u53cd\uff0cAda \u672c\u8eab\u5e94\u5c3d\u53ef\u80fd\u5730\u53d6\u4ee3\u6ce8\u91ca\u3002<\/p>\n
\u8bfb\u8005\u61c2\u82f1\u6587\u3002<\/h3>\n
\u8bb8\u591a\u547d\u540d\u7ea6\u5b9a\u5728\u8bcd\u6c47\u548c\u8bed\u6cd5\u4e0a\u57fa\u4e8e\u82f1\u6587\u3002\u6b64\u5916\uff0c Ada \u7684\u5173\u952e\u5b57\u90fd\u662f\u5e38\u7528\u7684\u82f1\u8bed\u5355\u8bcd\u3002\u5c06\u5176\u4e0e\u5176\u5b83\u8bed\u8a00\u6df7\u5408\u5c06\u964d\u4f4e\u4ee3\u7801\u7684\u6613\u8bfb\u6027\u3002<\/p>\n
\u4e25\u683c\u9650\u5236\u4f7f\u7528\u5b50\u53e5 (use clause) \u7684\u8fd0\u7528\u3002<\/h3>\n
\u547d\u540d\u7ea6\u5b9a\u548c\u5176\u5b83\u4e00\u4e9b\u89c4\u5219\u5047\u5b9a\u201cuse\u201d\u5b50\u53e5\u4e0d\u88ab\u8fd0\u7528\u3002<\/p>\n
\u5904\u7406\u7684\u662f\u4e00\u4e2a\u5927\u9879\u76ee\u3002<\/h3>\n
\u8bb8\u591a\u89c4\u5219\u5728\u5927\u578b\u9879\u76ee\u4e2d\u6700\u6709\u4ef7\u503c\uff0c\u867d\u7136\u51fa\u4e8e\u9879\u76ee\u7ea7\u6216\u516c\u53f8\u7ea7\u5b9e\u73b0\u548c\u7edf\u4e00\u7684\u76ee\u7684\uff0c\u5b83\u4eec\u4e5f\u5728\u5c0f\u578b\u7cfb\u7edf\u4e2d\u4f7f\u7528\u3002<\/p>\n
\u6e90\u7801\u5728\u201cRational \u73af\u5883\u201d (Rational Environment) \u4e2d\u5f00\u53d1\u3002<\/h3>\n
\u901a\u8fc7\u8fd0\u7528\u201cRational \u73af\u5883\u201d (Rational Environment)\uff0c\u4e00\u4e9b\u95ee\u9898\u5982\u4ee3\u7801\u5e03\u5c40\u3001\u5c01\u95ed\u6784\u9020\u4e2d\u7684\u6807\u8bc6\u7b26\u7b49\u5c31\u5728 Ada \u7f16\u8f91\u5668\u548c\u683c\u5f0f\u5668\u4e2d\u5904\u7406\u4e86\u3002 \u4f46\u662f\u672c\u6587\u4e2d\u7684\u5e03\u5c40\u5efa\u8bae\u9002\u7528\u4e8e\u4efb\u4f55\u5f00\u53d1\u5e73\u53f0\u3002<\/p>\n
\u7a0b\u5e8f\u8bbe\u8ba1\u9075\u5faa\u9762\u5411\u5bf9\u8c61\u7684\u65b9\u6cd5\u3002<\/h3>\n
\u8bb8\u591a\u89c4\u5219\u652f\u6301\u5c06 Ada \u7279\u6027\u548c\u7279\u5b9a\u547d\u540d\u7ea6\u5b9a\u7684\u9762\u5411\u5bf9\u8c61 (OO) \u6982\u5ff5\u7684\u7cfb\u7edf\u6620\u5c04\u3002<\/p>\n
<\/a>\u6307\u5357\u5206\u7c7b<\/h2>\n\u8fd9\u4e9b\u6307\u5bfc\u65b9\u9488\u5e76\u975e\u540c\u7b49\u91cd\u8981\u3002\u5b83\u4eec\u5927\u81f4\u9075\u5faa\u4ee5\u4e0b\u7684\u7b49\u7ea7\uff1a<\/p>\n
\u63d0\u793a\uff1a<\/h3>\n
\u8be5\u6307\u5bfc\u65b9\u9488\u4ec5\u662f\u4e00\u6761\u7b80\u5355\u7684\u5efa\u8bae\uff1b\u4e0d\u9075\u5b88\u5b83\u4e5f\u4e0d\u4f1a\u6709\u4ec0\u4e48\u5b9e\u8d28\u6027\u7684\u635f\u5bb3\uff0c\u91c7\u7528\u6216\u662f\u4e0d\u91c7\u7528\u5b83\u4eec\u4ec5\u662f\u4e2a\u4eba\u559c\u597d\u95ee\u9898\u3002\u6587\u4e2d\u7684\u63d0\u793a\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u5efa\u8bae\uff1a<\/h3>\n
\u8be5\u6307\u5bfc\u65b9\u9488\u901a\u5e38\u66f4\u591a\u5730\u57fa\u4e8e\u6280\u672f\u7684\u89c2\u70b9\uff1b\u5b83\u53ef\u80fd\u4f1a\u5f71\u54cd\u5230\u4ee3\u7801\u7684\u53ef\u79fb\u690d\u6027\u6216\u53ef\u590d\u7528\u6027\uff0c\u5e76\u5728\u4e00\u4e9b\u5b9e\u65bd\u4e2d\u5f71\u54cd\u6027\u80fd\u3002 \u9664\u975e\u6709\u5408\u9002\u7684\u7406\u7531\uff0c\u5426\u5219\u5fc5\u987b\u9075\u5b88\u5efa\u8bae\u3002\u6587\u4e2d\u63d0\u5230\u4e00\u4e9b\u4f8b\u5916\u7684\u60c5\u51b5\u3002\u6587\u4e2d\u7684\u5efa\u8bae\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u9650\u5236\uff1a<\/h3>\n
\u6709\u7591\u95ee\u7684\u7279\u6027\u4f7f\u7528\u8d77\u6765\u5371\u9669\uff0c\u4f46\u5b83\u5e76\u4e0d\u88ab\u5b8c\u5168\u7981\u6b62\uff1b\u5e94\u7528\u8be5\u7279\u6027\u7684\u51b3\u5b9a\u5e94\u5728\u9879\u76ee\u7ea7\u4e0a\u505a\u51fa\uff0c\u5e76\u4e14\u51b3\u5b9a\u5e94\u8be5\u662f\u9ad8\u5ea6\u53ef\u89c1\u7684\u3002\u6587\u4e2d\u7684\u9650\u5236\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u8981\u6c42\uff1a<\/h3>\n
\u8fdd\u80cc\u5b83\u5b9a\u5c06\u5bfc\u81f4\u4e0d\u597d\u7684\u3001\u4e0d\u53ef\u9760\u7684\u6216\u662f\u4e0d\u53ef\u79fb\u690d\u7684\u4ee3\u7801\u3002 \u8981\u6c42\u4e0d\u53ef\u8fdd\u80cc\u3002\u6587\u4e2d\u7684\u8981\u6c42\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u201cRational \u8bbe\u8ba1\u5de5\u5177\u201d (Rational Design Facility) \u5c06\u7528\u6765\u51cf\u5c11\u53d7\u9650\u7279\u6027\u7684\u4f7f\u7528\u5e76\u52a0\u5f3a\u5fc5\u9700\u6cd5\u5219\u548c\u8bb8\u591a\u5efa\u8bae\u7684\u8fd0\u7528\u3002<\/p>\n
\u4e0e\u8bb8\u591a\u5176\u5b83\u7684 Ada \u7a0b\u5e8f\u8bbe\u8ba1\u6807\u51c6\u4e0d\u540c\u7684\u662f\uff1a\u4e8b\u5b9e\u4e0a\uff0c\u8fd9\u4e9b\u6307\u5bfc\u65b9\u9488\u4e2d\u53ca\u5c11\u6709\u5b8c\u5168\u7981\u7528\u7684\u3002\u597d\u7684\u8f6f\u4ef6\u7684\u5173\u952e\u5728\u4e8e\uff1a<\/p>\n
\n- \u4e86\u89e3\u6bcf\u79cd\u7279\u6027\uff0c\u4e86\u89e3\u5b83\u7684\u5c40\u9650\u548c\u53ef\u80fd\u7684\u5371\u9669<\/li>\n
- \u51c6\u786e\u4e86\u89e3\u8fd9\u79cd\u7279\u6027\u5728\u4f55\u79cd\u573a\u5408\u53ef\u4ee5\u5b89\u5168\u4f7f\u7528<\/li>\n
- \u8ba9\u4f7f\u7528\u8be5\u7279\u6027\u7684\u51b3\u7b56\u9ad8\u5ea6\u53ef\u89c1<\/li>\n
- \u5341\u5206\u5c0f\u5fc3\u8c28\u614e\u5730\u5728\u9002\u5f53\u5904\u4f7f\u7528\u8be5\u7279\u6027\u3002<\/li>\n<\/ul>\n
<\/a>\u6700\u6839\u672c\u7684\u539f\u5219<\/h2>\n\u4f7f\u7528\u5e38\u8bc6\u3002<\/p>\n
\u5f53\u65e0\u6cd5\u627e\u5230\u53ef\u7528\u7684\u89c4\u5219\u6216\u6307\u5357\uff0c\u5f53\u89c4\u5219\u660e\u663e\u4e0d\u9002\u7528\uff0c\u5f53\u5176\u5b83\u4e00\u5207\u90fd\u5931\u8d25\u65f6\uff1a\u4f7f\u7528\u5e38\u8bc6\uff0c\u5e76\u6838\u67e5\u57fa\u672c\u539f\u5219\u3002\u8fd9\u6761\u6cd5\u5219\u51cc\u9a7e\u4e8e\u5176\u5b83\u6240\u6709\u6cd5\u5219\u4e4b\u4e0a\u3002\u5e38\u8bc6\u662f\u5fc5\u4e0d\u53ef\u5c11\u7684<\/em>\u3002<\/p>\n
\n<\/a>\u7b2c\u4e09\u7ae0<\/em><\/h2>\n\u4ee3\u7801\u5e03\u5c40<\/h1>\n\u6982\u8ff0<\/h2>\n
\u4e00\u4e2a\u7a0b\u5e8f\u5355\u5143\u7684\u5e03\u5c40\u5b8c\u5168\u5728\u201cRational \u73af\u5883\u683c\u5f0f\u5668\u201d (Rational Environment Formatter) \u7684\u63a7\u5236\u4e4b\u4e0b\uff0c\u9664\u4e86\u5728\u6ce8\u91ca\u548c\u7a7a\u767d\u5904\u5185\uff0c\u7a0b\u5e8f\u5458\u4e0d\u5fc5\u8fc7\u591a\u62c5\u5fc3\u7a0b\u5e8f\u7684\u5e03\u5c40\u3002\u8fd9\u4e2a\u5de5\u5177\u6240\u91c7\u7528\u7684\u683c\u5f0f\u7ea6\u5b9a\u5728 Reference Manual for the Ada Programming Language \u7684 Appendix E \u4e2d\u8868\u8ff0 [ISO87]<\/a>\u3002 \u7279\u522b\u662f\uff0c\u4ed6\u4eec\u5efa\u8bae\u7ed3\u6784\u5316\u6784\u9020\u7684\u5f00\u59cb\u548c\u7ed3\u675f\u5904\u7684\u5173\u952e\u5b57\u5e94\u5782\u76f4\u5bf9\u9f50\u3002\u4e00\u4e2a\u6784\u9020\u7684\u6807\u8bc6\u7b26\u4e5f\u5e94\u7cfb\u7edf\u6027\u5730\u5728\u6784\u9020\u7684\u672b\u5c3e\u91cd\u590d\u3002<\/p>\n\u683c\u5f0f\u5668\u7684\u786e\u5207\u884c\u4e3a\u7531\u4e00\u7cfb\u5217\u7684\u5e93\u5f00\u5173<\/em>\u5728\u4e00\u4e2a\u901a\u7528\u6a21\u578b\u4e16\u754c (model world) \u57fa\u7840\u4e0a\u63a7\u5236\uff0c\u8fd9\u4e9b\u5e93\u5f00\u5173\u5728\u6574\u4e2a\u9879\u76ee\u8fc7\u7a0b\u4e2d\u63a5\u6536\u4e00\u5957\u7edf\u4e00\u7684\u503c\u3002\u76f8\u5173\u7684\u5f00\u5173\u4ee5\u53ca\u5b83\u4eec\u5728\u6211\u4eec\u6240\u5efa\u8bae\u7684\u6a21\u578b\u4e16\u754c<\/em>\u4e2d\u7684\u901a\u7528\u503c\u5217\u8868\u5982\u4e0b\u3002<\/p>\n<\/a>\u5b57\u6bcd\u5927\u5c0f\u5199<\/h2>\nFormat .Id_Case : Letter_Case := Capitalized<\/h3>\n
\u8be6\u7ec6\u8bf4\u660e Ada \u5355\u5143\u4e2d\u6807\u8bc6\u7b26\u7684\u5b57\u6bcd\u5927\u5c0f\u5199\uff1a\u6700\u5f00\u59cb\u7684\u5b57\u6bcd\u4ee5\u53ca\u6bcf\u4e2a\u4e0b\u5212\u7ebf\u4e4b\u540e\u7684\u7b2c\u4e00\u4e2a\u5b57\u6bcd\u7528\u5927\u5199\u3002\u5927\u5199\u662f\u8bfb\u8005\u6700\u6613\u8bfb\u7684\u5f62\u5f0f\uff0c\u5177\u6709\u4f17\u591a\u73b0\u4ee3\u5c4f\u5e55\u548c\u6fc0\u5149\u6253\u5370\u673a\u5b57\u4f53\u3002<\/p>\n
Format .Keyword_Case : Letter_Case := Lower<\/h3>\n
\u8bf4\u660e Ada \u5173\u952e\u5b57\u7684\u5927\u5c0f\u5199\u3002\u8fd9\u5c06\u5b83\u4eec\u4e0e\u6807\u8bc6\u7b26\u7565\u5fae\u533a\u5206\u5f00\u6765\u3002<\/p>\n
Format .Number_Case : Letter_Case := Upper<\/h3>\n
\u8bf4\u660e\u6d6e\u70b9\u76f4\u63a5\u91cf\u4e2d\u5b57\u6bcd\u201cE\u201d\u548c\u57fa\u672c\u76f4\u63a5\u91cf\u4e2d\u57fa\u672c\u6570\u5b57\uff08\u201cA\u201d \u5230 \u201cF\u201d\uff09\u7684\u5927\u5c0f\u5199\u3002<\/p>\n
<\/a>\u7f29\u8fdb<\/h2>\n\u4e00\u4e2a Ada \u5355\u5143\u6309\u7167 Ada Reference Manual \u4e2d Appendix E \u6240\u8bf4\u7684\u4e00\u822c\u7ea6\u5b9a\u6765\u7f16\u6392\u683c\u5f0f [ISO87]<\/a>\u3002\u8fd9\u5c31\u662f\u8bf4\uff0c\u4e00\u4e2a\u7ed3\u6784\u5316\u6784\u9020\u7684\u5f00\u59cb\u548c\u7ed3\u675f\u5904\u7684\u5173\u952e\u5b57\u5e94\u8be5\u5bf9\u9f50\u3002 \u4f8b\u5982\uff0c\u201cloop\u201d\u548c\u201cend loop\u201d\uff0c\u201crecord\u201d\u548c\u201cend record\u201d\u3002\u5728\u7ed3\u6784\u5316\u6784\u9020\u5185<\/em>\u7684\u5355\u5143\u5e94\u5411\u53f3\u7f29\u8fdb<\/em>\u3002<\/p>\nFormat .Major_Indentation : Indent_Range := 3<\/h3>\n
\u8bf4\u660e\u683c\u5f0f\u5668\u4ee4\u5982\u201cif\u201d\u8bed\u53e5\u3001\u201ccase\u201d\u8bed\u53e5\u548c\u201cloop\u201d\u8bed\u53e5\u8fd9\u6837\u7684\u7ed3\u6784\u5316\uff08\u4e3b\u8981\u7684\uff09\u6784\u9020\u7f29\u8fdb\u7684\u5217\u6570\u3002<\/p>\n
Format .Minor_Indentation : Indent_Range := 2<\/h3>\n
\u8bf4\u660e\u683c\u5f0f\u5668\u4f7f\u6b21\u8981\u6784\u9020\u7f29\u8fdb\u7684\u5217\u6570\uff1a \u8bb0\u5f55\u7684\u58f0\u660e\u3001\u53d8\u4f53\u8bb0\u5f55\u7684\u58f0\u660e\u3001\u7c7b\u578b\u7684\u58f0\u660e\u3001\u5f02\u5e38\u5904\u7406\u3001\u9009\u62e9\u8bed\u53e5\u3001case \u8bed\u53e5\u3001\u547d\u540d\u548c\u6807\u5fd7\u8bed\u53e5\u3002<\/p>\n
<\/a>\u884c\u7684\u957f\u5ea6\u548c\u884c\u7684\u5206\u9694<\/h2>\nFormat .Line_Length : Line_Range := 80<\/h3>\n
\u8bf4\u660e\u6362\u884c\u524d\u683c\u5f0f\u5668\u663e\u793a Ada \u5355\u5143\u4e2d\u7684\u884c\u6240\u91c7\u7528\u7684\u5217\u6570\u3002\u8fd9\u4f7f\u5f97\u683c\u5f0f\u5316\u7684\u5355\u5143\u53ef\u7528\u4f20\u7edf\u7684 VT100 \u7c7b\u7ec8\u7aef\u663e\u793a\u3002<\/p>\n
Format .Statement_Indentation : Indent_Range := 3<\/h3>\n
\u8bf4\u660e\u5f53\u4e00\u6761\u8bed\u53e5\u957f\u4e8e Line_Length\uff0c\u5fc5\u987b\u8981\u65ad\u5f00\u65f6\uff0c\u683c\u5f0f\u5668\u5e94\u4f7f\u7b2c\u4e8c\u884c\u548c\u540e\u7eed\u884c\u7f29\u8fdb\u591a\u5c11\u5217\u3002\u53ea\u6709\u5f53\u4e0d\u5b58\u5728\u8bcd\u6cd5\u6784\u9020\u53ef\u8ba9\u7f29\u8fdb\u7684\u4ee3\u7801\u5bf9\u9f50\u65f6\uff0c\u683c\u5f0f\u5668\u624d\u4ee4\u4ee3\u7801\u7f29\u8fdb Statement_Indentation \u4e2a\u5217\u3002<\/p>\n
Format .Statement_Length : Line_Range := 35<\/h3>\n
\u8bf4\u660e\u5f53\u663e\u793a\u4e00\u4e2a\u8bed\u53e5\u65f6\uff0c\u6bcf\u884c\u6240\u4fdd\u7559\u7684\u5217\u6570\u3002 \u5982\u679c\u5f53\u524d\u7f29\u8fdb\u7a0b\u5ea6\u6240\u5141\u8bb8\u7684\u4e00\u884c\u4e2d\u7684\u5217\u6570\u5c0f\u4e8e Statement_Length\uff0c\u90a3\u4e48\u683c\u5f0f\u5668\u5c06 Wrap_Indentation \u4f5c\u4e3a\u65b0\u7684\u7f29\u8fdb\u7a0b\u5ea6\u3002\u6b64\u6cd5\u53ef\u9632\u6b62\u5d4c\u5957\u592a\u6df1\u7684\u8bed\u53e5\u663e\u793a\u65f6\u8d85\u51fa\u53f3\u8fb9\u754c\u3002<\/p>\n
Format .Wrap_Indentation : Line_Range := 16<\/h3>\n
\u8bf4\u660e\u5f53\u524d\u7684\u7f29\u8fdb\u7a0b\u5ea6\u4e0d\u4e0d\u8db3 Statement_Length \u65f6\uff0c\u683c\u5f0f\u5668\u5728\u4e0b\u4e00\u884c\u5f00\u5934\u5904\u5e94\u7f29\u8fdb\u7684\u5217\u6570\u3002\u6b64\u6cd5\u53ef\u9632\u6b62\u5d4c\u5957\u592a\u6df1\u7684\u8bed\u53e5\u663e\u793a\u65f6\u8d85\u51fa\u53f3\u8fb9\u754c\u3002<\/p>\n
<\/a>\u5bf9\u9f50<\/h2>\nFormat .Consistent_Breaking : Integer := 1<\/h3>\n
\u63a7\u5236\u5f62\u5982 (xxx:aaa; yyy:bbb) \u7684\u5217\u8868\u683c\u5f0f\uff0c\u8be5\u5217\u8868\u51fa\u73b0\u5728\u5b50\u7a0b\u5e8f\u7684\u5f62\u53c2\u8bf4\u660e\u5904\u548c\u7c7b\u578b\u58f0\u660e\u4e2d\u7684\u5224\u522b\u5f0f\u5904\u3002\u5b83\u4e5f\u63a7\u5236\u5f62\u5982 (xxx=>aaa, yyy=>bbb) \u7684\u5217\u8868\u7684\u683c\u5f0f\uff0c\u8be5\u5217\u8868\u51fa\u73b0\u5728\u5b50\u7a0b\u5e8f\u8c03\u7528\u548c\u805a\u96c6\u5904\u3002\u56e0\u4e3a\u8be5\u9009\u9879\u975e\u96f6\uff08\u771f\uff09\uff0c\u6240\u4ee5\u5f53\u4e00\u4e2a\u5217\u8868\u65e0\u6cd5\u5728\u4e00\u884c\u4e2d\u88c5\u4e0b\u65f6\uff0c\u5217\u8868\u4e2d\u7684\u6bcf\u4e00\u4e2a\u5143\u7d20\u90fd\u5360\u7528\u65b0\u7684\u4e00\u884c\u3002<\/p>\n
Format .Alignment_Threshold : Line_Range := 20<\/h3>\n
\u8bf4\u660e\u4e3a\u4f7f\u8fde\u7eed\u8bed\u53e5\u4e2d\u7684\u8bcd\u6cd5\u6784\u9020\u5bf9\u9f50\uff08\u5982\u547d\u540d\u7b26\u53f7\u4e2d\u7684\u5192\u53f7\u3001\u8d4b\u503c\u53f7\u548c\u7bad\u5934\uff09\uff0c\u683c\u5f0f\u5668\u53ef\u63d2\u5165\u7684\u7a7a\u683c\u6570\u3002\u5982\u679c\u5bf9\u9f50\u4e00\u4e2a\u6784\u9020\u6240\u9700\u7684\u7a7a\u683c\u6570\u591a\u4e8e\u8fd9\u4e2a\u6570\uff0c\u90a3\u4e48\u6784\u9020\u4e0d\u88ab\u5bf9\u9f50\u3002<\/p>\n
\u8981\u6ce8\u610f\u7684\u662f\uff0c\u4e3a\u4e86\u5f62\u6210\u67d0\u79cd\u5e03\u5c40\uff0c\u7a0b\u5e8f\u5458\u53ef\u4ee5\u63d2\u5165\u4e00\u4e2a\u884c\u7ed3\u675f\u7b26\u6216\u8005\u901a\u8fc7\u8f93\u5165 <space> <space> <carriage-return> \u6765\u6572\u5165\u4e00\u4e2a\u4e0d\u4f1a\u88ab\u683c\u5f0f\u5668\u5220\u6389\u7684\u884c\u4e2d\u65ad\u3002<\/p>\n
\u5f53 \u5217\u8868\u4e2d\u7684\u5143\u7d20\u8d85\u8fc7 3 \u4e2a\u5e76\u4e14\u5728\u4e00\u884c\u4e2d\u88c5\u4e0d\u4e0b\u8fd9\u4e9b\u5143\u7d20\u65f6\uff0c\u91c7\u7528\u4e0a\u8ff0\u6280\u5de7\u3002Ada \u5143\u7d20\u5217\u8868\u5e94\u5206\u9694\u4e3a\u4e00\u884c\u4ec5\u6709\u4e00\u4e2a\u5143\u7d20\uff0c\u4ee5\u63d0\u9ad8\u4ee3\u7801\u7684\u6613\u8bfb\u6027\u548c\u53ef\u7ef4\u62a4\u6027\u3002\u8fd9\u4e00\u6761\u5c24\u5176\u9002\u7528\u4e8e\u4ee5\u4e0b Ada \u6784\u9020\uff08\u8c61 Ada Reference Manual \u7684 Appendix E \u4e2d\u6240\u5b9a\u4e49\u7684\u90a3\u6837 [ISO87]<\/a>\uff09\uff1a<\/p>\n\u5b9e\u53c2\u5173\u8054\u5173\u7cfb<\/p>\n
pragma Suppress (Range_Check,\r\nOn => This_Type,\r\nOn => That_Type, On => That_Other_Type);<\/pre>\n\u6807\u8bc6\u7b26\u5217\u8868\uff0c\u7ec4\u4ef6\u5217\u8868<\/p>\n
Next_Position,\r\nPrevious_Position,\r\nCurrent_Position : Position;\r\ntype Some_Record is \r\nrecord\r\nA_Component,\r\nB_Component,\r\nC_Component : Component_Type;\r\nend record;<\/pre>\n\u679a\u4e3e\u7c7b\u578b\u5b9a\u4e49<\/p>\n
type Navaid is \r\n(Vor, \r\nVor_Dme, \r\nDme, \r\nTacan, \r\nVor_Tac, \r\nNDB);<\/pre>\n\u5224\u522b\u5f0f\u7ea6\u675f<\/p>\n
subtype Constrained is Element \r\n(Name_Length => Name'Length,\r\nValid => True,\r\nOperation => Skip);<\/pre>\n\u8bed\u53e5\u7684\u987a\u5e8f\uff08\u7531\u683c\u5f0f\u5668\u5904\u7406\uff09<\/p>\n
\u5f62\u5f0f\u90e8\u5206\u3001\u7c7b\u5c5e\u5f62\u5f0f\u90e8\u5206\u3001\u5b9e\u53c2\u90e8\u5206\u3001\u7c7b\u5c5e\u5b9e\u53c2\u90e8\u5206<\/p>\n
procedure Just_Do_It (This : in Some_Type;\r\nFor_That : in Some Other_Type;\r\nStatus : out Status_Type);\r\nJust_Do_It (This => This_Value;\r\nFor_That => That_Value;\r\nStatus => The_Status);<\/pre>\n
\n<\/a>\u7b2c\u56db\u7ae0<\/em><\/h2>\n\u6ce8\u91ca<\/h1>\n\u6982\u8ff0<\/h2>\n
\u4e0e\u5e7f\u6cdb\u63a5\u53d7\u7684\u89c2\u70b9\u76f8\u53cd\u7684\u662f\uff0c\u597d\u7684\u7a0b\u5e8f\u7684\u7279\u70b9\u5e76\u975e\u662f\u6ce8\u91ca\u7684\u6570\u91cf<\/em>\uff0c\u800c\u662f\u6ce8\u91ca\u7684\u8d28\u91cf<\/em>\u3002<\/p>\n\u6ce8\u91ca\u5e94\u5f53\u4f5c\u4e3a Ada \u4ee3\u7801\u7684\u8865\u5145<\/em>\uff0c\u800c\u4e0d\u662f\u89e3\u91ca\uff1aAda \u672c\u8eab\u662f\u4e00\u79cd\u975e\u5e38\u6613\u8bfb\u7684\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00\uff0c\u5c24\u5176\u662f\u5f53\u88ab\u597d\u7684\u547d\u540d\u7ea6\u5b9a\u652f\u6301\u65f6\u3002\u6ce8\u91ca\u5e94\u5f53\u89e3\u91ca\u90a3\u4e9b\u4e0d\u80fd\u76f4\u63a5\u4ece Ada \u4ee3\u7801\u4e2d\u770b\u51fa\u7684\u5185\u5bb9\uff1b\u5b83\u4eec\u4e0d\u5e94\u590d\u5236 Ada \u7684\u8bed\u6cd5\u6216\u8bed\u4e49\u3002\u6ce8\u91ca\u5e94\u5f53\u5e2e\u52a9\u8bfb\u8005\u638c\u63e1\u80cc\u666f\u6982\u5ff5\u548c\u4f9d\u8d56\u6761\u4ef6\uff0c\u7279\u522b\u662f\u590d\u6742\u7684\u6570\u636e\u7f16\u7801\u548c\u7b97\u6cd5\u3002\u6ce8\u91ca\u5e94\u5f53\u7a81\u51fa\u4e0e\u7f16\u7801\u6216\u8bbe\u8ba1\u6807\u51c6\u7684\u4e0d\u540c\u70b9\u3001\u53d7\u9650\u7279\u6027\u7684\u4f7f\u7528\u4ee5\u53ca\u7279\u6b8a\u7684 \u201c\u6280\u5de7\u201d\u3002\u5728\u6bcf\u4e2a\u4e3b\u8981\u7684 Ada \u6784\u9020\uff08\u5982\u5b50\u7a0b\u5e8f\u548c\u7a0b\u5e8f\u5305\uff09\u4e2d\uff0c\u7cfb\u7edf\u5730\u51fa\u73b0\u7684\u6ce8\u91ca\u6846\u6216\u8868\u5355\u5177\u6709\u4e00\u81f4\u6027\u548c\u63d0\u9192\u7a0b\u5e8f\u5458\u8bf4\u660e\u4ee3\u7801\u7684\u4f18\u70b9\uff0c\u4f46\u5b83\u4eec\u4e5f\u5e38\u5e38\u5e26\u6765\u91ca\u4e49\u4ee3\u7801\u7684\u98ce\u683c\u3002\u5bf9\u6bcf\u4e00\u884c\u6ce8\u91ca\uff0c\u7a0b\u5e8f\u5458\u90fd \u5e94\u80fd\u591f\u5f88\u597d\u5730\u56de\u7b54\uff1a\u201c\u52a0\u5165\u8fd9\u4e2a\u6ce8\u91ca\u6709\u4f55\u4ef7\u503c\uff1f\u201d<\/p>\n\u4e00\u4e2a\u8bef\u5bfc\u6216\u8005\u9519\u8bef\u7684\u6ce8\u91ca\u6bd4\u5b8c\u5168\u4e0d\u6ce8\u91ca\u8fd8\u7cdf\u3002\u7f16\u8bd1\u5668\u4e0d\u68c0\u67e5\u6ce8\u91ca\uff08\u9664\u975e\u5b83\u4eec\u8c61\u201cRational \u8bbe\u8ba1\u5de5\u5177\u201d\u90a3\u6837\u53c2\u4e0e\u4e86\u6b63\u5f0f\u7684 Ada \u8bbe\u8ba1\u8bed\u8a00 (ADL) \u6216\u8005\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00 (PDL)\uff09\u3002\u56e0\u6b64\uff0c\u6839\u636e\u5355\u70b9\u7ef4\u62a4\u539f\u5219\uff0c\u8bbe\u8ba1\u51b3\u5b9a\u5e94\u5728 Ada \u800c\u4e0d\u662f\u6ce8\u91ca\u4e2d\u8868\u8ff0\uff0c\u5373\u4f7f\u8fd9\u6837\u505a\u9700\u8981\u591a\u51e0\u4e2a\u58f0\u660e\u3002<\/p>\n
\u4f5c\u4e3a\u4e00\u4e2a\uff08\u5e76\u975e\u5f88\u597d\u7684\uff09\u4f8b\u5b50\u8003\u8651\u5982\u4e0b\u7684\u58f0\u660e\uff1a<\/p>\n
------------------------------------------------------------\r\n-- procedure Create\r\n------------------------------------------------------------\r\n--\r\nprocedure Create\r\n(The_Subscriber: in out Subscriber.Handle;\r\nWith_Name : in out Subscriber.Name);\r\n--\r\n-- Purpose: This procedure creates a subscriber with a given\r\n-- name.\r\n--\r\n-- Parameters: \r\n- The_Subscriber :mode in out, type Subscriber.Handle\r\n- It is the handle to the created subscriber\r\n- With_Name :mode in, type Subscriber.Name\r\n- The name of the subscriber to be created.\r\n- The syntax of the name is\r\n-- <letter> { <letter> | <digit> }\r\n-- Exceptions:\r\n-- Subscriber.Collection_Overflow when there is no more\r\n-- space to create a new subscriber\r\n-- Subscriber.Invalid_Name when the name is blank or\r\n-- malformed\r\n--\r\n-------------------------------------------- end Create ----<\/pre>\n\u4f8b\u5b50\u4e2d\u6709\u51e0\u70b9\u8981\u6307\u51fa\u6765\u3002<\/p>\n
\n- \u6709\u8bb8\u591a\u5197\u4f59\uff1a<\/li>\n<\/ul>\n
\n- – \u8fc7\u7a0b\u521b\u5efa (Procedure Create)\uff1a\u5982\u679c\u8981\u6539\u540d\uff0c\u6709\u51e0\u5904\u5730\u65b9\u9700\u8981\u4fee\u6539\uff1b\u7ecf\u5e38\u6027\u5730\u4fee\u6539\u6ce8\u91ca\uff0c\u7f16\u8bd1\u5668\u4e0d\u4f1a\u6267\u884c\u3002<\/dd>\n
- – \u6ce8\u91ca\u4e2d\u65e0\u9700\u91cd\u590d\u8bf4\u660e\u53c2\u6570\u540d\u3001\u6a21\u5f0f\u548c\u7c7b\u578b\u3002<\/dd>\n
- – \u8fd9\u91cc\u7ed9\u6bcf\u4e2a Ada \u5b9e\u4f53\u6240\u53d6\u7684\u540d\u5b57\u5f88\u597d\uff0c\u8fd9\u4f7f\u5f97\u529f\u80fd\u548c\u53c2\u6570\u89e3\u91ca\u53d8\u5f97\u591a\u4f59\u3002\u6ce8\u610f\uff0c\u8fd9\u4e00\u70b9\u53ea\u662f\u5bf9\u4e8e\u5982\u4e0a\u4f8b\u8fd9\u6837\u7684\u7b80\u5355\u7684\u5b50\u7a0b\u5e8f\u6765\u8bf4\u624d\u662f\u6b63\u786e\u7684\u3002\u5bf9\u4e8e\u66f4\u590d\u6742\u7684\u5b50\u7a0b\u5e8f\uff0c\u4ecd\u9700\u8981\u529f\u80fd\u548c\u53c2\u6570\u89e3\u91ca\u3002<\/dd>\n<\/dl>\n
\n- \u6846\u67b6\u52a0\u5165\u4e86\u592a\u591a\u7684\u5e72\u6270\uff0c\u9690\u85cf\u4e86\u5173\u952e\u9879\uff1a\u8fc7\u7a0b\u58f0\u660e\u3002\u53e6\u5916\uff0c\u53f3\u7aef\u7684\u5782\u76f4\u8fb9\u5f00\u59cb\u65f6\u770b\u4e0a\u53bb\u8fd8\u5f88\u6f02\u4eae\uff0c\u4f46\u5374\u4f7f\u4fee\u6539\u53d8\u5f97\u6781\u4e3a\u75db\u82e6\uff0c\u901a\u5e38\u51e0\u5e74\u7684\u7ef4\u62a4\u4e0b\u6765\uff0c\u4ee3\u7801\u6700\u540e\u5b8c\u5168\u4e0d\u5bf9\u9f50\u5e76\u4e14\u5343\u75ae\u767e\u5b54\u3002<\/li>\n
- \u76f8\u53cd\u7684\u662f\uff0c\u8fd9\u91cc\u5e94\u8bf4\u660e\u4ea7\u751f\u4e86\u4f55\u79cd\u5f02\u5e38\uff0c\u56e0\u4e3a\u82e5\u53ea\u8bfb\u89c4\u683c\u8bf4\u660e\uff0c\u8fd9\u4e00\u70b9\u5e76\u4e0d\u660e\u663e\u3002\u4f46\u6bcf\u4e2a\u5f02\u5e38\u7684\u51c6\u786e\u542b\u4e49\u5e94\u653e\u5728\u81ea\u8eab\u7684\u5f02\u5e38\u58f0\u660e\u5904\u3002<\/li>\n
- \u5e94\u8bf4\u660e\u53c2\u6570\u7684\u524d\u7f6e\u548c\u540e\u7f6e\u6761\u4ef6\uff0c\u5c24\u5176\u662f\u53c2\u6570\u95f4\u7684\u5173\u7cfb\u3002\u8fd9\u4e9b\u4e0d\u5e94\u4e0e\u5176\u5b83\u5730\u65b9\u53ef\u4ee5\u627e\u5230\u7684\u4fe1\u606f\u91cd\u590d\uff0c\u5982\u6709\u6548\u540d\u7684\u8bed\u6cd5\uff0c\u5b83\u53ea\u5e94\u5728\u4e00\u5904\u8bf4\u660e\u3002<\/li>\n<\/ul>\n
\u5728\u8fd9\u4e2a\u4f8b\u5b50\u4e2d\uff0c\u6700\u597d\u91c7\u7528\u5982\u4e0b\u66f4\u7b80\u6d01\u3001\u66f4\u6709\u7528\u7684\u65b9\u5f0f\uff1a<\/p>\n
procedure Create (The_Subscriber : in out Subscriber.Handle;\r\nWith_Name : in Subscriber.Name);--\r\n-Raises Subscriber.Collection_Overflow.\r\n-Raises Subscriber.Invalid_Name when the name is \r\nblank or malformed (see syntax description \r\nattached to declaration of type Subscriber.Name).<\/pre>\n<\/a>\u6ce8\u91ca\u7528\u6cd5\u6307\u5357<\/h2>\n\u6ce8\u91ca\u5e94\u653e\u5728\u76f8\u5173\u4ee3\u7801\u7684\u65c1\u8fb9\uff0c\u7f29\u8fdb\u540c\u6837\u7684\u5927\u5c0f\uff0c\u7d27\u9760\u7740\u4ee3\u7801 – \u5373\u7528\u7a7a\u7684\u6ce8\u91ca\u884c\u5728\u89c6\u89c9\u4e0a\u5c06\u6ce8\u91ca\u5757\u4e0e Ada \u6784\u9020\u6346\u5728\u4e00\u8d77\uff1a<\/p>\n
procedure First_One;\r\n--\r\n-- This comment relates to First_One.\r\n-- But this comment is for Second_One.\r\n-- \r\nprocedure Second_One (Times : Natural);<\/pre>\n\u7528\u7a7a\u884c\u5206\u9694\u76f8\u5173\u7684\u6e90\u7801\u5757\uff08\u6ce8\u91ca\u548c\u4ee3\u7801\uff09\uff0c\u800c\u4e0d\u7528\u7c97\u91cd\u7684\u6ce8\u91ca\u884c\uff0c\u5982\uff1a<\/p>\n
-------------------------------------------------------------<\/pre>\n\u6216\u8005\uff1a<\/p>\n
--===========================================================<\/pre>\n\u5728\u4e00\u4e2a\u6ce8\u91ca\u5757\u4e2d\uff0c\u4f7f\u7528\u7a7a\u6ce8\u91ca\u884c\u800c\u975e\u7a7a\u884c\u6765\u5206\u5272\u6ce8\u91ca\u6bb5<\/p>\n
-- Some explanation here that needs to be continued in a\r\n-- subsequent paragraph.\r\n--\r\n-- The empty comment line above makes it clear that we \r\n-- are dealing with a single comment block.<\/pre>\n\u867d\u7136\u6ce8\u91ca\u53ef\u4ee5\u653e\u5728\u76f8\u5173 Ada \u6784\u9020\u7684\u4e0a\u65b9\u6216\u4e0b\u65b9\uff0c\u4f46\u662f\u8981\u5c06\u4e00\u8282\u7684\u6807\u9898\u6216\u8005\u4e00\u4e2a\u8bf4\u660e\u51e0\u4e2a Ada \u6784\u9020\u7684\u4e3b\u8981\u4fe1\u606f\u653e\u5728\u6784\u9020\u7684\u4e0a\u65b9<\/em>\u3002\u5c06\u8bc4\u8ff0\u6216\u9644\u52a0\u4fe1\u606f\u7b49\u8fd9\u4e00\u7c7b\u7684\u6ce8\u91ca\u653e\u5728\u76f8\u5173 Ada \u6784\u9020\u7684\u4e0b\u65b9<\/em>\u3002<\/p>\n\u7528\u4e00\u9875\u7684\u6574\u884c\u5bbd\u5728 Ada \u6784\u9020\u7684\u5f00\u5934\u5904\u5206\u7ec4\u3002\u907f\u514d\u5c06\u6ce8\u91ca\u653e\u5728 Ada \u6784\u9020\u7684\u540c\u4e00\u884c\u3002\u8fd9\u4e9b\u6ce8\u91ca\u5e38\u5e38\u53d8\u5f97\u4e0d\u5bf9\u9f50\u3002\u4f46\u662f\u5728\u8bf4\u660e\u4e00\u4e2a\u957f\u7684\u58f0\u660e\u65f6\uff0c\u5982\u679a\u4e3e\u7c7b\u578b\u76f4\u63a5\u91cf\uff0c\u8fd9\u6837\u7684\u6ce8\u91ca\u65b9\u5f0f\u662f\u53ef\u4ee5\u5bb9\u8bb8\u7684\u3002<\/p>\n
\u7528\u4e00\u4e2a\u5c0f\u7684\u5206\u5c42\u6b21\u7684\u6807\u51c6\u6ce8\u91ca\u5757\u6765\u8bf4\u660e\u5c0f\u8282\u7684\u6807\u9898\uff0c\u4f46\u8fd9\u4ec5\u4ec5\u9002\u7528\u4e8e\u5f88\u5927\u7684 Ada \u5355\u5143\uff08>200 \u884c\u7684\u58f0\u660e\u6216\u8005\u8bed\u53e5\uff09\uff1a<\/p>\n
--===========================================================\r\n--\r\n \u4e3b\u6807\u9898\r\n--\r\n--===========================================================\r\n\r\n-------------------------------------------------------------\r\n \u526f\u6807\u9898\r\n-------------------------------------------------------------\r\n\r\n --------------------\r\n \u5b50\u90e8\u5206\u7684\u5934\r\n --------------------<\/pre>\n\u5728\u8fd9\u79cd\u6807\u9898\u524d\u9762\u6240\u653e\u7684\u7a7a\u884c\u6570\u8981\u591a\u4e8e\u540e\u9762\u7684\u7a7a\u884c\u6570\uff0c\u4f8b\u5982\uff0c\u4e24\u884c\u5728\u524d\u4e00\u884c\u5728\u540e\u3002\u8fd9\u6837\u4f7f\u6807\u9898\u4e0e\u968f\u540e\u7684\u6b63\u6587\u5728\u89c6\u89c9\u4e0a\u76f8\u8054\u7cfb\u3002<\/p>\n
\u907f \u514d\u4f7f\u7528\u542b\u6709\u4fe1\u606f\u7684\u51fd\u6570\u5934\uff0c\u6bd4\u5982\u4f5c\u8005\u3001\u7535\u8bdd\u3001\u521b\u5efa\u548c\u4fee\u6539\u65e5\u671f\u3001\u5355\u5143\uff08\u6216\u6587\u4ef6\u540d\uff09\u7684\u4f4d\u7f6e\uff0c\u56e0\u4e3a\u8fd9\u4e9b\u4fe1\u606f\u5f88\u5feb\u5c31\u4f1a\u8fc7\u65f6\u3002\u5c06\u6240\u6709\u8005\u7248\u6743\u4fe1\u606f\u653e\u5728\u5355\u5143\u7684\u672b\u5c3e\uff0c\u5c24\u5176\u662f \u4f7f\u7528\u201cRational \u73af\u5883\u201d\u65f6\u3002\u5f53\u8bbf\u95ee\u4e00\u4e2a\u7a0b\u5e8f\u5305\u7684\u89c4\u683c\u8bf4\u660e\u6e90\u7801\u65f6 – \u4f8b\u5982\u5728\u201cRational \u73af\u5883\u201d\u4e2d\u6309 [Definition] – \u8bfb\u8005\u4e0d\u60f3\u6d4f\u89c8\u4e24\u9875\u6216\u8005\u4e09\u9875\u5bf9\u7406\u89e3\u7a0b\u5e8f\u65e0\u4efb\u4f55\u7528\u5904\u7684\u6587\u672c\u548c\/\u6216\u5b8c\u5168\u4e0d\u5e26\u6709\u4efb\u4f55\u7a0b\u5e8f\u4fe1\u606f\u7684\u6587\u672c\u3002\u907f\u514d\u4f7f\u7528\u5782\u76f4\u6eda\u52a8\u6761\u3001\u5c01\u95ed\u56fe\u6587\u6846\u6216\u65b9\u6846\uff0c\u8fd9\u4e9b\u4e1c\u897f\u53ea\u4f1a\u589e\u52a0\u89c6\u89c9 \u5e72\u6270\uff0c\u800c\u4e14\u96be\u4ee5\u4fdd\u6301\u4e00\u81f4\u6027\u3002\u7528 Rational CMVC \u9644\u6ce8\uff08\u6216\u8005\u5176\u5b83\u5f62\u5f0f\u7684\u8f6f\u4ef6\u5f00\u53d1\u6587\u4ef6\uff09\u6765\u4fdd\u5b58\u5355\u5143\u5386\u53f2\u3002<\/p>\n
\u4e0d\u8981\u91cd\u590d\u53ef\u4ee5\u5728\u5176\u5b83\u5730\u65b9\u627e\u5230\u7684\u4fe1\u606f\uff1b\u4ec5\u63d0\u4f9b\u4e00\u4e2a\u6307\u5411\u8be5\u4fe1\u606f\u7684\u6307\u9488\u5373\u53ef\u3002<\/p>\n
\u5c3d \u91cf\u91c7\u7528 Ada\uff0c\u800c\u975e\u6ce8\u91ca\u3002\u8981\u5b9e\u73b0\u8fd9\u4e00\u70b9\uff0c\u4f60\u53ef\u9009\u62e9\u66f4\u597d\u7684\u540d\u5b57\u3001\u9644\u52a0\u4e34\u65f6\u53d8\u91cf\u3001\u9650\u5b9a\u3001\u91cd\u547d\u540d\u3001\u5b50\u7c7b\u578b\u3001\u9759\u6001\u8868\u8fbe\u5f0f\u548c\u5c5e\u6027\uff0c\u8fd9\u4e9b\u90fd\u4e0d\u5f71\u54cd\u751f\u6210\u7684\u4ee3\u7801\uff08\u81f3\u5c11\u5728\u4e00\u4e2a\u597d\u7684 \u7f16\u8bd1\u5668\u4e2d\u4e0d\u5f71\u54cd\uff09\u3002\u4f60\u4e5f\u53ef\u4ee5\u91c7\u7528\u5c0f\u7684\u3001\u5d4c\u5165\u5f0f\u7684\u8c13\u8bcd\u51fd\u6570\uff0c\u5e76\u5c06\u4ee3\u7801\u5206\u6210\u51e0\u4e2a\u65e0\u53c2\u8fc7\u7a0b\uff0c\u8fd9\u4e9b\u8fc7\u7a0b\u7684\u540d\u5b57\u63d0\u4f9b\u4e86\u4ee3\u7801\u51e0\u4e2a\u79bb\u6563\u90e8\u5206\u7684\u6807\u9898\u3002<\/p>\n
\u793a\u4f8b\uff1a<\/p>\n
\u5c06\uff1a<\/p>\n
exit when Su.Locate (Ch, Str) \/= 0; \r\n-- Exit search loop when found it.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
Search_Loop : loop<\/p>\n
Found_It := Su.Locate (Ch, Str) \/= 0;<\/p>\n
exit Search_Loop when Found_It<\/p>\n
end Search_Loop;<\/p>\n
\u5c06\uff1a<\/p>\n
if Value < 'A' or else Value > 'Z' then\r\n-- If not in uppercase letters.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
subtype Uppercase_Letters is Character range 'A' ..'Z';\r\nif Value not in Uppercase_Letters then ...<\/pre>\n\u5c06\uff1a<\/p>\n
X := Green; -- This is the Green from \r\n-- Status, not from Color.\r\nraise Fatal_Error; -- From package Outer_Scope.\r\ndelay 384.0; -- Equal to 6 minutes and 24 \r\n-- seconds.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
The_Status := Green;<\/pre>\nor:<\/p>\n
X := Status'(Green);\r\nraise Outer_Scope.Fatal_Error;\r\ndelay 6.0 * Minute + 24.0 * Second;<\/pre>\n\u5c06\uff1a<\/p>\n
if Is_Valid (The_Table (Index).Descriptor(Rank).all) then\r\n-- This is the current value for the iteration; if it is \r\n-- valid we append to the list it contains.\r\nAppend (Item, To_List => The_Table (Index).Descriptor(Rank).Ptr);|<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
declare\r\nCurrent_Rank : Lists.List renames The_Table \r\n(Index).Descriptor (Rank);\r\nbegin\r\nif Is_Valid (Current_Rank.all) then\r\nAppend (Item, To_List => Current_Rank.Ptr);\r\nend if;\r\nend;<\/pre>\n\u6ce8\u610f\u6ce8\u91ca\u4e2d\u7684\u98ce\u683c\u3001\u8bed\u6cd5\u548c\u62fc\u5199\u3002\u4e0d\u8981\u4f7f\u7528\u8c61\u7535\u62a5\u5bc6\u7801\u4e00\u822c\u7684\u98ce\u683c\u3002\u4f7f\u7528\u62fc\u5199\u68c0\u67e5\u3002\uff08\u5728\u201cRational \u73af\u5883\u201d\u4e2d\u8c03\u7528 Speller.Check_Image\uff09\u3002<\/p>\n
\u4e0d\u8981\u4f7f\u7528\u65b9\u8a00\u5b57\u6bcd\u6216\u8005\u5176\u5b83\u975e\u82f1\u6587\u5b57\u7b26\u3002\u6839\u636e Ada Issue AI-339\uff0c\u975e\u82f1\u6587\u5b57\u7b26\u53ef\u88ab\u4e00\u4e9b\u5f00\u53d1\u7cfb\u7edf\u652f\u6301\uff0c\u4e00\u4e9b Ada \u7f16\u8bd1\u5668\u4ec5\u5728\u6ce8\u91ca\u4e2d\u652f\u6301\u3002\u4f46\u8fd9\u662f\u4e0d\u53ef\u79fb\u690d\u7684\uff0c\u5f88\u6709\u53ef\u80fd\u5728\u5176\u5b83\u7cfb\u7edf\u4e0a\u5931\u6548\u3002<\/p>\n
\u5bf9\u4e8e\u5b50\u7a0b\u5e8f\uff0c\u81f3\u5c11\u8bf4\u660e\uff1a<\/p>\n
\n- \u5b50\u7a0b\u5e8f\u7684\u7528\u9014\uff0c\u4f46\u8fd9\u53ea\u662f\u5f53\u4ece\u5b83\u7684\u540d\u5b57\u4e2d\u4e0d\u80fd\u660e\u786e\u4e86\u89e3\u5176\u7528\u9014\u65f6<\/li>\n
- \u5728\u4f55\u79cd\u6761\u4ef6\u4e0b\u751f\u6210\u4e86\u4f55\u79cd\u5f02\u5e38<\/li>\n
- \u5982\u679c\u6709\u7684\u8bdd\uff0c\u53c2\u6570\u7684\u524d\u7f6e\u6216\u540e\u7f6e\u6761\u4ef6<\/li>\n
- \u5176\u4ed6\u6570\u636e\u8bbf\u95ee\uff0c\u7279\u522b\u662f\u5f53\u6570\u636e\u88ab\u4fee\u6539\u65f6\uff1b\u8fd9\u5c24\u5176\u5305\u62ec\u6709\u526f\u4f5c\u7528\u7684\u51fd\u6570<\/li>\n
- \u6b63\u786e\u4f7f\u7528\u5b50\u7a0b\u5e8f\u6240\u9700\u7684\u4efb\u4f55\u9650\u5236\u6216\u9644\u52a0\u4fe1\u606f<\/li>\n<\/ul>\n
\u5bf9\u4e8e\u7c7b\u578b\u548c\u5bf9\u8c61\uff0c\u8981\u8bf4\u660e\u6240\u6709\u4e0d\u80fd\u901a\u8fc7 Ada \u8868\u8fbe\u7684\u4e0d\u53d8\u91cf\u6216\u9644\u52a0\u7ea6\u675f\u3002<\/p>\n
\u907f\u514d\u6ce8\u91ca\u4e2d\u7684\u91cd\u590d\u3002\u4f8b\u5982\uff0c\u6709\u5173\u7528\u9014\u7684\u90e8\u5206\u5e94\u662f\u201c\u5b83\u505a\u4ec0\u4e48\uff1f\u201d\u8fd9\u4e2a\u95ee\u9898\u7684\u7b80\u5355\u56de\u7b54\uff0c\u800c\u4e0d\u662f\u201c\u5b83\u600e\u4e48\u505a\uff1f\u201d\u7684\u56de\u7b54\u3002\u6982\u8ff0\u5e94\u662f\u8bbe\u8ba1\u7684\u7b80\u77ed\u8868\u8fbe\u3002\u8bf4\u660e\u4e2d\u4e0d\u5e94\u63cf\u8ff0\u6240\u7528\u7684\u7b97\u6cd5\uff0c\u800c\u5e94\u89e3\u91ca\u7a0b\u5e8f\u5305\u5e94\u5982\u4f55\u4f7f\u7528\u3002<\/p>\n
\u6570\u636e\u7ed3\u6784\u548c\u7b97\u6cd5\u90e8\u5206\u5e94\u542b\u6709\u8db3\u591f\u7684\u4fe1\u606f\u6765\u5e2e\u52a9\u7406\u89e3\u4e3b\u8981\u7684\u5b9e\u73b0\u7b56\u7565\uff08\u4ee5\u4fbf\u6b63\u786e\u4f7f\u7528\u7a0b\u5e8f\u5305\uff09\uff0c\u4f46\u65e0\u9700\u5305\u542b\u6240\u6709\u7684\u5b9e\u73b0\u7ec6\u8282\u6216\u4e0e\u6b63\u786e\u4f7f\u7528\u5305\u6beb\u4e0d\u76f8\u5173\u7684\u4fe1\u606f\u3002<\/p>\n
\n<\/a>\u7b2c\u4e94\u7ae0<\/em><\/h2>\n\u547d\u540d\u7ea6\u5b9a<\/h1>\n\u6982\u8ff0<\/h2>\n
\u7ed9 Ada \u5b9e\u4f53\uff08\u7a0b\u5e8f\u5355\u5143\u3001\u7c7b\u578b\u3001\u5b50\u7c7b\u578b\u3001\u5bf9\u8c61\u3001\u76f4\u63a5\u91cf\u3001\u5f02\u5e38\uff09\u6307\u5b9a\u597d\u540d\u5b57\u662f\u6240\u6709\u8f6f\u4ef6\u5e94\u7528\u7a0b\u5e8f\u8981\u8868\u8ff0\u7684\u6700\u7cbe\u5de7\u7684\u4e8b\u60c5\u4e4b\u4e00\u3002\u4e2d\u7b49\u89c4\u6a21\u5230\u5927\u89c4\u6a21\u7684\u5e94\u7528\u7a0b\u5e8f\u5b58\u5728\u7740\u53e6\u4e00\u4e2a\u95ee \u9898\uff1a\u540d\u5b57\u95f4\u7684\u51b2\u7a81\uff0c\u6216\u662f\u8981\u627e\u5230\u8db3\u591f\u7684\u540c\u4e49\u8bcd\u6765\u6307\u4ee3\u76f8\u540c\u73b0\u5b9e\u4e16\u754c\u4e2d\u76f8\u4f3c\u4f46\u53c8\u6709\u522b\u7684\u6982\u5ff5\uff08\u6216\u662f\u547d\u540d\u4e00\u4e2a\u7c7b\u578b\u3001\u5b50\u7c7b\u3001\u5bf9\u8c61\u3001\u53c2\u6570\uff09\u3002\u8fd9\u91cc\u53ef\u5229\u7528\u4e0d\u91c7\u7528\u201cuse\u201d \u5b50\u53e5\uff08\u6216\u53ea\u5728\u6781\u4e3a\u53d7\u9650\u7684\u6761\u4ef6\u4e0b\u91c7\u7528\uff09\u7684\u6cd5\u5219\u3002\u5728\u8bb8\u591a\u60c5\u5f62\u4e0b\uff0c\u8fd9\u4f7f\u5f97\u53ef\u4ee5\u4e0d\u5192\u6df7\u6dc6\u7684\u98ce\u9669\u800c\u7f29\u77ed\u540d\u5b57\uff0c\u5e76\u590d\u7528\u76f8\u540c\u7684\u63cf\u8ff0\u8bcd\u3002<\/p>\n
\u9009\u62e9\u6e05\u6670\u7684\u3001\u6613\u8bfb\u7684\u3001\u6709\u610f\u4e49\u7684\u540d\u79f0\u3002<\/p>\n
\u4e0e\u5176\u5b83\u7684\u7f16\u7a0b\u8bed\u8a00\u4e0d\u540c\uff0cAda \u4e0d\u5c06\u6807\u8bc6\u7b26\u7684\u957f\u5ea6\u9650\u5236\u5728 6\uff0c8 \u6216\u8005 15 \u4e2a\u5b57\u7b26\u5185\u3002\u77ed\u540d\u5b57\u6253\u5b57\u901f\u5ea6\u5feb\u4e0d\u662f\u91c7\u7528\u5b83\u4eec\u7684\u53ef\u4ee5\u4e3a\u4eba\u63a5\u53d7\u7684\u7406\u7531\u3002\u53ea\u6709\u4e00\u4e2a\u5b57\u6bcd\u7684\u6807\u8bc6\u7b26\u901a\u5e38\u8bf4\u660e\u9009\u62e9\u4e0d\u5f53\u6216\u662f\u61d2\u60f0\u3002\u53ef\u80fd\u6709\u51e0\u4e2a\u4f8b\u5916\uff0c\u5982\u5c06 E \u4f5c\u4e3a\u81ea\u7136\u5bf9\u6570\u7684\u5e95\uff0cPi\uff0c\u4ee5\u53ca\u5176\u5b83\u5c11\u6570\u51e0\u4e2a\u6613\u8fa8\u8bc6\u7684\u60c5\u51b5\u3002<\/p>\n
\u7528\u4e0b\u5212\u7ebf\u5c06\u4e00\u4e2a\u540d\u5b57\u4e2d\u7684\u4e0d\u540c\u5355\u8bcd\u5206\u9694\u5f00\u6765\uff1a<\/p>\n
Is_Name_Valid<\/code> \u4e0d\u662f IsNameValid<\/code><\/p>\n\u91c7\u7528\u5168\u540d\u800c\u4e0d\u662f\u7f29\u5199\u3002<\/p>\n
\u53ea\u91c7\u7528\u9879\u76ee\u8ba4\u53ef\u7684\u7f29\u7565\u8bcd\u3002<\/p>\n
\u53ea\u80fd\u662f\u5728\u4e24\u79cd\u60c5\u51b5\u4e4b\u4e00\u65f6\u91c7\u7528\u7f29\u5199\uff1a\u8be5\u7f29\u5199\u5728\u5e94\u7528\u9886\u57df\u4e2d\u5f88\u666e\u904d\uff08\u5982 FFT \u4ee3\u8868\u5085\u7acb\u53f6\u53d8\u6362\uff09\u6216\u8005\u6765\u81ea\u516c\u8ba4\u7f29\u5199\u7684\u9879\u76ee\u7ea7\u5217\u8868\u3002\u5426\u5219\uff0c\u5f88\u6709\u53ef\u80fd\u4f7f\u76f8\u4f3c\u4f46\u4e0d\u76f8\u540c\u7684\u7f29\u5199\u5230\u5904\u51fa\u73b0\uff0c\u5bfc\u81f4\u4ee5\u540e\u7684\u6df7\u6dc6\u548c\u9519\u8bef\uff08\u5982\u5c06 track_identification \u7f29\u5199\u6210 trid\u3001trck_id\u3001tr_iden\u3001tid\u3001tr_ident\u7b49\uff09\u3002<\/p>\n
\u5c11\u7528\u540e\u7f00\u8bf4\u660e Ada \u6784\u9020\u7684\u5206\u7c7b\u3002\u5b83\u4eec\u4e0d\u80fd\u63d0\u9ad8\u6613\u8bfb\u6027\u3002<\/p>\n
\u901a\u5e38\u6309\u7167 Ada \u5b9e\u4f53\u7684\u7c7b\u6765\u52a0\u540e\u7f00\uff0c\u5982\u7ed9\u7a0b\u5e8f\u5305\u52a0\u4e0a _Package\uff0c\u5f02\u5e38\u52a0\u4e0a _Error\uff0c\u7c7b\u578b\u52a0\u4e0a _Type\uff0c\u4ee5\u53ca\u5b50\u7a0b\u5e8f\u7684\u53c2\u6570\u52a0\u4e0a _Param\uff0c\u5bf9\u5e2e\u52a9\u9605\u8bfb\u548c\u7406\u89e3\u4ee3\u7801\u4e0d\u662f<\/em>\u5f88\u6709\u6548\u3002 \u800c\u52a0\u4e0a\u5982 _Array\uff0c_Record \u548c _Function \u8fd9\u6837\u7684\u540e\u7f00\u5219\u66f4\u7cdf\u3002Ada \u7f16\u8bd1\u5668\u548c\u8bfb\u8005\u90fd\u53ef\u4ee5\u6839\u636e\u4e0a\u4e0b\u6587\u4ece\u5b50\u7a0b\u5e8f\u4e2d\u5206\u8fa8\u4e00\u4e2a\u5f02\u5e38\uff1a\u663e\u7136\u53ea\u6709\u5f02\u5e38\u540d\u53ef\u4ee5\u5728 raise<\/em> \u8bed\u53e5\u6216\u5f02\u5e38\u5904\u7406\u4e2d\u51fa\u73b0\u3002\u8fd9\u4e9b\u540e\u7f00\u5728\u5982\u4e0b\u53d7\u9650\u7684\u6761\u4ef6\u4e0b\u53ef\u7528\uff1a<\/p>\n\n- \u5f53\u5408\u9002\u7684\u8bcd\u7684\u9009\u62e9\u8303\u56f4\u975e\u5e38\u6709\u9650\u65f6\uff0c\u7ed9\u5bf9\u8c61\u9009\u4e00\u4e2a\u6700\u597d\u7684\u540d\u5b57\u5e76\u52a0\u4e0a\u7c7b\u578b\u7684\u540e\u7f00\u3002<\/li>\n
- \u5bf9\u4e8e\u7c7b\u5c5e\u5355\u5143,\u603b\u53ef\u4ee5\u52a0\u4e0a\u5f62\u5982 _Generic \u7684\u540e\u7f00\uff0c\u6240\u4ee5\u5bf9\u4e00\u4e9b\u6216\u8bb8\u591a\u5b9e\u4f8b\u6765\u8bf4\uff0c\u53ef\u4ee5\u4e0d\u6dfb\u52a0\u8be5\u540e\u7f00\u800c\u4f7f\u7528\u4e0e\u5176\u76f8\u540c\u7684\u540d\u5b57\u3002<\/li>\n
- \u5f53\u5b83\u8868\u793a\u4e00\u4e2a\u5e94\u7528\u9886\u57df\u7684\u6982\u5ff5\u65f6\uff0c\u5982 Aircraft_Type\u3002<\/li>\n
- \u5f53\u91cd\u8981\u7684\u8bbe\u8ba1\u51b3\u7b56\u9700\u9ad8\u5ea6\u53ef\u89c1\u65f6\uff1a<\/li>\n<\/ul>\n
\u7c7b\u5c5e\u5f62\u53c2\u7c7b\u578b\u540e\u7f00\u4e3a _Constrained<\/p>\n
\u540e\u7f00\u4e3a _Pointer \u7684\u5b58\u53d6\u7c7b\u578b\u6216\u5176\u5b83\u975e\u76f4\u63a5\u6307\u4ee3\u7684\u5f62\u5f0f\uff1a_Handle \u6216 _Reference<\/p>\n
\u901a\u8fc7 _Or_Wait \u9690\u85cf\u4e86\u53ef\u80fd\u963b\u585e\u7684\u5165\u53e3\u8c03\u7528\u7684\u5b50\u7a0b\u5e8f<\/p>\n
\u5c06\u540d\u5b57\u8868\u8ff0\u51fa\u6765\uff0c\u4f7f\u5f97\u4ece\u4f7f\u7528<\/em>\u7684\u89d2\u5ea6\u770b\uff0c\u5b83\u4eec\u8fd8\u4e0d\u9519\u3002<\/p>\n\u8bd5\u60f3\u4e00\u4e2a\u5bfc\u51fa\u5b9e\u4f53\u53ef\u5728\u5176\u4e2d\u4f7f\u7528\u7684\u4e0a\u4e0b\u6587\uff0c\u5e76\u7ad9\u5728\u90a3\u4e2a\u89d2\u5ea6\u9009\u62e9\u4e00\u4e2a\u540d\u5b57\u3002\u4e00\u4e2a\u5b9e\u4f53\u4ec5\u88ab\u5b9a\u4e49\u4e00\u6b21\uff0c\u4f46\u5374\u88ab\u4f7f\u7528\u8bb8\u591a\u6b21\u3002\u8fd9\u4e00\u70b9\u5bf9\u4e8e\u5b50\u7a0b\u5e8f\u7684\u540d\u5b57\u53ca\u5176\u53c2\u6570\u6765\u8bf4\u5c24\u4e3a\u6b63\u786e\uff1b \u4f7f\u7528\u547d\u540d\u5173\u8054\u5173\u7cfb\u7684\u7ed3\u679c\u8c03\u7528\u5e94\u5c3d\u91cf\u4e0e\u81ea\u7136\u8bed\u8a00\u76f8\u8fd1\u3002\u8bb0\u4f4f\u7f3a\u5c11\u4f7f\u7528<\/em>\u5b50\u53e5\u4f7f\u5f97\u5927\u591a\u6570\u58f0\u660e\u5b9e\u4f53\u5fc5\u987b\u5177\u6709\u53d7\u9650\u540d\u3002\u5bf9\u4e8e\u6709\u53ef\u80fd\u5728\u7c7b\u5c5e\u5355\u5143\u4e2d\u6bd4\u5728\u4eab\u7528\u6a21\u5757\u90a3\u91cc\u4f7f\u7528\u5f97\u8fd8\u591a\u7684\u7c7b\u5c5e\u5f62\u53c2\u6765\u8bf4\uff0c\u5fc5\u987b\u5bfb\u627e\u4e00\u4e2a\u597d\u7684\u534f\u8c03\u529e\u6cd5\uff0c\u4f46\u662f\u7edd\u5bf9\u8981\u4fdd\u8bc1\u5b50\u7a0b\u5e8f\u7684\u5f62\u53c2\u5728\u4eab\u7528\u6a21\u5757\u7aef\u597d\u770b\u3002<\/p>\n\u4f7f\u7528\u82f1\u6587\u5355\u8bcd\u5e76\u62fc\u5199\u6b63\u786e\u3002<\/p>\n
\u8bed\u8a00\u7684\u6df7\u5408\uff08\u5982\u6cd5\u8bed\u548c\u82f1\u8bed\uff09\u5c06\u4f7f\u4ee3\u7801\u96be\u8bfb\uff0c\u6709\u65f6\u4f7f\u6807\u8bc6\u7b26\u7684\u610f\u4e49\u6478\u68f1\u4e24\u53ef\u3002 \u65e2\u7136 Ada \u7684\u5173\u952e\u5b57\u5df2\u662f\u82f1\u6587\u7684\uff0c\u5219\u8981\u6c42\u4f7f\u7528\u82f1\u6587\u5355\u8bcd\u3002\u6700\u597d\u91c7\u7528\u7f8e\u5f0f\u62fc\u6cd5\uff0c\u4ee5\u4fbf\u5229\u7528\u201cRational \u73af\u5883\u201d\u4e2d\u5185\u7f6e\u7684\u62fc\u5199\u68c0\u67e5\u3002<\/p>\n
\u4e0d\u8981\u91cd\u65b0\u5b9a\u4e49 Standard \u7a0b\u5e8f\u5305\u4e2d\u7684\u4efb\u4f55\u5b9e\u4f53\u3002\u8fd9\u662f\u7edd\u5bf9\u7981\u6b62\u7684\u3002<\/p>\n
\u8fd9\u6837\u505a\u5c06\u4ea7\u751f\u6df7\u6dc6\u548c\u4e25\u91cd\u7684\u9519\u8bef\u3002\u8be5\u6cd5\u5219\u53ef\u5ef6\u4f38\u81f3\u5176\u5b83\u9884\u5b9a\u4e49\u7684\u5e93\u5355\u5143\uff1aCalendar\uff0cSystem\u3002\u8fd9\u4e5f\u5305\u62ec Standard<\/em> \u6807\u8bc6\u7b26\u672c\u8eab\u3002<\/p>\n\u907f\u514d\u5bf9\u5176\u5b83\u9884\u5b9a\u4e49\u7a0b\u5e8f\u5305\u4e2d\u7684\u6807\u8bc6\u7b26\u91cd\u5b9a\u4e49\uff0c\u5982 System \u6216 Calendar\u3002<\/p>\n
\u4e0d\u8981\u4f7f\u7528\u5982\u4e0b\u7684\u6807\u8bc6\u7b26\uff1aWide_Character<\/strong> \u548c Wide_String<\/strong>\uff0c\u5b83\u4eec\u5c06\u5728 Ada 95 \u7684 Standard \u7a0b\u5e8f\u5305\u4e2d\u5f15\u5165\u3002\u4e0d\u8981\u5f15\u5165\u4e00\u4e2a\u540d\u4e3a Ada<\/strong> \u7684\u7f16\u8bd1\u5355\u5143\u3002<\/p>\n\u4e0d\u8981\u4f7f\u7528\u4ee5\u4e0b\u5355\u8bcd\u4f5c\u4e3a\u6807\u8bc6\u7b26\uff1aabstract<\/strong>\uff0caliased<\/strong>\uff0cprotected<\/strong>\uff0crequeue<\/strong>\uff0ctagged<\/strong> \u548c until<\/strong>\uff0c\u5b83\u4eec\u5728 Ada 95 \u5c06\u6210\u4e3a\u5173\u952e\u5b57\u3002<\/p>\n\u4e00\u4e9b\u7ed9\u5404\u79cd Ada \u5b9e\u4f53\u7684\u547d\u540d\u5efa\u8bae\u4e5f\u662f\u540c\u6837\u3002\u5047\u5b9a\u4e00\u822c\u60c5\u5f62\u4e0b\uff0c\u201c\u9762\u5411\u5bf9\u8c61\u201d\u98ce\u683c\u7684\u8bbe\u8ba1\u53d7\u6b22\u8fce\u3002\u8be6\u60c5\u8bf7\u53c2\u89c1\u9644\u5f55 A\u3002<\/p>\n
<\/a>\u7a0b\u5e8f\u5305<\/h2>\n\u5f53\u4e00\u4e2a\u7a0b\u5e8f\u5305\u5f15\u5165\u4e86\u67d0\u4e2a\u5bf9\u8c61\u7c7b\u65f6\uff0c\u7528\u8be5\u5bf9\u8c61\u7c7b\u7684\u540d\u5b57\u547d\u540d\u7a0b\u5e8f\u5305\uff0c\u901a\u5e38\u662f\u4e00\u4e2a\u5355\u6570\u5f62\u5f0f\u7684\u540d\u8bcd\uff0c\u82e5\u9700\u8981\uff08\u5373\u5b9a\u4e49\u4e86\u4e00\u4e2a\u5e26\u53c2\u6570\u7684\u7c7b\uff09\uff0c\u53ef\u52a0\u4e0a\u540e\u7f00 _Generic\u3002\u4ec5\u5f53\u5bf9\u8c61\u603b\u4ee5\u7fa4\u4f53\u5f62\u5f0f\u51fa\u73b0\u65f6\uff0c\u624d\u91c7\u7528\u590d\u6570\u5f62\u5f0f\u3002\u4f8b\u5982\uff1a<\/p>\n
package Text is\r\npackage Line is\r\npackage Mailbox is\r\npackage Message is\r\npackage Attributes is\r\npackage Subscriber is\r\npackage List_Generic is<\/pre>\n\u82e5\u4e00\u4e2a\u7a0b\u5e8f\u5305\u8bf4\u660e\u4e86\u4e00\u4e2a\u63a5\u53e3\u6216\u8005\u529f\u80fd\u5206\u7ec4\uff0c\u5e76\u4e14\u5b83\u4e0d\u4e0e\u4efb\u4f55\u5bf9\u8c61\u76f8\u5173\uff0c\u5219\u5e94\u5728\u5b83\u7684\u540d\u5b57\u4e2d\u5c06\u8fd9\u4e00\u70b9\u8868\u8ff0\u51fa\u6765\uff1a<\/p>\n
package Low_Layer_Interface is\r\npackage Math_Definitions is<\/pre>\n\u5f53\u4e00\u4e2a\u201c\u903b\u8f91\u201d\u5305\u7528\u5e73\u9762\u5206\u89e3 (flat decomposition)\uff0c\u9700\u8981\u4f5c\u4e3a\u51e0\u4e2a\u5305\u6765\u8868\u8fbe\u65f6\uff0c\u91c7\u7528\u9879\u76ee\u7ea7\u4e00\u81f4\u7684\u5217\u8868\u4e2d\u7684\u540e\u7f00\u3002\u4f8b\u5982\uff0c\u4e00\u4e2a\u903b\u8f91\u7a0b\u5e8f\u5305 Mailbox \u53ef\u5982\u4e0b\u5b9e\u73b0\uff1a<\/p>\n
package Mailbox_Definitions is\r\npackage Mailbox_Exceptions is\r\npackage Mailbox_Io is\r\npackage Mailbox_Utilities is\r\npackage Mailbox_Implementation is\r\npackage Mailbox_Main is<\/pre>\n\u5176\u5b83\u53ef\u63a5\u53d7\u7684\u540e\u7f00\u6709\uff1a<\/p>\n
_Test_Support \r\n_Test_Main \r\n_Log \r\n_Hidden_Definitions \r\n_Maintenance \r\n_Debug<\/pre>\n<\/a>\u7c7b\u578b<\/h2>\n\u5f53\u5728\u7a0b\u5e8f\u5305\u4e2d\u5b9a\u4e49\u4e00\u4e2a\u5bf9\u8c61\u7c7b\u8574\u6db5\u62f7\u8d1d\u8bed\u4e49\u65f6 – \u5373\u5f53\u7c7b\u578b\u53ef\u5b9e\u4f8b\u5316\u5e76\u4e14\u67d0\u79cd\u5f62\u5f0f\u7684\u4efb\u52a1\u5206\u914d\u53ef\u884c\u65f6\uff0c\u91c7\u7528\uff1a<\/p>\n
type Object is ...<\/pre>\n\u6ce8\u610f\u7c7b\u540d\u4e0d\u5e94\u5728\u6807\u8bc6\u7b26\u4e2d\u91cd\u590d\uff0c\u56e0\u4e3a\u5b83\u603b\u662f\u4ee5\u5b8c\u5168\u53d7\u9650\u7684\u5f62\u5f0f\u4f7f\u7528\uff1a<\/p>\n
Mailbox.Object\r\nLine.Object<\/pre>\n\u5f53\u5305\u542b\u5171\u4eab\u8bed\u4e49\u65f6 – \u5373\u7c7b\u578b\u7528\u5b58\u53d6\u503c\uff08\u6216\u8005\u5176\u5b83\u975e\u76f4\u63a5\u7684\u5f62\u5f0f\uff09\u5b9e\u73b0\uff0c\u5e76\u4e14\u8d4b\u503c\u8bed\u53e5\uff08\u82e5\u5b58\u5728\uff09\u4e0d\u590d\u5236\u5bf9\u8c61 – \u7528\u5982\u4e0b\u65b9\u5f0f\u8bf4\u660e\uff1a<\/p>\n
UL><\/p>\n
\ntype Handle is <\/code>\u7528\u4e8e\u975e\u76f4\u63a5\u5f15\u7528<\/li>\ntype Reference is <\/code>\u662f\u4e00\u4e2a\u53ef\u884c\u7684\u5907\u7528\u65b9\u6848<\/li>\n<\/ul>\n\u8fd9\u4e9b\u5143\u7d20\u5728\u5355\u72ec\u4f7f\u7528\u65f6\u4f5c\u540e\u7f00\uff0c\u524d\u9762\u52a0\u4e0a\u5305\u540d\uff0c\u8fd9\u6837\u5e76\u4e0d\u6e05\u695a\u6216\u975e\u5e38\u6478\u68f1\u4e24\u53ef\u3002<\/p>\n
\u5f53\u8574\u6db5\u591a\u4e2a\u5bf9\u8c61\u65f6\uff0c\u91c7\u7528\uff1a<\/p>\n
\ntype Set is <\/code>\u5f53\u6697\u542b\u5143\u7d20\u7684\u7279\u6b8a\u6027\u65f6<\/li>\ntype List is <\/code>\u5f53\u5305\u542b\u67d0\u79cd\u6b21\u5e8f\u65f6<\/li>\ntype Collection is<\/code> \u5f53\u65e2\u4e0d\u542b\u96c6\u5408\u4e5f\u4e0d\u542b\u5217\u8868\u8bed\u4e49\u65f6<\/li>\ntype Iterator is<\/code> \u5f53\u63d0\u4f9b\u4e86 Initialize\uff0cValue_Of\uff0cNext\uff0cIs_Done \u7b49\u539f\u8bed\u65f6
\n\uff08\u53c2\u89c1 6.5 \u8282\uff09<\/li>\n<\/ul>\n\u5bf9\u4e8e\u67d0\u4e2a\u5bf9\u8c61\u4e32\u7684\u6307\u5b9a\uff0c\u91c7\u7528\uff1a<\/p>\n
type Name is<\/code><\/p>\n\u4e3a\u4e86\u8fbe\u5230\u66f4\u597d\u7684\u6613\u8bfb\u6027\uff0c\u7c7b\u578b\u7684\u53d7\u9650\u540d\u4e5f\u5e94\u5728\u6574\u4e2a\u5b9a\u4e49\u5305\u5185\u4f7f\u7528\u3002\u201cRational \u73af\u5883\u201d\u4e2d\uff0c\u5f53\u5728\u5b50\u7a0b\u5e8f\u8c03\u7528\u4e2d\u91c7\u7528 [Complete] \u51fd\u6570\u65f6\uff0c\u4e0a\u8ff0\u65b9\u6cd5\u4e5f\u53ef\u4f7f\u8fd0\u884c\u66f4\u52a0\u597d\u3002<\/p>\n
\u4f8b\u5982\uff0c\u6ce8\u610f\u4e0b\u9762\u7684\u5b8c\u5168\u540d Subscriber.Object\uff1a<\/p>\n
package Subscriber is\r\ntype Object is private;\r\ntype Handle is access Subscriber.Object;\r\nsubtype Name is String;\r\npackage List is new List_Generic (Subscriber.Handle);\r\nMaster_List : Subscriber.List.Handle;\r\nprocedure Create (The_Handle : out Subscriber.Handle;\r\nWith_Name : in Subscriber.Name);\r\nprocedure Append (The_Subscriber : in Subscriber.Handle;\r\nTo_List : in out Subscriber.List.Handle);\r\nfunction Name_Of (The_Subscriber : Subscriber.Handle) return\r\nSubscriber.Name;\r\n ...\r\nprivate\r\ntype Object is\r\nrecord\r\nThe_Name : Subscriber.Name (1..20);\r\n ...\r\nend Subscriber;<\/pre>\n\u5728\u5176\u5b83\u60c5\u51b5\u4e0b\uff0c\u7c7b\u540d\u91c7\u7528\u540d\u8bcd\u6216\u8005\u4fee\u9970\u7b26 + \u540d\u8bcd\u3002\u7c7b\u578b\u53ef\u7528\u590d\u6570\u5f62\u5f0f\uff0c\u5bf9\u8c61\uff08\u53d8\u91cf\uff09\u540d\u91c7\u7528\u5355\u6570\uff1a<\/p>\n
type Point is record ...\r\ntype Hidden_Attributes is ( ...\r\ntype Boxes is array ...<\/pre>\n\u5bf9\u4e8e\u679a\u4e3e\u7c7b\u578b\uff0c\u5355\u72ec\u6216\u8005\u4f5c\u4e3a\u540e\u7f00\u4f7f\u7528 Mode\uff0cKind\uff0cCode \u7b49\u5355\u8bcd\u3002<\/p>\n
\u5bf9\u4e8e\u6570\u7ec4\u7c7b\u578b\uff0c\u5f53\u5df2\u5c06\u7b80\u5355\u540d\u7528\u4e8e\u7ec4\u4ef6\u7c7b\u578b\u65f6\uff0c\u53ef\u4ee5\u91c7\u7528\u540e\u7f00 _Table\u3002\u4ec5\u5f53\u6570\u7ec4\u7528\u8574\u6db5\u8bed\u4e49\u6765\u7ef4\u62a4\u65f6\uff0c\u624d\u91c7\u7528\u8c61 _Set \u548c _List \u8fd9\u6837\u7684\u540d\u5b57\u6216\u540e\u7f00\u3002Reserve _Vector \u548c _Matrix \u5e94\u7559\u4f5c\u76f8\u5e94\u7684\u6570\u5b66\u6982\u5ff5\u4f7f\u7528\u3002<\/p>\n
\u56e0\u4e3a\u8981\u907f\u514d\u5355\u6570\u7684\u4efb\u52a1\u5bf9\u8c61\uff08\u539f\u56e0\u5728\u540e\u6587\u89e3\u91ca\uff09\uff0c\u6240\u4ee5\u5373\u4f7f\u53ea\u6709\u4e00\u4e2a\u8be5\u7c7b\u578b\u7684\u5bf9\u8c61\u65f6\uff0c\u4e5f\u5e94\u5f15\u5165\u4efb\u52a1\u7c7b\u578b\u3002\u4e0b\u9762\u662f\u4f7f\u7528\u4e86\u4e00\u4e2a\u8c61 _Type \u8fd9\u6837\u7684\u7b80\u5355\u540e\u7f00\u4e4b\u540e\u4fbf\u4ee4\u4eba\u6ee1\u610f\u7684\u4f8b\u5b50\uff1a<\/p>\n
task type Listener_Type is ...\r\nfor Listener_Type'Storage_Size use ...\r\nListener : Listener_Type;<\/pre>\n\u7c7b\u4f3c\u5730\uff0c\u5f53\u7c7b\u578b\u540d\u91c7\u7528\u540d\u8bcd\uff08\u6216\u8005\u540d\u8bcd\u77ed\u8bed\uff09\u5b58\u5728\u51b2\u7a81\u65f6\uff0c\u6216\u8005\u51e0\u5904\u7684\u5bf9\u8c61\u540d\u6216\u53c2\u6570\u540d\u6709\u51b2\u7a81\u65f6\uff0c\u5728\u8be5\u7c7b\u578b\u540d\u540e\u52a0\u4e0a\u540e\u7f00 _Kind\uff0c\u800c\u8ba9\u5bf9\u8c61\u4f7f\u7528\uff08\u65e0\u540e\u7f00\u7684\uff09\u7b80\u5355\u540d\u8bcd\uff1a<\/p>\n
type Status_Kind is (None, Normal, Urgent, Red);\r\nStatus : Status_Kind := None;<\/pre>\n\u6216\u8005\uff0c\u5bf9\u4e8e\u603b\u4ee5\u590d\u6570\u51fa\u73b0\u7684\u4e8b\u7269\u7684\u7c7b\u578b\uff0c\u91c7\u7528\u590d\u6570\u5f62\u5f0f\u3002<\/p>\n
\u56e0\u4e3a\u5b58\u53d6\u7c7b\u578b\u5b58\u5728\u56fa\u6709\u7684\u5371\u5bb3\uff0c\u6240\u4ee5\u4f7f\u7528\u8005\u5e94\u5c0f\u5fc3\u3002\u4e00\u822c\u5b83\u4eec\u53eb\u505a Pointer\u3002\u5982\u679c\u540d\u5b57\u672c\u8eab\u610f\u4e49\u8fd8\u5f88\u6478\u68f1\u4e24\u53ef\uff0c\u5219\u5e94\u52a0\u4e0a\u540e\u7f00 _pointer\u3002\u4f5c\u4e3a\u540e\u5907\u65b9\u6848\uff0c\u4e5f\u53ef\u91c7\u7528 _Access \u505a\u540e\u7f00\u3002<\/p>\n
\u6709\u65f6\u91c7\u7528\u5d4c\u5957\u5b50\u7a0b\u5e8f\u5305\u6765\u5f15\u5165\u6b21\u7ea7\u62bd\u8c61\u53ef\u4ee5\u7b80\u5316\u547d\u540d\uff1a<\/p>\n
package Subscriber is ...\r\npackage Status is\r\ntype Kind is (Ok, Deleted, Incomplete, Suspended, \r\nPrivileged);\r\nfunction Set (The_Status : Subscriber.Status.Kind;\r\nTo_Subscriber : Subscriber.Handle);\r\nend Status;\r\n ...<\/pre>\n<\/a>\u5f02\u5e38<\/h2>\n\u56e0\u4e3a\u5f02\u5e38\u53ea\u80fd\u7528\u6765\u5904\u7406\u9519\u8bef\uff0c\u6240\u4ee5\u5e94\u4f7f\u7528\u540d\u8bcd\u6216\u540d\u8bcd\u77ed\u8bed\u6765\u6e05\u695a\u8868\u8fbe\u4e00\u4e2a\u8d1f\u9762\u7684\u610f\u4e49\uff1a<\/p>\n
Overflow, Threshold_Exceeded, Bad_Initial_Value<\/pre>\n\u5f53\u5728\u4e00\u4e2a\u7c7b\u7a0b\u5e8f\u5305\u4e2d\u5b9a\u4e49\u5f02\u5e38\u65f6\uff0c\u6807\u8bc6\u7b26\u65e0\u9700\u5305\u542b\u7c7b\u540d – \u4f8b\u5982 Bad_Initial_Subscriber_Value – \u56e0\u4e3a\u5f02\u5e38\u4e00\u76f4\u88ab\u7528\u4f5c Subscriber.Bad_Initial_Value\u3002<\/p>\n
\u91c7\u7528 Bad\uff0cIncomplete\uff0cInvalid\uff0cWrong\uff0cMissing \u6216\u8005 Illegal \u4e2d\u7684\u4e00\u4e2a\u5355\u8bcd\u4f5c\u4e3a\u540d\u5b57\u7684\u4e00\u90e8\u5206\uff0c\u800c\u4e0d\u662f\u7cfb\u7edf\u5730\u91c7\u7528\u4e0d\u4f20\u8fbe\u4efb\u4f55\u8be6\u7ec6\u4fe1\u606f\u7684 Error\uff1a<\/p>\n
Illegal_Data, Incomplete_Data<\/pre>\n<\/a>\u5b50\u7a0b\u5e8f<\/h2>\n\u8fc7\u7a0b\uff08\u548c\u4efb\u52a1\u5165\u53e3\uff09\u91c7\u7528\u52a8\u8bcd\u3002\u51fd\u6570\u540d\u91c7\u7528\u5e26\u6709\u5bf9\u8c61\u7c7b\u5c5e\u6027\u6216\u7279\u5f81\u7684\u540d\u8bcd\u3002\u8fd4\u56de\u5e03\u5c14\u503c\uff08\u8c13\u8bcd\uff09\u7684\u51fd\u6570\u4f7f\u7528\u5f62\u5bb9\u8bcd\uff08\u6216\u8fc7\u53bb\u5206\u8bcd\uff09\u3002<\/p>\n
Subscriber.Create\r\nSubscriber.Destroy\r\nSubscriber.List.Append\r\nSubscriber.First_Name -- Returns a string.\r\nSubscriber.Creation_Date -- Returns a date.\r\nSubscriber.List.Next\r\nSubscriber.Deleted -- Returns a Boolean.\r\nSubscriber.Unavailable -- Returns a Boolean.\r\nSubscriber.Remote<\/pre>\n\u5bf9\u4e8e\u8c13\u8bcd\uff0c\u5728\u4e00\u4e9b\u60c5\u51b5\u4e0b\u7ed9\u540d\u8bcd\u524d\u9762\u52a0\u4e0a\u524d\u7f00 Is_ \u6216 Has_ \u6216\u8bb8\u6709\u5e2e\u52a9\uff1b\u65f6\u6001\u8981\u51c6\u786e\u548c\u4e00\u81f4\uff1a<\/p>\n
function Has_First_Name ...\r\nfunction Is_Administrator ...\r\nfunction Is_First...\r\nfunction Was_Deleted ...<\/pre>\n\u5f53\u7b80\u5355\u540d\u79f0\u5df2\u4f5c\u4e3a\u7c7b\u578b\u540d\u6216\u679a\u4e3e\u578b\u76f4\u63a5\u91cf\u65f6\uff0c\u4e0a\u8ff0\u65b9\u6cd5\u6709\u7528\u3002<\/p>\n
\u8c13\u8bcd\u5e94\u4f7f\u7528\u80af\u5b9a\u5f0f\uff0c\u4e5f\u5c31\u662f\u8bf4\uff0c\u5176\u4e2d\u4e0d\u5e94\u542b\u6709\u201cNot_\u201d\u4e00\u8bcd\u3002<\/p>\n
\u5bf9\u4e8e\u666e\u901a\u64cd\u4f5c\uff0c\u7edf\u4e00\u4ece\u9879\u76ee\u53ef\u9009\u5217\u8868\uff08\u5217\u8868\u968f\u7740\u6211\u4eec\u5bf9\u7cfb\u7edf\u8ba4\u8bc6\u7684\u52a0\u6df1\u800c\u6269\u5c55\uff09\u4e2d\u9009\u62e9\u52a8\u8bcd\uff1a<\/p>\n
Create\r\nDelete\r\nDestroy\r\nInitialize\r\nAppend\r\nRevert\r\nCommit\r\nShow, Display<\/pre>\n\u8c13\u8bcd\u51fd\u6570\u548c\u5e03\u5c14\u578b\u7684\u53c2\u6570\u91c7\u7528\u80af\u5b9a\u5f0f\u3002\u5426\u5b9a\u5f0f\u7684\u540d\u5b57\u53ef\u80fd\u4ea7\u751f\u53cc\u91cd\u5426\u5b9a\uff08\u4f8b\u5982 Not Is_Not_Found\uff09\uff0c\u4ece\u800c\u4f7f\u4ee3\u7801\u96be\u8bfb\u3002<\/p>\n
function Is_Not_Valid (...) return Boolean\r\nprocedure Find_Client (With_The_Name : in Name;\r\nNot_Found : out Boolean)<\/pre>\n\u5e94\u5b9a\u4e49\u6210\uff1a<\/p>\n
function Is_Valid (...) return Boolean;\r\nprocedure Find_Client (With_The_Name: in Name;\r\nFound: out Boolean)<\/pre>\n\u8fd9\u624d\u8ba9\u4eab\u7528\u6a21\u5757\u6309\u5176\u6240\u9700\u7684\u90a3\u6837\u5b9e\u73b0\u4e86\u8868\u8fbe\u5f0f\u7684\u5426\u5b9a\uff08\u8fd9\u6837\u505a\u4e0d\u4f1a\u5bfc\u81f4\u8fd0\u884c\u65f6\u95f4\u5ef6\u957f\uff09\uff1a<\/p>\n
if not Is_Valid (...) then ....<\/pre>\n\u6709\u4e9b\u60c5\u51b5\u4e0b\uff0c\u901a\u8fc7\u4f7f\u7528\u53cd\u4e49\u8bcd\uff0c\u5982\u7528\u201cIs_Invalid\u201d\u6765\u4ee3\u66ff\u201cIs_Not_Valid\u201d\uff0c\u53ef\u4ee5\u4f7f\u5426\u5b9a\u8c13\u8bcd\u5728\u4e0d\u6539\u53d8\u8bed\u4e49\u7684\u60c5\u51b5\u4e0a\u53d8\u6210\u80af\u5b9a\u5f0f\u3002\u4f46\u662f\uff0c\u80af\u5b9a\u5f0f\u7684\u540d\u5b57\u66f4\u6613\u8bfb\uff1a \u201cIs_Valid\u201d\u6bd4\u201cnot Is_Invalid\u201d\u66f4\u6613\u7406\u89e3\u3002<\/p>\n
\u5f53\u8574\u6db5\u7740\u5927\u81f4\u76f8\u540c\u7684\u610f\u4e49\u65f6\uff0c\u91c7\u7528\u76f8\u540c\u7684\u5355\u8bcd\uff0c\u800c\u4e0d\u662f\u5bfb\u627e\u540c\u4e49\u8bcd\u6216\u53d8\u4f53\u3002\u56e0\u6b64\uff0c\u9f13\u52b1\u4f7f\u7528\u91cd\u8f7d\u6765\u63d0\u9ad8\u4ee3\u7801\u7684\u4e00\u81f4\u6027\uff0c\u9075\u5faa\u6700\u5c0f\u9650\u5ea6\u610f\u5916\u539f\u5219\u3002<\/p>\n
\u82e5\u5b50\u7a0b\u5e8f\u88ab\u7528\u505a\u5165\u53e3\u8c03\u7528\u7684\u201c\u5916\u8868\u201d (skins) \u6216\u8005\u201c\u5305\u88c5\u201d (wrappers)\uff0c\u5219\u7ed9\u5176\u540d\u5b57\u52a8\u8bcd\u52a0\u4e0a\u540e\u7f00 _Or_Wait\uff0c\u6216\u8005\u7ed9\u51fd\u6570\u53d6\u4e2a Wait_For_ \u77ed\u8bed\u52a0\u540d\u8bcd\u7684\u540d\u5b57\u6765\u53cd\u6620\u8fd9\u4e00\u70b9\uff0c\u8fd9\u6837\u53ef\u80fd\u6709\u7528\uff1a<\/p>\n
Subscriber.Get_Reply_Or_Wait\r\nSubscriber.Wait_For_Reply<\/pre>\n\u4e00\u4e9b\u64cd\u4f5c\u5e94\u4e00\u76f4\u4f7f\u7528\u76f8\u540c\u7684\u540d\u5b57\u6765\u7edf\u4e00\u5b9a\u4e49\uff1a<\/p>\n
\u5bf9\u4e8e\u8f6c\u6362\u5230\u5b57\u4e32\u548c\u4ece\u5b57\u4e32\u8f6c\u6362\u6765\u7684\u7c7b\u578b\u53d8\u6362\uff0c\u5bf9\u79f0\u51fd\u6570\u662f\uff1a<\/p>\n
function Image and function Value<\/pre>\n\u5bf9\u4e8e\u8f6c\u6362\u5230\u4f4e\u7ea7\u8868\u793a\u6cd5\uff08\u5982\u7528\u4e8e\u6570\u636e\u4ea4\u6362\u7684 Byte_String\uff09\u548c\u4ece\u4f4e\u7ea7\u8868\u793a\u6cd5\u8f6c\u6362\u8fc7\u6765\u7684\u7c7b\u578b\u53d8\u6362\uff0c\u5bf9\u79f0\u8fc7\u7a0b\u662f\uff1a<\/p>\n
procedure Read and Write<\/pre>\n\u5bf9\u4e8e\u5206\u914d\u6570\u636e\uff1a<\/p>\n
function Allocate (rather than Create)\r\nfunction Destroy (or Release, to express that the object will disappear)<\/pre>\n\u5f53\u7cfb\u7edf\u5730\u5904\u7406\u5b83\u4eec\u65f6\u91c7\u7528\u7edf\u4e00\u7684\u547d\u540d\uff0c\u7c7b\u578b\u5408\u6210\u5c06\u5bb9\u6613\u8bb8\u591a\u3002<\/p>\n
\u5bf9\u4e8e\u6d3b\u52a8\u7684\u8fed\u4ee3\u7a0b\u5e8f\uff0c\u5fc5\u987b\u5b9a\u4e49\u4ee5\u4e0b\u539f\u8bed\uff1a<\/p>\n
Initialize\r\nNext\r\nIs_Done\r\nValue_Of<\/pre>\n\u82e5\u53ef\u884c\uff0c\u8fd8\u8981\u5b9a\u4e49 Reset<\/code>\u3002\u82e5\u8981\u5728\u76f8\u540c\u7684\u4f5c\u7528\u57df\u8303\u56f4\u5185\u5f15\u5165\u51e0\u4e2a\u8fed\u4ee3\u7c7b\u578b\uff0c\u90a3\u4e48\u5e94\u91cd\u8f7d\u8fd9\u4e9b\u539f\u8bed\uff0c\u800c\u4e0d\u662f\u4e3a\u6bcf\u4e2a\u8fed\u4ee3\u7a0b\u5e8f\u5206\u522b\u5f15\u5165\u4e00\u5957\u5404\u4e0d\u76f8\u540c\u7684\u6807\u8bc6\u7b26\u3002\u53c2\u89c1 [BOO87]<\/a>\u3002<\/p>\n\u5f53\u91c7\u7528 Ada \u9884\u786e\u5b9a\u5c5e\u6027\u4f5c\u4e3a\u51fd\u6570\u540d\u65f6\uff0c\u8981\u4fdd\u8bc1\u5176\u7528\u6cd5\u4e0e\u4e00\u822c\u7684\u8bed\u4e49\u76f8\u540c\uff1a’First\uff0c’Last\uff0c’Length\uff0c’Image\uff0c’Value\uff0c\u7b49\u7b49\u3002 \u6ce8\u610f\uff0c\u51e0\u4e2a\u5c5e\u6027\uff08\u5982 ‘Range \u548c ‘Delta\uff09\u662f\u4e0d\u80fd\u7528\u505a\u51fd\u6570\u540d\u7684\uff0c\u56e0\u4e3a\u5b83\u4eec\u662f\u4fdd\u7559\u5b57\u3002<\/p>\n
<\/a>\u5bf9\u8c61\u548c\u5b50\u7a0b\u5e8f\uff08\u6216\u5165\u53e3\uff09\u53c2\u6570<\/h2>\n\u4e3a\u8868\u660e\u5176\u552f\u4e00\u6027\u6216\u662f\u8868\u660e\u8be5\u5b9e\u4f53\u662f\u6d3b\u52a8\u7684\u4e3b\u8981\u805a\u96c6\u5904\uff0c\u5728\u5bf9\u8c61\u6216\u53c2\u6570\u540d\u79f0\u524d\u52a0\u524d\u7f00\u201cThe\u201d\u6216\u201cThis\u201d\u3002\u8981\u8bf4\u660e\u4e00\u4e2a\u6b21\u8981\u3001\u4e34\u65f6\u3001\u8f85\u52a9\u7684\u5bf9\u8c61\uff0c\u5219\u52a0\u524d\u7f00\u201cA_\u201d\u6216\u201cCurrent_\u201d\uff1a<\/p>\n
procedure Change_Name (The_Subscriber : in Subscriber.Handle;\r\nThe_Name : in Subscriber.Name );\r\ndeclare\r\nA_Subscriber : Subscriber.Handle := Subscriber.First;\r\nbegin\r\n ...\r\nA_Subscriber := Subscriber.Next (The_Subscriber);\r\nend;<\/pre>\n\u5bf9\u4e8e\u5e03\u5c14\u578b\u7684\u5bf9\u8c61\uff0c\u91c7\u7528\u80af\u5b9a\u5f0f\u7684\u8c13\u8bcd\u5b50\u53e5\uff1a<\/p>\n
Found_It\r\nIs_Available<\/pre>\n\u4f46\u662f\uff1a<\/p>\n
Is_Not_Available<\/code> \u5fc5\u987b\u907f\u514d\u3002<\/p>\n\u5bf9\u4e8e\u4efb\u52a1\u5bf9\u8c61\uff0c\u5e94\u91c7\u7528\u4e00\u4e2a\u8574\u6db5\u4e86\u6d3b\u52a8\u5b9e\u4f53\u7684\u540d\u8bcd\u6216\u8005\u540d\u8bcd\u77ed\u8bed\uff1a<\/p>\n
Listener\r\nResource_Manager\r\nTerminal_Driver<\/pre>\n
\u6982\u8ff0<\/a>
\n\u6ce8\u91ca\u7528\u6cd5\u6307\u5357<\/a><\/h4>\n\u547d\u540d\u7ea6\u5b9a<\/a><\/h3>\n\u6982\u8ff0<\/a>
\n\u7a0b\u5e8f\u5305<\/a>
\n\u7c7b\u578b<\/a>
\n\u5f02\u5e38<\/a>
\n\u5b50\u7a0b\u5e8f<\/a>
\n\u5bf9\u8c61\u548c\u5b50\u7a0b\u5e8f\uff08\u6216\u5165\u53e3\uff09\u53c2\u6570<\/a>
\n\u7c7b\u5c5e\u5355\u5143<\/a>
\n\u5b50\u7cfb\u7edf\u7684\u547d\u540d\u7b56\u7565<\/a><\/h4>\n\u7c7b\u578b\u3001\u5bf9\u8c61\u548c\u7a0b\u5e8f\u5355\u5143\u7684\u58f0\u660e<\/a><\/h3>\n\u679a\u4e3e\u7c7b\u578b<\/a>
\n\u6570\u503c\u7c7b\u578b<\/a>
\n\u5b9e\u578b<\/a>
\n\u8bb0\u5f55\u7c7b\u578b<\/a>
\n\u5b58\u53d6\u7c7b\u578b<\/a>
\n\u79c1\u6709\u7c7b\u578b<\/a>
\n\u6d3e\u751f\u7c7b\u578b<\/a>
\n\u5bf9\u8c61\u58f0\u660e<\/a>
\n\u5b50\u7a0b\u5e8f\u548c\u7c7b\u5c5e\u5355\u5143<\/a><\/h4>\n\u8868\u8fbe\u5f0f\u548c\u8bed\u53e5<\/a><\/h3>\n\u8868\u8fbe\u5f0f<\/a>
\n\u8bed\u53e5<\/a>
\n\u7f16\u7801\u63d0\u793a<\/a><\/h4>\n\u53ef\u89c1\u6027\u95ee\u9898<\/a><\/h3>\n\u91cd\u8f7d\u548c\u540c\u5f62\u5f02\u4e49\u5b57<\/a>
\n\u4e0a\u4e0b\u6587\u5b50\u53e5<\/a>
\n\u91cd\u547d\u540d<\/a>
\n\u5173\u4e8e Use \u5b50\u53e5\u7684\u8bf4\u660e<\/a><\/h4>\n\u7a0b\u5e8f\u7ed3\u6784\u548c\u7f16\u8bd1\u95ee\u9898<\/a><\/h3>\n\u7a0b\u5e8f\u5305\u7684\u5206\u89e3<\/a>
\n\u58f0\u660e\u90e8\u5206\u7684\u7ed3\u6784<\/a>
\n\u4e0a\u4e0b\u6587\u5b50\u53e5<\/a>
\n\u786e\u7acb\u987a\u5e8f<\/a><\/h4>\n\u5e76\u884c<\/a><\/h3>\n\u9519\u8bef\u5904\u7406\u4e0e\u5f02\u5e38<\/a><\/h3>\n\u4f4e\u7ea7\u7f16\u7a0b<\/a><\/h3>\n\u8868\u793a\u5b50\u53e5\u548c\u5c5e\u6027<\/a>
\n\u65e0\u68c0\u67e5\u8f6c\u6362<\/a><\/h4>\n\u603b\u7ed3<\/a><\/h3>\n\u53c2\u8003\u6587\u732e<\/a><\/h3>\n\u8bcd\u6c47\u8868<\/a><\/h3>\n
\n<\/a>\u7b2c\u4e00\u7ae0<\/em><\/h2>\n\u5173\u4e8e\u672c\u6587\u6863<\/h1>\n
\u672c\u6587\u6863 Rational Unified Process – Ada \u7f16\u7a0b\u6307\u5357<\/em>\u662f\u4e00\u4e2a\u6807\u51c6\u7684\u6a21\u677f\uff0c\u4f60\u7684\u5f00\u53d1\u7ec4\u7ec7\u53ef\u4f9d\u6b64\u6d3e\u751f\u51fa\u4e00\u5957\u7a0b\u5e8f\u8bbe\u8ba1\u6807\u51c6\u3002\u8be5\u6307\u5357\u8be6\u7ec6\u8bf4\u660e\u4e86\u5e94\u5982\u4f55\u7f16\u5199 Ada \u7a0b\u5e8f\u3002\u672c\u6587\u670d\u52a1\u7684\u5bf9\u8c61\u662f\u6240\u6709\u5c06 Ada \u4f5c\u4e3a\u5b9e\u65bd\u8bed\u8a00\u6216\u8005\u4e00\u79cd\u8bf4\u660e\u63a5\u53e3\u6216\u6570\u636e\u7ed3\u6784\u7684\u8bbe\u8ba1\u8bed\u8a00\u7684\u5e94\u7528\u8f6f\u4ef6\u8bbe\u8ba1\u8005\u548c\u5f00\u53d1\u8005\u3002<\/p>\n\u6587\u4e2d\u6240\u63cf\u8ff0\u7684\u89c4\u5219\u56ca\u62ec\u4e86\u7a0b\u5e8f\u8bbe\u8ba1\u7684\u5927\u90e8\u5206\u65b9\u9762\u3002\u901a\u7528\u89c4\u5219\u9002\u7528\u4e8e\u7a0b\u5e8f\u5e03\u5c40\u3001\u547d\u540d\u7ea6\u5b9a\u548c\u6ce8\u91ca\u5e94\u7528\u3002\u7279\u6b8a\u89c4\u5219\u9002\u7528\u4e8e\u9009\u5b9a\u7684 Ada \u7279\u6027\uff0c\u5e76\u8bf4\u660e\u4e86\u7981\u7528\u6784\u9020\u3001\u63a8\u8350\u4f7f\u7528\u6a21\u5f0f\u548c\u7528\u4ee5\u63d0\u9ad8\u7a0b\u5e8f\u8d28\u91cf\u7684\u901a\u7528\u6280\u5de7\u3002<\/p>\n
\u9879\u76ee\u7684\u8bbe\u8ba1<\/em>\u6307\u5357\u548c\u5f53\u524d\u7684\u7f16\u7a0b<\/em>\u6307\u5357\u6709\u4e00\u5b9a\u7684\u91cd\u590d\uff0c\u662f\u6709\u610f\u8fd9\u6837\u505a\u7684\u3002\u4ecb\u7ecd\u7684\u8bb8\u591a\u7a0b\u5e8f\u8bbe\u8ba1\u89c4\u5219\uff0c\u5c24\u5176\u662f\u5728\u547d\u540d\u7ea6\u5b9a<\/em>\u4e2d\u7684\u89c4\u5219\uff0c\u7528\u4e8e\u79ef\u6781\u652f\u6301\u548c\u52a0\u5f3a\u8f6f\u4ef6\u8bbe\u8ba1\u4e2d\u7684\u9762\u5411\u5bf9\u8c61<\/em>\u65b9\u5f0f\u3002<\/p>\n\u6307\u5357\u6700\u521d\u7528\u4e8e Ada 83\u3002\u5b83\u542b\u6709\u4e0e Ada 95 \u517c\u5bb9\u7684\u89c4\u5219\uff0c\u4f46\u4e0d\u542b\u6709\u6539\u7248\u540e\u8bed\u8a00\u6807\u51c6\u65b0\u7279\u6027\u7684\u4f7f\u7528\u6307\u5357\uff0c\u4f8b\u5982\u6807\u8bc6\u7c7b\u578b\u3001\u5b50\u5355\u5143\u6216\u5c0f\u6570\u7c7b\u578b\u3002<\/p>\n
\u6587\u6863\u5927\u81f4\u6309\u7167 Ada Reference Manual \u7684\u7ed3\u6784\u6765\u7ec4\u7ec7 [ISO 8052]<\/a>\u3002<\/p>\n\u7b2c\u4e8c\u7ae0\u201c\u7b80\u4ecb<\/em>\u201d\u89e3\u91ca\u4e86\u6307\u5357\u6240\u57fa\u4e8e\u7684\u57fa\u672c\u539f\u7406\u5e76\u4ecb\u7ecd\u4e86\u6307\u5357\u5206\u7c7b\u3002<\/p>\n\u7b2c\u4e09\u7ae0\u201c\u4ee3\u7801\u5e03\u5c40<\/em>\u201d\u8bb2\u8ff0\u4e86\u7a0b\u5e8f\u6587\u672c\u7684\u4e00\u822c\u89c6\u89c9\u7ec4\u7ec7\u7ed3\u6784\u3002<\/p>\n\u7b2c\u56db\u7ae0\u201c\u6ce8\u91ca<\/em>\u201d\u7ed9\u51fa\u4e86\u5982\u4f55\u7528\u7ed3\u6784\u5316\u7684\u3001\u53ef\u7528\u7684\u548c\u53ef\u7ef4\u62a4\u7684\u65b9\u5f0f\u6765\u6ce8\u91ca\u8bf4\u660e\u4ee3\u7801\u3002<\/p>\n\u7b2c\u4e94\u7ae0\u201c\u547d\u540d\u7ea6\u5b9a<\/em>\u201d\u7ed9\u51fa\u6709\u5173\u547d\u540d\u8bed\u8a00\u5b9e\u4f53\u7684\u4e00\u822c\u89c4\u5219\u548c\u8303\u4f8b\u3002\u8fd9\u4e00\u7ae0\u7684\u5185\u5bb9\u5e94\u518d\u7ecf\u4fee\u6539\uff0c\u4ee5\u6ee1\u8db3\u7279\u5b9a\u9879\u76ee\u6216\u673a\u6784\u7684\u9700\u8981\u3002<\/p>\n\u7b2c\u516d\u7ae0\u201c\u58f0\u660e<\/em>\u201d\u548c\u7b2c\u4e03\u7ae0\u201c\u8868\u8fbe\u5f0f\u548c\u8bed\u53e5<\/em>\u201d\u5bf9\u6bcf\u79cd\u8bed\u8a00\u7ed3\u6784\u7ed9\u51fa\u4e86\u8fdb\u4e00\u6b65\u7684\u5efa\u8bae\u3002<\/p>\n\u7b2c\u516b\u7ae0\u201c\u53ef\u89c6\u6027\u95ee\u9898<\/em>\u201d\u548c\u7b2c\u4e5d\u7ae0\u201c\u7a0b\u5e8f\u7ed3\u6784\u548c\u7f16\u8bd1\u95ee\u9898<\/em>\u201d\u7ed9\u51fa\u4e86\u6709\u5173\u5168\u5c40\u6784\u5efa\u548c\u7a0b\u5e8f\u7ec4\u6210\u7684\u6307\u5bfc\u3002<\/p>\n\u7b2c\u5341\u7ae0\u201c\u5e76\u884c<\/em>\u201d\u5904\u7406\u8bed\u8a00\u4e2d\u6709\u5173\u4f7f\u7528\u4efb\u52a1\u548c\u65f6\u95f4\u76f8\u5173\u7279\u6027\u7684\u4e13\u95e8\u95ee\u9898\u3002<\/p>\n\u7b2c\u5341\u4e00\u7ae0\u201c\u9519\u8bef\u5904\u7406\u548c\u5f02\u5e38<\/em>\u201d\u7ed9\u51fa\u5982\u4f55\u7cfb\u7edf\u5730\u3001\u7b80\u4fbf\u5730\u4f7f\u7528\u6216\u4e0d\u4f7f\u7528\u5f02\u5e38\u6765\u5904\u7406\u9519\u8bef\u3002<\/p>\n\u7b2c\u5341\u4e8c\u7ae0\u201c\u4f4e\u7ea7\u7f16\u7a0b<\/em>\u201d\u5904\u7406\u8868\u793a\u5b50\u53e5\u7684\u95ee\u9898\u3002<\/p>\n\u7b2c\u5341\u4e09\u7ae0\u201c\u603b\u7ed3<\/em>\u201d\u627c\u8981\u590d\u8ff0\u4e86\u6700\u4e3a\u91cd\u8981\u7684\u6307\u5bfc\u65b9\u9488\u3002<\/p>\n\u672c\u6587\u6863\u53d6\u4ee3\u4e86 Ada Guidelines: Recommendation for Designers and programmers<\/em> \u4e2d\u7684 Application Note #15, Rational, Santa Clara, CA., 1990\u3002<\/p>\n
\n<\/a>\u7b2c\u4e8c\u7ae0<\/em><\/h2>\n\u7b80\u4ecb<\/h1>\n\u57fa\u672c\u539f\u5219<\/h2>\n
Ada \u8bed\u8a00\u7684\u8bbe\u8ba1\u5f88\u6709\u9488\u5bf9\u6027\u7684\u76ee\u7684\u5c31\u662f\u652f\u6301\u9ad8\u8d28\u91cf\u3001\u53ef\u9760\u3001\u53ef\u590d\u7528\u548c\u53ef\u79fb\u690d\u8f6f\u4ef6 [ISO 87, sect. 1.3]<\/a>\u3002\u7136\u800c\uff0c\u6ca1\u6709\u54ea\u4e00\u79cd\u8bed\u8a00\u4ec5\u9760\u5176\u672c\u8eab\u5c31\u53ef\u4ee5\u5b9e\u73b0\u4e0a\u8ff0\u76ee\u6807\u3002\u7a0b\u5e8f\u8bbe\u8ba1\u5fc5\u987b\u662f\u4e00\u4e2a\u6709\u826f\u597d\u89c4\u8303\u7684\u8fc7\u7a0b\u7684\u4e00\u90e8\u5206\u3002<\/p>\n\u6e05\u695a\u660e\u767d\u7684 Ada \u6e90\u4ee3\u7801\u662f\u672c\u6587\u4e2d\u5927\u591a\u6570\u6307\u5bfc\u65b9\u9488\u7684\u4e3b\u8981\u76ee\u6807\u3002\u8fd9\u4e00\u70b9\u662f\u5b9e\u73b0\u53ef\u9760\u6027\u548c\u53ef\u7ef4\u62a4\u6027\u7684\u4e3b\u8981\u56e0\u7d20\u3002\u6240\u8c13\u6e05\u695a\u660e\u767d\u7684\u4ee3\u7801\u53ef\u4ee5\u4ece\u4ee5\u4e0b\u4e09\u6761\u7b80\u5355\u7684\u57fa\u672c\u539f\u5219\u4e0a\u6765\u7406\u89e3\u3002<\/p>\n
\u6700\u5c0f\u9650\u5ea6\u7684\u610f\u5916<\/h3>\n
\u5728\u5176\u751f\u547d\u671f\u5185\uff0c\u4ee3\u7801\u66f4\u591a\u5730\u662f\u88ab\u8bfb\uff0c\u800c\u4e0d\u662f\u88ab\u5199\uff0c\u5c24\u5176\u662f\u5b83\u7684\u8bf4\u660e\u90e8\u5206\u3002\u7406\u60f3\u60c5\u51b5\u4e0b\uff0c\u4ee3\u7801\u8bfb\u8d77\u6765\u5e94\u8be5\u8c61\u4e00\u7bc7\u8bf4\u660e\u5b83\u505a\u4e86\u4ec0\u4e48\u7684\u82f1\u6587\u63cf\u8ff0\uff0c\u5b83\u5177\u6709\u4e00\u4e2a\u9644\u52a0\u4f18\u70b9\u662f\u53ef\u4ee5\u6267\u884c\u3002 \u7a0b\u5e8f\u66f4\u591a\u662f\u4e3a\u4eba\u7f16\u5199\uff0c\u800c\u4e0d\u662f\u4e3a\u8ba1\u7b97\u673a\u7f16\u5199\u3002\u9605\u8bfb\u7f16\u7801\u662f\u4e00\u4e2a\u590d\u6742\u7684\u8111\u529b\u8fc7\u7a0b\uff0c\u5b83\u53ef\u901a\u8fc7\u7edf\u4e00\u6807\u51c6\u6765\u7b80\u5316\uff0c\u5728\u672c\u6587\u4e2d\u8fd9\u4e00\u6307\u5bfc\u4e5f\u53eb\u201c\u6700\u5c0f\u9650\u5ea6\u610f\u5916\u539f\u5219<\/em>\u201d\u3002\u6574\u4e2a\u9879\u76ee\u4e2d\u7edf\u4e00\u6837\u5f0f\u662f\u8f6f\u4ef6\u5f00\u53d1\u56e2\u961f\u5728\u7f16\u7a0b\u6807\u51c6\u4e0a\u8fbe\u6210\u4e00\u81f4\u7684\u4e3b\u8981\u539f\u56e0\uff0c\u5b83\u4e0d\u5e94\u89c6\u4e3a\u4e00\u79cd\u60e9\u7f5a\u6216\u5bf9\u521b\u9020\u6027\u548c\u751f\u4ea7\u529b\u7684\u963b\u788d\u3002<\/p>\n\u5355\u70b9\u7ef4\u62a4<\/h3>\n
\u8fd9\u4e00\u6307\u5bfc\u6240\u57fa\u4e8e\u7684\u53e6\u4e00\u4e2a\u91cd\u8981\u539f\u5219\u662f\u5355\u70b9\u7ef4\u62a4\u539f\u5219<\/em>\u3002\u5e94\u5c3d\u91cf\u4f7f\u8bbe\u8ba1\u51b3\u7b56\u53ea\u5728 Ada \u6e90\u7801\u4e2d\u7684\u4e00\u5904\u8868\u8ff0\uff0c\u5b83\u7684\u591a\u6570\u7ed3\u8bba\u5e94\u7a0b\u5e8f\u5316\u5730\u4ece\u8be5\u5904\u6d3e\u751f\u51fa\u6765\u3002\u4e0d\u9075\u5b88\u8fd9\u4e00\u539f\u5219\u4f1a\u4e25\u91cd\u5f71\u54cd\u4ee3\u7801\u7684\u53ef\u7ef4\u62a4\u6027\u3001\u53ef\u9760\u6027\u548c\u53ef\u7406\u89e3\u6027\u3002<\/p>\n\u6700\u5c0f\u9650\u5ea6\u7684\u5e72\u6270<\/h3>\n
\u6700\u540e\uff0c\u4f5c\u4e3a\u6613\u8bfb\u6027\u7684\u4e3b\u8981\u4f5c\u7528\u56e0\u7d20\uff0c\u91c7\u7528\u6700\u5c0f\u5e72\u6270\u539f\u5219<\/em>\u3002\u5373\u907f\u514d\u5c06\u6e90\u4ee3\u7801\u4e0e\u89c6\u89c9\u201c\u5e72\u6270\u201d\u76f8\u6df7\u5408\uff1a\u5373\u680f\u3001\u6846\u4ee5\u53ca\u5176\u5b83\u4f4e\u4fe1\u606f\u91cf\u7684\u6587\u672c\u6216\u662f\u5bf9\u7406\u89e3\u8f6f\u4ef6\u529f\u80fd\u6ca1\u6709\u5e2e\u52a9\u7684\u4fe1\u606f\u3002<\/p>\n\u53ef\u79fb\u690d\u6027\u548c\u53ef\u590d\u7528\u6027\u4e5f\u662f\u5236\u5b9a\u8bb8\u591a\u6307\u5bfc\u65b9\u9488\u7684\u539f\u7531\u3002\u4ee3\u7801\u5e94\u53ef\u79fb\u690d\u5230\u4e0d\u540c\u76ee\u6807\u8ba1\u7b97\u673a\u7684\u51e0\u4e2a\u4e0d\u540c\u7f16\u8bd1\u5668\u4e0a\uff0c\u5e76\u6700\u7ec8\u79fb\u690d\u5230\u4e00\u4e2a\u66f4\u9ad8\u7ea7\u7684 Ada \u7248\u672c\u201cAda 95\u201d\u4e0a [PLO92,<\/a> TAY92]<\/a>\u3002<\/p>\n<\/a>\u5047\u8bbe<\/h2>\n\u8fd9\u91cc\u7684\u6307\u5bfc\u65b9\u9488\u6709\u51e0\u4e2a\u57fa\u672c\u5047\u8bbe\uff1a<\/p>\n
\u8bfb\u8005\u4e86\u89e3 Ada\u3002<\/h3>\n
\u5e94\u9f13\u52b1\u5728\u4efb\u4f55\u53ef\u5e26\u6765\u597d\u5904\u7684\u5730\u65b9\u4f7f\u7528 Ada \u7684\u9ad8\u7ea7\u7279\u6027\uff0c\u800c\u4e0d\u8981\u4ec5\u4ec5\u56e0\u4e3a\u4e00\u4e9b\u7a0b\u5e8f\u5458\u4e0d\u719f\u6089\u5b83\u4eec\u800c\u53cd\u5bf9\u91c7\u7528\u3002 \u8fd9\u662f\u9879\u76ee\u80fd\u4ece\u4f7f\u7528 Ada \u4e2d\u771f\u6b63\u83b7\u76ca\u7684\u552f\u4e00\u65b9\u5f0f\u3002Ada \u4e0d\u5e94\u8c61 Pascal \u6216 FORTRAN \u8bed\u8a00\u90a3\u6837\u4f7f\u7528\u3002\u4e0d\u9f13\u52b1\u5728\u6ce8\u91ca\u4e2d\u89e3\u91ca\u4ee3\u7801\uff1b\u76f8\u53cd\uff0cAda \u672c\u8eab\u5e94\u5c3d\u53ef\u80fd\u5730\u53d6\u4ee3\u6ce8\u91ca\u3002<\/p>\n
\u8bfb\u8005\u61c2\u82f1\u6587\u3002<\/h3>\n
\u8bb8\u591a\u547d\u540d\u7ea6\u5b9a\u5728\u8bcd\u6c47\u548c\u8bed\u6cd5\u4e0a\u57fa\u4e8e\u82f1\u6587\u3002\u6b64\u5916\uff0c Ada \u7684\u5173\u952e\u5b57\u90fd\u662f\u5e38\u7528\u7684\u82f1\u8bed\u5355\u8bcd\u3002\u5c06\u5176\u4e0e\u5176\u5b83\u8bed\u8a00\u6df7\u5408\u5c06\u964d\u4f4e\u4ee3\u7801\u7684\u6613\u8bfb\u6027\u3002<\/p>\n
\u4e25\u683c\u9650\u5236\u4f7f\u7528\u5b50\u53e5 (use clause) \u7684\u8fd0\u7528\u3002<\/h3>\n
\u547d\u540d\u7ea6\u5b9a\u548c\u5176\u5b83\u4e00\u4e9b\u89c4\u5219\u5047\u5b9a\u201cuse\u201d\u5b50\u53e5\u4e0d\u88ab\u8fd0\u7528\u3002<\/p>\n
\u5904\u7406\u7684\u662f\u4e00\u4e2a\u5927\u9879\u76ee\u3002<\/h3>\n
\u8bb8\u591a\u89c4\u5219\u5728\u5927\u578b\u9879\u76ee\u4e2d\u6700\u6709\u4ef7\u503c\uff0c\u867d\u7136\u51fa\u4e8e\u9879\u76ee\u7ea7\u6216\u516c\u53f8\u7ea7\u5b9e\u73b0\u548c\u7edf\u4e00\u7684\u76ee\u7684\uff0c\u5b83\u4eec\u4e5f\u5728\u5c0f\u578b\u7cfb\u7edf\u4e2d\u4f7f\u7528\u3002<\/p>\n
\u6e90\u7801\u5728\u201cRational \u73af\u5883\u201d (Rational Environment) \u4e2d\u5f00\u53d1\u3002<\/h3>\n
\u901a\u8fc7\u8fd0\u7528\u201cRational \u73af\u5883\u201d (Rational Environment)\uff0c\u4e00\u4e9b\u95ee\u9898\u5982\u4ee3\u7801\u5e03\u5c40\u3001\u5c01\u95ed\u6784\u9020\u4e2d\u7684\u6807\u8bc6\u7b26\u7b49\u5c31\u5728 Ada \u7f16\u8f91\u5668\u548c\u683c\u5f0f\u5668\u4e2d\u5904\u7406\u4e86\u3002 \u4f46\u662f\u672c\u6587\u4e2d\u7684\u5e03\u5c40\u5efa\u8bae\u9002\u7528\u4e8e\u4efb\u4f55\u5f00\u53d1\u5e73\u53f0\u3002<\/p>\n
\u7a0b\u5e8f\u8bbe\u8ba1\u9075\u5faa\u9762\u5411\u5bf9\u8c61\u7684\u65b9\u6cd5\u3002<\/h3>\n
\u8bb8\u591a\u89c4\u5219\u652f\u6301\u5c06 Ada \u7279\u6027\u548c\u7279\u5b9a\u547d\u540d\u7ea6\u5b9a\u7684\u9762\u5411\u5bf9\u8c61 (OO) \u6982\u5ff5\u7684\u7cfb\u7edf\u6620\u5c04\u3002<\/p>\n
<\/a>\u6307\u5357\u5206\u7c7b<\/h2>\n\u8fd9\u4e9b\u6307\u5bfc\u65b9\u9488\u5e76\u975e\u540c\u7b49\u91cd\u8981\u3002\u5b83\u4eec\u5927\u81f4\u9075\u5faa\u4ee5\u4e0b\u7684\u7b49\u7ea7\uff1a<\/p>\n
\u63d0\u793a\uff1a<\/h3>\n
\u8be5\u6307\u5bfc\u65b9\u9488\u4ec5\u662f\u4e00\u6761\u7b80\u5355\u7684\u5efa\u8bae\uff1b\u4e0d\u9075\u5b88\u5b83\u4e5f\u4e0d\u4f1a\u6709\u4ec0\u4e48\u5b9e\u8d28\u6027\u7684\u635f\u5bb3\uff0c\u91c7\u7528\u6216\u662f\u4e0d\u91c7\u7528\u5b83\u4eec\u4ec5\u662f\u4e2a\u4eba\u559c\u597d\u95ee\u9898\u3002\u6587\u4e2d\u7684\u63d0\u793a\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u5efa\u8bae\uff1a<\/h3>\n
\u8be5\u6307\u5bfc\u65b9\u9488\u901a\u5e38\u66f4\u591a\u5730\u57fa\u4e8e\u6280\u672f\u7684\u89c2\u70b9\uff1b\u5b83\u53ef\u80fd\u4f1a\u5f71\u54cd\u5230\u4ee3\u7801\u7684\u53ef\u79fb\u690d\u6027\u6216\u53ef\u590d\u7528\u6027\uff0c\u5e76\u5728\u4e00\u4e9b\u5b9e\u65bd\u4e2d\u5f71\u54cd\u6027\u80fd\u3002 \u9664\u975e\u6709\u5408\u9002\u7684\u7406\u7531\uff0c\u5426\u5219\u5fc5\u987b\u9075\u5b88\u5efa\u8bae\u3002\u6587\u4e2d\u63d0\u5230\u4e00\u4e9b\u4f8b\u5916\u7684\u60c5\u51b5\u3002\u6587\u4e2d\u7684\u5efa\u8bae\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u9650\u5236\uff1a<\/h3>\n
\u6709\u7591\u95ee\u7684\u7279\u6027\u4f7f\u7528\u8d77\u6765\u5371\u9669\uff0c\u4f46\u5b83\u5e76\u4e0d\u88ab\u5b8c\u5168\u7981\u6b62\uff1b\u5e94\u7528\u8be5\u7279\u6027\u7684\u51b3\u5b9a\u5e94\u5728\u9879\u76ee\u7ea7\u4e0a\u505a\u51fa\uff0c\u5e76\u4e14\u51b3\u5b9a\u5e94\u8be5\u662f\u9ad8\u5ea6\u53ef\u89c1\u7684\u3002\u6587\u4e2d\u7684\u9650\u5236\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u8981\u6c42\uff1a<\/h3>\n
\u8fdd\u80cc\u5b83\u5b9a\u5c06\u5bfc\u81f4\u4e0d\u597d\u7684\u3001\u4e0d\u53ef\u9760\u7684\u6216\u662f\u4e0d\u53ef\u79fb\u690d\u7684\u4ee3\u7801\u3002 \u8981\u6c42\u4e0d\u53ef\u8fdd\u80cc\u3002\u6587\u4e2d\u7684\u8981\u6c42\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u201cRational \u8bbe\u8ba1\u5de5\u5177\u201d (Rational Design Facility) \u5c06\u7528\u6765\u51cf\u5c11\u53d7\u9650\u7279\u6027\u7684\u4f7f\u7528\u5e76\u52a0\u5f3a\u5fc5\u9700\u6cd5\u5219\u548c\u8bb8\u591a\u5efa\u8bae\u7684\u8fd0\u7528\u3002<\/p>\n
\u4e0e\u8bb8\u591a\u5176\u5b83\u7684 Ada \u7a0b\u5e8f\u8bbe\u8ba1\u6807\u51c6\u4e0d\u540c\u7684\u662f\uff1a\u4e8b\u5b9e\u4e0a\uff0c\u8fd9\u4e9b\u6307\u5bfc\u65b9\u9488\u4e2d\u53ca\u5c11\u6709\u5b8c\u5168\u7981\u7528\u7684\u3002\u597d\u7684\u8f6f\u4ef6\u7684\u5173\u952e\u5728\u4e8e\uff1a<\/p>\n
\n- \u4e86\u89e3\u6bcf\u79cd\u7279\u6027\uff0c\u4e86\u89e3\u5b83\u7684\u5c40\u9650\u548c\u53ef\u80fd\u7684\u5371\u9669<\/li>\n
- \u51c6\u786e\u4e86\u89e3\u8fd9\u79cd\u7279\u6027\u5728\u4f55\u79cd\u573a\u5408\u53ef\u4ee5\u5b89\u5168\u4f7f\u7528<\/li>\n
- \u8ba9\u4f7f\u7528\u8be5\u7279\u6027\u7684\u51b3\u7b56\u9ad8\u5ea6\u53ef\u89c1<\/li>\n
- \u5341\u5206\u5c0f\u5fc3\u8c28\u614e\u5730\u5728\u9002\u5f53\u5904\u4f7f\u7528\u8be5\u7279\u6027\u3002<\/li>\n<\/ul>\n
<\/a>\u6700\u6839\u672c\u7684\u539f\u5219<\/h2>\n\u4f7f\u7528\u5e38\u8bc6\u3002<\/p>\n
\u5f53\u65e0\u6cd5\u627e\u5230\u53ef\u7528\u7684\u89c4\u5219\u6216\u6307\u5357\uff0c\u5f53\u89c4\u5219\u660e\u663e\u4e0d\u9002\u7528\uff0c\u5f53\u5176\u5b83\u4e00\u5207\u90fd\u5931\u8d25\u65f6\uff1a\u4f7f\u7528\u5e38\u8bc6\uff0c\u5e76\u6838\u67e5\u57fa\u672c\u539f\u5219\u3002\u8fd9\u6761\u6cd5\u5219\u51cc\u9a7e\u4e8e\u5176\u5b83\u6240\u6709\u6cd5\u5219\u4e4b\u4e0a\u3002\u5e38\u8bc6\u662f\u5fc5\u4e0d\u53ef\u5c11\u7684<\/em>\u3002<\/p>\n
\n<\/a>\u7b2c\u4e09\u7ae0<\/em><\/h2>\n\u4ee3\u7801\u5e03\u5c40<\/h1>\n\u6982\u8ff0<\/h2>\n
\u4e00\u4e2a\u7a0b\u5e8f\u5355\u5143\u7684\u5e03\u5c40\u5b8c\u5168\u5728\u201cRational \u73af\u5883\u683c\u5f0f\u5668\u201d (Rational Environment Formatter) \u7684\u63a7\u5236\u4e4b\u4e0b\uff0c\u9664\u4e86\u5728\u6ce8\u91ca\u548c\u7a7a\u767d\u5904\u5185\uff0c\u7a0b\u5e8f\u5458\u4e0d\u5fc5\u8fc7\u591a\u62c5\u5fc3\u7a0b\u5e8f\u7684\u5e03\u5c40\u3002\u8fd9\u4e2a\u5de5\u5177\u6240\u91c7\u7528\u7684\u683c\u5f0f\u7ea6\u5b9a\u5728 Reference Manual for the Ada Programming Language \u7684 Appendix E \u4e2d\u8868\u8ff0 [ISO87]<\/a>\u3002 \u7279\u522b\u662f\uff0c\u4ed6\u4eec\u5efa\u8bae\u7ed3\u6784\u5316\u6784\u9020\u7684\u5f00\u59cb\u548c\u7ed3\u675f\u5904\u7684\u5173\u952e\u5b57\u5e94\u5782\u76f4\u5bf9\u9f50\u3002\u4e00\u4e2a\u6784\u9020\u7684\u6807\u8bc6\u7b26\u4e5f\u5e94\u7cfb\u7edf\u6027\u5730\u5728\u6784\u9020\u7684\u672b\u5c3e\u91cd\u590d\u3002<\/p>\n\u683c\u5f0f\u5668\u7684\u786e\u5207\u884c\u4e3a\u7531\u4e00\u7cfb\u5217\u7684\u5e93\u5f00\u5173<\/em>\u5728\u4e00\u4e2a\u901a\u7528\u6a21\u578b\u4e16\u754c (model world) \u57fa\u7840\u4e0a\u63a7\u5236\uff0c\u8fd9\u4e9b\u5e93\u5f00\u5173\u5728\u6574\u4e2a\u9879\u76ee\u8fc7\u7a0b\u4e2d\u63a5\u6536\u4e00\u5957\u7edf\u4e00\u7684\u503c\u3002\u76f8\u5173\u7684\u5f00\u5173\u4ee5\u53ca\u5b83\u4eec\u5728\u6211\u4eec\u6240\u5efa\u8bae\u7684\u6a21\u578b\u4e16\u754c<\/em>\u4e2d\u7684\u901a\u7528\u503c\u5217\u8868\u5982\u4e0b\u3002<\/p>\n<\/a>\u5b57\u6bcd\u5927\u5c0f\u5199<\/h2>\nFormat .Id_Case : Letter_Case := Capitalized<\/h3>\n
\u8be6\u7ec6\u8bf4\u660e Ada \u5355\u5143\u4e2d\u6807\u8bc6\u7b26\u7684\u5b57\u6bcd\u5927\u5c0f\u5199\uff1a\u6700\u5f00\u59cb\u7684\u5b57\u6bcd\u4ee5\u53ca\u6bcf\u4e2a\u4e0b\u5212\u7ebf\u4e4b\u540e\u7684\u7b2c\u4e00\u4e2a\u5b57\u6bcd\u7528\u5927\u5199\u3002\u5927\u5199\u662f\u8bfb\u8005\u6700\u6613\u8bfb\u7684\u5f62\u5f0f\uff0c\u5177\u6709\u4f17\u591a\u73b0\u4ee3\u5c4f\u5e55\u548c\u6fc0\u5149\u6253\u5370\u673a\u5b57\u4f53\u3002<\/p>\n
Format .Keyword_Case : Letter_Case := Lower<\/h3>\n
\u8bf4\u660e Ada \u5173\u952e\u5b57\u7684\u5927\u5c0f\u5199\u3002\u8fd9\u5c06\u5b83\u4eec\u4e0e\u6807\u8bc6\u7b26\u7565\u5fae\u533a\u5206\u5f00\u6765\u3002<\/p>\n
Format .Number_Case : Letter_Case := Upper<\/h3>\n
\u8bf4\u660e\u6d6e\u70b9\u76f4\u63a5\u91cf\u4e2d\u5b57\u6bcd\u201cE\u201d\u548c\u57fa\u672c\u76f4\u63a5\u91cf\u4e2d\u57fa\u672c\u6570\u5b57\uff08\u201cA\u201d \u5230 \u201cF\u201d\uff09\u7684\u5927\u5c0f\u5199\u3002<\/p>\n
<\/a>\u7f29\u8fdb<\/h2>\n\u4e00\u4e2a Ada \u5355\u5143\u6309\u7167 Ada Reference Manual \u4e2d Appendix E \u6240\u8bf4\u7684\u4e00\u822c\u7ea6\u5b9a\u6765\u7f16\u6392\u683c\u5f0f [ISO87]<\/a>\u3002\u8fd9\u5c31\u662f\u8bf4\uff0c\u4e00\u4e2a\u7ed3\u6784\u5316\u6784\u9020\u7684\u5f00\u59cb\u548c\u7ed3\u675f\u5904\u7684\u5173\u952e\u5b57\u5e94\u8be5\u5bf9\u9f50\u3002 \u4f8b\u5982\uff0c\u201cloop\u201d\u548c\u201cend loop\u201d\uff0c\u201crecord\u201d\u548c\u201cend record\u201d\u3002\u5728\u7ed3\u6784\u5316\u6784\u9020\u5185<\/em>\u7684\u5355\u5143\u5e94\u5411\u53f3\u7f29\u8fdb<\/em>\u3002<\/p>\nFormat .Major_Indentation : Indent_Range := 3<\/h3>\n
\u8bf4\u660e\u683c\u5f0f\u5668\u4ee4\u5982\u201cif\u201d\u8bed\u53e5\u3001\u201ccase\u201d\u8bed\u53e5\u548c\u201cloop\u201d\u8bed\u53e5\u8fd9\u6837\u7684\u7ed3\u6784\u5316\uff08\u4e3b\u8981\u7684\uff09\u6784\u9020\u7f29\u8fdb\u7684\u5217\u6570\u3002<\/p>\n
Format .Minor_Indentation : Indent_Range := 2<\/h3>\n
\u8bf4\u660e\u683c\u5f0f\u5668\u4f7f\u6b21\u8981\u6784\u9020\u7f29\u8fdb\u7684\u5217\u6570\uff1a \u8bb0\u5f55\u7684\u58f0\u660e\u3001\u53d8\u4f53\u8bb0\u5f55\u7684\u58f0\u660e\u3001\u7c7b\u578b\u7684\u58f0\u660e\u3001\u5f02\u5e38\u5904\u7406\u3001\u9009\u62e9\u8bed\u53e5\u3001case \u8bed\u53e5\u3001\u547d\u540d\u548c\u6807\u5fd7\u8bed\u53e5\u3002<\/p>\n
<\/a>\u884c\u7684\u957f\u5ea6\u548c\u884c\u7684\u5206\u9694<\/h2>\nFormat .Line_Length : Line_Range := 80<\/h3>\n
\u8bf4\u660e\u6362\u884c\u524d\u683c\u5f0f\u5668\u663e\u793a Ada \u5355\u5143\u4e2d\u7684\u884c\u6240\u91c7\u7528\u7684\u5217\u6570\u3002\u8fd9\u4f7f\u5f97\u683c\u5f0f\u5316\u7684\u5355\u5143\u53ef\u7528\u4f20\u7edf\u7684 VT100 \u7c7b\u7ec8\u7aef\u663e\u793a\u3002<\/p>\n
Format .Statement_Indentation : Indent_Range := 3<\/h3>\n
\u8bf4\u660e\u5f53\u4e00\u6761\u8bed\u53e5\u957f\u4e8e Line_Length\uff0c\u5fc5\u987b\u8981\u65ad\u5f00\u65f6\uff0c\u683c\u5f0f\u5668\u5e94\u4f7f\u7b2c\u4e8c\u884c\u548c\u540e\u7eed\u884c\u7f29\u8fdb\u591a\u5c11\u5217\u3002\u53ea\u6709\u5f53\u4e0d\u5b58\u5728\u8bcd\u6cd5\u6784\u9020\u53ef\u8ba9\u7f29\u8fdb\u7684\u4ee3\u7801\u5bf9\u9f50\u65f6\uff0c\u683c\u5f0f\u5668\u624d\u4ee4\u4ee3\u7801\u7f29\u8fdb Statement_Indentation \u4e2a\u5217\u3002<\/p>\n
Format .Statement_Length : Line_Range := 35<\/h3>\n
\u8bf4\u660e\u5f53\u663e\u793a\u4e00\u4e2a\u8bed\u53e5\u65f6\uff0c\u6bcf\u884c\u6240\u4fdd\u7559\u7684\u5217\u6570\u3002 \u5982\u679c\u5f53\u524d\u7f29\u8fdb\u7a0b\u5ea6\u6240\u5141\u8bb8\u7684\u4e00\u884c\u4e2d\u7684\u5217\u6570\u5c0f\u4e8e Statement_Length\uff0c\u90a3\u4e48\u683c\u5f0f\u5668\u5c06 Wrap_Indentation \u4f5c\u4e3a\u65b0\u7684\u7f29\u8fdb\u7a0b\u5ea6\u3002\u6b64\u6cd5\u53ef\u9632\u6b62\u5d4c\u5957\u592a\u6df1\u7684\u8bed\u53e5\u663e\u793a\u65f6\u8d85\u51fa\u53f3\u8fb9\u754c\u3002<\/p>\n
Format .Wrap_Indentation : Line_Range := 16<\/h3>\n
\u8bf4\u660e\u5f53\u524d\u7684\u7f29\u8fdb\u7a0b\u5ea6\u4e0d\u4e0d\u8db3 Statement_Length \u65f6\uff0c\u683c\u5f0f\u5668\u5728\u4e0b\u4e00\u884c\u5f00\u5934\u5904\u5e94\u7f29\u8fdb\u7684\u5217\u6570\u3002\u6b64\u6cd5\u53ef\u9632\u6b62\u5d4c\u5957\u592a\u6df1\u7684\u8bed\u53e5\u663e\u793a\u65f6\u8d85\u51fa\u53f3\u8fb9\u754c\u3002<\/p>\n
<\/a>\u5bf9\u9f50<\/h2>\nFormat .Consistent_Breaking : Integer := 1<\/h3>\n
\u63a7\u5236\u5f62\u5982 (xxx:aaa; yyy:bbb) \u7684\u5217\u8868\u683c\u5f0f\uff0c\u8be5\u5217\u8868\u51fa\u73b0\u5728\u5b50\u7a0b\u5e8f\u7684\u5f62\u53c2\u8bf4\u660e\u5904\u548c\u7c7b\u578b\u58f0\u660e\u4e2d\u7684\u5224\u522b\u5f0f\u5904\u3002\u5b83\u4e5f\u63a7\u5236\u5f62\u5982 (xxx=>aaa, yyy=>bbb) \u7684\u5217\u8868\u7684\u683c\u5f0f\uff0c\u8be5\u5217\u8868\u51fa\u73b0\u5728\u5b50\u7a0b\u5e8f\u8c03\u7528\u548c\u805a\u96c6\u5904\u3002\u56e0\u4e3a\u8be5\u9009\u9879\u975e\u96f6\uff08\u771f\uff09\uff0c\u6240\u4ee5\u5f53\u4e00\u4e2a\u5217\u8868\u65e0\u6cd5\u5728\u4e00\u884c\u4e2d\u88c5\u4e0b\u65f6\uff0c\u5217\u8868\u4e2d\u7684\u6bcf\u4e00\u4e2a\u5143\u7d20\u90fd\u5360\u7528\u65b0\u7684\u4e00\u884c\u3002<\/p>\n
Format .Alignment_Threshold : Line_Range := 20<\/h3>\n
\u8bf4\u660e\u4e3a\u4f7f\u8fde\u7eed\u8bed\u53e5\u4e2d\u7684\u8bcd\u6cd5\u6784\u9020\u5bf9\u9f50\uff08\u5982\u547d\u540d\u7b26\u53f7\u4e2d\u7684\u5192\u53f7\u3001\u8d4b\u503c\u53f7\u548c\u7bad\u5934\uff09\uff0c\u683c\u5f0f\u5668\u53ef\u63d2\u5165\u7684\u7a7a\u683c\u6570\u3002\u5982\u679c\u5bf9\u9f50\u4e00\u4e2a\u6784\u9020\u6240\u9700\u7684\u7a7a\u683c\u6570\u591a\u4e8e\u8fd9\u4e2a\u6570\uff0c\u90a3\u4e48\u6784\u9020\u4e0d\u88ab\u5bf9\u9f50\u3002<\/p>\n
\u8981\u6ce8\u610f\u7684\u662f\uff0c\u4e3a\u4e86\u5f62\u6210\u67d0\u79cd\u5e03\u5c40\uff0c\u7a0b\u5e8f\u5458\u53ef\u4ee5\u63d2\u5165\u4e00\u4e2a\u884c\u7ed3\u675f\u7b26\u6216\u8005\u901a\u8fc7\u8f93\u5165 <space> <space> <carriage-return> \u6765\u6572\u5165\u4e00\u4e2a\u4e0d\u4f1a\u88ab\u683c\u5f0f\u5668\u5220\u6389\u7684\u884c\u4e2d\u65ad\u3002<\/p>\n
\u5f53 \u5217\u8868\u4e2d\u7684\u5143\u7d20\u8d85\u8fc7 3 \u4e2a\u5e76\u4e14\u5728\u4e00\u884c\u4e2d\u88c5\u4e0d\u4e0b\u8fd9\u4e9b\u5143\u7d20\u65f6\uff0c\u91c7\u7528\u4e0a\u8ff0\u6280\u5de7\u3002Ada \u5143\u7d20\u5217\u8868\u5e94\u5206\u9694\u4e3a\u4e00\u884c\u4ec5\u6709\u4e00\u4e2a\u5143\u7d20\uff0c\u4ee5\u63d0\u9ad8\u4ee3\u7801\u7684\u6613\u8bfb\u6027\u548c\u53ef\u7ef4\u62a4\u6027\u3002\u8fd9\u4e00\u6761\u5c24\u5176\u9002\u7528\u4e8e\u4ee5\u4e0b Ada \u6784\u9020\uff08\u8c61 Ada Reference Manual \u7684 Appendix E \u4e2d\u6240\u5b9a\u4e49\u7684\u90a3\u6837 [ISO87]<\/a>\uff09\uff1a<\/p>\n\u5b9e\u53c2\u5173\u8054\u5173\u7cfb<\/p>\n
pragma Suppress (Range_Check,\r\nOn => This_Type,\r\nOn => That_Type, On => That_Other_Type);<\/pre>\n\u6807\u8bc6\u7b26\u5217\u8868\uff0c\u7ec4\u4ef6\u5217\u8868<\/p>\n
Next_Position,\r\nPrevious_Position,\r\nCurrent_Position : Position;\r\ntype Some_Record is \r\nrecord\r\nA_Component,\r\nB_Component,\r\nC_Component : Component_Type;\r\nend record;<\/pre>\n\u679a\u4e3e\u7c7b\u578b\u5b9a\u4e49<\/p>\n
type Navaid is \r\n(Vor, \r\nVor_Dme, \r\nDme, \r\nTacan, \r\nVor_Tac, \r\nNDB);<\/pre>\n\u5224\u522b\u5f0f\u7ea6\u675f<\/p>\n
subtype Constrained is Element \r\n(Name_Length => Name'Length,\r\nValid => True,\r\nOperation => Skip);<\/pre>\n\u8bed\u53e5\u7684\u987a\u5e8f\uff08\u7531\u683c\u5f0f\u5668\u5904\u7406\uff09<\/p>\n
\u5f62\u5f0f\u90e8\u5206\u3001\u7c7b\u5c5e\u5f62\u5f0f\u90e8\u5206\u3001\u5b9e\u53c2\u90e8\u5206\u3001\u7c7b\u5c5e\u5b9e\u53c2\u90e8\u5206<\/p>\n
procedure Just_Do_It (This : in Some_Type;\r\nFor_That : in Some Other_Type;\r\nStatus : out Status_Type);\r\nJust_Do_It (This => This_Value;\r\nFor_That => That_Value;\r\nStatus => The_Status);<\/pre>\n
\n<\/a>\u7b2c\u56db\u7ae0<\/em><\/h2>\n\u6ce8\u91ca<\/h1>\n\u6982\u8ff0<\/h2>\n
\u4e0e\u5e7f\u6cdb\u63a5\u53d7\u7684\u89c2\u70b9\u76f8\u53cd\u7684\u662f\uff0c\u597d\u7684\u7a0b\u5e8f\u7684\u7279\u70b9\u5e76\u975e\u662f\u6ce8\u91ca\u7684\u6570\u91cf<\/em>\uff0c\u800c\u662f\u6ce8\u91ca\u7684\u8d28\u91cf<\/em>\u3002<\/p>\n\u6ce8\u91ca\u5e94\u5f53\u4f5c\u4e3a Ada \u4ee3\u7801\u7684\u8865\u5145<\/em>\uff0c\u800c\u4e0d\u662f\u89e3\u91ca\uff1aAda \u672c\u8eab\u662f\u4e00\u79cd\u975e\u5e38\u6613\u8bfb\u7684\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00\uff0c\u5c24\u5176\u662f\u5f53\u88ab\u597d\u7684\u547d\u540d\u7ea6\u5b9a\u652f\u6301\u65f6\u3002\u6ce8\u91ca\u5e94\u5f53\u89e3\u91ca\u90a3\u4e9b\u4e0d\u80fd\u76f4\u63a5\u4ece Ada \u4ee3\u7801\u4e2d\u770b\u51fa\u7684\u5185\u5bb9\uff1b\u5b83\u4eec\u4e0d\u5e94\u590d\u5236 Ada \u7684\u8bed\u6cd5\u6216\u8bed\u4e49\u3002\u6ce8\u91ca\u5e94\u5f53\u5e2e\u52a9\u8bfb\u8005\u638c\u63e1\u80cc\u666f\u6982\u5ff5\u548c\u4f9d\u8d56\u6761\u4ef6\uff0c\u7279\u522b\u662f\u590d\u6742\u7684\u6570\u636e\u7f16\u7801\u548c\u7b97\u6cd5\u3002\u6ce8\u91ca\u5e94\u5f53\u7a81\u51fa\u4e0e\u7f16\u7801\u6216\u8bbe\u8ba1\u6807\u51c6\u7684\u4e0d\u540c\u70b9\u3001\u53d7\u9650\u7279\u6027\u7684\u4f7f\u7528\u4ee5\u53ca\u7279\u6b8a\u7684 \u201c\u6280\u5de7\u201d\u3002\u5728\u6bcf\u4e2a\u4e3b\u8981\u7684 Ada \u6784\u9020\uff08\u5982\u5b50\u7a0b\u5e8f\u548c\u7a0b\u5e8f\u5305\uff09\u4e2d\uff0c\u7cfb\u7edf\u5730\u51fa\u73b0\u7684\u6ce8\u91ca\u6846\u6216\u8868\u5355\u5177\u6709\u4e00\u81f4\u6027\u548c\u63d0\u9192\u7a0b\u5e8f\u5458\u8bf4\u660e\u4ee3\u7801\u7684\u4f18\u70b9\uff0c\u4f46\u5b83\u4eec\u4e5f\u5e38\u5e38\u5e26\u6765\u91ca\u4e49\u4ee3\u7801\u7684\u98ce\u683c\u3002\u5bf9\u6bcf\u4e00\u884c\u6ce8\u91ca\uff0c\u7a0b\u5e8f\u5458\u90fd \u5e94\u80fd\u591f\u5f88\u597d\u5730\u56de\u7b54\uff1a\u201c\u52a0\u5165\u8fd9\u4e2a\u6ce8\u91ca\u6709\u4f55\u4ef7\u503c\uff1f\u201d<\/p>\n\u4e00\u4e2a\u8bef\u5bfc\u6216\u8005\u9519\u8bef\u7684\u6ce8\u91ca\u6bd4\u5b8c\u5168\u4e0d\u6ce8\u91ca\u8fd8\u7cdf\u3002\u7f16\u8bd1\u5668\u4e0d\u68c0\u67e5\u6ce8\u91ca\uff08\u9664\u975e\u5b83\u4eec\u8c61\u201cRational \u8bbe\u8ba1\u5de5\u5177\u201d\u90a3\u6837\u53c2\u4e0e\u4e86\u6b63\u5f0f\u7684 Ada \u8bbe\u8ba1\u8bed\u8a00 (ADL) \u6216\u8005\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00 (PDL)\uff09\u3002\u56e0\u6b64\uff0c\u6839\u636e\u5355\u70b9\u7ef4\u62a4\u539f\u5219\uff0c\u8bbe\u8ba1\u51b3\u5b9a\u5e94\u5728 Ada \u800c\u4e0d\u662f\u6ce8\u91ca\u4e2d\u8868\u8ff0\uff0c\u5373\u4f7f\u8fd9\u6837\u505a\u9700\u8981\u591a\u51e0\u4e2a\u58f0\u660e\u3002<\/p>\n
\u4f5c\u4e3a\u4e00\u4e2a\uff08\u5e76\u975e\u5f88\u597d\u7684\uff09\u4f8b\u5b50\u8003\u8651\u5982\u4e0b\u7684\u58f0\u660e\uff1a<\/p>\n
------------------------------------------------------------\r\n-- procedure Create\r\n------------------------------------------------------------\r\n--\r\nprocedure Create\r\n(The_Subscriber: in out Subscriber.Handle;\r\nWith_Name : in out Subscriber.Name);\r\n--\r\n-- Purpose: This procedure creates a subscriber with a given\r\n-- name.\r\n--\r\n-- Parameters: \r\n- The_Subscriber :mode in out, type Subscriber.Handle\r\n- It is the handle to the created subscriber\r\n- With_Name :mode in, type Subscriber.Name\r\n- The name of the subscriber to be created.\r\n- The syntax of the name is\r\n-- <letter> { <letter> | <digit> }\r\n-- Exceptions:\r\n-- Subscriber.Collection_Overflow when there is no more\r\n-- space to create a new subscriber\r\n-- Subscriber.Invalid_Name when the name is blank or\r\n-- malformed\r\n--\r\n-------------------------------------------- end Create ----<\/pre>\n\u4f8b\u5b50\u4e2d\u6709\u51e0\u70b9\u8981\u6307\u51fa\u6765\u3002<\/p>\n
\n- \u6709\u8bb8\u591a\u5197\u4f59\uff1a<\/li>\n<\/ul>\n
\n- – \u8fc7\u7a0b\u521b\u5efa (Procedure Create)\uff1a\u5982\u679c\u8981\u6539\u540d\uff0c\u6709\u51e0\u5904\u5730\u65b9\u9700\u8981\u4fee\u6539\uff1b\u7ecf\u5e38\u6027\u5730\u4fee\u6539\u6ce8\u91ca\uff0c\u7f16\u8bd1\u5668\u4e0d\u4f1a\u6267\u884c\u3002<\/dd>\n
- – \u6ce8\u91ca\u4e2d\u65e0\u9700\u91cd\u590d\u8bf4\u660e\u53c2\u6570\u540d\u3001\u6a21\u5f0f\u548c\u7c7b\u578b\u3002<\/dd>\n
- – \u8fd9\u91cc\u7ed9\u6bcf\u4e2a Ada \u5b9e\u4f53\u6240\u53d6\u7684\u540d\u5b57\u5f88\u597d\uff0c\u8fd9\u4f7f\u5f97\u529f\u80fd\u548c\u53c2\u6570\u89e3\u91ca\u53d8\u5f97\u591a\u4f59\u3002\u6ce8\u610f\uff0c\u8fd9\u4e00\u70b9\u53ea\u662f\u5bf9\u4e8e\u5982\u4e0a\u4f8b\u8fd9\u6837\u7684\u7b80\u5355\u7684\u5b50\u7a0b\u5e8f\u6765\u8bf4\u624d\u662f\u6b63\u786e\u7684\u3002\u5bf9\u4e8e\u66f4\u590d\u6742\u7684\u5b50\u7a0b\u5e8f\uff0c\u4ecd\u9700\u8981\u529f\u80fd\u548c\u53c2\u6570\u89e3\u91ca\u3002<\/dd>\n<\/dl>\n
\n- \u6846\u67b6\u52a0\u5165\u4e86\u592a\u591a\u7684\u5e72\u6270\uff0c\u9690\u85cf\u4e86\u5173\u952e\u9879\uff1a\u8fc7\u7a0b\u58f0\u660e\u3002\u53e6\u5916\uff0c\u53f3\u7aef\u7684\u5782\u76f4\u8fb9\u5f00\u59cb\u65f6\u770b\u4e0a\u53bb\u8fd8\u5f88\u6f02\u4eae\uff0c\u4f46\u5374\u4f7f\u4fee\u6539\u53d8\u5f97\u6781\u4e3a\u75db\u82e6\uff0c\u901a\u5e38\u51e0\u5e74\u7684\u7ef4\u62a4\u4e0b\u6765\uff0c\u4ee3\u7801\u6700\u540e\u5b8c\u5168\u4e0d\u5bf9\u9f50\u5e76\u4e14\u5343\u75ae\u767e\u5b54\u3002<\/li>\n
- \u76f8\u53cd\u7684\u662f\uff0c\u8fd9\u91cc\u5e94\u8bf4\u660e\u4ea7\u751f\u4e86\u4f55\u79cd\u5f02\u5e38\uff0c\u56e0\u4e3a\u82e5\u53ea\u8bfb\u89c4\u683c\u8bf4\u660e\uff0c\u8fd9\u4e00\u70b9\u5e76\u4e0d\u660e\u663e\u3002\u4f46\u6bcf\u4e2a\u5f02\u5e38\u7684\u51c6\u786e\u542b\u4e49\u5e94\u653e\u5728\u81ea\u8eab\u7684\u5f02\u5e38\u58f0\u660e\u5904\u3002<\/li>\n
- \u5e94\u8bf4\u660e\u53c2\u6570\u7684\u524d\u7f6e\u548c\u540e\u7f6e\u6761\u4ef6\uff0c\u5c24\u5176\u662f\u53c2\u6570\u95f4\u7684\u5173\u7cfb\u3002\u8fd9\u4e9b\u4e0d\u5e94\u4e0e\u5176\u5b83\u5730\u65b9\u53ef\u4ee5\u627e\u5230\u7684\u4fe1\u606f\u91cd\u590d\uff0c\u5982\u6709\u6548\u540d\u7684\u8bed\u6cd5\uff0c\u5b83\u53ea\u5e94\u5728\u4e00\u5904\u8bf4\u660e\u3002<\/li>\n<\/ul>\n
\u5728\u8fd9\u4e2a\u4f8b\u5b50\u4e2d\uff0c\u6700\u597d\u91c7\u7528\u5982\u4e0b\u66f4\u7b80\u6d01\u3001\u66f4\u6709\u7528\u7684\u65b9\u5f0f\uff1a<\/p>\n
procedure Create (The_Subscriber : in out Subscriber.Handle;\r\nWith_Name : in Subscriber.Name);--\r\n-Raises Subscriber.Collection_Overflow.\r\n-Raises Subscriber.Invalid_Name when the name is \r\nblank or malformed (see syntax description \r\nattached to declaration of type Subscriber.Name).<\/pre>\n<\/a>\u6ce8\u91ca\u7528\u6cd5\u6307\u5357<\/h2>\n\u6ce8\u91ca\u5e94\u653e\u5728\u76f8\u5173\u4ee3\u7801\u7684\u65c1\u8fb9\uff0c\u7f29\u8fdb\u540c\u6837\u7684\u5927\u5c0f\uff0c\u7d27\u9760\u7740\u4ee3\u7801 – \u5373\u7528\u7a7a\u7684\u6ce8\u91ca\u884c\u5728\u89c6\u89c9\u4e0a\u5c06\u6ce8\u91ca\u5757\u4e0e Ada \u6784\u9020\u6346\u5728\u4e00\u8d77\uff1a<\/p>\n
procedure First_One;\r\n--\r\n-- This comment relates to First_One.\r\n-- But this comment is for Second_One.\r\n-- \r\nprocedure Second_One (Times : Natural);<\/pre>\n\u7528\u7a7a\u884c\u5206\u9694\u76f8\u5173\u7684\u6e90\u7801\u5757\uff08\u6ce8\u91ca\u548c\u4ee3\u7801\uff09\uff0c\u800c\u4e0d\u7528\u7c97\u91cd\u7684\u6ce8\u91ca\u884c\uff0c\u5982\uff1a<\/p>\n
-------------------------------------------------------------<\/pre>\n\u6216\u8005\uff1a<\/p>\n
--===========================================================<\/pre>\n\u5728\u4e00\u4e2a\u6ce8\u91ca\u5757\u4e2d\uff0c\u4f7f\u7528\u7a7a\u6ce8\u91ca\u884c\u800c\u975e\u7a7a\u884c\u6765\u5206\u5272\u6ce8\u91ca\u6bb5<\/p>\n
-- Some explanation here that needs to be continued in a\r\n-- subsequent paragraph.\r\n--\r\n-- The empty comment line above makes it clear that we \r\n-- are dealing with a single comment block.<\/pre>\n\u867d\u7136\u6ce8\u91ca\u53ef\u4ee5\u653e\u5728\u76f8\u5173 Ada \u6784\u9020\u7684\u4e0a\u65b9\u6216\u4e0b\u65b9\uff0c\u4f46\u662f\u8981\u5c06\u4e00\u8282\u7684\u6807\u9898\u6216\u8005\u4e00\u4e2a\u8bf4\u660e\u51e0\u4e2a Ada \u6784\u9020\u7684\u4e3b\u8981\u4fe1\u606f\u653e\u5728\u6784\u9020\u7684\u4e0a\u65b9<\/em>\u3002\u5c06\u8bc4\u8ff0\u6216\u9644\u52a0\u4fe1\u606f\u7b49\u8fd9\u4e00\u7c7b\u7684\u6ce8\u91ca\u653e\u5728\u76f8\u5173 Ada \u6784\u9020\u7684\u4e0b\u65b9<\/em>\u3002<\/p>\n\u7528\u4e00\u9875\u7684\u6574\u884c\u5bbd\u5728 Ada \u6784\u9020\u7684\u5f00\u5934\u5904\u5206\u7ec4\u3002\u907f\u514d\u5c06\u6ce8\u91ca\u653e\u5728 Ada \u6784\u9020\u7684\u540c\u4e00\u884c\u3002\u8fd9\u4e9b\u6ce8\u91ca\u5e38\u5e38\u53d8\u5f97\u4e0d\u5bf9\u9f50\u3002\u4f46\u662f\u5728\u8bf4\u660e\u4e00\u4e2a\u957f\u7684\u58f0\u660e\u65f6\uff0c\u5982\u679a\u4e3e\u7c7b\u578b\u76f4\u63a5\u91cf\uff0c\u8fd9\u6837\u7684\u6ce8\u91ca\u65b9\u5f0f\u662f\u53ef\u4ee5\u5bb9\u8bb8\u7684\u3002<\/p>\n
\u7528\u4e00\u4e2a\u5c0f\u7684\u5206\u5c42\u6b21\u7684\u6807\u51c6\u6ce8\u91ca\u5757\u6765\u8bf4\u660e\u5c0f\u8282\u7684\u6807\u9898\uff0c\u4f46\u8fd9\u4ec5\u4ec5\u9002\u7528\u4e8e\u5f88\u5927\u7684 Ada \u5355\u5143\uff08>200 \u884c\u7684\u58f0\u660e\u6216\u8005\u8bed\u53e5\uff09\uff1a<\/p>\n
--===========================================================\r\n--\r\n \u4e3b\u6807\u9898\r\n--\r\n--===========================================================\r\n\r\n-------------------------------------------------------------\r\n \u526f\u6807\u9898\r\n-------------------------------------------------------------\r\n\r\n --------------------\r\n \u5b50\u90e8\u5206\u7684\u5934\r\n --------------------<\/pre>\n\u5728\u8fd9\u79cd\u6807\u9898\u524d\u9762\u6240\u653e\u7684\u7a7a\u884c\u6570\u8981\u591a\u4e8e\u540e\u9762\u7684\u7a7a\u884c\u6570\uff0c\u4f8b\u5982\uff0c\u4e24\u884c\u5728\u524d\u4e00\u884c\u5728\u540e\u3002\u8fd9\u6837\u4f7f\u6807\u9898\u4e0e\u968f\u540e\u7684\u6b63\u6587\u5728\u89c6\u89c9\u4e0a\u76f8\u8054\u7cfb\u3002<\/p>\n
\u907f \u514d\u4f7f\u7528\u542b\u6709\u4fe1\u606f\u7684\u51fd\u6570\u5934\uff0c\u6bd4\u5982\u4f5c\u8005\u3001\u7535\u8bdd\u3001\u521b\u5efa\u548c\u4fee\u6539\u65e5\u671f\u3001\u5355\u5143\uff08\u6216\u6587\u4ef6\u540d\uff09\u7684\u4f4d\u7f6e\uff0c\u56e0\u4e3a\u8fd9\u4e9b\u4fe1\u606f\u5f88\u5feb\u5c31\u4f1a\u8fc7\u65f6\u3002\u5c06\u6240\u6709\u8005\u7248\u6743\u4fe1\u606f\u653e\u5728\u5355\u5143\u7684\u672b\u5c3e\uff0c\u5c24\u5176\u662f \u4f7f\u7528\u201cRational \u73af\u5883\u201d\u65f6\u3002\u5f53\u8bbf\u95ee\u4e00\u4e2a\u7a0b\u5e8f\u5305\u7684\u89c4\u683c\u8bf4\u660e\u6e90\u7801\u65f6 – \u4f8b\u5982\u5728\u201cRational \u73af\u5883\u201d\u4e2d\u6309 [Definition] – \u8bfb\u8005\u4e0d\u60f3\u6d4f\u89c8\u4e24\u9875\u6216\u8005\u4e09\u9875\u5bf9\u7406\u89e3\u7a0b\u5e8f\u65e0\u4efb\u4f55\u7528\u5904\u7684\u6587\u672c\u548c\/\u6216\u5b8c\u5168\u4e0d\u5e26\u6709\u4efb\u4f55\u7a0b\u5e8f\u4fe1\u606f\u7684\u6587\u672c\u3002\u907f\u514d\u4f7f\u7528\u5782\u76f4\u6eda\u52a8\u6761\u3001\u5c01\u95ed\u56fe\u6587\u6846\u6216\u65b9\u6846\uff0c\u8fd9\u4e9b\u4e1c\u897f\u53ea\u4f1a\u589e\u52a0\u89c6\u89c9 \u5e72\u6270\uff0c\u800c\u4e14\u96be\u4ee5\u4fdd\u6301\u4e00\u81f4\u6027\u3002\u7528 Rational CMVC \u9644\u6ce8\uff08\u6216\u8005\u5176\u5b83\u5f62\u5f0f\u7684\u8f6f\u4ef6\u5f00\u53d1\u6587\u4ef6\uff09\u6765\u4fdd\u5b58\u5355\u5143\u5386\u53f2\u3002<\/p>\n
\u4e0d\u8981\u91cd\u590d\u53ef\u4ee5\u5728\u5176\u5b83\u5730\u65b9\u627e\u5230\u7684\u4fe1\u606f\uff1b\u4ec5\u63d0\u4f9b\u4e00\u4e2a\u6307\u5411\u8be5\u4fe1\u606f\u7684\u6307\u9488\u5373\u53ef\u3002<\/p>\n
\u5c3d \u91cf\u91c7\u7528 Ada\uff0c\u800c\u975e\u6ce8\u91ca\u3002\u8981\u5b9e\u73b0\u8fd9\u4e00\u70b9\uff0c\u4f60\u53ef\u9009\u62e9\u66f4\u597d\u7684\u540d\u5b57\u3001\u9644\u52a0\u4e34\u65f6\u53d8\u91cf\u3001\u9650\u5b9a\u3001\u91cd\u547d\u540d\u3001\u5b50\u7c7b\u578b\u3001\u9759\u6001\u8868\u8fbe\u5f0f\u548c\u5c5e\u6027\uff0c\u8fd9\u4e9b\u90fd\u4e0d\u5f71\u54cd\u751f\u6210\u7684\u4ee3\u7801\uff08\u81f3\u5c11\u5728\u4e00\u4e2a\u597d\u7684 \u7f16\u8bd1\u5668\u4e2d\u4e0d\u5f71\u54cd\uff09\u3002\u4f60\u4e5f\u53ef\u4ee5\u91c7\u7528\u5c0f\u7684\u3001\u5d4c\u5165\u5f0f\u7684\u8c13\u8bcd\u51fd\u6570\uff0c\u5e76\u5c06\u4ee3\u7801\u5206\u6210\u51e0\u4e2a\u65e0\u53c2\u8fc7\u7a0b\uff0c\u8fd9\u4e9b\u8fc7\u7a0b\u7684\u540d\u5b57\u63d0\u4f9b\u4e86\u4ee3\u7801\u51e0\u4e2a\u79bb\u6563\u90e8\u5206\u7684\u6807\u9898\u3002<\/p>\n
\u793a\u4f8b\uff1a<\/p>\n
\u5c06\uff1a<\/p>\n
exit when Su.Locate (Ch, Str) \/= 0; \r\n-- Exit search loop when found it.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
Search_Loop : loop<\/p>\n
Found_It := Su.Locate (Ch, Str) \/= 0;<\/p>\n
exit Search_Loop when Found_It<\/p>\n
end Search_Loop;<\/p>\n
\u5c06\uff1a<\/p>\n
if Value < 'A' or else Value > 'Z' then\r\n-- If not in uppercase letters.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
subtype Uppercase_Letters is Character range 'A' ..'Z';\r\nif Value not in Uppercase_Letters then ...<\/pre>\n\u5c06\uff1a<\/p>\n
X := Green; -- This is the Green from \r\n-- Status, not from Color.\r\nraise Fatal_Error; -- From package Outer_Scope.\r\ndelay 384.0; -- Equal to 6 minutes and 24 \r\n-- seconds.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
The_Status := Green;<\/pre>\nor:<\/p>\n
X := Status'(Green);\r\nraise Outer_Scope.Fatal_Error;\r\ndelay 6.0 * Minute + 24.0 * Second;<\/pre>\n\u5c06\uff1a<\/p>\n
if Is_Valid (The_Table (Index).Descriptor(Rank).all) then\r\n-- This is the current value for the iteration; if it is \r\n-- valid we append to the list it contains.\r\nAppend (Item, To_List => The_Table (Index).Descriptor(Rank).Ptr);|<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
declare\r\nCurrent_Rank : Lists.List renames The_Table \r\n(Index).Descriptor (Rank);\r\nbegin\r\nif Is_Valid (Current_Rank.all) then\r\nAppend (Item, To_List => Current_Rank.Ptr);\r\nend if;\r\nend;<\/pre>\n\u6ce8\u610f\u6ce8\u91ca\u4e2d\u7684\u98ce\u683c\u3001\u8bed\u6cd5\u548c\u62fc\u5199\u3002\u4e0d\u8981\u4f7f\u7528\u8c61\u7535\u62a5\u5bc6\u7801\u4e00\u822c\u7684\u98ce\u683c\u3002\u4f7f\u7528\u62fc\u5199\u68c0\u67e5\u3002\uff08\u5728\u201cRational \u73af\u5883\u201d\u4e2d\u8c03\u7528 Speller.Check_Image\uff09\u3002<\/p>\n
\u4e0d\u8981\u4f7f\u7528\u65b9\u8a00\u5b57\u6bcd\u6216\u8005\u5176\u5b83\u975e\u82f1\u6587\u5b57\u7b26\u3002\u6839\u636e Ada Issue AI-339\uff0c\u975e\u82f1\u6587\u5b57\u7b26\u53ef\u88ab\u4e00\u4e9b\u5f00\u53d1\u7cfb\u7edf\u652f\u6301\uff0c\u4e00\u4e9b Ada \u7f16\u8bd1\u5668\u4ec5\u5728\u6ce8\u91ca\u4e2d\u652f\u6301\u3002\u4f46\u8fd9\u662f\u4e0d\u53ef\u79fb\u690d\u7684\uff0c\u5f88\u6709\u53ef\u80fd\u5728\u5176\u5b83\u7cfb\u7edf\u4e0a\u5931\u6548\u3002<\/p>\n
\u5bf9\u4e8e\u5b50\u7a0b\u5e8f\uff0c\u81f3\u5c11\u8bf4\u660e\uff1a<\/p>\n
\n- \u5b50\u7a0b\u5e8f\u7684\u7528\u9014\uff0c\u4f46\u8fd9\u53ea\u662f\u5f53\u4ece\u5b83\u7684\u540d\u5b57\u4e2d\u4e0d\u80fd\u660e\u786e\u4e86\u89e3\u5176\u7528\u9014\u65f6<\/li>\n
- \u5728\u4f55\u79cd\u6761\u4ef6\u4e0b\u751f\u6210\u4e86\u4f55\u79cd\u5f02\u5e38<\/li>\n
- \u5982\u679c\u6709\u7684\u8bdd\uff0c\u53c2\u6570\u7684\u524d\u7f6e\u6216\u540e\u7f6e\u6761\u4ef6<\/li>\n
- \u5176\u4ed6\u6570\u636e\u8bbf\u95ee\uff0c\u7279\u522b\u662f\u5f53\u6570\u636e\u88ab\u4fee\u6539\u65f6\uff1b\u8fd9\u5c24\u5176\u5305\u62ec\u6709\u526f\u4f5c\u7528\u7684\u51fd\u6570<\/li>\n
- \u6b63\u786e\u4f7f\u7528\u5b50\u7a0b\u5e8f\u6240\u9700\u7684\u4efb\u4f55\u9650\u5236\u6216\u9644\u52a0\u4fe1\u606f<\/li>\n<\/ul>\n
\u5bf9\u4e8e\u7c7b\u578b\u548c\u5bf9\u8c61\uff0c\u8981\u8bf4\u660e\u6240\u6709\u4e0d\u80fd\u901a\u8fc7 Ada \u8868\u8fbe\u7684\u4e0d\u53d8\u91cf\u6216\u9644\u52a0\u7ea6\u675f\u3002<\/p>\n
\u907f\u514d\u6ce8\u91ca\u4e2d\u7684\u91cd\u590d\u3002\u4f8b\u5982\uff0c\u6709\u5173\u7528\u9014\u7684\u90e8\u5206\u5e94\u662f\u201c\u5b83\u505a\u4ec0\u4e48\uff1f\u201d\u8fd9\u4e2a\u95ee\u9898\u7684\u7b80\u5355\u56de\u7b54\uff0c\u800c\u4e0d\u662f\u201c\u5b83\u600e\u4e48\u505a\uff1f\u201d\u7684\u56de\u7b54\u3002\u6982\u8ff0\u5e94\u662f\u8bbe\u8ba1\u7684\u7b80\u77ed\u8868\u8fbe\u3002\u8bf4\u660e\u4e2d\u4e0d\u5e94\u63cf\u8ff0\u6240\u7528\u7684\u7b97\u6cd5\uff0c\u800c\u5e94\u89e3\u91ca\u7a0b\u5e8f\u5305\u5e94\u5982\u4f55\u4f7f\u7528\u3002<\/p>\n
\u6570\u636e\u7ed3\u6784\u548c\u7b97\u6cd5\u90e8\u5206\u5e94\u542b\u6709\u8db3\u591f\u7684\u4fe1\u606f\u6765\u5e2e\u52a9\u7406\u89e3\u4e3b\u8981\u7684\u5b9e\u73b0\u7b56\u7565\uff08\u4ee5\u4fbf\u6b63\u786e\u4f7f\u7528\u7a0b\u5e8f\u5305\uff09\uff0c\u4f46\u65e0\u9700\u5305\u542b\u6240\u6709\u7684\u5b9e\u73b0\u7ec6\u8282\u6216\u4e0e\u6b63\u786e\u4f7f\u7528\u5305\u6beb\u4e0d\u76f8\u5173\u7684\u4fe1\u606f\u3002<\/p>\n
\n<\/a>\u7b2c\u4e94\u7ae0<\/em><\/h2>\n\u547d\u540d\u7ea6\u5b9a<\/h1>\n\u6982\u8ff0<\/h2>\n
\u7ed9 Ada \u5b9e\u4f53\uff08\u7a0b\u5e8f\u5355\u5143\u3001\u7c7b\u578b\u3001\u5b50\u7c7b\u578b\u3001\u5bf9\u8c61\u3001\u76f4\u63a5\u91cf\u3001\u5f02\u5e38\uff09\u6307\u5b9a\u597d\u540d\u5b57\u662f\u6240\u6709\u8f6f\u4ef6\u5e94\u7528\u7a0b\u5e8f\u8981\u8868\u8ff0\u7684\u6700\u7cbe\u5de7\u7684\u4e8b\u60c5\u4e4b\u4e00\u3002\u4e2d\u7b49\u89c4\u6a21\u5230\u5927\u89c4\u6a21\u7684\u5e94\u7528\u7a0b\u5e8f\u5b58\u5728\u7740\u53e6\u4e00\u4e2a\u95ee \u9898\uff1a\u540d\u5b57\u95f4\u7684\u51b2\u7a81\uff0c\u6216\u662f\u8981\u627e\u5230\u8db3\u591f\u7684\u540c\u4e49\u8bcd\u6765\u6307\u4ee3\u76f8\u540c\u73b0\u5b9e\u4e16\u754c\u4e2d\u76f8\u4f3c\u4f46\u53c8\u6709\u522b\u7684\u6982\u5ff5\uff08\u6216\u662f\u547d\u540d\u4e00\u4e2a\u7c7b\u578b\u3001\u5b50\u7c7b\u3001\u5bf9\u8c61\u3001\u53c2\u6570\uff09\u3002\u8fd9\u91cc\u53ef\u5229\u7528\u4e0d\u91c7\u7528\u201cuse\u201d \u5b50\u53e5\uff08\u6216\u53ea\u5728\u6781\u4e3a\u53d7\u9650\u7684\u6761\u4ef6\u4e0b\u91c7\u7528\uff09\u7684\u6cd5\u5219\u3002\u5728\u8bb8\u591a\u60c5\u5f62\u4e0b\uff0c\u8fd9\u4f7f\u5f97\u53ef\u4ee5\u4e0d\u5192\u6df7\u6dc6\u7684\u98ce\u9669\u800c\u7f29\u77ed\u540d\u5b57\uff0c\u5e76\u590d\u7528\u76f8\u540c\u7684\u63cf\u8ff0\u8bcd\u3002<\/p>\n
\u9009\u62e9\u6e05\u6670\u7684\u3001\u6613\u8bfb\u7684\u3001\u6709\u610f\u4e49\u7684\u540d\u79f0\u3002<\/p>\n
\u4e0e\u5176\u5b83\u7684\u7f16\u7a0b\u8bed\u8a00\u4e0d\u540c\uff0cAda \u4e0d\u5c06\u6807\u8bc6\u7b26\u7684\u957f\u5ea6\u9650\u5236\u5728 6\uff0c8 \u6216\u8005 15 \u4e2a\u5b57\u7b26\u5185\u3002\u77ed\u540d\u5b57\u6253\u5b57\u901f\u5ea6\u5feb\u4e0d\u662f\u91c7\u7528\u5b83\u4eec\u7684\u53ef\u4ee5\u4e3a\u4eba\u63a5\u53d7\u7684\u7406\u7531\u3002\u53ea\u6709\u4e00\u4e2a\u5b57\u6bcd\u7684\u6807\u8bc6\u7b26\u901a\u5e38\u8bf4\u660e\u9009\u62e9\u4e0d\u5f53\u6216\u662f\u61d2\u60f0\u3002\u53ef\u80fd\u6709\u51e0\u4e2a\u4f8b\u5916\uff0c\u5982\u5c06 E \u4f5c\u4e3a\u81ea\u7136\u5bf9\u6570\u7684\u5e95\uff0cPi\uff0c\u4ee5\u53ca\u5176\u5b83\u5c11\u6570\u51e0\u4e2a\u6613\u8fa8\u8bc6\u7684\u60c5\u51b5\u3002<\/p>\n
\u7528\u4e0b\u5212\u7ebf\u5c06\u4e00\u4e2a\u540d\u5b57\u4e2d\u7684\u4e0d\u540c\u5355\u8bcd\u5206\u9694\u5f00\u6765\uff1a<\/p>\n
Is_Name_Valid<\/code> \u4e0d\u662f IsNameValid<\/code><\/p>\n\u91c7\u7528\u5168\u540d\u800c\u4e0d\u662f\u7f29\u5199\u3002<\/p>\n
\u53ea\u91c7\u7528\u9879\u76ee\u8ba4\u53ef\u7684\u7f29\u7565\u8bcd\u3002<\/p>\n
\u53ea\u80fd\u662f\u5728\u4e24\u79cd\u60c5\u51b5\u4e4b\u4e00\u65f6\u91c7\u7528\u7f29\u5199\uff1a\u8be5\u7f29\u5199\u5728\u5e94\u7528\u9886\u57df\u4e2d\u5f88\u666e\u904d\uff08\u5982 FFT \u4ee3\u8868\u5085\u7acb\u53f6\u53d8\u6362\uff09\u6216\u8005\u6765\u81ea\u516c\u8ba4\u7f29\u5199\u7684\u9879\u76ee\u7ea7\u5217\u8868\u3002\u5426\u5219\uff0c\u5f88\u6709\u53ef\u80fd\u4f7f\u76f8\u4f3c\u4f46\u4e0d\u76f8\u540c\u7684\u7f29\u5199\u5230\u5904\u51fa\u73b0\uff0c\u5bfc\u81f4\u4ee5\u540e\u7684\u6df7\u6dc6\u548c\u9519\u8bef\uff08\u5982\u5c06 track_identification \u7f29\u5199\u6210 trid\u3001trck_id\u3001tr_iden\u3001tid\u3001tr_ident\u7b49\uff09\u3002<\/p>\n
\u5c11\u7528\u540e\u7f00\u8bf4\u660e Ada \u6784\u9020\u7684\u5206\u7c7b\u3002\u5b83\u4eec\u4e0d\u80fd\u63d0\u9ad8\u6613\u8bfb\u6027\u3002<\/p>\n
\u901a\u5e38\u6309\u7167 Ada \u5b9e\u4f53\u7684\u7c7b\u6765\u52a0\u540e\u7f00\uff0c\u5982\u7ed9\u7a0b\u5e8f\u5305\u52a0\u4e0a _Package\uff0c\u5f02\u5e38\u52a0\u4e0a _Error\uff0c\u7c7b\u578b\u52a0\u4e0a _Type\uff0c\u4ee5\u53ca\u5b50\u7a0b\u5e8f\u7684\u53c2\u6570\u52a0\u4e0a _Param\uff0c\u5bf9\u5e2e\u52a9\u9605\u8bfb\u548c\u7406\u89e3\u4ee3\u7801\u4e0d\u662f<\/em>\u5f88\u6709\u6548\u3002 \u800c\u52a0\u4e0a\u5982 _Array\uff0c_Record \u548c _Function \u8fd9\u6837\u7684\u540e\u7f00\u5219\u66f4\u7cdf\u3002Ada \u7f16\u8bd1\u5668\u548c\u8bfb\u8005\u90fd\u53ef\u4ee5\u6839\u636e\u4e0a\u4e0b\u6587\u4ece\u5b50\u7a0b\u5e8f\u4e2d\u5206\u8fa8\u4e00\u4e2a\u5f02\u5e38\uff1a\u663e\u7136\u53ea\u6709\u5f02\u5e38\u540d\u53ef\u4ee5\u5728 raise<\/em> \u8bed\u53e5\u6216\u5f02\u5e38\u5904\u7406\u4e2d\u51fa\u73b0\u3002\u8fd9\u4e9b\u540e\u7f00\u5728\u5982\u4e0b\u53d7\u9650\u7684\u6761\u4ef6\u4e0b\u53ef\u7528\uff1a<\/p>\n\n- \u5f53\u5408\u9002\u7684\u8bcd\u7684\u9009\u62e9\u8303\u56f4\u975e\u5e38\u6709\u9650\u65f6\uff0c\u7ed9\u5bf9\u8c61\u9009\u4e00\u4e2a\u6700\u597d\u7684\u540d\u5b57\u5e76\u52a0\u4e0a\u7c7b\u578b\u7684\u540e\u7f00\u3002<\/li>\n
- \u5bf9\u4e8e\u7c7b\u5c5e\u5355\u5143,\u603b\u53ef\u4ee5\u52a0\u4e0a\u5f62\u5982 _Generic \u7684\u540e\u7f00\uff0c\u6240\u4ee5\u5bf9\u4e00\u4e9b\u6216\u8bb8\u591a\u5b9e\u4f8b\u6765\u8bf4\uff0c\u53ef\u4ee5\u4e0d\u6dfb\u52a0\u8be5\u540e\u7f00\u800c\u4f7f\u7528\u4e0e\u5176\u76f8\u540c\u7684\u540d\u5b57\u3002<\/li>\n
- \u5f53\u5b83\u8868\u793a\u4e00\u4e2a\u5e94\u7528\u9886\u57df\u7684\u6982\u5ff5\u65f6\uff0c\u5982 Aircraft_Type\u3002<\/li>\n
- \u5f53\u91cd\u8981\u7684\u8bbe\u8ba1\u51b3\u7b56\u9700\u9ad8\u5ea6\u53ef\u89c1\u65f6\uff1a<\/li>\n<\/ul>\n
\u7c7b\u5c5e\u5f62\u53c2\u7c7b\u578b\u540e\u7f00\u4e3a _Constrained<\/p>\n
\u540e\u7f00\u4e3a _Pointer \u7684\u5b58\u53d6\u7c7b\u578b\u6216\u5176\u5b83\u975e\u76f4\u63a5\u6307\u4ee3\u7684\u5f62\u5f0f\uff1a_Handle \u6216 _Reference<\/p>\n
\u901a\u8fc7 _Or_Wait \u9690\u85cf\u4e86\u53ef\u80fd\u963b\u585e\u7684\u5165\u53e3\u8c03\u7528\u7684\u5b50\u7a0b\u5e8f<\/p>\n
\u5c06\u540d\u5b57\u8868\u8ff0\u51fa\u6765\uff0c\u4f7f\u5f97\u4ece\u4f7f\u7528<\/em>\u7684\u89d2\u5ea6\u770b\uff0c\u5b83\u4eec\u8fd8\u4e0d\u9519\u3002<\/p>\n\u8bd5\u60f3\u4e00\u4e2a\u5bfc\u51fa\u5b9e\u4f53\u53ef\u5728\u5176\u4e2d\u4f7f\u7528\u7684\u4e0a\u4e0b\u6587\uff0c\u5e76\u7ad9\u5728\u90a3\u4e2a\u89d2\u5ea6\u9009\u62e9\u4e00\u4e2a\u540d\u5b57\u3002\u4e00\u4e2a\u5b9e\u4f53\u4ec5\u88ab\u5b9a\u4e49\u4e00\u6b21\uff0c\u4f46\u5374\u88ab\u4f7f\u7528\u8bb8\u591a\u6b21\u3002\u8fd9\u4e00\u70b9\u5bf9\u4e8e\u5b50\u7a0b\u5e8f\u7684\u540d\u5b57\u53ca\u5176\u53c2\u6570\u6765\u8bf4\u5c24\u4e3a\u6b63\u786e\uff1b \u4f7f\u7528\u547d\u540d\u5173\u8054\u5173\u7cfb\u7684\u7ed3\u679c\u8c03\u7528\u5e94\u5c3d\u91cf\u4e0e\u81ea\u7136\u8bed\u8a00\u76f8\u8fd1\u3002\u8bb0\u4f4f\u7f3a\u5c11\u4f7f\u7528<\/em>\u5b50\u53e5\u4f7f\u5f97\u5927\u591a\u6570\u58f0\u660e\u5b9e\u4f53\u5fc5\u987b\u5177\u6709\u53d7\u9650\u540d\u3002\u5bf9\u4e8e\u6709\u53ef\u80fd\u5728\u7c7b\u5c5e\u5355\u5143\u4e2d\u6bd4\u5728\u4eab\u7528\u6a21\u5757\u90a3\u91cc\u4f7f\u7528\u5f97\u8fd8\u591a\u7684\u7c7b\u5c5e\u5f62\u53c2\u6765\u8bf4\uff0c\u5fc5\u987b\u5bfb\u627e\u4e00\u4e2a\u597d\u7684\u534f\u8c03\u529e\u6cd5\uff0c\u4f46\u662f\u7edd\u5bf9\u8981\u4fdd\u8bc1\u5b50\u7a0b\u5e8f\u7684\u5f62\u53c2\u5728\u4eab\u7528\u6a21\u5757\u7aef\u597d\u770b\u3002<\/p>\n\u4f7f\u7528\u82f1\u6587\u5355\u8bcd\u5e76\u62fc\u5199\u6b63\u786e\u3002<\/p>\n
\u8bed\u8a00\u7684\u6df7\u5408\uff08\u5982\u6cd5\u8bed\u548c\u82f1\u8bed\uff09\u5c06\u4f7f\u4ee3\u7801\u96be\u8bfb\uff0c\u6709\u65f6\u4f7f\u6807\u8bc6\u7b26\u7684\u610f\u4e49\u6478\u68f1\u4e24\u53ef\u3002 \u65e2\u7136 Ada \u7684\u5173\u952e\u5b57\u5df2\u662f\u82f1\u6587\u7684\uff0c\u5219\u8981\u6c42\u4f7f\u7528\u82f1\u6587\u5355\u8bcd\u3002\u6700\u597d\u91c7\u7528\u7f8e\u5f0f\u62fc\u6cd5\uff0c\u4ee5\u4fbf\u5229\u7528\u201cRational \u73af\u5883\u201d\u4e2d\u5185\u7f6e\u7684\u62fc\u5199\u68c0\u67e5\u3002<\/p>\n
\u4e0d\u8981\u91cd\u65b0\u5b9a\u4e49 Standard \u7a0b\u5e8f\u5305\u4e2d\u7684\u4efb\u4f55\u5b9e\u4f53\u3002\u8fd9\u662f\u7edd\u5bf9\u7981\u6b62\u7684\u3002<\/p>\n
\u8fd9\u6837\u505a\u5c06\u4ea7\u751f\u6df7\u6dc6\u548c\u4e25\u91cd\u7684\u9519\u8bef\u3002\u8be5\u6cd5\u5219\u53ef\u5ef6\u4f38\u81f3\u5176\u5b83\u9884\u5b9a\u4e49\u7684\u5e93\u5355\u5143\uff1aCalendar\uff0cSystem\u3002\u8fd9\u4e5f\u5305\u62ec Standard<\/em> \u6807\u8bc6\u7b26\u672c\u8eab\u3002<\/p>\n\u907f\u514d\u5bf9\u5176\u5b83\u9884\u5b9a\u4e49\u7a0b\u5e8f\u5305\u4e2d\u7684\u6807\u8bc6\u7b26\u91cd\u5b9a\u4e49\uff0c\u5982 System \u6216 Calendar\u3002<\/p>\n
\u4e0d\u8981\u4f7f\u7528\u5982\u4e0b\u7684\u6807\u8bc6\u7b26\uff1aWide_Character<\/strong> \u548c Wide_String<\/strong>\uff0c\u5b83\u4eec\u5c06\u5728 Ada 95 \u7684 Standard \u7a0b\u5e8f\u5305\u4e2d\u5f15\u5165\u3002\u4e0d\u8981\u5f15\u5165\u4e00\u4e2a\u540d\u4e3a Ada<\/strong> \u7684\u7f16\u8bd1\u5355\u5143\u3002<\/p>\n\u4e0d\u8981\u4f7f\u7528\u4ee5\u4e0b\u5355\u8bcd\u4f5c\u4e3a\u6807\u8bc6\u7b26\uff1aabstract<\/strong>\uff0caliased<\/strong>\uff0cprotected<\/strong>\uff0crequeue<\/strong>\uff0ctagged<\/strong> \u548c until<\/strong>\uff0c\u5b83\u4eec\u5728 Ada 95 \u5c06\u6210\u4e3a\u5173\u952e\u5b57\u3002<\/p>\n\u4e00\u4e9b\u7ed9\u5404\u79cd Ada \u5b9e\u4f53\u7684\u547d\u540d\u5efa\u8bae\u4e5f\u662f\u540c\u6837\u3002\u5047\u5b9a\u4e00\u822c\u60c5\u5f62\u4e0b\uff0c\u201c\u9762\u5411\u5bf9\u8c61\u201d\u98ce\u683c\u7684\u8bbe\u8ba1\u53d7\u6b22\u8fce\u3002\u8be6\u60c5\u8bf7\u53c2\u89c1\u9644\u5f55 A\u3002<\/p>\n
<\/a>\u7a0b\u5e8f\u5305<\/h2>\n\u5f53\u4e00\u4e2a\u7a0b\u5e8f\u5305\u5f15\u5165\u4e86\u67d0\u4e2a\u5bf9\u8c61\u7c7b\u65f6\uff0c\u7528\u8be5\u5bf9\u8c61\u7c7b\u7684\u540d\u5b57\u547d\u540d\u7a0b\u5e8f\u5305\uff0c\u901a\u5e38\u662f\u4e00\u4e2a\u5355\u6570\u5f62\u5f0f\u7684\u540d\u8bcd\uff0c\u82e5\u9700\u8981\uff08\u5373\u5b9a\u4e49\u4e86\u4e00\u4e2a\u5e26\u53c2\u6570\u7684\u7c7b\uff09\uff0c\u53ef\u52a0\u4e0a\u540e\u7f00 _Generic\u3002\u4ec5\u5f53\u5bf9\u8c61\u603b\u4ee5\u7fa4\u4f53\u5f62\u5f0f\u51fa\u73b0\u65f6\uff0c\u624d\u91c7\u7528\u590d\u6570\u5f62\u5f0f\u3002\u4f8b\u5982\uff1a<\/p>\n
package Text is\r\npackage Line is\r\npackage Mailbox is\r\npackage Message is\r\npackage Attributes is\r\npackage Subscriber is\r\npackage List_Generic is<\/pre>\n\u82e5\u4e00\u4e2a\u7a0b\u5e8f\u5305\u8bf4\u660e\u4e86\u4e00\u4e2a\u63a5\u53e3\u6216\u8005\u529f\u80fd\u5206\u7ec4\uff0c\u5e76\u4e14\u5b83\u4e0d\u4e0e\u4efb\u4f55\u5bf9\u8c61\u76f8\u5173\uff0c\u5219\u5e94\u5728\u5b83\u7684\u540d\u5b57\u4e2d\u5c06\u8fd9\u4e00\u70b9\u8868\u8ff0\u51fa\u6765\uff1a<\/p>\n
package Low_Layer_Interface is\r\npackage Math_Definitions is<\/pre>\n\u5f53\u4e00\u4e2a\u201c\u903b\u8f91\u201d\u5305\u7528\u5e73\u9762\u5206\u89e3 (flat decomposition)\uff0c\u9700\u8981\u4f5c\u4e3a\u51e0\u4e2a\u5305\u6765\u8868\u8fbe\u65f6\uff0c\u91c7\u7528\u9879\u76ee\u7ea7\u4e00\u81f4\u7684\u5217\u8868\u4e2d\u7684\u540e\u7f00\u3002\u4f8b\u5982\uff0c\u4e00\u4e2a\u903b\u8f91\u7a0b\u5e8f\u5305 Mailbox \u53ef\u5982\u4e0b\u5b9e\u73b0\uff1a<\/p>\n
package Mailbox_Definitions is\r\npackage Mailbox_Exceptions is\r\npackage Mailbox_Io is\r\npackage Mailbox_Utilities is\r\npackage Mailbox_Implementation is\r\npackage Mailbox_Main is<\/pre>\n\u5176\u5b83\u53ef\u63a5\u53d7\u7684\u540e\u7f00\u6709\uff1a<\/p>\n
_Test_Support \r\n_Test_Main \r\n_Log \r\n_Hidden_Definitions \r\n_Maintenance \r\n_Debug<\/pre>\n<\/a>\u7c7b\u578b<\/h2>\n\u5f53\u5728\u7a0b\u5e8f\u5305\u4e2d\u5b9a\u4e49\u4e00\u4e2a\u5bf9\u8c61\u7c7b\u8574\u6db5\u62f7\u8d1d\u8bed\u4e49\u65f6 – \u5373\u5f53\u7c7b\u578b\u53ef\u5b9e\u4f8b\u5316\u5e76\u4e14\u67d0\u79cd\u5f62\u5f0f\u7684\u4efb\u52a1\u5206\u914d\u53ef\u884c\u65f6\uff0c\u91c7\u7528\uff1a<\/p>\n
type Object is ...<\/pre>\n\u6ce8\u610f\u7c7b\u540d\u4e0d\u5e94\u5728\u6807\u8bc6\u7b26\u4e2d\u91cd\u590d\uff0c\u56e0\u4e3a\u5b83\u603b\u662f\u4ee5\u5b8c\u5168\u53d7\u9650\u7684\u5f62\u5f0f\u4f7f\u7528\uff1a<\/p>\n
Mailbox.Object\r\nLine.Object<\/pre>\n\u5f53\u5305\u542b\u5171\u4eab\u8bed\u4e49\u65f6 – \u5373\u7c7b\u578b\u7528\u5b58\u53d6\u503c\uff08\u6216\u8005\u5176\u5b83\u975e\u76f4\u63a5\u7684\u5f62\u5f0f\uff09\u5b9e\u73b0\uff0c\u5e76\u4e14\u8d4b\u503c\u8bed\u53e5\uff08\u82e5\u5b58\u5728\uff09\u4e0d\u590d\u5236\u5bf9\u8c61 – \u7528\u5982\u4e0b\u65b9\u5f0f\u8bf4\u660e\uff1a<\/p>\n
UL><\/p>\n
\ntype Handle is <\/code>\u7528\u4e8e\u975e\u76f4\u63a5\u5f15\u7528<\/li>\ntype Reference is <\/code>\u662f\u4e00\u4e2a\u53ef\u884c\u7684\u5907\u7528\u65b9\u6848<\/li>\n<\/ul>\n\u8fd9\u4e9b\u5143\u7d20\u5728\u5355\u72ec\u4f7f\u7528\u65f6\u4f5c\u540e\u7f00\uff0c\u524d\u9762\u52a0\u4e0a\u5305\u540d\uff0c\u8fd9\u6837\u5e76\u4e0d\u6e05\u695a\u6216\u975e\u5e38\u6478\u68f1\u4e24\u53ef\u3002<\/p>\n
\u5f53\u8574\u6db5\u591a\u4e2a\u5bf9\u8c61\u65f6\uff0c\u91c7\u7528\uff1a<\/p>\n
\ntype Set is <\/code>\u5f53\u6697\u542b\u5143\u7d20\u7684\u7279\u6b8a\u6027\u65f6<\/li>\ntype List is <\/code>\u5f53\u5305\u542b\u67d0\u79cd\u6b21\u5e8f\u65f6<\/li>\ntype Collection is<\/code> \u5f53\u65e2\u4e0d\u542b\u96c6\u5408\u4e5f\u4e0d\u542b\u5217\u8868\u8bed\u4e49\u65f6<\/li>\ntype Iterator is<\/code> \u5f53\u63d0\u4f9b\u4e86 Initialize\uff0cValue_Of\uff0cNext\uff0cIs_Done \u7b49\u539f\u8bed\u65f6
\n\uff08\u53c2\u89c1 6.5 \u8282\uff09<\/li>\n<\/ul>\n\u5bf9\u4e8e\u67d0\u4e2a\u5bf9\u8c61\u4e32\u7684\u6307\u5b9a\uff0c\u91c7\u7528\uff1a<\/p>\n
type Name is<\/code><\/p>\n\u4e3a\u4e86\u8fbe\u5230\u66f4\u597d\u7684\u6613\u8bfb\u6027\uff0c\u7c7b\u578b\u7684\u53d7\u9650\u540d\u4e5f\u5e94\u5728\u6574\u4e2a\u5b9a\u4e49\u5305\u5185\u4f7f\u7528\u3002\u201cRational \u73af\u5883\u201d\u4e2d\uff0c\u5f53\u5728\u5b50\u7a0b\u5e8f\u8c03\u7528\u4e2d\u91c7\u7528 [Complete] \u51fd\u6570\u65f6\uff0c\u4e0a\u8ff0\u65b9\u6cd5\u4e5f\u53ef\u4f7f\u8fd0\u884c\u66f4\u52a0\u597d\u3002<\/p>\n
\u4f8b\u5982\uff0c\u6ce8\u610f\u4e0b\u9762\u7684\u5b8c\u5168\u540d Subscriber.Object\uff1a<\/p>\n
package Subscriber is\r\ntype Object is private;\r\ntype Handle is access Subscriber.Object;\r\nsubtype Name is String;\r\npackage List is new List_Generic (Subscriber.Handle);\r\nMaster_List : Subscriber.List.Handle;\r\nprocedure Create (The_Handle : out Subscriber.Handle;\r\nWith_Name : in Subscriber.Name);\r\nprocedure Append (The_Subscriber : in Subscriber.Handle;\r\nTo_List : in out Subscriber.List.Handle);\r\nfunction Name_Of (The_Subscriber : Subscriber.Handle) return\r\nSubscriber.Name;\r\n ...\r\nprivate\r\ntype Object is\r\nrecord\r\nThe_Name : Subscriber.Name (1..20);\r\n ...\r\nend Subscriber;<\/pre>\n\u5728\u5176\u5b83\u60c5\u51b5\u4e0b\uff0c\u7c7b\u540d\u91c7\u7528\u540d\u8bcd\u6216\u8005\u4fee\u9970\u7b26 + \u540d\u8bcd\u3002\u7c7b\u578b\u53ef\u7528\u590d\u6570\u5f62\u5f0f\uff0c\u5bf9\u8c61\uff08\u53d8\u91cf\uff09\u540d\u91c7\u7528\u5355\u6570\uff1a<\/p>\n
type Point is record ...\r\ntype Hidden_Attributes is ( ...\r\ntype Boxes is array ...<\/pre>\n\u5bf9\u4e8e\u679a\u4e3e\u7c7b\u578b\uff0c\u5355\u72ec\u6216\u8005\u4f5c\u4e3a\u540e\u7f00\u4f7f\u7528 Mode\uff0cKind\uff0cCode \u7b49\u5355\u8bcd\u3002<\/p>\n
\u5bf9\u4e8e\u6570\u7ec4\u7c7b\u578b\uff0c\u5f53\u5df2\u5c06\u7b80\u5355\u540d\u7528\u4e8e\u7ec4\u4ef6\u7c7b\u578b\u65f6\uff0c\u53ef\u4ee5\u91c7\u7528\u540e\u7f00 _Table\u3002\u4ec5\u5f53\u6570\u7ec4\u7528\u8574\u6db5\u8bed\u4e49\u6765\u7ef4\u62a4\u65f6\uff0c\u624d\u91c7\u7528\u8c61 _Set \u548c _List \u8fd9\u6837\u7684\u540d\u5b57\u6216\u540e\u7f00\u3002Reserve _Vector \u548c _Matrix \u5e94\u7559\u4f5c\u76f8\u5e94\u7684\u6570\u5b66\u6982\u5ff5\u4f7f\u7528\u3002<\/p>\n
\u56e0\u4e3a\u8981\u907f\u514d\u5355\u6570\u7684\u4efb\u52a1\u5bf9\u8c61\uff08\u539f\u56e0\u5728\u540e\u6587\u89e3\u91ca\uff09\uff0c\u6240\u4ee5\u5373\u4f7f\u53ea\u6709\u4e00\u4e2a\u8be5\u7c7b\u578b\u7684\u5bf9\u8c61\u65f6\uff0c\u4e5f\u5e94\u5f15\u5165\u4efb\u52a1\u7c7b\u578b\u3002\u4e0b\u9762\u662f\u4f7f\u7528\u4e86\u4e00\u4e2a\u8c61 _Type \u8fd9\u6837\u7684\u7b80\u5355\u540e\u7f00\u4e4b\u540e\u4fbf\u4ee4\u4eba\u6ee1\u610f\u7684\u4f8b\u5b50\uff1a<\/p>\n
task type Listener_Type is ...\r\nfor Listener_Type'Storage_Size use ...\r\nListener : Listener_Type;<\/pre>\n\u7c7b\u4f3c\u5730\uff0c\u5f53\u7c7b\u578b\u540d\u91c7\u7528\u540d\u8bcd\uff08\u6216\u8005\u540d\u8bcd\u77ed\u8bed\uff09\u5b58\u5728\u51b2\u7a81\u65f6\uff0c\u6216\u8005\u51e0\u5904\u7684\u5bf9\u8c61\u540d\u6216\u53c2\u6570\u540d\u6709\u51b2\u7a81\u65f6\uff0c\u5728\u8be5\u7c7b\u578b\u540d\u540e\u52a0\u4e0a\u540e\u7f00 _Kind\uff0c\u800c\u8ba9\u5bf9\u8c61\u4f7f\u7528\uff08\u65e0\u540e\u7f00\u7684\uff09\u7b80\u5355\u540d\u8bcd\uff1a<\/p>\n
type Status_Kind is (None, Normal, Urgent, Red);\r\nStatus : Status_Kind := None;<\/pre>\n\u6216\u8005\uff0c\u5bf9\u4e8e\u603b\u4ee5\u590d\u6570\u51fa\u73b0\u7684\u4e8b\u7269\u7684\u7c7b\u578b\uff0c\u91c7\u7528\u590d\u6570\u5f62\u5f0f\u3002<\/p>\n
\u56e0\u4e3a\u5b58\u53d6\u7c7b\u578b\u5b58\u5728\u56fa\u6709\u7684\u5371\u5bb3\uff0c\u6240\u4ee5\u4f7f\u7528\u8005\u5e94\u5c0f\u5fc3\u3002\u4e00\u822c\u5b83\u4eec\u53eb\u505a Pointer\u3002\u5982\u679c\u540d\u5b57\u672c\u8eab\u610f\u4e49\u8fd8\u5f88\u6478\u68f1\u4e24\u53ef\uff0c\u5219\u5e94\u52a0\u4e0a\u540e\u7f00 _pointer\u3002\u4f5c\u4e3a\u540e\u5907\u65b9\u6848\uff0c\u4e5f\u53ef\u91c7\u7528 _Access \u505a\u540e\u7f00\u3002<\/p>\n
\u6709\u65f6\u91c7\u7528\u5d4c\u5957\u5b50\u7a0b\u5e8f\u5305\u6765\u5f15\u5165\u6b21\u7ea7\u62bd\u8c61\u53ef\u4ee5\u7b80\u5316\u547d\u540d\uff1a<\/p>\n
package Subscriber is ...\r\npackage Status is\r\ntype Kind is (Ok, Deleted, Incomplete, Suspended, \r\nPrivileged);\r\nfunction Set (The_Status : Subscriber.Status.Kind;\r\nTo_Subscriber : Subscriber.Handle);\r\nend Status;\r\n ...<\/pre>\n<\/a>\u5f02\u5e38<\/h2>\n\u56e0\u4e3a\u5f02\u5e38\u53ea\u80fd\u7528\u6765\u5904\u7406\u9519\u8bef\uff0c\u6240\u4ee5\u5e94\u4f7f\u7528\u540d\u8bcd\u6216\u540d\u8bcd\u77ed\u8bed\u6765\u6e05\u695a\u8868\u8fbe\u4e00\u4e2a\u8d1f\u9762\u7684\u610f\u4e49\uff1a<\/p>\n
Overflow, Threshold_Exceeded, Bad_Initial_Value<\/pre>\n\u5f53\u5728\u4e00\u4e2a\u7c7b\u7a0b\u5e8f\u5305\u4e2d\u5b9a\u4e49\u5f02\u5e38\u65f6\uff0c\u6807\u8bc6\u7b26\u65e0\u9700\u5305\u542b\u7c7b\u540d – \u4f8b\u5982 Bad_Initial_Subscriber_Value – \u56e0\u4e3a\u5f02\u5e38\u4e00\u76f4\u88ab\u7528\u4f5c Subscriber.Bad_Initial_Value\u3002<\/p>\n
\u91c7\u7528 Bad\uff0cIncomplete\uff0cInvalid\uff0cWrong\uff0cMissing \u6216\u8005 Illegal \u4e2d\u7684\u4e00\u4e2a\u5355\u8bcd\u4f5c\u4e3a\u540d\u5b57\u7684\u4e00\u90e8\u5206\uff0c\u800c\u4e0d\u662f\u7cfb\u7edf\u5730\u91c7\u7528\u4e0d\u4f20\u8fbe\u4efb\u4f55\u8be6\u7ec6\u4fe1\u606f\u7684 Error\uff1a<\/p>\n
Illegal_Data, Incomplete_Data<\/pre>\n<\/a>\u5b50\u7a0b\u5e8f<\/h2>\n\u8fc7\u7a0b\uff08\u548c\u4efb\u52a1\u5165\u53e3\uff09\u91c7\u7528\u52a8\u8bcd\u3002\u51fd\u6570\u540d\u91c7\u7528\u5e26\u6709\u5bf9\u8c61\u7c7b\u5c5e\u6027\u6216\u7279\u5f81\u7684\u540d\u8bcd\u3002\u8fd4\u56de\u5e03\u5c14\u503c\uff08\u8c13\u8bcd\uff09\u7684\u51fd\u6570\u4f7f\u7528\u5f62\u5bb9\u8bcd\uff08\u6216\u8fc7\u53bb\u5206\u8bcd\uff09\u3002<\/p>\n
Subscriber.Create\r\nSubscriber.Destroy\r\nSubscriber.List.Append\r\nSubscriber.First_Name -- Returns a string.\r\nSubscriber.Creation_Date -- Returns a date.\r\nSubscriber.List.Next\r\nSubscriber.Deleted -- Returns a Boolean.\r\nSubscriber.Unavailable -- Returns a Boolean.\r\nSubscriber.Remote<\/pre>\n\u5bf9\u4e8e\u8c13\u8bcd\uff0c\u5728\u4e00\u4e9b\u60c5\u51b5\u4e0b\u7ed9\u540d\u8bcd\u524d\u9762\u52a0\u4e0a\u524d\u7f00 Is_ \u6216 Has_ \u6216\u8bb8\u6709\u5e2e\u52a9\uff1b\u65f6\u6001\u8981\u51c6\u786e\u548c\u4e00\u81f4\uff1a<\/p>\n
function Has_First_Name ...\r\nfunction Is_Administrator ...\r\nfunction Is_First...\r\nfunction Was_Deleted ...<\/pre>\n\u5f53\u7b80\u5355\u540d\u79f0\u5df2\u4f5c\u4e3a\u7c7b\u578b\u540d\u6216\u679a\u4e3e\u578b\u76f4\u63a5\u91cf\u65f6\uff0c\u4e0a\u8ff0\u65b9\u6cd5\u6709\u7528\u3002<\/p>\n
\u8c13\u8bcd\u5e94\u4f7f\u7528\u80af\u5b9a\u5f0f\uff0c\u4e5f\u5c31\u662f\u8bf4\uff0c\u5176\u4e2d\u4e0d\u5e94\u542b\u6709\u201cNot_\u201d\u4e00\u8bcd\u3002<\/p>\n
\u5bf9\u4e8e\u666e\u901a\u64cd\u4f5c\uff0c\u7edf\u4e00\u4ece\u9879\u76ee\u53ef\u9009\u5217\u8868\uff08\u5217\u8868\u968f\u7740\u6211\u4eec\u5bf9\u7cfb\u7edf\u8ba4\u8bc6\u7684\u52a0\u6df1\u800c\u6269\u5c55\uff09\u4e2d\u9009\u62e9\u52a8\u8bcd\uff1a<\/p>\n
Create\r\nDelete\r\nDestroy\r\nInitialize\r\nAppend\r\nRevert\r\nCommit\r\nShow, Display<\/pre>\n\u8c13\u8bcd\u51fd\u6570\u548c\u5e03\u5c14\u578b\u7684\u53c2\u6570\u91c7\u7528\u80af\u5b9a\u5f0f\u3002\u5426\u5b9a\u5f0f\u7684\u540d\u5b57\u53ef\u80fd\u4ea7\u751f\u53cc\u91cd\u5426\u5b9a\uff08\u4f8b\u5982 Not Is_Not_Found\uff09\uff0c\u4ece\u800c\u4f7f\u4ee3\u7801\u96be\u8bfb\u3002<\/p>\n
function Is_Not_Valid (...) return Boolean\r\nprocedure Find_Client (With_The_Name : in Name;\r\nNot_Found : out Boolean)<\/pre>\n\u5e94\u5b9a\u4e49\u6210\uff1a<\/p>\n
function Is_Valid (...) return Boolean;\r\nprocedure Find_Client (With_The_Name: in Name;\r\nFound: out Boolean)<\/pre>\n\u8fd9\u624d\u8ba9\u4eab\u7528\u6a21\u5757\u6309\u5176\u6240\u9700\u7684\u90a3\u6837\u5b9e\u73b0\u4e86\u8868\u8fbe\u5f0f\u7684\u5426\u5b9a\uff08\u8fd9\u6837\u505a\u4e0d\u4f1a\u5bfc\u81f4\u8fd0\u884c\u65f6\u95f4\u5ef6\u957f\uff09\uff1a<\/p>\n
if not Is_Valid (...) then ....<\/pre>\n\u6709\u4e9b\u60c5\u51b5\u4e0b\uff0c\u901a\u8fc7\u4f7f\u7528\u53cd\u4e49\u8bcd\uff0c\u5982\u7528\u201cIs_Invalid\u201d\u6765\u4ee3\u66ff\u201cIs_Not_Valid\u201d\uff0c\u53ef\u4ee5\u4f7f\u5426\u5b9a\u8c13\u8bcd\u5728\u4e0d\u6539\u53d8\u8bed\u4e49\u7684\u60c5\u51b5\u4e0a\u53d8\u6210\u80af\u5b9a\u5f0f\u3002\u4f46\u662f\uff0c\u80af\u5b9a\u5f0f\u7684\u540d\u5b57\u66f4\u6613\u8bfb\uff1a \u201cIs_Valid\u201d\u6bd4\u201cnot Is_Invalid\u201d\u66f4\u6613\u7406\u89e3\u3002<\/p>\n
\u5f53\u8574\u6db5\u7740\u5927\u81f4\u76f8\u540c\u7684\u610f\u4e49\u65f6\uff0c\u91c7\u7528\u76f8\u540c\u7684\u5355\u8bcd\uff0c\u800c\u4e0d\u662f\u5bfb\u627e\u540c\u4e49\u8bcd\u6216\u53d8\u4f53\u3002\u56e0\u6b64\uff0c\u9f13\u52b1\u4f7f\u7528\u91cd\u8f7d\u6765\u63d0\u9ad8\u4ee3\u7801\u7684\u4e00\u81f4\u6027\uff0c\u9075\u5faa\u6700\u5c0f\u9650\u5ea6\u610f\u5916\u539f\u5219\u3002<\/p>\n
\u82e5\u5b50\u7a0b\u5e8f\u88ab\u7528\u505a\u5165\u53e3\u8c03\u7528\u7684\u201c\u5916\u8868\u201d (skins) \u6216\u8005\u201c\u5305\u88c5\u201d (wrappers)\uff0c\u5219\u7ed9\u5176\u540d\u5b57\u52a8\u8bcd\u52a0\u4e0a\u540e\u7f00 _Or_Wait\uff0c\u6216\u8005\u7ed9\u51fd\u6570\u53d6\u4e2a Wait_For_ \u77ed\u8bed\u52a0\u540d\u8bcd\u7684\u540d\u5b57\u6765\u53cd\u6620\u8fd9\u4e00\u70b9\uff0c\u8fd9\u6837\u53ef\u80fd\u6709\u7528\uff1a<\/p>\n
Subscriber.Get_Reply_Or_Wait\r\nSubscriber.Wait_For_Reply<\/pre>\n\u4e00\u4e9b\u64cd\u4f5c\u5e94\u4e00\u76f4\u4f7f\u7528\u76f8\u540c\u7684\u540d\u5b57\u6765\u7edf\u4e00\u5b9a\u4e49\uff1a<\/p>\n
\u5bf9\u4e8e\u8f6c\u6362\u5230\u5b57\u4e32\u548c\u4ece\u5b57\u4e32\u8f6c\u6362\u6765\u7684\u7c7b\u578b\u53d8\u6362\uff0c\u5bf9\u79f0\u51fd\u6570\u662f\uff1a<\/p>\n
function Image and function Value<\/pre>\n\u5bf9\u4e8e\u8f6c\u6362\u5230\u4f4e\u7ea7\u8868\u793a\u6cd5\uff08\u5982\u7528\u4e8e\u6570\u636e\u4ea4\u6362\u7684 Byte_String\uff09\u548c\u4ece\u4f4e\u7ea7\u8868\u793a\u6cd5\u8f6c\u6362\u8fc7\u6765\u7684\u7c7b\u578b\u53d8\u6362\uff0c\u5bf9\u79f0\u8fc7\u7a0b\u662f\uff1a<\/p>\n
procedure Read and Write<\/pre>\n\u5bf9\u4e8e\u5206\u914d\u6570\u636e\uff1a<\/p>\n
function Allocate (rather than Create)\r\nfunction Destroy (or Release, to express that the object will disappear)<\/pre>\n\u5f53\u7cfb\u7edf\u5730\u5904\u7406\u5b83\u4eec\u65f6\u91c7\u7528\u7edf\u4e00\u7684\u547d\u540d\uff0c\u7c7b\u578b\u5408\u6210\u5c06\u5bb9\u6613\u8bb8\u591a\u3002<\/p>\n
\u5bf9\u4e8e\u6d3b\u52a8\u7684\u8fed\u4ee3\u7a0b\u5e8f\uff0c\u5fc5\u987b\u5b9a\u4e49\u4ee5\u4e0b\u539f\u8bed\uff1a<\/p>\n
Initialize\r\nNext\r\nIs_Done\r\nValue_Of<\/pre>\n\u82e5\u53ef\u884c\uff0c\u8fd8\u8981\u5b9a\u4e49 Reset<\/code>\u3002\u82e5\u8981\u5728\u76f8\u540c\u7684\u4f5c\u7528\u57df\u8303\u56f4\u5185\u5f15\u5165\u51e0\u4e2a\u8fed\u4ee3\u7c7b\u578b\uff0c\u90a3\u4e48\u5e94\u91cd\u8f7d\u8fd9\u4e9b\u539f\u8bed\uff0c\u800c\u4e0d\u662f\u4e3a\u6bcf\u4e2a\u8fed\u4ee3\u7a0b\u5e8f\u5206\u522b\u5f15\u5165\u4e00\u5957\u5404\u4e0d\u76f8\u540c\u7684\u6807\u8bc6\u7b26\u3002\u53c2\u89c1 [BOO87]<\/a>\u3002<\/p>\n\u5f53\u91c7\u7528 Ada \u9884\u786e\u5b9a\u5c5e\u6027\u4f5c\u4e3a\u51fd\u6570\u540d\u65f6\uff0c\u8981\u4fdd\u8bc1\u5176\u7528\u6cd5\u4e0e\u4e00\u822c\u7684\u8bed\u4e49\u76f8\u540c\uff1a’First\uff0c’Last\uff0c’Length\uff0c’Image\uff0c’Value\uff0c\u7b49\u7b49\u3002 \u6ce8\u610f\uff0c\u51e0\u4e2a\u5c5e\u6027\uff08\u5982 ‘Range \u548c ‘Delta\uff09\u662f\u4e0d\u80fd\u7528\u505a\u51fd\u6570\u540d\u7684\uff0c\u56e0\u4e3a\u5b83\u4eec\u662f\u4fdd\u7559\u5b57\u3002<\/p>\n
<\/a>\u5bf9\u8c61\u548c\u5b50\u7a0b\u5e8f\uff08\u6216\u5165\u53e3\uff09\u53c2\u6570<\/h2>\n\u4e3a\u8868\u660e\u5176\u552f\u4e00\u6027\u6216\u662f\u8868\u660e\u8be5\u5b9e\u4f53\u662f\u6d3b\u52a8\u7684\u4e3b\u8981\u805a\u96c6\u5904\uff0c\u5728\u5bf9\u8c61\u6216\u53c2\u6570\u540d\u79f0\u524d\u52a0\u524d\u7f00\u201cThe\u201d\u6216\u201cThis\u201d\u3002\u8981\u8bf4\u660e\u4e00\u4e2a\u6b21\u8981\u3001\u4e34\u65f6\u3001\u8f85\u52a9\u7684\u5bf9\u8c61\uff0c\u5219\u52a0\u524d\u7f00\u201cA_\u201d\u6216\u201cCurrent_\u201d\uff1a<\/p>\n
procedure Change_Name (The_Subscriber : in Subscriber.Handle;\r\nThe_Name : in Subscriber.Name );\r\ndeclare\r\nA_Subscriber : Subscriber.Handle := Subscriber.First;\r\nbegin\r\n ...\r\nA_Subscriber := Subscriber.Next (The_Subscriber);\r\nend;<\/pre>\n\u5bf9\u4e8e\u5e03\u5c14\u578b\u7684\u5bf9\u8c61\uff0c\u91c7\u7528\u80af\u5b9a\u5f0f\u7684\u8c13\u8bcd\u5b50\u53e5\uff1a<\/p>\n
Found_It\r\nIs_Available<\/pre>\n\u4f46\u662f\uff1a<\/p>\n
Is_Not_Available<\/code> \u5fc5\u987b\u907f\u514d\u3002<\/p>\n\u5bf9\u4e8e\u4efb\u52a1\u5bf9\u8c61\uff0c\u5e94\u91c7\u7528\u4e00\u4e2a\u8574\u6db5\u4e86\u6d3b\u52a8\u5b9e\u4f53\u7684\u540d\u8bcd\u6216\u8005\u540d\u8bcd\u77ed\u8bed\uff1a<\/p>\n
Listener\r\nResource_Manager\r\nTerminal_Driver<\/pre>\n
\u6982\u8ff0<\/a>
\n\u7a0b\u5e8f\u5305<\/a>
\n\u7c7b\u578b<\/a>
\n\u5f02\u5e38<\/a>
\n\u5b50\u7a0b\u5e8f<\/a>
\n\u5bf9\u8c61\u548c\u5b50\u7a0b\u5e8f\uff08\u6216\u5165\u53e3\uff09\u53c2\u6570<\/a>
\n\u7c7b\u5c5e\u5355\u5143<\/a>
\n\u5b50\u7cfb\u7edf\u7684\u547d\u540d\u7b56\u7565<\/a><\/h4>\n\u7c7b\u578b\u3001\u5bf9\u8c61\u548c\u7a0b\u5e8f\u5355\u5143\u7684\u58f0\u660e<\/a><\/h3>\n\u679a\u4e3e\u7c7b\u578b<\/a>
\n\u6570\u503c\u7c7b\u578b<\/a>
\n\u5b9e\u578b<\/a>
\n\u8bb0\u5f55\u7c7b\u578b<\/a>
\n\u5b58\u53d6\u7c7b\u578b<\/a>
\n\u79c1\u6709\u7c7b\u578b<\/a>
\n\u6d3e\u751f\u7c7b\u578b<\/a>
\n\u5bf9\u8c61\u58f0\u660e<\/a>
\n\u5b50\u7a0b\u5e8f\u548c\u7c7b\u5c5e\u5355\u5143<\/a><\/h4>\n\u8868\u8fbe\u5f0f\u548c\u8bed\u53e5<\/a><\/h3>\n\u8868\u8fbe\u5f0f<\/a>
\n\u8bed\u53e5<\/a>
\n\u7f16\u7801\u63d0\u793a<\/a><\/h4>\n\u53ef\u89c1\u6027\u95ee\u9898<\/a><\/h3>\n\u91cd\u8f7d\u548c\u540c\u5f62\u5f02\u4e49\u5b57<\/a>
\n\u4e0a\u4e0b\u6587\u5b50\u53e5<\/a>
\n\u91cd\u547d\u540d<\/a>
\n\u5173\u4e8e Use \u5b50\u53e5\u7684\u8bf4\u660e<\/a><\/h4>\n\u7a0b\u5e8f\u7ed3\u6784\u548c\u7f16\u8bd1\u95ee\u9898<\/a><\/h3>\n\u7a0b\u5e8f\u5305\u7684\u5206\u89e3<\/a>
\n\u58f0\u660e\u90e8\u5206\u7684\u7ed3\u6784<\/a>
\n\u4e0a\u4e0b\u6587\u5b50\u53e5<\/a>
\n\u786e\u7acb\u987a\u5e8f<\/a><\/h4>\n\u5e76\u884c<\/a><\/h3>\n\u9519\u8bef\u5904\u7406\u4e0e\u5f02\u5e38<\/a><\/h3>\n\u4f4e\u7ea7\u7f16\u7a0b<\/a><\/h3>\n\u8868\u793a\u5b50\u53e5\u548c\u5c5e\u6027<\/a>
\n\u65e0\u68c0\u67e5\u8f6c\u6362<\/a><\/h4>\n\u603b\u7ed3<\/a><\/h3>\n\u53c2\u8003\u6587\u732e<\/a><\/h3>\n\u8bcd\u6c47\u8868<\/a><\/h3>\n
\n<\/a>\u7b2c\u4e00\u7ae0<\/em><\/h2>\n\u5173\u4e8e\u672c\u6587\u6863<\/h1>\n
\u672c\u6587\u6863 Rational Unified Process – Ada \u7f16\u7a0b\u6307\u5357<\/em>\u662f\u4e00\u4e2a\u6807\u51c6\u7684\u6a21\u677f\uff0c\u4f60\u7684\u5f00\u53d1\u7ec4\u7ec7\u53ef\u4f9d\u6b64\u6d3e\u751f\u51fa\u4e00\u5957\u7a0b\u5e8f\u8bbe\u8ba1\u6807\u51c6\u3002\u8be5\u6307\u5357\u8be6\u7ec6\u8bf4\u660e\u4e86\u5e94\u5982\u4f55\u7f16\u5199 Ada \u7a0b\u5e8f\u3002\u672c\u6587\u670d\u52a1\u7684\u5bf9\u8c61\u662f\u6240\u6709\u5c06 Ada \u4f5c\u4e3a\u5b9e\u65bd\u8bed\u8a00\u6216\u8005\u4e00\u79cd\u8bf4\u660e\u63a5\u53e3\u6216\u6570\u636e\u7ed3\u6784\u7684\u8bbe\u8ba1\u8bed\u8a00\u7684\u5e94\u7528\u8f6f\u4ef6\u8bbe\u8ba1\u8005\u548c\u5f00\u53d1\u8005\u3002<\/p>\n\u6587\u4e2d\u6240\u63cf\u8ff0\u7684\u89c4\u5219\u56ca\u62ec\u4e86\u7a0b\u5e8f\u8bbe\u8ba1\u7684\u5927\u90e8\u5206\u65b9\u9762\u3002\u901a\u7528\u89c4\u5219\u9002\u7528\u4e8e\u7a0b\u5e8f\u5e03\u5c40\u3001\u547d\u540d\u7ea6\u5b9a\u548c\u6ce8\u91ca\u5e94\u7528\u3002\u7279\u6b8a\u89c4\u5219\u9002\u7528\u4e8e\u9009\u5b9a\u7684 Ada \u7279\u6027\uff0c\u5e76\u8bf4\u660e\u4e86\u7981\u7528\u6784\u9020\u3001\u63a8\u8350\u4f7f\u7528\u6a21\u5f0f\u548c\u7528\u4ee5\u63d0\u9ad8\u7a0b\u5e8f\u8d28\u91cf\u7684\u901a\u7528\u6280\u5de7\u3002<\/p>\n
\u9879\u76ee\u7684\u8bbe\u8ba1<\/em>\u6307\u5357\u548c\u5f53\u524d\u7684\u7f16\u7a0b<\/em>\u6307\u5357\u6709\u4e00\u5b9a\u7684\u91cd\u590d\uff0c\u662f\u6709\u610f\u8fd9\u6837\u505a\u7684\u3002\u4ecb\u7ecd\u7684\u8bb8\u591a\u7a0b\u5e8f\u8bbe\u8ba1\u89c4\u5219\uff0c\u5c24\u5176\u662f\u5728\u547d\u540d\u7ea6\u5b9a<\/em>\u4e2d\u7684\u89c4\u5219\uff0c\u7528\u4e8e\u79ef\u6781\u652f\u6301\u548c\u52a0\u5f3a\u8f6f\u4ef6\u8bbe\u8ba1\u4e2d\u7684\u9762\u5411\u5bf9\u8c61<\/em>\u65b9\u5f0f\u3002<\/p>\n\u6307\u5357\u6700\u521d\u7528\u4e8e Ada 83\u3002\u5b83\u542b\u6709\u4e0e Ada 95 \u517c\u5bb9\u7684\u89c4\u5219\uff0c\u4f46\u4e0d\u542b\u6709\u6539\u7248\u540e\u8bed\u8a00\u6807\u51c6\u65b0\u7279\u6027\u7684\u4f7f\u7528\u6307\u5357\uff0c\u4f8b\u5982\u6807\u8bc6\u7c7b\u578b\u3001\u5b50\u5355\u5143\u6216\u5c0f\u6570\u7c7b\u578b\u3002<\/p>\n
\u6587\u6863\u5927\u81f4\u6309\u7167 Ada Reference Manual \u7684\u7ed3\u6784\u6765\u7ec4\u7ec7 [ISO 8052]<\/a>\u3002<\/p>\n\u7b2c\u4e8c\u7ae0\u201c\u7b80\u4ecb<\/em>\u201d\u89e3\u91ca\u4e86\u6307\u5357\u6240\u57fa\u4e8e\u7684\u57fa\u672c\u539f\u7406\u5e76\u4ecb\u7ecd\u4e86\u6307\u5357\u5206\u7c7b\u3002<\/p>\n\u7b2c\u4e09\u7ae0\u201c\u4ee3\u7801\u5e03\u5c40<\/em>\u201d\u8bb2\u8ff0\u4e86\u7a0b\u5e8f\u6587\u672c\u7684\u4e00\u822c\u89c6\u89c9\u7ec4\u7ec7\u7ed3\u6784\u3002<\/p>\n\u7b2c\u56db\u7ae0\u201c\u6ce8\u91ca<\/em>\u201d\u7ed9\u51fa\u4e86\u5982\u4f55\u7528\u7ed3\u6784\u5316\u7684\u3001\u53ef\u7528\u7684\u548c\u53ef\u7ef4\u62a4\u7684\u65b9\u5f0f\u6765\u6ce8\u91ca\u8bf4\u660e\u4ee3\u7801\u3002<\/p>\n\u7b2c\u4e94\u7ae0\u201c\u547d\u540d\u7ea6\u5b9a<\/em>\u201d\u7ed9\u51fa\u6709\u5173\u547d\u540d\u8bed\u8a00\u5b9e\u4f53\u7684\u4e00\u822c\u89c4\u5219\u548c\u8303\u4f8b\u3002\u8fd9\u4e00\u7ae0\u7684\u5185\u5bb9\u5e94\u518d\u7ecf\u4fee\u6539\uff0c\u4ee5\u6ee1\u8db3\u7279\u5b9a\u9879\u76ee\u6216\u673a\u6784\u7684\u9700\u8981\u3002<\/p>\n\u7b2c\u516d\u7ae0\u201c\u58f0\u660e<\/em>\u201d\u548c\u7b2c\u4e03\u7ae0\u201c\u8868\u8fbe\u5f0f\u548c\u8bed\u53e5<\/em>\u201d\u5bf9\u6bcf\u79cd\u8bed\u8a00\u7ed3\u6784\u7ed9\u51fa\u4e86\u8fdb\u4e00\u6b65\u7684\u5efa\u8bae\u3002<\/p>\n\u7b2c\u516b\u7ae0\u201c\u53ef\u89c6\u6027\u95ee\u9898<\/em>\u201d\u548c\u7b2c\u4e5d\u7ae0\u201c\u7a0b\u5e8f\u7ed3\u6784\u548c\u7f16\u8bd1\u95ee\u9898<\/em>\u201d\u7ed9\u51fa\u4e86\u6709\u5173\u5168\u5c40\u6784\u5efa\u548c\u7a0b\u5e8f\u7ec4\u6210\u7684\u6307\u5bfc\u3002<\/p>\n\u7b2c\u5341\u7ae0\u201c\u5e76\u884c<\/em>\u201d\u5904\u7406\u8bed\u8a00\u4e2d\u6709\u5173\u4f7f\u7528\u4efb\u52a1\u548c\u65f6\u95f4\u76f8\u5173\u7279\u6027\u7684\u4e13\u95e8\u95ee\u9898\u3002<\/p>\n\u7b2c\u5341\u4e00\u7ae0\u201c\u9519\u8bef\u5904\u7406\u548c\u5f02\u5e38<\/em>\u201d\u7ed9\u51fa\u5982\u4f55\u7cfb\u7edf\u5730\u3001\u7b80\u4fbf\u5730\u4f7f\u7528\u6216\u4e0d\u4f7f\u7528\u5f02\u5e38\u6765\u5904\u7406\u9519\u8bef\u3002<\/p>\n\u7b2c\u5341\u4e8c\u7ae0\u201c\u4f4e\u7ea7\u7f16\u7a0b<\/em>\u201d\u5904\u7406\u8868\u793a\u5b50\u53e5\u7684\u95ee\u9898\u3002<\/p>\n\u7b2c\u5341\u4e09\u7ae0\u201c\u603b\u7ed3<\/em>\u201d\u627c\u8981\u590d\u8ff0\u4e86\u6700\u4e3a\u91cd\u8981\u7684\u6307\u5bfc\u65b9\u9488\u3002<\/p>\n\u672c\u6587\u6863\u53d6\u4ee3\u4e86 Ada Guidelines: Recommendation for Designers and programmers<\/em> \u4e2d\u7684 Application Note #15, Rational, Santa Clara, CA., 1990\u3002<\/p>\n
\n<\/a>\u7b2c\u4e8c\u7ae0<\/em><\/h2>\n\u7b80\u4ecb<\/h1>\n\u57fa\u672c\u539f\u5219<\/h2>\n
Ada \u8bed\u8a00\u7684\u8bbe\u8ba1\u5f88\u6709\u9488\u5bf9\u6027\u7684\u76ee\u7684\u5c31\u662f\u652f\u6301\u9ad8\u8d28\u91cf\u3001\u53ef\u9760\u3001\u53ef\u590d\u7528\u548c\u53ef\u79fb\u690d\u8f6f\u4ef6 [ISO 87, sect. 1.3]<\/a>\u3002\u7136\u800c\uff0c\u6ca1\u6709\u54ea\u4e00\u79cd\u8bed\u8a00\u4ec5\u9760\u5176\u672c\u8eab\u5c31\u53ef\u4ee5\u5b9e\u73b0\u4e0a\u8ff0\u76ee\u6807\u3002\u7a0b\u5e8f\u8bbe\u8ba1\u5fc5\u987b\u662f\u4e00\u4e2a\u6709\u826f\u597d\u89c4\u8303\u7684\u8fc7\u7a0b\u7684\u4e00\u90e8\u5206\u3002<\/p>\n\u6e05\u695a\u660e\u767d\u7684 Ada \u6e90\u4ee3\u7801\u662f\u672c\u6587\u4e2d\u5927\u591a\u6570\u6307\u5bfc\u65b9\u9488\u7684\u4e3b\u8981\u76ee\u6807\u3002\u8fd9\u4e00\u70b9\u662f\u5b9e\u73b0\u53ef\u9760\u6027\u548c\u53ef\u7ef4\u62a4\u6027\u7684\u4e3b\u8981\u56e0\u7d20\u3002\u6240\u8c13\u6e05\u695a\u660e\u767d\u7684\u4ee3\u7801\u53ef\u4ee5\u4ece\u4ee5\u4e0b\u4e09\u6761\u7b80\u5355\u7684\u57fa\u672c\u539f\u5219\u4e0a\u6765\u7406\u89e3\u3002<\/p>\n
\u6700\u5c0f\u9650\u5ea6\u7684\u610f\u5916<\/h3>\n
\u5728\u5176\u751f\u547d\u671f\u5185\uff0c\u4ee3\u7801\u66f4\u591a\u5730\u662f\u88ab\u8bfb\uff0c\u800c\u4e0d\u662f\u88ab\u5199\uff0c\u5c24\u5176\u662f\u5b83\u7684\u8bf4\u660e\u90e8\u5206\u3002\u7406\u60f3\u60c5\u51b5\u4e0b\uff0c\u4ee3\u7801\u8bfb\u8d77\u6765\u5e94\u8be5\u8c61\u4e00\u7bc7\u8bf4\u660e\u5b83\u505a\u4e86\u4ec0\u4e48\u7684\u82f1\u6587\u63cf\u8ff0\uff0c\u5b83\u5177\u6709\u4e00\u4e2a\u9644\u52a0\u4f18\u70b9\u662f\u53ef\u4ee5\u6267\u884c\u3002 \u7a0b\u5e8f\u66f4\u591a\u662f\u4e3a\u4eba\u7f16\u5199\uff0c\u800c\u4e0d\u662f\u4e3a\u8ba1\u7b97\u673a\u7f16\u5199\u3002\u9605\u8bfb\u7f16\u7801\u662f\u4e00\u4e2a\u590d\u6742\u7684\u8111\u529b\u8fc7\u7a0b\uff0c\u5b83\u53ef\u901a\u8fc7\u7edf\u4e00\u6807\u51c6\u6765\u7b80\u5316\uff0c\u5728\u672c\u6587\u4e2d\u8fd9\u4e00\u6307\u5bfc\u4e5f\u53eb\u201c\u6700\u5c0f\u9650\u5ea6\u610f\u5916\u539f\u5219<\/em>\u201d\u3002\u6574\u4e2a\u9879\u76ee\u4e2d\u7edf\u4e00\u6837\u5f0f\u662f\u8f6f\u4ef6\u5f00\u53d1\u56e2\u961f\u5728\u7f16\u7a0b\u6807\u51c6\u4e0a\u8fbe\u6210\u4e00\u81f4\u7684\u4e3b\u8981\u539f\u56e0\uff0c\u5b83\u4e0d\u5e94\u89c6\u4e3a\u4e00\u79cd\u60e9\u7f5a\u6216\u5bf9\u521b\u9020\u6027\u548c\u751f\u4ea7\u529b\u7684\u963b\u788d\u3002<\/p>\n\u5355\u70b9\u7ef4\u62a4<\/h3>\n
\u8fd9\u4e00\u6307\u5bfc\u6240\u57fa\u4e8e\u7684\u53e6\u4e00\u4e2a\u91cd\u8981\u539f\u5219\u662f\u5355\u70b9\u7ef4\u62a4\u539f\u5219<\/em>\u3002\u5e94\u5c3d\u91cf\u4f7f\u8bbe\u8ba1\u51b3\u7b56\u53ea\u5728 Ada \u6e90\u7801\u4e2d\u7684\u4e00\u5904\u8868\u8ff0\uff0c\u5b83\u7684\u591a\u6570\u7ed3\u8bba\u5e94\u7a0b\u5e8f\u5316\u5730\u4ece\u8be5\u5904\u6d3e\u751f\u51fa\u6765\u3002\u4e0d\u9075\u5b88\u8fd9\u4e00\u539f\u5219\u4f1a\u4e25\u91cd\u5f71\u54cd\u4ee3\u7801\u7684\u53ef\u7ef4\u62a4\u6027\u3001\u53ef\u9760\u6027\u548c\u53ef\u7406\u89e3\u6027\u3002<\/p>\n\u6700\u5c0f\u9650\u5ea6\u7684\u5e72\u6270<\/h3>\n
\u6700\u540e\uff0c\u4f5c\u4e3a\u6613\u8bfb\u6027\u7684\u4e3b\u8981\u4f5c\u7528\u56e0\u7d20\uff0c\u91c7\u7528\u6700\u5c0f\u5e72\u6270\u539f\u5219<\/em>\u3002\u5373\u907f\u514d\u5c06\u6e90\u4ee3\u7801\u4e0e\u89c6\u89c9\u201c\u5e72\u6270\u201d\u76f8\u6df7\u5408\uff1a\u5373\u680f\u3001\u6846\u4ee5\u53ca\u5176\u5b83\u4f4e\u4fe1\u606f\u91cf\u7684\u6587\u672c\u6216\u662f\u5bf9\u7406\u89e3\u8f6f\u4ef6\u529f\u80fd\u6ca1\u6709\u5e2e\u52a9\u7684\u4fe1\u606f\u3002<\/p>\n\u53ef\u79fb\u690d\u6027\u548c\u53ef\u590d\u7528\u6027\u4e5f\u662f\u5236\u5b9a\u8bb8\u591a\u6307\u5bfc\u65b9\u9488\u7684\u539f\u7531\u3002\u4ee3\u7801\u5e94\u53ef\u79fb\u690d\u5230\u4e0d\u540c\u76ee\u6807\u8ba1\u7b97\u673a\u7684\u51e0\u4e2a\u4e0d\u540c\u7f16\u8bd1\u5668\u4e0a\uff0c\u5e76\u6700\u7ec8\u79fb\u690d\u5230\u4e00\u4e2a\u66f4\u9ad8\u7ea7\u7684 Ada \u7248\u672c\u201cAda 95\u201d\u4e0a [PLO92,<\/a> TAY92]<\/a>\u3002<\/p>\n<\/a>\u5047\u8bbe<\/h2>\n\u8fd9\u91cc\u7684\u6307\u5bfc\u65b9\u9488\u6709\u51e0\u4e2a\u57fa\u672c\u5047\u8bbe\uff1a<\/p>\n
\u8bfb\u8005\u4e86\u89e3 Ada\u3002<\/h3>\n
\u5e94\u9f13\u52b1\u5728\u4efb\u4f55\u53ef\u5e26\u6765\u597d\u5904\u7684\u5730\u65b9\u4f7f\u7528 Ada \u7684\u9ad8\u7ea7\u7279\u6027\uff0c\u800c\u4e0d\u8981\u4ec5\u4ec5\u56e0\u4e3a\u4e00\u4e9b\u7a0b\u5e8f\u5458\u4e0d\u719f\u6089\u5b83\u4eec\u800c\u53cd\u5bf9\u91c7\u7528\u3002 \u8fd9\u662f\u9879\u76ee\u80fd\u4ece\u4f7f\u7528 Ada \u4e2d\u771f\u6b63\u83b7\u76ca\u7684\u552f\u4e00\u65b9\u5f0f\u3002Ada \u4e0d\u5e94\u8c61 Pascal \u6216 FORTRAN \u8bed\u8a00\u90a3\u6837\u4f7f\u7528\u3002\u4e0d\u9f13\u52b1\u5728\u6ce8\u91ca\u4e2d\u89e3\u91ca\u4ee3\u7801\uff1b\u76f8\u53cd\uff0cAda \u672c\u8eab\u5e94\u5c3d\u53ef\u80fd\u5730\u53d6\u4ee3\u6ce8\u91ca\u3002<\/p>\n
\u8bfb\u8005\u61c2\u82f1\u6587\u3002<\/h3>\n
\u8bb8\u591a\u547d\u540d\u7ea6\u5b9a\u5728\u8bcd\u6c47\u548c\u8bed\u6cd5\u4e0a\u57fa\u4e8e\u82f1\u6587\u3002\u6b64\u5916\uff0c Ada \u7684\u5173\u952e\u5b57\u90fd\u662f\u5e38\u7528\u7684\u82f1\u8bed\u5355\u8bcd\u3002\u5c06\u5176\u4e0e\u5176\u5b83\u8bed\u8a00\u6df7\u5408\u5c06\u964d\u4f4e\u4ee3\u7801\u7684\u6613\u8bfb\u6027\u3002<\/p>\n
\u4e25\u683c\u9650\u5236\u4f7f\u7528\u5b50\u53e5 (use clause) \u7684\u8fd0\u7528\u3002<\/h3>\n
\u547d\u540d\u7ea6\u5b9a\u548c\u5176\u5b83\u4e00\u4e9b\u89c4\u5219\u5047\u5b9a\u201cuse\u201d\u5b50\u53e5\u4e0d\u88ab\u8fd0\u7528\u3002<\/p>\n
\u5904\u7406\u7684\u662f\u4e00\u4e2a\u5927\u9879\u76ee\u3002<\/h3>\n
\u8bb8\u591a\u89c4\u5219\u5728\u5927\u578b\u9879\u76ee\u4e2d\u6700\u6709\u4ef7\u503c\uff0c\u867d\u7136\u51fa\u4e8e\u9879\u76ee\u7ea7\u6216\u516c\u53f8\u7ea7\u5b9e\u73b0\u548c\u7edf\u4e00\u7684\u76ee\u7684\uff0c\u5b83\u4eec\u4e5f\u5728\u5c0f\u578b\u7cfb\u7edf\u4e2d\u4f7f\u7528\u3002<\/p>\n
\u6e90\u7801\u5728\u201cRational \u73af\u5883\u201d (Rational Environment) \u4e2d\u5f00\u53d1\u3002<\/h3>\n
\u901a\u8fc7\u8fd0\u7528\u201cRational \u73af\u5883\u201d (Rational Environment)\uff0c\u4e00\u4e9b\u95ee\u9898\u5982\u4ee3\u7801\u5e03\u5c40\u3001\u5c01\u95ed\u6784\u9020\u4e2d\u7684\u6807\u8bc6\u7b26\u7b49\u5c31\u5728 Ada \u7f16\u8f91\u5668\u548c\u683c\u5f0f\u5668\u4e2d\u5904\u7406\u4e86\u3002 \u4f46\u662f\u672c\u6587\u4e2d\u7684\u5e03\u5c40\u5efa\u8bae\u9002\u7528\u4e8e\u4efb\u4f55\u5f00\u53d1\u5e73\u53f0\u3002<\/p>\n
\u7a0b\u5e8f\u8bbe\u8ba1\u9075\u5faa\u9762\u5411\u5bf9\u8c61\u7684\u65b9\u6cd5\u3002<\/h3>\n
\u8bb8\u591a\u89c4\u5219\u652f\u6301\u5c06 Ada \u7279\u6027\u548c\u7279\u5b9a\u547d\u540d\u7ea6\u5b9a\u7684\u9762\u5411\u5bf9\u8c61 (OO) \u6982\u5ff5\u7684\u7cfb\u7edf\u6620\u5c04\u3002<\/p>\n
<\/a>\u6307\u5357\u5206\u7c7b<\/h2>\n\u8fd9\u4e9b\u6307\u5bfc\u65b9\u9488\u5e76\u975e\u540c\u7b49\u91cd\u8981\u3002\u5b83\u4eec\u5927\u81f4\u9075\u5faa\u4ee5\u4e0b\u7684\u7b49\u7ea7\uff1a<\/p>\n
\u63d0\u793a\uff1a<\/h3>\n
\u8be5\u6307\u5bfc\u65b9\u9488\u4ec5\u662f\u4e00\u6761\u7b80\u5355\u7684\u5efa\u8bae\uff1b\u4e0d\u9075\u5b88\u5b83\u4e5f\u4e0d\u4f1a\u6709\u4ec0\u4e48\u5b9e\u8d28\u6027\u7684\u635f\u5bb3\uff0c\u91c7\u7528\u6216\u662f\u4e0d\u91c7\u7528\u5b83\u4eec\u4ec5\u662f\u4e2a\u4eba\u559c\u597d\u95ee\u9898\u3002\u6587\u4e2d\u7684\u63d0\u793a\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u5efa\u8bae\uff1a<\/h3>\n
\u8be5\u6307\u5bfc\u65b9\u9488\u901a\u5e38\u66f4\u591a\u5730\u57fa\u4e8e\u6280\u672f\u7684\u89c2\u70b9\uff1b\u5b83\u53ef\u80fd\u4f1a\u5f71\u54cd\u5230\u4ee3\u7801\u7684\u53ef\u79fb\u690d\u6027\u6216\u53ef\u590d\u7528\u6027\uff0c\u5e76\u5728\u4e00\u4e9b\u5b9e\u65bd\u4e2d\u5f71\u54cd\u6027\u80fd\u3002 \u9664\u975e\u6709\u5408\u9002\u7684\u7406\u7531\uff0c\u5426\u5219\u5fc5\u987b\u9075\u5b88\u5efa\u8bae\u3002\u6587\u4e2d\u63d0\u5230\u4e00\u4e9b\u4f8b\u5916\u7684\u60c5\u51b5\u3002\u6587\u4e2d\u7684\u5efa\u8bae\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u9650\u5236\uff1a<\/h3>\n
\u6709\u7591\u95ee\u7684\u7279\u6027\u4f7f\u7528\u8d77\u6765\u5371\u9669\uff0c\u4f46\u5b83\u5e76\u4e0d\u88ab\u5b8c\u5168\u7981\u6b62\uff1b\u5e94\u7528\u8be5\u7279\u6027\u7684\u51b3\u5b9a\u5e94\u5728\u9879\u76ee\u7ea7\u4e0a\u505a\u51fa\uff0c\u5e76\u4e14\u51b3\u5b9a\u5e94\u8be5\u662f\u9ad8\u5ea6\u53ef\u89c1\u7684\u3002\u6587\u4e2d\u7684\u9650\u5236\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u8981\u6c42\uff1a<\/h3>\n
\u8fdd\u80cc\u5b83\u5b9a\u5c06\u5bfc\u81f4\u4e0d\u597d\u7684\u3001\u4e0d\u53ef\u9760\u7684\u6216\u662f\u4e0d\u53ef\u79fb\u690d\u7684\u4ee3\u7801\u3002 \u8981\u6c42\u4e0d\u53ef\u8fdd\u80cc\u3002\u6587\u4e2d\u7684\u8981\u6c42\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u201cRational \u8bbe\u8ba1\u5de5\u5177\u201d (Rational Design Facility) \u5c06\u7528\u6765\u51cf\u5c11\u53d7\u9650\u7279\u6027\u7684\u4f7f\u7528\u5e76\u52a0\u5f3a\u5fc5\u9700\u6cd5\u5219\u548c\u8bb8\u591a\u5efa\u8bae\u7684\u8fd0\u7528\u3002<\/p>\n
\u4e0e\u8bb8\u591a\u5176\u5b83\u7684 Ada \u7a0b\u5e8f\u8bbe\u8ba1\u6807\u51c6\u4e0d\u540c\u7684\u662f\uff1a\u4e8b\u5b9e\u4e0a\uff0c\u8fd9\u4e9b\u6307\u5bfc\u65b9\u9488\u4e2d\u53ca\u5c11\u6709\u5b8c\u5168\u7981\u7528\u7684\u3002\u597d\u7684\u8f6f\u4ef6\u7684\u5173\u952e\u5728\u4e8e\uff1a<\/p>\n
\n- \u4e86\u89e3\u6bcf\u79cd\u7279\u6027\uff0c\u4e86\u89e3\u5b83\u7684\u5c40\u9650\u548c\u53ef\u80fd\u7684\u5371\u9669<\/li>\n
- \u51c6\u786e\u4e86\u89e3\u8fd9\u79cd\u7279\u6027\u5728\u4f55\u79cd\u573a\u5408\u53ef\u4ee5\u5b89\u5168\u4f7f\u7528<\/li>\n
- \u8ba9\u4f7f\u7528\u8be5\u7279\u6027\u7684\u51b3\u7b56\u9ad8\u5ea6\u53ef\u89c1<\/li>\n
- \u5341\u5206\u5c0f\u5fc3\u8c28\u614e\u5730\u5728\u9002\u5f53\u5904\u4f7f\u7528\u8be5\u7279\u6027\u3002<\/li>\n<\/ul>\n
<\/a>\u6700\u6839\u672c\u7684\u539f\u5219<\/h2>\n\u4f7f\u7528\u5e38\u8bc6\u3002<\/p>\n
\u5f53\u65e0\u6cd5\u627e\u5230\u53ef\u7528\u7684\u89c4\u5219\u6216\u6307\u5357\uff0c\u5f53\u89c4\u5219\u660e\u663e\u4e0d\u9002\u7528\uff0c\u5f53\u5176\u5b83\u4e00\u5207\u90fd\u5931\u8d25\u65f6\uff1a\u4f7f\u7528\u5e38\u8bc6\uff0c\u5e76\u6838\u67e5\u57fa\u672c\u539f\u5219\u3002\u8fd9\u6761\u6cd5\u5219\u51cc\u9a7e\u4e8e\u5176\u5b83\u6240\u6709\u6cd5\u5219\u4e4b\u4e0a\u3002\u5e38\u8bc6\u662f\u5fc5\u4e0d\u53ef\u5c11\u7684<\/em>\u3002<\/p>\n
\n<\/a>\u7b2c\u4e09\u7ae0<\/em><\/h2>\n\u4ee3\u7801\u5e03\u5c40<\/h1>\n\u6982\u8ff0<\/h2>\n
\u4e00\u4e2a\u7a0b\u5e8f\u5355\u5143\u7684\u5e03\u5c40\u5b8c\u5168\u5728\u201cRational \u73af\u5883\u683c\u5f0f\u5668\u201d (Rational Environment Formatter) \u7684\u63a7\u5236\u4e4b\u4e0b\uff0c\u9664\u4e86\u5728\u6ce8\u91ca\u548c\u7a7a\u767d\u5904\u5185\uff0c\u7a0b\u5e8f\u5458\u4e0d\u5fc5\u8fc7\u591a\u62c5\u5fc3\u7a0b\u5e8f\u7684\u5e03\u5c40\u3002\u8fd9\u4e2a\u5de5\u5177\u6240\u91c7\u7528\u7684\u683c\u5f0f\u7ea6\u5b9a\u5728 Reference Manual for the Ada Programming Language \u7684 Appendix E \u4e2d\u8868\u8ff0 [ISO87]<\/a>\u3002 \u7279\u522b\u662f\uff0c\u4ed6\u4eec\u5efa\u8bae\u7ed3\u6784\u5316\u6784\u9020\u7684\u5f00\u59cb\u548c\u7ed3\u675f\u5904\u7684\u5173\u952e\u5b57\u5e94\u5782\u76f4\u5bf9\u9f50\u3002\u4e00\u4e2a\u6784\u9020\u7684\u6807\u8bc6\u7b26\u4e5f\u5e94\u7cfb\u7edf\u6027\u5730\u5728\u6784\u9020\u7684\u672b\u5c3e\u91cd\u590d\u3002<\/p>\n\u683c\u5f0f\u5668\u7684\u786e\u5207\u884c\u4e3a\u7531\u4e00\u7cfb\u5217\u7684\u5e93\u5f00\u5173<\/em>\u5728\u4e00\u4e2a\u901a\u7528\u6a21\u578b\u4e16\u754c (model world) \u57fa\u7840\u4e0a\u63a7\u5236\uff0c\u8fd9\u4e9b\u5e93\u5f00\u5173\u5728\u6574\u4e2a\u9879\u76ee\u8fc7\u7a0b\u4e2d\u63a5\u6536\u4e00\u5957\u7edf\u4e00\u7684\u503c\u3002\u76f8\u5173\u7684\u5f00\u5173\u4ee5\u53ca\u5b83\u4eec\u5728\u6211\u4eec\u6240\u5efa\u8bae\u7684\u6a21\u578b\u4e16\u754c<\/em>\u4e2d\u7684\u901a\u7528\u503c\u5217\u8868\u5982\u4e0b\u3002<\/p>\n<\/a>\u5b57\u6bcd\u5927\u5c0f\u5199<\/h2>\nFormat .Id_Case : Letter_Case := Capitalized<\/h3>\n
\u8be6\u7ec6\u8bf4\u660e Ada \u5355\u5143\u4e2d\u6807\u8bc6\u7b26\u7684\u5b57\u6bcd\u5927\u5c0f\u5199\uff1a\u6700\u5f00\u59cb\u7684\u5b57\u6bcd\u4ee5\u53ca\u6bcf\u4e2a\u4e0b\u5212\u7ebf\u4e4b\u540e\u7684\u7b2c\u4e00\u4e2a\u5b57\u6bcd\u7528\u5927\u5199\u3002\u5927\u5199\u662f\u8bfb\u8005\u6700\u6613\u8bfb\u7684\u5f62\u5f0f\uff0c\u5177\u6709\u4f17\u591a\u73b0\u4ee3\u5c4f\u5e55\u548c\u6fc0\u5149\u6253\u5370\u673a\u5b57\u4f53\u3002<\/p>\n
Format .Keyword_Case : Letter_Case := Lower<\/h3>\n
\u8bf4\u660e Ada \u5173\u952e\u5b57\u7684\u5927\u5c0f\u5199\u3002\u8fd9\u5c06\u5b83\u4eec\u4e0e\u6807\u8bc6\u7b26\u7565\u5fae\u533a\u5206\u5f00\u6765\u3002<\/p>\n
Format .Number_Case : Letter_Case := Upper<\/h3>\n
\u8bf4\u660e\u6d6e\u70b9\u76f4\u63a5\u91cf\u4e2d\u5b57\u6bcd\u201cE\u201d\u548c\u57fa\u672c\u76f4\u63a5\u91cf\u4e2d\u57fa\u672c\u6570\u5b57\uff08\u201cA\u201d \u5230 \u201cF\u201d\uff09\u7684\u5927\u5c0f\u5199\u3002<\/p>\n
<\/a>\u7f29\u8fdb<\/h2>\n\u4e00\u4e2a Ada \u5355\u5143\u6309\u7167 Ada Reference Manual \u4e2d Appendix E \u6240\u8bf4\u7684\u4e00\u822c\u7ea6\u5b9a\u6765\u7f16\u6392\u683c\u5f0f [ISO87]<\/a>\u3002\u8fd9\u5c31\u662f\u8bf4\uff0c\u4e00\u4e2a\u7ed3\u6784\u5316\u6784\u9020\u7684\u5f00\u59cb\u548c\u7ed3\u675f\u5904\u7684\u5173\u952e\u5b57\u5e94\u8be5\u5bf9\u9f50\u3002 \u4f8b\u5982\uff0c\u201cloop\u201d\u548c\u201cend loop\u201d\uff0c\u201crecord\u201d\u548c\u201cend record\u201d\u3002\u5728\u7ed3\u6784\u5316\u6784\u9020\u5185<\/em>\u7684\u5355\u5143\u5e94\u5411\u53f3\u7f29\u8fdb<\/em>\u3002<\/p>\nFormat .Major_Indentation : Indent_Range := 3<\/h3>\n
\u8bf4\u660e\u683c\u5f0f\u5668\u4ee4\u5982\u201cif\u201d\u8bed\u53e5\u3001\u201ccase\u201d\u8bed\u53e5\u548c\u201cloop\u201d\u8bed\u53e5\u8fd9\u6837\u7684\u7ed3\u6784\u5316\uff08\u4e3b\u8981\u7684\uff09\u6784\u9020\u7f29\u8fdb\u7684\u5217\u6570\u3002<\/p>\n
Format .Minor_Indentation : Indent_Range := 2<\/h3>\n
\u8bf4\u660e\u683c\u5f0f\u5668\u4f7f\u6b21\u8981\u6784\u9020\u7f29\u8fdb\u7684\u5217\u6570\uff1a \u8bb0\u5f55\u7684\u58f0\u660e\u3001\u53d8\u4f53\u8bb0\u5f55\u7684\u58f0\u660e\u3001\u7c7b\u578b\u7684\u58f0\u660e\u3001\u5f02\u5e38\u5904\u7406\u3001\u9009\u62e9\u8bed\u53e5\u3001case \u8bed\u53e5\u3001\u547d\u540d\u548c\u6807\u5fd7\u8bed\u53e5\u3002<\/p>\n
<\/a>\u884c\u7684\u957f\u5ea6\u548c\u884c\u7684\u5206\u9694<\/h2>\nFormat .Line_Length : Line_Range := 80<\/h3>\n
\u8bf4\u660e\u6362\u884c\u524d\u683c\u5f0f\u5668\u663e\u793a Ada \u5355\u5143\u4e2d\u7684\u884c\u6240\u91c7\u7528\u7684\u5217\u6570\u3002\u8fd9\u4f7f\u5f97\u683c\u5f0f\u5316\u7684\u5355\u5143\u53ef\u7528\u4f20\u7edf\u7684 VT100 \u7c7b\u7ec8\u7aef\u663e\u793a\u3002<\/p>\n
Format .Statement_Indentation : Indent_Range := 3<\/h3>\n
\u8bf4\u660e\u5f53\u4e00\u6761\u8bed\u53e5\u957f\u4e8e Line_Length\uff0c\u5fc5\u987b\u8981\u65ad\u5f00\u65f6\uff0c\u683c\u5f0f\u5668\u5e94\u4f7f\u7b2c\u4e8c\u884c\u548c\u540e\u7eed\u884c\u7f29\u8fdb\u591a\u5c11\u5217\u3002\u53ea\u6709\u5f53\u4e0d\u5b58\u5728\u8bcd\u6cd5\u6784\u9020\u53ef\u8ba9\u7f29\u8fdb\u7684\u4ee3\u7801\u5bf9\u9f50\u65f6\uff0c\u683c\u5f0f\u5668\u624d\u4ee4\u4ee3\u7801\u7f29\u8fdb Statement_Indentation \u4e2a\u5217\u3002<\/p>\n
Format .Statement_Length : Line_Range := 35<\/h3>\n
\u8bf4\u660e\u5f53\u663e\u793a\u4e00\u4e2a\u8bed\u53e5\u65f6\uff0c\u6bcf\u884c\u6240\u4fdd\u7559\u7684\u5217\u6570\u3002 \u5982\u679c\u5f53\u524d\u7f29\u8fdb\u7a0b\u5ea6\u6240\u5141\u8bb8\u7684\u4e00\u884c\u4e2d\u7684\u5217\u6570\u5c0f\u4e8e Statement_Length\uff0c\u90a3\u4e48\u683c\u5f0f\u5668\u5c06 Wrap_Indentation \u4f5c\u4e3a\u65b0\u7684\u7f29\u8fdb\u7a0b\u5ea6\u3002\u6b64\u6cd5\u53ef\u9632\u6b62\u5d4c\u5957\u592a\u6df1\u7684\u8bed\u53e5\u663e\u793a\u65f6\u8d85\u51fa\u53f3\u8fb9\u754c\u3002<\/p>\n
Format .Wrap_Indentation : Line_Range := 16<\/h3>\n
\u8bf4\u660e\u5f53\u524d\u7684\u7f29\u8fdb\u7a0b\u5ea6\u4e0d\u4e0d\u8db3 Statement_Length \u65f6\uff0c\u683c\u5f0f\u5668\u5728\u4e0b\u4e00\u884c\u5f00\u5934\u5904\u5e94\u7f29\u8fdb\u7684\u5217\u6570\u3002\u6b64\u6cd5\u53ef\u9632\u6b62\u5d4c\u5957\u592a\u6df1\u7684\u8bed\u53e5\u663e\u793a\u65f6\u8d85\u51fa\u53f3\u8fb9\u754c\u3002<\/p>\n
<\/a>\u5bf9\u9f50<\/h2>\nFormat .Consistent_Breaking : Integer := 1<\/h3>\n
\u63a7\u5236\u5f62\u5982 (xxx:aaa; yyy:bbb) \u7684\u5217\u8868\u683c\u5f0f\uff0c\u8be5\u5217\u8868\u51fa\u73b0\u5728\u5b50\u7a0b\u5e8f\u7684\u5f62\u53c2\u8bf4\u660e\u5904\u548c\u7c7b\u578b\u58f0\u660e\u4e2d\u7684\u5224\u522b\u5f0f\u5904\u3002\u5b83\u4e5f\u63a7\u5236\u5f62\u5982 (xxx=>aaa, yyy=>bbb) \u7684\u5217\u8868\u7684\u683c\u5f0f\uff0c\u8be5\u5217\u8868\u51fa\u73b0\u5728\u5b50\u7a0b\u5e8f\u8c03\u7528\u548c\u805a\u96c6\u5904\u3002\u56e0\u4e3a\u8be5\u9009\u9879\u975e\u96f6\uff08\u771f\uff09\uff0c\u6240\u4ee5\u5f53\u4e00\u4e2a\u5217\u8868\u65e0\u6cd5\u5728\u4e00\u884c\u4e2d\u88c5\u4e0b\u65f6\uff0c\u5217\u8868\u4e2d\u7684\u6bcf\u4e00\u4e2a\u5143\u7d20\u90fd\u5360\u7528\u65b0\u7684\u4e00\u884c\u3002<\/p>\n
Format .Alignment_Threshold : Line_Range := 20<\/h3>\n
\u8bf4\u660e\u4e3a\u4f7f\u8fde\u7eed\u8bed\u53e5\u4e2d\u7684\u8bcd\u6cd5\u6784\u9020\u5bf9\u9f50\uff08\u5982\u547d\u540d\u7b26\u53f7\u4e2d\u7684\u5192\u53f7\u3001\u8d4b\u503c\u53f7\u548c\u7bad\u5934\uff09\uff0c\u683c\u5f0f\u5668\u53ef\u63d2\u5165\u7684\u7a7a\u683c\u6570\u3002\u5982\u679c\u5bf9\u9f50\u4e00\u4e2a\u6784\u9020\u6240\u9700\u7684\u7a7a\u683c\u6570\u591a\u4e8e\u8fd9\u4e2a\u6570\uff0c\u90a3\u4e48\u6784\u9020\u4e0d\u88ab\u5bf9\u9f50\u3002<\/p>\n
\u8981\u6ce8\u610f\u7684\u662f\uff0c\u4e3a\u4e86\u5f62\u6210\u67d0\u79cd\u5e03\u5c40\uff0c\u7a0b\u5e8f\u5458\u53ef\u4ee5\u63d2\u5165\u4e00\u4e2a\u884c\u7ed3\u675f\u7b26\u6216\u8005\u901a\u8fc7\u8f93\u5165 <space> <space> <carriage-return> \u6765\u6572\u5165\u4e00\u4e2a\u4e0d\u4f1a\u88ab\u683c\u5f0f\u5668\u5220\u6389\u7684\u884c\u4e2d\u65ad\u3002<\/p>\n
\u5f53 \u5217\u8868\u4e2d\u7684\u5143\u7d20\u8d85\u8fc7 3 \u4e2a\u5e76\u4e14\u5728\u4e00\u884c\u4e2d\u88c5\u4e0d\u4e0b\u8fd9\u4e9b\u5143\u7d20\u65f6\uff0c\u91c7\u7528\u4e0a\u8ff0\u6280\u5de7\u3002Ada \u5143\u7d20\u5217\u8868\u5e94\u5206\u9694\u4e3a\u4e00\u884c\u4ec5\u6709\u4e00\u4e2a\u5143\u7d20\uff0c\u4ee5\u63d0\u9ad8\u4ee3\u7801\u7684\u6613\u8bfb\u6027\u548c\u53ef\u7ef4\u62a4\u6027\u3002\u8fd9\u4e00\u6761\u5c24\u5176\u9002\u7528\u4e8e\u4ee5\u4e0b Ada \u6784\u9020\uff08\u8c61 Ada Reference Manual \u7684 Appendix E \u4e2d\u6240\u5b9a\u4e49\u7684\u90a3\u6837 [ISO87]<\/a>\uff09\uff1a<\/p>\n\u5b9e\u53c2\u5173\u8054\u5173\u7cfb<\/p>\n
pragma Suppress (Range_Check,\r\nOn => This_Type,\r\nOn => That_Type, On => That_Other_Type);<\/pre>\n\u6807\u8bc6\u7b26\u5217\u8868\uff0c\u7ec4\u4ef6\u5217\u8868<\/p>\n
Next_Position,\r\nPrevious_Position,\r\nCurrent_Position : Position;\r\ntype Some_Record is \r\nrecord\r\nA_Component,\r\nB_Component,\r\nC_Component : Component_Type;\r\nend record;<\/pre>\n\u679a\u4e3e\u7c7b\u578b\u5b9a\u4e49<\/p>\n
type Navaid is \r\n(Vor, \r\nVor_Dme, \r\nDme, \r\nTacan, \r\nVor_Tac, \r\nNDB);<\/pre>\n\u5224\u522b\u5f0f\u7ea6\u675f<\/p>\n
subtype Constrained is Element \r\n(Name_Length => Name'Length,\r\nValid => True,\r\nOperation => Skip);<\/pre>\n\u8bed\u53e5\u7684\u987a\u5e8f\uff08\u7531\u683c\u5f0f\u5668\u5904\u7406\uff09<\/p>\n
\u5f62\u5f0f\u90e8\u5206\u3001\u7c7b\u5c5e\u5f62\u5f0f\u90e8\u5206\u3001\u5b9e\u53c2\u90e8\u5206\u3001\u7c7b\u5c5e\u5b9e\u53c2\u90e8\u5206<\/p>\n
procedure Just_Do_It (This : in Some_Type;\r\nFor_That : in Some Other_Type;\r\nStatus : out Status_Type);\r\nJust_Do_It (This => This_Value;\r\nFor_That => That_Value;\r\nStatus => The_Status);<\/pre>\n
\n<\/a>\u7b2c\u56db\u7ae0<\/em><\/h2>\n\u6ce8\u91ca<\/h1>\n\u6982\u8ff0<\/h2>\n
\u4e0e\u5e7f\u6cdb\u63a5\u53d7\u7684\u89c2\u70b9\u76f8\u53cd\u7684\u662f\uff0c\u597d\u7684\u7a0b\u5e8f\u7684\u7279\u70b9\u5e76\u975e\u662f\u6ce8\u91ca\u7684\u6570\u91cf<\/em>\uff0c\u800c\u662f\u6ce8\u91ca\u7684\u8d28\u91cf<\/em>\u3002<\/p>\n\u6ce8\u91ca\u5e94\u5f53\u4f5c\u4e3a Ada \u4ee3\u7801\u7684\u8865\u5145<\/em>\uff0c\u800c\u4e0d\u662f\u89e3\u91ca\uff1aAda \u672c\u8eab\u662f\u4e00\u79cd\u975e\u5e38\u6613\u8bfb\u7684\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00\uff0c\u5c24\u5176\u662f\u5f53\u88ab\u597d\u7684\u547d\u540d\u7ea6\u5b9a\u652f\u6301\u65f6\u3002\u6ce8\u91ca\u5e94\u5f53\u89e3\u91ca\u90a3\u4e9b\u4e0d\u80fd\u76f4\u63a5\u4ece Ada \u4ee3\u7801\u4e2d\u770b\u51fa\u7684\u5185\u5bb9\uff1b\u5b83\u4eec\u4e0d\u5e94\u590d\u5236 Ada \u7684\u8bed\u6cd5\u6216\u8bed\u4e49\u3002\u6ce8\u91ca\u5e94\u5f53\u5e2e\u52a9\u8bfb\u8005\u638c\u63e1\u80cc\u666f\u6982\u5ff5\u548c\u4f9d\u8d56\u6761\u4ef6\uff0c\u7279\u522b\u662f\u590d\u6742\u7684\u6570\u636e\u7f16\u7801\u548c\u7b97\u6cd5\u3002\u6ce8\u91ca\u5e94\u5f53\u7a81\u51fa\u4e0e\u7f16\u7801\u6216\u8bbe\u8ba1\u6807\u51c6\u7684\u4e0d\u540c\u70b9\u3001\u53d7\u9650\u7279\u6027\u7684\u4f7f\u7528\u4ee5\u53ca\u7279\u6b8a\u7684 \u201c\u6280\u5de7\u201d\u3002\u5728\u6bcf\u4e2a\u4e3b\u8981\u7684 Ada \u6784\u9020\uff08\u5982\u5b50\u7a0b\u5e8f\u548c\u7a0b\u5e8f\u5305\uff09\u4e2d\uff0c\u7cfb\u7edf\u5730\u51fa\u73b0\u7684\u6ce8\u91ca\u6846\u6216\u8868\u5355\u5177\u6709\u4e00\u81f4\u6027\u548c\u63d0\u9192\u7a0b\u5e8f\u5458\u8bf4\u660e\u4ee3\u7801\u7684\u4f18\u70b9\uff0c\u4f46\u5b83\u4eec\u4e5f\u5e38\u5e38\u5e26\u6765\u91ca\u4e49\u4ee3\u7801\u7684\u98ce\u683c\u3002\u5bf9\u6bcf\u4e00\u884c\u6ce8\u91ca\uff0c\u7a0b\u5e8f\u5458\u90fd \u5e94\u80fd\u591f\u5f88\u597d\u5730\u56de\u7b54\uff1a\u201c\u52a0\u5165\u8fd9\u4e2a\u6ce8\u91ca\u6709\u4f55\u4ef7\u503c\uff1f\u201d<\/p>\n\u4e00\u4e2a\u8bef\u5bfc\u6216\u8005\u9519\u8bef\u7684\u6ce8\u91ca\u6bd4\u5b8c\u5168\u4e0d\u6ce8\u91ca\u8fd8\u7cdf\u3002\u7f16\u8bd1\u5668\u4e0d\u68c0\u67e5\u6ce8\u91ca\uff08\u9664\u975e\u5b83\u4eec\u8c61\u201cRational \u8bbe\u8ba1\u5de5\u5177\u201d\u90a3\u6837\u53c2\u4e0e\u4e86\u6b63\u5f0f\u7684 Ada \u8bbe\u8ba1\u8bed\u8a00 (ADL) \u6216\u8005\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00 (PDL)\uff09\u3002\u56e0\u6b64\uff0c\u6839\u636e\u5355\u70b9\u7ef4\u62a4\u539f\u5219\uff0c\u8bbe\u8ba1\u51b3\u5b9a\u5e94\u5728 Ada \u800c\u4e0d\u662f\u6ce8\u91ca\u4e2d\u8868\u8ff0\uff0c\u5373\u4f7f\u8fd9\u6837\u505a\u9700\u8981\u591a\u51e0\u4e2a\u58f0\u660e\u3002<\/p>\n
\u4f5c\u4e3a\u4e00\u4e2a\uff08\u5e76\u975e\u5f88\u597d\u7684\uff09\u4f8b\u5b50\u8003\u8651\u5982\u4e0b\u7684\u58f0\u660e\uff1a<\/p>\n
------------------------------------------------------------\r\n-- procedure Create\r\n------------------------------------------------------------\r\n--\r\nprocedure Create\r\n(The_Subscriber: in out Subscriber.Handle;\r\nWith_Name : in out Subscriber.Name);\r\n--\r\n-- Purpose: This procedure creates a subscriber with a given\r\n-- name.\r\n--\r\n-- Parameters: \r\n- The_Subscriber :mode in out, type Subscriber.Handle\r\n- It is the handle to the created subscriber\r\n- With_Name :mode in, type Subscriber.Name\r\n- The name of the subscriber to be created.\r\n- The syntax of the name is\r\n-- <letter> { <letter> | <digit> }\r\n-- Exceptions:\r\n-- Subscriber.Collection_Overflow when there is no more\r\n-- space to create a new subscriber\r\n-- Subscriber.Invalid_Name when the name is blank or\r\n-- malformed\r\n--\r\n-------------------------------------------- end Create ----<\/pre>\n\u4f8b\u5b50\u4e2d\u6709\u51e0\u70b9\u8981\u6307\u51fa\u6765\u3002<\/p>\n
\n- \u6709\u8bb8\u591a\u5197\u4f59\uff1a<\/li>\n<\/ul>\n
\n- – \u8fc7\u7a0b\u521b\u5efa (Procedure Create)\uff1a\u5982\u679c\u8981\u6539\u540d\uff0c\u6709\u51e0\u5904\u5730\u65b9\u9700\u8981\u4fee\u6539\uff1b\u7ecf\u5e38\u6027\u5730\u4fee\u6539\u6ce8\u91ca\uff0c\u7f16\u8bd1\u5668\u4e0d\u4f1a\u6267\u884c\u3002<\/dd>\n
- – \u6ce8\u91ca\u4e2d\u65e0\u9700\u91cd\u590d\u8bf4\u660e\u53c2\u6570\u540d\u3001\u6a21\u5f0f\u548c\u7c7b\u578b\u3002<\/dd>\n
- – \u8fd9\u91cc\u7ed9\u6bcf\u4e2a Ada \u5b9e\u4f53\u6240\u53d6\u7684\u540d\u5b57\u5f88\u597d\uff0c\u8fd9\u4f7f\u5f97\u529f\u80fd\u548c\u53c2\u6570\u89e3\u91ca\u53d8\u5f97\u591a\u4f59\u3002\u6ce8\u610f\uff0c\u8fd9\u4e00\u70b9\u53ea\u662f\u5bf9\u4e8e\u5982\u4e0a\u4f8b\u8fd9\u6837\u7684\u7b80\u5355\u7684\u5b50\u7a0b\u5e8f\u6765\u8bf4\u624d\u662f\u6b63\u786e\u7684\u3002\u5bf9\u4e8e\u66f4\u590d\u6742\u7684\u5b50\u7a0b\u5e8f\uff0c\u4ecd\u9700\u8981\u529f\u80fd\u548c\u53c2\u6570\u89e3\u91ca\u3002<\/dd>\n<\/dl>\n
\n- \u6846\u67b6\u52a0\u5165\u4e86\u592a\u591a\u7684\u5e72\u6270\uff0c\u9690\u85cf\u4e86\u5173\u952e\u9879\uff1a\u8fc7\u7a0b\u58f0\u660e\u3002\u53e6\u5916\uff0c\u53f3\u7aef\u7684\u5782\u76f4\u8fb9\u5f00\u59cb\u65f6\u770b\u4e0a\u53bb\u8fd8\u5f88\u6f02\u4eae\uff0c\u4f46\u5374\u4f7f\u4fee\u6539\u53d8\u5f97\u6781\u4e3a\u75db\u82e6\uff0c\u901a\u5e38\u51e0\u5e74\u7684\u7ef4\u62a4\u4e0b\u6765\uff0c\u4ee3\u7801\u6700\u540e\u5b8c\u5168\u4e0d\u5bf9\u9f50\u5e76\u4e14\u5343\u75ae\u767e\u5b54\u3002<\/li>\n
- \u76f8\u53cd\u7684\u662f\uff0c\u8fd9\u91cc\u5e94\u8bf4\u660e\u4ea7\u751f\u4e86\u4f55\u79cd\u5f02\u5e38\uff0c\u56e0\u4e3a\u82e5\u53ea\u8bfb\u89c4\u683c\u8bf4\u660e\uff0c\u8fd9\u4e00\u70b9\u5e76\u4e0d\u660e\u663e\u3002\u4f46\u6bcf\u4e2a\u5f02\u5e38\u7684\u51c6\u786e\u542b\u4e49\u5e94\u653e\u5728\u81ea\u8eab\u7684\u5f02\u5e38\u58f0\u660e\u5904\u3002<\/li>\n
- \u5e94\u8bf4\u660e\u53c2\u6570\u7684\u524d\u7f6e\u548c\u540e\u7f6e\u6761\u4ef6\uff0c\u5c24\u5176\u662f\u53c2\u6570\u95f4\u7684\u5173\u7cfb\u3002\u8fd9\u4e9b\u4e0d\u5e94\u4e0e\u5176\u5b83\u5730\u65b9\u53ef\u4ee5\u627e\u5230\u7684\u4fe1\u606f\u91cd\u590d\uff0c\u5982\u6709\u6548\u540d\u7684\u8bed\u6cd5\uff0c\u5b83\u53ea\u5e94\u5728\u4e00\u5904\u8bf4\u660e\u3002<\/li>\n<\/ul>\n
\u5728\u8fd9\u4e2a\u4f8b\u5b50\u4e2d\uff0c\u6700\u597d\u91c7\u7528\u5982\u4e0b\u66f4\u7b80\u6d01\u3001\u66f4\u6709\u7528\u7684\u65b9\u5f0f\uff1a<\/p>\n
procedure Create (The_Subscriber : in out Subscriber.Handle;\r\nWith_Name : in Subscriber.Name);--\r\n-Raises Subscriber.Collection_Overflow.\r\n-Raises Subscriber.Invalid_Name when the name is \r\nblank or malformed (see syntax description \r\nattached to declaration of type Subscriber.Name).<\/pre>\n<\/a>\u6ce8\u91ca\u7528\u6cd5\u6307\u5357<\/h2>\n\u6ce8\u91ca\u5e94\u653e\u5728\u76f8\u5173\u4ee3\u7801\u7684\u65c1\u8fb9\uff0c\u7f29\u8fdb\u540c\u6837\u7684\u5927\u5c0f\uff0c\u7d27\u9760\u7740\u4ee3\u7801 – \u5373\u7528\u7a7a\u7684\u6ce8\u91ca\u884c\u5728\u89c6\u89c9\u4e0a\u5c06\u6ce8\u91ca\u5757\u4e0e Ada \u6784\u9020\u6346\u5728\u4e00\u8d77\uff1a<\/p>\n
procedure First_One;\r\n--\r\n-- This comment relates to First_One.\r\n-- But this comment is for Second_One.\r\n-- \r\nprocedure Second_One (Times : Natural);<\/pre>\n\u7528\u7a7a\u884c\u5206\u9694\u76f8\u5173\u7684\u6e90\u7801\u5757\uff08\u6ce8\u91ca\u548c\u4ee3\u7801\uff09\uff0c\u800c\u4e0d\u7528\u7c97\u91cd\u7684\u6ce8\u91ca\u884c\uff0c\u5982\uff1a<\/p>\n
-------------------------------------------------------------<\/pre>\n\u6216\u8005\uff1a<\/p>\n
--===========================================================<\/pre>\n\u5728\u4e00\u4e2a\u6ce8\u91ca\u5757\u4e2d\uff0c\u4f7f\u7528\u7a7a\u6ce8\u91ca\u884c\u800c\u975e\u7a7a\u884c\u6765\u5206\u5272\u6ce8\u91ca\u6bb5<\/p>\n
-- Some explanation here that needs to be continued in a\r\n-- subsequent paragraph.\r\n--\r\n-- The empty comment line above makes it clear that we \r\n-- are dealing with a single comment block.<\/pre>\n\u867d\u7136\u6ce8\u91ca\u53ef\u4ee5\u653e\u5728\u76f8\u5173 Ada \u6784\u9020\u7684\u4e0a\u65b9\u6216\u4e0b\u65b9\uff0c\u4f46\u662f\u8981\u5c06\u4e00\u8282\u7684\u6807\u9898\u6216\u8005\u4e00\u4e2a\u8bf4\u660e\u51e0\u4e2a Ada \u6784\u9020\u7684\u4e3b\u8981\u4fe1\u606f\u653e\u5728\u6784\u9020\u7684\u4e0a\u65b9<\/em>\u3002\u5c06\u8bc4\u8ff0\u6216\u9644\u52a0\u4fe1\u606f\u7b49\u8fd9\u4e00\u7c7b\u7684\u6ce8\u91ca\u653e\u5728\u76f8\u5173 Ada \u6784\u9020\u7684\u4e0b\u65b9<\/em>\u3002<\/p>\n\u7528\u4e00\u9875\u7684\u6574\u884c\u5bbd\u5728 Ada \u6784\u9020\u7684\u5f00\u5934\u5904\u5206\u7ec4\u3002\u907f\u514d\u5c06\u6ce8\u91ca\u653e\u5728 Ada \u6784\u9020\u7684\u540c\u4e00\u884c\u3002\u8fd9\u4e9b\u6ce8\u91ca\u5e38\u5e38\u53d8\u5f97\u4e0d\u5bf9\u9f50\u3002\u4f46\u662f\u5728\u8bf4\u660e\u4e00\u4e2a\u957f\u7684\u58f0\u660e\u65f6\uff0c\u5982\u679a\u4e3e\u7c7b\u578b\u76f4\u63a5\u91cf\uff0c\u8fd9\u6837\u7684\u6ce8\u91ca\u65b9\u5f0f\u662f\u53ef\u4ee5\u5bb9\u8bb8\u7684\u3002<\/p>\n
\u7528\u4e00\u4e2a\u5c0f\u7684\u5206\u5c42\u6b21\u7684\u6807\u51c6\u6ce8\u91ca\u5757\u6765\u8bf4\u660e\u5c0f\u8282\u7684\u6807\u9898\uff0c\u4f46\u8fd9\u4ec5\u4ec5\u9002\u7528\u4e8e\u5f88\u5927\u7684 Ada \u5355\u5143\uff08>200 \u884c\u7684\u58f0\u660e\u6216\u8005\u8bed\u53e5\uff09\uff1a<\/p>\n
--===========================================================\r\n--\r\n \u4e3b\u6807\u9898\r\n--\r\n--===========================================================\r\n\r\n-------------------------------------------------------------\r\n \u526f\u6807\u9898\r\n-------------------------------------------------------------\r\n\r\n --------------------\r\n \u5b50\u90e8\u5206\u7684\u5934\r\n --------------------<\/pre>\n\u5728\u8fd9\u79cd\u6807\u9898\u524d\u9762\u6240\u653e\u7684\u7a7a\u884c\u6570\u8981\u591a\u4e8e\u540e\u9762\u7684\u7a7a\u884c\u6570\uff0c\u4f8b\u5982\uff0c\u4e24\u884c\u5728\u524d\u4e00\u884c\u5728\u540e\u3002\u8fd9\u6837\u4f7f\u6807\u9898\u4e0e\u968f\u540e\u7684\u6b63\u6587\u5728\u89c6\u89c9\u4e0a\u76f8\u8054\u7cfb\u3002<\/p>\n
\u907f \u514d\u4f7f\u7528\u542b\u6709\u4fe1\u606f\u7684\u51fd\u6570\u5934\uff0c\u6bd4\u5982\u4f5c\u8005\u3001\u7535\u8bdd\u3001\u521b\u5efa\u548c\u4fee\u6539\u65e5\u671f\u3001\u5355\u5143\uff08\u6216\u6587\u4ef6\u540d\uff09\u7684\u4f4d\u7f6e\uff0c\u56e0\u4e3a\u8fd9\u4e9b\u4fe1\u606f\u5f88\u5feb\u5c31\u4f1a\u8fc7\u65f6\u3002\u5c06\u6240\u6709\u8005\u7248\u6743\u4fe1\u606f\u653e\u5728\u5355\u5143\u7684\u672b\u5c3e\uff0c\u5c24\u5176\u662f \u4f7f\u7528\u201cRational \u73af\u5883\u201d\u65f6\u3002\u5f53\u8bbf\u95ee\u4e00\u4e2a\u7a0b\u5e8f\u5305\u7684\u89c4\u683c\u8bf4\u660e\u6e90\u7801\u65f6 – \u4f8b\u5982\u5728\u201cRational \u73af\u5883\u201d\u4e2d\u6309 [Definition] – \u8bfb\u8005\u4e0d\u60f3\u6d4f\u89c8\u4e24\u9875\u6216\u8005\u4e09\u9875\u5bf9\u7406\u89e3\u7a0b\u5e8f\u65e0\u4efb\u4f55\u7528\u5904\u7684\u6587\u672c\u548c\/\u6216\u5b8c\u5168\u4e0d\u5e26\u6709\u4efb\u4f55\u7a0b\u5e8f\u4fe1\u606f\u7684\u6587\u672c\u3002\u907f\u514d\u4f7f\u7528\u5782\u76f4\u6eda\u52a8\u6761\u3001\u5c01\u95ed\u56fe\u6587\u6846\u6216\u65b9\u6846\uff0c\u8fd9\u4e9b\u4e1c\u897f\u53ea\u4f1a\u589e\u52a0\u89c6\u89c9 \u5e72\u6270\uff0c\u800c\u4e14\u96be\u4ee5\u4fdd\u6301\u4e00\u81f4\u6027\u3002\u7528 Rational CMVC \u9644\u6ce8\uff08\u6216\u8005\u5176\u5b83\u5f62\u5f0f\u7684\u8f6f\u4ef6\u5f00\u53d1\u6587\u4ef6\uff09\u6765\u4fdd\u5b58\u5355\u5143\u5386\u53f2\u3002<\/p>\n
\u4e0d\u8981\u91cd\u590d\u53ef\u4ee5\u5728\u5176\u5b83\u5730\u65b9\u627e\u5230\u7684\u4fe1\u606f\uff1b\u4ec5\u63d0\u4f9b\u4e00\u4e2a\u6307\u5411\u8be5\u4fe1\u606f\u7684\u6307\u9488\u5373\u53ef\u3002<\/p>\n
\u5c3d \u91cf\u91c7\u7528 Ada\uff0c\u800c\u975e\u6ce8\u91ca\u3002\u8981\u5b9e\u73b0\u8fd9\u4e00\u70b9\uff0c\u4f60\u53ef\u9009\u62e9\u66f4\u597d\u7684\u540d\u5b57\u3001\u9644\u52a0\u4e34\u65f6\u53d8\u91cf\u3001\u9650\u5b9a\u3001\u91cd\u547d\u540d\u3001\u5b50\u7c7b\u578b\u3001\u9759\u6001\u8868\u8fbe\u5f0f\u548c\u5c5e\u6027\uff0c\u8fd9\u4e9b\u90fd\u4e0d\u5f71\u54cd\u751f\u6210\u7684\u4ee3\u7801\uff08\u81f3\u5c11\u5728\u4e00\u4e2a\u597d\u7684 \u7f16\u8bd1\u5668\u4e2d\u4e0d\u5f71\u54cd\uff09\u3002\u4f60\u4e5f\u53ef\u4ee5\u91c7\u7528\u5c0f\u7684\u3001\u5d4c\u5165\u5f0f\u7684\u8c13\u8bcd\u51fd\u6570\uff0c\u5e76\u5c06\u4ee3\u7801\u5206\u6210\u51e0\u4e2a\u65e0\u53c2\u8fc7\u7a0b\uff0c\u8fd9\u4e9b\u8fc7\u7a0b\u7684\u540d\u5b57\u63d0\u4f9b\u4e86\u4ee3\u7801\u51e0\u4e2a\u79bb\u6563\u90e8\u5206\u7684\u6807\u9898\u3002<\/p>\n
\u793a\u4f8b\uff1a<\/p>\n
\u5c06\uff1a<\/p>\n
exit when Su.Locate (Ch, Str) \/= 0; \r\n-- Exit search loop when found it.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
Search_Loop : loop<\/p>\n
Found_It := Su.Locate (Ch, Str) \/= 0;<\/p>\n
exit Search_Loop when Found_It<\/p>\n
end Search_Loop;<\/p>\n
\u5c06\uff1a<\/p>\n
if Value < 'A' or else Value > 'Z' then\r\n-- If not in uppercase letters.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
subtype Uppercase_Letters is Character range 'A' ..'Z';\r\nif Value not in Uppercase_Letters then ...<\/pre>\n\u5c06\uff1a<\/p>\n
X := Green; -- This is the Green from \r\n-- Status, not from Color.\r\nraise Fatal_Error; -- From package Outer_Scope.\r\ndelay 384.0; -- Equal to 6 minutes and 24 \r\n-- seconds.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
The_Status := Green;<\/pre>\nor:<\/p>\n
X := Status'(Green);\r\nraise Outer_Scope.Fatal_Error;\r\ndelay 6.0 * Minute + 24.0 * Second;<\/pre>\n\u5c06\uff1a<\/p>\n
if Is_Valid (The_Table (Index).Descriptor(Rank).all) then\r\n-- This is the current value for the iteration; if it is \r\n-- valid we append to the list it contains.\r\nAppend (Item, To_List => The_Table (Index).Descriptor(Rank).Ptr);|<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
declare\r\nCurrent_Rank : Lists.List renames The_Table \r\n(Index).Descriptor (Rank);\r\nbegin\r\nif Is_Valid (Current_Rank.all) then\r\nAppend (Item, To_List => Current_Rank.Ptr);\r\nend if;\r\nend;<\/pre>\n\u6ce8\u610f\u6ce8\u91ca\u4e2d\u7684\u98ce\u683c\u3001\u8bed\u6cd5\u548c\u62fc\u5199\u3002\u4e0d\u8981\u4f7f\u7528\u8c61\u7535\u62a5\u5bc6\u7801\u4e00\u822c\u7684\u98ce\u683c\u3002\u4f7f\u7528\u62fc\u5199\u68c0\u67e5\u3002\uff08\u5728\u201cRational \u73af\u5883\u201d\u4e2d\u8c03\u7528 Speller.Check_Image\uff09\u3002<\/p>\n
\u4e0d\u8981\u4f7f\u7528\u65b9\u8a00\u5b57\u6bcd\u6216\u8005\u5176\u5b83\u975e\u82f1\u6587\u5b57\u7b26\u3002\u6839\u636e Ada Issue AI-339\uff0c\u975e\u82f1\u6587\u5b57\u7b26\u53ef\u88ab\u4e00\u4e9b\u5f00\u53d1\u7cfb\u7edf\u652f\u6301\uff0c\u4e00\u4e9b Ada \u7f16\u8bd1\u5668\u4ec5\u5728\u6ce8\u91ca\u4e2d\u652f\u6301\u3002\u4f46\u8fd9\u662f\u4e0d\u53ef\u79fb\u690d\u7684\uff0c\u5f88\u6709\u53ef\u80fd\u5728\u5176\u5b83\u7cfb\u7edf\u4e0a\u5931\u6548\u3002<\/p>\n
\u5bf9\u4e8e\u5b50\u7a0b\u5e8f\uff0c\u81f3\u5c11\u8bf4\u660e\uff1a<\/p>\n
\n- \u5b50\u7a0b\u5e8f\u7684\u7528\u9014\uff0c\u4f46\u8fd9\u53ea\u662f\u5f53\u4ece\u5b83\u7684\u540d\u5b57\u4e2d\u4e0d\u80fd\u660e\u786e\u4e86\u89e3\u5176\u7528\u9014\u65f6<\/li>\n
- \u5728\u4f55\u79cd\u6761\u4ef6\u4e0b\u751f\u6210\u4e86\u4f55\u79cd\u5f02\u5e38<\/li>\n
- \u5982\u679c\u6709\u7684\u8bdd\uff0c\u53c2\u6570\u7684\u524d\u7f6e\u6216\u540e\u7f6e\u6761\u4ef6<\/li>\n
- \u5176\u4ed6\u6570\u636e\u8bbf\u95ee\uff0c\u7279\u522b\u662f\u5f53\u6570\u636e\u88ab\u4fee\u6539\u65f6\uff1b\u8fd9\u5c24\u5176\u5305\u62ec\u6709\u526f\u4f5c\u7528\u7684\u51fd\u6570<\/li>\n
- \u6b63\u786e\u4f7f\u7528\u5b50\u7a0b\u5e8f\u6240\u9700\u7684\u4efb\u4f55\u9650\u5236\u6216\u9644\u52a0\u4fe1\u606f<\/li>\n<\/ul>\n
\u5bf9\u4e8e\u7c7b\u578b\u548c\u5bf9\u8c61\uff0c\u8981\u8bf4\u660e\u6240\u6709\u4e0d\u80fd\u901a\u8fc7 Ada \u8868\u8fbe\u7684\u4e0d\u53d8\u91cf\u6216\u9644\u52a0\u7ea6\u675f\u3002<\/p>\n
\u907f\u514d\u6ce8\u91ca\u4e2d\u7684\u91cd\u590d\u3002\u4f8b\u5982\uff0c\u6709\u5173\u7528\u9014\u7684\u90e8\u5206\u5e94\u662f\u201c\u5b83\u505a\u4ec0\u4e48\uff1f\u201d\u8fd9\u4e2a\u95ee\u9898\u7684\u7b80\u5355\u56de\u7b54\uff0c\u800c\u4e0d\u662f\u201c\u5b83\u600e\u4e48\u505a\uff1f\u201d\u7684\u56de\u7b54\u3002\u6982\u8ff0\u5e94\u662f\u8bbe\u8ba1\u7684\u7b80\u77ed\u8868\u8fbe\u3002\u8bf4\u660e\u4e2d\u4e0d\u5e94\u63cf\u8ff0\u6240\u7528\u7684\u7b97\u6cd5\uff0c\u800c\u5e94\u89e3\u91ca\u7a0b\u5e8f\u5305\u5e94\u5982\u4f55\u4f7f\u7528\u3002<\/p>\n
\u6570\u636e\u7ed3\u6784\u548c\u7b97\u6cd5\u90e8\u5206\u5e94\u542b\u6709\u8db3\u591f\u7684\u4fe1\u606f\u6765\u5e2e\u52a9\u7406\u89e3\u4e3b\u8981\u7684\u5b9e\u73b0\u7b56\u7565\uff08\u4ee5\u4fbf\u6b63\u786e\u4f7f\u7528\u7a0b\u5e8f\u5305\uff09\uff0c\u4f46\u65e0\u9700\u5305\u542b\u6240\u6709\u7684\u5b9e\u73b0\u7ec6\u8282\u6216\u4e0e\u6b63\u786e\u4f7f\u7528\u5305\u6beb\u4e0d\u76f8\u5173\u7684\u4fe1\u606f\u3002<\/p>\n
\n<\/a>\u7b2c\u4e94\u7ae0<\/em><\/h2>\n\u547d\u540d\u7ea6\u5b9a<\/h1>\n\u6982\u8ff0<\/h2>\n
\u7ed9 Ada \u5b9e\u4f53\uff08\u7a0b\u5e8f\u5355\u5143\u3001\u7c7b\u578b\u3001\u5b50\u7c7b\u578b\u3001\u5bf9\u8c61\u3001\u76f4\u63a5\u91cf\u3001\u5f02\u5e38\uff09\u6307\u5b9a\u597d\u540d\u5b57\u662f\u6240\u6709\u8f6f\u4ef6\u5e94\u7528\u7a0b\u5e8f\u8981\u8868\u8ff0\u7684\u6700\u7cbe\u5de7\u7684\u4e8b\u60c5\u4e4b\u4e00\u3002\u4e2d\u7b49\u89c4\u6a21\u5230\u5927\u89c4\u6a21\u7684\u5e94\u7528\u7a0b\u5e8f\u5b58\u5728\u7740\u53e6\u4e00\u4e2a\u95ee \u9898\uff1a\u540d\u5b57\u95f4\u7684\u51b2\u7a81\uff0c\u6216\u662f\u8981\u627e\u5230\u8db3\u591f\u7684\u540c\u4e49\u8bcd\u6765\u6307\u4ee3\u76f8\u540c\u73b0\u5b9e\u4e16\u754c\u4e2d\u76f8\u4f3c\u4f46\u53c8\u6709\u522b\u7684\u6982\u5ff5\uff08\u6216\u662f\u547d\u540d\u4e00\u4e2a\u7c7b\u578b\u3001\u5b50\u7c7b\u3001\u5bf9\u8c61\u3001\u53c2\u6570\uff09\u3002\u8fd9\u91cc\u53ef\u5229\u7528\u4e0d\u91c7\u7528\u201cuse\u201d \u5b50\u53e5\uff08\u6216\u53ea\u5728\u6781\u4e3a\u53d7\u9650\u7684\u6761\u4ef6\u4e0b\u91c7\u7528\uff09\u7684\u6cd5\u5219\u3002\u5728\u8bb8\u591a\u60c5\u5f62\u4e0b\uff0c\u8fd9\u4f7f\u5f97\u53ef\u4ee5\u4e0d\u5192\u6df7\u6dc6\u7684\u98ce\u9669\u800c\u7f29\u77ed\u540d\u5b57\uff0c\u5e76\u590d\u7528\u76f8\u540c\u7684\u63cf\u8ff0\u8bcd\u3002<\/p>\n
\u9009\u62e9\u6e05\u6670\u7684\u3001\u6613\u8bfb\u7684\u3001\u6709\u610f\u4e49\u7684\u540d\u79f0\u3002<\/p>\n
\u4e0e\u5176\u5b83\u7684\u7f16\u7a0b\u8bed\u8a00\u4e0d\u540c\uff0cAda \u4e0d\u5c06\u6807\u8bc6\u7b26\u7684\u957f\u5ea6\u9650\u5236\u5728 6\uff0c8 \u6216\u8005 15 \u4e2a\u5b57\u7b26\u5185\u3002\u77ed\u540d\u5b57\u6253\u5b57\u901f\u5ea6\u5feb\u4e0d\u662f\u91c7\u7528\u5b83\u4eec\u7684\u53ef\u4ee5\u4e3a\u4eba\u63a5\u53d7\u7684\u7406\u7531\u3002\u53ea\u6709\u4e00\u4e2a\u5b57\u6bcd\u7684\u6807\u8bc6\u7b26\u901a\u5e38\u8bf4\u660e\u9009\u62e9\u4e0d\u5f53\u6216\u662f\u61d2\u60f0\u3002\u53ef\u80fd\u6709\u51e0\u4e2a\u4f8b\u5916\uff0c\u5982\u5c06 E \u4f5c\u4e3a\u81ea\u7136\u5bf9\u6570\u7684\u5e95\uff0cPi\uff0c\u4ee5\u53ca\u5176\u5b83\u5c11\u6570\u51e0\u4e2a\u6613\u8fa8\u8bc6\u7684\u60c5\u51b5\u3002<\/p>\n
\u7528\u4e0b\u5212\u7ebf\u5c06\u4e00\u4e2a\u540d\u5b57\u4e2d\u7684\u4e0d\u540c\u5355\u8bcd\u5206\u9694\u5f00\u6765\uff1a<\/p>\n
Is_Name_Valid<\/code> \u4e0d\u662f IsNameValid<\/code><\/p>\n\u91c7\u7528\u5168\u540d\u800c\u4e0d\u662f\u7f29\u5199\u3002<\/p>\n
\u53ea\u91c7\u7528\u9879\u76ee\u8ba4\u53ef\u7684\u7f29\u7565\u8bcd\u3002<\/p>\n
\u53ea\u80fd\u662f\u5728\u4e24\u79cd\u60c5\u51b5\u4e4b\u4e00\u65f6\u91c7\u7528\u7f29\u5199\uff1a\u8be5\u7f29\u5199\u5728\u5e94\u7528\u9886\u57df\u4e2d\u5f88\u666e\u904d\uff08\u5982 FFT \u4ee3\u8868\u5085\u7acb\u53f6\u53d8\u6362\uff09\u6216\u8005\u6765\u81ea\u516c\u8ba4\u7f29\u5199\u7684\u9879\u76ee\u7ea7\u5217\u8868\u3002\u5426\u5219\uff0c\u5f88\u6709\u53ef\u80fd\u4f7f\u76f8\u4f3c\u4f46\u4e0d\u76f8\u540c\u7684\u7f29\u5199\u5230\u5904\u51fa\u73b0\uff0c\u5bfc\u81f4\u4ee5\u540e\u7684\u6df7\u6dc6\u548c\u9519\u8bef\uff08\u5982\u5c06 track_identification \u7f29\u5199\u6210 trid\u3001trck_id\u3001tr_iden\u3001tid\u3001tr_ident\u7b49\uff09\u3002<\/p>\n
\u5c11\u7528\u540e\u7f00\u8bf4\u660e Ada \u6784\u9020\u7684\u5206\u7c7b\u3002\u5b83\u4eec\u4e0d\u80fd\u63d0\u9ad8\u6613\u8bfb\u6027\u3002<\/p>\n
\u901a\u5e38\u6309\u7167 Ada \u5b9e\u4f53\u7684\u7c7b\u6765\u52a0\u540e\u7f00\uff0c\u5982\u7ed9\u7a0b\u5e8f\u5305\u52a0\u4e0a _Package\uff0c\u5f02\u5e38\u52a0\u4e0a _Error\uff0c\u7c7b\u578b\u52a0\u4e0a _Type\uff0c\u4ee5\u53ca\u5b50\u7a0b\u5e8f\u7684\u53c2\u6570\u52a0\u4e0a _Param\uff0c\u5bf9\u5e2e\u52a9\u9605\u8bfb\u548c\u7406\u89e3\u4ee3\u7801\u4e0d\u662f<\/em>\u5f88\u6709\u6548\u3002 \u800c\u52a0\u4e0a\u5982 _Array\uff0c_Record \u548c _Function \u8fd9\u6837\u7684\u540e\u7f00\u5219\u66f4\u7cdf\u3002Ada \u7f16\u8bd1\u5668\u548c\u8bfb\u8005\u90fd\u53ef\u4ee5\u6839\u636e\u4e0a\u4e0b\u6587\u4ece\u5b50\u7a0b\u5e8f\u4e2d\u5206\u8fa8\u4e00\u4e2a\u5f02\u5e38\uff1a\u663e\u7136\u53ea\u6709\u5f02\u5e38\u540d\u53ef\u4ee5\u5728 raise<\/em> \u8bed\u53e5\u6216\u5f02\u5e38\u5904\u7406\u4e2d\u51fa\u73b0\u3002\u8fd9\u4e9b\u540e\u7f00\u5728\u5982\u4e0b\u53d7\u9650\u7684\u6761\u4ef6\u4e0b\u53ef\u7528\uff1a<\/p>\n\n- \u5f53\u5408\u9002\u7684\u8bcd\u7684\u9009\u62e9\u8303\u56f4\u975e\u5e38\u6709\u9650\u65f6\uff0c\u7ed9\u5bf9\u8c61\u9009\u4e00\u4e2a\u6700\u597d\u7684\u540d\u5b57\u5e76\u52a0\u4e0a\u7c7b\u578b\u7684\u540e\u7f00\u3002<\/li>\n
- \u5bf9\u4e8e\u7c7b\u5c5e\u5355\u5143,\u603b\u53ef\u4ee5\u52a0\u4e0a\u5f62\u5982 _Generic \u7684\u540e\u7f00\uff0c\u6240\u4ee5\u5bf9\u4e00\u4e9b\u6216\u8bb8\u591a\u5b9e\u4f8b\u6765\u8bf4\uff0c\u53ef\u4ee5\u4e0d\u6dfb\u52a0\u8be5\u540e\u7f00\u800c\u4f7f\u7528\u4e0e\u5176\u76f8\u540c\u7684\u540d\u5b57\u3002<\/li>\n
- \u5f53\u5b83\u8868\u793a\u4e00\u4e2a\u5e94\u7528\u9886\u57df\u7684\u6982\u5ff5\u65f6\uff0c\u5982 Aircraft_Type\u3002<\/li>\n
- \u5f53\u91cd\u8981\u7684\u8bbe\u8ba1\u51b3\u7b56\u9700\u9ad8\u5ea6\u53ef\u89c1\u65f6\uff1a<\/li>\n<\/ul>\n
\u7c7b\u5c5e\u5f62\u53c2\u7c7b\u578b\u540e\u7f00\u4e3a _Constrained<\/p>\n
\u540e\u7f00\u4e3a _Pointer \u7684\u5b58\u53d6\u7c7b\u578b\u6216\u5176\u5b83\u975e\u76f4\u63a5\u6307\u4ee3\u7684\u5f62\u5f0f\uff1a_Handle \u6216 _Reference<\/p>\n
\u901a\u8fc7 _Or_Wait \u9690\u85cf\u4e86\u53ef\u80fd\u963b\u585e\u7684\u5165\u53e3\u8c03\u7528\u7684\u5b50\u7a0b\u5e8f<\/p>\n
\u5c06\u540d\u5b57\u8868\u8ff0\u51fa\u6765\uff0c\u4f7f\u5f97\u4ece\u4f7f\u7528<\/em>\u7684\u89d2\u5ea6\u770b\uff0c\u5b83\u4eec\u8fd8\u4e0d\u9519\u3002<\/p>\n\u8bd5\u60f3\u4e00\u4e2a\u5bfc\u51fa\u5b9e\u4f53\u53ef\u5728\u5176\u4e2d\u4f7f\u7528\u7684\u4e0a\u4e0b\u6587\uff0c\u5e76\u7ad9\u5728\u90a3\u4e2a\u89d2\u5ea6\u9009\u62e9\u4e00\u4e2a\u540d\u5b57\u3002\u4e00\u4e2a\u5b9e\u4f53\u4ec5\u88ab\u5b9a\u4e49\u4e00\u6b21\uff0c\u4f46\u5374\u88ab\u4f7f\u7528\u8bb8\u591a\u6b21\u3002\u8fd9\u4e00\u70b9\u5bf9\u4e8e\u5b50\u7a0b\u5e8f\u7684\u540d\u5b57\u53ca\u5176\u53c2\u6570\u6765\u8bf4\u5c24\u4e3a\u6b63\u786e\uff1b \u4f7f\u7528\u547d\u540d\u5173\u8054\u5173\u7cfb\u7684\u7ed3\u679c\u8c03\u7528\u5e94\u5c3d\u91cf\u4e0e\u81ea\u7136\u8bed\u8a00\u76f8\u8fd1\u3002\u8bb0\u4f4f\u7f3a\u5c11\u4f7f\u7528<\/em>\u5b50\u53e5\u4f7f\u5f97\u5927\u591a\u6570\u58f0\u660e\u5b9e\u4f53\u5fc5\u987b\u5177\u6709\u53d7\u9650\u540d\u3002\u5bf9\u4e8e\u6709\u53ef\u80fd\u5728\u7c7b\u5c5e\u5355\u5143\u4e2d\u6bd4\u5728\u4eab\u7528\u6a21\u5757\u90a3\u91cc\u4f7f\u7528\u5f97\u8fd8\u591a\u7684\u7c7b\u5c5e\u5f62\u53c2\u6765\u8bf4\uff0c\u5fc5\u987b\u5bfb\u627e\u4e00\u4e2a\u597d\u7684\u534f\u8c03\u529e\u6cd5\uff0c\u4f46\u662f\u7edd\u5bf9\u8981\u4fdd\u8bc1\u5b50\u7a0b\u5e8f\u7684\u5f62\u53c2\u5728\u4eab\u7528\u6a21\u5757\u7aef\u597d\u770b\u3002<\/p>\n\u4f7f\u7528\u82f1\u6587\u5355\u8bcd\u5e76\u62fc\u5199\u6b63\u786e\u3002<\/p>\n
\u8bed\u8a00\u7684\u6df7\u5408\uff08\u5982\u6cd5\u8bed\u548c\u82f1\u8bed\uff09\u5c06\u4f7f\u4ee3\u7801\u96be\u8bfb\uff0c\u6709\u65f6\u4f7f\u6807\u8bc6\u7b26\u7684\u610f\u4e49\u6478\u68f1\u4e24\u53ef\u3002 \u65e2\u7136 Ada \u7684\u5173\u952e\u5b57\u5df2\u662f\u82f1\u6587\u7684\uff0c\u5219\u8981\u6c42\u4f7f\u7528\u82f1\u6587\u5355\u8bcd\u3002\u6700\u597d\u91c7\u7528\u7f8e\u5f0f\u62fc\u6cd5\uff0c\u4ee5\u4fbf\u5229\u7528\u201cRational \u73af\u5883\u201d\u4e2d\u5185\u7f6e\u7684\u62fc\u5199\u68c0\u67e5\u3002<\/p>\n
\u4e0d\u8981\u91cd\u65b0\u5b9a\u4e49 Standard \u7a0b\u5e8f\u5305\u4e2d\u7684\u4efb\u4f55\u5b9e\u4f53\u3002\u8fd9\u662f\u7edd\u5bf9\u7981\u6b62\u7684\u3002<\/p>\n
\u8fd9\u6837\u505a\u5c06\u4ea7\u751f\u6df7\u6dc6\u548c\u4e25\u91cd\u7684\u9519\u8bef\u3002\u8be5\u6cd5\u5219\u53ef\u5ef6\u4f38\u81f3\u5176\u5b83\u9884\u5b9a\u4e49\u7684\u5e93\u5355\u5143\uff1aCalendar\uff0cSystem\u3002\u8fd9\u4e5f\u5305\u62ec Standard<\/em> \u6807\u8bc6\u7b26\u672c\u8eab\u3002<\/p>\n\u907f\u514d\u5bf9\u5176\u5b83\u9884\u5b9a\u4e49\u7a0b\u5e8f\u5305\u4e2d\u7684\u6807\u8bc6\u7b26\u91cd\u5b9a\u4e49\uff0c\u5982 System \u6216 Calendar\u3002<\/p>\n
\u4e0d\u8981\u4f7f\u7528\u5982\u4e0b\u7684\u6807\u8bc6\u7b26\uff1aWide_Character<\/strong> \u548c Wide_String<\/strong>\uff0c\u5b83\u4eec\u5c06\u5728 Ada 95 \u7684 Standard \u7a0b\u5e8f\u5305\u4e2d\u5f15\u5165\u3002\u4e0d\u8981\u5f15\u5165\u4e00\u4e2a\u540d\u4e3a Ada<\/strong> \u7684\u7f16\u8bd1\u5355\u5143\u3002<\/p>\n\u4e0d\u8981\u4f7f\u7528\u4ee5\u4e0b\u5355\u8bcd\u4f5c\u4e3a\u6807\u8bc6\u7b26\uff1aabstract<\/strong>\uff0caliased<\/strong>\uff0cprotected<\/strong>\uff0crequeue<\/strong>\uff0ctagged<\/strong> \u548c until<\/strong>\uff0c\u5b83\u4eec\u5728 Ada 95 \u5c06\u6210\u4e3a\u5173\u952e\u5b57\u3002<\/p>\n\u4e00\u4e9b\u7ed9\u5404\u79cd Ada \u5b9e\u4f53\u7684\u547d\u540d\u5efa\u8bae\u4e5f\u662f\u540c\u6837\u3002\u5047\u5b9a\u4e00\u822c\u60c5\u5f62\u4e0b\uff0c\u201c\u9762\u5411\u5bf9\u8c61\u201d\u98ce\u683c\u7684\u8bbe\u8ba1\u53d7\u6b22\u8fce\u3002\u8be6\u60c5\u8bf7\u53c2\u89c1\u9644\u5f55 A\u3002<\/p>\n
<\/a>\u7a0b\u5e8f\u5305<\/h2>\n\u5f53\u4e00\u4e2a\u7a0b\u5e8f\u5305\u5f15\u5165\u4e86\u67d0\u4e2a\u5bf9\u8c61\u7c7b\u65f6\uff0c\u7528\u8be5\u5bf9\u8c61\u7c7b\u7684\u540d\u5b57\u547d\u540d\u7a0b\u5e8f\u5305\uff0c\u901a\u5e38\u662f\u4e00\u4e2a\u5355\u6570\u5f62\u5f0f\u7684\u540d\u8bcd\uff0c\u82e5\u9700\u8981\uff08\u5373\u5b9a\u4e49\u4e86\u4e00\u4e2a\u5e26\u53c2\u6570\u7684\u7c7b\uff09\uff0c\u53ef\u52a0\u4e0a\u540e\u7f00 _Generic\u3002\u4ec5\u5f53\u5bf9\u8c61\u603b\u4ee5\u7fa4\u4f53\u5f62\u5f0f\u51fa\u73b0\u65f6\uff0c\u624d\u91c7\u7528\u590d\u6570\u5f62\u5f0f\u3002\u4f8b\u5982\uff1a<\/p>\n
package Text is\r\npackage Line is\r\npackage Mailbox is\r\npackage Message is\r\npackage Attributes is\r\npackage Subscriber is\r\npackage List_Generic is<\/pre>\n\u82e5\u4e00\u4e2a\u7a0b\u5e8f\u5305\u8bf4\u660e\u4e86\u4e00\u4e2a\u63a5\u53e3\u6216\u8005\u529f\u80fd\u5206\u7ec4\uff0c\u5e76\u4e14\u5b83\u4e0d\u4e0e\u4efb\u4f55\u5bf9\u8c61\u76f8\u5173\uff0c\u5219\u5e94\u5728\u5b83\u7684\u540d\u5b57\u4e2d\u5c06\u8fd9\u4e00\u70b9\u8868\u8ff0\u51fa\u6765\uff1a<\/p>\n
package Low_Layer_Interface is\r\npackage Math_Definitions is<\/pre>\n\u5f53\u4e00\u4e2a\u201c\u903b\u8f91\u201d\u5305\u7528\u5e73\u9762\u5206\u89e3 (flat decomposition)\uff0c\u9700\u8981\u4f5c\u4e3a\u51e0\u4e2a\u5305\u6765\u8868\u8fbe\u65f6\uff0c\u91c7\u7528\u9879\u76ee\u7ea7\u4e00\u81f4\u7684\u5217\u8868\u4e2d\u7684\u540e\u7f00\u3002\u4f8b\u5982\uff0c\u4e00\u4e2a\u903b\u8f91\u7a0b\u5e8f\u5305 Mailbox \u53ef\u5982\u4e0b\u5b9e\u73b0\uff1a<\/p>\n
package Mailbox_Definitions is\r\npackage Mailbox_Exceptions is\r\npackage Mailbox_Io is\r\npackage Mailbox_Utilities is\r\npackage Mailbox_Implementation is\r\npackage Mailbox_Main is<\/pre>\n\u5176\u5b83\u53ef\u63a5\u53d7\u7684\u540e\u7f00\u6709\uff1a<\/p>\n
_Test_Support \r\n_Test_Main \r\n_Log \r\n_Hidden_Definitions \r\n_Maintenance \r\n_Debug<\/pre>\n<\/a>\u7c7b\u578b<\/h2>\n\u5f53\u5728\u7a0b\u5e8f\u5305\u4e2d\u5b9a\u4e49\u4e00\u4e2a\u5bf9\u8c61\u7c7b\u8574\u6db5\u62f7\u8d1d\u8bed\u4e49\u65f6 – \u5373\u5f53\u7c7b\u578b\u53ef\u5b9e\u4f8b\u5316\u5e76\u4e14\u67d0\u79cd\u5f62\u5f0f\u7684\u4efb\u52a1\u5206\u914d\u53ef\u884c\u65f6\uff0c\u91c7\u7528\uff1a<\/p>\n
type Object is ...<\/pre>\n\u6ce8\u610f\u7c7b\u540d\u4e0d\u5e94\u5728\u6807\u8bc6\u7b26\u4e2d\u91cd\u590d\uff0c\u56e0\u4e3a\u5b83\u603b\u662f\u4ee5\u5b8c\u5168\u53d7\u9650\u7684\u5f62\u5f0f\u4f7f\u7528\uff1a<\/p>\n
Mailbox.Object\r\nLine.Object<\/pre>\n\u5f53\u5305\u542b\u5171\u4eab\u8bed\u4e49\u65f6 – \u5373\u7c7b\u578b\u7528\u5b58\u53d6\u503c\uff08\u6216\u8005\u5176\u5b83\u975e\u76f4\u63a5\u7684\u5f62\u5f0f\uff09\u5b9e\u73b0\uff0c\u5e76\u4e14\u8d4b\u503c\u8bed\u53e5\uff08\u82e5\u5b58\u5728\uff09\u4e0d\u590d\u5236\u5bf9\u8c61 – \u7528\u5982\u4e0b\u65b9\u5f0f\u8bf4\u660e\uff1a<\/p>\n
UL><\/p>\n
\ntype Handle is <\/code>\u7528\u4e8e\u975e\u76f4\u63a5\u5f15\u7528<\/li>\ntype Reference is <\/code>\u662f\u4e00\u4e2a\u53ef\u884c\u7684\u5907\u7528\u65b9\u6848<\/li>\n<\/ul>\n\u8fd9\u4e9b\u5143\u7d20\u5728\u5355\u72ec\u4f7f\u7528\u65f6\u4f5c\u540e\u7f00\uff0c\u524d\u9762\u52a0\u4e0a\u5305\u540d\uff0c\u8fd9\u6837\u5e76\u4e0d\u6e05\u695a\u6216\u975e\u5e38\u6478\u68f1\u4e24\u53ef\u3002<\/p>\n
\u5f53\u8574\u6db5\u591a\u4e2a\u5bf9\u8c61\u65f6\uff0c\u91c7\u7528\uff1a<\/p>\n
\ntype Set is <\/code>\u5f53\u6697\u542b\u5143\u7d20\u7684\u7279\u6b8a\u6027\u65f6<\/li>\ntype List is <\/code>\u5f53\u5305\u542b\u67d0\u79cd\u6b21\u5e8f\u65f6<\/li>\ntype Collection is<\/code> \u5f53\u65e2\u4e0d\u542b\u96c6\u5408\u4e5f\u4e0d\u542b\u5217\u8868\u8bed\u4e49\u65f6<\/li>\ntype Iterator is<\/code> \u5f53\u63d0\u4f9b\u4e86 Initialize\uff0cValue_Of\uff0cNext\uff0cIs_Done \u7b49\u539f\u8bed\u65f6
\n\uff08\u53c2\u89c1 6.5 \u8282\uff09<\/li>\n<\/ul>\n\u5bf9\u4e8e\u67d0\u4e2a\u5bf9\u8c61\u4e32\u7684\u6307\u5b9a\uff0c\u91c7\u7528\uff1a<\/p>\n
type Name is<\/code><\/p>\n\u4e3a\u4e86\u8fbe\u5230\u66f4\u597d\u7684\u6613\u8bfb\u6027\uff0c\u7c7b\u578b\u7684\u53d7\u9650\u540d\u4e5f\u5e94\u5728\u6574\u4e2a\u5b9a\u4e49\u5305\u5185\u4f7f\u7528\u3002\u201cRational \u73af\u5883\u201d\u4e2d\uff0c\u5f53\u5728\u5b50\u7a0b\u5e8f\u8c03\u7528\u4e2d\u91c7\u7528 [Complete] \u51fd\u6570\u65f6\uff0c\u4e0a\u8ff0\u65b9\u6cd5\u4e5f\u53ef\u4f7f\u8fd0\u884c\u66f4\u52a0\u597d\u3002<\/p>\n
\u4f8b\u5982\uff0c\u6ce8\u610f\u4e0b\u9762\u7684\u5b8c\u5168\u540d Subscriber.Object\uff1a<\/p>\n
package Subscriber is\r\ntype Object is private;\r\ntype Handle is access Subscriber.Object;\r\nsubtype Name is String;\r\npackage List is new List_Generic (Subscriber.Handle);\r\nMaster_List : Subscriber.List.Handle;\r\nprocedure Create (The_Handle : out Subscriber.Handle;\r\nWith_Name : in Subscriber.Name);\r\nprocedure Append (The_Subscriber : in Subscriber.Handle;\r\nTo_List : in out Subscriber.List.Handle);\r\nfunction Name_Of (The_Subscriber : Subscriber.Handle) return\r\nSubscriber.Name;\r\n ...\r\nprivate\r\ntype Object is\r\nrecord\r\nThe_Name : Subscriber.Name (1..20);\r\n ...\r\nend Subscriber;<\/pre>\n\u5728\u5176\u5b83\u60c5\u51b5\u4e0b\uff0c\u7c7b\u540d\u91c7\u7528\u540d\u8bcd\u6216\u8005\u4fee\u9970\u7b26 + \u540d\u8bcd\u3002\u7c7b\u578b\u53ef\u7528\u590d\u6570\u5f62\u5f0f\uff0c\u5bf9\u8c61\uff08\u53d8\u91cf\uff09\u540d\u91c7\u7528\u5355\u6570\uff1a<\/p>\n
type Point is record ...\r\ntype Hidden_Attributes is ( ...\r\ntype Boxes is array ...<\/pre>\n\u5bf9\u4e8e\u679a\u4e3e\u7c7b\u578b\uff0c\u5355\u72ec\u6216\u8005\u4f5c\u4e3a\u540e\u7f00\u4f7f\u7528 Mode\uff0cKind\uff0cCode \u7b49\u5355\u8bcd\u3002<\/p>\n
\u5bf9\u4e8e\u6570\u7ec4\u7c7b\u578b\uff0c\u5f53\u5df2\u5c06\u7b80\u5355\u540d\u7528\u4e8e\u7ec4\u4ef6\u7c7b\u578b\u65f6\uff0c\u53ef\u4ee5\u91c7\u7528\u540e\u7f00 _Table\u3002\u4ec5\u5f53\u6570\u7ec4\u7528\u8574\u6db5\u8bed\u4e49\u6765\u7ef4\u62a4\u65f6\uff0c\u624d\u91c7\u7528\u8c61 _Set \u548c _List \u8fd9\u6837\u7684\u540d\u5b57\u6216\u540e\u7f00\u3002Reserve _Vector \u548c _Matrix \u5e94\u7559\u4f5c\u76f8\u5e94\u7684\u6570\u5b66\u6982\u5ff5\u4f7f\u7528\u3002<\/p>\n
\u56e0\u4e3a\u8981\u907f\u514d\u5355\u6570\u7684\u4efb\u52a1\u5bf9\u8c61\uff08\u539f\u56e0\u5728\u540e\u6587\u89e3\u91ca\uff09\uff0c\u6240\u4ee5\u5373\u4f7f\u53ea\u6709\u4e00\u4e2a\u8be5\u7c7b\u578b\u7684\u5bf9\u8c61\u65f6\uff0c\u4e5f\u5e94\u5f15\u5165\u4efb\u52a1\u7c7b\u578b\u3002\u4e0b\u9762\u662f\u4f7f\u7528\u4e86\u4e00\u4e2a\u8c61 _Type \u8fd9\u6837\u7684\u7b80\u5355\u540e\u7f00\u4e4b\u540e\u4fbf\u4ee4\u4eba\u6ee1\u610f\u7684\u4f8b\u5b50\uff1a<\/p>\n
task type Listener_Type is ...\r\nfor Listener_Type'Storage_Size use ...\r\nListener : Listener_Type;<\/pre>\n\u7c7b\u4f3c\u5730\uff0c\u5f53\u7c7b\u578b\u540d\u91c7\u7528\u540d\u8bcd\uff08\u6216\u8005\u540d\u8bcd\u77ed\u8bed\uff09\u5b58\u5728\u51b2\u7a81\u65f6\uff0c\u6216\u8005\u51e0\u5904\u7684\u5bf9\u8c61\u540d\u6216\u53c2\u6570\u540d\u6709\u51b2\u7a81\u65f6\uff0c\u5728\u8be5\u7c7b\u578b\u540d\u540e\u52a0\u4e0a\u540e\u7f00 _Kind\uff0c\u800c\u8ba9\u5bf9\u8c61\u4f7f\u7528\uff08\u65e0\u540e\u7f00\u7684\uff09\u7b80\u5355\u540d\u8bcd\uff1a<\/p>\n
type Status_Kind is (None, Normal, Urgent, Red);\r\nStatus : Status_Kind := None;<\/pre>\n\u6216\u8005\uff0c\u5bf9\u4e8e\u603b\u4ee5\u590d\u6570\u51fa\u73b0\u7684\u4e8b\u7269\u7684\u7c7b\u578b\uff0c\u91c7\u7528\u590d\u6570\u5f62\u5f0f\u3002<\/p>\n
\u56e0\u4e3a\u5b58\u53d6\u7c7b\u578b\u5b58\u5728\u56fa\u6709\u7684\u5371\u5bb3\uff0c\u6240\u4ee5\u4f7f\u7528\u8005\u5e94\u5c0f\u5fc3\u3002\u4e00\u822c\u5b83\u4eec\u53eb\u505a Pointer\u3002\u5982\u679c\u540d\u5b57\u672c\u8eab\u610f\u4e49\u8fd8\u5f88\u6478\u68f1\u4e24\u53ef\uff0c\u5219\u5e94\u52a0\u4e0a\u540e\u7f00 _pointer\u3002\u4f5c\u4e3a\u540e\u5907\u65b9\u6848\uff0c\u4e5f\u53ef\u91c7\u7528 _Access \u505a\u540e\u7f00\u3002<\/p>\n
\u6709\u65f6\u91c7\u7528\u5d4c\u5957\u5b50\u7a0b\u5e8f\u5305\u6765\u5f15\u5165\u6b21\u7ea7\u62bd\u8c61\u53ef\u4ee5\u7b80\u5316\u547d\u540d\uff1a<\/p>\n
package Subscriber is ...\r\npackage Status is\r\ntype Kind is (Ok, Deleted, Incomplete, Suspended, \r\nPrivileged);\r\nfunction Set (The_Status : Subscriber.Status.Kind;\r\nTo_Subscriber : Subscriber.Handle);\r\nend Status;\r\n ...<\/pre>\n<\/a>\u5f02\u5e38<\/h2>\n\u56e0\u4e3a\u5f02\u5e38\u53ea\u80fd\u7528\u6765\u5904\u7406\u9519\u8bef\uff0c\u6240\u4ee5\u5e94\u4f7f\u7528\u540d\u8bcd\u6216\u540d\u8bcd\u77ed\u8bed\u6765\u6e05\u695a\u8868\u8fbe\u4e00\u4e2a\u8d1f\u9762\u7684\u610f\u4e49\uff1a<\/p>\n
Overflow, Threshold_Exceeded, Bad_Initial_Value<\/pre>\n\u5f53\u5728\u4e00\u4e2a\u7c7b\u7a0b\u5e8f\u5305\u4e2d\u5b9a\u4e49\u5f02\u5e38\u65f6\uff0c\u6807\u8bc6\u7b26\u65e0\u9700\u5305\u542b\u7c7b\u540d – \u4f8b\u5982 Bad_Initial_Subscriber_Value – \u56e0\u4e3a\u5f02\u5e38\u4e00\u76f4\u88ab\u7528\u4f5c Subscriber.Bad_Initial_Value\u3002<\/p>\n
\u91c7\u7528 Bad\uff0cIncomplete\uff0cInvalid\uff0cWrong\uff0cMissing \u6216\u8005 Illegal \u4e2d\u7684\u4e00\u4e2a\u5355\u8bcd\u4f5c\u4e3a\u540d\u5b57\u7684\u4e00\u90e8\u5206\uff0c\u800c\u4e0d\u662f\u7cfb\u7edf\u5730\u91c7\u7528\u4e0d\u4f20\u8fbe\u4efb\u4f55\u8be6\u7ec6\u4fe1\u606f\u7684 Error\uff1a<\/p>\n
Illegal_Data, Incomplete_Data<\/pre>\n<\/a>\u5b50\u7a0b\u5e8f<\/h2>\n\u8fc7\u7a0b\uff08\u548c\u4efb\u52a1\u5165\u53e3\uff09\u91c7\u7528\u52a8\u8bcd\u3002\u51fd\u6570\u540d\u91c7\u7528\u5e26\u6709\u5bf9\u8c61\u7c7b\u5c5e\u6027\u6216\u7279\u5f81\u7684\u540d\u8bcd\u3002\u8fd4\u56de\u5e03\u5c14\u503c\uff08\u8c13\u8bcd\uff09\u7684\u51fd\u6570\u4f7f\u7528\u5f62\u5bb9\u8bcd\uff08\u6216\u8fc7\u53bb\u5206\u8bcd\uff09\u3002<\/p>\n
Subscriber.Create\r\nSubscriber.Destroy\r\nSubscriber.List.Append\r\nSubscriber.First_Name -- Returns a string.\r\nSubscriber.Creation_Date -- Returns a date.\r\nSubscriber.List.Next\r\nSubscriber.Deleted -- Returns a Boolean.\r\nSubscriber.Unavailable -- Returns a Boolean.\r\nSubscriber.Remote<\/pre>\n\u5bf9\u4e8e\u8c13\u8bcd\uff0c\u5728\u4e00\u4e9b\u60c5\u51b5\u4e0b\u7ed9\u540d\u8bcd\u524d\u9762\u52a0\u4e0a\u524d\u7f00 Is_ \u6216 Has_ \u6216\u8bb8\u6709\u5e2e\u52a9\uff1b\u65f6\u6001\u8981\u51c6\u786e\u548c\u4e00\u81f4\uff1a<\/p>\n
function Has_First_Name ...\r\nfunction Is_Administrator ...\r\nfunction Is_First...\r\nfunction Was_Deleted ...<\/pre>\n\u5f53\u7b80\u5355\u540d\u79f0\u5df2\u4f5c\u4e3a\u7c7b\u578b\u540d\u6216\u679a\u4e3e\u578b\u76f4\u63a5\u91cf\u65f6\uff0c\u4e0a\u8ff0\u65b9\u6cd5\u6709\u7528\u3002<\/p>\n
\u8c13\u8bcd\u5e94\u4f7f\u7528\u80af\u5b9a\u5f0f\uff0c\u4e5f\u5c31\u662f\u8bf4\uff0c\u5176\u4e2d\u4e0d\u5e94\u542b\u6709\u201cNot_\u201d\u4e00\u8bcd\u3002<\/p>\n
\u5bf9\u4e8e\u666e\u901a\u64cd\u4f5c\uff0c\u7edf\u4e00\u4ece\u9879\u76ee\u53ef\u9009\u5217\u8868\uff08\u5217\u8868\u968f\u7740\u6211\u4eec\u5bf9\u7cfb\u7edf\u8ba4\u8bc6\u7684\u52a0\u6df1\u800c\u6269\u5c55\uff09\u4e2d\u9009\u62e9\u52a8\u8bcd\uff1a<\/p>\n
Create\r\nDelete\r\nDestroy\r\nInitialize\r\nAppend\r\nRevert\r\nCommit\r\nShow, Display<\/pre>\n\u8c13\u8bcd\u51fd\u6570\u548c\u5e03\u5c14\u578b\u7684\u53c2\u6570\u91c7\u7528\u80af\u5b9a\u5f0f\u3002\u5426\u5b9a\u5f0f\u7684\u540d\u5b57\u53ef\u80fd\u4ea7\u751f\u53cc\u91cd\u5426\u5b9a\uff08\u4f8b\u5982 Not Is_Not_Found\uff09\uff0c\u4ece\u800c\u4f7f\u4ee3\u7801\u96be\u8bfb\u3002<\/p>\n
function Is_Not_Valid (...) return Boolean\r\nprocedure Find_Client (With_The_Name : in Name;\r\nNot_Found : out Boolean)<\/pre>\n\u5e94\u5b9a\u4e49\u6210\uff1a<\/p>\n
function Is_Valid (...) return Boolean;\r\nprocedure Find_Client (With_The_Name: in Name;\r\nFound: out Boolean)<\/pre>\n\u8fd9\u624d\u8ba9\u4eab\u7528\u6a21\u5757\u6309\u5176\u6240\u9700\u7684\u90a3\u6837\u5b9e\u73b0\u4e86\u8868\u8fbe\u5f0f\u7684\u5426\u5b9a\uff08\u8fd9\u6837\u505a\u4e0d\u4f1a\u5bfc\u81f4\u8fd0\u884c\u65f6\u95f4\u5ef6\u957f\uff09\uff1a<\/p>\n
if not Is_Valid (...) then ....<\/pre>\n\u6709\u4e9b\u60c5\u51b5\u4e0b\uff0c\u901a\u8fc7\u4f7f\u7528\u53cd\u4e49\u8bcd\uff0c\u5982\u7528\u201cIs_Invalid\u201d\u6765\u4ee3\u66ff\u201cIs_Not_Valid\u201d\uff0c\u53ef\u4ee5\u4f7f\u5426\u5b9a\u8c13\u8bcd\u5728\u4e0d\u6539\u53d8\u8bed\u4e49\u7684\u60c5\u51b5\u4e0a\u53d8\u6210\u80af\u5b9a\u5f0f\u3002\u4f46\u662f\uff0c\u80af\u5b9a\u5f0f\u7684\u540d\u5b57\u66f4\u6613\u8bfb\uff1a \u201cIs_Valid\u201d\u6bd4\u201cnot Is_Invalid\u201d\u66f4\u6613\u7406\u89e3\u3002<\/p>\n
\u5f53\u8574\u6db5\u7740\u5927\u81f4\u76f8\u540c\u7684\u610f\u4e49\u65f6\uff0c\u91c7\u7528\u76f8\u540c\u7684\u5355\u8bcd\uff0c\u800c\u4e0d\u662f\u5bfb\u627e\u540c\u4e49\u8bcd\u6216\u53d8\u4f53\u3002\u56e0\u6b64\uff0c\u9f13\u52b1\u4f7f\u7528\u91cd\u8f7d\u6765\u63d0\u9ad8\u4ee3\u7801\u7684\u4e00\u81f4\u6027\uff0c\u9075\u5faa\u6700\u5c0f\u9650\u5ea6\u610f\u5916\u539f\u5219\u3002<\/p>\n
\u82e5\u5b50\u7a0b\u5e8f\u88ab\u7528\u505a\u5165\u53e3\u8c03\u7528\u7684\u201c\u5916\u8868\u201d (skins) \u6216\u8005\u201c\u5305\u88c5\u201d (wrappers)\uff0c\u5219\u7ed9\u5176\u540d\u5b57\u52a8\u8bcd\u52a0\u4e0a\u540e\u7f00 _Or_Wait\uff0c\u6216\u8005\u7ed9\u51fd\u6570\u53d6\u4e2a Wait_For_ \u77ed\u8bed\u52a0\u540d\u8bcd\u7684\u540d\u5b57\u6765\u53cd\u6620\u8fd9\u4e00\u70b9\uff0c\u8fd9\u6837\u53ef\u80fd\u6709\u7528\uff1a<\/p>\n
Subscriber.Get_Reply_Or_Wait\r\nSubscriber.Wait_For_Reply<\/pre>\n\u4e00\u4e9b\u64cd\u4f5c\u5e94\u4e00\u76f4\u4f7f\u7528\u76f8\u540c\u7684\u540d\u5b57\u6765\u7edf\u4e00\u5b9a\u4e49\uff1a<\/p>\n
\u5bf9\u4e8e\u8f6c\u6362\u5230\u5b57\u4e32\u548c\u4ece\u5b57\u4e32\u8f6c\u6362\u6765\u7684\u7c7b\u578b\u53d8\u6362\uff0c\u5bf9\u79f0\u51fd\u6570\u662f\uff1a<\/p>\n
function Image and function Value<\/pre>\n\u5bf9\u4e8e\u8f6c\u6362\u5230\u4f4e\u7ea7\u8868\u793a\u6cd5\uff08\u5982\u7528\u4e8e\u6570\u636e\u4ea4\u6362\u7684 Byte_String\uff09\u548c\u4ece\u4f4e\u7ea7\u8868\u793a\u6cd5\u8f6c\u6362\u8fc7\u6765\u7684\u7c7b\u578b\u53d8\u6362\uff0c\u5bf9\u79f0\u8fc7\u7a0b\u662f\uff1a<\/p>\n
procedure Read and Write<\/pre>\n\u5bf9\u4e8e\u5206\u914d\u6570\u636e\uff1a<\/p>\n
function Allocate (rather than Create)\r\nfunction Destroy (or Release, to express that the object will disappear)<\/pre>\n\u5f53\u7cfb\u7edf\u5730\u5904\u7406\u5b83\u4eec\u65f6\u91c7\u7528\u7edf\u4e00\u7684\u547d\u540d\uff0c\u7c7b\u578b\u5408\u6210\u5c06\u5bb9\u6613\u8bb8\u591a\u3002<\/p>\n
\u5bf9\u4e8e\u6d3b\u52a8\u7684\u8fed\u4ee3\u7a0b\u5e8f\uff0c\u5fc5\u987b\u5b9a\u4e49\u4ee5\u4e0b\u539f\u8bed\uff1a<\/p>\n
Initialize\r\nNext\r\nIs_Done\r\nValue_Of<\/pre>\n\u82e5\u53ef\u884c\uff0c\u8fd8\u8981\u5b9a\u4e49 Reset<\/code>\u3002\u82e5\u8981\u5728\u76f8\u540c\u7684\u4f5c\u7528\u57df\u8303\u56f4\u5185\u5f15\u5165\u51e0\u4e2a\u8fed\u4ee3\u7c7b\u578b\uff0c\u90a3\u4e48\u5e94\u91cd\u8f7d\u8fd9\u4e9b\u539f\u8bed\uff0c\u800c\u4e0d\u662f\u4e3a\u6bcf\u4e2a\u8fed\u4ee3\u7a0b\u5e8f\u5206\u522b\u5f15\u5165\u4e00\u5957\u5404\u4e0d\u76f8\u540c\u7684\u6807\u8bc6\u7b26\u3002\u53c2\u89c1 [BOO87]<\/a>\u3002<\/p>\n\u5f53\u91c7\u7528 Ada \u9884\u786e\u5b9a\u5c5e\u6027\u4f5c\u4e3a\u51fd\u6570\u540d\u65f6\uff0c\u8981\u4fdd\u8bc1\u5176\u7528\u6cd5\u4e0e\u4e00\u822c\u7684\u8bed\u4e49\u76f8\u540c\uff1a’First\uff0c’Last\uff0c’Length\uff0c’Image\uff0c’Value\uff0c\u7b49\u7b49\u3002 \u6ce8\u610f\uff0c\u51e0\u4e2a\u5c5e\u6027\uff08\u5982 ‘Range \u548c ‘Delta\uff09\u662f\u4e0d\u80fd\u7528\u505a\u51fd\u6570\u540d\u7684\uff0c\u56e0\u4e3a\u5b83\u4eec\u662f\u4fdd\u7559\u5b57\u3002<\/p>\n
<\/a>\u5bf9\u8c61\u548c\u5b50\u7a0b\u5e8f\uff08\u6216\u5165\u53e3\uff09\u53c2\u6570<\/h2>\n\u4e3a\u8868\u660e\u5176\u552f\u4e00\u6027\u6216\u662f\u8868\u660e\u8be5\u5b9e\u4f53\u662f\u6d3b\u52a8\u7684\u4e3b\u8981\u805a\u96c6\u5904\uff0c\u5728\u5bf9\u8c61\u6216\u53c2\u6570\u540d\u79f0\u524d\u52a0\u524d\u7f00\u201cThe\u201d\u6216\u201cThis\u201d\u3002\u8981\u8bf4\u660e\u4e00\u4e2a\u6b21\u8981\u3001\u4e34\u65f6\u3001\u8f85\u52a9\u7684\u5bf9\u8c61\uff0c\u5219\u52a0\u524d\u7f00\u201cA_\u201d\u6216\u201cCurrent_\u201d\uff1a<\/p>\n
procedure Change_Name (The_Subscriber : in Subscriber.Handle;\r\nThe_Name : in Subscriber.Name );\r\ndeclare\r\nA_Subscriber : Subscriber.Handle := Subscriber.First;\r\nbegin\r\n ...\r\nA_Subscriber := Subscriber.Next (The_Subscriber);\r\nend;<\/pre>\n\u5bf9\u4e8e\u5e03\u5c14\u578b\u7684\u5bf9\u8c61\uff0c\u91c7\u7528\u80af\u5b9a\u5f0f\u7684\u8c13\u8bcd\u5b50\u53e5\uff1a<\/p>\n
Found_It\r\nIs_Available<\/pre>\n\u4f46\u662f\uff1a<\/p>\n
Is_Not_Available<\/code> \u5fc5\u987b\u907f\u514d\u3002<\/p>\n\u5bf9\u4e8e\u4efb\u52a1\u5bf9\u8c61\uff0c\u5e94\u91c7\u7528\u4e00\u4e2a\u8574\u6db5\u4e86\u6d3b\u52a8\u5b9e\u4f53\u7684\u540d\u8bcd\u6216\u8005\u540d\u8bcd\u77ed\u8bed\uff1a<\/p>\n
Listener\r\nResource_Manager\r\nTerminal_Driver<\/pre>\n
\u679a\u4e3e\u7c7b\u578b<\/a>
\n\u6570\u503c\u7c7b\u578b<\/a>
\n\u5b9e\u578b<\/a>
\n\u8bb0\u5f55\u7c7b\u578b<\/a>
\n\u5b58\u53d6\u7c7b\u578b<\/a>
\n\u79c1\u6709\u7c7b\u578b<\/a>
\n\u6d3e\u751f\u7c7b\u578b<\/a>
\n\u5bf9\u8c61\u58f0\u660e<\/a>
\n\u5b50\u7a0b\u5e8f\u548c\u7c7b\u5c5e\u5355\u5143<\/a><\/h4>\n\u8868\u8fbe\u5f0f\u548c\u8bed\u53e5<\/a><\/h3>\n\u8868\u8fbe\u5f0f<\/a>
\n\u8bed\u53e5<\/a>
\n\u7f16\u7801\u63d0\u793a<\/a><\/h4>\n\u53ef\u89c1\u6027\u95ee\u9898<\/a><\/h3>\n\u91cd\u8f7d\u548c\u540c\u5f62\u5f02\u4e49\u5b57<\/a>
\n\u4e0a\u4e0b\u6587\u5b50\u53e5<\/a>
\n\u91cd\u547d\u540d<\/a>
\n\u5173\u4e8e Use \u5b50\u53e5\u7684\u8bf4\u660e<\/a><\/h4>\n\u7a0b\u5e8f\u7ed3\u6784\u548c\u7f16\u8bd1\u95ee\u9898<\/a><\/h3>\n\u7a0b\u5e8f\u5305\u7684\u5206\u89e3<\/a>
\n\u58f0\u660e\u90e8\u5206\u7684\u7ed3\u6784<\/a>
\n\u4e0a\u4e0b\u6587\u5b50\u53e5<\/a>
\n\u786e\u7acb\u987a\u5e8f<\/a><\/h4>\n\u5e76\u884c<\/a><\/h3>\n\u9519\u8bef\u5904\u7406\u4e0e\u5f02\u5e38<\/a><\/h3>\n\u4f4e\u7ea7\u7f16\u7a0b<\/a><\/h3>\n\u8868\u793a\u5b50\u53e5\u548c\u5c5e\u6027<\/a>
\n\u65e0\u68c0\u67e5\u8f6c\u6362<\/a><\/h4>\n\u603b\u7ed3<\/a><\/h3>\n\u53c2\u8003\u6587\u732e<\/a><\/h3>\n\u8bcd\u6c47\u8868<\/a><\/h3>\n
\n<\/a>\u7b2c\u4e00\u7ae0<\/em><\/h2>\n\u5173\u4e8e\u672c\u6587\u6863<\/h1>\n
\u672c\u6587\u6863 Rational Unified Process – Ada \u7f16\u7a0b\u6307\u5357<\/em>\u662f\u4e00\u4e2a\u6807\u51c6\u7684\u6a21\u677f\uff0c\u4f60\u7684\u5f00\u53d1\u7ec4\u7ec7\u53ef\u4f9d\u6b64\u6d3e\u751f\u51fa\u4e00\u5957\u7a0b\u5e8f\u8bbe\u8ba1\u6807\u51c6\u3002\u8be5\u6307\u5357\u8be6\u7ec6\u8bf4\u660e\u4e86\u5e94\u5982\u4f55\u7f16\u5199 Ada \u7a0b\u5e8f\u3002\u672c\u6587\u670d\u52a1\u7684\u5bf9\u8c61\u662f\u6240\u6709\u5c06 Ada \u4f5c\u4e3a\u5b9e\u65bd\u8bed\u8a00\u6216\u8005\u4e00\u79cd\u8bf4\u660e\u63a5\u53e3\u6216\u6570\u636e\u7ed3\u6784\u7684\u8bbe\u8ba1\u8bed\u8a00\u7684\u5e94\u7528\u8f6f\u4ef6\u8bbe\u8ba1\u8005\u548c\u5f00\u53d1\u8005\u3002<\/p>\n\u6587\u4e2d\u6240\u63cf\u8ff0\u7684\u89c4\u5219\u56ca\u62ec\u4e86\u7a0b\u5e8f\u8bbe\u8ba1\u7684\u5927\u90e8\u5206\u65b9\u9762\u3002\u901a\u7528\u89c4\u5219\u9002\u7528\u4e8e\u7a0b\u5e8f\u5e03\u5c40\u3001\u547d\u540d\u7ea6\u5b9a\u548c\u6ce8\u91ca\u5e94\u7528\u3002\u7279\u6b8a\u89c4\u5219\u9002\u7528\u4e8e\u9009\u5b9a\u7684 Ada \u7279\u6027\uff0c\u5e76\u8bf4\u660e\u4e86\u7981\u7528\u6784\u9020\u3001\u63a8\u8350\u4f7f\u7528\u6a21\u5f0f\u548c\u7528\u4ee5\u63d0\u9ad8\u7a0b\u5e8f\u8d28\u91cf\u7684\u901a\u7528\u6280\u5de7\u3002<\/p>\n
\u9879\u76ee\u7684\u8bbe\u8ba1<\/em>\u6307\u5357\u548c\u5f53\u524d\u7684\u7f16\u7a0b<\/em>\u6307\u5357\u6709\u4e00\u5b9a\u7684\u91cd\u590d\uff0c\u662f\u6709\u610f\u8fd9\u6837\u505a\u7684\u3002\u4ecb\u7ecd\u7684\u8bb8\u591a\u7a0b\u5e8f\u8bbe\u8ba1\u89c4\u5219\uff0c\u5c24\u5176\u662f\u5728\u547d\u540d\u7ea6\u5b9a<\/em>\u4e2d\u7684\u89c4\u5219\uff0c\u7528\u4e8e\u79ef\u6781\u652f\u6301\u548c\u52a0\u5f3a\u8f6f\u4ef6\u8bbe\u8ba1\u4e2d\u7684\u9762\u5411\u5bf9\u8c61<\/em>\u65b9\u5f0f\u3002<\/p>\n\u6307\u5357\u6700\u521d\u7528\u4e8e Ada 83\u3002\u5b83\u542b\u6709\u4e0e Ada 95 \u517c\u5bb9\u7684\u89c4\u5219\uff0c\u4f46\u4e0d\u542b\u6709\u6539\u7248\u540e\u8bed\u8a00\u6807\u51c6\u65b0\u7279\u6027\u7684\u4f7f\u7528\u6307\u5357\uff0c\u4f8b\u5982\u6807\u8bc6\u7c7b\u578b\u3001\u5b50\u5355\u5143\u6216\u5c0f\u6570\u7c7b\u578b\u3002<\/p>\n
\u6587\u6863\u5927\u81f4\u6309\u7167 Ada Reference Manual \u7684\u7ed3\u6784\u6765\u7ec4\u7ec7 [ISO 8052]<\/a>\u3002<\/p>\n\u7b2c\u4e8c\u7ae0\u201c\u7b80\u4ecb<\/em>\u201d\u89e3\u91ca\u4e86\u6307\u5357\u6240\u57fa\u4e8e\u7684\u57fa\u672c\u539f\u7406\u5e76\u4ecb\u7ecd\u4e86\u6307\u5357\u5206\u7c7b\u3002<\/p>\n\u7b2c\u4e09\u7ae0\u201c\u4ee3\u7801\u5e03\u5c40<\/em>\u201d\u8bb2\u8ff0\u4e86\u7a0b\u5e8f\u6587\u672c\u7684\u4e00\u822c\u89c6\u89c9\u7ec4\u7ec7\u7ed3\u6784\u3002<\/p>\n\u7b2c\u56db\u7ae0\u201c\u6ce8\u91ca<\/em>\u201d\u7ed9\u51fa\u4e86\u5982\u4f55\u7528\u7ed3\u6784\u5316\u7684\u3001\u53ef\u7528\u7684\u548c\u53ef\u7ef4\u62a4\u7684\u65b9\u5f0f\u6765\u6ce8\u91ca\u8bf4\u660e\u4ee3\u7801\u3002<\/p>\n\u7b2c\u4e94\u7ae0\u201c\u547d\u540d\u7ea6\u5b9a<\/em>\u201d\u7ed9\u51fa\u6709\u5173\u547d\u540d\u8bed\u8a00\u5b9e\u4f53\u7684\u4e00\u822c\u89c4\u5219\u548c\u8303\u4f8b\u3002\u8fd9\u4e00\u7ae0\u7684\u5185\u5bb9\u5e94\u518d\u7ecf\u4fee\u6539\uff0c\u4ee5\u6ee1\u8db3\u7279\u5b9a\u9879\u76ee\u6216\u673a\u6784\u7684\u9700\u8981\u3002<\/p>\n\u7b2c\u516d\u7ae0\u201c\u58f0\u660e<\/em>\u201d\u548c\u7b2c\u4e03\u7ae0\u201c\u8868\u8fbe\u5f0f\u548c\u8bed\u53e5<\/em>\u201d\u5bf9\u6bcf\u79cd\u8bed\u8a00\u7ed3\u6784\u7ed9\u51fa\u4e86\u8fdb\u4e00\u6b65\u7684\u5efa\u8bae\u3002<\/p>\n\u7b2c\u516b\u7ae0\u201c\u53ef\u89c6\u6027\u95ee\u9898<\/em>\u201d\u548c\u7b2c\u4e5d\u7ae0\u201c\u7a0b\u5e8f\u7ed3\u6784\u548c\u7f16\u8bd1\u95ee\u9898<\/em>\u201d\u7ed9\u51fa\u4e86\u6709\u5173\u5168\u5c40\u6784\u5efa\u548c\u7a0b\u5e8f\u7ec4\u6210\u7684\u6307\u5bfc\u3002<\/p>\n\u7b2c\u5341\u7ae0\u201c\u5e76\u884c<\/em>\u201d\u5904\u7406\u8bed\u8a00\u4e2d\u6709\u5173\u4f7f\u7528\u4efb\u52a1\u548c\u65f6\u95f4\u76f8\u5173\u7279\u6027\u7684\u4e13\u95e8\u95ee\u9898\u3002<\/p>\n\u7b2c\u5341\u4e00\u7ae0\u201c\u9519\u8bef\u5904\u7406\u548c\u5f02\u5e38<\/em>\u201d\u7ed9\u51fa\u5982\u4f55\u7cfb\u7edf\u5730\u3001\u7b80\u4fbf\u5730\u4f7f\u7528\u6216\u4e0d\u4f7f\u7528\u5f02\u5e38\u6765\u5904\u7406\u9519\u8bef\u3002<\/p>\n\u7b2c\u5341\u4e8c\u7ae0\u201c\u4f4e\u7ea7\u7f16\u7a0b<\/em>\u201d\u5904\u7406\u8868\u793a\u5b50\u53e5\u7684\u95ee\u9898\u3002<\/p>\n\u7b2c\u5341\u4e09\u7ae0\u201c\u603b\u7ed3<\/em>\u201d\u627c\u8981\u590d\u8ff0\u4e86\u6700\u4e3a\u91cd\u8981\u7684\u6307\u5bfc\u65b9\u9488\u3002<\/p>\n\u672c\u6587\u6863\u53d6\u4ee3\u4e86 Ada Guidelines: Recommendation for Designers and programmers<\/em> \u4e2d\u7684 Application Note #15, Rational, Santa Clara, CA., 1990\u3002<\/p>\n
\n<\/a>\u7b2c\u4e8c\u7ae0<\/em><\/h2>\n\u7b80\u4ecb<\/h1>\n\u57fa\u672c\u539f\u5219<\/h2>\n
Ada \u8bed\u8a00\u7684\u8bbe\u8ba1\u5f88\u6709\u9488\u5bf9\u6027\u7684\u76ee\u7684\u5c31\u662f\u652f\u6301\u9ad8\u8d28\u91cf\u3001\u53ef\u9760\u3001\u53ef\u590d\u7528\u548c\u53ef\u79fb\u690d\u8f6f\u4ef6 [ISO 87, sect. 1.3]<\/a>\u3002\u7136\u800c\uff0c\u6ca1\u6709\u54ea\u4e00\u79cd\u8bed\u8a00\u4ec5\u9760\u5176\u672c\u8eab\u5c31\u53ef\u4ee5\u5b9e\u73b0\u4e0a\u8ff0\u76ee\u6807\u3002\u7a0b\u5e8f\u8bbe\u8ba1\u5fc5\u987b\u662f\u4e00\u4e2a\u6709\u826f\u597d\u89c4\u8303\u7684\u8fc7\u7a0b\u7684\u4e00\u90e8\u5206\u3002<\/p>\n\u6e05\u695a\u660e\u767d\u7684 Ada \u6e90\u4ee3\u7801\u662f\u672c\u6587\u4e2d\u5927\u591a\u6570\u6307\u5bfc\u65b9\u9488\u7684\u4e3b\u8981\u76ee\u6807\u3002\u8fd9\u4e00\u70b9\u662f\u5b9e\u73b0\u53ef\u9760\u6027\u548c\u53ef\u7ef4\u62a4\u6027\u7684\u4e3b\u8981\u56e0\u7d20\u3002\u6240\u8c13\u6e05\u695a\u660e\u767d\u7684\u4ee3\u7801\u53ef\u4ee5\u4ece\u4ee5\u4e0b\u4e09\u6761\u7b80\u5355\u7684\u57fa\u672c\u539f\u5219\u4e0a\u6765\u7406\u89e3\u3002<\/p>\n
\u6700\u5c0f\u9650\u5ea6\u7684\u610f\u5916<\/h3>\n
\u5728\u5176\u751f\u547d\u671f\u5185\uff0c\u4ee3\u7801\u66f4\u591a\u5730\u662f\u88ab\u8bfb\uff0c\u800c\u4e0d\u662f\u88ab\u5199\uff0c\u5c24\u5176\u662f\u5b83\u7684\u8bf4\u660e\u90e8\u5206\u3002\u7406\u60f3\u60c5\u51b5\u4e0b\uff0c\u4ee3\u7801\u8bfb\u8d77\u6765\u5e94\u8be5\u8c61\u4e00\u7bc7\u8bf4\u660e\u5b83\u505a\u4e86\u4ec0\u4e48\u7684\u82f1\u6587\u63cf\u8ff0\uff0c\u5b83\u5177\u6709\u4e00\u4e2a\u9644\u52a0\u4f18\u70b9\u662f\u53ef\u4ee5\u6267\u884c\u3002 \u7a0b\u5e8f\u66f4\u591a\u662f\u4e3a\u4eba\u7f16\u5199\uff0c\u800c\u4e0d\u662f\u4e3a\u8ba1\u7b97\u673a\u7f16\u5199\u3002\u9605\u8bfb\u7f16\u7801\u662f\u4e00\u4e2a\u590d\u6742\u7684\u8111\u529b\u8fc7\u7a0b\uff0c\u5b83\u53ef\u901a\u8fc7\u7edf\u4e00\u6807\u51c6\u6765\u7b80\u5316\uff0c\u5728\u672c\u6587\u4e2d\u8fd9\u4e00\u6307\u5bfc\u4e5f\u53eb\u201c\u6700\u5c0f\u9650\u5ea6\u610f\u5916\u539f\u5219<\/em>\u201d\u3002\u6574\u4e2a\u9879\u76ee\u4e2d\u7edf\u4e00\u6837\u5f0f\u662f\u8f6f\u4ef6\u5f00\u53d1\u56e2\u961f\u5728\u7f16\u7a0b\u6807\u51c6\u4e0a\u8fbe\u6210\u4e00\u81f4\u7684\u4e3b\u8981\u539f\u56e0\uff0c\u5b83\u4e0d\u5e94\u89c6\u4e3a\u4e00\u79cd\u60e9\u7f5a\u6216\u5bf9\u521b\u9020\u6027\u548c\u751f\u4ea7\u529b\u7684\u963b\u788d\u3002<\/p>\n\u5355\u70b9\u7ef4\u62a4<\/h3>\n
\u8fd9\u4e00\u6307\u5bfc\u6240\u57fa\u4e8e\u7684\u53e6\u4e00\u4e2a\u91cd\u8981\u539f\u5219\u662f\u5355\u70b9\u7ef4\u62a4\u539f\u5219<\/em>\u3002\u5e94\u5c3d\u91cf\u4f7f\u8bbe\u8ba1\u51b3\u7b56\u53ea\u5728 Ada \u6e90\u7801\u4e2d\u7684\u4e00\u5904\u8868\u8ff0\uff0c\u5b83\u7684\u591a\u6570\u7ed3\u8bba\u5e94\u7a0b\u5e8f\u5316\u5730\u4ece\u8be5\u5904\u6d3e\u751f\u51fa\u6765\u3002\u4e0d\u9075\u5b88\u8fd9\u4e00\u539f\u5219\u4f1a\u4e25\u91cd\u5f71\u54cd\u4ee3\u7801\u7684\u53ef\u7ef4\u62a4\u6027\u3001\u53ef\u9760\u6027\u548c\u53ef\u7406\u89e3\u6027\u3002<\/p>\n\u6700\u5c0f\u9650\u5ea6\u7684\u5e72\u6270<\/h3>\n
\u6700\u540e\uff0c\u4f5c\u4e3a\u6613\u8bfb\u6027\u7684\u4e3b\u8981\u4f5c\u7528\u56e0\u7d20\uff0c\u91c7\u7528\u6700\u5c0f\u5e72\u6270\u539f\u5219<\/em>\u3002\u5373\u907f\u514d\u5c06\u6e90\u4ee3\u7801\u4e0e\u89c6\u89c9\u201c\u5e72\u6270\u201d\u76f8\u6df7\u5408\uff1a\u5373\u680f\u3001\u6846\u4ee5\u53ca\u5176\u5b83\u4f4e\u4fe1\u606f\u91cf\u7684\u6587\u672c\u6216\u662f\u5bf9\u7406\u89e3\u8f6f\u4ef6\u529f\u80fd\u6ca1\u6709\u5e2e\u52a9\u7684\u4fe1\u606f\u3002<\/p>\n\u53ef\u79fb\u690d\u6027\u548c\u53ef\u590d\u7528\u6027\u4e5f\u662f\u5236\u5b9a\u8bb8\u591a\u6307\u5bfc\u65b9\u9488\u7684\u539f\u7531\u3002\u4ee3\u7801\u5e94\u53ef\u79fb\u690d\u5230\u4e0d\u540c\u76ee\u6807\u8ba1\u7b97\u673a\u7684\u51e0\u4e2a\u4e0d\u540c\u7f16\u8bd1\u5668\u4e0a\uff0c\u5e76\u6700\u7ec8\u79fb\u690d\u5230\u4e00\u4e2a\u66f4\u9ad8\u7ea7\u7684 Ada \u7248\u672c\u201cAda 95\u201d\u4e0a [PLO92,<\/a> TAY92]<\/a>\u3002<\/p>\n<\/a>\u5047\u8bbe<\/h2>\n\u8fd9\u91cc\u7684\u6307\u5bfc\u65b9\u9488\u6709\u51e0\u4e2a\u57fa\u672c\u5047\u8bbe\uff1a<\/p>\n
\u8bfb\u8005\u4e86\u89e3 Ada\u3002<\/h3>\n
\u5e94\u9f13\u52b1\u5728\u4efb\u4f55\u53ef\u5e26\u6765\u597d\u5904\u7684\u5730\u65b9\u4f7f\u7528 Ada \u7684\u9ad8\u7ea7\u7279\u6027\uff0c\u800c\u4e0d\u8981\u4ec5\u4ec5\u56e0\u4e3a\u4e00\u4e9b\u7a0b\u5e8f\u5458\u4e0d\u719f\u6089\u5b83\u4eec\u800c\u53cd\u5bf9\u91c7\u7528\u3002 \u8fd9\u662f\u9879\u76ee\u80fd\u4ece\u4f7f\u7528 Ada \u4e2d\u771f\u6b63\u83b7\u76ca\u7684\u552f\u4e00\u65b9\u5f0f\u3002Ada \u4e0d\u5e94\u8c61 Pascal \u6216 FORTRAN \u8bed\u8a00\u90a3\u6837\u4f7f\u7528\u3002\u4e0d\u9f13\u52b1\u5728\u6ce8\u91ca\u4e2d\u89e3\u91ca\u4ee3\u7801\uff1b\u76f8\u53cd\uff0cAda \u672c\u8eab\u5e94\u5c3d\u53ef\u80fd\u5730\u53d6\u4ee3\u6ce8\u91ca\u3002<\/p>\n
\u8bfb\u8005\u61c2\u82f1\u6587\u3002<\/h3>\n
\u8bb8\u591a\u547d\u540d\u7ea6\u5b9a\u5728\u8bcd\u6c47\u548c\u8bed\u6cd5\u4e0a\u57fa\u4e8e\u82f1\u6587\u3002\u6b64\u5916\uff0c Ada \u7684\u5173\u952e\u5b57\u90fd\u662f\u5e38\u7528\u7684\u82f1\u8bed\u5355\u8bcd\u3002\u5c06\u5176\u4e0e\u5176\u5b83\u8bed\u8a00\u6df7\u5408\u5c06\u964d\u4f4e\u4ee3\u7801\u7684\u6613\u8bfb\u6027\u3002<\/p>\n
\u4e25\u683c\u9650\u5236\u4f7f\u7528\u5b50\u53e5 (use clause) \u7684\u8fd0\u7528\u3002<\/h3>\n
\u547d\u540d\u7ea6\u5b9a\u548c\u5176\u5b83\u4e00\u4e9b\u89c4\u5219\u5047\u5b9a\u201cuse\u201d\u5b50\u53e5\u4e0d\u88ab\u8fd0\u7528\u3002<\/p>\n
\u5904\u7406\u7684\u662f\u4e00\u4e2a\u5927\u9879\u76ee\u3002<\/h3>\n
\u8bb8\u591a\u89c4\u5219\u5728\u5927\u578b\u9879\u76ee\u4e2d\u6700\u6709\u4ef7\u503c\uff0c\u867d\u7136\u51fa\u4e8e\u9879\u76ee\u7ea7\u6216\u516c\u53f8\u7ea7\u5b9e\u73b0\u548c\u7edf\u4e00\u7684\u76ee\u7684\uff0c\u5b83\u4eec\u4e5f\u5728\u5c0f\u578b\u7cfb\u7edf\u4e2d\u4f7f\u7528\u3002<\/p>\n
\u6e90\u7801\u5728\u201cRational \u73af\u5883\u201d (Rational Environment) \u4e2d\u5f00\u53d1\u3002<\/h3>\n
\u901a\u8fc7\u8fd0\u7528\u201cRational \u73af\u5883\u201d (Rational Environment)\uff0c\u4e00\u4e9b\u95ee\u9898\u5982\u4ee3\u7801\u5e03\u5c40\u3001\u5c01\u95ed\u6784\u9020\u4e2d\u7684\u6807\u8bc6\u7b26\u7b49\u5c31\u5728 Ada \u7f16\u8f91\u5668\u548c\u683c\u5f0f\u5668\u4e2d\u5904\u7406\u4e86\u3002 \u4f46\u662f\u672c\u6587\u4e2d\u7684\u5e03\u5c40\u5efa\u8bae\u9002\u7528\u4e8e\u4efb\u4f55\u5f00\u53d1\u5e73\u53f0\u3002<\/p>\n
\u7a0b\u5e8f\u8bbe\u8ba1\u9075\u5faa\u9762\u5411\u5bf9\u8c61\u7684\u65b9\u6cd5\u3002<\/h3>\n
\u8bb8\u591a\u89c4\u5219\u652f\u6301\u5c06 Ada \u7279\u6027\u548c\u7279\u5b9a\u547d\u540d\u7ea6\u5b9a\u7684\u9762\u5411\u5bf9\u8c61 (OO) \u6982\u5ff5\u7684\u7cfb\u7edf\u6620\u5c04\u3002<\/p>\n
<\/a>\u6307\u5357\u5206\u7c7b<\/h2>\n\u8fd9\u4e9b\u6307\u5bfc\u65b9\u9488\u5e76\u975e\u540c\u7b49\u91cd\u8981\u3002\u5b83\u4eec\u5927\u81f4\u9075\u5faa\u4ee5\u4e0b\u7684\u7b49\u7ea7\uff1a<\/p>\n
\u63d0\u793a\uff1a<\/h3>\n
\u8be5\u6307\u5bfc\u65b9\u9488\u4ec5\u662f\u4e00\u6761\u7b80\u5355\u7684\u5efa\u8bae\uff1b\u4e0d\u9075\u5b88\u5b83\u4e5f\u4e0d\u4f1a\u6709\u4ec0\u4e48\u5b9e\u8d28\u6027\u7684\u635f\u5bb3\uff0c\u91c7\u7528\u6216\u662f\u4e0d\u91c7\u7528\u5b83\u4eec\u4ec5\u662f\u4e2a\u4eba\u559c\u597d\u95ee\u9898\u3002\u6587\u4e2d\u7684\u63d0\u793a\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u5efa\u8bae\uff1a<\/h3>\n
\u8be5\u6307\u5bfc\u65b9\u9488\u901a\u5e38\u66f4\u591a\u5730\u57fa\u4e8e\u6280\u672f\u7684\u89c2\u70b9\uff1b\u5b83\u53ef\u80fd\u4f1a\u5f71\u54cd\u5230\u4ee3\u7801\u7684\u53ef\u79fb\u690d\u6027\u6216\u53ef\u590d\u7528\u6027\uff0c\u5e76\u5728\u4e00\u4e9b\u5b9e\u65bd\u4e2d\u5f71\u54cd\u6027\u80fd\u3002 \u9664\u975e\u6709\u5408\u9002\u7684\u7406\u7531\uff0c\u5426\u5219\u5fc5\u987b\u9075\u5b88\u5efa\u8bae\u3002\u6587\u4e2d\u63d0\u5230\u4e00\u4e9b\u4f8b\u5916\u7684\u60c5\u51b5\u3002\u6587\u4e2d\u7684\u5efa\u8bae\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u9650\u5236\uff1a<\/h3>\n
\u6709\u7591\u95ee\u7684\u7279\u6027\u4f7f\u7528\u8d77\u6765\u5371\u9669\uff0c\u4f46\u5b83\u5e76\u4e0d\u88ab\u5b8c\u5168\u7981\u6b62\uff1b\u5e94\u7528\u8be5\u7279\u6027\u7684\u51b3\u5b9a\u5e94\u5728\u9879\u76ee\u7ea7\u4e0a\u505a\u51fa\uff0c\u5e76\u4e14\u51b3\u5b9a\u5e94\u8be5\u662f\u9ad8\u5ea6\u53ef\u89c1\u7684\u3002\u6587\u4e2d\u7684\u9650\u5236\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u8981\u6c42\uff1a<\/h3>\n
\u8fdd\u80cc\u5b83\u5b9a\u5c06\u5bfc\u81f4\u4e0d\u597d\u7684\u3001\u4e0d\u53ef\u9760\u7684\u6216\u662f\u4e0d\u53ef\u79fb\u690d\u7684\u4ee3\u7801\u3002 \u8981\u6c42\u4e0d\u53ef\u8fdd\u80cc\u3002\u6587\u4e2d\u7684\u8981\u6c42\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u201cRational \u8bbe\u8ba1\u5de5\u5177\u201d (Rational Design Facility) \u5c06\u7528\u6765\u51cf\u5c11\u53d7\u9650\u7279\u6027\u7684\u4f7f\u7528\u5e76\u52a0\u5f3a\u5fc5\u9700\u6cd5\u5219\u548c\u8bb8\u591a\u5efa\u8bae\u7684\u8fd0\u7528\u3002<\/p>\n
\u4e0e\u8bb8\u591a\u5176\u5b83\u7684 Ada \u7a0b\u5e8f\u8bbe\u8ba1\u6807\u51c6\u4e0d\u540c\u7684\u662f\uff1a\u4e8b\u5b9e\u4e0a\uff0c\u8fd9\u4e9b\u6307\u5bfc\u65b9\u9488\u4e2d\u53ca\u5c11\u6709\u5b8c\u5168\u7981\u7528\u7684\u3002\u597d\u7684\u8f6f\u4ef6\u7684\u5173\u952e\u5728\u4e8e\uff1a<\/p>\n
\n- \u4e86\u89e3\u6bcf\u79cd\u7279\u6027\uff0c\u4e86\u89e3\u5b83\u7684\u5c40\u9650\u548c\u53ef\u80fd\u7684\u5371\u9669<\/li>\n
- \u51c6\u786e\u4e86\u89e3\u8fd9\u79cd\u7279\u6027\u5728\u4f55\u79cd\u573a\u5408\u53ef\u4ee5\u5b89\u5168\u4f7f\u7528<\/li>\n
- \u8ba9\u4f7f\u7528\u8be5\u7279\u6027\u7684\u51b3\u7b56\u9ad8\u5ea6\u53ef\u89c1<\/li>\n
- \u5341\u5206\u5c0f\u5fc3\u8c28\u614e\u5730\u5728\u9002\u5f53\u5904\u4f7f\u7528\u8be5\u7279\u6027\u3002<\/li>\n<\/ul>\n
<\/a>\u6700\u6839\u672c\u7684\u539f\u5219<\/h2>\n\u4f7f\u7528\u5e38\u8bc6\u3002<\/p>\n
\u5f53\u65e0\u6cd5\u627e\u5230\u53ef\u7528\u7684\u89c4\u5219\u6216\u6307\u5357\uff0c\u5f53\u89c4\u5219\u660e\u663e\u4e0d\u9002\u7528\uff0c\u5f53\u5176\u5b83\u4e00\u5207\u90fd\u5931\u8d25\u65f6\uff1a\u4f7f\u7528\u5e38\u8bc6\uff0c\u5e76\u6838\u67e5\u57fa\u672c\u539f\u5219\u3002\u8fd9\u6761\u6cd5\u5219\u51cc\u9a7e\u4e8e\u5176\u5b83\u6240\u6709\u6cd5\u5219\u4e4b\u4e0a\u3002\u5e38\u8bc6\u662f\u5fc5\u4e0d\u53ef\u5c11\u7684<\/em>\u3002<\/p>\n
\n<\/a>\u7b2c\u4e09\u7ae0<\/em><\/h2>\n\u4ee3\u7801\u5e03\u5c40<\/h1>\n\u6982\u8ff0<\/h2>\n
\u4e00\u4e2a\u7a0b\u5e8f\u5355\u5143\u7684\u5e03\u5c40\u5b8c\u5168\u5728\u201cRational \u73af\u5883\u683c\u5f0f\u5668\u201d (Rational Environment Formatter) \u7684\u63a7\u5236\u4e4b\u4e0b\uff0c\u9664\u4e86\u5728\u6ce8\u91ca\u548c\u7a7a\u767d\u5904\u5185\uff0c\u7a0b\u5e8f\u5458\u4e0d\u5fc5\u8fc7\u591a\u62c5\u5fc3\u7a0b\u5e8f\u7684\u5e03\u5c40\u3002\u8fd9\u4e2a\u5de5\u5177\u6240\u91c7\u7528\u7684\u683c\u5f0f\u7ea6\u5b9a\u5728 Reference Manual for the Ada Programming Language \u7684 Appendix E \u4e2d\u8868\u8ff0 [ISO87]<\/a>\u3002 \u7279\u522b\u662f\uff0c\u4ed6\u4eec\u5efa\u8bae\u7ed3\u6784\u5316\u6784\u9020\u7684\u5f00\u59cb\u548c\u7ed3\u675f\u5904\u7684\u5173\u952e\u5b57\u5e94\u5782\u76f4\u5bf9\u9f50\u3002\u4e00\u4e2a\u6784\u9020\u7684\u6807\u8bc6\u7b26\u4e5f\u5e94\u7cfb\u7edf\u6027\u5730\u5728\u6784\u9020\u7684\u672b\u5c3e\u91cd\u590d\u3002<\/p>\n\u683c\u5f0f\u5668\u7684\u786e\u5207\u884c\u4e3a\u7531\u4e00\u7cfb\u5217\u7684\u5e93\u5f00\u5173<\/em>\u5728\u4e00\u4e2a\u901a\u7528\u6a21\u578b\u4e16\u754c (model world) \u57fa\u7840\u4e0a\u63a7\u5236\uff0c\u8fd9\u4e9b\u5e93\u5f00\u5173\u5728\u6574\u4e2a\u9879\u76ee\u8fc7\u7a0b\u4e2d\u63a5\u6536\u4e00\u5957\u7edf\u4e00\u7684\u503c\u3002\u76f8\u5173\u7684\u5f00\u5173\u4ee5\u53ca\u5b83\u4eec\u5728\u6211\u4eec\u6240\u5efa\u8bae\u7684\u6a21\u578b\u4e16\u754c<\/em>\u4e2d\u7684\u901a\u7528\u503c\u5217\u8868\u5982\u4e0b\u3002<\/p>\n<\/a>\u5b57\u6bcd\u5927\u5c0f\u5199<\/h2>\nFormat .Id_Case : Letter_Case := Capitalized<\/h3>\n
\u8be6\u7ec6\u8bf4\u660e Ada \u5355\u5143\u4e2d\u6807\u8bc6\u7b26\u7684\u5b57\u6bcd\u5927\u5c0f\u5199\uff1a\u6700\u5f00\u59cb\u7684\u5b57\u6bcd\u4ee5\u53ca\u6bcf\u4e2a\u4e0b\u5212\u7ebf\u4e4b\u540e\u7684\u7b2c\u4e00\u4e2a\u5b57\u6bcd\u7528\u5927\u5199\u3002\u5927\u5199\u662f\u8bfb\u8005\u6700\u6613\u8bfb\u7684\u5f62\u5f0f\uff0c\u5177\u6709\u4f17\u591a\u73b0\u4ee3\u5c4f\u5e55\u548c\u6fc0\u5149\u6253\u5370\u673a\u5b57\u4f53\u3002<\/p>\n
Format .Keyword_Case : Letter_Case := Lower<\/h3>\n
\u8bf4\u660e Ada \u5173\u952e\u5b57\u7684\u5927\u5c0f\u5199\u3002\u8fd9\u5c06\u5b83\u4eec\u4e0e\u6807\u8bc6\u7b26\u7565\u5fae\u533a\u5206\u5f00\u6765\u3002<\/p>\n
Format .Number_Case : Letter_Case := Upper<\/h3>\n
\u8bf4\u660e\u6d6e\u70b9\u76f4\u63a5\u91cf\u4e2d\u5b57\u6bcd\u201cE\u201d\u548c\u57fa\u672c\u76f4\u63a5\u91cf\u4e2d\u57fa\u672c\u6570\u5b57\uff08\u201cA\u201d \u5230 \u201cF\u201d\uff09\u7684\u5927\u5c0f\u5199\u3002<\/p>\n
<\/a>\u7f29\u8fdb<\/h2>\n\u4e00\u4e2a Ada \u5355\u5143\u6309\u7167 Ada Reference Manual \u4e2d Appendix E \u6240\u8bf4\u7684\u4e00\u822c\u7ea6\u5b9a\u6765\u7f16\u6392\u683c\u5f0f [ISO87]<\/a>\u3002\u8fd9\u5c31\u662f\u8bf4\uff0c\u4e00\u4e2a\u7ed3\u6784\u5316\u6784\u9020\u7684\u5f00\u59cb\u548c\u7ed3\u675f\u5904\u7684\u5173\u952e\u5b57\u5e94\u8be5\u5bf9\u9f50\u3002 \u4f8b\u5982\uff0c\u201cloop\u201d\u548c\u201cend loop\u201d\uff0c\u201crecord\u201d\u548c\u201cend record\u201d\u3002\u5728\u7ed3\u6784\u5316\u6784\u9020\u5185<\/em>\u7684\u5355\u5143\u5e94\u5411\u53f3\u7f29\u8fdb<\/em>\u3002<\/p>\nFormat .Major_Indentation : Indent_Range := 3<\/h3>\n
\u8bf4\u660e\u683c\u5f0f\u5668\u4ee4\u5982\u201cif\u201d\u8bed\u53e5\u3001\u201ccase\u201d\u8bed\u53e5\u548c\u201cloop\u201d\u8bed\u53e5\u8fd9\u6837\u7684\u7ed3\u6784\u5316\uff08\u4e3b\u8981\u7684\uff09\u6784\u9020\u7f29\u8fdb\u7684\u5217\u6570\u3002<\/p>\n
Format .Minor_Indentation : Indent_Range := 2<\/h3>\n
\u8bf4\u660e\u683c\u5f0f\u5668\u4f7f\u6b21\u8981\u6784\u9020\u7f29\u8fdb\u7684\u5217\u6570\uff1a \u8bb0\u5f55\u7684\u58f0\u660e\u3001\u53d8\u4f53\u8bb0\u5f55\u7684\u58f0\u660e\u3001\u7c7b\u578b\u7684\u58f0\u660e\u3001\u5f02\u5e38\u5904\u7406\u3001\u9009\u62e9\u8bed\u53e5\u3001case \u8bed\u53e5\u3001\u547d\u540d\u548c\u6807\u5fd7\u8bed\u53e5\u3002<\/p>\n
<\/a>\u884c\u7684\u957f\u5ea6\u548c\u884c\u7684\u5206\u9694<\/h2>\nFormat .Line_Length : Line_Range := 80<\/h3>\n
\u8bf4\u660e\u6362\u884c\u524d\u683c\u5f0f\u5668\u663e\u793a Ada \u5355\u5143\u4e2d\u7684\u884c\u6240\u91c7\u7528\u7684\u5217\u6570\u3002\u8fd9\u4f7f\u5f97\u683c\u5f0f\u5316\u7684\u5355\u5143\u53ef\u7528\u4f20\u7edf\u7684 VT100 \u7c7b\u7ec8\u7aef\u663e\u793a\u3002<\/p>\n
Format .Statement_Indentation : Indent_Range := 3<\/h3>\n
\u8bf4\u660e\u5f53\u4e00\u6761\u8bed\u53e5\u957f\u4e8e Line_Length\uff0c\u5fc5\u987b\u8981\u65ad\u5f00\u65f6\uff0c\u683c\u5f0f\u5668\u5e94\u4f7f\u7b2c\u4e8c\u884c\u548c\u540e\u7eed\u884c\u7f29\u8fdb\u591a\u5c11\u5217\u3002\u53ea\u6709\u5f53\u4e0d\u5b58\u5728\u8bcd\u6cd5\u6784\u9020\u53ef\u8ba9\u7f29\u8fdb\u7684\u4ee3\u7801\u5bf9\u9f50\u65f6\uff0c\u683c\u5f0f\u5668\u624d\u4ee4\u4ee3\u7801\u7f29\u8fdb Statement_Indentation \u4e2a\u5217\u3002<\/p>\n
Format .Statement_Length : Line_Range := 35<\/h3>\n
\u8bf4\u660e\u5f53\u663e\u793a\u4e00\u4e2a\u8bed\u53e5\u65f6\uff0c\u6bcf\u884c\u6240\u4fdd\u7559\u7684\u5217\u6570\u3002 \u5982\u679c\u5f53\u524d\u7f29\u8fdb\u7a0b\u5ea6\u6240\u5141\u8bb8\u7684\u4e00\u884c\u4e2d\u7684\u5217\u6570\u5c0f\u4e8e Statement_Length\uff0c\u90a3\u4e48\u683c\u5f0f\u5668\u5c06 Wrap_Indentation \u4f5c\u4e3a\u65b0\u7684\u7f29\u8fdb\u7a0b\u5ea6\u3002\u6b64\u6cd5\u53ef\u9632\u6b62\u5d4c\u5957\u592a\u6df1\u7684\u8bed\u53e5\u663e\u793a\u65f6\u8d85\u51fa\u53f3\u8fb9\u754c\u3002<\/p>\n
Format .Wrap_Indentation : Line_Range := 16<\/h3>\n
\u8bf4\u660e\u5f53\u524d\u7684\u7f29\u8fdb\u7a0b\u5ea6\u4e0d\u4e0d\u8db3 Statement_Length \u65f6\uff0c\u683c\u5f0f\u5668\u5728\u4e0b\u4e00\u884c\u5f00\u5934\u5904\u5e94\u7f29\u8fdb\u7684\u5217\u6570\u3002\u6b64\u6cd5\u53ef\u9632\u6b62\u5d4c\u5957\u592a\u6df1\u7684\u8bed\u53e5\u663e\u793a\u65f6\u8d85\u51fa\u53f3\u8fb9\u754c\u3002<\/p>\n
<\/a>\u5bf9\u9f50<\/h2>\nFormat .Consistent_Breaking : Integer := 1<\/h3>\n
\u63a7\u5236\u5f62\u5982 (xxx:aaa; yyy:bbb) \u7684\u5217\u8868\u683c\u5f0f\uff0c\u8be5\u5217\u8868\u51fa\u73b0\u5728\u5b50\u7a0b\u5e8f\u7684\u5f62\u53c2\u8bf4\u660e\u5904\u548c\u7c7b\u578b\u58f0\u660e\u4e2d\u7684\u5224\u522b\u5f0f\u5904\u3002\u5b83\u4e5f\u63a7\u5236\u5f62\u5982 (xxx=>aaa, yyy=>bbb) \u7684\u5217\u8868\u7684\u683c\u5f0f\uff0c\u8be5\u5217\u8868\u51fa\u73b0\u5728\u5b50\u7a0b\u5e8f\u8c03\u7528\u548c\u805a\u96c6\u5904\u3002\u56e0\u4e3a\u8be5\u9009\u9879\u975e\u96f6\uff08\u771f\uff09\uff0c\u6240\u4ee5\u5f53\u4e00\u4e2a\u5217\u8868\u65e0\u6cd5\u5728\u4e00\u884c\u4e2d\u88c5\u4e0b\u65f6\uff0c\u5217\u8868\u4e2d\u7684\u6bcf\u4e00\u4e2a\u5143\u7d20\u90fd\u5360\u7528\u65b0\u7684\u4e00\u884c\u3002<\/p>\n
Format .Alignment_Threshold : Line_Range := 20<\/h3>\n
\u8bf4\u660e\u4e3a\u4f7f\u8fde\u7eed\u8bed\u53e5\u4e2d\u7684\u8bcd\u6cd5\u6784\u9020\u5bf9\u9f50\uff08\u5982\u547d\u540d\u7b26\u53f7\u4e2d\u7684\u5192\u53f7\u3001\u8d4b\u503c\u53f7\u548c\u7bad\u5934\uff09\uff0c\u683c\u5f0f\u5668\u53ef\u63d2\u5165\u7684\u7a7a\u683c\u6570\u3002\u5982\u679c\u5bf9\u9f50\u4e00\u4e2a\u6784\u9020\u6240\u9700\u7684\u7a7a\u683c\u6570\u591a\u4e8e\u8fd9\u4e2a\u6570\uff0c\u90a3\u4e48\u6784\u9020\u4e0d\u88ab\u5bf9\u9f50\u3002<\/p>\n
\u8981\u6ce8\u610f\u7684\u662f\uff0c\u4e3a\u4e86\u5f62\u6210\u67d0\u79cd\u5e03\u5c40\uff0c\u7a0b\u5e8f\u5458\u53ef\u4ee5\u63d2\u5165\u4e00\u4e2a\u884c\u7ed3\u675f\u7b26\u6216\u8005\u901a\u8fc7\u8f93\u5165 <space> <space> <carriage-return> \u6765\u6572\u5165\u4e00\u4e2a\u4e0d\u4f1a\u88ab\u683c\u5f0f\u5668\u5220\u6389\u7684\u884c\u4e2d\u65ad\u3002<\/p>\n
\u5f53 \u5217\u8868\u4e2d\u7684\u5143\u7d20\u8d85\u8fc7 3 \u4e2a\u5e76\u4e14\u5728\u4e00\u884c\u4e2d\u88c5\u4e0d\u4e0b\u8fd9\u4e9b\u5143\u7d20\u65f6\uff0c\u91c7\u7528\u4e0a\u8ff0\u6280\u5de7\u3002Ada \u5143\u7d20\u5217\u8868\u5e94\u5206\u9694\u4e3a\u4e00\u884c\u4ec5\u6709\u4e00\u4e2a\u5143\u7d20\uff0c\u4ee5\u63d0\u9ad8\u4ee3\u7801\u7684\u6613\u8bfb\u6027\u548c\u53ef\u7ef4\u62a4\u6027\u3002\u8fd9\u4e00\u6761\u5c24\u5176\u9002\u7528\u4e8e\u4ee5\u4e0b Ada \u6784\u9020\uff08\u8c61 Ada Reference Manual \u7684 Appendix E \u4e2d\u6240\u5b9a\u4e49\u7684\u90a3\u6837 [ISO87]<\/a>\uff09\uff1a<\/p>\n\u5b9e\u53c2\u5173\u8054\u5173\u7cfb<\/p>\n
pragma Suppress (Range_Check,\r\nOn => This_Type,\r\nOn => That_Type, On => That_Other_Type);<\/pre>\n\u6807\u8bc6\u7b26\u5217\u8868\uff0c\u7ec4\u4ef6\u5217\u8868<\/p>\n
Next_Position,\r\nPrevious_Position,\r\nCurrent_Position : Position;\r\ntype Some_Record is \r\nrecord\r\nA_Component,\r\nB_Component,\r\nC_Component : Component_Type;\r\nend record;<\/pre>\n\u679a\u4e3e\u7c7b\u578b\u5b9a\u4e49<\/p>\n
type Navaid is \r\n(Vor, \r\nVor_Dme, \r\nDme, \r\nTacan, \r\nVor_Tac, \r\nNDB);<\/pre>\n\u5224\u522b\u5f0f\u7ea6\u675f<\/p>\n
subtype Constrained is Element \r\n(Name_Length => Name'Length,\r\nValid => True,\r\nOperation => Skip);<\/pre>\n\u8bed\u53e5\u7684\u987a\u5e8f\uff08\u7531\u683c\u5f0f\u5668\u5904\u7406\uff09<\/p>\n
\u5f62\u5f0f\u90e8\u5206\u3001\u7c7b\u5c5e\u5f62\u5f0f\u90e8\u5206\u3001\u5b9e\u53c2\u90e8\u5206\u3001\u7c7b\u5c5e\u5b9e\u53c2\u90e8\u5206<\/p>\n
procedure Just_Do_It (This : in Some_Type;\r\nFor_That : in Some Other_Type;\r\nStatus : out Status_Type);\r\nJust_Do_It (This => This_Value;\r\nFor_That => That_Value;\r\nStatus => The_Status);<\/pre>\n
\n<\/a>\u7b2c\u56db\u7ae0<\/em><\/h2>\n\u6ce8\u91ca<\/h1>\n\u6982\u8ff0<\/h2>\n
\u4e0e\u5e7f\u6cdb\u63a5\u53d7\u7684\u89c2\u70b9\u76f8\u53cd\u7684\u662f\uff0c\u597d\u7684\u7a0b\u5e8f\u7684\u7279\u70b9\u5e76\u975e\u662f\u6ce8\u91ca\u7684\u6570\u91cf<\/em>\uff0c\u800c\u662f\u6ce8\u91ca\u7684\u8d28\u91cf<\/em>\u3002<\/p>\n\u6ce8\u91ca\u5e94\u5f53\u4f5c\u4e3a Ada \u4ee3\u7801\u7684\u8865\u5145<\/em>\uff0c\u800c\u4e0d\u662f\u89e3\u91ca\uff1aAda \u672c\u8eab\u662f\u4e00\u79cd\u975e\u5e38\u6613\u8bfb\u7684\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00\uff0c\u5c24\u5176\u662f\u5f53\u88ab\u597d\u7684\u547d\u540d\u7ea6\u5b9a\u652f\u6301\u65f6\u3002\u6ce8\u91ca\u5e94\u5f53\u89e3\u91ca\u90a3\u4e9b\u4e0d\u80fd\u76f4\u63a5\u4ece Ada \u4ee3\u7801\u4e2d\u770b\u51fa\u7684\u5185\u5bb9\uff1b\u5b83\u4eec\u4e0d\u5e94\u590d\u5236 Ada \u7684\u8bed\u6cd5\u6216\u8bed\u4e49\u3002\u6ce8\u91ca\u5e94\u5f53\u5e2e\u52a9\u8bfb\u8005\u638c\u63e1\u80cc\u666f\u6982\u5ff5\u548c\u4f9d\u8d56\u6761\u4ef6\uff0c\u7279\u522b\u662f\u590d\u6742\u7684\u6570\u636e\u7f16\u7801\u548c\u7b97\u6cd5\u3002\u6ce8\u91ca\u5e94\u5f53\u7a81\u51fa\u4e0e\u7f16\u7801\u6216\u8bbe\u8ba1\u6807\u51c6\u7684\u4e0d\u540c\u70b9\u3001\u53d7\u9650\u7279\u6027\u7684\u4f7f\u7528\u4ee5\u53ca\u7279\u6b8a\u7684 \u201c\u6280\u5de7\u201d\u3002\u5728\u6bcf\u4e2a\u4e3b\u8981\u7684 Ada \u6784\u9020\uff08\u5982\u5b50\u7a0b\u5e8f\u548c\u7a0b\u5e8f\u5305\uff09\u4e2d\uff0c\u7cfb\u7edf\u5730\u51fa\u73b0\u7684\u6ce8\u91ca\u6846\u6216\u8868\u5355\u5177\u6709\u4e00\u81f4\u6027\u548c\u63d0\u9192\u7a0b\u5e8f\u5458\u8bf4\u660e\u4ee3\u7801\u7684\u4f18\u70b9\uff0c\u4f46\u5b83\u4eec\u4e5f\u5e38\u5e38\u5e26\u6765\u91ca\u4e49\u4ee3\u7801\u7684\u98ce\u683c\u3002\u5bf9\u6bcf\u4e00\u884c\u6ce8\u91ca\uff0c\u7a0b\u5e8f\u5458\u90fd \u5e94\u80fd\u591f\u5f88\u597d\u5730\u56de\u7b54\uff1a\u201c\u52a0\u5165\u8fd9\u4e2a\u6ce8\u91ca\u6709\u4f55\u4ef7\u503c\uff1f\u201d<\/p>\n\u4e00\u4e2a\u8bef\u5bfc\u6216\u8005\u9519\u8bef\u7684\u6ce8\u91ca\u6bd4\u5b8c\u5168\u4e0d\u6ce8\u91ca\u8fd8\u7cdf\u3002\u7f16\u8bd1\u5668\u4e0d\u68c0\u67e5\u6ce8\u91ca\uff08\u9664\u975e\u5b83\u4eec\u8c61\u201cRational \u8bbe\u8ba1\u5de5\u5177\u201d\u90a3\u6837\u53c2\u4e0e\u4e86\u6b63\u5f0f\u7684 Ada \u8bbe\u8ba1\u8bed\u8a00 (ADL) \u6216\u8005\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00 (PDL)\uff09\u3002\u56e0\u6b64\uff0c\u6839\u636e\u5355\u70b9\u7ef4\u62a4\u539f\u5219\uff0c\u8bbe\u8ba1\u51b3\u5b9a\u5e94\u5728 Ada \u800c\u4e0d\u662f\u6ce8\u91ca\u4e2d\u8868\u8ff0\uff0c\u5373\u4f7f\u8fd9\u6837\u505a\u9700\u8981\u591a\u51e0\u4e2a\u58f0\u660e\u3002<\/p>\n
\u4f5c\u4e3a\u4e00\u4e2a\uff08\u5e76\u975e\u5f88\u597d\u7684\uff09\u4f8b\u5b50\u8003\u8651\u5982\u4e0b\u7684\u58f0\u660e\uff1a<\/p>\n
------------------------------------------------------------\r\n-- procedure Create\r\n------------------------------------------------------------\r\n--\r\nprocedure Create\r\n(The_Subscriber: in out Subscriber.Handle;\r\nWith_Name : in out Subscriber.Name);\r\n--\r\n-- Purpose: This procedure creates a subscriber with a given\r\n-- name.\r\n--\r\n-- Parameters: \r\n- The_Subscriber :mode in out, type Subscriber.Handle\r\n- It is the handle to the created subscriber\r\n- With_Name :mode in, type Subscriber.Name\r\n- The name of the subscriber to be created.\r\n- The syntax of the name is\r\n-- <letter> { <letter> | <digit> }\r\n-- Exceptions:\r\n-- Subscriber.Collection_Overflow when there is no more\r\n-- space to create a new subscriber\r\n-- Subscriber.Invalid_Name when the name is blank or\r\n-- malformed\r\n--\r\n-------------------------------------------- end Create ----<\/pre>\n\u4f8b\u5b50\u4e2d\u6709\u51e0\u70b9\u8981\u6307\u51fa\u6765\u3002<\/p>\n
\n- \u6709\u8bb8\u591a\u5197\u4f59\uff1a<\/li>\n<\/ul>\n
\n- – \u8fc7\u7a0b\u521b\u5efa (Procedure Create)\uff1a\u5982\u679c\u8981\u6539\u540d\uff0c\u6709\u51e0\u5904\u5730\u65b9\u9700\u8981\u4fee\u6539\uff1b\u7ecf\u5e38\u6027\u5730\u4fee\u6539\u6ce8\u91ca\uff0c\u7f16\u8bd1\u5668\u4e0d\u4f1a\u6267\u884c\u3002<\/dd>\n
- – \u6ce8\u91ca\u4e2d\u65e0\u9700\u91cd\u590d\u8bf4\u660e\u53c2\u6570\u540d\u3001\u6a21\u5f0f\u548c\u7c7b\u578b\u3002<\/dd>\n
- – \u8fd9\u91cc\u7ed9\u6bcf\u4e2a Ada \u5b9e\u4f53\u6240\u53d6\u7684\u540d\u5b57\u5f88\u597d\uff0c\u8fd9\u4f7f\u5f97\u529f\u80fd\u548c\u53c2\u6570\u89e3\u91ca\u53d8\u5f97\u591a\u4f59\u3002\u6ce8\u610f\uff0c\u8fd9\u4e00\u70b9\u53ea\u662f\u5bf9\u4e8e\u5982\u4e0a\u4f8b\u8fd9\u6837\u7684\u7b80\u5355\u7684\u5b50\u7a0b\u5e8f\u6765\u8bf4\u624d\u662f\u6b63\u786e\u7684\u3002\u5bf9\u4e8e\u66f4\u590d\u6742\u7684\u5b50\u7a0b\u5e8f\uff0c\u4ecd\u9700\u8981\u529f\u80fd\u548c\u53c2\u6570\u89e3\u91ca\u3002<\/dd>\n<\/dl>\n
\n- \u6846\u67b6\u52a0\u5165\u4e86\u592a\u591a\u7684\u5e72\u6270\uff0c\u9690\u85cf\u4e86\u5173\u952e\u9879\uff1a\u8fc7\u7a0b\u58f0\u660e\u3002\u53e6\u5916\uff0c\u53f3\u7aef\u7684\u5782\u76f4\u8fb9\u5f00\u59cb\u65f6\u770b\u4e0a\u53bb\u8fd8\u5f88\u6f02\u4eae\uff0c\u4f46\u5374\u4f7f\u4fee\u6539\u53d8\u5f97\u6781\u4e3a\u75db\u82e6\uff0c\u901a\u5e38\u51e0\u5e74\u7684\u7ef4\u62a4\u4e0b\u6765\uff0c\u4ee3\u7801\u6700\u540e\u5b8c\u5168\u4e0d\u5bf9\u9f50\u5e76\u4e14\u5343\u75ae\u767e\u5b54\u3002<\/li>\n
- \u76f8\u53cd\u7684\u662f\uff0c\u8fd9\u91cc\u5e94\u8bf4\u660e\u4ea7\u751f\u4e86\u4f55\u79cd\u5f02\u5e38\uff0c\u56e0\u4e3a\u82e5\u53ea\u8bfb\u89c4\u683c\u8bf4\u660e\uff0c\u8fd9\u4e00\u70b9\u5e76\u4e0d\u660e\u663e\u3002\u4f46\u6bcf\u4e2a\u5f02\u5e38\u7684\u51c6\u786e\u542b\u4e49\u5e94\u653e\u5728\u81ea\u8eab\u7684\u5f02\u5e38\u58f0\u660e\u5904\u3002<\/li>\n
- \u5e94\u8bf4\u660e\u53c2\u6570\u7684\u524d\u7f6e\u548c\u540e\u7f6e\u6761\u4ef6\uff0c\u5c24\u5176\u662f\u53c2\u6570\u95f4\u7684\u5173\u7cfb\u3002\u8fd9\u4e9b\u4e0d\u5e94\u4e0e\u5176\u5b83\u5730\u65b9\u53ef\u4ee5\u627e\u5230\u7684\u4fe1\u606f\u91cd\u590d\uff0c\u5982\u6709\u6548\u540d\u7684\u8bed\u6cd5\uff0c\u5b83\u53ea\u5e94\u5728\u4e00\u5904\u8bf4\u660e\u3002<\/li>\n<\/ul>\n
\u5728\u8fd9\u4e2a\u4f8b\u5b50\u4e2d\uff0c\u6700\u597d\u91c7\u7528\u5982\u4e0b\u66f4\u7b80\u6d01\u3001\u66f4\u6709\u7528\u7684\u65b9\u5f0f\uff1a<\/p>\n
procedure Create (The_Subscriber : in out Subscriber.Handle;\r\nWith_Name : in Subscriber.Name);--\r\n-Raises Subscriber.Collection_Overflow.\r\n-Raises Subscriber.Invalid_Name when the name is \r\nblank or malformed (see syntax description \r\nattached to declaration of type Subscriber.Name).<\/pre>\n<\/a>\u6ce8\u91ca\u7528\u6cd5\u6307\u5357<\/h2>\n\u6ce8\u91ca\u5e94\u653e\u5728\u76f8\u5173\u4ee3\u7801\u7684\u65c1\u8fb9\uff0c\u7f29\u8fdb\u540c\u6837\u7684\u5927\u5c0f\uff0c\u7d27\u9760\u7740\u4ee3\u7801 – \u5373\u7528\u7a7a\u7684\u6ce8\u91ca\u884c\u5728\u89c6\u89c9\u4e0a\u5c06\u6ce8\u91ca\u5757\u4e0e Ada \u6784\u9020\u6346\u5728\u4e00\u8d77\uff1a<\/p>\n
procedure First_One;\r\n--\r\n-- This comment relates to First_One.\r\n-- But this comment is for Second_One.\r\n-- \r\nprocedure Second_One (Times : Natural);<\/pre>\n\u7528\u7a7a\u884c\u5206\u9694\u76f8\u5173\u7684\u6e90\u7801\u5757\uff08\u6ce8\u91ca\u548c\u4ee3\u7801\uff09\uff0c\u800c\u4e0d\u7528\u7c97\u91cd\u7684\u6ce8\u91ca\u884c\uff0c\u5982\uff1a<\/p>\n
-------------------------------------------------------------<\/pre>\n\u6216\u8005\uff1a<\/p>\n
--===========================================================<\/pre>\n\u5728\u4e00\u4e2a\u6ce8\u91ca\u5757\u4e2d\uff0c\u4f7f\u7528\u7a7a\u6ce8\u91ca\u884c\u800c\u975e\u7a7a\u884c\u6765\u5206\u5272\u6ce8\u91ca\u6bb5<\/p>\n
-- Some explanation here that needs to be continued in a\r\n-- subsequent paragraph.\r\n--\r\n-- The empty comment line above makes it clear that we \r\n-- are dealing with a single comment block.<\/pre>\n\u867d\u7136\u6ce8\u91ca\u53ef\u4ee5\u653e\u5728\u76f8\u5173 Ada \u6784\u9020\u7684\u4e0a\u65b9\u6216\u4e0b\u65b9\uff0c\u4f46\u662f\u8981\u5c06\u4e00\u8282\u7684\u6807\u9898\u6216\u8005\u4e00\u4e2a\u8bf4\u660e\u51e0\u4e2a Ada \u6784\u9020\u7684\u4e3b\u8981\u4fe1\u606f\u653e\u5728\u6784\u9020\u7684\u4e0a\u65b9<\/em>\u3002\u5c06\u8bc4\u8ff0\u6216\u9644\u52a0\u4fe1\u606f\u7b49\u8fd9\u4e00\u7c7b\u7684\u6ce8\u91ca\u653e\u5728\u76f8\u5173 Ada \u6784\u9020\u7684\u4e0b\u65b9<\/em>\u3002<\/p>\n\u7528\u4e00\u9875\u7684\u6574\u884c\u5bbd\u5728 Ada \u6784\u9020\u7684\u5f00\u5934\u5904\u5206\u7ec4\u3002\u907f\u514d\u5c06\u6ce8\u91ca\u653e\u5728 Ada \u6784\u9020\u7684\u540c\u4e00\u884c\u3002\u8fd9\u4e9b\u6ce8\u91ca\u5e38\u5e38\u53d8\u5f97\u4e0d\u5bf9\u9f50\u3002\u4f46\u662f\u5728\u8bf4\u660e\u4e00\u4e2a\u957f\u7684\u58f0\u660e\u65f6\uff0c\u5982\u679a\u4e3e\u7c7b\u578b\u76f4\u63a5\u91cf\uff0c\u8fd9\u6837\u7684\u6ce8\u91ca\u65b9\u5f0f\u662f\u53ef\u4ee5\u5bb9\u8bb8\u7684\u3002<\/p>\n
\u7528\u4e00\u4e2a\u5c0f\u7684\u5206\u5c42\u6b21\u7684\u6807\u51c6\u6ce8\u91ca\u5757\u6765\u8bf4\u660e\u5c0f\u8282\u7684\u6807\u9898\uff0c\u4f46\u8fd9\u4ec5\u4ec5\u9002\u7528\u4e8e\u5f88\u5927\u7684 Ada \u5355\u5143\uff08>200 \u884c\u7684\u58f0\u660e\u6216\u8005\u8bed\u53e5\uff09\uff1a<\/p>\n
--===========================================================\r\n--\r\n \u4e3b\u6807\u9898\r\n--\r\n--===========================================================\r\n\r\n-------------------------------------------------------------\r\n \u526f\u6807\u9898\r\n-------------------------------------------------------------\r\n\r\n --------------------\r\n \u5b50\u90e8\u5206\u7684\u5934\r\n --------------------<\/pre>\n\u5728\u8fd9\u79cd\u6807\u9898\u524d\u9762\u6240\u653e\u7684\u7a7a\u884c\u6570\u8981\u591a\u4e8e\u540e\u9762\u7684\u7a7a\u884c\u6570\uff0c\u4f8b\u5982\uff0c\u4e24\u884c\u5728\u524d\u4e00\u884c\u5728\u540e\u3002\u8fd9\u6837\u4f7f\u6807\u9898\u4e0e\u968f\u540e\u7684\u6b63\u6587\u5728\u89c6\u89c9\u4e0a\u76f8\u8054\u7cfb\u3002<\/p>\n
\u907f \u514d\u4f7f\u7528\u542b\u6709\u4fe1\u606f\u7684\u51fd\u6570\u5934\uff0c\u6bd4\u5982\u4f5c\u8005\u3001\u7535\u8bdd\u3001\u521b\u5efa\u548c\u4fee\u6539\u65e5\u671f\u3001\u5355\u5143\uff08\u6216\u6587\u4ef6\u540d\uff09\u7684\u4f4d\u7f6e\uff0c\u56e0\u4e3a\u8fd9\u4e9b\u4fe1\u606f\u5f88\u5feb\u5c31\u4f1a\u8fc7\u65f6\u3002\u5c06\u6240\u6709\u8005\u7248\u6743\u4fe1\u606f\u653e\u5728\u5355\u5143\u7684\u672b\u5c3e\uff0c\u5c24\u5176\u662f \u4f7f\u7528\u201cRational \u73af\u5883\u201d\u65f6\u3002\u5f53\u8bbf\u95ee\u4e00\u4e2a\u7a0b\u5e8f\u5305\u7684\u89c4\u683c\u8bf4\u660e\u6e90\u7801\u65f6 – \u4f8b\u5982\u5728\u201cRational \u73af\u5883\u201d\u4e2d\u6309 [Definition] – \u8bfb\u8005\u4e0d\u60f3\u6d4f\u89c8\u4e24\u9875\u6216\u8005\u4e09\u9875\u5bf9\u7406\u89e3\u7a0b\u5e8f\u65e0\u4efb\u4f55\u7528\u5904\u7684\u6587\u672c\u548c\/\u6216\u5b8c\u5168\u4e0d\u5e26\u6709\u4efb\u4f55\u7a0b\u5e8f\u4fe1\u606f\u7684\u6587\u672c\u3002\u907f\u514d\u4f7f\u7528\u5782\u76f4\u6eda\u52a8\u6761\u3001\u5c01\u95ed\u56fe\u6587\u6846\u6216\u65b9\u6846\uff0c\u8fd9\u4e9b\u4e1c\u897f\u53ea\u4f1a\u589e\u52a0\u89c6\u89c9 \u5e72\u6270\uff0c\u800c\u4e14\u96be\u4ee5\u4fdd\u6301\u4e00\u81f4\u6027\u3002\u7528 Rational CMVC \u9644\u6ce8\uff08\u6216\u8005\u5176\u5b83\u5f62\u5f0f\u7684\u8f6f\u4ef6\u5f00\u53d1\u6587\u4ef6\uff09\u6765\u4fdd\u5b58\u5355\u5143\u5386\u53f2\u3002<\/p>\n
\u4e0d\u8981\u91cd\u590d\u53ef\u4ee5\u5728\u5176\u5b83\u5730\u65b9\u627e\u5230\u7684\u4fe1\u606f\uff1b\u4ec5\u63d0\u4f9b\u4e00\u4e2a\u6307\u5411\u8be5\u4fe1\u606f\u7684\u6307\u9488\u5373\u53ef\u3002<\/p>\n
\u5c3d \u91cf\u91c7\u7528 Ada\uff0c\u800c\u975e\u6ce8\u91ca\u3002\u8981\u5b9e\u73b0\u8fd9\u4e00\u70b9\uff0c\u4f60\u53ef\u9009\u62e9\u66f4\u597d\u7684\u540d\u5b57\u3001\u9644\u52a0\u4e34\u65f6\u53d8\u91cf\u3001\u9650\u5b9a\u3001\u91cd\u547d\u540d\u3001\u5b50\u7c7b\u578b\u3001\u9759\u6001\u8868\u8fbe\u5f0f\u548c\u5c5e\u6027\uff0c\u8fd9\u4e9b\u90fd\u4e0d\u5f71\u54cd\u751f\u6210\u7684\u4ee3\u7801\uff08\u81f3\u5c11\u5728\u4e00\u4e2a\u597d\u7684 \u7f16\u8bd1\u5668\u4e2d\u4e0d\u5f71\u54cd\uff09\u3002\u4f60\u4e5f\u53ef\u4ee5\u91c7\u7528\u5c0f\u7684\u3001\u5d4c\u5165\u5f0f\u7684\u8c13\u8bcd\u51fd\u6570\uff0c\u5e76\u5c06\u4ee3\u7801\u5206\u6210\u51e0\u4e2a\u65e0\u53c2\u8fc7\u7a0b\uff0c\u8fd9\u4e9b\u8fc7\u7a0b\u7684\u540d\u5b57\u63d0\u4f9b\u4e86\u4ee3\u7801\u51e0\u4e2a\u79bb\u6563\u90e8\u5206\u7684\u6807\u9898\u3002<\/p>\n
\u793a\u4f8b\uff1a<\/p>\n
\u5c06\uff1a<\/p>\n
exit when Su.Locate (Ch, Str) \/= 0; \r\n-- Exit search loop when found it.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
Search_Loop : loop<\/p>\n
Found_It := Su.Locate (Ch, Str) \/= 0;<\/p>\n
exit Search_Loop when Found_It<\/p>\n
end Search_Loop;<\/p>\n
\u5c06\uff1a<\/p>\n
if Value < 'A' or else Value > 'Z' then\r\n-- If not in uppercase letters.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
subtype Uppercase_Letters is Character range 'A' ..'Z';\r\nif Value not in Uppercase_Letters then ...<\/pre>\n\u5c06\uff1a<\/p>\n
X := Green; -- This is the Green from \r\n-- Status, not from Color.\r\nraise Fatal_Error; -- From package Outer_Scope.\r\ndelay 384.0; -- Equal to 6 minutes and 24 \r\n-- seconds.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
The_Status := Green;<\/pre>\nor:<\/p>\n
X := Status'(Green);\r\nraise Outer_Scope.Fatal_Error;\r\ndelay 6.0 * Minute + 24.0 * Second;<\/pre>\n\u5c06\uff1a<\/p>\n
if Is_Valid (The_Table (Index).Descriptor(Rank).all) then\r\n-- This is the current value for the iteration; if it is \r\n-- valid we append to the list it contains.\r\nAppend (Item, To_List => The_Table (Index).Descriptor(Rank).Ptr);|<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
declare\r\nCurrent_Rank : Lists.List renames The_Table \r\n(Index).Descriptor (Rank);\r\nbegin\r\nif Is_Valid (Current_Rank.all) then\r\nAppend (Item, To_List => Current_Rank.Ptr);\r\nend if;\r\nend;<\/pre>\n\u6ce8\u610f\u6ce8\u91ca\u4e2d\u7684\u98ce\u683c\u3001\u8bed\u6cd5\u548c\u62fc\u5199\u3002\u4e0d\u8981\u4f7f\u7528\u8c61\u7535\u62a5\u5bc6\u7801\u4e00\u822c\u7684\u98ce\u683c\u3002\u4f7f\u7528\u62fc\u5199\u68c0\u67e5\u3002\uff08\u5728\u201cRational \u73af\u5883\u201d\u4e2d\u8c03\u7528 Speller.Check_Image\uff09\u3002<\/p>\n
\u4e0d\u8981\u4f7f\u7528\u65b9\u8a00\u5b57\u6bcd\u6216\u8005\u5176\u5b83\u975e\u82f1\u6587\u5b57\u7b26\u3002\u6839\u636e Ada Issue AI-339\uff0c\u975e\u82f1\u6587\u5b57\u7b26\u53ef\u88ab\u4e00\u4e9b\u5f00\u53d1\u7cfb\u7edf\u652f\u6301\uff0c\u4e00\u4e9b Ada \u7f16\u8bd1\u5668\u4ec5\u5728\u6ce8\u91ca\u4e2d\u652f\u6301\u3002\u4f46\u8fd9\u662f\u4e0d\u53ef\u79fb\u690d\u7684\uff0c\u5f88\u6709\u53ef\u80fd\u5728\u5176\u5b83\u7cfb\u7edf\u4e0a\u5931\u6548\u3002<\/p>\n
\u5bf9\u4e8e\u5b50\u7a0b\u5e8f\uff0c\u81f3\u5c11\u8bf4\u660e\uff1a<\/p>\n
\n- \u5b50\u7a0b\u5e8f\u7684\u7528\u9014\uff0c\u4f46\u8fd9\u53ea\u662f\u5f53\u4ece\u5b83\u7684\u540d\u5b57\u4e2d\u4e0d\u80fd\u660e\u786e\u4e86\u89e3\u5176\u7528\u9014\u65f6<\/li>\n
- \u5728\u4f55\u79cd\u6761\u4ef6\u4e0b\u751f\u6210\u4e86\u4f55\u79cd\u5f02\u5e38<\/li>\n
- \u5982\u679c\u6709\u7684\u8bdd\uff0c\u53c2\u6570\u7684\u524d\u7f6e\u6216\u540e\u7f6e\u6761\u4ef6<\/li>\n
- \u5176\u4ed6\u6570\u636e\u8bbf\u95ee\uff0c\u7279\u522b\u662f\u5f53\u6570\u636e\u88ab\u4fee\u6539\u65f6\uff1b\u8fd9\u5c24\u5176\u5305\u62ec\u6709\u526f\u4f5c\u7528\u7684\u51fd\u6570<\/li>\n
- \u6b63\u786e\u4f7f\u7528\u5b50\u7a0b\u5e8f\u6240\u9700\u7684\u4efb\u4f55\u9650\u5236\u6216\u9644\u52a0\u4fe1\u606f<\/li>\n<\/ul>\n
\u5bf9\u4e8e\u7c7b\u578b\u548c\u5bf9\u8c61\uff0c\u8981\u8bf4\u660e\u6240\u6709\u4e0d\u80fd\u901a\u8fc7 Ada \u8868\u8fbe\u7684\u4e0d\u53d8\u91cf\u6216\u9644\u52a0\u7ea6\u675f\u3002<\/p>\n
\u907f\u514d\u6ce8\u91ca\u4e2d\u7684\u91cd\u590d\u3002\u4f8b\u5982\uff0c\u6709\u5173\u7528\u9014\u7684\u90e8\u5206\u5e94\u662f\u201c\u5b83\u505a\u4ec0\u4e48\uff1f\u201d\u8fd9\u4e2a\u95ee\u9898\u7684\u7b80\u5355\u56de\u7b54\uff0c\u800c\u4e0d\u662f\u201c\u5b83\u600e\u4e48\u505a\uff1f\u201d\u7684\u56de\u7b54\u3002\u6982\u8ff0\u5e94\u662f\u8bbe\u8ba1\u7684\u7b80\u77ed\u8868\u8fbe\u3002\u8bf4\u660e\u4e2d\u4e0d\u5e94\u63cf\u8ff0\u6240\u7528\u7684\u7b97\u6cd5\uff0c\u800c\u5e94\u89e3\u91ca\u7a0b\u5e8f\u5305\u5e94\u5982\u4f55\u4f7f\u7528\u3002<\/p>\n
\u6570\u636e\u7ed3\u6784\u548c\u7b97\u6cd5\u90e8\u5206\u5e94\u542b\u6709\u8db3\u591f\u7684\u4fe1\u606f\u6765\u5e2e\u52a9\u7406\u89e3\u4e3b\u8981\u7684\u5b9e\u73b0\u7b56\u7565\uff08\u4ee5\u4fbf\u6b63\u786e\u4f7f\u7528\u7a0b\u5e8f\u5305\uff09\uff0c\u4f46\u65e0\u9700\u5305\u542b\u6240\u6709\u7684\u5b9e\u73b0\u7ec6\u8282\u6216\u4e0e\u6b63\u786e\u4f7f\u7528\u5305\u6beb\u4e0d\u76f8\u5173\u7684\u4fe1\u606f\u3002<\/p>\n
\n<\/a>\u7b2c\u4e94\u7ae0<\/em><\/h2>\n\u547d\u540d\u7ea6\u5b9a<\/h1>\n\u6982\u8ff0<\/h2>\n
\u7ed9 Ada \u5b9e\u4f53\uff08\u7a0b\u5e8f\u5355\u5143\u3001\u7c7b\u578b\u3001\u5b50\u7c7b\u578b\u3001\u5bf9\u8c61\u3001\u76f4\u63a5\u91cf\u3001\u5f02\u5e38\uff09\u6307\u5b9a\u597d\u540d\u5b57\u662f\u6240\u6709\u8f6f\u4ef6\u5e94\u7528\u7a0b\u5e8f\u8981\u8868\u8ff0\u7684\u6700\u7cbe\u5de7\u7684\u4e8b\u60c5\u4e4b\u4e00\u3002\u4e2d\u7b49\u89c4\u6a21\u5230\u5927\u89c4\u6a21\u7684\u5e94\u7528\u7a0b\u5e8f\u5b58\u5728\u7740\u53e6\u4e00\u4e2a\u95ee \u9898\uff1a\u540d\u5b57\u95f4\u7684\u51b2\u7a81\uff0c\u6216\u662f\u8981\u627e\u5230\u8db3\u591f\u7684\u540c\u4e49\u8bcd\u6765\u6307\u4ee3\u76f8\u540c\u73b0\u5b9e\u4e16\u754c\u4e2d\u76f8\u4f3c\u4f46\u53c8\u6709\u522b\u7684\u6982\u5ff5\uff08\u6216\u662f\u547d\u540d\u4e00\u4e2a\u7c7b\u578b\u3001\u5b50\u7c7b\u3001\u5bf9\u8c61\u3001\u53c2\u6570\uff09\u3002\u8fd9\u91cc\u53ef\u5229\u7528\u4e0d\u91c7\u7528\u201cuse\u201d \u5b50\u53e5\uff08\u6216\u53ea\u5728\u6781\u4e3a\u53d7\u9650\u7684\u6761\u4ef6\u4e0b\u91c7\u7528\uff09\u7684\u6cd5\u5219\u3002\u5728\u8bb8\u591a\u60c5\u5f62\u4e0b\uff0c\u8fd9\u4f7f\u5f97\u53ef\u4ee5\u4e0d\u5192\u6df7\u6dc6\u7684\u98ce\u9669\u800c\u7f29\u77ed\u540d\u5b57\uff0c\u5e76\u590d\u7528\u76f8\u540c\u7684\u63cf\u8ff0\u8bcd\u3002<\/p>\n
\u9009\u62e9\u6e05\u6670\u7684\u3001\u6613\u8bfb\u7684\u3001\u6709\u610f\u4e49\u7684\u540d\u79f0\u3002<\/p>\n
\u4e0e\u5176\u5b83\u7684\u7f16\u7a0b\u8bed\u8a00\u4e0d\u540c\uff0cAda \u4e0d\u5c06\u6807\u8bc6\u7b26\u7684\u957f\u5ea6\u9650\u5236\u5728 6\uff0c8 \u6216\u8005 15 \u4e2a\u5b57\u7b26\u5185\u3002\u77ed\u540d\u5b57\u6253\u5b57\u901f\u5ea6\u5feb\u4e0d\u662f\u91c7\u7528\u5b83\u4eec\u7684\u53ef\u4ee5\u4e3a\u4eba\u63a5\u53d7\u7684\u7406\u7531\u3002\u53ea\u6709\u4e00\u4e2a\u5b57\u6bcd\u7684\u6807\u8bc6\u7b26\u901a\u5e38\u8bf4\u660e\u9009\u62e9\u4e0d\u5f53\u6216\u662f\u61d2\u60f0\u3002\u53ef\u80fd\u6709\u51e0\u4e2a\u4f8b\u5916\uff0c\u5982\u5c06 E \u4f5c\u4e3a\u81ea\u7136\u5bf9\u6570\u7684\u5e95\uff0cPi\uff0c\u4ee5\u53ca\u5176\u5b83\u5c11\u6570\u51e0\u4e2a\u6613\u8fa8\u8bc6\u7684\u60c5\u51b5\u3002<\/p>\n
\u7528\u4e0b\u5212\u7ebf\u5c06\u4e00\u4e2a\u540d\u5b57\u4e2d\u7684\u4e0d\u540c\u5355\u8bcd\u5206\u9694\u5f00\u6765\uff1a<\/p>\n
Is_Name_Valid<\/code> \u4e0d\u662f IsNameValid<\/code><\/p>\n\u91c7\u7528\u5168\u540d\u800c\u4e0d\u662f\u7f29\u5199\u3002<\/p>\n
\u53ea\u91c7\u7528\u9879\u76ee\u8ba4\u53ef\u7684\u7f29\u7565\u8bcd\u3002<\/p>\n
\u53ea\u80fd\u662f\u5728\u4e24\u79cd\u60c5\u51b5\u4e4b\u4e00\u65f6\u91c7\u7528\u7f29\u5199\uff1a\u8be5\u7f29\u5199\u5728\u5e94\u7528\u9886\u57df\u4e2d\u5f88\u666e\u904d\uff08\u5982 FFT \u4ee3\u8868\u5085\u7acb\u53f6\u53d8\u6362\uff09\u6216\u8005\u6765\u81ea\u516c\u8ba4\u7f29\u5199\u7684\u9879\u76ee\u7ea7\u5217\u8868\u3002\u5426\u5219\uff0c\u5f88\u6709\u53ef\u80fd\u4f7f\u76f8\u4f3c\u4f46\u4e0d\u76f8\u540c\u7684\u7f29\u5199\u5230\u5904\u51fa\u73b0\uff0c\u5bfc\u81f4\u4ee5\u540e\u7684\u6df7\u6dc6\u548c\u9519\u8bef\uff08\u5982\u5c06 track_identification \u7f29\u5199\u6210 trid\u3001trck_id\u3001tr_iden\u3001tid\u3001tr_ident\u7b49\uff09\u3002<\/p>\n
\u5c11\u7528\u540e\u7f00\u8bf4\u660e Ada \u6784\u9020\u7684\u5206\u7c7b\u3002\u5b83\u4eec\u4e0d\u80fd\u63d0\u9ad8\u6613\u8bfb\u6027\u3002<\/p>\n
\u901a\u5e38\u6309\u7167 Ada \u5b9e\u4f53\u7684\u7c7b\u6765\u52a0\u540e\u7f00\uff0c\u5982\u7ed9\u7a0b\u5e8f\u5305\u52a0\u4e0a _Package\uff0c\u5f02\u5e38\u52a0\u4e0a _Error\uff0c\u7c7b\u578b\u52a0\u4e0a _Type\uff0c\u4ee5\u53ca\u5b50\u7a0b\u5e8f\u7684\u53c2\u6570\u52a0\u4e0a _Param\uff0c\u5bf9\u5e2e\u52a9\u9605\u8bfb\u548c\u7406\u89e3\u4ee3\u7801\u4e0d\u662f<\/em>\u5f88\u6709\u6548\u3002 \u800c\u52a0\u4e0a\u5982 _Array\uff0c_Record \u548c _Function \u8fd9\u6837\u7684\u540e\u7f00\u5219\u66f4\u7cdf\u3002Ada \u7f16\u8bd1\u5668\u548c\u8bfb\u8005\u90fd\u53ef\u4ee5\u6839\u636e\u4e0a\u4e0b\u6587\u4ece\u5b50\u7a0b\u5e8f\u4e2d\u5206\u8fa8\u4e00\u4e2a\u5f02\u5e38\uff1a\u663e\u7136\u53ea\u6709\u5f02\u5e38\u540d\u53ef\u4ee5\u5728 raise<\/em> \u8bed\u53e5\u6216\u5f02\u5e38\u5904\u7406\u4e2d\u51fa\u73b0\u3002\u8fd9\u4e9b\u540e\u7f00\u5728\u5982\u4e0b\u53d7\u9650\u7684\u6761\u4ef6\u4e0b\u53ef\u7528\uff1a<\/p>\n\n- \u5f53\u5408\u9002\u7684\u8bcd\u7684\u9009\u62e9\u8303\u56f4\u975e\u5e38\u6709\u9650\u65f6\uff0c\u7ed9\u5bf9\u8c61\u9009\u4e00\u4e2a\u6700\u597d\u7684\u540d\u5b57\u5e76\u52a0\u4e0a\u7c7b\u578b\u7684\u540e\u7f00\u3002<\/li>\n
- \u5bf9\u4e8e\u7c7b\u5c5e\u5355\u5143,\u603b\u53ef\u4ee5\u52a0\u4e0a\u5f62\u5982 _Generic \u7684\u540e\u7f00\uff0c\u6240\u4ee5\u5bf9\u4e00\u4e9b\u6216\u8bb8\u591a\u5b9e\u4f8b\u6765\u8bf4\uff0c\u53ef\u4ee5\u4e0d\u6dfb\u52a0\u8be5\u540e\u7f00\u800c\u4f7f\u7528\u4e0e\u5176\u76f8\u540c\u7684\u540d\u5b57\u3002<\/li>\n
- \u5f53\u5b83\u8868\u793a\u4e00\u4e2a\u5e94\u7528\u9886\u57df\u7684\u6982\u5ff5\u65f6\uff0c\u5982 Aircraft_Type\u3002<\/li>\n
- \u5f53\u91cd\u8981\u7684\u8bbe\u8ba1\u51b3\u7b56\u9700\u9ad8\u5ea6\u53ef\u89c1\u65f6\uff1a<\/li>\n<\/ul>\n
\u7c7b\u5c5e\u5f62\u53c2\u7c7b\u578b\u540e\u7f00\u4e3a _Constrained<\/p>\n
\u540e\u7f00\u4e3a _Pointer \u7684\u5b58\u53d6\u7c7b\u578b\u6216\u5176\u5b83\u975e\u76f4\u63a5\u6307\u4ee3\u7684\u5f62\u5f0f\uff1a_Handle \u6216 _Reference<\/p>\n
\u901a\u8fc7 _Or_Wait \u9690\u85cf\u4e86\u53ef\u80fd\u963b\u585e\u7684\u5165\u53e3\u8c03\u7528\u7684\u5b50\u7a0b\u5e8f<\/p>\n
\u5c06\u540d\u5b57\u8868\u8ff0\u51fa\u6765\uff0c\u4f7f\u5f97\u4ece\u4f7f\u7528<\/em>\u7684\u89d2\u5ea6\u770b\uff0c\u5b83\u4eec\u8fd8\u4e0d\u9519\u3002<\/p>\n\u8bd5\u60f3\u4e00\u4e2a\u5bfc\u51fa\u5b9e\u4f53\u53ef\u5728\u5176\u4e2d\u4f7f\u7528\u7684\u4e0a\u4e0b\u6587\uff0c\u5e76\u7ad9\u5728\u90a3\u4e2a\u89d2\u5ea6\u9009\u62e9\u4e00\u4e2a\u540d\u5b57\u3002\u4e00\u4e2a\u5b9e\u4f53\u4ec5\u88ab\u5b9a\u4e49\u4e00\u6b21\uff0c\u4f46\u5374\u88ab\u4f7f\u7528\u8bb8\u591a\u6b21\u3002\u8fd9\u4e00\u70b9\u5bf9\u4e8e\u5b50\u7a0b\u5e8f\u7684\u540d\u5b57\u53ca\u5176\u53c2\u6570\u6765\u8bf4\u5c24\u4e3a\u6b63\u786e\uff1b \u4f7f\u7528\u547d\u540d\u5173\u8054\u5173\u7cfb\u7684\u7ed3\u679c\u8c03\u7528\u5e94\u5c3d\u91cf\u4e0e\u81ea\u7136\u8bed\u8a00\u76f8\u8fd1\u3002\u8bb0\u4f4f\u7f3a\u5c11\u4f7f\u7528<\/em>\u5b50\u53e5\u4f7f\u5f97\u5927\u591a\u6570\u58f0\u660e\u5b9e\u4f53\u5fc5\u987b\u5177\u6709\u53d7\u9650\u540d\u3002\u5bf9\u4e8e\u6709\u53ef\u80fd\u5728\u7c7b\u5c5e\u5355\u5143\u4e2d\u6bd4\u5728\u4eab\u7528\u6a21\u5757\u90a3\u91cc\u4f7f\u7528\u5f97\u8fd8\u591a\u7684\u7c7b\u5c5e\u5f62\u53c2\u6765\u8bf4\uff0c\u5fc5\u987b\u5bfb\u627e\u4e00\u4e2a\u597d\u7684\u534f\u8c03\u529e\u6cd5\uff0c\u4f46\u662f\u7edd\u5bf9\u8981\u4fdd\u8bc1\u5b50\u7a0b\u5e8f\u7684\u5f62\u53c2\u5728\u4eab\u7528\u6a21\u5757\u7aef\u597d\u770b\u3002<\/p>\n\u4f7f\u7528\u82f1\u6587\u5355\u8bcd\u5e76\u62fc\u5199\u6b63\u786e\u3002<\/p>\n
\u8bed\u8a00\u7684\u6df7\u5408\uff08\u5982\u6cd5\u8bed\u548c\u82f1\u8bed\uff09\u5c06\u4f7f\u4ee3\u7801\u96be\u8bfb\uff0c\u6709\u65f6\u4f7f\u6807\u8bc6\u7b26\u7684\u610f\u4e49\u6478\u68f1\u4e24\u53ef\u3002 \u65e2\u7136 Ada \u7684\u5173\u952e\u5b57\u5df2\u662f\u82f1\u6587\u7684\uff0c\u5219\u8981\u6c42\u4f7f\u7528\u82f1\u6587\u5355\u8bcd\u3002\u6700\u597d\u91c7\u7528\u7f8e\u5f0f\u62fc\u6cd5\uff0c\u4ee5\u4fbf\u5229\u7528\u201cRational \u73af\u5883\u201d\u4e2d\u5185\u7f6e\u7684\u62fc\u5199\u68c0\u67e5\u3002<\/p>\n
\u4e0d\u8981\u91cd\u65b0\u5b9a\u4e49 Standard \u7a0b\u5e8f\u5305\u4e2d\u7684\u4efb\u4f55\u5b9e\u4f53\u3002\u8fd9\u662f\u7edd\u5bf9\u7981\u6b62\u7684\u3002<\/p>\n
\u8fd9\u6837\u505a\u5c06\u4ea7\u751f\u6df7\u6dc6\u548c\u4e25\u91cd\u7684\u9519\u8bef\u3002\u8be5\u6cd5\u5219\u53ef\u5ef6\u4f38\u81f3\u5176\u5b83\u9884\u5b9a\u4e49\u7684\u5e93\u5355\u5143\uff1aCalendar\uff0cSystem\u3002\u8fd9\u4e5f\u5305\u62ec Standard<\/em> \u6807\u8bc6\u7b26\u672c\u8eab\u3002<\/p>\n\u907f\u514d\u5bf9\u5176\u5b83\u9884\u5b9a\u4e49\u7a0b\u5e8f\u5305\u4e2d\u7684\u6807\u8bc6\u7b26\u91cd\u5b9a\u4e49\uff0c\u5982 System \u6216 Calendar\u3002<\/p>\n
\u4e0d\u8981\u4f7f\u7528\u5982\u4e0b\u7684\u6807\u8bc6\u7b26\uff1aWide_Character<\/strong> \u548c Wide_String<\/strong>\uff0c\u5b83\u4eec\u5c06\u5728 Ada 95 \u7684 Standard \u7a0b\u5e8f\u5305\u4e2d\u5f15\u5165\u3002\u4e0d\u8981\u5f15\u5165\u4e00\u4e2a\u540d\u4e3a Ada<\/strong> \u7684\u7f16\u8bd1\u5355\u5143\u3002<\/p>\n\u4e0d\u8981\u4f7f\u7528\u4ee5\u4e0b\u5355\u8bcd\u4f5c\u4e3a\u6807\u8bc6\u7b26\uff1aabstract<\/strong>\uff0caliased<\/strong>\uff0cprotected<\/strong>\uff0crequeue<\/strong>\uff0ctagged<\/strong> \u548c until<\/strong>\uff0c\u5b83\u4eec\u5728 Ada 95 \u5c06\u6210\u4e3a\u5173\u952e\u5b57\u3002<\/p>\n\u4e00\u4e9b\u7ed9\u5404\u79cd Ada \u5b9e\u4f53\u7684\u547d\u540d\u5efa\u8bae\u4e5f\u662f\u540c\u6837\u3002\u5047\u5b9a\u4e00\u822c\u60c5\u5f62\u4e0b\uff0c\u201c\u9762\u5411\u5bf9\u8c61\u201d\u98ce\u683c\u7684\u8bbe\u8ba1\u53d7\u6b22\u8fce\u3002\u8be6\u60c5\u8bf7\u53c2\u89c1\u9644\u5f55 A\u3002<\/p>\n
<\/a>\u7a0b\u5e8f\u5305<\/h2>\n\u5f53\u4e00\u4e2a\u7a0b\u5e8f\u5305\u5f15\u5165\u4e86\u67d0\u4e2a\u5bf9\u8c61\u7c7b\u65f6\uff0c\u7528\u8be5\u5bf9\u8c61\u7c7b\u7684\u540d\u5b57\u547d\u540d\u7a0b\u5e8f\u5305\uff0c\u901a\u5e38\u662f\u4e00\u4e2a\u5355\u6570\u5f62\u5f0f\u7684\u540d\u8bcd\uff0c\u82e5\u9700\u8981\uff08\u5373\u5b9a\u4e49\u4e86\u4e00\u4e2a\u5e26\u53c2\u6570\u7684\u7c7b\uff09\uff0c\u53ef\u52a0\u4e0a\u540e\u7f00 _Generic\u3002\u4ec5\u5f53\u5bf9\u8c61\u603b\u4ee5\u7fa4\u4f53\u5f62\u5f0f\u51fa\u73b0\u65f6\uff0c\u624d\u91c7\u7528\u590d\u6570\u5f62\u5f0f\u3002\u4f8b\u5982\uff1a<\/p>\n
package Text is\r\npackage Line is\r\npackage Mailbox is\r\npackage Message is\r\npackage Attributes is\r\npackage Subscriber is\r\npackage List_Generic is<\/pre>\n\u82e5\u4e00\u4e2a\u7a0b\u5e8f\u5305\u8bf4\u660e\u4e86\u4e00\u4e2a\u63a5\u53e3\u6216\u8005\u529f\u80fd\u5206\u7ec4\uff0c\u5e76\u4e14\u5b83\u4e0d\u4e0e\u4efb\u4f55\u5bf9\u8c61\u76f8\u5173\uff0c\u5219\u5e94\u5728\u5b83\u7684\u540d\u5b57\u4e2d\u5c06\u8fd9\u4e00\u70b9\u8868\u8ff0\u51fa\u6765\uff1a<\/p>\n
package Low_Layer_Interface is\r\npackage Math_Definitions is<\/pre>\n\u5f53\u4e00\u4e2a\u201c\u903b\u8f91\u201d\u5305\u7528\u5e73\u9762\u5206\u89e3 (flat decomposition)\uff0c\u9700\u8981\u4f5c\u4e3a\u51e0\u4e2a\u5305\u6765\u8868\u8fbe\u65f6\uff0c\u91c7\u7528\u9879\u76ee\u7ea7\u4e00\u81f4\u7684\u5217\u8868\u4e2d\u7684\u540e\u7f00\u3002\u4f8b\u5982\uff0c\u4e00\u4e2a\u903b\u8f91\u7a0b\u5e8f\u5305 Mailbox \u53ef\u5982\u4e0b\u5b9e\u73b0\uff1a<\/p>\n
package Mailbox_Definitions is\r\npackage Mailbox_Exceptions is\r\npackage Mailbox_Io is\r\npackage Mailbox_Utilities is\r\npackage Mailbox_Implementation is\r\npackage Mailbox_Main is<\/pre>\n\u5176\u5b83\u53ef\u63a5\u53d7\u7684\u540e\u7f00\u6709\uff1a<\/p>\n
_Test_Support \r\n_Test_Main \r\n_Log \r\n_Hidden_Definitions \r\n_Maintenance \r\n_Debug<\/pre>\n<\/a>\u7c7b\u578b<\/h2>\n\u5f53\u5728\u7a0b\u5e8f\u5305\u4e2d\u5b9a\u4e49\u4e00\u4e2a\u5bf9\u8c61\u7c7b\u8574\u6db5\u62f7\u8d1d\u8bed\u4e49\u65f6 – \u5373\u5f53\u7c7b\u578b\u53ef\u5b9e\u4f8b\u5316\u5e76\u4e14\u67d0\u79cd\u5f62\u5f0f\u7684\u4efb\u52a1\u5206\u914d\u53ef\u884c\u65f6\uff0c\u91c7\u7528\uff1a<\/p>\n
type Object is ...<\/pre>\n\u6ce8\u610f\u7c7b\u540d\u4e0d\u5e94\u5728\u6807\u8bc6\u7b26\u4e2d\u91cd\u590d\uff0c\u56e0\u4e3a\u5b83\u603b\u662f\u4ee5\u5b8c\u5168\u53d7\u9650\u7684\u5f62\u5f0f\u4f7f\u7528\uff1a<\/p>\n
Mailbox.Object\r\nLine.Object<\/pre>\n\u5f53\u5305\u542b\u5171\u4eab\u8bed\u4e49\u65f6 – \u5373\u7c7b\u578b\u7528\u5b58\u53d6\u503c\uff08\u6216\u8005\u5176\u5b83\u975e\u76f4\u63a5\u7684\u5f62\u5f0f\uff09\u5b9e\u73b0\uff0c\u5e76\u4e14\u8d4b\u503c\u8bed\u53e5\uff08\u82e5\u5b58\u5728\uff09\u4e0d\u590d\u5236\u5bf9\u8c61 – \u7528\u5982\u4e0b\u65b9\u5f0f\u8bf4\u660e\uff1a<\/p>\n
UL><\/p>\n
\ntype Handle is <\/code>\u7528\u4e8e\u975e\u76f4\u63a5\u5f15\u7528<\/li>\ntype Reference is <\/code>\u662f\u4e00\u4e2a\u53ef\u884c\u7684\u5907\u7528\u65b9\u6848<\/li>\n<\/ul>\n\u8fd9\u4e9b\u5143\u7d20\u5728\u5355\u72ec\u4f7f\u7528\u65f6\u4f5c\u540e\u7f00\uff0c\u524d\u9762\u52a0\u4e0a\u5305\u540d\uff0c\u8fd9\u6837\u5e76\u4e0d\u6e05\u695a\u6216\u975e\u5e38\u6478\u68f1\u4e24\u53ef\u3002<\/p>\n
\u5f53\u8574\u6db5\u591a\u4e2a\u5bf9\u8c61\u65f6\uff0c\u91c7\u7528\uff1a<\/p>\n
\ntype Set is <\/code>\u5f53\u6697\u542b\u5143\u7d20\u7684\u7279\u6b8a\u6027\u65f6<\/li>\ntype List is <\/code>\u5f53\u5305\u542b\u67d0\u79cd\u6b21\u5e8f\u65f6<\/li>\ntype Collection is<\/code> \u5f53\u65e2\u4e0d\u542b\u96c6\u5408\u4e5f\u4e0d\u542b\u5217\u8868\u8bed\u4e49\u65f6<\/li>\ntype Iterator is<\/code> \u5f53\u63d0\u4f9b\u4e86 Initialize\uff0cValue_Of\uff0cNext\uff0cIs_Done \u7b49\u539f\u8bed\u65f6
\n\uff08\u53c2\u89c1 6.5 \u8282\uff09<\/li>\n<\/ul>\n\u5bf9\u4e8e\u67d0\u4e2a\u5bf9\u8c61\u4e32\u7684\u6307\u5b9a\uff0c\u91c7\u7528\uff1a<\/p>\n
type Name is<\/code><\/p>\n\u4e3a\u4e86\u8fbe\u5230\u66f4\u597d\u7684\u6613\u8bfb\u6027\uff0c\u7c7b\u578b\u7684\u53d7\u9650\u540d\u4e5f\u5e94\u5728\u6574\u4e2a\u5b9a\u4e49\u5305\u5185\u4f7f\u7528\u3002\u201cRational \u73af\u5883\u201d\u4e2d\uff0c\u5f53\u5728\u5b50\u7a0b\u5e8f\u8c03\u7528\u4e2d\u91c7\u7528 [Complete] \u51fd\u6570\u65f6\uff0c\u4e0a\u8ff0\u65b9\u6cd5\u4e5f\u53ef\u4f7f\u8fd0\u884c\u66f4\u52a0\u597d\u3002<\/p>\n
\u4f8b\u5982\uff0c\u6ce8\u610f\u4e0b\u9762\u7684\u5b8c\u5168\u540d Subscriber.Object\uff1a<\/p>\n
package Subscriber is\r\ntype Object is private;\r\ntype Handle is access Subscriber.Object;\r\nsubtype Name is String;\r\npackage List is new List_Generic (Subscriber.Handle);\r\nMaster_List : Subscriber.List.Handle;\r\nprocedure Create (The_Handle : out Subscriber.Handle;\r\nWith_Name : in Subscriber.Name);\r\nprocedure Append (The_Subscriber : in Subscriber.Handle;\r\nTo_List : in out Subscriber.List.Handle);\r\nfunction Name_Of (The_Subscriber : Subscriber.Handle) return\r\nSubscriber.Name;\r\n ...\r\nprivate\r\ntype Object is\r\nrecord\r\nThe_Name : Subscriber.Name (1..20);\r\n ...\r\nend Subscriber;<\/pre>\n\u5728\u5176\u5b83\u60c5\u51b5\u4e0b\uff0c\u7c7b\u540d\u91c7\u7528\u540d\u8bcd\u6216\u8005\u4fee\u9970\u7b26 + \u540d\u8bcd\u3002\u7c7b\u578b\u53ef\u7528\u590d\u6570\u5f62\u5f0f\uff0c\u5bf9\u8c61\uff08\u53d8\u91cf\uff09\u540d\u91c7\u7528\u5355\u6570\uff1a<\/p>\n
type Point is record ...\r\ntype Hidden_Attributes is ( ...\r\ntype Boxes is array ...<\/pre>\n\u5bf9\u4e8e\u679a\u4e3e\u7c7b\u578b\uff0c\u5355\u72ec\u6216\u8005\u4f5c\u4e3a\u540e\u7f00\u4f7f\u7528 Mode\uff0cKind\uff0cCode \u7b49\u5355\u8bcd\u3002<\/p>\n
\u5bf9\u4e8e\u6570\u7ec4\u7c7b\u578b\uff0c\u5f53\u5df2\u5c06\u7b80\u5355\u540d\u7528\u4e8e\u7ec4\u4ef6\u7c7b\u578b\u65f6\uff0c\u53ef\u4ee5\u91c7\u7528\u540e\u7f00 _Table\u3002\u4ec5\u5f53\u6570\u7ec4\u7528\u8574\u6db5\u8bed\u4e49\u6765\u7ef4\u62a4\u65f6\uff0c\u624d\u91c7\u7528\u8c61 _Set \u548c _List \u8fd9\u6837\u7684\u540d\u5b57\u6216\u540e\u7f00\u3002Reserve _Vector \u548c _Matrix \u5e94\u7559\u4f5c\u76f8\u5e94\u7684\u6570\u5b66\u6982\u5ff5\u4f7f\u7528\u3002<\/p>\n
\u56e0\u4e3a\u8981\u907f\u514d\u5355\u6570\u7684\u4efb\u52a1\u5bf9\u8c61\uff08\u539f\u56e0\u5728\u540e\u6587\u89e3\u91ca\uff09\uff0c\u6240\u4ee5\u5373\u4f7f\u53ea\u6709\u4e00\u4e2a\u8be5\u7c7b\u578b\u7684\u5bf9\u8c61\u65f6\uff0c\u4e5f\u5e94\u5f15\u5165\u4efb\u52a1\u7c7b\u578b\u3002\u4e0b\u9762\u662f\u4f7f\u7528\u4e86\u4e00\u4e2a\u8c61 _Type \u8fd9\u6837\u7684\u7b80\u5355\u540e\u7f00\u4e4b\u540e\u4fbf\u4ee4\u4eba\u6ee1\u610f\u7684\u4f8b\u5b50\uff1a<\/p>\n
task type Listener_Type is ...\r\nfor Listener_Type'Storage_Size use ...\r\nListener : Listener_Type;<\/pre>\n\u7c7b\u4f3c\u5730\uff0c\u5f53\u7c7b\u578b\u540d\u91c7\u7528\u540d\u8bcd\uff08\u6216\u8005\u540d\u8bcd\u77ed\u8bed\uff09\u5b58\u5728\u51b2\u7a81\u65f6\uff0c\u6216\u8005\u51e0\u5904\u7684\u5bf9\u8c61\u540d\u6216\u53c2\u6570\u540d\u6709\u51b2\u7a81\u65f6\uff0c\u5728\u8be5\u7c7b\u578b\u540d\u540e\u52a0\u4e0a\u540e\u7f00 _Kind\uff0c\u800c\u8ba9\u5bf9\u8c61\u4f7f\u7528\uff08\u65e0\u540e\u7f00\u7684\uff09\u7b80\u5355\u540d\u8bcd\uff1a<\/p>\n
type Status_Kind is (None, Normal, Urgent, Red);\r\nStatus : Status_Kind := None;<\/pre>\n\u6216\u8005\uff0c\u5bf9\u4e8e\u603b\u4ee5\u590d\u6570\u51fa\u73b0\u7684\u4e8b\u7269\u7684\u7c7b\u578b\uff0c\u91c7\u7528\u590d\u6570\u5f62\u5f0f\u3002<\/p>\n
\u56e0\u4e3a\u5b58\u53d6\u7c7b\u578b\u5b58\u5728\u56fa\u6709\u7684\u5371\u5bb3\uff0c\u6240\u4ee5\u4f7f\u7528\u8005\u5e94\u5c0f\u5fc3\u3002\u4e00\u822c\u5b83\u4eec\u53eb\u505a Pointer\u3002\u5982\u679c\u540d\u5b57\u672c\u8eab\u610f\u4e49\u8fd8\u5f88\u6478\u68f1\u4e24\u53ef\uff0c\u5219\u5e94\u52a0\u4e0a\u540e\u7f00 _pointer\u3002\u4f5c\u4e3a\u540e\u5907\u65b9\u6848\uff0c\u4e5f\u53ef\u91c7\u7528 _Access \u505a\u540e\u7f00\u3002<\/p>\n
\u6709\u65f6\u91c7\u7528\u5d4c\u5957\u5b50\u7a0b\u5e8f\u5305\u6765\u5f15\u5165\u6b21\u7ea7\u62bd\u8c61\u53ef\u4ee5\u7b80\u5316\u547d\u540d\uff1a<\/p>\n
package Subscriber is ...\r\npackage Status is\r\ntype Kind is (Ok, Deleted, Incomplete, Suspended, \r\nPrivileged);\r\nfunction Set (The_Status : Subscriber.Status.Kind;\r\nTo_Subscriber : Subscriber.Handle);\r\nend Status;\r\n ...<\/pre>\n<\/a>\u5f02\u5e38<\/h2>\n\u56e0\u4e3a\u5f02\u5e38\u53ea\u80fd\u7528\u6765\u5904\u7406\u9519\u8bef\uff0c\u6240\u4ee5\u5e94\u4f7f\u7528\u540d\u8bcd\u6216\u540d\u8bcd\u77ed\u8bed\u6765\u6e05\u695a\u8868\u8fbe\u4e00\u4e2a\u8d1f\u9762\u7684\u610f\u4e49\uff1a<\/p>\n
Overflow, Threshold_Exceeded, Bad_Initial_Value<\/pre>\n\u5f53\u5728\u4e00\u4e2a\u7c7b\u7a0b\u5e8f\u5305\u4e2d\u5b9a\u4e49\u5f02\u5e38\u65f6\uff0c\u6807\u8bc6\u7b26\u65e0\u9700\u5305\u542b\u7c7b\u540d – \u4f8b\u5982 Bad_Initial_Subscriber_Value – \u56e0\u4e3a\u5f02\u5e38\u4e00\u76f4\u88ab\u7528\u4f5c Subscriber.Bad_Initial_Value\u3002<\/p>\n
\u91c7\u7528 Bad\uff0cIncomplete\uff0cInvalid\uff0cWrong\uff0cMissing \u6216\u8005 Illegal \u4e2d\u7684\u4e00\u4e2a\u5355\u8bcd\u4f5c\u4e3a\u540d\u5b57\u7684\u4e00\u90e8\u5206\uff0c\u800c\u4e0d\u662f\u7cfb\u7edf\u5730\u91c7\u7528\u4e0d\u4f20\u8fbe\u4efb\u4f55\u8be6\u7ec6\u4fe1\u606f\u7684 Error\uff1a<\/p>\n
Illegal_Data, Incomplete_Data<\/pre>\n<\/a>\u5b50\u7a0b\u5e8f<\/h2>\n\u8fc7\u7a0b\uff08\u548c\u4efb\u52a1\u5165\u53e3\uff09\u91c7\u7528\u52a8\u8bcd\u3002\u51fd\u6570\u540d\u91c7\u7528\u5e26\u6709\u5bf9\u8c61\u7c7b\u5c5e\u6027\u6216\u7279\u5f81\u7684\u540d\u8bcd\u3002\u8fd4\u56de\u5e03\u5c14\u503c\uff08\u8c13\u8bcd\uff09\u7684\u51fd\u6570\u4f7f\u7528\u5f62\u5bb9\u8bcd\uff08\u6216\u8fc7\u53bb\u5206\u8bcd\uff09\u3002<\/p>\n
Subscriber.Create\r\nSubscriber.Destroy\r\nSubscriber.List.Append\r\nSubscriber.First_Name -- Returns a string.\r\nSubscriber.Creation_Date -- Returns a date.\r\nSubscriber.List.Next\r\nSubscriber.Deleted -- Returns a Boolean.\r\nSubscriber.Unavailable -- Returns a Boolean.\r\nSubscriber.Remote<\/pre>\n\u5bf9\u4e8e\u8c13\u8bcd\uff0c\u5728\u4e00\u4e9b\u60c5\u51b5\u4e0b\u7ed9\u540d\u8bcd\u524d\u9762\u52a0\u4e0a\u524d\u7f00 Is_ \u6216 Has_ \u6216\u8bb8\u6709\u5e2e\u52a9\uff1b\u65f6\u6001\u8981\u51c6\u786e\u548c\u4e00\u81f4\uff1a<\/p>\n
function Has_First_Name ...\r\nfunction Is_Administrator ...\r\nfunction Is_First...\r\nfunction Was_Deleted ...<\/pre>\n\u5f53\u7b80\u5355\u540d\u79f0\u5df2\u4f5c\u4e3a\u7c7b\u578b\u540d\u6216\u679a\u4e3e\u578b\u76f4\u63a5\u91cf\u65f6\uff0c\u4e0a\u8ff0\u65b9\u6cd5\u6709\u7528\u3002<\/p>\n
\u8c13\u8bcd\u5e94\u4f7f\u7528\u80af\u5b9a\u5f0f\uff0c\u4e5f\u5c31\u662f\u8bf4\uff0c\u5176\u4e2d\u4e0d\u5e94\u542b\u6709\u201cNot_\u201d\u4e00\u8bcd\u3002<\/p>\n
\u5bf9\u4e8e\u666e\u901a\u64cd\u4f5c\uff0c\u7edf\u4e00\u4ece\u9879\u76ee\u53ef\u9009\u5217\u8868\uff08\u5217\u8868\u968f\u7740\u6211\u4eec\u5bf9\u7cfb\u7edf\u8ba4\u8bc6\u7684\u52a0\u6df1\u800c\u6269\u5c55\uff09\u4e2d\u9009\u62e9\u52a8\u8bcd\uff1a<\/p>\n
Create\r\nDelete\r\nDestroy\r\nInitialize\r\nAppend\r\nRevert\r\nCommit\r\nShow, Display<\/pre>\n\u8c13\u8bcd\u51fd\u6570\u548c\u5e03\u5c14\u578b\u7684\u53c2\u6570\u91c7\u7528\u80af\u5b9a\u5f0f\u3002\u5426\u5b9a\u5f0f\u7684\u540d\u5b57\u53ef\u80fd\u4ea7\u751f\u53cc\u91cd\u5426\u5b9a\uff08\u4f8b\u5982 Not Is_Not_Found\uff09\uff0c\u4ece\u800c\u4f7f\u4ee3\u7801\u96be\u8bfb\u3002<\/p>\n
function Is_Not_Valid (...) return Boolean\r\nprocedure Find_Client (With_The_Name : in Name;\r\nNot_Found : out Boolean)<\/pre>\n\u5e94\u5b9a\u4e49\u6210\uff1a<\/p>\n
function Is_Valid (...) return Boolean;\r\nprocedure Find_Client (With_The_Name: in Name;\r\nFound: out Boolean)<\/pre>\n\u8fd9\u624d\u8ba9\u4eab\u7528\u6a21\u5757\u6309\u5176\u6240\u9700\u7684\u90a3\u6837\u5b9e\u73b0\u4e86\u8868\u8fbe\u5f0f\u7684\u5426\u5b9a\uff08\u8fd9\u6837\u505a\u4e0d\u4f1a\u5bfc\u81f4\u8fd0\u884c\u65f6\u95f4\u5ef6\u957f\uff09\uff1a<\/p>\n
if not Is_Valid (...) then ....<\/pre>\n\u6709\u4e9b\u60c5\u51b5\u4e0b\uff0c\u901a\u8fc7\u4f7f\u7528\u53cd\u4e49\u8bcd\uff0c\u5982\u7528\u201cIs_Invalid\u201d\u6765\u4ee3\u66ff\u201cIs_Not_Valid\u201d\uff0c\u53ef\u4ee5\u4f7f\u5426\u5b9a\u8c13\u8bcd\u5728\u4e0d\u6539\u53d8\u8bed\u4e49\u7684\u60c5\u51b5\u4e0a\u53d8\u6210\u80af\u5b9a\u5f0f\u3002\u4f46\u662f\uff0c\u80af\u5b9a\u5f0f\u7684\u540d\u5b57\u66f4\u6613\u8bfb\uff1a \u201cIs_Valid\u201d\u6bd4\u201cnot Is_Invalid\u201d\u66f4\u6613\u7406\u89e3\u3002<\/p>\n
\u5f53\u8574\u6db5\u7740\u5927\u81f4\u76f8\u540c\u7684\u610f\u4e49\u65f6\uff0c\u91c7\u7528\u76f8\u540c\u7684\u5355\u8bcd\uff0c\u800c\u4e0d\u662f\u5bfb\u627e\u540c\u4e49\u8bcd\u6216\u53d8\u4f53\u3002\u56e0\u6b64\uff0c\u9f13\u52b1\u4f7f\u7528\u91cd\u8f7d\u6765\u63d0\u9ad8\u4ee3\u7801\u7684\u4e00\u81f4\u6027\uff0c\u9075\u5faa\u6700\u5c0f\u9650\u5ea6\u610f\u5916\u539f\u5219\u3002<\/p>\n
\u82e5\u5b50\u7a0b\u5e8f\u88ab\u7528\u505a\u5165\u53e3\u8c03\u7528\u7684\u201c\u5916\u8868\u201d (skins) \u6216\u8005\u201c\u5305\u88c5\u201d (wrappers)\uff0c\u5219\u7ed9\u5176\u540d\u5b57\u52a8\u8bcd\u52a0\u4e0a\u540e\u7f00 _Or_Wait\uff0c\u6216\u8005\u7ed9\u51fd\u6570\u53d6\u4e2a Wait_For_ \u77ed\u8bed\u52a0\u540d\u8bcd\u7684\u540d\u5b57\u6765\u53cd\u6620\u8fd9\u4e00\u70b9\uff0c\u8fd9\u6837\u53ef\u80fd\u6709\u7528\uff1a<\/p>\n
Subscriber.Get_Reply_Or_Wait\r\nSubscriber.Wait_For_Reply<\/pre>\n\u4e00\u4e9b\u64cd\u4f5c\u5e94\u4e00\u76f4\u4f7f\u7528\u76f8\u540c\u7684\u540d\u5b57\u6765\u7edf\u4e00\u5b9a\u4e49\uff1a<\/p>\n
\u5bf9\u4e8e\u8f6c\u6362\u5230\u5b57\u4e32\u548c\u4ece\u5b57\u4e32\u8f6c\u6362\u6765\u7684\u7c7b\u578b\u53d8\u6362\uff0c\u5bf9\u79f0\u51fd\u6570\u662f\uff1a<\/p>\n
function Image and function Value<\/pre>\n\u5bf9\u4e8e\u8f6c\u6362\u5230\u4f4e\u7ea7\u8868\u793a\u6cd5\uff08\u5982\u7528\u4e8e\u6570\u636e\u4ea4\u6362\u7684 Byte_String\uff09\u548c\u4ece\u4f4e\u7ea7\u8868\u793a\u6cd5\u8f6c\u6362\u8fc7\u6765\u7684\u7c7b\u578b\u53d8\u6362\uff0c\u5bf9\u79f0\u8fc7\u7a0b\u662f\uff1a<\/p>\n
procedure Read and Write<\/pre>\n\u5bf9\u4e8e\u5206\u914d\u6570\u636e\uff1a<\/p>\n
function Allocate (rather than Create)\r\nfunction Destroy (or Release, to express that the object will disappear)<\/pre>\n\u5f53\u7cfb\u7edf\u5730\u5904\u7406\u5b83\u4eec\u65f6\u91c7\u7528\u7edf\u4e00\u7684\u547d\u540d\uff0c\u7c7b\u578b\u5408\u6210\u5c06\u5bb9\u6613\u8bb8\u591a\u3002<\/p>\n
\u5bf9\u4e8e\u6d3b\u52a8\u7684\u8fed\u4ee3\u7a0b\u5e8f\uff0c\u5fc5\u987b\u5b9a\u4e49\u4ee5\u4e0b\u539f\u8bed\uff1a<\/p>\n
Initialize\r\nNext\r\nIs_Done\r\nValue_Of<\/pre>\n\u82e5\u53ef\u884c\uff0c\u8fd8\u8981\u5b9a\u4e49 Reset<\/code>\u3002\u82e5\u8981\u5728\u76f8\u540c\u7684\u4f5c\u7528\u57df\u8303\u56f4\u5185\u5f15\u5165\u51e0\u4e2a\u8fed\u4ee3\u7c7b\u578b\uff0c\u90a3\u4e48\u5e94\u91cd\u8f7d\u8fd9\u4e9b\u539f\u8bed\uff0c\u800c\u4e0d\u662f\u4e3a\u6bcf\u4e2a\u8fed\u4ee3\u7a0b\u5e8f\u5206\u522b\u5f15\u5165\u4e00\u5957\u5404\u4e0d\u76f8\u540c\u7684\u6807\u8bc6\u7b26\u3002\u53c2\u89c1 [BOO87]<\/a>\u3002<\/p>\n\u5f53\u91c7\u7528 Ada \u9884\u786e\u5b9a\u5c5e\u6027\u4f5c\u4e3a\u51fd\u6570\u540d\u65f6\uff0c\u8981\u4fdd\u8bc1\u5176\u7528\u6cd5\u4e0e\u4e00\u822c\u7684\u8bed\u4e49\u76f8\u540c\uff1a’First\uff0c’Last\uff0c’Length\uff0c’Image\uff0c’Value\uff0c\u7b49\u7b49\u3002 \u6ce8\u610f\uff0c\u51e0\u4e2a\u5c5e\u6027\uff08\u5982 ‘Range \u548c ‘Delta\uff09\u662f\u4e0d\u80fd\u7528\u505a\u51fd\u6570\u540d\u7684\uff0c\u56e0\u4e3a\u5b83\u4eec\u662f\u4fdd\u7559\u5b57\u3002<\/p>\n
<\/a>\u5bf9\u8c61\u548c\u5b50\u7a0b\u5e8f\uff08\u6216\u5165\u53e3\uff09\u53c2\u6570<\/h2>\n\u4e3a\u8868\u660e\u5176\u552f\u4e00\u6027\u6216\u662f\u8868\u660e\u8be5\u5b9e\u4f53\u662f\u6d3b\u52a8\u7684\u4e3b\u8981\u805a\u96c6\u5904\uff0c\u5728\u5bf9\u8c61\u6216\u53c2\u6570\u540d\u79f0\u524d\u52a0\u524d\u7f00\u201cThe\u201d\u6216\u201cThis\u201d\u3002\u8981\u8bf4\u660e\u4e00\u4e2a\u6b21\u8981\u3001\u4e34\u65f6\u3001\u8f85\u52a9\u7684\u5bf9\u8c61\uff0c\u5219\u52a0\u524d\u7f00\u201cA_\u201d\u6216\u201cCurrent_\u201d\uff1a<\/p>\n
procedure Change_Name (The_Subscriber : in Subscriber.Handle;\r\nThe_Name : in Subscriber.Name );\r\ndeclare\r\nA_Subscriber : Subscriber.Handle := Subscriber.First;\r\nbegin\r\n ...\r\nA_Subscriber := Subscriber.Next (The_Subscriber);\r\nend;<\/pre>\n\u5bf9\u4e8e\u5e03\u5c14\u578b\u7684\u5bf9\u8c61\uff0c\u91c7\u7528\u80af\u5b9a\u5f0f\u7684\u8c13\u8bcd\u5b50\u53e5\uff1a<\/p>\n
Found_It\r\nIs_Available<\/pre>\n\u4f46\u662f\uff1a<\/p>\n
Is_Not_Available<\/code> \u5fc5\u987b\u907f\u514d\u3002<\/p>\n\u5bf9\u4e8e\u4efb\u52a1\u5bf9\u8c61\uff0c\u5e94\u91c7\u7528\u4e00\u4e2a\u8574\u6db5\u4e86\u6d3b\u52a8\u5b9e\u4f53\u7684\u540d\u8bcd\u6216\u8005\u540d\u8bcd\u77ed\u8bed\uff1a<\/p>\n
Listener\r\nResource_Manager\r\nTerminal_Driver<\/pre>\n
\u8868\u8fbe\u5f0f<\/a>
\n\u8bed\u53e5<\/a>
\n\u7f16\u7801\u63d0\u793a<\/a><\/h4>\n\u53ef\u89c1\u6027\u95ee\u9898<\/a><\/h3>\n\u91cd\u8f7d\u548c\u540c\u5f62\u5f02\u4e49\u5b57<\/a>
\n\u4e0a\u4e0b\u6587\u5b50\u53e5<\/a>
\n\u91cd\u547d\u540d<\/a>
\n\u5173\u4e8e Use \u5b50\u53e5\u7684\u8bf4\u660e<\/a><\/h4>\n\u7a0b\u5e8f\u7ed3\u6784\u548c\u7f16\u8bd1\u95ee\u9898<\/a><\/h3>\n\u7a0b\u5e8f\u5305\u7684\u5206\u89e3<\/a>
\n\u58f0\u660e\u90e8\u5206\u7684\u7ed3\u6784<\/a>
\n\u4e0a\u4e0b\u6587\u5b50\u53e5<\/a>
\n\u786e\u7acb\u987a\u5e8f<\/a><\/h4>\n\u5e76\u884c<\/a><\/h3>\n\u9519\u8bef\u5904\u7406\u4e0e\u5f02\u5e38<\/a><\/h3>\n\u4f4e\u7ea7\u7f16\u7a0b<\/a><\/h3>\n\u8868\u793a\u5b50\u53e5\u548c\u5c5e\u6027<\/a>
\n\u65e0\u68c0\u67e5\u8f6c\u6362<\/a><\/h4>\n\u603b\u7ed3<\/a><\/h3>\n\u53c2\u8003\u6587\u732e<\/a><\/h3>\n\u8bcd\u6c47\u8868<\/a><\/h3>\n
\n<\/a>\u7b2c\u4e00\u7ae0<\/em><\/h2>\n\u5173\u4e8e\u672c\u6587\u6863<\/h1>\n
\u672c\u6587\u6863 Rational Unified Process – Ada \u7f16\u7a0b\u6307\u5357<\/em>\u662f\u4e00\u4e2a\u6807\u51c6\u7684\u6a21\u677f\uff0c\u4f60\u7684\u5f00\u53d1\u7ec4\u7ec7\u53ef\u4f9d\u6b64\u6d3e\u751f\u51fa\u4e00\u5957\u7a0b\u5e8f\u8bbe\u8ba1\u6807\u51c6\u3002\u8be5\u6307\u5357\u8be6\u7ec6\u8bf4\u660e\u4e86\u5e94\u5982\u4f55\u7f16\u5199 Ada \u7a0b\u5e8f\u3002\u672c\u6587\u670d\u52a1\u7684\u5bf9\u8c61\u662f\u6240\u6709\u5c06 Ada \u4f5c\u4e3a\u5b9e\u65bd\u8bed\u8a00\u6216\u8005\u4e00\u79cd\u8bf4\u660e\u63a5\u53e3\u6216\u6570\u636e\u7ed3\u6784\u7684\u8bbe\u8ba1\u8bed\u8a00\u7684\u5e94\u7528\u8f6f\u4ef6\u8bbe\u8ba1\u8005\u548c\u5f00\u53d1\u8005\u3002<\/p>\n\u6587\u4e2d\u6240\u63cf\u8ff0\u7684\u89c4\u5219\u56ca\u62ec\u4e86\u7a0b\u5e8f\u8bbe\u8ba1\u7684\u5927\u90e8\u5206\u65b9\u9762\u3002\u901a\u7528\u89c4\u5219\u9002\u7528\u4e8e\u7a0b\u5e8f\u5e03\u5c40\u3001\u547d\u540d\u7ea6\u5b9a\u548c\u6ce8\u91ca\u5e94\u7528\u3002\u7279\u6b8a\u89c4\u5219\u9002\u7528\u4e8e\u9009\u5b9a\u7684 Ada \u7279\u6027\uff0c\u5e76\u8bf4\u660e\u4e86\u7981\u7528\u6784\u9020\u3001\u63a8\u8350\u4f7f\u7528\u6a21\u5f0f\u548c\u7528\u4ee5\u63d0\u9ad8\u7a0b\u5e8f\u8d28\u91cf\u7684\u901a\u7528\u6280\u5de7\u3002<\/p>\n
\u9879\u76ee\u7684\u8bbe\u8ba1<\/em>\u6307\u5357\u548c\u5f53\u524d\u7684\u7f16\u7a0b<\/em>\u6307\u5357\u6709\u4e00\u5b9a\u7684\u91cd\u590d\uff0c\u662f\u6709\u610f\u8fd9\u6837\u505a\u7684\u3002\u4ecb\u7ecd\u7684\u8bb8\u591a\u7a0b\u5e8f\u8bbe\u8ba1\u89c4\u5219\uff0c\u5c24\u5176\u662f\u5728\u547d\u540d\u7ea6\u5b9a<\/em>\u4e2d\u7684\u89c4\u5219\uff0c\u7528\u4e8e\u79ef\u6781\u652f\u6301\u548c\u52a0\u5f3a\u8f6f\u4ef6\u8bbe\u8ba1\u4e2d\u7684\u9762\u5411\u5bf9\u8c61<\/em>\u65b9\u5f0f\u3002<\/p>\n\u6307\u5357\u6700\u521d\u7528\u4e8e Ada 83\u3002\u5b83\u542b\u6709\u4e0e Ada 95 \u517c\u5bb9\u7684\u89c4\u5219\uff0c\u4f46\u4e0d\u542b\u6709\u6539\u7248\u540e\u8bed\u8a00\u6807\u51c6\u65b0\u7279\u6027\u7684\u4f7f\u7528\u6307\u5357\uff0c\u4f8b\u5982\u6807\u8bc6\u7c7b\u578b\u3001\u5b50\u5355\u5143\u6216\u5c0f\u6570\u7c7b\u578b\u3002<\/p>\n
\u6587\u6863\u5927\u81f4\u6309\u7167 Ada Reference Manual \u7684\u7ed3\u6784\u6765\u7ec4\u7ec7 [ISO 8052]<\/a>\u3002<\/p>\n\u7b2c\u4e8c\u7ae0\u201c\u7b80\u4ecb<\/em>\u201d\u89e3\u91ca\u4e86\u6307\u5357\u6240\u57fa\u4e8e\u7684\u57fa\u672c\u539f\u7406\u5e76\u4ecb\u7ecd\u4e86\u6307\u5357\u5206\u7c7b\u3002<\/p>\n\u7b2c\u4e09\u7ae0\u201c\u4ee3\u7801\u5e03\u5c40<\/em>\u201d\u8bb2\u8ff0\u4e86\u7a0b\u5e8f\u6587\u672c\u7684\u4e00\u822c\u89c6\u89c9\u7ec4\u7ec7\u7ed3\u6784\u3002<\/p>\n\u7b2c\u56db\u7ae0\u201c\u6ce8\u91ca<\/em>\u201d\u7ed9\u51fa\u4e86\u5982\u4f55\u7528\u7ed3\u6784\u5316\u7684\u3001\u53ef\u7528\u7684\u548c\u53ef\u7ef4\u62a4\u7684\u65b9\u5f0f\u6765\u6ce8\u91ca\u8bf4\u660e\u4ee3\u7801\u3002<\/p>\n\u7b2c\u4e94\u7ae0\u201c\u547d\u540d\u7ea6\u5b9a<\/em>\u201d\u7ed9\u51fa\u6709\u5173\u547d\u540d\u8bed\u8a00\u5b9e\u4f53\u7684\u4e00\u822c\u89c4\u5219\u548c\u8303\u4f8b\u3002\u8fd9\u4e00\u7ae0\u7684\u5185\u5bb9\u5e94\u518d\u7ecf\u4fee\u6539\uff0c\u4ee5\u6ee1\u8db3\u7279\u5b9a\u9879\u76ee\u6216\u673a\u6784\u7684\u9700\u8981\u3002<\/p>\n\u7b2c\u516d\u7ae0\u201c\u58f0\u660e<\/em>\u201d\u548c\u7b2c\u4e03\u7ae0\u201c\u8868\u8fbe\u5f0f\u548c\u8bed\u53e5<\/em>\u201d\u5bf9\u6bcf\u79cd\u8bed\u8a00\u7ed3\u6784\u7ed9\u51fa\u4e86\u8fdb\u4e00\u6b65\u7684\u5efa\u8bae\u3002<\/p>\n\u7b2c\u516b\u7ae0\u201c\u53ef\u89c6\u6027\u95ee\u9898<\/em>\u201d\u548c\u7b2c\u4e5d\u7ae0\u201c\u7a0b\u5e8f\u7ed3\u6784\u548c\u7f16\u8bd1\u95ee\u9898<\/em>\u201d\u7ed9\u51fa\u4e86\u6709\u5173\u5168\u5c40\u6784\u5efa\u548c\u7a0b\u5e8f\u7ec4\u6210\u7684\u6307\u5bfc\u3002<\/p>\n\u7b2c\u5341\u7ae0\u201c\u5e76\u884c<\/em>\u201d\u5904\u7406\u8bed\u8a00\u4e2d\u6709\u5173\u4f7f\u7528\u4efb\u52a1\u548c\u65f6\u95f4\u76f8\u5173\u7279\u6027\u7684\u4e13\u95e8\u95ee\u9898\u3002<\/p>\n\u7b2c\u5341\u4e00\u7ae0\u201c\u9519\u8bef\u5904\u7406\u548c\u5f02\u5e38<\/em>\u201d\u7ed9\u51fa\u5982\u4f55\u7cfb\u7edf\u5730\u3001\u7b80\u4fbf\u5730\u4f7f\u7528\u6216\u4e0d\u4f7f\u7528\u5f02\u5e38\u6765\u5904\u7406\u9519\u8bef\u3002<\/p>\n\u7b2c\u5341\u4e8c\u7ae0\u201c\u4f4e\u7ea7\u7f16\u7a0b<\/em>\u201d\u5904\u7406\u8868\u793a\u5b50\u53e5\u7684\u95ee\u9898\u3002<\/p>\n\u7b2c\u5341\u4e09\u7ae0\u201c\u603b\u7ed3<\/em>\u201d\u627c\u8981\u590d\u8ff0\u4e86\u6700\u4e3a\u91cd\u8981\u7684\u6307\u5bfc\u65b9\u9488\u3002<\/p>\n\u672c\u6587\u6863\u53d6\u4ee3\u4e86 Ada Guidelines: Recommendation for Designers and programmers<\/em> \u4e2d\u7684 Application Note #15, Rational, Santa Clara, CA., 1990\u3002<\/p>\n
\n<\/a>\u7b2c\u4e8c\u7ae0<\/em><\/h2>\n\u7b80\u4ecb<\/h1>\n\u57fa\u672c\u539f\u5219<\/h2>\n
Ada \u8bed\u8a00\u7684\u8bbe\u8ba1\u5f88\u6709\u9488\u5bf9\u6027\u7684\u76ee\u7684\u5c31\u662f\u652f\u6301\u9ad8\u8d28\u91cf\u3001\u53ef\u9760\u3001\u53ef\u590d\u7528\u548c\u53ef\u79fb\u690d\u8f6f\u4ef6 [ISO 87, sect. 1.3]<\/a>\u3002\u7136\u800c\uff0c\u6ca1\u6709\u54ea\u4e00\u79cd\u8bed\u8a00\u4ec5\u9760\u5176\u672c\u8eab\u5c31\u53ef\u4ee5\u5b9e\u73b0\u4e0a\u8ff0\u76ee\u6807\u3002\u7a0b\u5e8f\u8bbe\u8ba1\u5fc5\u987b\u662f\u4e00\u4e2a\u6709\u826f\u597d\u89c4\u8303\u7684\u8fc7\u7a0b\u7684\u4e00\u90e8\u5206\u3002<\/p>\n\u6e05\u695a\u660e\u767d\u7684 Ada \u6e90\u4ee3\u7801\u662f\u672c\u6587\u4e2d\u5927\u591a\u6570\u6307\u5bfc\u65b9\u9488\u7684\u4e3b\u8981\u76ee\u6807\u3002\u8fd9\u4e00\u70b9\u662f\u5b9e\u73b0\u53ef\u9760\u6027\u548c\u53ef\u7ef4\u62a4\u6027\u7684\u4e3b\u8981\u56e0\u7d20\u3002\u6240\u8c13\u6e05\u695a\u660e\u767d\u7684\u4ee3\u7801\u53ef\u4ee5\u4ece\u4ee5\u4e0b\u4e09\u6761\u7b80\u5355\u7684\u57fa\u672c\u539f\u5219\u4e0a\u6765\u7406\u89e3\u3002<\/p>\n
\u6700\u5c0f\u9650\u5ea6\u7684\u610f\u5916<\/h3>\n
\u5728\u5176\u751f\u547d\u671f\u5185\uff0c\u4ee3\u7801\u66f4\u591a\u5730\u662f\u88ab\u8bfb\uff0c\u800c\u4e0d\u662f\u88ab\u5199\uff0c\u5c24\u5176\u662f\u5b83\u7684\u8bf4\u660e\u90e8\u5206\u3002\u7406\u60f3\u60c5\u51b5\u4e0b\uff0c\u4ee3\u7801\u8bfb\u8d77\u6765\u5e94\u8be5\u8c61\u4e00\u7bc7\u8bf4\u660e\u5b83\u505a\u4e86\u4ec0\u4e48\u7684\u82f1\u6587\u63cf\u8ff0\uff0c\u5b83\u5177\u6709\u4e00\u4e2a\u9644\u52a0\u4f18\u70b9\u662f\u53ef\u4ee5\u6267\u884c\u3002 \u7a0b\u5e8f\u66f4\u591a\u662f\u4e3a\u4eba\u7f16\u5199\uff0c\u800c\u4e0d\u662f\u4e3a\u8ba1\u7b97\u673a\u7f16\u5199\u3002\u9605\u8bfb\u7f16\u7801\u662f\u4e00\u4e2a\u590d\u6742\u7684\u8111\u529b\u8fc7\u7a0b\uff0c\u5b83\u53ef\u901a\u8fc7\u7edf\u4e00\u6807\u51c6\u6765\u7b80\u5316\uff0c\u5728\u672c\u6587\u4e2d\u8fd9\u4e00\u6307\u5bfc\u4e5f\u53eb\u201c\u6700\u5c0f\u9650\u5ea6\u610f\u5916\u539f\u5219<\/em>\u201d\u3002\u6574\u4e2a\u9879\u76ee\u4e2d\u7edf\u4e00\u6837\u5f0f\u662f\u8f6f\u4ef6\u5f00\u53d1\u56e2\u961f\u5728\u7f16\u7a0b\u6807\u51c6\u4e0a\u8fbe\u6210\u4e00\u81f4\u7684\u4e3b\u8981\u539f\u56e0\uff0c\u5b83\u4e0d\u5e94\u89c6\u4e3a\u4e00\u79cd\u60e9\u7f5a\u6216\u5bf9\u521b\u9020\u6027\u548c\u751f\u4ea7\u529b\u7684\u963b\u788d\u3002<\/p>\n\u5355\u70b9\u7ef4\u62a4<\/h3>\n
\u8fd9\u4e00\u6307\u5bfc\u6240\u57fa\u4e8e\u7684\u53e6\u4e00\u4e2a\u91cd\u8981\u539f\u5219\u662f\u5355\u70b9\u7ef4\u62a4\u539f\u5219<\/em>\u3002\u5e94\u5c3d\u91cf\u4f7f\u8bbe\u8ba1\u51b3\u7b56\u53ea\u5728 Ada \u6e90\u7801\u4e2d\u7684\u4e00\u5904\u8868\u8ff0\uff0c\u5b83\u7684\u591a\u6570\u7ed3\u8bba\u5e94\u7a0b\u5e8f\u5316\u5730\u4ece\u8be5\u5904\u6d3e\u751f\u51fa\u6765\u3002\u4e0d\u9075\u5b88\u8fd9\u4e00\u539f\u5219\u4f1a\u4e25\u91cd\u5f71\u54cd\u4ee3\u7801\u7684\u53ef\u7ef4\u62a4\u6027\u3001\u53ef\u9760\u6027\u548c\u53ef\u7406\u89e3\u6027\u3002<\/p>\n\u6700\u5c0f\u9650\u5ea6\u7684\u5e72\u6270<\/h3>\n
\u6700\u540e\uff0c\u4f5c\u4e3a\u6613\u8bfb\u6027\u7684\u4e3b\u8981\u4f5c\u7528\u56e0\u7d20\uff0c\u91c7\u7528\u6700\u5c0f\u5e72\u6270\u539f\u5219<\/em>\u3002\u5373\u907f\u514d\u5c06\u6e90\u4ee3\u7801\u4e0e\u89c6\u89c9\u201c\u5e72\u6270\u201d\u76f8\u6df7\u5408\uff1a\u5373\u680f\u3001\u6846\u4ee5\u53ca\u5176\u5b83\u4f4e\u4fe1\u606f\u91cf\u7684\u6587\u672c\u6216\u662f\u5bf9\u7406\u89e3\u8f6f\u4ef6\u529f\u80fd\u6ca1\u6709\u5e2e\u52a9\u7684\u4fe1\u606f\u3002<\/p>\n\u53ef\u79fb\u690d\u6027\u548c\u53ef\u590d\u7528\u6027\u4e5f\u662f\u5236\u5b9a\u8bb8\u591a\u6307\u5bfc\u65b9\u9488\u7684\u539f\u7531\u3002\u4ee3\u7801\u5e94\u53ef\u79fb\u690d\u5230\u4e0d\u540c\u76ee\u6807\u8ba1\u7b97\u673a\u7684\u51e0\u4e2a\u4e0d\u540c\u7f16\u8bd1\u5668\u4e0a\uff0c\u5e76\u6700\u7ec8\u79fb\u690d\u5230\u4e00\u4e2a\u66f4\u9ad8\u7ea7\u7684 Ada \u7248\u672c\u201cAda 95\u201d\u4e0a [PLO92,<\/a> TAY92]<\/a>\u3002<\/p>\n<\/a>\u5047\u8bbe<\/h2>\n\u8fd9\u91cc\u7684\u6307\u5bfc\u65b9\u9488\u6709\u51e0\u4e2a\u57fa\u672c\u5047\u8bbe\uff1a<\/p>\n
\u8bfb\u8005\u4e86\u89e3 Ada\u3002<\/h3>\n
\u5e94\u9f13\u52b1\u5728\u4efb\u4f55\u53ef\u5e26\u6765\u597d\u5904\u7684\u5730\u65b9\u4f7f\u7528 Ada \u7684\u9ad8\u7ea7\u7279\u6027\uff0c\u800c\u4e0d\u8981\u4ec5\u4ec5\u56e0\u4e3a\u4e00\u4e9b\u7a0b\u5e8f\u5458\u4e0d\u719f\u6089\u5b83\u4eec\u800c\u53cd\u5bf9\u91c7\u7528\u3002 \u8fd9\u662f\u9879\u76ee\u80fd\u4ece\u4f7f\u7528 Ada \u4e2d\u771f\u6b63\u83b7\u76ca\u7684\u552f\u4e00\u65b9\u5f0f\u3002Ada \u4e0d\u5e94\u8c61 Pascal \u6216 FORTRAN \u8bed\u8a00\u90a3\u6837\u4f7f\u7528\u3002\u4e0d\u9f13\u52b1\u5728\u6ce8\u91ca\u4e2d\u89e3\u91ca\u4ee3\u7801\uff1b\u76f8\u53cd\uff0cAda \u672c\u8eab\u5e94\u5c3d\u53ef\u80fd\u5730\u53d6\u4ee3\u6ce8\u91ca\u3002<\/p>\n
\u8bfb\u8005\u61c2\u82f1\u6587\u3002<\/h3>\n
\u8bb8\u591a\u547d\u540d\u7ea6\u5b9a\u5728\u8bcd\u6c47\u548c\u8bed\u6cd5\u4e0a\u57fa\u4e8e\u82f1\u6587\u3002\u6b64\u5916\uff0c Ada \u7684\u5173\u952e\u5b57\u90fd\u662f\u5e38\u7528\u7684\u82f1\u8bed\u5355\u8bcd\u3002\u5c06\u5176\u4e0e\u5176\u5b83\u8bed\u8a00\u6df7\u5408\u5c06\u964d\u4f4e\u4ee3\u7801\u7684\u6613\u8bfb\u6027\u3002<\/p>\n
\u4e25\u683c\u9650\u5236\u4f7f\u7528\u5b50\u53e5 (use clause) \u7684\u8fd0\u7528\u3002<\/h3>\n
\u547d\u540d\u7ea6\u5b9a\u548c\u5176\u5b83\u4e00\u4e9b\u89c4\u5219\u5047\u5b9a\u201cuse\u201d\u5b50\u53e5\u4e0d\u88ab\u8fd0\u7528\u3002<\/p>\n
\u5904\u7406\u7684\u662f\u4e00\u4e2a\u5927\u9879\u76ee\u3002<\/h3>\n
\u8bb8\u591a\u89c4\u5219\u5728\u5927\u578b\u9879\u76ee\u4e2d\u6700\u6709\u4ef7\u503c\uff0c\u867d\u7136\u51fa\u4e8e\u9879\u76ee\u7ea7\u6216\u516c\u53f8\u7ea7\u5b9e\u73b0\u548c\u7edf\u4e00\u7684\u76ee\u7684\uff0c\u5b83\u4eec\u4e5f\u5728\u5c0f\u578b\u7cfb\u7edf\u4e2d\u4f7f\u7528\u3002<\/p>\n
\u6e90\u7801\u5728\u201cRational \u73af\u5883\u201d (Rational Environment) \u4e2d\u5f00\u53d1\u3002<\/h3>\n
\u901a\u8fc7\u8fd0\u7528\u201cRational \u73af\u5883\u201d (Rational Environment)\uff0c\u4e00\u4e9b\u95ee\u9898\u5982\u4ee3\u7801\u5e03\u5c40\u3001\u5c01\u95ed\u6784\u9020\u4e2d\u7684\u6807\u8bc6\u7b26\u7b49\u5c31\u5728 Ada \u7f16\u8f91\u5668\u548c\u683c\u5f0f\u5668\u4e2d\u5904\u7406\u4e86\u3002 \u4f46\u662f\u672c\u6587\u4e2d\u7684\u5e03\u5c40\u5efa\u8bae\u9002\u7528\u4e8e\u4efb\u4f55\u5f00\u53d1\u5e73\u53f0\u3002<\/p>\n
\u7a0b\u5e8f\u8bbe\u8ba1\u9075\u5faa\u9762\u5411\u5bf9\u8c61\u7684\u65b9\u6cd5\u3002<\/h3>\n
\u8bb8\u591a\u89c4\u5219\u652f\u6301\u5c06 Ada \u7279\u6027\u548c\u7279\u5b9a\u547d\u540d\u7ea6\u5b9a\u7684\u9762\u5411\u5bf9\u8c61 (OO) \u6982\u5ff5\u7684\u7cfb\u7edf\u6620\u5c04\u3002<\/p>\n
<\/a>\u6307\u5357\u5206\u7c7b<\/h2>\n\u8fd9\u4e9b\u6307\u5bfc\u65b9\u9488\u5e76\u975e\u540c\u7b49\u91cd\u8981\u3002\u5b83\u4eec\u5927\u81f4\u9075\u5faa\u4ee5\u4e0b\u7684\u7b49\u7ea7\uff1a<\/p>\n
\u63d0\u793a\uff1a<\/h3>\n
\u8be5\u6307\u5bfc\u65b9\u9488\u4ec5\u662f\u4e00\u6761\u7b80\u5355\u7684\u5efa\u8bae\uff1b\u4e0d\u9075\u5b88\u5b83\u4e5f\u4e0d\u4f1a\u6709\u4ec0\u4e48\u5b9e\u8d28\u6027\u7684\u635f\u5bb3\uff0c\u91c7\u7528\u6216\u662f\u4e0d\u91c7\u7528\u5b83\u4eec\u4ec5\u662f\u4e2a\u4eba\u559c\u597d\u95ee\u9898\u3002\u6587\u4e2d\u7684\u63d0\u793a\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u5efa\u8bae\uff1a<\/h3>\n
\u8be5\u6307\u5bfc\u65b9\u9488\u901a\u5e38\u66f4\u591a\u5730\u57fa\u4e8e\u6280\u672f\u7684\u89c2\u70b9\uff1b\u5b83\u53ef\u80fd\u4f1a\u5f71\u54cd\u5230\u4ee3\u7801\u7684\u53ef\u79fb\u690d\u6027\u6216\u53ef\u590d\u7528\u6027\uff0c\u5e76\u5728\u4e00\u4e9b\u5b9e\u65bd\u4e2d\u5f71\u54cd\u6027\u80fd\u3002 \u9664\u975e\u6709\u5408\u9002\u7684\u7406\u7531\uff0c\u5426\u5219\u5fc5\u987b\u9075\u5b88\u5efa\u8bae\u3002\u6587\u4e2d\u63d0\u5230\u4e00\u4e9b\u4f8b\u5916\u7684\u60c5\u51b5\u3002\u6587\u4e2d\u7684\u5efa\u8bae\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u9650\u5236\uff1a<\/h3>\n
\u6709\u7591\u95ee\u7684\u7279\u6027\u4f7f\u7528\u8d77\u6765\u5371\u9669\uff0c\u4f46\u5b83\u5e76\u4e0d\u88ab\u5b8c\u5168\u7981\u6b62\uff1b\u5e94\u7528\u8be5\u7279\u6027\u7684\u51b3\u5b9a\u5e94\u5728\u9879\u76ee\u7ea7\u4e0a\u505a\u51fa\uff0c\u5e76\u4e14\u51b3\u5b9a\u5e94\u8be5\u662f\u9ad8\u5ea6\u53ef\u89c1\u7684\u3002\u6587\u4e2d\u7684\u9650\u5236\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u8981\u6c42\uff1a<\/h3>\n
\u8fdd\u80cc\u5b83\u5b9a\u5c06\u5bfc\u81f4\u4e0d\u597d\u7684\u3001\u4e0d\u53ef\u9760\u7684\u6216\u662f\u4e0d\u53ef\u79fb\u690d\u7684\u4ee3\u7801\u3002 \u8981\u6c42\u4e0d\u53ef\u8fdd\u80cc\u3002\u6587\u4e2d\u7684\u8981\u6c42\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u201cRational \u8bbe\u8ba1\u5de5\u5177\u201d (Rational Design Facility) \u5c06\u7528\u6765\u51cf\u5c11\u53d7\u9650\u7279\u6027\u7684\u4f7f\u7528\u5e76\u52a0\u5f3a\u5fc5\u9700\u6cd5\u5219\u548c\u8bb8\u591a\u5efa\u8bae\u7684\u8fd0\u7528\u3002<\/p>\n
\u4e0e\u8bb8\u591a\u5176\u5b83\u7684 Ada \u7a0b\u5e8f\u8bbe\u8ba1\u6807\u51c6\u4e0d\u540c\u7684\u662f\uff1a\u4e8b\u5b9e\u4e0a\uff0c\u8fd9\u4e9b\u6307\u5bfc\u65b9\u9488\u4e2d\u53ca\u5c11\u6709\u5b8c\u5168\u7981\u7528\u7684\u3002\u597d\u7684\u8f6f\u4ef6\u7684\u5173\u952e\u5728\u4e8e\uff1a<\/p>\n
\n- \u4e86\u89e3\u6bcf\u79cd\u7279\u6027\uff0c\u4e86\u89e3\u5b83\u7684\u5c40\u9650\u548c\u53ef\u80fd\u7684\u5371\u9669<\/li>\n
- \u51c6\u786e\u4e86\u89e3\u8fd9\u79cd\u7279\u6027\u5728\u4f55\u79cd\u573a\u5408\u53ef\u4ee5\u5b89\u5168\u4f7f\u7528<\/li>\n
- \u8ba9\u4f7f\u7528\u8be5\u7279\u6027\u7684\u51b3\u7b56\u9ad8\u5ea6\u53ef\u89c1<\/li>\n
- \u5341\u5206\u5c0f\u5fc3\u8c28\u614e\u5730\u5728\u9002\u5f53\u5904\u4f7f\u7528\u8be5\u7279\u6027\u3002<\/li>\n<\/ul>\n
<\/a>\u6700\u6839\u672c\u7684\u539f\u5219<\/h2>\n\u4f7f\u7528\u5e38\u8bc6\u3002<\/p>\n
\u5f53\u65e0\u6cd5\u627e\u5230\u53ef\u7528\u7684\u89c4\u5219\u6216\u6307\u5357\uff0c\u5f53\u89c4\u5219\u660e\u663e\u4e0d\u9002\u7528\uff0c\u5f53\u5176\u5b83\u4e00\u5207\u90fd\u5931\u8d25\u65f6\uff1a\u4f7f\u7528\u5e38\u8bc6\uff0c\u5e76\u6838\u67e5\u57fa\u672c\u539f\u5219\u3002\u8fd9\u6761\u6cd5\u5219\u51cc\u9a7e\u4e8e\u5176\u5b83\u6240\u6709\u6cd5\u5219\u4e4b\u4e0a\u3002\u5e38\u8bc6\u662f\u5fc5\u4e0d\u53ef\u5c11\u7684<\/em>\u3002<\/p>\n
\n<\/a>\u7b2c\u4e09\u7ae0<\/em><\/h2>\n\u4ee3\u7801\u5e03\u5c40<\/h1>\n\u6982\u8ff0<\/h2>\n
\u4e00\u4e2a\u7a0b\u5e8f\u5355\u5143\u7684\u5e03\u5c40\u5b8c\u5168\u5728\u201cRational \u73af\u5883\u683c\u5f0f\u5668\u201d (Rational Environment Formatter) \u7684\u63a7\u5236\u4e4b\u4e0b\uff0c\u9664\u4e86\u5728\u6ce8\u91ca\u548c\u7a7a\u767d\u5904\u5185\uff0c\u7a0b\u5e8f\u5458\u4e0d\u5fc5\u8fc7\u591a\u62c5\u5fc3\u7a0b\u5e8f\u7684\u5e03\u5c40\u3002\u8fd9\u4e2a\u5de5\u5177\u6240\u91c7\u7528\u7684\u683c\u5f0f\u7ea6\u5b9a\u5728 Reference Manual for the Ada Programming Language \u7684 Appendix E \u4e2d\u8868\u8ff0 [ISO87]<\/a>\u3002 \u7279\u522b\u662f\uff0c\u4ed6\u4eec\u5efa\u8bae\u7ed3\u6784\u5316\u6784\u9020\u7684\u5f00\u59cb\u548c\u7ed3\u675f\u5904\u7684\u5173\u952e\u5b57\u5e94\u5782\u76f4\u5bf9\u9f50\u3002\u4e00\u4e2a\u6784\u9020\u7684\u6807\u8bc6\u7b26\u4e5f\u5e94\u7cfb\u7edf\u6027\u5730\u5728\u6784\u9020\u7684\u672b\u5c3e\u91cd\u590d\u3002<\/p>\n\u683c\u5f0f\u5668\u7684\u786e\u5207\u884c\u4e3a\u7531\u4e00\u7cfb\u5217\u7684\u5e93\u5f00\u5173<\/em>\u5728\u4e00\u4e2a\u901a\u7528\u6a21\u578b\u4e16\u754c (model world) \u57fa\u7840\u4e0a\u63a7\u5236\uff0c\u8fd9\u4e9b\u5e93\u5f00\u5173\u5728\u6574\u4e2a\u9879\u76ee\u8fc7\u7a0b\u4e2d\u63a5\u6536\u4e00\u5957\u7edf\u4e00\u7684\u503c\u3002\u76f8\u5173\u7684\u5f00\u5173\u4ee5\u53ca\u5b83\u4eec\u5728\u6211\u4eec\u6240\u5efa\u8bae\u7684\u6a21\u578b\u4e16\u754c<\/em>\u4e2d\u7684\u901a\u7528\u503c\u5217\u8868\u5982\u4e0b\u3002<\/p>\n<\/a>\u5b57\u6bcd\u5927\u5c0f\u5199<\/h2>\nFormat .Id_Case : Letter_Case := Capitalized<\/h3>\n
\u8be6\u7ec6\u8bf4\u660e Ada \u5355\u5143\u4e2d\u6807\u8bc6\u7b26\u7684\u5b57\u6bcd\u5927\u5c0f\u5199\uff1a\u6700\u5f00\u59cb\u7684\u5b57\u6bcd\u4ee5\u53ca\u6bcf\u4e2a\u4e0b\u5212\u7ebf\u4e4b\u540e\u7684\u7b2c\u4e00\u4e2a\u5b57\u6bcd\u7528\u5927\u5199\u3002\u5927\u5199\u662f\u8bfb\u8005\u6700\u6613\u8bfb\u7684\u5f62\u5f0f\uff0c\u5177\u6709\u4f17\u591a\u73b0\u4ee3\u5c4f\u5e55\u548c\u6fc0\u5149\u6253\u5370\u673a\u5b57\u4f53\u3002<\/p>\n
Format .Keyword_Case : Letter_Case := Lower<\/h3>\n
\u8bf4\u660e Ada \u5173\u952e\u5b57\u7684\u5927\u5c0f\u5199\u3002\u8fd9\u5c06\u5b83\u4eec\u4e0e\u6807\u8bc6\u7b26\u7565\u5fae\u533a\u5206\u5f00\u6765\u3002<\/p>\n
Format .Number_Case : Letter_Case := Upper<\/h3>\n
\u8bf4\u660e\u6d6e\u70b9\u76f4\u63a5\u91cf\u4e2d\u5b57\u6bcd\u201cE\u201d\u548c\u57fa\u672c\u76f4\u63a5\u91cf\u4e2d\u57fa\u672c\u6570\u5b57\uff08\u201cA\u201d \u5230 \u201cF\u201d\uff09\u7684\u5927\u5c0f\u5199\u3002<\/p>\n
<\/a>\u7f29\u8fdb<\/h2>\n\u4e00\u4e2a Ada \u5355\u5143\u6309\u7167 Ada Reference Manual \u4e2d Appendix E \u6240\u8bf4\u7684\u4e00\u822c\u7ea6\u5b9a\u6765\u7f16\u6392\u683c\u5f0f [ISO87]<\/a>\u3002\u8fd9\u5c31\u662f\u8bf4\uff0c\u4e00\u4e2a\u7ed3\u6784\u5316\u6784\u9020\u7684\u5f00\u59cb\u548c\u7ed3\u675f\u5904\u7684\u5173\u952e\u5b57\u5e94\u8be5\u5bf9\u9f50\u3002 \u4f8b\u5982\uff0c\u201cloop\u201d\u548c\u201cend loop\u201d\uff0c\u201crecord\u201d\u548c\u201cend record\u201d\u3002\u5728\u7ed3\u6784\u5316\u6784\u9020\u5185<\/em>\u7684\u5355\u5143\u5e94\u5411\u53f3\u7f29\u8fdb<\/em>\u3002<\/p>\nFormat .Major_Indentation : Indent_Range := 3<\/h3>\n
\u8bf4\u660e\u683c\u5f0f\u5668\u4ee4\u5982\u201cif\u201d\u8bed\u53e5\u3001\u201ccase\u201d\u8bed\u53e5\u548c\u201cloop\u201d\u8bed\u53e5\u8fd9\u6837\u7684\u7ed3\u6784\u5316\uff08\u4e3b\u8981\u7684\uff09\u6784\u9020\u7f29\u8fdb\u7684\u5217\u6570\u3002<\/p>\n
Format .Minor_Indentation : Indent_Range := 2<\/h3>\n
\u8bf4\u660e\u683c\u5f0f\u5668\u4f7f\u6b21\u8981\u6784\u9020\u7f29\u8fdb\u7684\u5217\u6570\uff1a \u8bb0\u5f55\u7684\u58f0\u660e\u3001\u53d8\u4f53\u8bb0\u5f55\u7684\u58f0\u660e\u3001\u7c7b\u578b\u7684\u58f0\u660e\u3001\u5f02\u5e38\u5904\u7406\u3001\u9009\u62e9\u8bed\u53e5\u3001case \u8bed\u53e5\u3001\u547d\u540d\u548c\u6807\u5fd7\u8bed\u53e5\u3002<\/p>\n
<\/a>\u884c\u7684\u957f\u5ea6\u548c\u884c\u7684\u5206\u9694<\/h2>\nFormat .Line_Length : Line_Range := 80<\/h3>\n
\u8bf4\u660e\u6362\u884c\u524d\u683c\u5f0f\u5668\u663e\u793a Ada \u5355\u5143\u4e2d\u7684\u884c\u6240\u91c7\u7528\u7684\u5217\u6570\u3002\u8fd9\u4f7f\u5f97\u683c\u5f0f\u5316\u7684\u5355\u5143\u53ef\u7528\u4f20\u7edf\u7684 VT100 \u7c7b\u7ec8\u7aef\u663e\u793a\u3002<\/p>\n
Format .Statement_Indentation : Indent_Range := 3<\/h3>\n
\u8bf4\u660e\u5f53\u4e00\u6761\u8bed\u53e5\u957f\u4e8e Line_Length\uff0c\u5fc5\u987b\u8981\u65ad\u5f00\u65f6\uff0c\u683c\u5f0f\u5668\u5e94\u4f7f\u7b2c\u4e8c\u884c\u548c\u540e\u7eed\u884c\u7f29\u8fdb\u591a\u5c11\u5217\u3002\u53ea\u6709\u5f53\u4e0d\u5b58\u5728\u8bcd\u6cd5\u6784\u9020\u53ef\u8ba9\u7f29\u8fdb\u7684\u4ee3\u7801\u5bf9\u9f50\u65f6\uff0c\u683c\u5f0f\u5668\u624d\u4ee4\u4ee3\u7801\u7f29\u8fdb Statement_Indentation \u4e2a\u5217\u3002<\/p>\n
Format .Statement_Length : Line_Range := 35<\/h3>\n
\u8bf4\u660e\u5f53\u663e\u793a\u4e00\u4e2a\u8bed\u53e5\u65f6\uff0c\u6bcf\u884c\u6240\u4fdd\u7559\u7684\u5217\u6570\u3002 \u5982\u679c\u5f53\u524d\u7f29\u8fdb\u7a0b\u5ea6\u6240\u5141\u8bb8\u7684\u4e00\u884c\u4e2d\u7684\u5217\u6570\u5c0f\u4e8e Statement_Length\uff0c\u90a3\u4e48\u683c\u5f0f\u5668\u5c06 Wrap_Indentation \u4f5c\u4e3a\u65b0\u7684\u7f29\u8fdb\u7a0b\u5ea6\u3002\u6b64\u6cd5\u53ef\u9632\u6b62\u5d4c\u5957\u592a\u6df1\u7684\u8bed\u53e5\u663e\u793a\u65f6\u8d85\u51fa\u53f3\u8fb9\u754c\u3002<\/p>\n
Format .Wrap_Indentation : Line_Range := 16<\/h3>\n
\u8bf4\u660e\u5f53\u524d\u7684\u7f29\u8fdb\u7a0b\u5ea6\u4e0d\u4e0d\u8db3 Statement_Length \u65f6\uff0c\u683c\u5f0f\u5668\u5728\u4e0b\u4e00\u884c\u5f00\u5934\u5904\u5e94\u7f29\u8fdb\u7684\u5217\u6570\u3002\u6b64\u6cd5\u53ef\u9632\u6b62\u5d4c\u5957\u592a\u6df1\u7684\u8bed\u53e5\u663e\u793a\u65f6\u8d85\u51fa\u53f3\u8fb9\u754c\u3002<\/p>\n
<\/a>\u5bf9\u9f50<\/h2>\nFormat .Consistent_Breaking : Integer := 1<\/h3>\n
\u63a7\u5236\u5f62\u5982 (xxx:aaa; yyy:bbb) \u7684\u5217\u8868\u683c\u5f0f\uff0c\u8be5\u5217\u8868\u51fa\u73b0\u5728\u5b50\u7a0b\u5e8f\u7684\u5f62\u53c2\u8bf4\u660e\u5904\u548c\u7c7b\u578b\u58f0\u660e\u4e2d\u7684\u5224\u522b\u5f0f\u5904\u3002\u5b83\u4e5f\u63a7\u5236\u5f62\u5982 (xxx=>aaa, yyy=>bbb) \u7684\u5217\u8868\u7684\u683c\u5f0f\uff0c\u8be5\u5217\u8868\u51fa\u73b0\u5728\u5b50\u7a0b\u5e8f\u8c03\u7528\u548c\u805a\u96c6\u5904\u3002\u56e0\u4e3a\u8be5\u9009\u9879\u975e\u96f6\uff08\u771f\uff09\uff0c\u6240\u4ee5\u5f53\u4e00\u4e2a\u5217\u8868\u65e0\u6cd5\u5728\u4e00\u884c\u4e2d\u88c5\u4e0b\u65f6\uff0c\u5217\u8868\u4e2d\u7684\u6bcf\u4e00\u4e2a\u5143\u7d20\u90fd\u5360\u7528\u65b0\u7684\u4e00\u884c\u3002<\/p>\n
Format .Alignment_Threshold : Line_Range := 20<\/h3>\n
\u8bf4\u660e\u4e3a\u4f7f\u8fde\u7eed\u8bed\u53e5\u4e2d\u7684\u8bcd\u6cd5\u6784\u9020\u5bf9\u9f50\uff08\u5982\u547d\u540d\u7b26\u53f7\u4e2d\u7684\u5192\u53f7\u3001\u8d4b\u503c\u53f7\u548c\u7bad\u5934\uff09\uff0c\u683c\u5f0f\u5668\u53ef\u63d2\u5165\u7684\u7a7a\u683c\u6570\u3002\u5982\u679c\u5bf9\u9f50\u4e00\u4e2a\u6784\u9020\u6240\u9700\u7684\u7a7a\u683c\u6570\u591a\u4e8e\u8fd9\u4e2a\u6570\uff0c\u90a3\u4e48\u6784\u9020\u4e0d\u88ab\u5bf9\u9f50\u3002<\/p>\n
\u8981\u6ce8\u610f\u7684\u662f\uff0c\u4e3a\u4e86\u5f62\u6210\u67d0\u79cd\u5e03\u5c40\uff0c\u7a0b\u5e8f\u5458\u53ef\u4ee5\u63d2\u5165\u4e00\u4e2a\u884c\u7ed3\u675f\u7b26\u6216\u8005\u901a\u8fc7\u8f93\u5165 <space> <space> <carriage-return> \u6765\u6572\u5165\u4e00\u4e2a\u4e0d\u4f1a\u88ab\u683c\u5f0f\u5668\u5220\u6389\u7684\u884c\u4e2d\u65ad\u3002<\/p>\n
\u5f53 \u5217\u8868\u4e2d\u7684\u5143\u7d20\u8d85\u8fc7 3 \u4e2a\u5e76\u4e14\u5728\u4e00\u884c\u4e2d\u88c5\u4e0d\u4e0b\u8fd9\u4e9b\u5143\u7d20\u65f6\uff0c\u91c7\u7528\u4e0a\u8ff0\u6280\u5de7\u3002Ada \u5143\u7d20\u5217\u8868\u5e94\u5206\u9694\u4e3a\u4e00\u884c\u4ec5\u6709\u4e00\u4e2a\u5143\u7d20\uff0c\u4ee5\u63d0\u9ad8\u4ee3\u7801\u7684\u6613\u8bfb\u6027\u548c\u53ef\u7ef4\u62a4\u6027\u3002\u8fd9\u4e00\u6761\u5c24\u5176\u9002\u7528\u4e8e\u4ee5\u4e0b Ada \u6784\u9020\uff08\u8c61 Ada Reference Manual \u7684 Appendix E \u4e2d\u6240\u5b9a\u4e49\u7684\u90a3\u6837 [ISO87]<\/a>\uff09\uff1a<\/p>\n\u5b9e\u53c2\u5173\u8054\u5173\u7cfb<\/p>\n
pragma Suppress (Range_Check,\r\nOn => This_Type,\r\nOn => That_Type, On => That_Other_Type);<\/pre>\n\u6807\u8bc6\u7b26\u5217\u8868\uff0c\u7ec4\u4ef6\u5217\u8868<\/p>\n
Next_Position,\r\nPrevious_Position,\r\nCurrent_Position : Position;\r\ntype Some_Record is \r\nrecord\r\nA_Component,\r\nB_Component,\r\nC_Component : Component_Type;\r\nend record;<\/pre>\n\u679a\u4e3e\u7c7b\u578b\u5b9a\u4e49<\/p>\n
type Navaid is \r\n(Vor, \r\nVor_Dme, \r\nDme, \r\nTacan, \r\nVor_Tac, \r\nNDB);<\/pre>\n\u5224\u522b\u5f0f\u7ea6\u675f<\/p>\n
subtype Constrained is Element \r\n(Name_Length => Name'Length,\r\nValid => True,\r\nOperation => Skip);<\/pre>\n\u8bed\u53e5\u7684\u987a\u5e8f\uff08\u7531\u683c\u5f0f\u5668\u5904\u7406\uff09<\/p>\n
\u5f62\u5f0f\u90e8\u5206\u3001\u7c7b\u5c5e\u5f62\u5f0f\u90e8\u5206\u3001\u5b9e\u53c2\u90e8\u5206\u3001\u7c7b\u5c5e\u5b9e\u53c2\u90e8\u5206<\/p>\n
procedure Just_Do_It (This : in Some_Type;\r\nFor_That : in Some Other_Type;\r\nStatus : out Status_Type);\r\nJust_Do_It (This => This_Value;\r\nFor_That => That_Value;\r\nStatus => The_Status);<\/pre>\n
\n<\/a>\u7b2c\u56db\u7ae0<\/em><\/h2>\n\u6ce8\u91ca<\/h1>\n\u6982\u8ff0<\/h2>\n
\u4e0e\u5e7f\u6cdb\u63a5\u53d7\u7684\u89c2\u70b9\u76f8\u53cd\u7684\u662f\uff0c\u597d\u7684\u7a0b\u5e8f\u7684\u7279\u70b9\u5e76\u975e\u662f\u6ce8\u91ca\u7684\u6570\u91cf<\/em>\uff0c\u800c\u662f\u6ce8\u91ca\u7684\u8d28\u91cf<\/em>\u3002<\/p>\n\u6ce8\u91ca\u5e94\u5f53\u4f5c\u4e3a Ada \u4ee3\u7801\u7684\u8865\u5145<\/em>\uff0c\u800c\u4e0d\u662f\u89e3\u91ca\uff1aAda \u672c\u8eab\u662f\u4e00\u79cd\u975e\u5e38\u6613\u8bfb\u7684\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00\uff0c\u5c24\u5176\u662f\u5f53\u88ab\u597d\u7684\u547d\u540d\u7ea6\u5b9a\u652f\u6301\u65f6\u3002\u6ce8\u91ca\u5e94\u5f53\u89e3\u91ca\u90a3\u4e9b\u4e0d\u80fd\u76f4\u63a5\u4ece Ada \u4ee3\u7801\u4e2d\u770b\u51fa\u7684\u5185\u5bb9\uff1b\u5b83\u4eec\u4e0d\u5e94\u590d\u5236 Ada \u7684\u8bed\u6cd5\u6216\u8bed\u4e49\u3002\u6ce8\u91ca\u5e94\u5f53\u5e2e\u52a9\u8bfb\u8005\u638c\u63e1\u80cc\u666f\u6982\u5ff5\u548c\u4f9d\u8d56\u6761\u4ef6\uff0c\u7279\u522b\u662f\u590d\u6742\u7684\u6570\u636e\u7f16\u7801\u548c\u7b97\u6cd5\u3002\u6ce8\u91ca\u5e94\u5f53\u7a81\u51fa\u4e0e\u7f16\u7801\u6216\u8bbe\u8ba1\u6807\u51c6\u7684\u4e0d\u540c\u70b9\u3001\u53d7\u9650\u7279\u6027\u7684\u4f7f\u7528\u4ee5\u53ca\u7279\u6b8a\u7684 \u201c\u6280\u5de7\u201d\u3002\u5728\u6bcf\u4e2a\u4e3b\u8981\u7684 Ada \u6784\u9020\uff08\u5982\u5b50\u7a0b\u5e8f\u548c\u7a0b\u5e8f\u5305\uff09\u4e2d\uff0c\u7cfb\u7edf\u5730\u51fa\u73b0\u7684\u6ce8\u91ca\u6846\u6216\u8868\u5355\u5177\u6709\u4e00\u81f4\u6027\u548c\u63d0\u9192\u7a0b\u5e8f\u5458\u8bf4\u660e\u4ee3\u7801\u7684\u4f18\u70b9\uff0c\u4f46\u5b83\u4eec\u4e5f\u5e38\u5e38\u5e26\u6765\u91ca\u4e49\u4ee3\u7801\u7684\u98ce\u683c\u3002\u5bf9\u6bcf\u4e00\u884c\u6ce8\u91ca\uff0c\u7a0b\u5e8f\u5458\u90fd \u5e94\u80fd\u591f\u5f88\u597d\u5730\u56de\u7b54\uff1a\u201c\u52a0\u5165\u8fd9\u4e2a\u6ce8\u91ca\u6709\u4f55\u4ef7\u503c\uff1f\u201d<\/p>\n\u4e00\u4e2a\u8bef\u5bfc\u6216\u8005\u9519\u8bef\u7684\u6ce8\u91ca\u6bd4\u5b8c\u5168\u4e0d\u6ce8\u91ca\u8fd8\u7cdf\u3002\u7f16\u8bd1\u5668\u4e0d\u68c0\u67e5\u6ce8\u91ca\uff08\u9664\u975e\u5b83\u4eec\u8c61\u201cRational \u8bbe\u8ba1\u5de5\u5177\u201d\u90a3\u6837\u53c2\u4e0e\u4e86\u6b63\u5f0f\u7684 Ada \u8bbe\u8ba1\u8bed\u8a00 (ADL) \u6216\u8005\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00 (PDL)\uff09\u3002\u56e0\u6b64\uff0c\u6839\u636e\u5355\u70b9\u7ef4\u62a4\u539f\u5219\uff0c\u8bbe\u8ba1\u51b3\u5b9a\u5e94\u5728 Ada \u800c\u4e0d\u662f\u6ce8\u91ca\u4e2d\u8868\u8ff0\uff0c\u5373\u4f7f\u8fd9\u6837\u505a\u9700\u8981\u591a\u51e0\u4e2a\u58f0\u660e\u3002<\/p>\n
\u4f5c\u4e3a\u4e00\u4e2a\uff08\u5e76\u975e\u5f88\u597d\u7684\uff09\u4f8b\u5b50\u8003\u8651\u5982\u4e0b\u7684\u58f0\u660e\uff1a<\/p>\n
------------------------------------------------------------\r\n-- procedure Create\r\n------------------------------------------------------------\r\n--\r\nprocedure Create\r\n(The_Subscriber: in out Subscriber.Handle;\r\nWith_Name : in out Subscriber.Name);\r\n--\r\n-- Purpose: This procedure creates a subscriber with a given\r\n-- name.\r\n--\r\n-- Parameters: \r\n- The_Subscriber :mode in out, type Subscriber.Handle\r\n- It is the handle to the created subscriber\r\n- With_Name :mode in, type Subscriber.Name\r\n- The name of the subscriber to be created.\r\n- The syntax of the name is\r\n-- <letter> { <letter> | <digit> }\r\n-- Exceptions:\r\n-- Subscriber.Collection_Overflow when there is no more\r\n-- space to create a new subscriber\r\n-- Subscriber.Invalid_Name when the name is blank or\r\n-- malformed\r\n--\r\n-------------------------------------------- end Create ----<\/pre>\n\u4f8b\u5b50\u4e2d\u6709\u51e0\u70b9\u8981\u6307\u51fa\u6765\u3002<\/p>\n
\n- \u6709\u8bb8\u591a\u5197\u4f59\uff1a<\/li>\n<\/ul>\n
\n- – \u8fc7\u7a0b\u521b\u5efa (Procedure Create)\uff1a\u5982\u679c\u8981\u6539\u540d\uff0c\u6709\u51e0\u5904\u5730\u65b9\u9700\u8981\u4fee\u6539\uff1b\u7ecf\u5e38\u6027\u5730\u4fee\u6539\u6ce8\u91ca\uff0c\u7f16\u8bd1\u5668\u4e0d\u4f1a\u6267\u884c\u3002<\/dd>\n
- – \u6ce8\u91ca\u4e2d\u65e0\u9700\u91cd\u590d\u8bf4\u660e\u53c2\u6570\u540d\u3001\u6a21\u5f0f\u548c\u7c7b\u578b\u3002<\/dd>\n
- – \u8fd9\u91cc\u7ed9\u6bcf\u4e2a Ada \u5b9e\u4f53\u6240\u53d6\u7684\u540d\u5b57\u5f88\u597d\uff0c\u8fd9\u4f7f\u5f97\u529f\u80fd\u548c\u53c2\u6570\u89e3\u91ca\u53d8\u5f97\u591a\u4f59\u3002\u6ce8\u610f\uff0c\u8fd9\u4e00\u70b9\u53ea\u662f\u5bf9\u4e8e\u5982\u4e0a\u4f8b\u8fd9\u6837\u7684\u7b80\u5355\u7684\u5b50\u7a0b\u5e8f\u6765\u8bf4\u624d\u662f\u6b63\u786e\u7684\u3002\u5bf9\u4e8e\u66f4\u590d\u6742\u7684\u5b50\u7a0b\u5e8f\uff0c\u4ecd\u9700\u8981\u529f\u80fd\u548c\u53c2\u6570\u89e3\u91ca\u3002<\/dd>\n<\/dl>\n
\n- \u6846\u67b6\u52a0\u5165\u4e86\u592a\u591a\u7684\u5e72\u6270\uff0c\u9690\u85cf\u4e86\u5173\u952e\u9879\uff1a\u8fc7\u7a0b\u58f0\u660e\u3002\u53e6\u5916\uff0c\u53f3\u7aef\u7684\u5782\u76f4\u8fb9\u5f00\u59cb\u65f6\u770b\u4e0a\u53bb\u8fd8\u5f88\u6f02\u4eae\uff0c\u4f46\u5374\u4f7f\u4fee\u6539\u53d8\u5f97\u6781\u4e3a\u75db\u82e6\uff0c\u901a\u5e38\u51e0\u5e74\u7684\u7ef4\u62a4\u4e0b\u6765\uff0c\u4ee3\u7801\u6700\u540e\u5b8c\u5168\u4e0d\u5bf9\u9f50\u5e76\u4e14\u5343\u75ae\u767e\u5b54\u3002<\/li>\n
- \u76f8\u53cd\u7684\u662f\uff0c\u8fd9\u91cc\u5e94\u8bf4\u660e\u4ea7\u751f\u4e86\u4f55\u79cd\u5f02\u5e38\uff0c\u56e0\u4e3a\u82e5\u53ea\u8bfb\u89c4\u683c\u8bf4\u660e\uff0c\u8fd9\u4e00\u70b9\u5e76\u4e0d\u660e\u663e\u3002\u4f46\u6bcf\u4e2a\u5f02\u5e38\u7684\u51c6\u786e\u542b\u4e49\u5e94\u653e\u5728\u81ea\u8eab\u7684\u5f02\u5e38\u58f0\u660e\u5904\u3002<\/li>\n
- \u5e94\u8bf4\u660e\u53c2\u6570\u7684\u524d\u7f6e\u548c\u540e\u7f6e\u6761\u4ef6\uff0c\u5c24\u5176\u662f\u53c2\u6570\u95f4\u7684\u5173\u7cfb\u3002\u8fd9\u4e9b\u4e0d\u5e94\u4e0e\u5176\u5b83\u5730\u65b9\u53ef\u4ee5\u627e\u5230\u7684\u4fe1\u606f\u91cd\u590d\uff0c\u5982\u6709\u6548\u540d\u7684\u8bed\u6cd5\uff0c\u5b83\u53ea\u5e94\u5728\u4e00\u5904\u8bf4\u660e\u3002<\/li>\n<\/ul>\n
\u5728\u8fd9\u4e2a\u4f8b\u5b50\u4e2d\uff0c\u6700\u597d\u91c7\u7528\u5982\u4e0b\u66f4\u7b80\u6d01\u3001\u66f4\u6709\u7528\u7684\u65b9\u5f0f\uff1a<\/p>\n
procedure Create (The_Subscriber : in out Subscriber.Handle;\r\nWith_Name : in Subscriber.Name);--\r\n-Raises Subscriber.Collection_Overflow.\r\n-Raises Subscriber.Invalid_Name when the name is \r\nblank or malformed (see syntax description \r\nattached to declaration of type Subscriber.Name).<\/pre>\n<\/a>\u6ce8\u91ca\u7528\u6cd5\u6307\u5357<\/h2>\n\u6ce8\u91ca\u5e94\u653e\u5728\u76f8\u5173\u4ee3\u7801\u7684\u65c1\u8fb9\uff0c\u7f29\u8fdb\u540c\u6837\u7684\u5927\u5c0f\uff0c\u7d27\u9760\u7740\u4ee3\u7801 – \u5373\u7528\u7a7a\u7684\u6ce8\u91ca\u884c\u5728\u89c6\u89c9\u4e0a\u5c06\u6ce8\u91ca\u5757\u4e0e Ada \u6784\u9020\u6346\u5728\u4e00\u8d77\uff1a<\/p>\n
procedure First_One;\r\n--\r\n-- This comment relates to First_One.\r\n-- But this comment is for Second_One.\r\n-- \r\nprocedure Second_One (Times : Natural);<\/pre>\n\u7528\u7a7a\u884c\u5206\u9694\u76f8\u5173\u7684\u6e90\u7801\u5757\uff08\u6ce8\u91ca\u548c\u4ee3\u7801\uff09\uff0c\u800c\u4e0d\u7528\u7c97\u91cd\u7684\u6ce8\u91ca\u884c\uff0c\u5982\uff1a<\/p>\n
-------------------------------------------------------------<\/pre>\n\u6216\u8005\uff1a<\/p>\n
--===========================================================<\/pre>\n\u5728\u4e00\u4e2a\u6ce8\u91ca\u5757\u4e2d\uff0c\u4f7f\u7528\u7a7a\u6ce8\u91ca\u884c\u800c\u975e\u7a7a\u884c\u6765\u5206\u5272\u6ce8\u91ca\u6bb5<\/p>\n
-- Some explanation here that needs to be continued in a\r\n-- subsequent paragraph.\r\n--\r\n-- The empty comment line above makes it clear that we \r\n-- are dealing with a single comment block.<\/pre>\n\u867d\u7136\u6ce8\u91ca\u53ef\u4ee5\u653e\u5728\u76f8\u5173 Ada \u6784\u9020\u7684\u4e0a\u65b9\u6216\u4e0b\u65b9\uff0c\u4f46\u662f\u8981\u5c06\u4e00\u8282\u7684\u6807\u9898\u6216\u8005\u4e00\u4e2a\u8bf4\u660e\u51e0\u4e2a Ada \u6784\u9020\u7684\u4e3b\u8981\u4fe1\u606f\u653e\u5728\u6784\u9020\u7684\u4e0a\u65b9<\/em>\u3002\u5c06\u8bc4\u8ff0\u6216\u9644\u52a0\u4fe1\u606f\u7b49\u8fd9\u4e00\u7c7b\u7684\u6ce8\u91ca\u653e\u5728\u76f8\u5173 Ada \u6784\u9020\u7684\u4e0b\u65b9<\/em>\u3002<\/p>\n\u7528\u4e00\u9875\u7684\u6574\u884c\u5bbd\u5728 Ada \u6784\u9020\u7684\u5f00\u5934\u5904\u5206\u7ec4\u3002\u907f\u514d\u5c06\u6ce8\u91ca\u653e\u5728 Ada \u6784\u9020\u7684\u540c\u4e00\u884c\u3002\u8fd9\u4e9b\u6ce8\u91ca\u5e38\u5e38\u53d8\u5f97\u4e0d\u5bf9\u9f50\u3002\u4f46\u662f\u5728\u8bf4\u660e\u4e00\u4e2a\u957f\u7684\u58f0\u660e\u65f6\uff0c\u5982\u679a\u4e3e\u7c7b\u578b\u76f4\u63a5\u91cf\uff0c\u8fd9\u6837\u7684\u6ce8\u91ca\u65b9\u5f0f\u662f\u53ef\u4ee5\u5bb9\u8bb8\u7684\u3002<\/p>\n
\u7528\u4e00\u4e2a\u5c0f\u7684\u5206\u5c42\u6b21\u7684\u6807\u51c6\u6ce8\u91ca\u5757\u6765\u8bf4\u660e\u5c0f\u8282\u7684\u6807\u9898\uff0c\u4f46\u8fd9\u4ec5\u4ec5\u9002\u7528\u4e8e\u5f88\u5927\u7684 Ada \u5355\u5143\uff08>200 \u884c\u7684\u58f0\u660e\u6216\u8005\u8bed\u53e5\uff09\uff1a<\/p>\n
--===========================================================\r\n--\r\n \u4e3b\u6807\u9898\r\n--\r\n--===========================================================\r\n\r\n-------------------------------------------------------------\r\n \u526f\u6807\u9898\r\n-------------------------------------------------------------\r\n\r\n --------------------\r\n \u5b50\u90e8\u5206\u7684\u5934\r\n --------------------<\/pre>\n\u5728\u8fd9\u79cd\u6807\u9898\u524d\u9762\u6240\u653e\u7684\u7a7a\u884c\u6570\u8981\u591a\u4e8e\u540e\u9762\u7684\u7a7a\u884c\u6570\uff0c\u4f8b\u5982\uff0c\u4e24\u884c\u5728\u524d\u4e00\u884c\u5728\u540e\u3002\u8fd9\u6837\u4f7f\u6807\u9898\u4e0e\u968f\u540e\u7684\u6b63\u6587\u5728\u89c6\u89c9\u4e0a\u76f8\u8054\u7cfb\u3002<\/p>\n
\u907f \u514d\u4f7f\u7528\u542b\u6709\u4fe1\u606f\u7684\u51fd\u6570\u5934\uff0c\u6bd4\u5982\u4f5c\u8005\u3001\u7535\u8bdd\u3001\u521b\u5efa\u548c\u4fee\u6539\u65e5\u671f\u3001\u5355\u5143\uff08\u6216\u6587\u4ef6\u540d\uff09\u7684\u4f4d\u7f6e\uff0c\u56e0\u4e3a\u8fd9\u4e9b\u4fe1\u606f\u5f88\u5feb\u5c31\u4f1a\u8fc7\u65f6\u3002\u5c06\u6240\u6709\u8005\u7248\u6743\u4fe1\u606f\u653e\u5728\u5355\u5143\u7684\u672b\u5c3e\uff0c\u5c24\u5176\u662f \u4f7f\u7528\u201cRational \u73af\u5883\u201d\u65f6\u3002\u5f53\u8bbf\u95ee\u4e00\u4e2a\u7a0b\u5e8f\u5305\u7684\u89c4\u683c\u8bf4\u660e\u6e90\u7801\u65f6 – \u4f8b\u5982\u5728\u201cRational \u73af\u5883\u201d\u4e2d\u6309 [Definition] – \u8bfb\u8005\u4e0d\u60f3\u6d4f\u89c8\u4e24\u9875\u6216\u8005\u4e09\u9875\u5bf9\u7406\u89e3\u7a0b\u5e8f\u65e0\u4efb\u4f55\u7528\u5904\u7684\u6587\u672c\u548c\/\u6216\u5b8c\u5168\u4e0d\u5e26\u6709\u4efb\u4f55\u7a0b\u5e8f\u4fe1\u606f\u7684\u6587\u672c\u3002\u907f\u514d\u4f7f\u7528\u5782\u76f4\u6eda\u52a8\u6761\u3001\u5c01\u95ed\u56fe\u6587\u6846\u6216\u65b9\u6846\uff0c\u8fd9\u4e9b\u4e1c\u897f\u53ea\u4f1a\u589e\u52a0\u89c6\u89c9 \u5e72\u6270\uff0c\u800c\u4e14\u96be\u4ee5\u4fdd\u6301\u4e00\u81f4\u6027\u3002\u7528 Rational CMVC \u9644\u6ce8\uff08\u6216\u8005\u5176\u5b83\u5f62\u5f0f\u7684\u8f6f\u4ef6\u5f00\u53d1\u6587\u4ef6\uff09\u6765\u4fdd\u5b58\u5355\u5143\u5386\u53f2\u3002<\/p>\n
\u4e0d\u8981\u91cd\u590d\u53ef\u4ee5\u5728\u5176\u5b83\u5730\u65b9\u627e\u5230\u7684\u4fe1\u606f\uff1b\u4ec5\u63d0\u4f9b\u4e00\u4e2a\u6307\u5411\u8be5\u4fe1\u606f\u7684\u6307\u9488\u5373\u53ef\u3002<\/p>\n
\u5c3d \u91cf\u91c7\u7528 Ada\uff0c\u800c\u975e\u6ce8\u91ca\u3002\u8981\u5b9e\u73b0\u8fd9\u4e00\u70b9\uff0c\u4f60\u53ef\u9009\u62e9\u66f4\u597d\u7684\u540d\u5b57\u3001\u9644\u52a0\u4e34\u65f6\u53d8\u91cf\u3001\u9650\u5b9a\u3001\u91cd\u547d\u540d\u3001\u5b50\u7c7b\u578b\u3001\u9759\u6001\u8868\u8fbe\u5f0f\u548c\u5c5e\u6027\uff0c\u8fd9\u4e9b\u90fd\u4e0d\u5f71\u54cd\u751f\u6210\u7684\u4ee3\u7801\uff08\u81f3\u5c11\u5728\u4e00\u4e2a\u597d\u7684 \u7f16\u8bd1\u5668\u4e2d\u4e0d\u5f71\u54cd\uff09\u3002\u4f60\u4e5f\u53ef\u4ee5\u91c7\u7528\u5c0f\u7684\u3001\u5d4c\u5165\u5f0f\u7684\u8c13\u8bcd\u51fd\u6570\uff0c\u5e76\u5c06\u4ee3\u7801\u5206\u6210\u51e0\u4e2a\u65e0\u53c2\u8fc7\u7a0b\uff0c\u8fd9\u4e9b\u8fc7\u7a0b\u7684\u540d\u5b57\u63d0\u4f9b\u4e86\u4ee3\u7801\u51e0\u4e2a\u79bb\u6563\u90e8\u5206\u7684\u6807\u9898\u3002<\/p>\n
\u793a\u4f8b\uff1a<\/p>\n
\u5c06\uff1a<\/p>\n
exit when Su.Locate (Ch, Str) \/= 0; \r\n-- Exit search loop when found it.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
Search_Loop : loop<\/p>\n
Found_It := Su.Locate (Ch, Str) \/= 0;<\/p>\n
exit Search_Loop when Found_It<\/p>\n
end Search_Loop;<\/p>\n
\u5c06\uff1a<\/p>\n
if Value < 'A' or else Value > 'Z' then\r\n-- If not in uppercase letters.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
subtype Uppercase_Letters is Character range 'A' ..'Z';\r\nif Value not in Uppercase_Letters then ...<\/pre>\n\u5c06\uff1a<\/p>\n
X := Green; -- This is the Green from \r\n-- Status, not from Color.\r\nraise Fatal_Error; -- From package Outer_Scope.\r\ndelay 384.0; -- Equal to 6 minutes and 24 \r\n-- seconds.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
The_Status := Green;<\/pre>\nor:<\/p>\n
X := Status'(Green);\r\nraise Outer_Scope.Fatal_Error;\r\ndelay 6.0 * Minute + 24.0 * Second;<\/pre>\n\u5c06\uff1a<\/p>\n
if Is_Valid (The_Table (Index).Descriptor(Rank).all) then\r\n-- This is the current value for the iteration; if it is \r\n-- valid we append to the list it contains.\r\nAppend (Item, To_List => The_Table (Index).Descriptor(Rank).Ptr);|<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
declare\r\nCurrent_Rank : Lists.List renames The_Table \r\n(Index).Descriptor (Rank);\r\nbegin\r\nif Is_Valid (Current_Rank.all) then\r\nAppend (Item, To_List => Current_Rank.Ptr);\r\nend if;\r\nend;<\/pre>\n\u6ce8\u610f\u6ce8\u91ca\u4e2d\u7684\u98ce\u683c\u3001\u8bed\u6cd5\u548c\u62fc\u5199\u3002\u4e0d\u8981\u4f7f\u7528\u8c61\u7535\u62a5\u5bc6\u7801\u4e00\u822c\u7684\u98ce\u683c\u3002\u4f7f\u7528\u62fc\u5199\u68c0\u67e5\u3002\uff08\u5728\u201cRational \u73af\u5883\u201d\u4e2d\u8c03\u7528 Speller.Check_Image\uff09\u3002<\/p>\n
\u4e0d\u8981\u4f7f\u7528\u65b9\u8a00\u5b57\u6bcd\u6216\u8005\u5176\u5b83\u975e\u82f1\u6587\u5b57\u7b26\u3002\u6839\u636e Ada Issue AI-339\uff0c\u975e\u82f1\u6587\u5b57\u7b26\u53ef\u88ab\u4e00\u4e9b\u5f00\u53d1\u7cfb\u7edf\u652f\u6301\uff0c\u4e00\u4e9b Ada \u7f16\u8bd1\u5668\u4ec5\u5728\u6ce8\u91ca\u4e2d\u652f\u6301\u3002\u4f46\u8fd9\u662f\u4e0d\u53ef\u79fb\u690d\u7684\uff0c\u5f88\u6709\u53ef\u80fd\u5728\u5176\u5b83\u7cfb\u7edf\u4e0a\u5931\u6548\u3002<\/p>\n
\u5bf9\u4e8e\u5b50\u7a0b\u5e8f\uff0c\u81f3\u5c11\u8bf4\u660e\uff1a<\/p>\n
\n- \u5b50\u7a0b\u5e8f\u7684\u7528\u9014\uff0c\u4f46\u8fd9\u53ea\u662f\u5f53\u4ece\u5b83\u7684\u540d\u5b57\u4e2d\u4e0d\u80fd\u660e\u786e\u4e86\u89e3\u5176\u7528\u9014\u65f6<\/li>\n
- \u5728\u4f55\u79cd\u6761\u4ef6\u4e0b\u751f\u6210\u4e86\u4f55\u79cd\u5f02\u5e38<\/li>\n
- \u5982\u679c\u6709\u7684\u8bdd\uff0c\u53c2\u6570\u7684\u524d\u7f6e\u6216\u540e\u7f6e\u6761\u4ef6<\/li>\n
- \u5176\u4ed6\u6570\u636e\u8bbf\u95ee\uff0c\u7279\u522b\u662f\u5f53\u6570\u636e\u88ab\u4fee\u6539\u65f6\uff1b\u8fd9\u5c24\u5176\u5305\u62ec\u6709\u526f\u4f5c\u7528\u7684\u51fd\u6570<\/li>\n
- \u6b63\u786e\u4f7f\u7528\u5b50\u7a0b\u5e8f\u6240\u9700\u7684\u4efb\u4f55\u9650\u5236\u6216\u9644\u52a0\u4fe1\u606f<\/li>\n<\/ul>\n
\u5bf9\u4e8e\u7c7b\u578b\u548c\u5bf9\u8c61\uff0c\u8981\u8bf4\u660e\u6240\u6709\u4e0d\u80fd\u901a\u8fc7 Ada \u8868\u8fbe\u7684\u4e0d\u53d8\u91cf\u6216\u9644\u52a0\u7ea6\u675f\u3002<\/p>\n
\u907f\u514d\u6ce8\u91ca\u4e2d\u7684\u91cd\u590d\u3002\u4f8b\u5982\uff0c\u6709\u5173\u7528\u9014\u7684\u90e8\u5206\u5e94\u662f\u201c\u5b83\u505a\u4ec0\u4e48\uff1f\u201d\u8fd9\u4e2a\u95ee\u9898\u7684\u7b80\u5355\u56de\u7b54\uff0c\u800c\u4e0d\u662f\u201c\u5b83\u600e\u4e48\u505a\uff1f\u201d\u7684\u56de\u7b54\u3002\u6982\u8ff0\u5e94\u662f\u8bbe\u8ba1\u7684\u7b80\u77ed\u8868\u8fbe\u3002\u8bf4\u660e\u4e2d\u4e0d\u5e94\u63cf\u8ff0\u6240\u7528\u7684\u7b97\u6cd5\uff0c\u800c\u5e94\u89e3\u91ca\u7a0b\u5e8f\u5305\u5e94\u5982\u4f55\u4f7f\u7528\u3002<\/p>\n
\u6570\u636e\u7ed3\u6784\u548c\u7b97\u6cd5\u90e8\u5206\u5e94\u542b\u6709\u8db3\u591f\u7684\u4fe1\u606f\u6765\u5e2e\u52a9\u7406\u89e3\u4e3b\u8981\u7684\u5b9e\u73b0\u7b56\u7565\uff08\u4ee5\u4fbf\u6b63\u786e\u4f7f\u7528\u7a0b\u5e8f\u5305\uff09\uff0c\u4f46\u65e0\u9700\u5305\u542b\u6240\u6709\u7684\u5b9e\u73b0\u7ec6\u8282\u6216\u4e0e\u6b63\u786e\u4f7f\u7528\u5305\u6beb\u4e0d\u76f8\u5173\u7684\u4fe1\u606f\u3002<\/p>\n
\n<\/a>\u7b2c\u4e94\u7ae0<\/em><\/h2>\n\u547d\u540d\u7ea6\u5b9a<\/h1>\n\u6982\u8ff0<\/h2>\n
\u7ed9 Ada \u5b9e\u4f53\uff08\u7a0b\u5e8f\u5355\u5143\u3001\u7c7b\u578b\u3001\u5b50\u7c7b\u578b\u3001\u5bf9\u8c61\u3001\u76f4\u63a5\u91cf\u3001\u5f02\u5e38\uff09\u6307\u5b9a\u597d\u540d\u5b57\u662f\u6240\u6709\u8f6f\u4ef6\u5e94\u7528\u7a0b\u5e8f\u8981\u8868\u8ff0\u7684\u6700\u7cbe\u5de7\u7684\u4e8b\u60c5\u4e4b\u4e00\u3002\u4e2d\u7b49\u89c4\u6a21\u5230\u5927\u89c4\u6a21\u7684\u5e94\u7528\u7a0b\u5e8f\u5b58\u5728\u7740\u53e6\u4e00\u4e2a\u95ee \u9898\uff1a\u540d\u5b57\u95f4\u7684\u51b2\u7a81\uff0c\u6216\u662f\u8981\u627e\u5230\u8db3\u591f\u7684\u540c\u4e49\u8bcd\u6765\u6307\u4ee3\u76f8\u540c\u73b0\u5b9e\u4e16\u754c\u4e2d\u76f8\u4f3c\u4f46\u53c8\u6709\u522b\u7684\u6982\u5ff5\uff08\u6216\u662f\u547d\u540d\u4e00\u4e2a\u7c7b\u578b\u3001\u5b50\u7c7b\u3001\u5bf9\u8c61\u3001\u53c2\u6570\uff09\u3002\u8fd9\u91cc\u53ef\u5229\u7528\u4e0d\u91c7\u7528\u201cuse\u201d \u5b50\u53e5\uff08\u6216\u53ea\u5728\u6781\u4e3a\u53d7\u9650\u7684\u6761\u4ef6\u4e0b\u91c7\u7528\uff09\u7684\u6cd5\u5219\u3002\u5728\u8bb8\u591a\u60c5\u5f62\u4e0b\uff0c\u8fd9\u4f7f\u5f97\u53ef\u4ee5\u4e0d\u5192\u6df7\u6dc6\u7684\u98ce\u9669\u800c\u7f29\u77ed\u540d\u5b57\uff0c\u5e76\u590d\u7528\u76f8\u540c\u7684\u63cf\u8ff0\u8bcd\u3002<\/p>\n
\u9009\u62e9\u6e05\u6670\u7684\u3001\u6613\u8bfb\u7684\u3001\u6709\u610f\u4e49\u7684\u540d\u79f0\u3002<\/p>\n
\u4e0e\u5176\u5b83\u7684\u7f16\u7a0b\u8bed\u8a00\u4e0d\u540c\uff0cAda \u4e0d\u5c06\u6807\u8bc6\u7b26\u7684\u957f\u5ea6\u9650\u5236\u5728 6\uff0c8 \u6216\u8005 15 \u4e2a\u5b57\u7b26\u5185\u3002\u77ed\u540d\u5b57\u6253\u5b57\u901f\u5ea6\u5feb\u4e0d\u662f\u91c7\u7528\u5b83\u4eec\u7684\u53ef\u4ee5\u4e3a\u4eba\u63a5\u53d7\u7684\u7406\u7531\u3002\u53ea\u6709\u4e00\u4e2a\u5b57\u6bcd\u7684\u6807\u8bc6\u7b26\u901a\u5e38\u8bf4\u660e\u9009\u62e9\u4e0d\u5f53\u6216\u662f\u61d2\u60f0\u3002\u53ef\u80fd\u6709\u51e0\u4e2a\u4f8b\u5916\uff0c\u5982\u5c06 E \u4f5c\u4e3a\u81ea\u7136\u5bf9\u6570\u7684\u5e95\uff0cPi\uff0c\u4ee5\u53ca\u5176\u5b83\u5c11\u6570\u51e0\u4e2a\u6613\u8fa8\u8bc6\u7684\u60c5\u51b5\u3002<\/p>\n
\u7528\u4e0b\u5212\u7ebf\u5c06\u4e00\u4e2a\u540d\u5b57\u4e2d\u7684\u4e0d\u540c\u5355\u8bcd\u5206\u9694\u5f00\u6765\uff1a<\/p>\n
Is_Name_Valid<\/code> \u4e0d\u662f IsNameValid<\/code><\/p>\n\u91c7\u7528\u5168\u540d\u800c\u4e0d\u662f\u7f29\u5199\u3002<\/p>\n
\u53ea\u91c7\u7528\u9879\u76ee\u8ba4\u53ef\u7684\u7f29\u7565\u8bcd\u3002<\/p>\n
\u53ea\u80fd\u662f\u5728\u4e24\u79cd\u60c5\u51b5\u4e4b\u4e00\u65f6\u91c7\u7528\u7f29\u5199\uff1a\u8be5\u7f29\u5199\u5728\u5e94\u7528\u9886\u57df\u4e2d\u5f88\u666e\u904d\uff08\u5982 FFT \u4ee3\u8868\u5085\u7acb\u53f6\u53d8\u6362\uff09\u6216\u8005\u6765\u81ea\u516c\u8ba4\u7f29\u5199\u7684\u9879\u76ee\u7ea7\u5217\u8868\u3002\u5426\u5219\uff0c\u5f88\u6709\u53ef\u80fd\u4f7f\u76f8\u4f3c\u4f46\u4e0d\u76f8\u540c\u7684\u7f29\u5199\u5230\u5904\u51fa\u73b0\uff0c\u5bfc\u81f4\u4ee5\u540e\u7684\u6df7\u6dc6\u548c\u9519\u8bef\uff08\u5982\u5c06 track_identification \u7f29\u5199\u6210 trid\u3001trck_id\u3001tr_iden\u3001tid\u3001tr_ident\u7b49\uff09\u3002<\/p>\n
\u5c11\u7528\u540e\u7f00\u8bf4\u660e Ada \u6784\u9020\u7684\u5206\u7c7b\u3002\u5b83\u4eec\u4e0d\u80fd\u63d0\u9ad8\u6613\u8bfb\u6027\u3002<\/p>\n
\u901a\u5e38\u6309\u7167 Ada \u5b9e\u4f53\u7684\u7c7b\u6765\u52a0\u540e\u7f00\uff0c\u5982\u7ed9\u7a0b\u5e8f\u5305\u52a0\u4e0a _Package\uff0c\u5f02\u5e38\u52a0\u4e0a _Error\uff0c\u7c7b\u578b\u52a0\u4e0a _Type\uff0c\u4ee5\u53ca\u5b50\u7a0b\u5e8f\u7684\u53c2\u6570\u52a0\u4e0a _Param\uff0c\u5bf9\u5e2e\u52a9\u9605\u8bfb\u548c\u7406\u89e3\u4ee3\u7801\u4e0d\u662f<\/em>\u5f88\u6709\u6548\u3002 \u800c\u52a0\u4e0a\u5982 _Array\uff0c_Record \u548c _Function \u8fd9\u6837\u7684\u540e\u7f00\u5219\u66f4\u7cdf\u3002Ada \u7f16\u8bd1\u5668\u548c\u8bfb\u8005\u90fd\u53ef\u4ee5\u6839\u636e\u4e0a\u4e0b\u6587\u4ece\u5b50\u7a0b\u5e8f\u4e2d\u5206\u8fa8\u4e00\u4e2a\u5f02\u5e38\uff1a\u663e\u7136\u53ea\u6709\u5f02\u5e38\u540d\u53ef\u4ee5\u5728 raise<\/em> \u8bed\u53e5\u6216\u5f02\u5e38\u5904\u7406\u4e2d\u51fa\u73b0\u3002\u8fd9\u4e9b\u540e\u7f00\u5728\u5982\u4e0b\u53d7\u9650\u7684\u6761\u4ef6\u4e0b\u53ef\u7528\uff1a<\/p>\n\n- \u5f53\u5408\u9002\u7684\u8bcd\u7684\u9009\u62e9\u8303\u56f4\u975e\u5e38\u6709\u9650\u65f6\uff0c\u7ed9\u5bf9\u8c61\u9009\u4e00\u4e2a\u6700\u597d\u7684\u540d\u5b57\u5e76\u52a0\u4e0a\u7c7b\u578b\u7684\u540e\u7f00\u3002<\/li>\n
- \u5bf9\u4e8e\u7c7b\u5c5e\u5355\u5143,\u603b\u53ef\u4ee5\u52a0\u4e0a\u5f62\u5982 _Generic \u7684\u540e\u7f00\uff0c\u6240\u4ee5\u5bf9\u4e00\u4e9b\u6216\u8bb8\u591a\u5b9e\u4f8b\u6765\u8bf4\uff0c\u53ef\u4ee5\u4e0d\u6dfb\u52a0\u8be5\u540e\u7f00\u800c\u4f7f\u7528\u4e0e\u5176\u76f8\u540c\u7684\u540d\u5b57\u3002<\/li>\n
- \u5f53\u5b83\u8868\u793a\u4e00\u4e2a\u5e94\u7528\u9886\u57df\u7684\u6982\u5ff5\u65f6\uff0c\u5982 Aircraft_Type\u3002<\/li>\n
- \u5f53\u91cd\u8981\u7684\u8bbe\u8ba1\u51b3\u7b56\u9700\u9ad8\u5ea6\u53ef\u89c1\u65f6\uff1a<\/li>\n<\/ul>\n
\u7c7b\u5c5e\u5f62\u53c2\u7c7b\u578b\u540e\u7f00\u4e3a _Constrained<\/p>\n
\u540e\u7f00\u4e3a _Pointer \u7684\u5b58\u53d6\u7c7b\u578b\u6216\u5176\u5b83\u975e\u76f4\u63a5\u6307\u4ee3\u7684\u5f62\u5f0f\uff1a_Handle \u6216 _Reference<\/p>\n
\u901a\u8fc7 _Or_Wait \u9690\u85cf\u4e86\u53ef\u80fd\u963b\u585e\u7684\u5165\u53e3\u8c03\u7528\u7684\u5b50\u7a0b\u5e8f<\/p>\n
\u5c06\u540d\u5b57\u8868\u8ff0\u51fa\u6765\uff0c\u4f7f\u5f97\u4ece\u4f7f\u7528<\/em>\u7684\u89d2\u5ea6\u770b\uff0c\u5b83\u4eec\u8fd8\u4e0d\u9519\u3002<\/p>\n\u8bd5\u60f3\u4e00\u4e2a\u5bfc\u51fa\u5b9e\u4f53\u53ef\u5728\u5176\u4e2d\u4f7f\u7528\u7684\u4e0a\u4e0b\u6587\uff0c\u5e76\u7ad9\u5728\u90a3\u4e2a\u89d2\u5ea6\u9009\u62e9\u4e00\u4e2a\u540d\u5b57\u3002\u4e00\u4e2a\u5b9e\u4f53\u4ec5\u88ab\u5b9a\u4e49\u4e00\u6b21\uff0c\u4f46\u5374\u88ab\u4f7f\u7528\u8bb8\u591a\u6b21\u3002\u8fd9\u4e00\u70b9\u5bf9\u4e8e\u5b50\u7a0b\u5e8f\u7684\u540d\u5b57\u53ca\u5176\u53c2\u6570\u6765\u8bf4\u5c24\u4e3a\u6b63\u786e\uff1b \u4f7f\u7528\u547d\u540d\u5173\u8054\u5173\u7cfb\u7684\u7ed3\u679c\u8c03\u7528\u5e94\u5c3d\u91cf\u4e0e\u81ea\u7136\u8bed\u8a00\u76f8\u8fd1\u3002\u8bb0\u4f4f\u7f3a\u5c11\u4f7f\u7528<\/em>\u5b50\u53e5\u4f7f\u5f97\u5927\u591a\u6570\u58f0\u660e\u5b9e\u4f53\u5fc5\u987b\u5177\u6709\u53d7\u9650\u540d\u3002\u5bf9\u4e8e\u6709\u53ef\u80fd\u5728\u7c7b\u5c5e\u5355\u5143\u4e2d\u6bd4\u5728\u4eab\u7528\u6a21\u5757\u90a3\u91cc\u4f7f\u7528\u5f97\u8fd8\u591a\u7684\u7c7b\u5c5e\u5f62\u53c2\u6765\u8bf4\uff0c\u5fc5\u987b\u5bfb\u627e\u4e00\u4e2a\u597d\u7684\u534f\u8c03\u529e\u6cd5\uff0c\u4f46\u662f\u7edd\u5bf9\u8981\u4fdd\u8bc1\u5b50\u7a0b\u5e8f\u7684\u5f62\u53c2\u5728\u4eab\u7528\u6a21\u5757\u7aef\u597d\u770b\u3002<\/p>\n\u4f7f\u7528\u82f1\u6587\u5355\u8bcd\u5e76\u62fc\u5199\u6b63\u786e\u3002<\/p>\n
\u8bed\u8a00\u7684\u6df7\u5408\uff08\u5982\u6cd5\u8bed\u548c\u82f1\u8bed\uff09\u5c06\u4f7f\u4ee3\u7801\u96be\u8bfb\uff0c\u6709\u65f6\u4f7f\u6807\u8bc6\u7b26\u7684\u610f\u4e49\u6478\u68f1\u4e24\u53ef\u3002 \u65e2\u7136 Ada \u7684\u5173\u952e\u5b57\u5df2\u662f\u82f1\u6587\u7684\uff0c\u5219\u8981\u6c42\u4f7f\u7528\u82f1\u6587\u5355\u8bcd\u3002\u6700\u597d\u91c7\u7528\u7f8e\u5f0f\u62fc\u6cd5\uff0c\u4ee5\u4fbf\u5229\u7528\u201cRational \u73af\u5883\u201d\u4e2d\u5185\u7f6e\u7684\u62fc\u5199\u68c0\u67e5\u3002<\/p>\n
\u4e0d\u8981\u91cd\u65b0\u5b9a\u4e49 Standard \u7a0b\u5e8f\u5305\u4e2d\u7684\u4efb\u4f55\u5b9e\u4f53\u3002\u8fd9\u662f\u7edd\u5bf9\u7981\u6b62\u7684\u3002<\/p>\n
\u8fd9\u6837\u505a\u5c06\u4ea7\u751f\u6df7\u6dc6\u548c\u4e25\u91cd\u7684\u9519\u8bef\u3002\u8be5\u6cd5\u5219\u53ef\u5ef6\u4f38\u81f3\u5176\u5b83\u9884\u5b9a\u4e49\u7684\u5e93\u5355\u5143\uff1aCalendar\uff0cSystem\u3002\u8fd9\u4e5f\u5305\u62ec Standard<\/em> \u6807\u8bc6\u7b26\u672c\u8eab\u3002<\/p>\n\u907f\u514d\u5bf9\u5176\u5b83\u9884\u5b9a\u4e49\u7a0b\u5e8f\u5305\u4e2d\u7684\u6807\u8bc6\u7b26\u91cd\u5b9a\u4e49\uff0c\u5982 System \u6216 Calendar\u3002<\/p>\n
\u4e0d\u8981\u4f7f\u7528\u5982\u4e0b\u7684\u6807\u8bc6\u7b26\uff1aWide_Character<\/strong> \u548c Wide_String<\/strong>\uff0c\u5b83\u4eec\u5c06\u5728 Ada 95 \u7684 Standard \u7a0b\u5e8f\u5305\u4e2d\u5f15\u5165\u3002\u4e0d\u8981\u5f15\u5165\u4e00\u4e2a\u540d\u4e3a Ada<\/strong> \u7684\u7f16\u8bd1\u5355\u5143\u3002<\/p>\n\u4e0d\u8981\u4f7f\u7528\u4ee5\u4e0b\u5355\u8bcd\u4f5c\u4e3a\u6807\u8bc6\u7b26\uff1aabstract<\/strong>\uff0caliased<\/strong>\uff0cprotected<\/strong>\uff0crequeue<\/strong>\uff0ctagged<\/strong> \u548c until<\/strong>\uff0c\u5b83\u4eec\u5728 Ada 95 \u5c06\u6210\u4e3a\u5173\u952e\u5b57\u3002<\/p>\n\u4e00\u4e9b\u7ed9\u5404\u79cd Ada \u5b9e\u4f53\u7684\u547d\u540d\u5efa\u8bae\u4e5f\u662f\u540c\u6837\u3002\u5047\u5b9a\u4e00\u822c\u60c5\u5f62\u4e0b\uff0c\u201c\u9762\u5411\u5bf9\u8c61\u201d\u98ce\u683c\u7684\u8bbe\u8ba1\u53d7\u6b22\u8fce\u3002\u8be6\u60c5\u8bf7\u53c2\u89c1\u9644\u5f55 A\u3002<\/p>\n
<\/a>\u7a0b\u5e8f\u5305<\/h2>\n\u5f53\u4e00\u4e2a\u7a0b\u5e8f\u5305\u5f15\u5165\u4e86\u67d0\u4e2a\u5bf9\u8c61\u7c7b\u65f6\uff0c\u7528\u8be5\u5bf9\u8c61\u7c7b\u7684\u540d\u5b57\u547d\u540d\u7a0b\u5e8f\u5305\uff0c\u901a\u5e38\u662f\u4e00\u4e2a\u5355\u6570\u5f62\u5f0f\u7684\u540d\u8bcd\uff0c\u82e5\u9700\u8981\uff08\u5373\u5b9a\u4e49\u4e86\u4e00\u4e2a\u5e26\u53c2\u6570\u7684\u7c7b\uff09\uff0c\u53ef\u52a0\u4e0a\u540e\u7f00 _Generic\u3002\u4ec5\u5f53\u5bf9\u8c61\u603b\u4ee5\u7fa4\u4f53\u5f62\u5f0f\u51fa\u73b0\u65f6\uff0c\u624d\u91c7\u7528\u590d\u6570\u5f62\u5f0f\u3002\u4f8b\u5982\uff1a<\/p>\n
package Text is\r\npackage Line is\r\npackage Mailbox is\r\npackage Message is\r\npackage Attributes is\r\npackage Subscriber is\r\npackage List_Generic is<\/pre>\n\u82e5\u4e00\u4e2a\u7a0b\u5e8f\u5305\u8bf4\u660e\u4e86\u4e00\u4e2a\u63a5\u53e3\u6216\u8005\u529f\u80fd\u5206\u7ec4\uff0c\u5e76\u4e14\u5b83\u4e0d\u4e0e\u4efb\u4f55\u5bf9\u8c61\u76f8\u5173\uff0c\u5219\u5e94\u5728\u5b83\u7684\u540d\u5b57\u4e2d\u5c06\u8fd9\u4e00\u70b9\u8868\u8ff0\u51fa\u6765\uff1a<\/p>\n
package Low_Layer_Interface is\r\npackage Math_Definitions is<\/pre>\n\u5f53\u4e00\u4e2a\u201c\u903b\u8f91\u201d\u5305\u7528\u5e73\u9762\u5206\u89e3 (flat decomposition)\uff0c\u9700\u8981\u4f5c\u4e3a\u51e0\u4e2a\u5305\u6765\u8868\u8fbe\u65f6\uff0c\u91c7\u7528\u9879\u76ee\u7ea7\u4e00\u81f4\u7684\u5217\u8868\u4e2d\u7684\u540e\u7f00\u3002\u4f8b\u5982\uff0c\u4e00\u4e2a\u903b\u8f91\u7a0b\u5e8f\u5305 Mailbox \u53ef\u5982\u4e0b\u5b9e\u73b0\uff1a<\/p>\n
package Mailbox_Definitions is\r\npackage Mailbox_Exceptions is\r\npackage Mailbox_Io is\r\npackage Mailbox_Utilities is\r\npackage Mailbox_Implementation is\r\npackage Mailbox_Main is<\/pre>\n\u5176\u5b83\u53ef\u63a5\u53d7\u7684\u540e\u7f00\u6709\uff1a<\/p>\n
_Test_Support \r\n_Test_Main \r\n_Log \r\n_Hidden_Definitions \r\n_Maintenance \r\n_Debug<\/pre>\n<\/a>\u7c7b\u578b<\/h2>\n\u5f53\u5728\u7a0b\u5e8f\u5305\u4e2d\u5b9a\u4e49\u4e00\u4e2a\u5bf9\u8c61\u7c7b\u8574\u6db5\u62f7\u8d1d\u8bed\u4e49\u65f6 – \u5373\u5f53\u7c7b\u578b\u53ef\u5b9e\u4f8b\u5316\u5e76\u4e14\u67d0\u79cd\u5f62\u5f0f\u7684\u4efb\u52a1\u5206\u914d\u53ef\u884c\u65f6\uff0c\u91c7\u7528\uff1a<\/p>\n
type Object is ...<\/pre>\n\u6ce8\u610f\u7c7b\u540d\u4e0d\u5e94\u5728\u6807\u8bc6\u7b26\u4e2d\u91cd\u590d\uff0c\u56e0\u4e3a\u5b83\u603b\u662f\u4ee5\u5b8c\u5168\u53d7\u9650\u7684\u5f62\u5f0f\u4f7f\u7528\uff1a<\/p>\n
Mailbox.Object\r\nLine.Object<\/pre>\n\u5f53\u5305\u542b\u5171\u4eab\u8bed\u4e49\u65f6 – \u5373\u7c7b\u578b\u7528\u5b58\u53d6\u503c\uff08\u6216\u8005\u5176\u5b83\u975e\u76f4\u63a5\u7684\u5f62\u5f0f\uff09\u5b9e\u73b0\uff0c\u5e76\u4e14\u8d4b\u503c\u8bed\u53e5\uff08\u82e5\u5b58\u5728\uff09\u4e0d\u590d\u5236\u5bf9\u8c61 – \u7528\u5982\u4e0b\u65b9\u5f0f\u8bf4\u660e\uff1a<\/p>\n
UL><\/p>\n
\ntype Handle is <\/code>\u7528\u4e8e\u975e\u76f4\u63a5\u5f15\u7528<\/li>\ntype Reference is <\/code>\u662f\u4e00\u4e2a\u53ef\u884c\u7684\u5907\u7528\u65b9\u6848<\/li>\n<\/ul>\n\u8fd9\u4e9b\u5143\u7d20\u5728\u5355\u72ec\u4f7f\u7528\u65f6\u4f5c\u540e\u7f00\uff0c\u524d\u9762\u52a0\u4e0a\u5305\u540d\uff0c\u8fd9\u6837\u5e76\u4e0d\u6e05\u695a\u6216\u975e\u5e38\u6478\u68f1\u4e24\u53ef\u3002<\/p>\n
\u5f53\u8574\u6db5\u591a\u4e2a\u5bf9\u8c61\u65f6\uff0c\u91c7\u7528\uff1a<\/p>\n
\ntype Set is <\/code>\u5f53\u6697\u542b\u5143\u7d20\u7684\u7279\u6b8a\u6027\u65f6<\/li>\ntype List is <\/code>\u5f53\u5305\u542b\u67d0\u79cd\u6b21\u5e8f\u65f6<\/li>\ntype Collection is<\/code> \u5f53\u65e2\u4e0d\u542b\u96c6\u5408\u4e5f\u4e0d\u542b\u5217\u8868\u8bed\u4e49\u65f6<\/li>\ntype Iterator is<\/code> \u5f53\u63d0\u4f9b\u4e86 Initialize\uff0cValue_Of\uff0cNext\uff0cIs_Done \u7b49\u539f\u8bed\u65f6
\n\uff08\u53c2\u89c1 6.5 \u8282\uff09<\/li>\n<\/ul>\n\u5bf9\u4e8e\u67d0\u4e2a\u5bf9\u8c61\u4e32\u7684\u6307\u5b9a\uff0c\u91c7\u7528\uff1a<\/p>\n
type Name is<\/code><\/p>\n\u4e3a\u4e86\u8fbe\u5230\u66f4\u597d\u7684\u6613\u8bfb\u6027\uff0c\u7c7b\u578b\u7684\u53d7\u9650\u540d\u4e5f\u5e94\u5728\u6574\u4e2a\u5b9a\u4e49\u5305\u5185\u4f7f\u7528\u3002\u201cRational \u73af\u5883\u201d\u4e2d\uff0c\u5f53\u5728\u5b50\u7a0b\u5e8f\u8c03\u7528\u4e2d\u91c7\u7528 [Complete] \u51fd\u6570\u65f6\uff0c\u4e0a\u8ff0\u65b9\u6cd5\u4e5f\u53ef\u4f7f\u8fd0\u884c\u66f4\u52a0\u597d\u3002<\/p>\n
\u4f8b\u5982\uff0c\u6ce8\u610f\u4e0b\u9762\u7684\u5b8c\u5168\u540d Subscriber.Object\uff1a<\/p>\n
package Subscriber is\r\ntype Object is private;\r\ntype Handle is access Subscriber.Object;\r\nsubtype Name is String;\r\npackage List is new List_Generic (Subscriber.Handle);\r\nMaster_List : Subscriber.List.Handle;\r\nprocedure Create (The_Handle : out Subscriber.Handle;\r\nWith_Name : in Subscriber.Name);\r\nprocedure Append (The_Subscriber : in Subscriber.Handle;\r\nTo_List : in out Subscriber.List.Handle);\r\nfunction Name_Of (The_Subscriber : Subscriber.Handle) return\r\nSubscriber.Name;\r\n ...\r\nprivate\r\ntype Object is\r\nrecord\r\nThe_Name : Subscriber.Name (1..20);\r\n ...\r\nend Subscriber;<\/pre>\n\u5728\u5176\u5b83\u60c5\u51b5\u4e0b\uff0c\u7c7b\u540d\u91c7\u7528\u540d\u8bcd\u6216\u8005\u4fee\u9970\u7b26 + \u540d\u8bcd\u3002\u7c7b\u578b\u53ef\u7528\u590d\u6570\u5f62\u5f0f\uff0c\u5bf9\u8c61\uff08\u53d8\u91cf\uff09\u540d\u91c7\u7528\u5355\u6570\uff1a<\/p>\n
type Point is record ...\r\ntype Hidden_Attributes is ( ...\r\ntype Boxes is array ...<\/pre>\n\u5bf9\u4e8e\u679a\u4e3e\u7c7b\u578b\uff0c\u5355\u72ec\u6216\u8005\u4f5c\u4e3a\u540e\u7f00\u4f7f\u7528 Mode\uff0cKind\uff0cCode \u7b49\u5355\u8bcd\u3002<\/p>\n
\u5bf9\u4e8e\u6570\u7ec4\u7c7b\u578b\uff0c\u5f53\u5df2\u5c06\u7b80\u5355\u540d\u7528\u4e8e\u7ec4\u4ef6\u7c7b\u578b\u65f6\uff0c\u53ef\u4ee5\u91c7\u7528\u540e\u7f00 _Table\u3002\u4ec5\u5f53\u6570\u7ec4\u7528\u8574\u6db5\u8bed\u4e49\u6765\u7ef4\u62a4\u65f6\uff0c\u624d\u91c7\u7528\u8c61 _Set \u548c _List \u8fd9\u6837\u7684\u540d\u5b57\u6216\u540e\u7f00\u3002Reserve _Vector \u548c _Matrix \u5e94\u7559\u4f5c\u76f8\u5e94\u7684\u6570\u5b66\u6982\u5ff5\u4f7f\u7528\u3002<\/p>\n
\u56e0\u4e3a\u8981\u907f\u514d\u5355\u6570\u7684\u4efb\u52a1\u5bf9\u8c61\uff08\u539f\u56e0\u5728\u540e\u6587\u89e3\u91ca\uff09\uff0c\u6240\u4ee5\u5373\u4f7f\u53ea\u6709\u4e00\u4e2a\u8be5\u7c7b\u578b\u7684\u5bf9\u8c61\u65f6\uff0c\u4e5f\u5e94\u5f15\u5165\u4efb\u52a1\u7c7b\u578b\u3002\u4e0b\u9762\u662f\u4f7f\u7528\u4e86\u4e00\u4e2a\u8c61 _Type \u8fd9\u6837\u7684\u7b80\u5355\u540e\u7f00\u4e4b\u540e\u4fbf\u4ee4\u4eba\u6ee1\u610f\u7684\u4f8b\u5b50\uff1a<\/p>\n
task type Listener_Type is ...\r\nfor Listener_Type'Storage_Size use ...\r\nListener : Listener_Type;<\/pre>\n\u7c7b\u4f3c\u5730\uff0c\u5f53\u7c7b\u578b\u540d\u91c7\u7528\u540d\u8bcd\uff08\u6216\u8005\u540d\u8bcd\u77ed\u8bed\uff09\u5b58\u5728\u51b2\u7a81\u65f6\uff0c\u6216\u8005\u51e0\u5904\u7684\u5bf9\u8c61\u540d\u6216\u53c2\u6570\u540d\u6709\u51b2\u7a81\u65f6\uff0c\u5728\u8be5\u7c7b\u578b\u540d\u540e\u52a0\u4e0a\u540e\u7f00 _Kind\uff0c\u800c\u8ba9\u5bf9\u8c61\u4f7f\u7528\uff08\u65e0\u540e\u7f00\u7684\uff09\u7b80\u5355\u540d\u8bcd\uff1a<\/p>\n
type Status_Kind is (None, Normal, Urgent, Red);\r\nStatus : Status_Kind := None;<\/pre>\n\u6216\u8005\uff0c\u5bf9\u4e8e\u603b\u4ee5\u590d\u6570\u51fa\u73b0\u7684\u4e8b\u7269\u7684\u7c7b\u578b\uff0c\u91c7\u7528\u590d\u6570\u5f62\u5f0f\u3002<\/p>\n
\u56e0\u4e3a\u5b58\u53d6\u7c7b\u578b\u5b58\u5728\u56fa\u6709\u7684\u5371\u5bb3\uff0c\u6240\u4ee5\u4f7f\u7528\u8005\u5e94\u5c0f\u5fc3\u3002\u4e00\u822c\u5b83\u4eec\u53eb\u505a Pointer\u3002\u5982\u679c\u540d\u5b57\u672c\u8eab\u610f\u4e49\u8fd8\u5f88\u6478\u68f1\u4e24\u53ef\uff0c\u5219\u5e94\u52a0\u4e0a\u540e\u7f00 _pointer\u3002\u4f5c\u4e3a\u540e\u5907\u65b9\u6848\uff0c\u4e5f\u53ef\u91c7\u7528 _Access \u505a\u540e\u7f00\u3002<\/p>\n
\u6709\u65f6\u91c7\u7528\u5d4c\u5957\u5b50\u7a0b\u5e8f\u5305\u6765\u5f15\u5165\u6b21\u7ea7\u62bd\u8c61\u53ef\u4ee5\u7b80\u5316\u547d\u540d\uff1a<\/p>\n
package Subscriber is ...\r\npackage Status is\r\ntype Kind is (Ok, Deleted, Incomplete, Suspended, \r\nPrivileged);\r\nfunction Set (The_Status : Subscriber.Status.Kind;\r\nTo_Subscriber : Subscriber.Handle);\r\nend Status;\r\n ...<\/pre>\n<\/a>\u5f02\u5e38<\/h2>\n\u56e0\u4e3a\u5f02\u5e38\u53ea\u80fd\u7528\u6765\u5904\u7406\u9519\u8bef\uff0c\u6240\u4ee5\u5e94\u4f7f\u7528\u540d\u8bcd\u6216\u540d\u8bcd\u77ed\u8bed\u6765\u6e05\u695a\u8868\u8fbe\u4e00\u4e2a\u8d1f\u9762\u7684\u610f\u4e49\uff1a<\/p>\n
Overflow, Threshold_Exceeded, Bad_Initial_Value<\/pre>\n\u5f53\u5728\u4e00\u4e2a\u7c7b\u7a0b\u5e8f\u5305\u4e2d\u5b9a\u4e49\u5f02\u5e38\u65f6\uff0c\u6807\u8bc6\u7b26\u65e0\u9700\u5305\u542b\u7c7b\u540d – \u4f8b\u5982 Bad_Initial_Subscriber_Value – \u56e0\u4e3a\u5f02\u5e38\u4e00\u76f4\u88ab\u7528\u4f5c Subscriber.Bad_Initial_Value\u3002<\/p>\n
\u91c7\u7528 Bad\uff0cIncomplete\uff0cInvalid\uff0cWrong\uff0cMissing \u6216\u8005 Illegal \u4e2d\u7684\u4e00\u4e2a\u5355\u8bcd\u4f5c\u4e3a\u540d\u5b57\u7684\u4e00\u90e8\u5206\uff0c\u800c\u4e0d\u662f\u7cfb\u7edf\u5730\u91c7\u7528\u4e0d\u4f20\u8fbe\u4efb\u4f55\u8be6\u7ec6\u4fe1\u606f\u7684 Error\uff1a<\/p>\n
Illegal_Data, Incomplete_Data<\/pre>\n<\/a>\u5b50\u7a0b\u5e8f<\/h2>\n\u8fc7\u7a0b\uff08\u548c\u4efb\u52a1\u5165\u53e3\uff09\u91c7\u7528\u52a8\u8bcd\u3002\u51fd\u6570\u540d\u91c7\u7528\u5e26\u6709\u5bf9\u8c61\u7c7b\u5c5e\u6027\u6216\u7279\u5f81\u7684\u540d\u8bcd\u3002\u8fd4\u56de\u5e03\u5c14\u503c\uff08\u8c13\u8bcd\uff09\u7684\u51fd\u6570\u4f7f\u7528\u5f62\u5bb9\u8bcd\uff08\u6216\u8fc7\u53bb\u5206\u8bcd\uff09\u3002<\/p>\n
Subscriber.Create\r\nSubscriber.Destroy\r\nSubscriber.List.Append\r\nSubscriber.First_Name -- Returns a string.\r\nSubscriber.Creation_Date -- Returns a date.\r\nSubscriber.List.Next\r\nSubscriber.Deleted -- Returns a Boolean.\r\nSubscriber.Unavailable -- Returns a Boolean.\r\nSubscriber.Remote<\/pre>\n\u5bf9\u4e8e\u8c13\u8bcd\uff0c\u5728\u4e00\u4e9b\u60c5\u51b5\u4e0b\u7ed9\u540d\u8bcd\u524d\u9762\u52a0\u4e0a\u524d\u7f00 Is_ \u6216 Has_ \u6216\u8bb8\u6709\u5e2e\u52a9\uff1b\u65f6\u6001\u8981\u51c6\u786e\u548c\u4e00\u81f4\uff1a<\/p>\n
function Has_First_Name ...\r\nfunction Is_Administrator ...\r\nfunction Is_First...\r\nfunction Was_Deleted ...<\/pre>\n\u5f53\u7b80\u5355\u540d\u79f0\u5df2\u4f5c\u4e3a\u7c7b\u578b\u540d\u6216\u679a\u4e3e\u578b\u76f4\u63a5\u91cf\u65f6\uff0c\u4e0a\u8ff0\u65b9\u6cd5\u6709\u7528\u3002<\/p>\n
\u8c13\u8bcd\u5e94\u4f7f\u7528\u80af\u5b9a\u5f0f\uff0c\u4e5f\u5c31\u662f\u8bf4\uff0c\u5176\u4e2d\u4e0d\u5e94\u542b\u6709\u201cNot_\u201d\u4e00\u8bcd\u3002<\/p>\n
\u5bf9\u4e8e\u666e\u901a\u64cd\u4f5c\uff0c\u7edf\u4e00\u4ece\u9879\u76ee\u53ef\u9009\u5217\u8868\uff08\u5217\u8868\u968f\u7740\u6211\u4eec\u5bf9\u7cfb\u7edf\u8ba4\u8bc6\u7684\u52a0\u6df1\u800c\u6269\u5c55\uff09\u4e2d\u9009\u62e9\u52a8\u8bcd\uff1a<\/p>\n
Create\r\nDelete\r\nDestroy\r\nInitialize\r\nAppend\r\nRevert\r\nCommit\r\nShow, Display<\/pre>\n\u8c13\u8bcd\u51fd\u6570\u548c\u5e03\u5c14\u578b\u7684\u53c2\u6570\u91c7\u7528\u80af\u5b9a\u5f0f\u3002\u5426\u5b9a\u5f0f\u7684\u540d\u5b57\u53ef\u80fd\u4ea7\u751f\u53cc\u91cd\u5426\u5b9a\uff08\u4f8b\u5982 Not Is_Not_Found\uff09\uff0c\u4ece\u800c\u4f7f\u4ee3\u7801\u96be\u8bfb\u3002<\/p>\n
function Is_Not_Valid (...) return Boolean\r\nprocedure Find_Client (With_The_Name : in Name;\r\nNot_Found : out Boolean)<\/pre>\n\u5e94\u5b9a\u4e49\u6210\uff1a<\/p>\n
function Is_Valid (...) return Boolean;\r\nprocedure Find_Client (With_The_Name: in Name;\r\nFound: out Boolean)<\/pre>\n\u8fd9\u624d\u8ba9\u4eab\u7528\u6a21\u5757\u6309\u5176\u6240\u9700\u7684\u90a3\u6837\u5b9e\u73b0\u4e86\u8868\u8fbe\u5f0f\u7684\u5426\u5b9a\uff08\u8fd9\u6837\u505a\u4e0d\u4f1a\u5bfc\u81f4\u8fd0\u884c\u65f6\u95f4\u5ef6\u957f\uff09\uff1a<\/p>\n
if not Is_Valid (...) then ....<\/pre>\n\u6709\u4e9b\u60c5\u51b5\u4e0b\uff0c\u901a\u8fc7\u4f7f\u7528\u53cd\u4e49\u8bcd\uff0c\u5982\u7528\u201cIs_Invalid\u201d\u6765\u4ee3\u66ff\u201cIs_Not_Valid\u201d\uff0c\u53ef\u4ee5\u4f7f\u5426\u5b9a\u8c13\u8bcd\u5728\u4e0d\u6539\u53d8\u8bed\u4e49\u7684\u60c5\u51b5\u4e0a\u53d8\u6210\u80af\u5b9a\u5f0f\u3002\u4f46\u662f\uff0c\u80af\u5b9a\u5f0f\u7684\u540d\u5b57\u66f4\u6613\u8bfb\uff1a \u201cIs_Valid\u201d\u6bd4\u201cnot Is_Invalid\u201d\u66f4\u6613\u7406\u89e3\u3002<\/p>\n
\u5f53\u8574\u6db5\u7740\u5927\u81f4\u76f8\u540c\u7684\u610f\u4e49\u65f6\uff0c\u91c7\u7528\u76f8\u540c\u7684\u5355\u8bcd\uff0c\u800c\u4e0d\u662f\u5bfb\u627e\u540c\u4e49\u8bcd\u6216\u53d8\u4f53\u3002\u56e0\u6b64\uff0c\u9f13\u52b1\u4f7f\u7528\u91cd\u8f7d\u6765\u63d0\u9ad8\u4ee3\u7801\u7684\u4e00\u81f4\u6027\uff0c\u9075\u5faa\u6700\u5c0f\u9650\u5ea6\u610f\u5916\u539f\u5219\u3002<\/p>\n
\u82e5\u5b50\u7a0b\u5e8f\u88ab\u7528\u505a\u5165\u53e3\u8c03\u7528\u7684\u201c\u5916\u8868\u201d (skins) \u6216\u8005\u201c\u5305\u88c5\u201d (wrappers)\uff0c\u5219\u7ed9\u5176\u540d\u5b57\u52a8\u8bcd\u52a0\u4e0a\u540e\u7f00 _Or_Wait\uff0c\u6216\u8005\u7ed9\u51fd\u6570\u53d6\u4e2a Wait_For_ \u77ed\u8bed\u52a0\u540d\u8bcd\u7684\u540d\u5b57\u6765\u53cd\u6620\u8fd9\u4e00\u70b9\uff0c\u8fd9\u6837\u53ef\u80fd\u6709\u7528\uff1a<\/p>\n
Subscriber.Get_Reply_Or_Wait\r\nSubscriber.Wait_For_Reply<\/pre>\n\u4e00\u4e9b\u64cd\u4f5c\u5e94\u4e00\u76f4\u4f7f\u7528\u76f8\u540c\u7684\u540d\u5b57\u6765\u7edf\u4e00\u5b9a\u4e49\uff1a<\/p>\n
\u5bf9\u4e8e\u8f6c\u6362\u5230\u5b57\u4e32\u548c\u4ece\u5b57\u4e32\u8f6c\u6362\u6765\u7684\u7c7b\u578b\u53d8\u6362\uff0c\u5bf9\u79f0\u51fd\u6570\u662f\uff1a<\/p>\n
function Image and function Value<\/pre>\n\u5bf9\u4e8e\u8f6c\u6362\u5230\u4f4e\u7ea7\u8868\u793a\u6cd5\uff08\u5982\u7528\u4e8e\u6570\u636e\u4ea4\u6362\u7684 Byte_String\uff09\u548c\u4ece\u4f4e\u7ea7\u8868\u793a\u6cd5\u8f6c\u6362\u8fc7\u6765\u7684\u7c7b\u578b\u53d8\u6362\uff0c\u5bf9\u79f0\u8fc7\u7a0b\u662f\uff1a<\/p>\n
procedure Read and Write<\/pre>\n\u5bf9\u4e8e\u5206\u914d\u6570\u636e\uff1a<\/p>\n
function Allocate (rather than Create)\r\nfunction Destroy (or Release, to express that the object will disappear)<\/pre>\n\u5f53\u7cfb\u7edf\u5730\u5904\u7406\u5b83\u4eec\u65f6\u91c7\u7528\u7edf\u4e00\u7684\u547d\u540d\uff0c\u7c7b\u578b\u5408\u6210\u5c06\u5bb9\u6613\u8bb8\u591a\u3002<\/p>\n
\u5bf9\u4e8e\u6d3b\u52a8\u7684\u8fed\u4ee3\u7a0b\u5e8f\uff0c\u5fc5\u987b\u5b9a\u4e49\u4ee5\u4e0b\u539f\u8bed\uff1a<\/p>\n
Initialize\r\nNext\r\nIs_Done\r\nValue_Of<\/pre>\n\u82e5\u53ef\u884c\uff0c\u8fd8\u8981\u5b9a\u4e49 Reset<\/code>\u3002\u82e5\u8981\u5728\u76f8\u540c\u7684\u4f5c\u7528\u57df\u8303\u56f4\u5185\u5f15\u5165\u51e0\u4e2a\u8fed\u4ee3\u7c7b\u578b\uff0c\u90a3\u4e48\u5e94\u91cd\u8f7d\u8fd9\u4e9b\u539f\u8bed\uff0c\u800c\u4e0d\u662f\u4e3a\u6bcf\u4e2a\u8fed\u4ee3\u7a0b\u5e8f\u5206\u522b\u5f15\u5165\u4e00\u5957\u5404\u4e0d\u76f8\u540c\u7684\u6807\u8bc6\u7b26\u3002\u53c2\u89c1 [BOO87]<\/a>\u3002<\/p>\n\u5f53\u91c7\u7528 Ada \u9884\u786e\u5b9a\u5c5e\u6027\u4f5c\u4e3a\u51fd\u6570\u540d\u65f6\uff0c\u8981\u4fdd\u8bc1\u5176\u7528\u6cd5\u4e0e\u4e00\u822c\u7684\u8bed\u4e49\u76f8\u540c\uff1a’First\uff0c’Last\uff0c’Length\uff0c’Image\uff0c’Value\uff0c\u7b49\u7b49\u3002 \u6ce8\u610f\uff0c\u51e0\u4e2a\u5c5e\u6027\uff08\u5982 ‘Range \u548c ‘Delta\uff09\u662f\u4e0d\u80fd\u7528\u505a\u51fd\u6570\u540d\u7684\uff0c\u56e0\u4e3a\u5b83\u4eec\u662f\u4fdd\u7559\u5b57\u3002<\/p>\n
<\/a>\u5bf9\u8c61\u548c\u5b50\u7a0b\u5e8f\uff08\u6216\u5165\u53e3\uff09\u53c2\u6570<\/h2>\n\u4e3a\u8868\u660e\u5176\u552f\u4e00\u6027\u6216\u662f\u8868\u660e\u8be5\u5b9e\u4f53\u662f\u6d3b\u52a8\u7684\u4e3b\u8981\u805a\u96c6\u5904\uff0c\u5728\u5bf9\u8c61\u6216\u53c2\u6570\u540d\u79f0\u524d\u52a0\u524d\u7f00\u201cThe\u201d\u6216\u201cThis\u201d\u3002\u8981\u8bf4\u660e\u4e00\u4e2a\u6b21\u8981\u3001\u4e34\u65f6\u3001\u8f85\u52a9\u7684\u5bf9\u8c61\uff0c\u5219\u52a0\u524d\u7f00\u201cA_\u201d\u6216\u201cCurrent_\u201d\uff1a<\/p>\n
procedure Change_Name (The_Subscriber : in Subscriber.Handle;\r\nThe_Name : in Subscriber.Name );\r\ndeclare\r\nA_Subscriber : Subscriber.Handle := Subscriber.First;\r\nbegin\r\n ...\r\nA_Subscriber := Subscriber.Next (The_Subscriber);\r\nend;<\/pre>\n\u5bf9\u4e8e\u5e03\u5c14\u578b\u7684\u5bf9\u8c61\uff0c\u91c7\u7528\u80af\u5b9a\u5f0f\u7684\u8c13\u8bcd\u5b50\u53e5\uff1a<\/p>\n
Found_It\r\nIs_Available<\/pre>\n\u4f46\u662f\uff1a<\/p>\n
Is_Not_Available<\/code> \u5fc5\u987b\u907f\u514d\u3002<\/p>\n\u5bf9\u4e8e\u4efb\u52a1\u5bf9\u8c61\uff0c\u5e94\u91c7\u7528\u4e00\u4e2a\u8574\u6db5\u4e86\u6d3b\u52a8\u5b9e\u4f53\u7684\u540d\u8bcd\u6216\u8005\u540d\u8bcd\u77ed\u8bed\uff1a<\/p>\n
Listener\r\nResource_Manager\r\nTerminal_Driver<\/pre>\n
\u91cd\u8f7d\u548c\u540c\u5f62\u5f02\u4e49\u5b57<\/a>
\n\u4e0a\u4e0b\u6587\u5b50\u53e5<\/a>
\n\u91cd\u547d\u540d<\/a>
\n\u5173\u4e8e Use \u5b50\u53e5\u7684\u8bf4\u660e<\/a><\/h4>\n\u7a0b\u5e8f\u7ed3\u6784\u548c\u7f16\u8bd1\u95ee\u9898<\/a><\/h3>\n\u7a0b\u5e8f\u5305\u7684\u5206\u89e3<\/a>
\n\u58f0\u660e\u90e8\u5206\u7684\u7ed3\u6784<\/a>
\n\u4e0a\u4e0b\u6587\u5b50\u53e5<\/a>
\n\u786e\u7acb\u987a\u5e8f<\/a><\/h4>\n\u5e76\u884c<\/a><\/h3>\n\u9519\u8bef\u5904\u7406\u4e0e\u5f02\u5e38<\/a><\/h3>\n\u4f4e\u7ea7\u7f16\u7a0b<\/a><\/h3>\n\u8868\u793a\u5b50\u53e5\u548c\u5c5e\u6027<\/a>
\n\u65e0\u68c0\u67e5\u8f6c\u6362<\/a><\/h4>\n\u603b\u7ed3<\/a><\/h3>\n\u53c2\u8003\u6587\u732e<\/a><\/h3>\n\u8bcd\u6c47\u8868<\/a><\/h3>\n
\n<\/a>\u7b2c\u4e00\u7ae0<\/em><\/h2>\n\u5173\u4e8e\u672c\u6587\u6863<\/h1>\n
\u672c\u6587\u6863 Rational Unified Process – Ada \u7f16\u7a0b\u6307\u5357<\/em>\u662f\u4e00\u4e2a\u6807\u51c6\u7684\u6a21\u677f\uff0c\u4f60\u7684\u5f00\u53d1\u7ec4\u7ec7\u53ef\u4f9d\u6b64\u6d3e\u751f\u51fa\u4e00\u5957\u7a0b\u5e8f\u8bbe\u8ba1\u6807\u51c6\u3002\u8be5\u6307\u5357\u8be6\u7ec6\u8bf4\u660e\u4e86\u5e94\u5982\u4f55\u7f16\u5199 Ada \u7a0b\u5e8f\u3002\u672c\u6587\u670d\u52a1\u7684\u5bf9\u8c61\u662f\u6240\u6709\u5c06 Ada \u4f5c\u4e3a\u5b9e\u65bd\u8bed\u8a00\u6216\u8005\u4e00\u79cd\u8bf4\u660e\u63a5\u53e3\u6216\u6570\u636e\u7ed3\u6784\u7684\u8bbe\u8ba1\u8bed\u8a00\u7684\u5e94\u7528\u8f6f\u4ef6\u8bbe\u8ba1\u8005\u548c\u5f00\u53d1\u8005\u3002<\/p>\n\u6587\u4e2d\u6240\u63cf\u8ff0\u7684\u89c4\u5219\u56ca\u62ec\u4e86\u7a0b\u5e8f\u8bbe\u8ba1\u7684\u5927\u90e8\u5206\u65b9\u9762\u3002\u901a\u7528\u89c4\u5219\u9002\u7528\u4e8e\u7a0b\u5e8f\u5e03\u5c40\u3001\u547d\u540d\u7ea6\u5b9a\u548c\u6ce8\u91ca\u5e94\u7528\u3002\u7279\u6b8a\u89c4\u5219\u9002\u7528\u4e8e\u9009\u5b9a\u7684 Ada \u7279\u6027\uff0c\u5e76\u8bf4\u660e\u4e86\u7981\u7528\u6784\u9020\u3001\u63a8\u8350\u4f7f\u7528\u6a21\u5f0f\u548c\u7528\u4ee5\u63d0\u9ad8\u7a0b\u5e8f\u8d28\u91cf\u7684\u901a\u7528\u6280\u5de7\u3002<\/p>\n
\u9879\u76ee\u7684\u8bbe\u8ba1<\/em>\u6307\u5357\u548c\u5f53\u524d\u7684\u7f16\u7a0b<\/em>\u6307\u5357\u6709\u4e00\u5b9a\u7684\u91cd\u590d\uff0c\u662f\u6709\u610f\u8fd9\u6837\u505a\u7684\u3002\u4ecb\u7ecd\u7684\u8bb8\u591a\u7a0b\u5e8f\u8bbe\u8ba1\u89c4\u5219\uff0c\u5c24\u5176\u662f\u5728\u547d\u540d\u7ea6\u5b9a<\/em>\u4e2d\u7684\u89c4\u5219\uff0c\u7528\u4e8e\u79ef\u6781\u652f\u6301\u548c\u52a0\u5f3a\u8f6f\u4ef6\u8bbe\u8ba1\u4e2d\u7684\u9762\u5411\u5bf9\u8c61<\/em>\u65b9\u5f0f\u3002<\/p>\n\u6307\u5357\u6700\u521d\u7528\u4e8e Ada 83\u3002\u5b83\u542b\u6709\u4e0e Ada 95 \u517c\u5bb9\u7684\u89c4\u5219\uff0c\u4f46\u4e0d\u542b\u6709\u6539\u7248\u540e\u8bed\u8a00\u6807\u51c6\u65b0\u7279\u6027\u7684\u4f7f\u7528\u6307\u5357\uff0c\u4f8b\u5982\u6807\u8bc6\u7c7b\u578b\u3001\u5b50\u5355\u5143\u6216\u5c0f\u6570\u7c7b\u578b\u3002<\/p>\n
\u6587\u6863\u5927\u81f4\u6309\u7167 Ada Reference Manual \u7684\u7ed3\u6784\u6765\u7ec4\u7ec7 [ISO 8052]<\/a>\u3002<\/p>\n\u7b2c\u4e8c\u7ae0\u201c\u7b80\u4ecb<\/em>\u201d\u89e3\u91ca\u4e86\u6307\u5357\u6240\u57fa\u4e8e\u7684\u57fa\u672c\u539f\u7406\u5e76\u4ecb\u7ecd\u4e86\u6307\u5357\u5206\u7c7b\u3002<\/p>\n\u7b2c\u4e09\u7ae0\u201c\u4ee3\u7801\u5e03\u5c40<\/em>\u201d\u8bb2\u8ff0\u4e86\u7a0b\u5e8f\u6587\u672c\u7684\u4e00\u822c\u89c6\u89c9\u7ec4\u7ec7\u7ed3\u6784\u3002<\/p>\n\u7b2c\u56db\u7ae0\u201c\u6ce8\u91ca<\/em>\u201d\u7ed9\u51fa\u4e86\u5982\u4f55\u7528\u7ed3\u6784\u5316\u7684\u3001\u53ef\u7528\u7684\u548c\u53ef\u7ef4\u62a4\u7684\u65b9\u5f0f\u6765\u6ce8\u91ca\u8bf4\u660e\u4ee3\u7801\u3002<\/p>\n\u7b2c\u4e94\u7ae0\u201c\u547d\u540d\u7ea6\u5b9a<\/em>\u201d\u7ed9\u51fa\u6709\u5173\u547d\u540d\u8bed\u8a00\u5b9e\u4f53\u7684\u4e00\u822c\u89c4\u5219\u548c\u8303\u4f8b\u3002\u8fd9\u4e00\u7ae0\u7684\u5185\u5bb9\u5e94\u518d\u7ecf\u4fee\u6539\uff0c\u4ee5\u6ee1\u8db3\u7279\u5b9a\u9879\u76ee\u6216\u673a\u6784\u7684\u9700\u8981\u3002<\/p>\n\u7b2c\u516d\u7ae0\u201c\u58f0\u660e<\/em>\u201d\u548c\u7b2c\u4e03\u7ae0\u201c\u8868\u8fbe\u5f0f\u548c\u8bed\u53e5<\/em>\u201d\u5bf9\u6bcf\u79cd\u8bed\u8a00\u7ed3\u6784\u7ed9\u51fa\u4e86\u8fdb\u4e00\u6b65\u7684\u5efa\u8bae\u3002<\/p>\n\u7b2c\u516b\u7ae0\u201c\u53ef\u89c6\u6027\u95ee\u9898<\/em>\u201d\u548c\u7b2c\u4e5d\u7ae0\u201c\u7a0b\u5e8f\u7ed3\u6784\u548c\u7f16\u8bd1\u95ee\u9898<\/em>\u201d\u7ed9\u51fa\u4e86\u6709\u5173\u5168\u5c40\u6784\u5efa\u548c\u7a0b\u5e8f\u7ec4\u6210\u7684\u6307\u5bfc\u3002<\/p>\n\u7b2c\u5341\u7ae0\u201c\u5e76\u884c<\/em>\u201d\u5904\u7406\u8bed\u8a00\u4e2d\u6709\u5173\u4f7f\u7528\u4efb\u52a1\u548c\u65f6\u95f4\u76f8\u5173\u7279\u6027\u7684\u4e13\u95e8\u95ee\u9898\u3002<\/p>\n\u7b2c\u5341\u4e00\u7ae0\u201c\u9519\u8bef\u5904\u7406\u548c\u5f02\u5e38<\/em>\u201d\u7ed9\u51fa\u5982\u4f55\u7cfb\u7edf\u5730\u3001\u7b80\u4fbf\u5730\u4f7f\u7528\u6216\u4e0d\u4f7f\u7528\u5f02\u5e38\u6765\u5904\u7406\u9519\u8bef\u3002<\/p>\n\u7b2c\u5341\u4e8c\u7ae0\u201c\u4f4e\u7ea7\u7f16\u7a0b<\/em>\u201d\u5904\u7406\u8868\u793a\u5b50\u53e5\u7684\u95ee\u9898\u3002<\/p>\n\u7b2c\u5341\u4e09\u7ae0\u201c\u603b\u7ed3<\/em>\u201d\u627c\u8981\u590d\u8ff0\u4e86\u6700\u4e3a\u91cd\u8981\u7684\u6307\u5bfc\u65b9\u9488\u3002<\/p>\n\u672c\u6587\u6863\u53d6\u4ee3\u4e86 Ada Guidelines: Recommendation for Designers and programmers<\/em> \u4e2d\u7684 Application Note #15, Rational, Santa Clara, CA., 1990\u3002<\/p>\n
\n<\/a>\u7b2c\u4e8c\u7ae0<\/em><\/h2>\n\u7b80\u4ecb<\/h1>\n\u57fa\u672c\u539f\u5219<\/h2>\n
Ada \u8bed\u8a00\u7684\u8bbe\u8ba1\u5f88\u6709\u9488\u5bf9\u6027\u7684\u76ee\u7684\u5c31\u662f\u652f\u6301\u9ad8\u8d28\u91cf\u3001\u53ef\u9760\u3001\u53ef\u590d\u7528\u548c\u53ef\u79fb\u690d\u8f6f\u4ef6 [ISO 87, sect. 1.3]<\/a>\u3002\u7136\u800c\uff0c\u6ca1\u6709\u54ea\u4e00\u79cd\u8bed\u8a00\u4ec5\u9760\u5176\u672c\u8eab\u5c31\u53ef\u4ee5\u5b9e\u73b0\u4e0a\u8ff0\u76ee\u6807\u3002\u7a0b\u5e8f\u8bbe\u8ba1\u5fc5\u987b\u662f\u4e00\u4e2a\u6709\u826f\u597d\u89c4\u8303\u7684\u8fc7\u7a0b\u7684\u4e00\u90e8\u5206\u3002<\/p>\n\u6e05\u695a\u660e\u767d\u7684 Ada \u6e90\u4ee3\u7801\u662f\u672c\u6587\u4e2d\u5927\u591a\u6570\u6307\u5bfc\u65b9\u9488\u7684\u4e3b\u8981\u76ee\u6807\u3002\u8fd9\u4e00\u70b9\u662f\u5b9e\u73b0\u53ef\u9760\u6027\u548c\u53ef\u7ef4\u62a4\u6027\u7684\u4e3b\u8981\u56e0\u7d20\u3002\u6240\u8c13\u6e05\u695a\u660e\u767d\u7684\u4ee3\u7801\u53ef\u4ee5\u4ece\u4ee5\u4e0b\u4e09\u6761\u7b80\u5355\u7684\u57fa\u672c\u539f\u5219\u4e0a\u6765\u7406\u89e3\u3002<\/p>\n
\u6700\u5c0f\u9650\u5ea6\u7684\u610f\u5916<\/h3>\n
\u5728\u5176\u751f\u547d\u671f\u5185\uff0c\u4ee3\u7801\u66f4\u591a\u5730\u662f\u88ab\u8bfb\uff0c\u800c\u4e0d\u662f\u88ab\u5199\uff0c\u5c24\u5176\u662f\u5b83\u7684\u8bf4\u660e\u90e8\u5206\u3002\u7406\u60f3\u60c5\u51b5\u4e0b\uff0c\u4ee3\u7801\u8bfb\u8d77\u6765\u5e94\u8be5\u8c61\u4e00\u7bc7\u8bf4\u660e\u5b83\u505a\u4e86\u4ec0\u4e48\u7684\u82f1\u6587\u63cf\u8ff0\uff0c\u5b83\u5177\u6709\u4e00\u4e2a\u9644\u52a0\u4f18\u70b9\u662f\u53ef\u4ee5\u6267\u884c\u3002 \u7a0b\u5e8f\u66f4\u591a\u662f\u4e3a\u4eba\u7f16\u5199\uff0c\u800c\u4e0d\u662f\u4e3a\u8ba1\u7b97\u673a\u7f16\u5199\u3002\u9605\u8bfb\u7f16\u7801\u662f\u4e00\u4e2a\u590d\u6742\u7684\u8111\u529b\u8fc7\u7a0b\uff0c\u5b83\u53ef\u901a\u8fc7\u7edf\u4e00\u6807\u51c6\u6765\u7b80\u5316\uff0c\u5728\u672c\u6587\u4e2d\u8fd9\u4e00\u6307\u5bfc\u4e5f\u53eb\u201c\u6700\u5c0f\u9650\u5ea6\u610f\u5916\u539f\u5219<\/em>\u201d\u3002\u6574\u4e2a\u9879\u76ee\u4e2d\u7edf\u4e00\u6837\u5f0f\u662f\u8f6f\u4ef6\u5f00\u53d1\u56e2\u961f\u5728\u7f16\u7a0b\u6807\u51c6\u4e0a\u8fbe\u6210\u4e00\u81f4\u7684\u4e3b\u8981\u539f\u56e0\uff0c\u5b83\u4e0d\u5e94\u89c6\u4e3a\u4e00\u79cd\u60e9\u7f5a\u6216\u5bf9\u521b\u9020\u6027\u548c\u751f\u4ea7\u529b\u7684\u963b\u788d\u3002<\/p>\n\u5355\u70b9\u7ef4\u62a4<\/h3>\n
\u8fd9\u4e00\u6307\u5bfc\u6240\u57fa\u4e8e\u7684\u53e6\u4e00\u4e2a\u91cd\u8981\u539f\u5219\u662f\u5355\u70b9\u7ef4\u62a4\u539f\u5219<\/em>\u3002\u5e94\u5c3d\u91cf\u4f7f\u8bbe\u8ba1\u51b3\u7b56\u53ea\u5728 Ada \u6e90\u7801\u4e2d\u7684\u4e00\u5904\u8868\u8ff0\uff0c\u5b83\u7684\u591a\u6570\u7ed3\u8bba\u5e94\u7a0b\u5e8f\u5316\u5730\u4ece\u8be5\u5904\u6d3e\u751f\u51fa\u6765\u3002\u4e0d\u9075\u5b88\u8fd9\u4e00\u539f\u5219\u4f1a\u4e25\u91cd\u5f71\u54cd\u4ee3\u7801\u7684\u53ef\u7ef4\u62a4\u6027\u3001\u53ef\u9760\u6027\u548c\u53ef\u7406\u89e3\u6027\u3002<\/p>\n\u6700\u5c0f\u9650\u5ea6\u7684\u5e72\u6270<\/h3>\n
\u6700\u540e\uff0c\u4f5c\u4e3a\u6613\u8bfb\u6027\u7684\u4e3b\u8981\u4f5c\u7528\u56e0\u7d20\uff0c\u91c7\u7528\u6700\u5c0f\u5e72\u6270\u539f\u5219<\/em>\u3002\u5373\u907f\u514d\u5c06\u6e90\u4ee3\u7801\u4e0e\u89c6\u89c9\u201c\u5e72\u6270\u201d\u76f8\u6df7\u5408\uff1a\u5373\u680f\u3001\u6846\u4ee5\u53ca\u5176\u5b83\u4f4e\u4fe1\u606f\u91cf\u7684\u6587\u672c\u6216\u662f\u5bf9\u7406\u89e3\u8f6f\u4ef6\u529f\u80fd\u6ca1\u6709\u5e2e\u52a9\u7684\u4fe1\u606f\u3002<\/p>\n\u53ef\u79fb\u690d\u6027\u548c\u53ef\u590d\u7528\u6027\u4e5f\u662f\u5236\u5b9a\u8bb8\u591a\u6307\u5bfc\u65b9\u9488\u7684\u539f\u7531\u3002\u4ee3\u7801\u5e94\u53ef\u79fb\u690d\u5230\u4e0d\u540c\u76ee\u6807\u8ba1\u7b97\u673a\u7684\u51e0\u4e2a\u4e0d\u540c\u7f16\u8bd1\u5668\u4e0a\uff0c\u5e76\u6700\u7ec8\u79fb\u690d\u5230\u4e00\u4e2a\u66f4\u9ad8\u7ea7\u7684 Ada \u7248\u672c\u201cAda 95\u201d\u4e0a [PLO92,<\/a> TAY92]<\/a>\u3002<\/p>\n<\/a>\u5047\u8bbe<\/h2>\n\u8fd9\u91cc\u7684\u6307\u5bfc\u65b9\u9488\u6709\u51e0\u4e2a\u57fa\u672c\u5047\u8bbe\uff1a<\/p>\n
\u8bfb\u8005\u4e86\u89e3 Ada\u3002<\/h3>\n
\u5e94\u9f13\u52b1\u5728\u4efb\u4f55\u53ef\u5e26\u6765\u597d\u5904\u7684\u5730\u65b9\u4f7f\u7528 Ada \u7684\u9ad8\u7ea7\u7279\u6027\uff0c\u800c\u4e0d\u8981\u4ec5\u4ec5\u56e0\u4e3a\u4e00\u4e9b\u7a0b\u5e8f\u5458\u4e0d\u719f\u6089\u5b83\u4eec\u800c\u53cd\u5bf9\u91c7\u7528\u3002 \u8fd9\u662f\u9879\u76ee\u80fd\u4ece\u4f7f\u7528 Ada \u4e2d\u771f\u6b63\u83b7\u76ca\u7684\u552f\u4e00\u65b9\u5f0f\u3002Ada \u4e0d\u5e94\u8c61 Pascal \u6216 FORTRAN \u8bed\u8a00\u90a3\u6837\u4f7f\u7528\u3002\u4e0d\u9f13\u52b1\u5728\u6ce8\u91ca\u4e2d\u89e3\u91ca\u4ee3\u7801\uff1b\u76f8\u53cd\uff0cAda \u672c\u8eab\u5e94\u5c3d\u53ef\u80fd\u5730\u53d6\u4ee3\u6ce8\u91ca\u3002<\/p>\n
\u8bfb\u8005\u61c2\u82f1\u6587\u3002<\/h3>\n
\u8bb8\u591a\u547d\u540d\u7ea6\u5b9a\u5728\u8bcd\u6c47\u548c\u8bed\u6cd5\u4e0a\u57fa\u4e8e\u82f1\u6587\u3002\u6b64\u5916\uff0c Ada \u7684\u5173\u952e\u5b57\u90fd\u662f\u5e38\u7528\u7684\u82f1\u8bed\u5355\u8bcd\u3002\u5c06\u5176\u4e0e\u5176\u5b83\u8bed\u8a00\u6df7\u5408\u5c06\u964d\u4f4e\u4ee3\u7801\u7684\u6613\u8bfb\u6027\u3002<\/p>\n
\u4e25\u683c\u9650\u5236\u4f7f\u7528\u5b50\u53e5 (use clause) \u7684\u8fd0\u7528\u3002<\/h3>\n
\u547d\u540d\u7ea6\u5b9a\u548c\u5176\u5b83\u4e00\u4e9b\u89c4\u5219\u5047\u5b9a\u201cuse\u201d\u5b50\u53e5\u4e0d\u88ab\u8fd0\u7528\u3002<\/p>\n
\u5904\u7406\u7684\u662f\u4e00\u4e2a\u5927\u9879\u76ee\u3002<\/h3>\n
\u8bb8\u591a\u89c4\u5219\u5728\u5927\u578b\u9879\u76ee\u4e2d\u6700\u6709\u4ef7\u503c\uff0c\u867d\u7136\u51fa\u4e8e\u9879\u76ee\u7ea7\u6216\u516c\u53f8\u7ea7\u5b9e\u73b0\u548c\u7edf\u4e00\u7684\u76ee\u7684\uff0c\u5b83\u4eec\u4e5f\u5728\u5c0f\u578b\u7cfb\u7edf\u4e2d\u4f7f\u7528\u3002<\/p>\n
\u6e90\u7801\u5728\u201cRational \u73af\u5883\u201d (Rational Environment) \u4e2d\u5f00\u53d1\u3002<\/h3>\n
\u901a\u8fc7\u8fd0\u7528\u201cRational \u73af\u5883\u201d (Rational Environment)\uff0c\u4e00\u4e9b\u95ee\u9898\u5982\u4ee3\u7801\u5e03\u5c40\u3001\u5c01\u95ed\u6784\u9020\u4e2d\u7684\u6807\u8bc6\u7b26\u7b49\u5c31\u5728 Ada \u7f16\u8f91\u5668\u548c\u683c\u5f0f\u5668\u4e2d\u5904\u7406\u4e86\u3002 \u4f46\u662f\u672c\u6587\u4e2d\u7684\u5e03\u5c40\u5efa\u8bae\u9002\u7528\u4e8e\u4efb\u4f55\u5f00\u53d1\u5e73\u53f0\u3002<\/p>\n
\u7a0b\u5e8f\u8bbe\u8ba1\u9075\u5faa\u9762\u5411\u5bf9\u8c61\u7684\u65b9\u6cd5\u3002<\/h3>\n
\u8bb8\u591a\u89c4\u5219\u652f\u6301\u5c06 Ada \u7279\u6027\u548c\u7279\u5b9a\u547d\u540d\u7ea6\u5b9a\u7684\u9762\u5411\u5bf9\u8c61 (OO) \u6982\u5ff5\u7684\u7cfb\u7edf\u6620\u5c04\u3002<\/p>\n
<\/a>\u6307\u5357\u5206\u7c7b<\/h2>\n\u8fd9\u4e9b\u6307\u5bfc\u65b9\u9488\u5e76\u975e\u540c\u7b49\u91cd\u8981\u3002\u5b83\u4eec\u5927\u81f4\u9075\u5faa\u4ee5\u4e0b\u7684\u7b49\u7ea7\uff1a<\/p>\n
\u63d0\u793a\uff1a<\/h3>\n
\u8be5\u6307\u5bfc\u65b9\u9488\u4ec5\u662f\u4e00\u6761\u7b80\u5355\u7684\u5efa\u8bae\uff1b\u4e0d\u9075\u5b88\u5b83\u4e5f\u4e0d\u4f1a\u6709\u4ec0\u4e48\u5b9e\u8d28\u6027\u7684\u635f\u5bb3\uff0c\u91c7\u7528\u6216\u662f\u4e0d\u91c7\u7528\u5b83\u4eec\u4ec5\u662f\u4e2a\u4eba\u559c\u597d\u95ee\u9898\u3002\u6587\u4e2d\u7684\u63d0\u793a\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u5efa\u8bae\uff1a<\/h3>\n
\u8be5\u6307\u5bfc\u65b9\u9488\u901a\u5e38\u66f4\u591a\u5730\u57fa\u4e8e\u6280\u672f\u7684\u89c2\u70b9\uff1b\u5b83\u53ef\u80fd\u4f1a\u5f71\u54cd\u5230\u4ee3\u7801\u7684\u53ef\u79fb\u690d\u6027\u6216\u53ef\u590d\u7528\u6027\uff0c\u5e76\u5728\u4e00\u4e9b\u5b9e\u65bd\u4e2d\u5f71\u54cd\u6027\u80fd\u3002 \u9664\u975e\u6709\u5408\u9002\u7684\u7406\u7531\uff0c\u5426\u5219\u5fc5\u987b\u9075\u5b88\u5efa\u8bae\u3002\u6587\u4e2d\u63d0\u5230\u4e00\u4e9b\u4f8b\u5916\u7684\u60c5\u51b5\u3002\u6587\u4e2d\u7684\u5efa\u8bae\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u9650\u5236\uff1a<\/h3>\n
\u6709\u7591\u95ee\u7684\u7279\u6027\u4f7f\u7528\u8d77\u6765\u5371\u9669\uff0c\u4f46\u5b83\u5e76\u4e0d\u88ab\u5b8c\u5168\u7981\u6b62\uff1b\u5e94\u7528\u8be5\u7279\u6027\u7684\u51b3\u5b9a\u5e94\u5728\u9879\u76ee\u7ea7\u4e0a\u505a\u51fa\uff0c\u5e76\u4e14\u51b3\u5b9a\u5e94\u8be5\u662f\u9ad8\u5ea6\u53ef\u89c1\u7684\u3002\u6587\u4e2d\u7684\u9650\u5236\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u8981\u6c42\uff1a<\/h3>\n
\u8fdd\u80cc\u5b83\u5b9a\u5c06\u5bfc\u81f4\u4e0d\u597d\u7684\u3001\u4e0d\u53ef\u9760\u7684\u6216\u662f\u4e0d\u53ef\u79fb\u690d\u7684\u4ee3\u7801\u3002 \u8981\u6c42\u4e0d\u53ef\u8fdd\u80cc\u3002\u6587\u4e2d\u7684\u8981\u6c42\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u201cRational \u8bbe\u8ba1\u5de5\u5177\u201d (Rational Design Facility) \u5c06\u7528\u6765\u51cf\u5c11\u53d7\u9650\u7279\u6027\u7684\u4f7f\u7528\u5e76\u52a0\u5f3a\u5fc5\u9700\u6cd5\u5219\u548c\u8bb8\u591a\u5efa\u8bae\u7684\u8fd0\u7528\u3002<\/p>\n
\u4e0e\u8bb8\u591a\u5176\u5b83\u7684 Ada \u7a0b\u5e8f\u8bbe\u8ba1\u6807\u51c6\u4e0d\u540c\u7684\u662f\uff1a\u4e8b\u5b9e\u4e0a\uff0c\u8fd9\u4e9b\u6307\u5bfc\u65b9\u9488\u4e2d\u53ca\u5c11\u6709\u5b8c\u5168\u7981\u7528\u7684\u3002\u597d\u7684\u8f6f\u4ef6\u7684\u5173\u952e\u5728\u4e8e\uff1a<\/p>\n
\n- \u4e86\u89e3\u6bcf\u79cd\u7279\u6027\uff0c\u4e86\u89e3\u5b83\u7684\u5c40\u9650\u548c\u53ef\u80fd\u7684\u5371\u9669<\/li>\n
- \u51c6\u786e\u4e86\u89e3\u8fd9\u79cd\u7279\u6027\u5728\u4f55\u79cd\u573a\u5408\u53ef\u4ee5\u5b89\u5168\u4f7f\u7528<\/li>\n
- \u8ba9\u4f7f\u7528\u8be5\u7279\u6027\u7684\u51b3\u7b56\u9ad8\u5ea6\u53ef\u89c1<\/li>\n
- \u5341\u5206\u5c0f\u5fc3\u8c28\u614e\u5730\u5728\u9002\u5f53\u5904\u4f7f\u7528\u8be5\u7279\u6027\u3002<\/li>\n<\/ul>\n
<\/a>\u6700\u6839\u672c\u7684\u539f\u5219<\/h2>\n\u4f7f\u7528\u5e38\u8bc6\u3002<\/p>\n
\u5f53\u65e0\u6cd5\u627e\u5230\u53ef\u7528\u7684\u89c4\u5219\u6216\u6307\u5357\uff0c\u5f53\u89c4\u5219\u660e\u663e\u4e0d\u9002\u7528\uff0c\u5f53\u5176\u5b83\u4e00\u5207\u90fd\u5931\u8d25\u65f6\uff1a\u4f7f\u7528\u5e38\u8bc6\uff0c\u5e76\u6838\u67e5\u57fa\u672c\u539f\u5219\u3002\u8fd9\u6761\u6cd5\u5219\u51cc\u9a7e\u4e8e\u5176\u5b83\u6240\u6709\u6cd5\u5219\u4e4b\u4e0a\u3002\u5e38\u8bc6\u662f\u5fc5\u4e0d\u53ef\u5c11\u7684<\/em>\u3002<\/p>\n
\n<\/a>\u7b2c\u4e09\u7ae0<\/em><\/h2>\n\u4ee3\u7801\u5e03\u5c40<\/h1>\n\u6982\u8ff0<\/h2>\n
\u4e00\u4e2a\u7a0b\u5e8f\u5355\u5143\u7684\u5e03\u5c40\u5b8c\u5168\u5728\u201cRational \u73af\u5883\u683c\u5f0f\u5668\u201d (Rational Environment Formatter) \u7684\u63a7\u5236\u4e4b\u4e0b\uff0c\u9664\u4e86\u5728\u6ce8\u91ca\u548c\u7a7a\u767d\u5904\u5185\uff0c\u7a0b\u5e8f\u5458\u4e0d\u5fc5\u8fc7\u591a\u62c5\u5fc3\u7a0b\u5e8f\u7684\u5e03\u5c40\u3002\u8fd9\u4e2a\u5de5\u5177\u6240\u91c7\u7528\u7684\u683c\u5f0f\u7ea6\u5b9a\u5728 Reference Manual for the Ada Programming Language \u7684 Appendix E \u4e2d\u8868\u8ff0 [ISO87]<\/a>\u3002 \u7279\u522b\u662f\uff0c\u4ed6\u4eec\u5efa\u8bae\u7ed3\u6784\u5316\u6784\u9020\u7684\u5f00\u59cb\u548c\u7ed3\u675f\u5904\u7684\u5173\u952e\u5b57\u5e94\u5782\u76f4\u5bf9\u9f50\u3002\u4e00\u4e2a\u6784\u9020\u7684\u6807\u8bc6\u7b26\u4e5f\u5e94\u7cfb\u7edf\u6027\u5730\u5728\u6784\u9020\u7684\u672b\u5c3e\u91cd\u590d\u3002<\/p>\n\u683c\u5f0f\u5668\u7684\u786e\u5207\u884c\u4e3a\u7531\u4e00\u7cfb\u5217\u7684\u5e93\u5f00\u5173<\/em>\u5728\u4e00\u4e2a\u901a\u7528\u6a21\u578b\u4e16\u754c (model world) \u57fa\u7840\u4e0a\u63a7\u5236\uff0c\u8fd9\u4e9b\u5e93\u5f00\u5173\u5728\u6574\u4e2a\u9879\u76ee\u8fc7\u7a0b\u4e2d\u63a5\u6536\u4e00\u5957\u7edf\u4e00\u7684\u503c\u3002\u76f8\u5173\u7684\u5f00\u5173\u4ee5\u53ca\u5b83\u4eec\u5728\u6211\u4eec\u6240\u5efa\u8bae\u7684\u6a21\u578b\u4e16\u754c<\/em>\u4e2d\u7684\u901a\u7528\u503c\u5217\u8868\u5982\u4e0b\u3002<\/p>\n<\/a>\u5b57\u6bcd\u5927\u5c0f\u5199<\/h2>\nFormat .Id_Case : Letter_Case := Capitalized<\/h3>\n
\u8be6\u7ec6\u8bf4\u660e Ada \u5355\u5143\u4e2d\u6807\u8bc6\u7b26\u7684\u5b57\u6bcd\u5927\u5c0f\u5199\uff1a\u6700\u5f00\u59cb\u7684\u5b57\u6bcd\u4ee5\u53ca\u6bcf\u4e2a\u4e0b\u5212\u7ebf\u4e4b\u540e\u7684\u7b2c\u4e00\u4e2a\u5b57\u6bcd\u7528\u5927\u5199\u3002\u5927\u5199\u662f\u8bfb\u8005\u6700\u6613\u8bfb\u7684\u5f62\u5f0f\uff0c\u5177\u6709\u4f17\u591a\u73b0\u4ee3\u5c4f\u5e55\u548c\u6fc0\u5149\u6253\u5370\u673a\u5b57\u4f53\u3002<\/p>\n
Format .Keyword_Case : Letter_Case := Lower<\/h3>\n
\u8bf4\u660e Ada \u5173\u952e\u5b57\u7684\u5927\u5c0f\u5199\u3002\u8fd9\u5c06\u5b83\u4eec\u4e0e\u6807\u8bc6\u7b26\u7565\u5fae\u533a\u5206\u5f00\u6765\u3002<\/p>\n
Format .Number_Case : Letter_Case := Upper<\/h3>\n
\u8bf4\u660e\u6d6e\u70b9\u76f4\u63a5\u91cf\u4e2d\u5b57\u6bcd\u201cE\u201d\u548c\u57fa\u672c\u76f4\u63a5\u91cf\u4e2d\u57fa\u672c\u6570\u5b57\uff08\u201cA\u201d \u5230 \u201cF\u201d\uff09\u7684\u5927\u5c0f\u5199\u3002<\/p>\n
<\/a>\u7f29\u8fdb<\/h2>\n\u4e00\u4e2a Ada \u5355\u5143\u6309\u7167 Ada Reference Manual \u4e2d Appendix E \u6240\u8bf4\u7684\u4e00\u822c\u7ea6\u5b9a\u6765\u7f16\u6392\u683c\u5f0f [ISO87]<\/a>\u3002\u8fd9\u5c31\u662f\u8bf4\uff0c\u4e00\u4e2a\u7ed3\u6784\u5316\u6784\u9020\u7684\u5f00\u59cb\u548c\u7ed3\u675f\u5904\u7684\u5173\u952e\u5b57\u5e94\u8be5\u5bf9\u9f50\u3002 \u4f8b\u5982\uff0c\u201cloop\u201d\u548c\u201cend loop\u201d\uff0c\u201crecord\u201d\u548c\u201cend record\u201d\u3002\u5728\u7ed3\u6784\u5316\u6784\u9020\u5185<\/em>\u7684\u5355\u5143\u5e94\u5411\u53f3\u7f29\u8fdb<\/em>\u3002<\/p>\nFormat .Major_Indentation : Indent_Range := 3<\/h3>\n
\u8bf4\u660e\u683c\u5f0f\u5668\u4ee4\u5982\u201cif\u201d\u8bed\u53e5\u3001\u201ccase\u201d\u8bed\u53e5\u548c\u201cloop\u201d\u8bed\u53e5\u8fd9\u6837\u7684\u7ed3\u6784\u5316\uff08\u4e3b\u8981\u7684\uff09\u6784\u9020\u7f29\u8fdb\u7684\u5217\u6570\u3002<\/p>\n
Format .Minor_Indentation : Indent_Range := 2<\/h3>\n
\u8bf4\u660e\u683c\u5f0f\u5668\u4f7f\u6b21\u8981\u6784\u9020\u7f29\u8fdb\u7684\u5217\u6570\uff1a \u8bb0\u5f55\u7684\u58f0\u660e\u3001\u53d8\u4f53\u8bb0\u5f55\u7684\u58f0\u660e\u3001\u7c7b\u578b\u7684\u58f0\u660e\u3001\u5f02\u5e38\u5904\u7406\u3001\u9009\u62e9\u8bed\u53e5\u3001case \u8bed\u53e5\u3001\u547d\u540d\u548c\u6807\u5fd7\u8bed\u53e5\u3002<\/p>\n
<\/a>\u884c\u7684\u957f\u5ea6\u548c\u884c\u7684\u5206\u9694<\/h2>\nFormat .Line_Length : Line_Range := 80<\/h3>\n
\u8bf4\u660e\u6362\u884c\u524d\u683c\u5f0f\u5668\u663e\u793a Ada \u5355\u5143\u4e2d\u7684\u884c\u6240\u91c7\u7528\u7684\u5217\u6570\u3002\u8fd9\u4f7f\u5f97\u683c\u5f0f\u5316\u7684\u5355\u5143\u53ef\u7528\u4f20\u7edf\u7684 VT100 \u7c7b\u7ec8\u7aef\u663e\u793a\u3002<\/p>\n
Format .Statement_Indentation : Indent_Range := 3<\/h3>\n
\u8bf4\u660e\u5f53\u4e00\u6761\u8bed\u53e5\u957f\u4e8e Line_Length\uff0c\u5fc5\u987b\u8981\u65ad\u5f00\u65f6\uff0c\u683c\u5f0f\u5668\u5e94\u4f7f\u7b2c\u4e8c\u884c\u548c\u540e\u7eed\u884c\u7f29\u8fdb\u591a\u5c11\u5217\u3002\u53ea\u6709\u5f53\u4e0d\u5b58\u5728\u8bcd\u6cd5\u6784\u9020\u53ef\u8ba9\u7f29\u8fdb\u7684\u4ee3\u7801\u5bf9\u9f50\u65f6\uff0c\u683c\u5f0f\u5668\u624d\u4ee4\u4ee3\u7801\u7f29\u8fdb Statement_Indentation \u4e2a\u5217\u3002<\/p>\n
Format .Statement_Length : Line_Range := 35<\/h3>\n
\u8bf4\u660e\u5f53\u663e\u793a\u4e00\u4e2a\u8bed\u53e5\u65f6\uff0c\u6bcf\u884c\u6240\u4fdd\u7559\u7684\u5217\u6570\u3002 \u5982\u679c\u5f53\u524d\u7f29\u8fdb\u7a0b\u5ea6\u6240\u5141\u8bb8\u7684\u4e00\u884c\u4e2d\u7684\u5217\u6570\u5c0f\u4e8e Statement_Length\uff0c\u90a3\u4e48\u683c\u5f0f\u5668\u5c06 Wrap_Indentation \u4f5c\u4e3a\u65b0\u7684\u7f29\u8fdb\u7a0b\u5ea6\u3002\u6b64\u6cd5\u53ef\u9632\u6b62\u5d4c\u5957\u592a\u6df1\u7684\u8bed\u53e5\u663e\u793a\u65f6\u8d85\u51fa\u53f3\u8fb9\u754c\u3002<\/p>\n
Format .Wrap_Indentation : Line_Range := 16<\/h3>\n
\u8bf4\u660e\u5f53\u524d\u7684\u7f29\u8fdb\u7a0b\u5ea6\u4e0d\u4e0d\u8db3 Statement_Length \u65f6\uff0c\u683c\u5f0f\u5668\u5728\u4e0b\u4e00\u884c\u5f00\u5934\u5904\u5e94\u7f29\u8fdb\u7684\u5217\u6570\u3002\u6b64\u6cd5\u53ef\u9632\u6b62\u5d4c\u5957\u592a\u6df1\u7684\u8bed\u53e5\u663e\u793a\u65f6\u8d85\u51fa\u53f3\u8fb9\u754c\u3002<\/p>\n
<\/a>\u5bf9\u9f50<\/h2>\nFormat .Consistent_Breaking : Integer := 1<\/h3>\n
\u63a7\u5236\u5f62\u5982 (xxx:aaa; yyy:bbb) \u7684\u5217\u8868\u683c\u5f0f\uff0c\u8be5\u5217\u8868\u51fa\u73b0\u5728\u5b50\u7a0b\u5e8f\u7684\u5f62\u53c2\u8bf4\u660e\u5904\u548c\u7c7b\u578b\u58f0\u660e\u4e2d\u7684\u5224\u522b\u5f0f\u5904\u3002\u5b83\u4e5f\u63a7\u5236\u5f62\u5982 (xxx=>aaa, yyy=>bbb) \u7684\u5217\u8868\u7684\u683c\u5f0f\uff0c\u8be5\u5217\u8868\u51fa\u73b0\u5728\u5b50\u7a0b\u5e8f\u8c03\u7528\u548c\u805a\u96c6\u5904\u3002\u56e0\u4e3a\u8be5\u9009\u9879\u975e\u96f6\uff08\u771f\uff09\uff0c\u6240\u4ee5\u5f53\u4e00\u4e2a\u5217\u8868\u65e0\u6cd5\u5728\u4e00\u884c\u4e2d\u88c5\u4e0b\u65f6\uff0c\u5217\u8868\u4e2d\u7684\u6bcf\u4e00\u4e2a\u5143\u7d20\u90fd\u5360\u7528\u65b0\u7684\u4e00\u884c\u3002<\/p>\n
Format .Alignment_Threshold : Line_Range := 20<\/h3>\n
\u8bf4\u660e\u4e3a\u4f7f\u8fde\u7eed\u8bed\u53e5\u4e2d\u7684\u8bcd\u6cd5\u6784\u9020\u5bf9\u9f50\uff08\u5982\u547d\u540d\u7b26\u53f7\u4e2d\u7684\u5192\u53f7\u3001\u8d4b\u503c\u53f7\u548c\u7bad\u5934\uff09\uff0c\u683c\u5f0f\u5668\u53ef\u63d2\u5165\u7684\u7a7a\u683c\u6570\u3002\u5982\u679c\u5bf9\u9f50\u4e00\u4e2a\u6784\u9020\u6240\u9700\u7684\u7a7a\u683c\u6570\u591a\u4e8e\u8fd9\u4e2a\u6570\uff0c\u90a3\u4e48\u6784\u9020\u4e0d\u88ab\u5bf9\u9f50\u3002<\/p>\n
\u8981\u6ce8\u610f\u7684\u662f\uff0c\u4e3a\u4e86\u5f62\u6210\u67d0\u79cd\u5e03\u5c40\uff0c\u7a0b\u5e8f\u5458\u53ef\u4ee5\u63d2\u5165\u4e00\u4e2a\u884c\u7ed3\u675f\u7b26\u6216\u8005\u901a\u8fc7\u8f93\u5165 <space> <space> <carriage-return> \u6765\u6572\u5165\u4e00\u4e2a\u4e0d\u4f1a\u88ab\u683c\u5f0f\u5668\u5220\u6389\u7684\u884c\u4e2d\u65ad\u3002<\/p>\n
\u5f53 \u5217\u8868\u4e2d\u7684\u5143\u7d20\u8d85\u8fc7 3 \u4e2a\u5e76\u4e14\u5728\u4e00\u884c\u4e2d\u88c5\u4e0d\u4e0b\u8fd9\u4e9b\u5143\u7d20\u65f6\uff0c\u91c7\u7528\u4e0a\u8ff0\u6280\u5de7\u3002Ada \u5143\u7d20\u5217\u8868\u5e94\u5206\u9694\u4e3a\u4e00\u884c\u4ec5\u6709\u4e00\u4e2a\u5143\u7d20\uff0c\u4ee5\u63d0\u9ad8\u4ee3\u7801\u7684\u6613\u8bfb\u6027\u548c\u53ef\u7ef4\u62a4\u6027\u3002\u8fd9\u4e00\u6761\u5c24\u5176\u9002\u7528\u4e8e\u4ee5\u4e0b Ada \u6784\u9020\uff08\u8c61 Ada Reference Manual \u7684 Appendix E \u4e2d\u6240\u5b9a\u4e49\u7684\u90a3\u6837 [ISO87]<\/a>\uff09\uff1a<\/p>\n\u5b9e\u53c2\u5173\u8054\u5173\u7cfb<\/p>\n
pragma Suppress (Range_Check,\r\nOn => This_Type,\r\nOn => That_Type, On => That_Other_Type);<\/pre>\n\u6807\u8bc6\u7b26\u5217\u8868\uff0c\u7ec4\u4ef6\u5217\u8868<\/p>\n
Next_Position,\r\nPrevious_Position,\r\nCurrent_Position : Position;\r\ntype Some_Record is \r\nrecord\r\nA_Component,\r\nB_Component,\r\nC_Component : Component_Type;\r\nend record;<\/pre>\n\u679a\u4e3e\u7c7b\u578b\u5b9a\u4e49<\/p>\n
type Navaid is \r\n(Vor, \r\nVor_Dme, \r\nDme, \r\nTacan, \r\nVor_Tac, \r\nNDB);<\/pre>\n\u5224\u522b\u5f0f\u7ea6\u675f<\/p>\n
subtype Constrained is Element \r\n(Name_Length => Name'Length,\r\nValid => True,\r\nOperation => Skip);<\/pre>\n\u8bed\u53e5\u7684\u987a\u5e8f\uff08\u7531\u683c\u5f0f\u5668\u5904\u7406\uff09<\/p>\n
\u5f62\u5f0f\u90e8\u5206\u3001\u7c7b\u5c5e\u5f62\u5f0f\u90e8\u5206\u3001\u5b9e\u53c2\u90e8\u5206\u3001\u7c7b\u5c5e\u5b9e\u53c2\u90e8\u5206<\/p>\n
procedure Just_Do_It (This : in Some_Type;\r\nFor_That : in Some Other_Type;\r\nStatus : out Status_Type);\r\nJust_Do_It (This => This_Value;\r\nFor_That => That_Value;\r\nStatus => The_Status);<\/pre>\n
\n<\/a>\u7b2c\u56db\u7ae0<\/em><\/h2>\n\u6ce8\u91ca<\/h1>\n\u6982\u8ff0<\/h2>\n
\u4e0e\u5e7f\u6cdb\u63a5\u53d7\u7684\u89c2\u70b9\u76f8\u53cd\u7684\u662f\uff0c\u597d\u7684\u7a0b\u5e8f\u7684\u7279\u70b9\u5e76\u975e\u662f\u6ce8\u91ca\u7684\u6570\u91cf<\/em>\uff0c\u800c\u662f\u6ce8\u91ca\u7684\u8d28\u91cf<\/em>\u3002<\/p>\n\u6ce8\u91ca\u5e94\u5f53\u4f5c\u4e3a Ada \u4ee3\u7801\u7684\u8865\u5145<\/em>\uff0c\u800c\u4e0d\u662f\u89e3\u91ca\uff1aAda \u672c\u8eab\u662f\u4e00\u79cd\u975e\u5e38\u6613\u8bfb\u7684\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00\uff0c\u5c24\u5176\u662f\u5f53\u88ab\u597d\u7684\u547d\u540d\u7ea6\u5b9a\u652f\u6301\u65f6\u3002\u6ce8\u91ca\u5e94\u5f53\u89e3\u91ca\u90a3\u4e9b\u4e0d\u80fd\u76f4\u63a5\u4ece Ada \u4ee3\u7801\u4e2d\u770b\u51fa\u7684\u5185\u5bb9\uff1b\u5b83\u4eec\u4e0d\u5e94\u590d\u5236 Ada \u7684\u8bed\u6cd5\u6216\u8bed\u4e49\u3002\u6ce8\u91ca\u5e94\u5f53\u5e2e\u52a9\u8bfb\u8005\u638c\u63e1\u80cc\u666f\u6982\u5ff5\u548c\u4f9d\u8d56\u6761\u4ef6\uff0c\u7279\u522b\u662f\u590d\u6742\u7684\u6570\u636e\u7f16\u7801\u548c\u7b97\u6cd5\u3002\u6ce8\u91ca\u5e94\u5f53\u7a81\u51fa\u4e0e\u7f16\u7801\u6216\u8bbe\u8ba1\u6807\u51c6\u7684\u4e0d\u540c\u70b9\u3001\u53d7\u9650\u7279\u6027\u7684\u4f7f\u7528\u4ee5\u53ca\u7279\u6b8a\u7684 \u201c\u6280\u5de7\u201d\u3002\u5728\u6bcf\u4e2a\u4e3b\u8981\u7684 Ada \u6784\u9020\uff08\u5982\u5b50\u7a0b\u5e8f\u548c\u7a0b\u5e8f\u5305\uff09\u4e2d\uff0c\u7cfb\u7edf\u5730\u51fa\u73b0\u7684\u6ce8\u91ca\u6846\u6216\u8868\u5355\u5177\u6709\u4e00\u81f4\u6027\u548c\u63d0\u9192\u7a0b\u5e8f\u5458\u8bf4\u660e\u4ee3\u7801\u7684\u4f18\u70b9\uff0c\u4f46\u5b83\u4eec\u4e5f\u5e38\u5e38\u5e26\u6765\u91ca\u4e49\u4ee3\u7801\u7684\u98ce\u683c\u3002\u5bf9\u6bcf\u4e00\u884c\u6ce8\u91ca\uff0c\u7a0b\u5e8f\u5458\u90fd \u5e94\u80fd\u591f\u5f88\u597d\u5730\u56de\u7b54\uff1a\u201c\u52a0\u5165\u8fd9\u4e2a\u6ce8\u91ca\u6709\u4f55\u4ef7\u503c\uff1f\u201d<\/p>\n\u4e00\u4e2a\u8bef\u5bfc\u6216\u8005\u9519\u8bef\u7684\u6ce8\u91ca\u6bd4\u5b8c\u5168\u4e0d\u6ce8\u91ca\u8fd8\u7cdf\u3002\u7f16\u8bd1\u5668\u4e0d\u68c0\u67e5\u6ce8\u91ca\uff08\u9664\u975e\u5b83\u4eec\u8c61\u201cRational \u8bbe\u8ba1\u5de5\u5177\u201d\u90a3\u6837\u53c2\u4e0e\u4e86\u6b63\u5f0f\u7684 Ada \u8bbe\u8ba1\u8bed\u8a00 (ADL) \u6216\u8005\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00 (PDL)\uff09\u3002\u56e0\u6b64\uff0c\u6839\u636e\u5355\u70b9\u7ef4\u62a4\u539f\u5219\uff0c\u8bbe\u8ba1\u51b3\u5b9a\u5e94\u5728 Ada \u800c\u4e0d\u662f\u6ce8\u91ca\u4e2d\u8868\u8ff0\uff0c\u5373\u4f7f\u8fd9\u6837\u505a\u9700\u8981\u591a\u51e0\u4e2a\u58f0\u660e\u3002<\/p>\n
\u4f5c\u4e3a\u4e00\u4e2a\uff08\u5e76\u975e\u5f88\u597d\u7684\uff09\u4f8b\u5b50\u8003\u8651\u5982\u4e0b\u7684\u58f0\u660e\uff1a<\/p>\n
------------------------------------------------------------\r\n-- procedure Create\r\n------------------------------------------------------------\r\n--\r\nprocedure Create\r\n(The_Subscriber: in out Subscriber.Handle;\r\nWith_Name : in out Subscriber.Name);\r\n--\r\n-- Purpose: This procedure creates a subscriber with a given\r\n-- name.\r\n--\r\n-- Parameters: \r\n- The_Subscriber :mode in out, type Subscriber.Handle\r\n- It is the handle to the created subscriber\r\n- With_Name :mode in, type Subscriber.Name\r\n- The name of the subscriber to be created.\r\n- The syntax of the name is\r\n-- <letter> { <letter> | <digit> }\r\n-- Exceptions:\r\n-- Subscriber.Collection_Overflow when there is no more\r\n-- space to create a new subscriber\r\n-- Subscriber.Invalid_Name when the name is blank or\r\n-- malformed\r\n--\r\n-------------------------------------------- end Create ----<\/pre>\n\u4f8b\u5b50\u4e2d\u6709\u51e0\u70b9\u8981\u6307\u51fa\u6765\u3002<\/p>\n
\n- \u6709\u8bb8\u591a\u5197\u4f59\uff1a<\/li>\n<\/ul>\n
\n- – \u8fc7\u7a0b\u521b\u5efa (Procedure Create)\uff1a\u5982\u679c\u8981\u6539\u540d\uff0c\u6709\u51e0\u5904\u5730\u65b9\u9700\u8981\u4fee\u6539\uff1b\u7ecf\u5e38\u6027\u5730\u4fee\u6539\u6ce8\u91ca\uff0c\u7f16\u8bd1\u5668\u4e0d\u4f1a\u6267\u884c\u3002<\/dd>\n
- – \u6ce8\u91ca\u4e2d\u65e0\u9700\u91cd\u590d\u8bf4\u660e\u53c2\u6570\u540d\u3001\u6a21\u5f0f\u548c\u7c7b\u578b\u3002<\/dd>\n
- – \u8fd9\u91cc\u7ed9\u6bcf\u4e2a Ada \u5b9e\u4f53\u6240\u53d6\u7684\u540d\u5b57\u5f88\u597d\uff0c\u8fd9\u4f7f\u5f97\u529f\u80fd\u548c\u53c2\u6570\u89e3\u91ca\u53d8\u5f97\u591a\u4f59\u3002\u6ce8\u610f\uff0c\u8fd9\u4e00\u70b9\u53ea\u662f\u5bf9\u4e8e\u5982\u4e0a\u4f8b\u8fd9\u6837\u7684\u7b80\u5355\u7684\u5b50\u7a0b\u5e8f\u6765\u8bf4\u624d\u662f\u6b63\u786e\u7684\u3002\u5bf9\u4e8e\u66f4\u590d\u6742\u7684\u5b50\u7a0b\u5e8f\uff0c\u4ecd\u9700\u8981\u529f\u80fd\u548c\u53c2\u6570\u89e3\u91ca\u3002<\/dd>\n<\/dl>\n
\n- \u6846\u67b6\u52a0\u5165\u4e86\u592a\u591a\u7684\u5e72\u6270\uff0c\u9690\u85cf\u4e86\u5173\u952e\u9879\uff1a\u8fc7\u7a0b\u58f0\u660e\u3002\u53e6\u5916\uff0c\u53f3\u7aef\u7684\u5782\u76f4\u8fb9\u5f00\u59cb\u65f6\u770b\u4e0a\u53bb\u8fd8\u5f88\u6f02\u4eae\uff0c\u4f46\u5374\u4f7f\u4fee\u6539\u53d8\u5f97\u6781\u4e3a\u75db\u82e6\uff0c\u901a\u5e38\u51e0\u5e74\u7684\u7ef4\u62a4\u4e0b\u6765\uff0c\u4ee3\u7801\u6700\u540e\u5b8c\u5168\u4e0d\u5bf9\u9f50\u5e76\u4e14\u5343\u75ae\u767e\u5b54\u3002<\/li>\n
- \u76f8\u53cd\u7684\u662f\uff0c\u8fd9\u91cc\u5e94\u8bf4\u660e\u4ea7\u751f\u4e86\u4f55\u79cd\u5f02\u5e38\uff0c\u56e0\u4e3a\u82e5\u53ea\u8bfb\u89c4\u683c\u8bf4\u660e\uff0c\u8fd9\u4e00\u70b9\u5e76\u4e0d\u660e\u663e\u3002\u4f46\u6bcf\u4e2a\u5f02\u5e38\u7684\u51c6\u786e\u542b\u4e49\u5e94\u653e\u5728\u81ea\u8eab\u7684\u5f02\u5e38\u58f0\u660e\u5904\u3002<\/li>\n
- \u5e94\u8bf4\u660e\u53c2\u6570\u7684\u524d\u7f6e\u548c\u540e\u7f6e\u6761\u4ef6\uff0c\u5c24\u5176\u662f\u53c2\u6570\u95f4\u7684\u5173\u7cfb\u3002\u8fd9\u4e9b\u4e0d\u5e94\u4e0e\u5176\u5b83\u5730\u65b9\u53ef\u4ee5\u627e\u5230\u7684\u4fe1\u606f\u91cd\u590d\uff0c\u5982\u6709\u6548\u540d\u7684\u8bed\u6cd5\uff0c\u5b83\u53ea\u5e94\u5728\u4e00\u5904\u8bf4\u660e\u3002<\/li>\n<\/ul>\n
\u5728\u8fd9\u4e2a\u4f8b\u5b50\u4e2d\uff0c\u6700\u597d\u91c7\u7528\u5982\u4e0b\u66f4\u7b80\u6d01\u3001\u66f4\u6709\u7528\u7684\u65b9\u5f0f\uff1a<\/p>\n
procedure Create (The_Subscriber : in out Subscriber.Handle;\r\nWith_Name : in Subscriber.Name);--\r\n-Raises Subscriber.Collection_Overflow.\r\n-Raises Subscriber.Invalid_Name when the name is \r\nblank or malformed (see syntax description \r\nattached to declaration of type Subscriber.Name).<\/pre>\n<\/a>\u6ce8\u91ca\u7528\u6cd5\u6307\u5357<\/h2>\n\u6ce8\u91ca\u5e94\u653e\u5728\u76f8\u5173\u4ee3\u7801\u7684\u65c1\u8fb9\uff0c\u7f29\u8fdb\u540c\u6837\u7684\u5927\u5c0f\uff0c\u7d27\u9760\u7740\u4ee3\u7801 – \u5373\u7528\u7a7a\u7684\u6ce8\u91ca\u884c\u5728\u89c6\u89c9\u4e0a\u5c06\u6ce8\u91ca\u5757\u4e0e Ada \u6784\u9020\u6346\u5728\u4e00\u8d77\uff1a<\/p>\n
procedure First_One;\r\n--\r\n-- This comment relates to First_One.\r\n-- But this comment is for Second_One.\r\n-- \r\nprocedure Second_One (Times : Natural);<\/pre>\n\u7528\u7a7a\u884c\u5206\u9694\u76f8\u5173\u7684\u6e90\u7801\u5757\uff08\u6ce8\u91ca\u548c\u4ee3\u7801\uff09\uff0c\u800c\u4e0d\u7528\u7c97\u91cd\u7684\u6ce8\u91ca\u884c\uff0c\u5982\uff1a<\/p>\n
-------------------------------------------------------------<\/pre>\n\u6216\u8005\uff1a<\/p>\n
--===========================================================<\/pre>\n\u5728\u4e00\u4e2a\u6ce8\u91ca\u5757\u4e2d\uff0c\u4f7f\u7528\u7a7a\u6ce8\u91ca\u884c\u800c\u975e\u7a7a\u884c\u6765\u5206\u5272\u6ce8\u91ca\u6bb5<\/p>\n
-- Some explanation here that needs to be continued in a\r\n-- subsequent paragraph.\r\n--\r\n-- The empty comment line above makes it clear that we \r\n-- are dealing with a single comment block.<\/pre>\n\u867d\u7136\u6ce8\u91ca\u53ef\u4ee5\u653e\u5728\u76f8\u5173 Ada \u6784\u9020\u7684\u4e0a\u65b9\u6216\u4e0b\u65b9\uff0c\u4f46\u662f\u8981\u5c06\u4e00\u8282\u7684\u6807\u9898\u6216\u8005\u4e00\u4e2a\u8bf4\u660e\u51e0\u4e2a Ada \u6784\u9020\u7684\u4e3b\u8981\u4fe1\u606f\u653e\u5728\u6784\u9020\u7684\u4e0a\u65b9<\/em>\u3002\u5c06\u8bc4\u8ff0\u6216\u9644\u52a0\u4fe1\u606f\u7b49\u8fd9\u4e00\u7c7b\u7684\u6ce8\u91ca\u653e\u5728\u76f8\u5173 Ada \u6784\u9020\u7684\u4e0b\u65b9<\/em>\u3002<\/p>\n\u7528\u4e00\u9875\u7684\u6574\u884c\u5bbd\u5728 Ada \u6784\u9020\u7684\u5f00\u5934\u5904\u5206\u7ec4\u3002\u907f\u514d\u5c06\u6ce8\u91ca\u653e\u5728 Ada \u6784\u9020\u7684\u540c\u4e00\u884c\u3002\u8fd9\u4e9b\u6ce8\u91ca\u5e38\u5e38\u53d8\u5f97\u4e0d\u5bf9\u9f50\u3002\u4f46\u662f\u5728\u8bf4\u660e\u4e00\u4e2a\u957f\u7684\u58f0\u660e\u65f6\uff0c\u5982\u679a\u4e3e\u7c7b\u578b\u76f4\u63a5\u91cf\uff0c\u8fd9\u6837\u7684\u6ce8\u91ca\u65b9\u5f0f\u662f\u53ef\u4ee5\u5bb9\u8bb8\u7684\u3002<\/p>\n
\u7528\u4e00\u4e2a\u5c0f\u7684\u5206\u5c42\u6b21\u7684\u6807\u51c6\u6ce8\u91ca\u5757\u6765\u8bf4\u660e\u5c0f\u8282\u7684\u6807\u9898\uff0c\u4f46\u8fd9\u4ec5\u4ec5\u9002\u7528\u4e8e\u5f88\u5927\u7684 Ada \u5355\u5143\uff08>200 \u884c\u7684\u58f0\u660e\u6216\u8005\u8bed\u53e5\uff09\uff1a<\/p>\n
--===========================================================\r\n--\r\n \u4e3b\u6807\u9898\r\n--\r\n--===========================================================\r\n\r\n-------------------------------------------------------------\r\n \u526f\u6807\u9898\r\n-------------------------------------------------------------\r\n\r\n --------------------\r\n \u5b50\u90e8\u5206\u7684\u5934\r\n --------------------<\/pre>\n\u5728\u8fd9\u79cd\u6807\u9898\u524d\u9762\u6240\u653e\u7684\u7a7a\u884c\u6570\u8981\u591a\u4e8e\u540e\u9762\u7684\u7a7a\u884c\u6570\uff0c\u4f8b\u5982\uff0c\u4e24\u884c\u5728\u524d\u4e00\u884c\u5728\u540e\u3002\u8fd9\u6837\u4f7f\u6807\u9898\u4e0e\u968f\u540e\u7684\u6b63\u6587\u5728\u89c6\u89c9\u4e0a\u76f8\u8054\u7cfb\u3002<\/p>\n
\u907f \u514d\u4f7f\u7528\u542b\u6709\u4fe1\u606f\u7684\u51fd\u6570\u5934\uff0c\u6bd4\u5982\u4f5c\u8005\u3001\u7535\u8bdd\u3001\u521b\u5efa\u548c\u4fee\u6539\u65e5\u671f\u3001\u5355\u5143\uff08\u6216\u6587\u4ef6\u540d\uff09\u7684\u4f4d\u7f6e\uff0c\u56e0\u4e3a\u8fd9\u4e9b\u4fe1\u606f\u5f88\u5feb\u5c31\u4f1a\u8fc7\u65f6\u3002\u5c06\u6240\u6709\u8005\u7248\u6743\u4fe1\u606f\u653e\u5728\u5355\u5143\u7684\u672b\u5c3e\uff0c\u5c24\u5176\u662f \u4f7f\u7528\u201cRational \u73af\u5883\u201d\u65f6\u3002\u5f53\u8bbf\u95ee\u4e00\u4e2a\u7a0b\u5e8f\u5305\u7684\u89c4\u683c\u8bf4\u660e\u6e90\u7801\u65f6 – \u4f8b\u5982\u5728\u201cRational \u73af\u5883\u201d\u4e2d\u6309 [Definition] – \u8bfb\u8005\u4e0d\u60f3\u6d4f\u89c8\u4e24\u9875\u6216\u8005\u4e09\u9875\u5bf9\u7406\u89e3\u7a0b\u5e8f\u65e0\u4efb\u4f55\u7528\u5904\u7684\u6587\u672c\u548c\/\u6216\u5b8c\u5168\u4e0d\u5e26\u6709\u4efb\u4f55\u7a0b\u5e8f\u4fe1\u606f\u7684\u6587\u672c\u3002\u907f\u514d\u4f7f\u7528\u5782\u76f4\u6eda\u52a8\u6761\u3001\u5c01\u95ed\u56fe\u6587\u6846\u6216\u65b9\u6846\uff0c\u8fd9\u4e9b\u4e1c\u897f\u53ea\u4f1a\u589e\u52a0\u89c6\u89c9 \u5e72\u6270\uff0c\u800c\u4e14\u96be\u4ee5\u4fdd\u6301\u4e00\u81f4\u6027\u3002\u7528 Rational CMVC \u9644\u6ce8\uff08\u6216\u8005\u5176\u5b83\u5f62\u5f0f\u7684\u8f6f\u4ef6\u5f00\u53d1\u6587\u4ef6\uff09\u6765\u4fdd\u5b58\u5355\u5143\u5386\u53f2\u3002<\/p>\n
\u4e0d\u8981\u91cd\u590d\u53ef\u4ee5\u5728\u5176\u5b83\u5730\u65b9\u627e\u5230\u7684\u4fe1\u606f\uff1b\u4ec5\u63d0\u4f9b\u4e00\u4e2a\u6307\u5411\u8be5\u4fe1\u606f\u7684\u6307\u9488\u5373\u53ef\u3002<\/p>\n
\u5c3d \u91cf\u91c7\u7528 Ada\uff0c\u800c\u975e\u6ce8\u91ca\u3002\u8981\u5b9e\u73b0\u8fd9\u4e00\u70b9\uff0c\u4f60\u53ef\u9009\u62e9\u66f4\u597d\u7684\u540d\u5b57\u3001\u9644\u52a0\u4e34\u65f6\u53d8\u91cf\u3001\u9650\u5b9a\u3001\u91cd\u547d\u540d\u3001\u5b50\u7c7b\u578b\u3001\u9759\u6001\u8868\u8fbe\u5f0f\u548c\u5c5e\u6027\uff0c\u8fd9\u4e9b\u90fd\u4e0d\u5f71\u54cd\u751f\u6210\u7684\u4ee3\u7801\uff08\u81f3\u5c11\u5728\u4e00\u4e2a\u597d\u7684 \u7f16\u8bd1\u5668\u4e2d\u4e0d\u5f71\u54cd\uff09\u3002\u4f60\u4e5f\u53ef\u4ee5\u91c7\u7528\u5c0f\u7684\u3001\u5d4c\u5165\u5f0f\u7684\u8c13\u8bcd\u51fd\u6570\uff0c\u5e76\u5c06\u4ee3\u7801\u5206\u6210\u51e0\u4e2a\u65e0\u53c2\u8fc7\u7a0b\uff0c\u8fd9\u4e9b\u8fc7\u7a0b\u7684\u540d\u5b57\u63d0\u4f9b\u4e86\u4ee3\u7801\u51e0\u4e2a\u79bb\u6563\u90e8\u5206\u7684\u6807\u9898\u3002<\/p>\n
\u793a\u4f8b\uff1a<\/p>\n
\u5c06\uff1a<\/p>\n
exit when Su.Locate (Ch, Str) \/= 0; \r\n-- Exit search loop when found it.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
Search_Loop : loop<\/p>\n
Found_It := Su.Locate (Ch, Str) \/= 0;<\/p>\n
exit Search_Loop when Found_It<\/p>\n
end Search_Loop;<\/p>\n
\u5c06\uff1a<\/p>\n
if Value < 'A' or else Value > 'Z' then\r\n-- If not in uppercase letters.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
subtype Uppercase_Letters is Character range 'A' ..'Z';\r\nif Value not in Uppercase_Letters then ...<\/pre>\n\u5c06\uff1a<\/p>\n
X := Green; -- This is the Green from \r\n-- Status, not from Color.\r\nraise Fatal_Error; -- From package Outer_Scope.\r\ndelay 384.0; -- Equal to 6 minutes and 24 \r\n-- seconds.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
The_Status := Green;<\/pre>\nor:<\/p>\n
X := Status'(Green);\r\nraise Outer_Scope.Fatal_Error;\r\ndelay 6.0 * Minute + 24.0 * Second;<\/pre>\n\u5c06\uff1a<\/p>\n
if Is_Valid (The_Table (Index).Descriptor(Rank).all) then\r\n-- This is the current value for the iteration; if it is \r\n-- valid we append to the list it contains.\r\nAppend (Item, To_List => The_Table (Index).Descriptor(Rank).Ptr);|<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
declare\r\nCurrent_Rank : Lists.List renames The_Table \r\n(Index).Descriptor (Rank);\r\nbegin\r\nif Is_Valid (Current_Rank.all) then\r\nAppend (Item, To_List => Current_Rank.Ptr);\r\nend if;\r\nend;<\/pre>\n\u6ce8\u610f\u6ce8\u91ca\u4e2d\u7684\u98ce\u683c\u3001\u8bed\u6cd5\u548c\u62fc\u5199\u3002\u4e0d\u8981\u4f7f\u7528\u8c61\u7535\u62a5\u5bc6\u7801\u4e00\u822c\u7684\u98ce\u683c\u3002\u4f7f\u7528\u62fc\u5199\u68c0\u67e5\u3002\uff08\u5728\u201cRational \u73af\u5883\u201d\u4e2d\u8c03\u7528 Speller.Check_Image\uff09\u3002<\/p>\n
\u4e0d\u8981\u4f7f\u7528\u65b9\u8a00\u5b57\u6bcd\u6216\u8005\u5176\u5b83\u975e\u82f1\u6587\u5b57\u7b26\u3002\u6839\u636e Ada Issue AI-339\uff0c\u975e\u82f1\u6587\u5b57\u7b26\u53ef\u88ab\u4e00\u4e9b\u5f00\u53d1\u7cfb\u7edf\u652f\u6301\uff0c\u4e00\u4e9b Ada \u7f16\u8bd1\u5668\u4ec5\u5728\u6ce8\u91ca\u4e2d\u652f\u6301\u3002\u4f46\u8fd9\u662f\u4e0d\u53ef\u79fb\u690d\u7684\uff0c\u5f88\u6709\u53ef\u80fd\u5728\u5176\u5b83\u7cfb\u7edf\u4e0a\u5931\u6548\u3002<\/p>\n
\u5bf9\u4e8e\u5b50\u7a0b\u5e8f\uff0c\u81f3\u5c11\u8bf4\u660e\uff1a<\/p>\n
\n- \u5b50\u7a0b\u5e8f\u7684\u7528\u9014\uff0c\u4f46\u8fd9\u53ea\u662f\u5f53\u4ece\u5b83\u7684\u540d\u5b57\u4e2d\u4e0d\u80fd\u660e\u786e\u4e86\u89e3\u5176\u7528\u9014\u65f6<\/li>\n
- \u5728\u4f55\u79cd\u6761\u4ef6\u4e0b\u751f\u6210\u4e86\u4f55\u79cd\u5f02\u5e38<\/li>\n
- \u5982\u679c\u6709\u7684\u8bdd\uff0c\u53c2\u6570\u7684\u524d\u7f6e\u6216\u540e\u7f6e\u6761\u4ef6<\/li>\n
- \u5176\u4ed6\u6570\u636e\u8bbf\u95ee\uff0c\u7279\u522b\u662f\u5f53\u6570\u636e\u88ab\u4fee\u6539\u65f6\uff1b\u8fd9\u5c24\u5176\u5305\u62ec\u6709\u526f\u4f5c\u7528\u7684\u51fd\u6570<\/li>\n
- \u6b63\u786e\u4f7f\u7528\u5b50\u7a0b\u5e8f\u6240\u9700\u7684\u4efb\u4f55\u9650\u5236\u6216\u9644\u52a0\u4fe1\u606f<\/li>\n<\/ul>\n
\u5bf9\u4e8e\u7c7b\u578b\u548c\u5bf9\u8c61\uff0c\u8981\u8bf4\u660e\u6240\u6709\u4e0d\u80fd\u901a\u8fc7 Ada \u8868\u8fbe\u7684\u4e0d\u53d8\u91cf\u6216\u9644\u52a0\u7ea6\u675f\u3002<\/p>\n
\u907f\u514d\u6ce8\u91ca\u4e2d\u7684\u91cd\u590d\u3002\u4f8b\u5982\uff0c\u6709\u5173\u7528\u9014\u7684\u90e8\u5206\u5e94\u662f\u201c\u5b83\u505a\u4ec0\u4e48\uff1f\u201d\u8fd9\u4e2a\u95ee\u9898\u7684\u7b80\u5355\u56de\u7b54\uff0c\u800c\u4e0d\u662f\u201c\u5b83\u600e\u4e48\u505a\uff1f\u201d\u7684\u56de\u7b54\u3002\u6982\u8ff0\u5e94\u662f\u8bbe\u8ba1\u7684\u7b80\u77ed\u8868\u8fbe\u3002\u8bf4\u660e\u4e2d\u4e0d\u5e94\u63cf\u8ff0\u6240\u7528\u7684\u7b97\u6cd5\uff0c\u800c\u5e94\u89e3\u91ca\u7a0b\u5e8f\u5305\u5e94\u5982\u4f55\u4f7f\u7528\u3002<\/p>\n
\u6570\u636e\u7ed3\u6784\u548c\u7b97\u6cd5\u90e8\u5206\u5e94\u542b\u6709\u8db3\u591f\u7684\u4fe1\u606f\u6765\u5e2e\u52a9\u7406\u89e3\u4e3b\u8981\u7684\u5b9e\u73b0\u7b56\u7565\uff08\u4ee5\u4fbf\u6b63\u786e\u4f7f\u7528\u7a0b\u5e8f\u5305\uff09\uff0c\u4f46\u65e0\u9700\u5305\u542b\u6240\u6709\u7684\u5b9e\u73b0\u7ec6\u8282\u6216\u4e0e\u6b63\u786e\u4f7f\u7528\u5305\u6beb\u4e0d\u76f8\u5173\u7684\u4fe1\u606f\u3002<\/p>\n
\n<\/a>\u7b2c\u4e94\u7ae0<\/em><\/h2>\n\u547d\u540d\u7ea6\u5b9a<\/h1>\n\u6982\u8ff0<\/h2>\n
\u7ed9 Ada \u5b9e\u4f53\uff08\u7a0b\u5e8f\u5355\u5143\u3001\u7c7b\u578b\u3001\u5b50\u7c7b\u578b\u3001\u5bf9\u8c61\u3001\u76f4\u63a5\u91cf\u3001\u5f02\u5e38\uff09\u6307\u5b9a\u597d\u540d\u5b57\u662f\u6240\u6709\u8f6f\u4ef6\u5e94\u7528\u7a0b\u5e8f\u8981\u8868\u8ff0\u7684\u6700\u7cbe\u5de7\u7684\u4e8b\u60c5\u4e4b\u4e00\u3002\u4e2d\u7b49\u89c4\u6a21\u5230\u5927\u89c4\u6a21\u7684\u5e94\u7528\u7a0b\u5e8f\u5b58\u5728\u7740\u53e6\u4e00\u4e2a\u95ee \u9898\uff1a\u540d\u5b57\u95f4\u7684\u51b2\u7a81\uff0c\u6216\u662f\u8981\u627e\u5230\u8db3\u591f\u7684\u540c\u4e49\u8bcd\u6765\u6307\u4ee3\u76f8\u540c\u73b0\u5b9e\u4e16\u754c\u4e2d\u76f8\u4f3c\u4f46\u53c8\u6709\u522b\u7684\u6982\u5ff5\uff08\u6216\u662f\u547d\u540d\u4e00\u4e2a\u7c7b\u578b\u3001\u5b50\u7c7b\u3001\u5bf9\u8c61\u3001\u53c2\u6570\uff09\u3002\u8fd9\u91cc\u53ef\u5229\u7528\u4e0d\u91c7\u7528\u201cuse\u201d \u5b50\u53e5\uff08\u6216\u53ea\u5728\u6781\u4e3a\u53d7\u9650\u7684\u6761\u4ef6\u4e0b\u91c7\u7528\uff09\u7684\u6cd5\u5219\u3002\u5728\u8bb8\u591a\u60c5\u5f62\u4e0b\uff0c\u8fd9\u4f7f\u5f97\u53ef\u4ee5\u4e0d\u5192\u6df7\u6dc6\u7684\u98ce\u9669\u800c\u7f29\u77ed\u540d\u5b57\uff0c\u5e76\u590d\u7528\u76f8\u540c\u7684\u63cf\u8ff0\u8bcd\u3002<\/p>\n
\u9009\u62e9\u6e05\u6670\u7684\u3001\u6613\u8bfb\u7684\u3001\u6709\u610f\u4e49\u7684\u540d\u79f0\u3002<\/p>\n
\u4e0e\u5176\u5b83\u7684\u7f16\u7a0b\u8bed\u8a00\u4e0d\u540c\uff0cAda \u4e0d\u5c06\u6807\u8bc6\u7b26\u7684\u957f\u5ea6\u9650\u5236\u5728 6\uff0c8 \u6216\u8005 15 \u4e2a\u5b57\u7b26\u5185\u3002\u77ed\u540d\u5b57\u6253\u5b57\u901f\u5ea6\u5feb\u4e0d\u662f\u91c7\u7528\u5b83\u4eec\u7684\u53ef\u4ee5\u4e3a\u4eba\u63a5\u53d7\u7684\u7406\u7531\u3002\u53ea\u6709\u4e00\u4e2a\u5b57\u6bcd\u7684\u6807\u8bc6\u7b26\u901a\u5e38\u8bf4\u660e\u9009\u62e9\u4e0d\u5f53\u6216\u662f\u61d2\u60f0\u3002\u53ef\u80fd\u6709\u51e0\u4e2a\u4f8b\u5916\uff0c\u5982\u5c06 E \u4f5c\u4e3a\u81ea\u7136\u5bf9\u6570\u7684\u5e95\uff0cPi\uff0c\u4ee5\u53ca\u5176\u5b83\u5c11\u6570\u51e0\u4e2a\u6613\u8fa8\u8bc6\u7684\u60c5\u51b5\u3002<\/p>\n
\u7528\u4e0b\u5212\u7ebf\u5c06\u4e00\u4e2a\u540d\u5b57\u4e2d\u7684\u4e0d\u540c\u5355\u8bcd\u5206\u9694\u5f00\u6765\uff1a<\/p>\n
Is_Name_Valid<\/code> \u4e0d\u662f IsNameValid<\/code><\/p>\n\u91c7\u7528\u5168\u540d\u800c\u4e0d\u662f\u7f29\u5199\u3002<\/p>\n
\u53ea\u91c7\u7528\u9879\u76ee\u8ba4\u53ef\u7684\u7f29\u7565\u8bcd\u3002<\/p>\n
\u53ea\u80fd\u662f\u5728\u4e24\u79cd\u60c5\u51b5\u4e4b\u4e00\u65f6\u91c7\u7528\u7f29\u5199\uff1a\u8be5\u7f29\u5199\u5728\u5e94\u7528\u9886\u57df\u4e2d\u5f88\u666e\u904d\uff08\u5982 FFT \u4ee3\u8868\u5085\u7acb\u53f6\u53d8\u6362\uff09\u6216\u8005\u6765\u81ea\u516c\u8ba4\u7f29\u5199\u7684\u9879\u76ee\u7ea7\u5217\u8868\u3002\u5426\u5219\uff0c\u5f88\u6709\u53ef\u80fd\u4f7f\u76f8\u4f3c\u4f46\u4e0d\u76f8\u540c\u7684\u7f29\u5199\u5230\u5904\u51fa\u73b0\uff0c\u5bfc\u81f4\u4ee5\u540e\u7684\u6df7\u6dc6\u548c\u9519\u8bef\uff08\u5982\u5c06 track_identification \u7f29\u5199\u6210 trid\u3001trck_id\u3001tr_iden\u3001tid\u3001tr_ident\u7b49\uff09\u3002<\/p>\n
\u5c11\u7528\u540e\u7f00\u8bf4\u660e Ada \u6784\u9020\u7684\u5206\u7c7b\u3002\u5b83\u4eec\u4e0d\u80fd\u63d0\u9ad8\u6613\u8bfb\u6027\u3002<\/p>\n
\u901a\u5e38\u6309\u7167 Ada \u5b9e\u4f53\u7684\u7c7b\u6765\u52a0\u540e\u7f00\uff0c\u5982\u7ed9\u7a0b\u5e8f\u5305\u52a0\u4e0a _Package\uff0c\u5f02\u5e38\u52a0\u4e0a _Error\uff0c\u7c7b\u578b\u52a0\u4e0a _Type\uff0c\u4ee5\u53ca\u5b50\u7a0b\u5e8f\u7684\u53c2\u6570\u52a0\u4e0a _Param\uff0c\u5bf9\u5e2e\u52a9\u9605\u8bfb\u548c\u7406\u89e3\u4ee3\u7801\u4e0d\u662f<\/em>\u5f88\u6709\u6548\u3002 \u800c\u52a0\u4e0a\u5982 _Array\uff0c_Record \u548c _Function \u8fd9\u6837\u7684\u540e\u7f00\u5219\u66f4\u7cdf\u3002Ada \u7f16\u8bd1\u5668\u548c\u8bfb\u8005\u90fd\u53ef\u4ee5\u6839\u636e\u4e0a\u4e0b\u6587\u4ece\u5b50\u7a0b\u5e8f\u4e2d\u5206\u8fa8\u4e00\u4e2a\u5f02\u5e38\uff1a\u663e\u7136\u53ea\u6709\u5f02\u5e38\u540d\u53ef\u4ee5\u5728 raise<\/em> \u8bed\u53e5\u6216\u5f02\u5e38\u5904\u7406\u4e2d\u51fa\u73b0\u3002\u8fd9\u4e9b\u540e\u7f00\u5728\u5982\u4e0b\u53d7\u9650\u7684\u6761\u4ef6\u4e0b\u53ef\u7528\uff1a<\/p>\n\n- \u5f53\u5408\u9002\u7684\u8bcd\u7684\u9009\u62e9\u8303\u56f4\u975e\u5e38\u6709\u9650\u65f6\uff0c\u7ed9\u5bf9\u8c61\u9009\u4e00\u4e2a\u6700\u597d\u7684\u540d\u5b57\u5e76\u52a0\u4e0a\u7c7b\u578b\u7684\u540e\u7f00\u3002<\/li>\n
- \u5bf9\u4e8e\u7c7b\u5c5e\u5355\u5143,\u603b\u53ef\u4ee5\u52a0\u4e0a\u5f62\u5982 _Generic \u7684\u540e\u7f00\uff0c\u6240\u4ee5\u5bf9\u4e00\u4e9b\u6216\u8bb8\u591a\u5b9e\u4f8b\u6765\u8bf4\uff0c\u53ef\u4ee5\u4e0d\u6dfb\u52a0\u8be5\u540e\u7f00\u800c\u4f7f\u7528\u4e0e\u5176\u76f8\u540c\u7684\u540d\u5b57\u3002<\/li>\n
- \u5f53\u5b83\u8868\u793a\u4e00\u4e2a\u5e94\u7528\u9886\u57df\u7684\u6982\u5ff5\u65f6\uff0c\u5982 Aircraft_Type\u3002<\/li>\n
- \u5f53\u91cd\u8981\u7684\u8bbe\u8ba1\u51b3\u7b56\u9700\u9ad8\u5ea6\u53ef\u89c1\u65f6\uff1a<\/li>\n<\/ul>\n
\u7c7b\u5c5e\u5f62\u53c2\u7c7b\u578b\u540e\u7f00\u4e3a _Constrained<\/p>\n
\u540e\u7f00\u4e3a _Pointer \u7684\u5b58\u53d6\u7c7b\u578b\u6216\u5176\u5b83\u975e\u76f4\u63a5\u6307\u4ee3\u7684\u5f62\u5f0f\uff1a_Handle \u6216 _Reference<\/p>\n
\u901a\u8fc7 _Or_Wait \u9690\u85cf\u4e86\u53ef\u80fd\u963b\u585e\u7684\u5165\u53e3\u8c03\u7528\u7684\u5b50\u7a0b\u5e8f<\/p>\n
\u5c06\u540d\u5b57\u8868\u8ff0\u51fa\u6765\uff0c\u4f7f\u5f97\u4ece\u4f7f\u7528<\/em>\u7684\u89d2\u5ea6\u770b\uff0c\u5b83\u4eec\u8fd8\u4e0d\u9519\u3002<\/p>\n\u8bd5\u60f3\u4e00\u4e2a\u5bfc\u51fa\u5b9e\u4f53\u53ef\u5728\u5176\u4e2d\u4f7f\u7528\u7684\u4e0a\u4e0b\u6587\uff0c\u5e76\u7ad9\u5728\u90a3\u4e2a\u89d2\u5ea6\u9009\u62e9\u4e00\u4e2a\u540d\u5b57\u3002\u4e00\u4e2a\u5b9e\u4f53\u4ec5\u88ab\u5b9a\u4e49\u4e00\u6b21\uff0c\u4f46\u5374\u88ab\u4f7f\u7528\u8bb8\u591a\u6b21\u3002\u8fd9\u4e00\u70b9\u5bf9\u4e8e\u5b50\u7a0b\u5e8f\u7684\u540d\u5b57\u53ca\u5176\u53c2\u6570\u6765\u8bf4\u5c24\u4e3a\u6b63\u786e\uff1b \u4f7f\u7528\u547d\u540d\u5173\u8054\u5173\u7cfb\u7684\u7ed3\u679c\u8c03\u7528\u5e94\u5c3d\u91cf\u4e0e\u81ea\u7136\u8bed\u8a00\u76f8\u8fd1\u3002\u8bb0\u4f4f\u7f3a\u5c11\u4f7f\u7528<\/em>\u5b50\u53e5\u4f7f\u5f97\u5927\u591a\u6570\u58f0\u660e\u5b9e\u4f53\u5fc5\u987b\u5177\u6709\u53d7\u9650\u540d\u3002\u5bf9\u4e8e\u6709\u53ef\u80fd\u5728\u7c7b\u5c5e\u5355\u5143\u4e2d\u6bd4\u5728\u4eab\u7528\u6a21\u5757\u90a3\u91cc\u4f7f\u7528\u5f97\u8fd8\u591a\u7684\u7c7b\u5c5e\u5f62\u53c2\u6765\u8bf4\uff0c\u5fc5\u987b\u5bfb\u627e\u4e00\u4e2a\u597d\u7684\u534f\u8c03\u529e\u6cd5\uff0c\u4f46\u662f\u7edd\u5bf9\u8981\u4fdd\u8bc1\u5b50\u7a0b\u5e8f\u7684\u5f62\u53c2\u5728\u4eab\u7528\u6a21\u5757\u7aef\u597d\u770b\u3002<\/p>\n\u4f7f\u7528\u82f1\u6587\u5355\u8bcd\u5e76\u62fc\u5199\u6b63\u786e\u3002<\/p>\n
\u8bed\u8a00\u7684\u6df7\u5408\uff08\u5982\u6cd5\u8bed\u548c\u82f1\u8bed\uff09\u5c06\u4f7f\u4ee3\u7801\u96be\u8bfb\uff0c\u6709\u65f6\u4f7f\u6807\u8bc6\u7b26\u7684\u610f\u4e49\u6478\u68f1\u4e24\u53ef\u3002 \u65e2\u7136 Ada \u7684\u5173\u952e\u5b57\u5df2\u662f\u82f1\u6587\u7684\uff0c\u5219\u8981\u6c42\u4f7f\u7528\u82f1\u6587\u5355\u8bcd\u3002\u6700\u597d\u91c7\u7528\u7f8e\u5f0f\u62fc\u6cd5\uff0c\u4ee5\u4fbf\u5229\u7528\u201cRational \u73af\u5883\u201d\u4e2d\u5185\u7f6e\u7684\u62fc\u5199\u68c0\u67e5\u3002<\/p>\n
\u4e0d\u8981\u91cd\u65b0\u5b9a\u4e49 Standard \u7a0b\u5e8f\u5305\u4e2d\u7684\u4efb\u4f55\u5b9e\u4f53\u3002\u8fd9\u662f\u7edd\u5bf9\u7981\u6b62\u7684\u3002<\/p>\n
\u8fd9\u6837\u505a\u5c06\u4ea7\u751f\u6df7\u6dc6\u548c\u4e25\u91cd\u7684\u9519\u8bef\u3002\u8be5\u6cd5\u5219\u53ef\u5ef6\u4f38\u81f3\u5176\u5b83\u9884\u5b9a\u4e49\u7684\u5e93\u5355\u5143\uff1aCalendar\uff0cSystem\u3002\u8fd9\u4e5f\u5305\u62ec Standard<\/em> \u6807\u8bc6\u7b26\u672c\u8eab\u3002<\/p>\n\u907f\u514d\u5bf9\u5176\u5b83\u9884\u5b9a\u4e49\u7a0b\u5e8f\u5305\u4e2d\u7684\u6807\u8bc6\u7b26\u91cd\u5b9a\u4e49\uff0c\u5982 System \u6216 Calendar\u3002<\/p>\n
\u4e0d\u8981\u4f7f\u7528\u5982\u4e0b\u7684\u6807\u8bc6\u7b26\uff1aWide_Character<\/strong> \u548c Wide_String<\/strong>\uff0c\u5b83\u4eec\u5c06\u5728 Ada 95 \u7684 Standard \u7a0b\u5e8f\u5305\u4e2d\u5f15\u5165\u3002\u4e0d\u8981\u5f15\u5165\u4e00\u4e2a\u540d\u4e3a Ada<\/strong> \u7684\u7f16\u8bd1\u5355\u5143\u3002<\/p>\n\u4e0d\u8981\u4f7f\u7528\u4ee5\u4e0b\u5355\u8bcd\u4f5c\u4e3a\u6807\u8bc6\u7b26\uff1aabstract<\/strong>\uff0caliased<\/strong>\uff0cprotected<\/strong>\uff0crequeue<\/strong>\uff0ctagged<\/strong> \u548c until<\/strong>\uff0c\u5b83\u4eec\u5728 Ada 95 \u5c06\u6210\u4e3a\u5173\u952e\u5b57\u3002<\/p>\n\u4e00\u4e9b\u7ed9\u5404\u79cd Ada \u5b9e\u4f53\u7684\u547d\u540d\u5efa\u8bae\u4e5f\u662f\u540c\u6837\u3002\u5047\u5b9a\u4e00\u822c\u60c5\u5f62\u4e0b\uff0c\u201c\u9762\u5411\u5bf9\u8c61\u201d\u98ce\u683c\u7684\u8bbe\u8ba1\u53d7\u6b22\u8fce\u3002\u8be6\u60c5\u8bf7\u53c2\u89c1\u9644\u5f55 A\u3002<\/p>\n
<\/a>\u7a0b\u5e8f\u5305<\/h2>\n\u5f53\u4e00\u4e2a\u7a0b\u5e8f\u5305\u5f15\u5165\u4e86\u67d0\u4e2a\u5bf9\u8c61\u7c7b\u65f6\uff0c\u7528\u8be5\u5bf9\u8c61\u7c7b\u7684\u540d\u5b57\u547d\u540d\u7a0b\u5e8f\u5305\uff0c\u901a\u5e38\u662f\u4e00\u4e2a\u5355\u6570\u5f62\u5f0f\u7684\u540d\u8bcd\uff0c\u82e5\u9700\u8981\uff08\u5373\u5b9a\u4e49\u4e86\u4e00\u4e2a\u5e26\u53c2\u6570\u7684\u7c7b\uff09\uff0c\u53ef\u52a0\u4e0a\u540e\u7f00 _Generic\u3002\u4ec5\u5f53\u5bf9\u8c61\u603b\u4ee5\u7fa4\u4f53\u5f62\u5f0f\u51fa\u73b0\u65f6\uff0c\u624d\u91c7\u7528\u590d\u6570\u5f62\u5f0f\u3002\u4f8b\u5982\uff1a<\/p>\n
package Text is\r\npackage Line is\r\npackage Mailbox is\r\npackage Message is\r\npackage Attributes is\r\npackage Subscriber is\r\npackage List_Generic is<\/pre>\n\u82e5\u4e00\u4e2a\u7a0b\u5e8f\u5305\u8bf4\u660e\u4e86\u4e00\u4e2a\u63a5\u53e3\u6216\u8005\u529f\u80fd\u5206\u7ec4\uff0c\u5e76\u4e14\u5b83\u4e0d\u4e0e\u4efb\u4f55\u5bf9\u8c61\u76f8\u5173\uff0c\u5219\u5e94\u5728\u5b83\u7684\u540d\u5b57\u4e2d\u5c06\u8fd9\u4e00\u70b9\u8868\u8ff0\u51fa\u6765\uff1a<\/p>\n
package Low_Layer_Interface is\r\npackage Math_Definitions is<\/pre>\n\u5f53\u4e00\u4e2a\u201c\u903b\u8f91\u201d\u5305\u7528\u5e73\u9762\u5206\u89e3 (flat decomposition)\uff0c\u9700\u8981\u4f5c\u4e3a\u51e0\u4e2a\u5305\u6765\u8868\u8fbe\u65f6\uff0c\u91c7\u7528\u9879\u76ee\u7ea7\u4e00\u81f4\u7684\u5217\u8868\u4e2d\u7684\u540e\u7f00\u3002\u4f8b\u5982\uff0c\u4e00\u4e2a\u903b\u8f91\u7a0b\u5e8f\u5305 Mailbox \u53ef\u5982\u4e0b\u5b9e\u73b0\uff1a<\/p>\n
package Mailbox_Definitions is\r\npackage Mailbox_Exceptions is\r\npackage Mailbox_Io is\r\npackage Mailbox_Utilities is\r\npackage Mailbox_Implementation is\r\npackage Mailbox_Main is<\/pre>\n\u5176\u5b83\u53ef\u63a5\u53d7\u7684\u540e\u7f00\u6709\uff1a<\/p>\n
_Test_Support \r\n_Test_Main \r\n_Log \r\n_Hidden_Definitions \r\n_Maintenance \r\n_Debug<\/pre>\n<\/a>\u7c7b\u578b<\/h2>\n\u5f53\u5728\u7a0b\u5e8f\u5305\u4e2d\u5b9a\u4e49\u4e00\u4e2a\u5bf9\u8c61\u7c7b\u8574\u6db5\u62f7\u8d1d\u8bed\u4e49\u65f6 – \u5373\u5f53\u7c7b\u578b\u53ef\u5b9e\u4f8b\u5316\u5e76\u4e14\u67d0\u79cd\u5f62\u5f0f\u7684\u4efb\u52a1\u5206\u914d\u53ef\u884c\u65f6\uff0c\u91c7\u7528\uff1a<\/p>\n
type Object is ...<\/pre>\n\u6ce8\u610f\u7c7b\u540d\u4e0d\u5e94\u5728\u6807\u8bc6\u7b26\u4e2d\u91cd\u590d\uff0c\u56e0\u4e3a\u5b83\u603b\u662f\u4ee5\u5b8c\u5168\u53d7\u9650\u7684\u5f62\u5f0f\u4f7f\u7528\uff1a<\/p>\n
Mailbox.Object\r\nLine.Object<\/pre>\n\u5f53\u5305\u542b\u5171\u4eab\u8bed\u4e49\u65f6 – \u5373\u7c7b\u578b\u7528\u5b58\u53d6\u503c\uff08\u6216\u8005\u5176\u5b83\u975e\u76f4\u63a5\u7684\u5f62\u5f0f\uff09\u5b9e\u73b0\uff0c\u5e76\u4e14\u8d4b\u503c\u8bed\u53e5\uff08\u82e5\u5b58\u5728\uff09\u4e0d\u590d\u5236\u5bf9\u8c61 – \u7528\u5982\u4e0b\u65b9\u5f0f\u8bf4\u660e\uff1a<\/p>\n
UL><\/p>\n
\ntype Handle is <\/code>\u7528\u4e8e\u975e\u76f4\u63a5\u5f15\u7528<\/li>\ntype Reference is <\/code>\u662f\u4e00\u4e2a\u53ef\u884c\u7684\u5907\u7528\u65b9\u6848<\/li>\n<\/ul>\n\u8fd9\u4e9b\u5143\u7d20\u5728\u5355\u72ec\u4f7f\u7528\u65f6\u4f5c\u540e\u7f00\uff0c\u524d\u9762\u52a0\u4e0a\u5305\u540d\uff0c\u8fd9\u6837\u5e76\u4e0d\u6e05\u695a\u6216\u975e\u5e38\u6478\u68f1\u4e24\u53ef\u3002<\/p>\n
\u5f53\u8574\u6db5\u591a\u4e2a\u5bf9\u8c61\u65f6\uff0c\u91c7\u7528\uff1a<\/p>\n
\ntype Set is <\/code>\u5f53\u6697\u542b\u5143\u7d20\u7684\u7279\u6b8a\u6027\u65f6<\/li>\ntype List is <\/code>\u5f53\u5305\u542b\u67d0\u79cd\u6b21\u5e8f\u65f6<\/li>\ntype Collection is<\/code> \u5f53\u65e2\u4e0d\u542b\u96c6\u5408\u4e5f\u4e0d\u542b\u5217\u8868\u8bed\u4e49\u65f6<\/li>\ntype Iterator is<\/code> \u5f53\u63d0\u4f9b\u4e86 Initialize\uff0cValue_Of\uff0cNext\uff0cIs_Done \u7b49\u539f\u8bed\u65f6
\n\uff08\u53c2\u89c1 6.5 \u8282\uff09<\/li>\n<\/ul>\n\u5bf9\u4e8e\u67d0\u4e2a\u5bf9\u8c61\u4e32\u7684\u6307\u5b9a\uff0c\u91c7\u7528\uff1a<\/p>\n
type Name is<\/code><\/p>\n\u4e3a\u4e86\u8fbe\u5230\u66f4\u597d\u7684\u6613\u8bfb\u6027\uff0c\u7c7b\u578b\u7684\u53d7\u9650\u540d\u4e5f\u5e94\u5728\u6574\u4e2a\u5b9a\u4e49\u5305\u5185\u4f7f\u7528\u3002\u201cRational \u73af\u5883\u201d\u4e2d\uff0c\u5f53\u5728\u5b50\u7a0b\u5e8f\u8c03\u7528\u4e2d\u91c7\u7528 [Complete] \u51fd\u6570\u65f6\uff0c\u4e0a\u8ff0\u65b9\u6cd5\u4e5f\u53ef\u4f7f\u8fd0\u884c\u66f4\u52a0\u597d\u3002<\/p>\n
\u4f8b\u5982\uff0c\u6ce8\u610f\u4e0b\u9762\u7684\u5b8c\u5168\u540d Subscriber.Object\uff1a<\/p>\n
package Subscriber is\r\ntype Object is private;\r\ntype Handle is access Subscriber.Object;\r\nsubtype Name is String;\r\npackage List is new List_Generic (Subscriber.Handle);\r\nMaster_List : Subscriber.List.Handle;\r\nprocedure Create (The_Handle : out Subscriber.Handle;\r\nWith_Name : in Subscriber.Name);\r\nprocedure Append (The_Subscriber : in Subscriber.Handle;\r\nTo_List : in out Subscriber.List.Handle);\r\nfunction Name_Of (The_Subscriber : Subscriber.Handle) return\r\nSubscriber.Name;\r\n ...\r\nprivate\r\ntype Object is\r\nrecord\r\nThe_Name : Subscriber.Name (1..20);\r\n ...\r\nend Subscriber;<\/pre>\n\u5728\u5176\u5b83\u60c5\u51b5\u4e0b\uff0c\u7c7b\u540d\u91c7\u7528\u540d\u8bcd\u6216\u8005\u4fee\u9970\u7b26 + \u540d\u8bcd\u3002\u7c7b\u578b\u53ef\u7528\u590d\u6570\u5f62\u5f0f\uff0c\u5bf9\u8c61\uff08\u53d8\u91cf\uff09\u540d\u91c7\u7528\u5355\u6570\uff1a<\/p>\n
type Point is record ...\r\ntype Hidden_Attributes is ( ...\r\ntype Boxes is array ...<\/pre>\n\u5bf9\u4e8e\u679a\u4e3e\u7c7b\u578b\uff0c\u5355\u72ec\u6216\u8005\u4f5c\u4e3a\u540e\u7f00\u4f7f\u7528 Mode\uff0cKind\uff0cCode \u7b49\u5355\u8bcd\u3002<\/p>\n
\u5bf9\u4e8e\u6570\u7ec4\u7c7b\u578b\uff0c\u5f53\u5df2\u5c06\u7b80\u5355\u540d\u7528\u4e8e\u7ec4\u4ef6\u7c7b\u578b\u65f6\uff0c\u53ef\u4ee5\u91c7\u7528\u540e\u7f00 _Table\u3002\u4ec5\u5f53\u6570\u7ec4\u7528\u8574\u6db5\u8bed\u4e49\u6765\u7ef4\u62a4\u65f6\uff0c\u624d\u91c7\u7528\u8c61 _Set \u548c _List \u8fd9\u6837\u7684\u540d\u5b57\u6216\u540e\u7f00\u3002Reserve _Vector \u548c _Matrix \u5e94\u7559\u4f5c\u76f8\u5e94\u7684\u6570\u5b66\u6982\u5ff5\u4f7f\u7528\u3002<\/p>\n
\u56e0\u4e3a\u8981\u907f\u514d\u5355\u6570\u7684\u4efb\u52a1\u5bf9\u8c61\uff08\u539f\u56e0\u5728\u540e\u6587\u89e3\u91ca\uff09\uff0c\u6240\u4ee5\u5373\u4f7f\u53ea\u6709\u4e00\u4e2a\u8be5\u7c7b\u578b\u7684\u5bf9\u8c61\u65f6\uff0c\u4e5f\u5e94\u5f15\u5165\u4efb\u52a1\u7c7b\u578b\u3002\u4e0b\u9762\u662f\u4f7f\u7528\u4e86\u4e00\u4e2a\u8c61 _Type \u8fd9\u6837\u7684\u7b80\u5355\u540e\u7f00\u4e4b\u540e\u4fbf\u4ee4\u4eba\u6ee1\u610f\u7684\u4f8b\u5b50\uff1a<\/p>\n
task type Listener_Type is ...\r\nfor Listener_Type'Storage_Size use ...\r\nListener : Listener_Type;<\/pre>\n\u7c7b\u4f3c\u5730\uff0c\u5f53\u7c7b\u578b\u540d\u91c7\u7528\u540d\u8bcd\uff08\u6216\u8005\u540d\u8bcd\u77ed\u8bed\uff09\u5b58\u5728\u51b2\u7a81\u65f6\uff0c\u6216\u8005\u51e0\u5904\u7684\u5bf9\u8c61\u540d\u6216\u53c2\u6570\u540d\u6709\u51b2\u7a81\u65f6\uff0c\u5728\u8be5\u7c7b\u578b\u540d\u540e\u52a0\u4e0a\u540e\u7f00 _Kind\uff0c\u800c\u8ba9\u5bf9\u8c61\u4f7f\u7528\uff08\u65e0\u540e\u7f00\u7684\uff09\u7b80\u5355\u540d\u8bcd\uff1a<\/p>\n
type Status_Kind is (None, Normal, Urgent, Red);\r\nStatus : Status_Kind := None;<\/pre>\n\u6216\u8005\uff0c\u5bf9\u4e8e\u603b\u4ee5\u590d\u6570\u51fa\u73b0\u7684\u4e8b\u7269\u7684\u7c7b\u578b\uff0c\u91c7\u7528\u590d\u6570\u5f62\u5f0f\u3002<\/p>\n
\u56e0\u4e3a\u5b58\u53d6\u7c7b\u578b\u5b58\u5728\u56fa\u6709\u7684\u5371\u5bb3\uff0c\u6240\u4ee5\u4f7f\u7528\u8005\u5e94\u5c0f\u5fc3\u3002\u4e00\u822c\u5b83\u4eec\u53eb\u505a Pointer\u3002\u5982\u679c\u540d\u5b57\u672c\u8eab\u610f\u4e49\u8fd8\u5f88\u6478\u68f1\u4e24\u53ef\uff0c\u5219\u5e94\u52a0\u4e0a\u540e\u7f00 _pointer\u3002\u4f5c\u4e3a\u540e\u5907\u65b9\u6848\uff0c\u4e5f\u53ef\u91c7\u7528 _Access \u505a\u540e\u7f00\u3002<\/p>\n
\u6709\u65f6\u91c7\u7528\u5d4c\u5957\u5b50\u7a0b\u5e8f\u5305\u6765\u5f15\u5165\u6b21\u7ea7\u62bd\u8c61\u53ef\u4ee5\u7b80\u5316\u547d\u540d\uff1a<\/p>\n
package Subscriber is ...\r\npackage Status is\r\ntype Kind is (Ok, Deleted, Incomplete, Suspended, \r\nPrivileged);\r\nfunction Set (The_Status : Subscriber.Status.Kind;\r\nTo_Subscriber : Subscriber.Handle);\r\nend Status;\r\n ...<\/pre>\n<\/a>\u5f02\u5e38<\/h2>\n\u56e0\u4e3a\u5f02\u5e38\u53ea\u80fd\u7528\u6765\u5904\u7406\u9519\u8bef\uff0c\u6240\u4ee5\u5e94\u4f7f\u7528\u540d\u8bcd\u6216\u540d\u8bcd\u77ed\u8bed\u6765\u6e05\u695a\u8868\u8fbe\u4e00\u4e2a\u8d1f\u9762\u7684\u610f\u4e49\uff1a<\/p>\n
Overflow, Threshold_Exceeded, Bad_Initial_Value<\/pre>\n\u5f53\u5728\u4e00\u4e2a\u7c7b\u7a0b\u5e8f\u5305\u4e2d\u5b9a\u4e49\u5f02\u5e38\u65f6\uff0c\u6807\u8bc6\u7b26\u65e0\u9700\u5305\u542b\u7c7b\u540d – \u4f8b\u5982 Bad_Initial_Subscriber_Value – \u56e0\u4e3a\u5f02\u5e38\u4e00\u76f4\u88ab\u7528\u4f5c Subscriber.Bad_Initial_Value\u3002<\/p>\n
\u91c7\u7528 Bad\uff0cIncomplete\uff0cInvalid\uff0cWrong\uff0cMissing \u6216\u8005 Illegal \u4e2d\u7684\u4e00\u4e2a\u5355\u8bcd\u4f5c\u4e3a\u540d\u5b57\u7684\u4e00\u90e8\u5206\uff0c\u800c\u4e0d\u662f\u7cfb\u7edf\u5730\u91c7\u7528\u4e0d\u4f20\u8fbe\u4efb\u4f55\u8be6\u7ec6\u4fe1\u606f\u7684 Error\uff1a<\/p>\n
Illegal_Data, Incomplete_Data<\/pre>\n<\/a>\u5b50\u7a0b\u5e8f<\/h2>\n\u8fc7\u7a0b\uff08\u548c\u4efb\u52a1\u5165\u53e3\uff09\u91c7\u7528\u52a8\u8bcd\u3002\u51fd\u6570\u540d\u91c7\u7528\u5e26\u6709\u5bf9\u8c61\u7c7b\u5c5e\u6027\u6216\u7279\u5f81\u7684\u540d\u8bcd\u3002\u8fd4\u56de\u5e03\u5c14\u503c\uff08\u8c13\u8bcd\uff09\u7684\u51fd\u6570\u4f7f\u7528\u5f62\u5bb9\u8bcd\uff08\u6216\u8fc7\u53bb\u5206\u8bcd\uff09\u3002<\/p>\n
Subscriber.Create\r\nSubscriber.Destroy\r\nSubscriber.List.Append\r\nSubscriber.First_Name -- Returns a string.\r\nSubscriber.Creation_Date -- Returns a date.\r\nSubscriber.List.Next\r\nSubscriber.Deleted -- Returns a Boolean.\r\nSubscriber.Unavailable -- Returns a Boolean.\r\nSubscriber.Remote<\/pre>\n\u5bf9\u4e8e\u8c13\u8bcd\uff0c\u5728\u4e00\u4e9b\u60c5\u51b5\u4e0b\u7ed9\u540d\u8bcd\u524d\u9762\u52a0\u4e0a\u524d\u7f00 Is_ \u6216 Has_ \u6216\u8bb8\u6709\u5e2e\u52a9\uff1b\u65f6\u6001\u8981\u51c6\u786e\u548c\u4e00\u81f4\uff1a<\/p>\n
function Has_First_Name ...\r\nfunction Is_Administrator ...\r\nfunction Is_First...\r\nfunction Was_Deleted ...<\/pre>\n\u5f53\u7b80\u5355\u540d\u79f0\u5df2\u4f5c\u4e3a\u7c7b\u578b\u540d\u6216\u679a\u4e3e\u578b\u76f4\u63a5\u91cf\u65f6\uff0c\u4e0a\u8ff0\u65b9\u6cd5\u6709\u7528\u3002<\/p>\n
\u8c13\u8bcd\u5e94\u4f7f\u7528\u80af\u5b9a\u5f0f\uff0c\u4e5f\u5c31\u662f\u8bf4\uff0c\u5176\u4e2d\u4e0d\u5e94\u542b\u6709\u201cNot_\u201d\u4e00\u8bcd\u3002<\/p>\n
\u5bf9\u4e8e\u666e\u901a\u64cd\u4f5c\uff0c\u7edf\u4e00\u4ece\u9879\u76ee\u53ef\u9009\u5217\u8868\uff08\u5217\u8868\u968f\u7740\u6211\u4eec\u5bf9\u7cfb\u7edf\u8ba4\u8bc6\u7684\u52a0\u6df1\u800c\u6269\u5c55\uff09\u4e2d\u9009\u62e9\u52a8\u8bcd\uff1a<\/p>\n
Create\r\nDelete\r\nDestroy\r\nInitialize\r\nAppend\r\nRevert\r\nCommit\r\nShow, Display<\/pre>\n\u8c13\u8bcd\u51fd\u6570\u548c\u5e03\u5c14\u578b\u7684\u53c2\u6570\u91c7\u7528\u80af\u5b9a\u5f0f\u3002\u5426\u5b9a\u5f0f\u7684\u540d\u5b57\u53ef\u80fd\u4ea7\u751f\u53cc\u91cd\u5426\u5b9a\uff08\u4f8b\u5982 Not Is_Not_Found\uff09\uff0c\u4ece\u800c\u4f7f\u4ee3\u7801\u96be\u8bfb\u3002<\/p>\n
function Is_Not_Valid (...) return Boolean\r\nprocedure Find_Client (With_The_Name : in Name;\r\nNot_Found : out Boolean)<\/pre>\n\u5e94\u5b9a\u4e49\u6210\uff1a<\/p>\n
function Is_Valid (...) return Boolean;\r\nprocedure Find_Client (With_The_Name: in Name;\r\nFound: out Boolean)<\/pre>\n\u8fd9\u624d\u8ba9\u4eab\u7528\u6a21\u5757\u6309\u5176\u6240\u9700\u7684\u90a3\u6837\u5b9e\u73b0\u4e86\u8868\u8fbe\u5f0f\u7684\u5426\u5b9a\uff08\u8fd9\u6837\u505a\u4e0d\u4f1a\u5bfc\u81f4\u8fd0\u884c\u65f6\u95f4\u5ef6\u957f\uff09\uff1a<\/p>\n
if not Is_Valid (...) then ....<\/pre>\n\u6709\u4e9b\u60c5\u51b5\u4e0b\uff0c\u901a\u8fc7\u4f7f\u7528\u53cd\u4e49\u8bcd\uff0c\u5982\u7528\u201cIs_Invalid\u201d\u6765\u4ee3\u66ff\u201cIs_Not_Valid\u201d\uff0c\u53ef\u4ee5\u4f7f\u5426\u5b9a\u8c13\u8bcd\u5728\u4e0d\u6539\u53d8\u8bed\u4e49\u7684\u60c5\u51b5\u4e0a\u53d8\u6210\u80af\u5b9a\u5f0f\u3002\u4f46\u662f\uff0c\u80af\u5b9a\u5f0f\u7684\u540d\u5b57\u66f4\u6613\u8bfb\uff1a \u201cIs_Valid\u201d\u6bd4\u201cnot Is_Invalid\u201d\u66f4\u6613\u7406\u89e3\u3002<\/p>\n
\u5f53\u8574\u6db5\u7740\u5927\u81f4\u76f8\u540c\u7684\u610f\u4e49\u65f6\uff0c\u91c7\u7528\u76f8\u540c\u7684\u5355\u8bcd\uff0c\u800c\u4e0d\u662f\u5bfb\u627e\u540c\u4e49\u8bcd\u6216\u53d8\u4f53\u3002\u56e0\u6b64\uff0c\u9f13\u52b1\u4f7f\u7528\u91cd\u8f7d\u6765\u63d0\u9ad8\u4ee3\u7801\u7684\u4e00\u81f4\u6027\uff0c\u9075\u5faa\u6700\u5c0f\u9650\u5ea6\u610f\u5916\u539f\u5219\u3002<\/p>\n
\u82e5\u5b50\u7a0b\u5e8f\u88ab\u7528\u505a\u5165\u53e3\u8c03\u7528\u7684\u201c\u5916\u8868\u201d (skins) \u6216\u8005\u201c\u5305\u88c5\u201d (wrappers)\uff0c\u5219\u7ed9\u5176\u540d\u5b57\u52a8\u8bcd\u52a0\u4e0a\u540e\u7f00 _Or_Wait\uff0c\u6216\u8005\u7ed9\u51fd\u6570\u53d6\u4e2a Wait_For_ \u77ed\u8bed\u52a0\u540d\u8bcd\u7684\u540d\u5b57\u6765\u53cd\u6620\u8fd9\u4e00\u70b9\uff0c\u8fd9\u6837\u53ef\u80fd\u6709\u7528\uff1a<\/p>\n
Subscriber.Get_Reply_Or_Wait\r\nSubscriber.Wait_For_Reply<\/pre>\n\u4e00\u4e9b\u64cd\u4f5c\u5e94\u4e00\u76f4\u4f7f\u7528\u76f8\u540c\u7684\u540d\u5b57\u6765\u7edf\u4e00\u5b9a\u4e49\uff1a<\/p>\n
\u5bf9\u4e8e\u8f6c\u6362\u5230\u5b57\u4e32\u548c\u4ece\u5b57\u4e32\u8f6c\u6362\u6765\u7684\u7c7b\u578b\u53d8\u6362\uff0c\u5bf9\u79f0\u51fd\u6570\u662f\uff1a<\/p>\n
function Image and function Value<\/pre>\n\u5bf9\u4e8e\u8f6c\u6362\u5230\u4f4e\u7ea7\u8868\u793a\u6cd5\uff08\u5982\u7528\u4e8e\u6570\u636e\u4ea4\u6362\u7684 Byte_String\uff09\u548c\u4ece\u4f4e\u7ea7\u8868\u793a\u6cd5\u8f6c\u6362\u8fc7\u6765\u7684\u7c7b\u578b\u53d8\u6362\uff0c\u5bf9\u79f0\u8fc7\u7a0b\u662f\uff1a<\/p>\n
procedure Read and Write<\/pre>\n\u5bf9\u4e8e\u5206\u914d\u6570\u636e\uff1a<\/p>\n
function Allocate (rather than Create)\r\nfunction Destroy (or Release, to express that the object will disappear)<\/pre>\n\u5f53\u7cfb\u7edf\u5730\u5904\u7406\u5b83\u4eec\u65f6\u91c7\u7528\u7edf\u4e00\u7684\u547d\u540d\uff0c\u7c7b\u578b\u5408\u6210\u5c06\u5bb9\u6613\u8bb8\u591a\u3002<\/p>\n
\u5bf9\u4e8e\u6d3b\u52a8\u7684\u8fed\u4ee3\u7a0b\u5e8f\uff0c\u5fc5\u987b\u5b9a\u4e49\u4ee5\u4e0b\u539f\u8bed\uff1a<\/p>\n
Initialize\r\nNext\r\nIs_Done\r\nValue_Of<\/pre>\n\u82e5\u53ef\u884c\uff0c\u8fd8\u8981\u5b9a\u4e49 Reset<\/code>\u3002\u82e5\u8981\u5728\u76f8\u540c\u7684\u4f5c\u7528\u57df\u8303\u56f4\u5185\u5f15\u5165\u51e0\u4e2a\u8fed\u4ee3\u7c7b\u578b\uff0c\u90a3\u4e48\u5e94\u91cd\u8f7d\u8fd9\u4e9b\u539f\u8bed\uff0c\u800c\u4e0d\u662f\u4e3a\u6bcf\u4e2a\u8fed\u4ee3\u7a0b\u5e8f\u5206\u522b\u5f15\u5165\u4e00\u5957\u5404\u4e0d\u76f8\u540c\u7684\u6807\u8bc6\u7b26\u3002\u53c2\u89c1 [BOO87]<\/a>\u3002<\/p>\n\u5f53\u91c7\u7528 Ada \u9884\u786e\u5b9a\u5c5e\u6027\u4f5c\u4e3a\u51fd\u6570\u540d\u65f6\uff0c\u8981\u4fdd\u8bc1\u5176\u7528\u6cd5\u4e0e\u4e00\u822c\u7684\u8bed\u4e49\u76f8\u540c\uff1a’First\uff0c’Last\uff0c’Length\uff0c’Image\uff0c’Value\uff0c\u7b49\u7b49\u3002 \u6ce8\u610f\uff0c\u51e0\u4e2a\u5c5e\u6027\uff08\u5982 ‘Range \u548c ‘Delta\uff09\u662f\u4e0d\u80fd\u7528\u505a\u51fd\u6570\u540d\u7684\uff0c\u56e0\u4e3a\u5b83\u4eec\u662f\u4fdd\u7559\u5b57\u3002<\/p>\n
<\/a>\u5bf9\u8c61\u548c\u5b50\u7a0b\u5e8f\uff08\u6216\u5165\u53e3\uff09\u53c2\u6570<\/h2>\n\u4e3a\u8868\u660e\u5176\u552f\u4e00\u6027\u6216\u662f\u8868\u660e\u8be5\u5b9e\u4f53\u662f\u6d3b\u52a8\u7684\u4e3b\u8981\u805a\u96c6\u5904\uff0c\u5728\u5bf9\u8c61\u6216\u53c2\u6570\u540d\u79f0\u524d\u52a0\u524d\u7f00\u201cThe\u201d\u6216\u201cThis\u201d\u3002\u8981\u8bf4\u660e\u4e00\u4e2a\u6b21\u8981\u3001\u4e34\u65f6\u3001\u8f85\u52a9\u7684\u5bf9\u8c61\uff0c\u5219\u52a0\u524d\u7f00\u201cA_\u201d\u6216\u201cCurrent_\u201d\uff1a<\/p>\n
procedure Change_Name (The_Subscriber : in Subscriber.Handle;\r\nThe_Name : in Subscriber.Name );\r\ndeclare\r\nA_Subscriber : Subscriber.Handle := Subscriber.First;\r\nbegin\r\n ...\r\nA_Subscriber := Subscriber.Next (The_Subscriber);\r\nend;<\/pre>\n\u5bf9\u4e8e\u5e03\u5c14\u578b\u7684\u5bf9\u8c61\uff0c\u91c7\u7528\u80af\u5b9a\u5f0f\u7684\u8c13\u8bcd\u5b50\u53e5\uff1a<\/p>\n
Found_It\r\nIs_Available<\/pre>\n\u4f46\u662f\uff1a<\/p>\n
Is_Not_Available<\/code> \u5fc5\u987b\u907f\u514d\u3002<\/p>\n\u5bf9\u4e8e\u4efb\u52a1\u5bf9\u8c61\uff0c\u5e94\u91c7\u7528\u4e00\u4e2a\u8574\u6db5\u4e86\u6d3b\u52a8\u5b9e\u4f53\u7684\u540d\u8bcd\u6216\u8005\u540d\u8bcd\u77ed\u8bed\uff1a<\/p>\n
Listener\r\nResource_Manager\r\nTerminal_Driver<\/pre>\n
\u7a0b\u5e8f\u5305\u7684\u5206\u89e3<\/a>
\n\u58f0\u660e\u90e8\u5206\u7684\u7ed3\u6784<\/a>
\n\u4e0a\u4e0b\u6587\u5b50\u53e5<\/a>
\n\u786e\u7acb\u987a\u5e8f<\/a><\/h4>\n\u5e76\u884c<\/a><\/h3>\n\u9519\u8bef\u5904\u7406\u4e0e\u5f02\u5e38<\/a><\/h3>\n\u4f4e\u7ea7\u7f16\u7a0b<\/a><\/h3>\n\u8868\u793a\u5b50\u53e5\u548c\u5c5e\u6027<\/a>
\n\u65e0\u68c0\u67e5\u8f6c\u6362<\/a><\/h4>\n\u603b\u7ed3<\/a><\/h3>\n\u53c2\u8003\u6587\u732e<\/a><\/h3>\n\u8bcd\u6c47\u8868<\/a><\/h3>\n
\n<\/a>\u7b2c\u4e00\u7ae0<\/em><\/h2>\n\u5173\u4e8e\u672c\u6587\u6863<\/h1>\n
\u672c\u6587\u6863 Rational Unified Process – Ada \u7f16\u7a0b\u6307\u5357<\/em>\u662f\u4e00\u4e2a\u6807\u51c6\u7684\u6a21\u677f\uff0c\u4f60\u7684\u5f00\u53d1\u7ec4\u7ec7\u53ef\u4f9d\u6b64\u6d3e\u751f\u51fa\u4e00\u5957\u7a0b\u5e8f\u8bbe\u8ba1\u6807\u51c6\u3002\u8be5\u6307\u5357\u8be6\u7ec6\u8bf4\u660e\u4e86\u5e94\u5982\u4f55\u7f16\u5199 Ada \u7a0b\u5e8f\u3002\u672c\u6587\u670d\u52a1\u7684\u5bf9\u8c61\u662f\u6240\u6709\u5c06 Ada \u4f5c\u4e3a\u5b9e\u65bd\u8bed\u8a00\u6216\u8005\u4e00\u79cd\u8bf4\u660e\u63a5\u53e3\u6216\u6570\u636e\u7ed3\u6784\u7684\u8bbe\u8ba1\u8bed\u8a00\u7684\u5e94\u7528\u8f6f\u4ef6\u8bbe\u8ba1\u8005\u548c\u5f00\u53d1\u8005\u3002<\/p>\n\u6587\u4e2d\u6240\u63cf\u8ff0\u7684\u89c4\u5219\u56ca\u62ec\u4e86\u7a0b\u5e8f\u8bbe\u8ba1\u7684\u5927\u90e8\u5206\u65b9\u9762\u3002\u901a\u7528\u89c4\u5219\u9002\u7528\u4e8e\u7a0b\u5e8f\u5e03\u5c40\u3001\u547d\u540d\u7ea6\u5b9a\u548c\u6ce8\u91ca\u5e94\u7528\u3002\u7279\u6b8a\u89c4\u5219\u9002\u7528\u4e8e\u9009\u5b9a\u7684 Ada \u7279\u6027\uff0c\u5e76\u8bf4\u660e\u4e86\u7981\u7528\u6784\u9020\u3001\u63a8\u8350\u4f7f\u7528\u6a21\u5f0f\u548c\u7528\u4ee5\u63d0\u9ad8\u7a0b\u5e8f\u8d28\u91cf\u7684\u901a\u7528\u6280\u5de7\u3002<\/p>\n
\u9879\u76ee\u7684\u8bbe\u8ba1<\/em>\u6307\u5357\u548c\u5f53\u524d\u7684\u7f16\u7a0b<\/em>\u6307\u5357\u6709\u4e00\u5b9a\u7684\u91cd\u590d\uff0c\u662f\u6709\u610f\u8fd9\u6837\u505a\u7684\u3002\u4ecb\u7ecd\u7684\u8bb8\u591a\u7a0b\u5e8f\u8bbe\u8ba1\u89c4\u5219\uff0c\u5c24\u5176\u662f\u5728\u547d\u540d\u7ea6\u5b9a<\/em>\u4e2d\u7684\u89c4\u5219\uff0c\u7528\u4e8e\u79ef\u6781\u652f\u6301\u548c\u52a0\u5f3a\u8f6f\u4ef6\u8bbe\u8ba1\u4e2d\u7684\u9762\u5411\u5bf9\u8c61<\/em>\u65b9\u5f0f\u3002<\/p>\n\u6307\u5357\u6700\u521d\u7528\u4e8e Ada 83\u3002\u5b83\u542b\u6709\u4e0e Ada 95 \u517c\u5bb9\u7684\u89c4\u5219\uff0c\u4f46\u4e0d\u542b\u6709\u6539\u7248\u540e\u8bed\u8a00\u6807\u51c6\u65b0\u7279\u6027\u7684\u4f7f\u7528\u6307\u5357\uff0c\u4f8b\u5982\u6807\u8bc6\u7c7b\u578b\u3001\u5b50\u5355\u5143\u6216\u5c0f\u6570\u7c7b\u578b\u3002<\/p>\n
\u6587\u6863\u5927\u81f4\u6309\u7167 Ada Reference Manual \u7684\u7ed3\u6784\u6765\u7ec4\u7ec7 [ISO 8052]<\/a>\u3002<\/p>\n\u7b2c\u4e8c\u7ae0\u201c\u7b80\u4ecb<\/em>\u201d\u89e3\u91ca\u4e86\u6307\u5357\u6240\u57fa\u4e8e\u7684\u57fa\u672c\u539f\u7406\u5e76\u4ecb\u7ecd\u4e86\u6307\u5357\u5206\u7c7b\u3002<\/p>\n\u7b2c\u4e09\u7ae0\u201c\u4ee3\u7801\u5e03\u5c40<\/em>\u201d\u8bb2\u8ff0\u4e86\u7a0b\u5e8f\u6587\u672c\u7684\u4e00\u822c\u89c6\u89c9\u7ec4\u7ec7\u7ed3\u6784\u3002<\/p>\n\u7b2c\u56db\u7ae0\u201c\u6ce8\u91ca<\/em>\u201d\u7ed9\u51fa\u4e86\u5982\u4f55\u7528\u7ed3\u6784\u5316\u7684\u3001\u53ef\u7528\u7684\u548c\u53ef\u7ef4\u62a4\u7684\u65b9\u5f0f\u6765\u6ce8\u91ca\u8bf4\u660e\u4ee3\u7801\u3002<\/p>\n\u7b2c\u4e94\u7ae0\u201c\u547d\u540d\u7ea6\u5b9a<\/em>\u201d\u7ed9\u51fa\u6709\u5173\u547d\u540d\u8bed\u8a00\u5b9e\u4f53\u7684\u4e00\u822c\u89c4\u5219\u548c\u8303\u4f8b\u3002\u8fd9\u4e00\u7ae0\u7684\u5185\u5bb9\u5e94\u518d\u7ecf\u4fee\u6539\uff0c\u4ee5\u6ee1\u8db3\u7279\u5b9a\u9879\u76ee\u6216\u673a\u6784\u7684\u9700\u8981\u3002<\/p>\n\u7b2c\u516d\u7ae0\u201c\u58f0\u660e<\/em>\u201d\u548c\u7b2c\u4e03\u7ae0\u201c\u8868\u8fbe\u5f0f\u548c\u8bed\u53e5<\/em>\u201d\u5bf9\u6bcf\u79cd\u8bed\u8a00\u7ed3\u6784\u7ed9\u51fa\u4e86\u8fdb\u4e00\u6b65\u7684\u5efa\u8bae\u3002<\/p>\n\u7b2c\u516b\u7ae0\u201c\u53ef\u89c6\u6027\u95ee\u9898<\/em>\u201d\u548c\u7b2c\u4e5d\u7ae0\u201c\u7a0b\u5e8f\u7ed3\u6784\u548c\u7f16\u8bd1\u95ee\u9898<\/em>\u201d\u7ed9\u51fa\u4e86\u6709\u5173\u5168\u5c40\u6784\u5efa\u548c\u7a0b\u5e8f\u7ec4\u6210\u7684\u6307\u5bfc\u3002<\/p>\n\u7b2c\u5341\u7ae0\u201c\u5e76\u884c<\/em>\u201d\u5904\u7406\u8bed\u8a00\u4e2d\u6709\u5173\u4f7f\u7528\u4efb\u52a1\u548c\u65f6\u95f4\u76f8\u5173\u7279\u6027\u7684\u4e13\u95e8\u95ee\u9898\u3002<\/p>\n\u7b2c\u5341\u4e00\u7ae0\u201c\u9519\u8bef\u5904\u7406\u548c\u5f02\u5e38<\/em>\u201d\u7ed9\u51fa\u5982\u4f55\u7cfb\u7edf\u5730\u3001\u7b80\u4fbf\u5730\u4f7f\u7528\u6216\u4e0d\u4f7f\u7528\u5f02\u5e38\u6765\u5904\u7406\u9519\u8bef\u3002<\/p>\n\u7b2c\u5341\u4e8c\u7ae0\u201c\u4f4e\u7ea7\u7f16\u7a0b<\/em>\u201d\u5904\u7406\u8868\u793a\u5b50\u53e5\u7684\u95ee\u9898\u3002<\/p>\n\u7b2c\u5341\u4e09\u7ae0\u201c\u603b\u7ed3<\/em>\u201d\u627c\u8981\u590d\u8ff0\u4e86\u6700\u4e3a\u91cd\u8981\u7684\u6307\u5bfc\u65b9\u9488\u3002<\/p>\n\u672c\u6587\u6863\u53d6\u4ee3\u4e86 Ada Guidelines: Recommendation for Designers and programmers<\/em> \u4e2d\u7684 Application Note #15, Rational, Santa Clara, CA., 1990\u3002<\/p>\n
\n<\/a>\u7b2c\u4e8c\u7ae0<\/em><\/h2>\n\u7b80\u4ecb<\/h1>\n\u57fa\u672c\u539f\u5219<\/h2>\n
Ada \u8bed\u8a00\u7684\u8bbe\u8ba1\u5f88\u6709\u9488\u5bf9\u6027\u7684\u76ee\u7684\u5c31\u662f\u652f\u6301\u9ad8\u8d28\u91cf\u3001\u53ef\u9760\u3001\u53ef\u590d\u7528\u548c\u53ef\u79fb\u690d\u8f6f\u4ef6 [ISO 87, sect. 1.3]<\/a>\u3002\u7136\u800c\uff0c\u6ca1\u6709\u54ea\u4e00\u79cd\u8bed\u8a00\u4ec5\u9760\u5176\u672c\u8eab\u5c31\u53ef\u4ee5\u5b9e\u73b0\u4e0a\u8ff0\u76ee\u6807\u3002\u7a0b\u5e8f\u8bbe\u8ba1\u5fc5\u987b\u662f\u4e00\u4e2a\u6709\u826f\u597d\u89c4\u8303\u7684\u8fc7\u7a0b\u7684\u4e00\u90e8\u5206\u3002<\/p>\n\u6e05\u695a\u660e\u767d\u7684 Ada \u6e90\u4ee3\u7801\u662f\u672c\u6587\u4e2d\u5927\u591a\u6570\u6307\u5bfc\u65b9\u9488\u7684\u4e3b\u8981\u76ee\u6807\u3002\u8fd9\u4e00\u70b9\u662f\u5b9e\u73b0\u53ef\u9760\u6027\u548c\u53ef\u7ef4\u62a4\u6027\u7684\u4e3b\u8981\u56e0\u7d20\u3002\u6240\u8c13\u6e05\u695a\u660e\u767d\u7684\u4ee3\u7801\u53ef\u4ee5\u4ece\u4ee5\u4e0b\u4e09\u6761\u7b80\u5355\u7684\u57fa\u672c\u539f\u5219\u4e0a\u6765\u7406\u89e3\u3002<\/p>\n
\u6700\u5c0f\u9650\u5ea6\u7684\u610f\u5916<\/h3>\n
\u5728\u5176\u751f\u547d\u671f\u5185\uff0c\u4ee3\u7801\u66f4\u591a\u5730\u662f\u88ab\u8bfb\uff0c\u800c\u4e0d\u662f\u88ab\u5199\uff0c\u5c24\u5176\u662f\u5b83\u7684\u8bf4\u660e\u90e8\u5206\u3002\u7406\u60f3\u60c5\u51b5\u4e0b\uff0c\u4ee3\u7801\u8bfb\u8d77\u6765\u5e94\u8be5\u8c61\u4e00\u7bc7\u8bf4\u660e\u5b83\u505a\u4e86\u4ec0\u4e48\u7684\u82f1\u6587\u63cf\u8ff0\uff0c\u5b83\u5177\u6709\u4e00\u4e2a\u9644\u52a0\u4f18\u70b9\u662f\u53ef\u4ee5\u6267\u884c\u3002 \u7a0b\u5e8f\u66f4\u591a\u662f\u4e3a\u4eba\u7f16\u5199\uff0c\u800c\u4e0d\u662f\u4e3a\u8ba1\u7b97\u673a\u7f16\u5199\u3002\u9605\u8bfb\u7f16\u7801\u662f\u4e00\u4e2a\u590d\u6742\u7684\u8111\u529b\u8fc7\u7a0b\uff0c\u5b83\u53ef\u901a\u8fc7\u7edf\u4e00\u6807\u51c6\u6765\u7b80\u5316\uff0c\u5728\u672c\u6587\u4e2d\u8fd9\u4e00\u6307\u5bfc\u4e5f\u53eb\u201c\u6700\u5c0f\u9650\u5ea6\u610f\u5916\u539f\u5219<\/em>\u201d\u3002\u6574\u4e2a\u9879\u76ee\u4e2d\u7edf\u4e00\u6837\u5f0f\u662f\u8f6f\u4ef6\u5f00\u53d1\u56e2\u961f\u5728\u7f16\u7a0b\u6807\u51c6\u4e0a\u8fbe\u6210\u4e00\u81f4\u7684\u4e3b\u8981\u539f\u56e0\uff0c\u5b83\u4e0d\u5e94\u89c6\u4e3a\u4e00\u79cd\u60e9\u7f5a\u6216\u5bf9\u521b\u9020\u6027\u548c\u751f\u4ea7\u529b\u7684\u963b\u788d\u3002<\/p>\n\u5355\u70b9\u7ef4\u62a4<\/h3>\n
\u8fd9\u4e00\u6307\u5bfc\u6240\u57fa\u4e8e\u7684\u53e6\u4e00\u4e2a\u91cd\u8981\u539f\u5219\u662f\u5355\u70b9\u7ef4\u62a4\u539f\u5219<\/em>\u3002\u5e94\u5c3d\u91cf\u4f7f\u8bbe\u8ba1\u51b3\u7b56\u53ea\u5728 Ada \u6e90\u7801\u4e2d\u7684\u4e00\u5904\u8868\u8ff0\uff0c\u5b83\u7684\u591a\u6570\u7ed3\u8bba\u5e94\u7a0b\u5e8f\u5316\u5730\u4ece\u8be5\u5904\u6d3e\u751f\u51fa\u6765\u3002\u4e0d\u9075\u5b88\u8fd9\u4e00\u539f\u5219\u4f1a\u4e25\u91cd\u5f71\u54cd\u4ee3\u7801\u7684\u53ef\u7ef4\u62a4\u6027\u3001\u53ef\u9760\u6027\u548c\u53ef\u7406\u89e3\u6027\u3002<\/p>\n\u6700\u5c0f\u9650\u5ea6\u7684\u5e72\u6270<\/h3>\n
\u6700\u540e\uff0c\u4f5c\u4e3a\u6613\u8bfb\u6027\u7684\u4e3b\u8981\u4f5c\u7528\u56e0\u7d20\uff0c\u91c7\u7528\u6700\u5c0f\u5e72\u6270\u539f\u5219<\/em>\u3002\u5373\u907f\u514d\u5c06\u6e90\u4ee3\u7801\u4e0e\u89c6\u89c9\u201c\u5e72\u6270\u201d\u76f8\u6df7\u5408\uff1a\u5373\u680f\u3001\u6846\u4ee5\u53ca\u5176\u5b83\u4f4e\u4fe1\u606f\u91cf\u7684\u6587\u672c\u6216\u662f\u5bf9\u7406\u89e3\u8f6f\u4ef6\u529f\u80fd\u6ca1\u6709\u5e2e\u52a9\u7684\u4fe1\u606f\u3002<\/p>\n\u53ef\u79fb\u690d\u6027\u548c\u53ef\u590d\u7528\u6027\u4e5f\u662f\u5236\u5b9a\u8bb8\u591a\u6307\u5bfc\u65b9\u9488\u7684\u539f\u7531\u3002\u4ee3\u7801\u5e94\u53ef\u79fb\u690d\u5230\u4e0d\u540c\u76ee\u6807\u8ba1\u7b97\u673a\u7684\u51e0\u4e2a\u4e0d\u540c\u7f16\u8bd1\u5668\u4e0a\uff0c\u5e76\u6700\u7ec8\u79fb\u690d\u5230\u4e00\u4e2a\u66f4\u9ad8\u7ea7\u7684 Ada \u7248\u672c\u201cAda 95\u201d\u4e0a [PLO92,<\/a> TAY92]<\/a>\u3002<\/p>\n<\/a>\u5047\u8bbe<\/h2>\n\u8fd9\u91cc\u7684\u6307\u5bfc\u65b9\u9488\u6709\u51e0\u4e2a\u57fa\u672c\u5047\u8bbe\uff1a<\/p>\n
\u8bfb\u8005\u4e86\u89e3 Ada\u3002<\/h3>\n
\u5e94\u9f13\u52b1\u5728\u4efb\u4f55\u53ef\u5e26\u6765\u597d\u5904\u7684\u5730\u65b9\u4f7f\u7528 Ada \u7684\u9ad8\u7ea7\u7279\u6027\uff0c\u800c\u4e0d\u8981\u4ec5\u4ec5\u56e0\u4e3a\u4e00\u4e9b\u7a0b\u5e8f\u5458\u4e0d\u719f\u6089\u5b83\u4eec\u800c\u53cd\u5bf9\u91c7\u7528\u3002 \u8fd9\u662f\u9879\u76ee\u80fd\u4ece\u4f7f\u7528 Ada \u4e2d\u771f\u6b63\u83b7\u76ca\u7684\u552f\u4e00\u65b9\u5f0f\u3002Ada \u4e0d\u5e94\u8c61 Pascal \u6216 FORTRAN \u8bed\u8a00\u90a3\u6837\u4f7f\u7528\u3002\u4e0d\u9f13\u52b1\u5728\u6ce8\u91ca\u4e2d\u89e3\u91ca\u4ee3\u7801\uff1b\u76f8\u53cd\uff0cAda \u672c\u8eab\u5e94\u5c3d\u53ef\u80fd\u5730\u53d6\u4ee3\u6ce8\u91ca\u3002<\/p>\n
\u8bfb\u8005\u61c2\u82f1\u6587\u3002<\/h3>\n
\u8bb8\u591a\u547d\u540d\u7ea6\u5b9a\u5728\u8bcd\u6c47\u548c\u8bed\u6cd5\u4e0a\u57fa\u4e8e\u82f1\u6587\u3002\u6b64\u5916\uff0c Ada \u7684\u5173\u952e\u5b57\u90fd\u662f\u5e38\u7528\u7684\u82f1\u8bed\u5355\u8bcd\u3002\u5c06\u5176\u4e0e\u5176\u5b83\u8bed\u8a00\u6df7\u5408\u5c06\u964d\u4f4e\u4ee3\u7801\u7684\u6613\u8bfb\u6027\u3002<\/p>\n
\u4e25\u683c\u9650\u5236\u4f7f\u7528\u5b50\u53e5 (use clause) \u7684\u8fd0\u7528\u3002<\/h3>\n
\u547d\u540d\u7ea6\u5b9a\u548c\u5176\u5b83\u4e00\u4e9b\u89c4\u5219\u5047\u5b9a\u201cuse\u201d\u5b50\u53e5\u4e0d\u88ab\u8fd0\u7528\u3002<\/p>\n
\u5904\u7406\u7684\u662f\u4e00\u4e2a\u5927\u9879\u76ee\u3002<\/h3>\n
\u8bb8\u591a\u89c4\u5219\u5728\u5927\u578b\u9879\u76ee\u4e2d\u6700\u6709\u4ef7\u503c\uff0c\u867d\u7136\u51fa\u4e8e\u9879\u76ee\u7ea7\u6216\u516c\u53f8\u7ea7\u5b9e\u73b0\u548c\u7edf\u4e00\u7684\u76ee\u7684\uff0c\u5b83\u4eec\u4e5f\u5728\u5c0f\u578b\u7cfb\u7edf\u4e2d\u4f7f\u7528\u3002<\/p>\n
\u6e90\u7801\u5728\u201cRational \u73af\u5883\u201d (Rational Environment) \u4e2d\u5f00\u53d1\u3002<\/h3>\n
\u901a\u8fc7\u8fd0\u7528\u201cRational \u73af\u5883\u201d (Rational Environment)\uff0c\u4e00\u4e9b\u95ee\u9898\u5982\u4ee3\u7801\u5e03\u5c40\u3001\u5c01\u95ed\u6784\u9020\u4e2d\u7684\u6807\u8bc6\u7b26\u7b49\u5c31\u5728 Ada \u7f16\u8f91\u5668\u548c\u683c\u5f0f\u5668\u4e2d\u5904\u7406\u4e86\u3002 \u4f46\u662f\u672c\u6587\u4e2d\u7684\u5e03\u5c40\u5efa\u8bae\u9002\u7528\u4e8e\u4efb\u4f55\u5f00\u53d1\u5e73\u53f0\u3002<\/p>\n
\u7a0b\u5e8f\u8bbe\u8ba1\u9075\u5faa\u9762\u5411\u5bf9\u8c61\u7684\u65b9\u6cd5\u3002<\/h3>\n
\u8bb8\u591a\u89c4\u5219\u652f\u6301\u5c06 Ada \u7279\u6027\u548c\u7279\u5b9a\u547d\u540d\u7ea6\u5b9a\u7684\u9762\u5411\u5bf9\u8c61 (OO) \u6982\u5ff5\u7684\u7cfb\u7edf\u6620\u5c04\u3002<\/p>\n
<\/a>\u6307\u5357\u5206\u7c7b<\/h2>\n\u8fd9\u4e9b\u6307\u5bfc\u65b9\u9488\u5e76\u975e\u540c\u7b49\u91cd\u8981\u3002\u5b83\u4eec\u5927\u81f4\u9075\u5faa\u4ee5\u4e0b\u7684\u7b49\u7ea7\uff1a<\/p>\n
\u63d0\u793a\uff1a<\/h3>\n
\u8be5\u6307\u5bfc\u65b9\u9488\u4ec5\u662f\u4e00\u6761\u7b80\u5355\u7684\u5efa\u8bae\uff1b\u4e0d\u9075\u5b88\u5b83\u4e5f\u4e0d\u4f1a\u6709\u4ec0\u4e48\u5b9e\u8d28\u6027\u7684\u635f\u5bb3\uff0c\u91c7\u7528\u6216\u662f\u4e0d\u91c7\u7528\u5b83\u4eec\u4ec5\u662f\u4e2a\u4eba\u559c\u597d\u95ee\u9898\u3002\u6587\u4e2d\u7684\u63d0\u793a\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u5efa\u8bae\uff1a<\/h3>\n
\u8be5\u6307\u5bfc\u65b9\u9488\u901a\u5e38\u66f4\u591a\u5730\u57fa\u4e8e\u6280\u672f\u7684\u89c2\u70b9\uff1b\u5b83\u53ef\u80fd\u4f1a\u5f71\u54cd\u5230\u4ee3\u7801\u7684\u53ef\u79fb\u690d\u6027\u6216\u53ef\u590d\u7528\u6027\uff0c\u5e76\u5728\u4e00\u4e9b\u5b9e\u65bd\u4e2d\u5f71\u54cd\u6027\u80fd\u3002 \u9664\u975e\u6709\u5408\u9002\u7684\u7406\u7531\uff0c\u5426\u5219\u5fc5\u987b\u9075\u5b88\u5efa\u8bae\u3002\u6587\u4e2d\u63d0\u5230\u4e00\u4e9b\u4f8b\u5916\u7684\u60c5\u51b5\u3002\u6587\u4e2d\u7684\u5efa\u8bae\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u9650\u5236\uff1a<\/h3>\n
\u6709\u7591\u95ee\u7684\u7279\u6027\u4f7f\u7528\u8d77\u6765\u5371\u9669\uff0c\u4f46\u5b83\u5e76\u4e0d\u88ab\u5b8c\u5168\u7981\u6b62\uff1b\u5e94\u7528\u8be5\u7279\u6027\u7684\u51b3\u5b9a\u5e94\u5728\u9879\u76ee\u7ea7\u4e0a\u505a\u51fa\uff0c\u5e76\u4e14\u51b3\u5b9a\u5e94\u8be5\u662f\u9ad8\u5ea6\u53ef\u89c1\u7684\u3002\u6587\u4e2d\u7684\u9650\u5236\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u8981\u6c42\uff1a<\/h3>\n
\u8fdd\u80cc\u5b83\u5b9a\u5c06\u5bfc\u81f4\u4e0d\u597d\u7684\u3001\u4e0d\u53ef\u9760\u7684\u6216\u662f\u4e0d\u53ef\u79fb\u690d\u7684\u4ee3\u7801\u3002 \u8981\u6c42\u4e0d\u53ef\u8fdd\u80cc\u3002\u6587\u4e2d\u7684\u8981\u6c42\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u201cRational \u8bbe\u8ba1\u5de5\u5177\u201d (Rational Design Facility) \u5c06\u7528\u6765\u51cf\u5c11\u53d7\u9650\u7279\u6027\u7684\u4f7f\u7528\u5e76\u52a0\u5f3a\u5fc5\u9700\u6cd5\u5219\u548c\u8bb8\u591a\u5efa\u8bae\u7684\u8fd0\u7528\u3002<\/p>\n
\u4e0e\u8bb8\u591a\u5176\u5b83\u7684 Ada \u7a0b\u5e8f\u8bbe\u8ba1\u6807\u51c6\u4e0d\u540c\u7684\u662f\uff1a\u4e8b\u5b9e\u4e0a\uff0c\u8fd9\u4e9b\u6307\u5bfc\u65b9\u9488\u4e2d\u53ca\u5c11\u6709\u5b8c\u5168\u7981\u7528\u7684\u3002\u597d\u7684\u8f6f\u4ef6\u7684\u5173\u952e\u5728\u4e8e\uff1a<\/p>\n
\n- \u4e86\u89e3\u6bcf\u79cd\u7279\u6027\uff0c\u4e86\u89e3\u5b83\u7684\u5c40\u9650\u548c\u53ef\u80fd\u7684\u5371\u9669<\/li>\n
- \u51c6\u786e\u4e86\u89e3\u8fd9\u79cd\u7279\u6027\u5728\u4f55\u79cd\u573a\u5408\u53ef\u4ee5\u5b89\u5168\u4f7f\u7528<\/li>\n
- \u8ba9\u4f7f\u7528\u8be5\u7279\u6027\u7684\u51b3\u7b56\u9ad8\u5ea6\u53ef\u89c1<\/li>\n
- \u5341\u5206\u5c0f\u5fc3\u8c28\u614e\u5730\u5728\u9002\u5f53\u5904\u4f7f\u7528\u8be5\u7279\u6027\u3002<\/li>\n<\/ul>\n
<\/a>\u6700\u6839\u672c\u7684\u539f\u5219<\/h2>\n\u4f7f\u7528\u5e38\u8bc6\u3002<\/p>\n
\u5f53\u65e0\u6cd5\u627e\u5230\u53ef\u7528\u7684\u89c4\u5219\u6216\u6307\u5357\uff0c\u5f53\u89c4\u5219\u660e\u663e\u4e0d\u9002\u7528\uff0c\u5f53\u5176\u5b83\u4e00\u5207\u90fd\u5931\u8d25\u65f6\uff1a\u4f7f\u7528\u5e38\u8bc6\uff0c\u5e76\u6838\u67e5\u57fa\u672c\u539f\u5219\u3002\u8fd9\u6761\u6cd5\u5219\u51cc\u9a7e\u4e8e\u5176\u5b83\u6240\u6709\u6cd5\u5219\u4e4b\u4e0a\u3002\u5e38\u8bc6\u662f\u5fc5\u4e0d\u53ef\u5c11\u7684<\/em>\u3002<\/p>\n
\n<\/a>\u7b2c\u4e09\u7ae0<\/em><\/h2>\n\u4ee3\u7801\u5e03\u5c40<\/h1>\n\u6982\u8ff0<\/h2>\n
\u4e00\u4e2a\u7a0b\u5e8f\u5355\u5143\u7684\u5e03\u5c40\u5b8c\u5168\u5728\u201cRational \u73af\u5883\u683c\u5f0f\u5668\u201d (Rational Environment Formatter) \u7684\u63a7\u5236\u4e4b\u4e0b\uff0c\u9664\u4e86\u5728\u6ce8\u91ca\u548c\u7a7a\u767d\u5904\u5185\uff0c\u7a0b\u5e8f\u5458\u4e0d\u5fc5\u8fc7\u591a\u62c5\u5fc3\u7a0b\u5e8f\u7684\u5e03\u5c40\u3002\u8fd9\u4e2a\u5de5\u5177\u6240\u91c7\u7528\u7684\u683c\u5f0f\u7ea6\u5b9a\u5728 Reference Manual for the Ada Programming Language \u7684 Appendix E \u4e2d\u8868\u8ff0 [ISO87]<\/a>\u3002 \u7279\u522b\u662f\uff0c\u4ed6\u4eec\u5efa\u8bae\u7ed3\u6784\u5316\u6784\u9020\u7684\u5f00\u59cb\u548c\u7ed3\u675f\u5904\u7684\u5173\u952e\u5b57\u5e94\u5782\u76f4\u5bf9\u9f50\u3002\u4e00\u4e2a\u6784\u9020\u7684\u6807\u8bc6\u7b26\u4e5f\u5e94\u7cfb\u7edf\u6027\u5730\u5728\u6784\u9020\u7684\u672b\u5c3e\u91cd\u590d\u3002<\/p>\n\u683c\u5f0f\u5668\u7684\u786e\u5207\u884c\u4e3a\u7531\u4e00\u7cfb\u5217\u7684\u5e93\u5f00\u5173<\/em>\u5728\u4e00\u4e2a\u901a\u7528\u6a21\u578b\u4e16\u754c (model world) \u57fa\u7840\u4e0a\u63a7\u5236\uff0c\u8fd9\u4e9b\u5e93\u5f00\u5173\u5728\u6574\u4e2a\u9879\u76ee\u8fc7\u7a0b\u4e2d\u63a5\u6536\u4e00\u5957\u7edf\u4e00\u7684\u503c\u3002\u76f8\u5173\u7684\u5f00\u5173\u4ee5\u53ca\u5b83\u4eec\u5728\u6211\u4eec\u6240\u5efa\u8bae\u7684\u6a21\u578b\u4e16\u754c<\/em>\u4e2d\u7684\u901a\u7528\u503c\u5217\u8868\u5982\u4e0b\u3002<\/p>\n<\/a>\u5b57\u6bcd\u5927\u5c0f\u5199<\/h2>\nFormat .Id_Case : Letter_Case := Capitalized<\/h3>\n
\u8be6\u7ec6\u8bf4\u660e Ada \u5355\u5143\u4e2d\u6807\u8bc6\u7b26\u7684\u5b57\u6bcd\u5927\u5c0f\u5199\uff1a\u6700\u5f00\u59cb\u7684\u5b57\u6bcd\u4ee5\u53ca\u6bcf\u4e2a\u4e0b\u5212\u7ebf\u4e4b\u540e\u7684\u7b2c\u4e00\u4e2a\u5b57\u6bcd\u7528\u5927\u5199\u3002\u5927\u5199\u662f\u8bfb\u8005\u6700\u6613\u8bfb\u7684\u5f62\u5f0f\uff0c\u5177\u6709\u4f17\u591a\u73b0\u4ee3\u5c4f\u5e55\u548c\u6fc0\u5149\u6253\u5370\u673a\u5b57\u4f53\u3002<\/p>\n
Format .Keyword_Case : Letter_Case := Lower<\/h3>\n
\u8bf4\u660e Ada \u5173\u952e\u5b57\u7684\u5927\u5c0f\u5199\u3002\u8fd9\u5c06\u5b83\u4eec\u4e0e\u6807\u8bc6\u7b26\u7565\u5fae\u533a\u5206\u5f00\u6765\u3002<\/p>\n
Format .Number_Case : Letter_Case := Upper<\/h3>\n
\u8bf4\u660e\u6d6e\u70b9\u76f4\u63a5\u91cf\u4e2d\u5b57\u6bcd\u201cE\u201d\u548c\u57fa\u672c\u76f4\u63a5\u91cf\u4e2d\u57fa\u672c\u6570\u5b57\uff08\u201cA\u201d \u5230 \u201cF\u201d\uff09\u7684\u5927\u5c0f\u5199\u3002<\/p>\n
<\/a>\u7f29\u8fdb<\/h2>\n\u4e00\u4e2a Ada \u5355\u5143\u6309\u7167 Ada Reference Manual \u4e2d Appendix E \u6240\u8bf4\u7684\u4e00\u822c\u7ea6\u5b9a\u6765\u7f16\u6392\u683c\u5f0f [ISO87]<\/a>\u3002\u8fd9\u5c31\u662f\u8bf4\uff0c\u4e00\u4e2a\u7ed3\u6784\u5316\u6784\u9020\u7684\u5f00\u59cb\u548c\u7ed3\u675f\u5904\u7684\u5173\u952e\u5b57\u5e94\u8be5\u5bf9\u9f50\u3002 \u4f8b\u5982\uff0c\u201cloop\u201d\u548c\u201cend loop\u201d\uff0c\u201crecord\u201d\u548c\u201cend record\u201d\u3002\u5728\u7ed3\u6784\u5316\u6784\u9020\u5185<\/em>\u7684\u5355\u5143\u5e94\u5411\u53f3\u7f29\u8fdb<\/em>\u3002<\/p>\nFormat .Major_Indentation : Indent_Range := 3<\/h3>\n
\u8bf4\u660e\u683c\u5f0f\u5668\u4ee4\u5982\u201cif\u201d\u8bed\u53e5\u3001\u201ccase\u201d\u8bed\u53e5\u548c\u201cloop\u201d\u8bed\u53e5\u8fd9\u6837\u7684\u7ed3\u6784\u5316\uff08\u4e3b\u8981\u7684\uff09\u6784\u9020\u7f29\u8fdb\u7684\u5217\u6570\u3002<\/p>\n
Format .Minor_Indentation : Indent_Range := 2<\/h3>\n
\u8bf4\u660e\u683c\u5f0f\u5668\u4f7f\u6b21\u8981\u6784\u9020\u7f29\u8fdb\u7684\u5217\u6570\uff1a \u8bb0\u5f55\u7684\u58f0\u660e\u3001\u53d8\u4f53\u8bb0\u5f55\u7684\u58f0\u660e\u3001\u7c7b\u578b\u7684\u58f0\u660e\u3001\u5f02\u5e38\u5904\u7406\u3001\u9009\u62e9\u8bed\u53e5\u3001case \u8bed\u53e5\u3001\u547d\u540d\u548c\u6807\u5fd7\u8bed\u53e5\u3002<\/p>\n
<\/a>\u884c\u7684\u957f\u5ea6\u548c\u884c\u7684\u5206\u9694<\/h2>\nFormat .Line_Length : Line_Range := 80<\/h3>\n
\u8bf4\u660e\u6362\u884c\u524d\u683c\u5f0f\u5668\u663e\u793a Ada \u5355\u5143\u4e2d\u7684\u884c\u6240\u91c7\u7528\u7684\u5217\u6570\u3002\u8fd9\u4f7f\u5f97\u683c\u5f0f\u5316\u7684\u5355\u5143\u53ef\u7528\u4f20\u7edf\u7684 VT100 \u7c7b\u7ec8\u7aef\u663e\u793a\u3002<\/p>\n
Format .Statement_Indentation : Indent_Range := 3<\/h3>\n
\u8bf4\u660e\u5f53\u4e00\u6761\u8bed\u53e5\u957f\u4e8e Line_Length\uff0c\u5fc5\u987b\u8981\u65ad\u5f00\u65f6\uff0c\u683c\u5f0f\u5668\u5e94\u4f7f\u7b2c\u4e8c\u884c\u548c\u540e\u7eed\u884c\u7f29\u8fdb\u591a\u5c11\u5217\u3002\u53ea\u6709\u5f53\u4e0d\u5b58\u5728\u8bcd\u6cd5\u6784\u9020\u53ef\u8ba9\u7f29\u8fdb\u7684\u4ee3\u7801\u5bf9\u9f50\u65f6\uff0c\u683c\u5f0f\u5668\u624d\u4ee4\u4ee3\u7801\u7f29\u8fdb Statement_Indentation \u4e2a\u5217\u3002<\/p>\n
Format .Statement_Length : Line_Range := 35<\/h3>\n
\u8bf4\u660e\u5f53\u663e\u793a\u4e00\u4e2a\u8bed\u53e5\u65f6\uff0c\u6bcf\u884c\u6240\u4fdd\u7559\u7684\u5217\u6570\u3002 \u5982\u679c\u5f53\u524d\u7f29\u8fdb\u7a0b\u5ea6\u6240\u5141\u8bb8\u7684\u4e00\u884c\u4e2d\u7684\u5217\u6570\u5c0f\u4e8e Statement_Length\uff0c\u90a3\u4e48\u683c\u5f0f\u5668\u5c06 Wrap_Indentation \u4f5c\u4e3a\u65b0\u7684\u7f29\u8fdb\u7a0b\u5ea6\u3002\u6b64\u6cd5\u53ef\u9632\u6b62\u5d4c\u5957\u592a\u6df1\u7684\u8bed\u53e5\u663e\u793a\u65f6\u8d85\u51fa\u53f3\u8fb9\u754c\u3002<\/p>\n
Format .Wrap_Indentation : Line_Range := 16<\/h3>\n
\u8bf4\u660e\u5f53\u524d\u7684\u7f29\u8fdb\u7a0b\u5ea6\u4e0d\u4e0d\u8db3 Statement_Length \u65f6\uff0c\u683c\u5f0f\u5668\u5728\u4e0b\u4e00\u884c\u5f00\u5934\u5904\u5e94\u7f29\u8fdb\u7684\u5217\u6570\u3002\u6b64\u6cd5\u53ef\u9632\u6b62\u5d4c\u5957\u592a\u6df1\u7684\u8bed\u53e5\u663e\u793a\u65f6\u8d85\u51fa\u53f3\u8fb9\u754c\u3002<\/p>\n
<\/a>\u5bf9\u9f50<\/h2>\nFormat .Consistent_Breaking : Integer := 1<\/h3>\n
\u63a7\u5236\u5f62\u5982 (xxx:aaa; yyy:bbb) \u7684\u5217\u8868\u683c\u5f0f\uff0c\u8be5\u5217\u8868\u51fa\u73b0\u5728\u5b50\u7a0b\u5e8f\u7684\u5f62\u53c2\u8bf4\u660e\u5904\u548c\u7c7b\u578b\u58f0\u660e\u4e2d\u7684\u5224\u522b\u5f0f\u5904\u3002\u5b83\u4e5f\u63a7\u5236\u5f62\u5982 (xxx=>aaa, yyy=>bbb) \u7684\u5217\u8868\u7684\u683c\u5f0f\uff0c\u8be5\u5217\u8868\u51fa\u73b0\u5728\u5b50\u7a0b\u5e8f\u8c03\u7528\u548c\u805a\u96c6\u5904\u3002\u56e0\u4e3a\u8be5\u9009\u9879\u975e\u96f6\uff08\u771f\uff09\uff0c\u6240\u4ee5\u5f53\u4e00\u4e2a\u5217\u8868\u65e0\u6cd5\u5728\u4e00\u884c\u4e2d\u88c5\u4e0b\u65f6\uff0c\u5217\u8868\u4e2d\u7684\u6bcf\u4e00\u4e2a\u5143\u7d20\u90fd\u5360\u7528\u65b0\u7684\u4e00\u884c\u3002<\/p>\n
Format .Alignment_Threshold : Line_Range := 20<\/h3>\n
\u8bf4\u660e\u4e3a\u4f7f\u8fde\u7eed\u8bed\u53e5\u4e2d\u7684\u8bcd\u6cd5\u6784\u9020\u5bf9\u9f50\uff08\u5982\u547d\u540d\u7b26\u53f7\u4e2d\u7684\u5192\u53f7\u3001\u8d4b\u503c\u53f7\u548c\u7bad\u5934\uff09\uff0c\u683c\u5f0f\u5668\u53ef\u63d2\u5165\u7684\u7a7a\u683c\u6570\u3002\u5982\u679c\u5bf9\u9f50\u4e00\u4e2a\u6784\u9020\u6240\u9700\u7684\u7a7a\u683c\u6570\u591a\u4e8e\u8fd9\u4e2a\u6570\uff0c\u90a3\u4e48\u6784\u9020\u4e0d\u88ab\u5bf9\u9f50\u3002<\/p>\n
\u8981\u6ce8\u610f\u7684\u662f\uff0c\u4e3a\u4e86\u5f62\u6210\u67d0\u79cd\u5e03\u5c40\uff0c\u7a0b\u5e8f\u5458\u53ef\u4ee5\u63d2\u5165\u4e00\u4e2a\u884c\u7ed3\u675f\u7b26\u6216\u8005\u901a\u8fc7\u8f93\u5165 <space> <space> <carriage-return> \u6765\u6572\u5165\u4e00\u4e2a\u4e0d\u4f1a\u88ab\u683c\u5f0f\u5668\u5220\u6389\u7684\u884c\u4e2d\u65ad\u3002<\/p>\n
\u5f53 \u5217\u8868\u4e2d\u7684\u5143\u7d20\u8d85\u8fc7 3 \u4e2a\u5e76\u4e14\u5728\u4e00\u884c\u4e2d\u88c5\u4e0d\u4e0b\u8fd9\u4e9b\u5143\u7d20\u65f6\uff0c\u91c7\u7528\u4e0a\u8ff0\u6280\u5de7\u3002Ada \u5143\u7d20\u5217\u8868\u5e94\u5206\u9694\u4e3a\u4e00\u884c\u4ec5\u6709\u4e00\u4e2a\u5143\u7d20\uff0c\u4ee5\u63d0\u9ad8\u4ee3\u7801\u7684\u6613\u8bfb\u6027\u548c\u53ef\u7ef4\u62a4\u6027\u3002\u8fd9\u4e00\u6761\u5c24\u5176\u9002\u7528\u4e8e\u4ee5\u4e0b Ada \u6784\u9020\uff08\u8c61 Ada Reference Manual \u7684 Appendix E \u4e2d\u6240\u5b9a\u4e49\u7684\u90a3\u6837 [ISO87]<\/a>\uff09\uff1a<\/p>\n\u5b9e\u53c2\u5173\u8054\u5173\u7cfb<\/p>\n
pragma Suppress (Range_Check,\r\nOn => This_Type,\r\nOn => That_Type, On => That_Other_Type);<\/pre>\n\u6807\u8bc6\u7b26\u5217\u8868\uff0c\u7ec4\u4ef6\u5217\u8868<\/p>\n
Next_Position,\r\nPrevious_Position,\r\nCurrent_Position : Position;\r\ntype Some_Record is \r\nrecord\r\nA_Component,\r\nB_Component,\r\nC_Component : Component_Type;\r\nend record;<\/pre>\n\u679a\u4e3e\u7c7b\u578b\u5b9a\u4e49<\/p>\n
type Navaid is \r\n(Vor, \r\nVor_Dme, \r\nDme, \r\nTacan, \r\nVor_Tac, \r\nNDB);<\/pre>\n\u5224\u522b\u5f0f\u7ea6\u675f<\/p>\n
subtype Constrained is Element \r\n(Name_Length => Name'Length,\r\nValid => True,\r\nOperation => Skip);<\/pre>\n\u8bed\u53e5\u7684\u987a\u5e8f\uff08\u7531\u683c\u5f0f\u5668\u5904\u7406\uff09<\/p>\n
\u5f62\u5f0f\u90e8\u5206\u3001\u7c7b\u5c5e\u5f62\u5f0f\u90e8\u5206\u3001\u5b9e\u53c2\u90e8\u5206\u3001\u7c7b\u5c5e\u5b9e\u53c2\u90e8\u5206<\/p>\n
procedure Just_Do_It (This : in Some_Type;\r\nFor_That : in Some Other_Type;\r\nStatus : out Status_Type);\r\nJust_Do_It (This => This_Value;\r\nFor_That => That_Value;\r\nStatus => The_Status);<\/pre>\n
\n<\/a>\u7b2c\u56db\u7ae0<\/em><\/h2>\n\u6ce8\u91ca<\/h1>\n\u6982\u8ff0<\/h2>\n
\u4e0e\u5e7f\u6cdb\u63a5\u53d7\u7684\u89c2\u70b9\u76f8\u53cd\u7684\u662f\uff0c\u597d\u7684\u7a0b\u5e8f\u7684\u7279\u70b9\u5e76\u975e\u662f\u6ce8\u91ca\u7684\u6570\u91cf<\/em>\uff0c\u800c\u662f\u6ce8\u91ca\u7684\u8d28\u91cf<\/em>\u3002<\/p>\n\u6ce8\u91ca\u5e94\u5f53\u4f5c\u4e3a Ada \u4ee3\u7801\u7684\u8865\u5145<\/em>\uff0c\u800c\u4e0d\u662f\u89e3\u91ca\uff1aAda \u672c\u8eab\u662f\u4e00\u79cd\u975e\u5e38\u6613\u8bfb\u7684\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00\uff0c\u5c24\u5176\u662f\u5f53\u88ab\u597d\u7684\u547d\u540d\u7ea6\u5b9a\u652f\u6301\u65f6\u3002\u6ce8\u91ca\u5e94\u5f53\u89e3\u91ca\u90a3\u4e9b\u4e0d\u80fd\u76f4\u63a5\u4ece Ada \u4ee3\u7801\u4e2d\u770b\u51fa\u7684\u5185\u5bb9\uff1b\u5b83\u4eec\u4e0d\u5e94\u590d\u5236 Ada \u7684\u8bed\u6cd5\u6216\u8bed\u4e49\u3002\u6ce8\u91ca\u5e94\u5f53\u5e2e\u52a9\u8bfb\u8005\u638c\u63e1\u80cc\u666f\u6982\u5ff5\u548c\u4f9d\u8d56\u6761\u4ef6\uff0c\u7279\u522b\u662f\u590d\u6742\u7684\u6570\u636e\u7f16\u7801\u548c\u7b97\u6cd5\u3002\u6ce8\u91ca\u5e94\u5f53\u7a81\u51fa\u4e0e\u7f16\u7801\u6216\u8bbe\u8ba1\u6807\u51c6\u7684\u4e0d\u540c\u70b9\u3001\u53d7\u9650\u7279\u6027\u7684\u4f7f\u7528\u4ee5\u53ca\u7279\u6b8a\u7684 \u201c\u6280\u5de7\u201d\u3002\u5728\u6bcf\u4e2a\u4e3b\u8981\u7684 Ada \u6784\u9020\uff08\u5982\u5b50\u7a0b\u5e8f\u548c\u7a0b\u5e8f\u5305\uff09\u4e2d\uff0c\u7cfb\u7edf\u5730\u51fa\u73b0\u7684\u6ce8\u91ca\u6846\u6216\u8868\u5355\u5177\u6709\u4e00\u81f4\u6027\u548c\u63d0\u9192\u7a0b\u5e8f\u5458\u8bf4\u660e\u4ee3\u7801\u7684\u4f18\u70b9\uff0c\u4f46\u5b83\u4eec\u4e5f\u5e38\u5e38\u5e26\u6765\u91ca\u4e49\u4ee3\u7801\u7684\u98ce\u683c\u3002\u5bf9\u6bcf\u4e00\u884c\u6ce8\u91ca\uff0c\u7a0b\u5e8f\u5458\u90fd \u5e94\u80fd\u591f\u5f88\u597d\u5730\u56de\u7b54\uff1a\u201c\u52a0\u5165\u8fd9\u4e2a\u6ce8\u91ca\u6709\u4f55\u4ef7\u503c\uff1f\u201d<\/p>\n\u4e00\u4e2a\u8bef\u5bfc\u6216\u8005\u9519\u8bef\u7684\u6ce8\u91ca\u6bd4\u5b8c\u5168\u4e0d\u6ce8\u91ca\u8fd8\u7cdf\u3002\u7f16\u8bd1\u5668\u4e0d\u68c0\u67e5\u6ce8\u91ca\uff08\u9664\u975e\u5b83\u4eec\u8c61\u201cRational \u8bbe\u8ba1\u5de5\u5177\u201d\u90a3\u6837\u53c2\u4e0e\u4e86\u6b63\u5f0f\u7684 Ada \u8bbe\u8ba1\u8bed\u8a00 (ADL) \u6216\u8005\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00 (PDL)\uff09\u3002\u56e0\u6b64\uff0c\u6839\u636e\u5355\u70b9\u7ef4\u62a4\u539f\u5219\uff0c\u8bbe\u8ba1\u51b3\u5b9a\u5e94\u5728 Ada \u800c\u4e0d\u662f\u6ce8\u91ca\u4e2d\u8868\u8ff0\uff0c\u5373\u4f7f\u8fd9\u6837\u505a\u9700\u8981\u591a\u51e0\u4e2a\u58f0\u660e\u3002<\/p>\n
\u4f5c\u4e3a\u4e00\u4e2a\uff08\u5e76\u975e\u5f88\u597d\u7684\uff09\u4f8b\u5b50\u8003\u8651\u5982\u4e0b\u7684\u58f0\u660e\uff1a<\/p>\n
------------------------------------------------------------\r\n-- procedure Create\r\n------------------------------------------------------------\r\n--\r\nprocedure Create\r\n(The_Subscriber: in out Subscriber.Handle;\r\nWith_Name : in out Subscriber.Name);\r\n--\r\n-- Purpose: This procedure creates a subscriber with a given\r\n-- name.\r\n--\r\n-- Parameters: \r\n- The_Subscriber :mode in out, type Subscriber.Handle\r\n- It is the handle to the created subscriber\r\n- With_Name :mode in, type Subscriber.Name\r\n- The name of the subscriber to be created.\r\n- The syntax of the name is\r\n-- <letter> { <letter> | <digit> }\r\n-- Exceptions:\r\n-- Subscriber.Collection_Overflow when there is no more\r\n-- space to create a new subscriber\r\n-- Subscriber.Invalid_Name when the name is blank or\r\n-- malformed\r\n--\r\n-------------------------------------------- end Create ----<\/pre>\n\u4f8b\u5b50\u4e2d\u6709\u51e0\u70b9\u8981\u6307\u51fa\u6765\u3002<\/p>\n
\n- \u6709\u8bb8\u591a\u5197\u4f59\uff1a<\/li>\n<\/ul>\n
\n- – \u8fc7\u7a0b\u521b\u5efa (Procedure Create)\uff1a\u5982\u679c\u8981\u6539\u540d\uff0c\u6709\u51e0\u5904\u5730\u65b9\u9700\u8981\u4fee\u6539\uff1b\u7ecf\u5e38\u6027\u5730\u4fee\u6539\u6ce8\u91ca\uff0c\u7f16\u8bd1\u5668\u4e0d\u4f1a\u6267\u884c\u3002<\/dd>\n
- – \u6ce8\u91ca\u4e2d\u65e0\u9700\u91cd\u590d\u8bf4\u660e\u53c2\u6570\u540d\u3001\u6a21\u5f0f\u548c\u7c7b\u578b\u3002<\/dd>\n
- – \u8fd9\u91cc\u7ed9\u6bcf\u4e2a Ada \u5b9e\u4f53\u6240\u53d6\u7684\u540d\u5b57\u5f88\u597d\uff0c\u8fd9\u4f7f\u5f97\u529f\u80fd\u548c\u53c2\u6570\u89e3\u91ca\u53d8\u5f97\u591a\u4f59\u3002\u6ce8\u610f\uff0c\u8fd9\u4e00\u70b9\u53ea\u662f\u5bf9\u4e8e\u5982\u4e0a\u4f8b\u8fd9\u6837\u7684\u7b80\u5355\u7684\u5b50\u7a0b\u5e8f\u6765\u8bf4\u624d\u662f\u6b63\u786e\u7684\u3002\u5bf9\u4e8e\u66f4\u590d\u6742\u7684\u5b50\u7a0b\u5e8f\uff0c\u4ecd\u9700\u8981\u529f\u80fd\u548c\u53c2\u6570\u89e3\u91ca\u3002<\/dd>\n<\/dl>\n
\n- \u6846\u67b6\u52a0\u5165\u4e86\u592a\u591a\u7684\u5e72\u6270\uff0c\u9690\u85cf\u4e86\u5173\u952e\u9879\uff1a\u8fc7\u7a0b\u58f0\u660e\u3002\u53e6\u5916\uff0c\u53f3\u7aef\u7684\u5782\u76f4\u8fb9\u5f00\u59cb\u65f6\u770b\u4e0a\u53bb\u8fd8\u5f88\u6f02\u4eae\uff0c\u4f46\u5374\u4f7f\u4fee\u6539\u53d8\u5f97\u6781\u4e3a\u75db\u82e6\uff0c\u901a\u5e38\u51e0\u5e74\u7684\u7ef4\u62a4\u4e0b\u6765\uff0c\u4ee3\u7801\u6700\u540e\u5b8c\u5168\u4e0d\u5bf9\u9f50\u5e76\u4e14\u5343\u75ae\u767e\u5b54\u3002<\/li>\n
- \u76f8\u53cd\u7684\u662f\uff0c\u8fd9\u91cc\u5e94\u8bf4\u660e\u4ea7\u751f\u4e86\u4f55\u79cd\u5f02\u5e38\uff0c\u56e0\u4e3a\u82e5\u53ea\u8bfb\u89c4\u683c\u8bf4\u660e\uff0c\u8fd9\u4e00\u70b9\u5e76\u4e0d\u660e\u663e\u3002\u4f46\u6bcf\u4e2a\u5f02\u5e38\u7684\u51c6\u786e\u542b\u4e49\u5e94\u653e\u5728\u81ea\u8eab\u7684\u5f02\u5e38\u58f0\u660e\u5904\u3002<\/li>\n
- \u5e94\u8bf4\u660e\u53c2\u6570\u7684\u524d\u7f6e\u548c\u540e\u7f6e\u6761\u4ef6\uff0c\u5c24\u5176\u662f\u53c2\u6570\u95f4\u7684\u5173\u7cfb\u3002\u8fd9\u4e9b\u4e0d\u5e94\u4e0e\u5176\u5b83\u5730\u65b9\u53ef\u4ee5\u627e\u5230\u7684\u4fe1\u606f\u91cd\u590d\uff0c\u5982\u6709\u6548\u540d\u7684\u8bed\u6cd5\uff0c\u5b83\u53ea\u5e94\u5728\u4e00\u5904\u8bf4\u660e\u3002<\/li>\n<\/ul>\n
\u5728\u8fd9\u4e2a\u4f8b\u5b50\u4e2d\uff0c\u6700\u597d\u91c7\u7528\u5982\u4e0b\u66f4\u7b80\u6d01\u3001\u66f4\u6709\u7528\u7684\u65b9\u5f0f\uff1a<\/p>\n
procedure Create (The_Subscriber : in out Subscriber.Handle;\r\nWith_Name : in Subscriber.Name);--\r\n-Raises Subscriber.Collection_Overflow.\r\n-Raises Subscriber.Invalid_Name when the name is \r\nblank or malformed (see syntax description \r\nattached to declaration of type Subscriber.Name).<\/pre>\n<\/a>\u6ce8\u91ca\u7528\u6cd5\u6307\u5357<\/h2>\n\u6ce8\u91ca\u5e94\u653e\u5728\u76f8\u5173\u4ee3\u7801\u7684\u65c1\u8fb9\uff0c\u7f29\u8fdb\u540c\u6837\u7684\u5927\u5c0f\uff0c\u7d27\u9760\u7740\u4ee3\u7801 – \u5373\u7528\u7a7a\u7684\u6ce8\u91ca\u884c\u5728\u89c6\u89c9\u4e0a\u5c06\u6ce8\u91ca\u5757\u4e0e Ada \u6784\u9020\u6346\u5728\u4e00\u8d77\uff1a<\/p>\n
procedure First_One;\r\n--\r\n-- This comment relates to First_One.\r\n-- But this comment is for Second_One.\r\n-- \r\nprocedure Second_One (Times : Natural);<\/pre>\n\u7528\u7a7a\u884c\u5206\u9694\u76f8\u5173\u7684\u6e90\u7801\u5757\uff08\u6ce8\u91ca\u548c\u4ee3\u7801\uff09\uff0c\u800c\u4e0d\u7528\u7c97\u91cd\u7684\u6ce8\u91ca\u884c\uff0c\u5982\uff1a<\/p>\n
-------------------------------------------------------------<\/pre>\n\u6216\u8005\uff1a<\/p>\n
--===========================================================<\/pre>\n\u5728\u4e00\u4e2a\u6ce8\u91ca\u5757\u4e2d\uff0c\u4f7f\u7528\u7a7a\u6ce8\u91ca\u884c\u800c\u975e\u7a7a\u884c\u6765\u5206\u5272\u6ce8\u91ca\u6bb5<\/p>\n
-- Some explanation here that needs to be continued in a\r\n-- subsequent paragraph.\r\n--\r\n-- The empty comment line above makes it clear that we \r\n-- are dealing with a single comment block.<\/pre>\n\u867d\u7136\u6ce8\u91ca\u53ef\u4ee5\u653e\u5728\u76f8\u5173 Ada \u6784\u9020\u7684\u4e0a\u65b9\u6216\u4e0b\u65b9\uff0c\u4f46\u662f\u8981\u5c06\u4e00\u8282\u7684\u6807\u9898\u6216\u8005\u4e00\u4e2a\u8bf4\u660e\u51e0\u4e2a Ada \u6784\u9020\u7684\u4e3b\u8981\u4fe1\u606f\u653e\u5728\u6784\u9020\u7684\u4e0a\u65b9<\/em>\u3002\u5c06\u8bc4\u8ff0\u6216\u9644\u52a0\u4fe1\u606f\u7b49\u8fd9\u4e00\u7c7b\u7684\u6ce8\u91ca\u653e\u5728\u76f8\u5173 Ada \u6784\u9020\u7684\u4e0b\u65b9<\/em>\u3002<\/p>\n\u7528\u4e00\u9875\u7684\u6574\u884c\u5bbd\u5728 Ada \u6784\u9020\u7684\u5f00\u5934\u5904\u5206\u7ec4\u3002\u907f\u514d\u5c06\u6ce8\u91ca\u653e\u5728 Ada \u6784\u9020\u7684\u540c\u4e00\u884c\u3002\u8fd9\u4e9b\u6ce8\u91ca\u5e38\u5e38\u53d8\u5f97\u4e0d\u5bf9\u9f50\u3002\u4f46\u662f\u5728\u8bf4\u660e\u4e00\u4e2a\u957f\u7684\u58f0\u660e\u65f6\uff0c\u5982\u679a\u4e3e\u7c7b\u578b\u76f4\u63a5\u91cf\uff0c\u8fd9\u6837\u7684\u6ce8\u91ca\u65b9\u5f0f\u662f\u53ef\u4ee5\u5bb9\u8bb8\u7684\u3002<\/p>\n
\u7528\u4e00\u4e2a\u5c0f\u7684\u5206\u5c42\u6b21\u7684\u6807\u51c6\u6ce8\u91ca\u5757\u6765\u8bf4\u660e\u5c0f\u8282\u7684\u6807\u9898\uff0c\u4f46\u8fd9\u4ec5\u4ec5\u9002\u7528\u4e8e\u5f88\u5927\u7684 Ada \u5355\u5143\uff08>200 \u884c\u7684\u58f0\u660e\u6216\u8005\u8bed\u53e5\uff09\uff1a<\/p>\n
--===========================================================\r\n--\r\n \u4e3b\u6807\u9898\r\n--\r\n--===========================================================\r\n\r\n-------------------------------------------------------------\r\n \u526f\u6807\u9898\r\n-------------------------------------------------------------\r\n\r\n --------------------\r\n \u5b50\u90e8\u5206\u7684\u5934\r\n --------------------<\/pre>\n\u5728\u8fd9\u79cd\u6807\u9898\u524d\u9762\u6240\u653e\u7684\u7a7a\u884c\u6570\u8981\u591a\u4e8e\u540e\u9762\u7684\u7a7a\u884c\u6570\uff0c\u4f8b\u5982\uff0c\u4e24\u884c\u5728\u524d\u4e00\u884c\u5728\u540e\u3002\u8fd9\u6837\u4f7f\u6807\u9898\u4e0e\u968f\u540e\u7684\u6b63\u6587\u5728\u89c6\u89c9\u4e0a\u76f8\u8054\u7cfb\u3002<\/p>\n
\u907f \u514d\u4f7f\u7528\u542b\u6709\u4fe1\u606f\u7684\u51fd\u6570\u5934\uff0c\u6bd4\u5982\u4f5c\u8005\u3001\u7535\u8bdd\u3001\u521b\u5efa\u548c\u4fee\u6539\u65e5\u671f\u3001\u5355\u5143\uff08\u6216\u6587\u4ef6\u540d\uff09\u7684\u4f4d\u7f6e\uff0c\u56e0\u4e3a\u8fd9\u4e9b\u4fe1\u606f\u5f88\u5feb\u5c31\u4f1a\u8fc7\u65f6\u3002\u5c06\u6240\u6709\u8005\u7248\u6743\u4fe1\u606f\u653e\u5728\u5355\u5143\u7684\u672b\u5c3e\uff0c\u5c24\u5176\u662f \u4f7f\u7528\u201cRational \u73af\u5883\u201d\u65f6\u3002\u5f53\u8bbf\u95ee\u4e00\u4e2a\u7a0b\u5e8f\u5305\u7684\u89c4\u683c\u8bf4\u660e\u6e90\u7801\u65f6 – \u4f8b\u5982\u5728\u201cRational \u73af\u5883\u201d\u4e2d\u6309 [Definition] – \u8bfb\u8005\u4e0d\u60f3\u6d4f\u89c8\u4e24\u9875\u6216\u8005\u4e09\u9875\u5bf9\u7406\u89e3\u7a0b\u5e8f\u65e0\u4efb\u4f55\u7528\u5904\u7684\u6587\u672c\u548c\/\u6216\u5b8c\u5168\u4e0d\u5e26\u6709\u4efb\u4f55\u7a0b\u5e8f\u4fe1\u606f\u7684\u6587\u672c\u3002\u907f\u514d\u4f7f\u7528\u5782\u76f4\u6eda\u52a8\u6761\u3001\u5c01\u95ed\u56fe\u6587\u6846\u6216\u65b9\u6846\uff0c\u8fd9\u4e9b\u4e1c\u897f\u53ea\u4f1a\u589e\u52a0\u89c6\u89c9 \u5e72\u6270\uff0c\u800c\u4e14\u96be\u4ee5\u4fdd\u6301\u4e00\u81f4\u6027\u3002\u7528 Rational CMVC \u9644\u6ce8\uff08\u6216\u8005\u5176\u5b83\u5f62\u5f0f\u7684\u8f6f\u4ef6\u5f00\u53d1\u6587\u4ef6\uff09\u6765\u4fdd\u5b58\u5355\u5143\u5386\u53f2\u3002<\/p>\n
\u4e0d\u8981\u91cd\u590d\u53ef\u4ee5\u5728\u5176\u5b83\u5730\u65b9\u627e\u5230\u7684\u4fe1\u606f\uff1b\u4ec5\u63d0\u4f9b\u4e00\u4e2a\u6307\u5411\u8be5\u4fe1\u606f\u7684\u6307\u9488\u5373\u53ef\u3002<\/p>\n
\u5c3d \u91cf\u91c7\u7528 Ada\uff0c\u800c\u975e\u6ce8\u91ca\u3002\u8981\u5b9e\u73b0\u8fd9\u4e00\u70b9\uff0c\u4f60\u53ef\u9009\u62e9\u66f4\u597d\u7684\u540d\u5b57\u3001\u9644\u52a0\u4e34\u65f6\u53d8\u91cf\u3001\u9650\u5b9a\u3001\u91cd\u547d\u540d\u3001\u5b50\u7c7b\u578b\u3001\u9759\u6001\u8868\u8fbe\u5f0f\u548c\u5c5e\u6027\uff0c\u8fd9\u4e9b\u90fd\u4e0d\u5f71\u54cd\u751f\u6210\u7684\u4ee3\u7801\uff08\u81f3\u5c11\u5728\u4e00\u4e2a\u597d\u7684 \u7f16\u8bd1\u5668\u4e2d\u4e0d\u5f71\u54cd\uff09\u3002\u4f60\u4e5f\u53ef\u4ee5\u91c7\u7528\u5c0f\u7684\u3001\u5d4c\u5165\u5f0f\u7684\u8c13\u8bcd\u51fd\u6570\uff0c\u5e76\u5c06\u4ee3\u7801\u5206\u6210\u51e0\u4e2a\u65e0\u53c2\u8fc7\u7a0b\uff0c\u8fd9\u4e9b\u8fc7\u7a0b\u7684\u540d\u5b57\u63d0\u4f9b\u4e86\u4ee3\u7801\u51e0\u4e2a\u79bb\u6563\u90e8\u5206\u7684\u6807\u9898\u3002<\/p>\n
\u793a\u4f8b\uff1a<\/p>\n
\u5c06\uff1a<\/p>\n
exit when Su.Locate (Ch, Str) \/= 0; \r\n-- Exit search loop when found it.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
Search_Loop : loop<\/p>\n
Found_It := Su.Locate (Ch, Str) \/= 0;<\/p>\n
exit Search_Loop when Found_It<\/p>\n
end Search_Loop;<\/p>\n
\u5c06\uff1a<\/p>\n
if Value < 'A' or else Value > 'Z' then\r\n-- If not in uppercase letters.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
subtype Uppercase_Letters is Character range 'A' ..'Z';\r\nif Value not in Uppercase_Letters then ...<\/pre>\n\u5c06\uff1a<\/p>\n
X := Green; -- This is the Green from \r\n-- Status, not from Color.\r\nraise Fatal_Error; -- From package Outer_Scope.\r\ndelay 384.0; -- Equal to 6 minutes and 24 \r\n-- seconds.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
The_Status := Green;<\/pre>\nor:<\/p>\n
X := Status'(Green);\r\nraise Outer_Scope.Fatal_Error;\r\ndelay 6.0 * Minute + 24.0 * Second;<\/pre>\n\u5c06\uff1a<\/p>\n
if Is_Valid (The_Table (Index).Descriptor(Rank).all) then\r\n-- This is the current value for the iteration; if it is \r\n-- valid we append to the list it contains.\r\nAppend (Item, To_List => The_Table (Index).Descriptor(Rank).Ptr);|<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
declare\r\nCurrent_Rank : Lists.List renames The_Table \r\n(Index).Descriptor (Rank);\r\nbegin\r\nif Is_Valid (Current_Rank.all) then\r\nAppend (Item, To_List => Current_Rank.Ptr);\r\nend if;\r\nend;<\/pre>\n\u6ce8\u610f\u6ce8\u91ca\u4e2d\u7684\u98ce\u683c\u3001\u8bed\u6cd5\u548c\u62fc\u5199\u3002\u4e0d\u8981\u4f7f\u7528\u8c61\u7535\u62a5\u5bc6\u7801\u4e00\u822c\u7684\u98ce\u683c\u3002\u4f7f\u7528\u62fc\u5199\u68c0\u67e5\u3002\uff08\u5728\u201cRational \u73af\u5883\u201d\u4e2d\u8c03\u7528 Speller.Check_Image\uff09\u3002<\/p>\n
\u4e0d\u8981\u4f7f\u7528\u65b9\u8a00\u5b57\u6bcd\u6216\u8005\u5176\u5b83\u975e\u82f1\u6587\u5b57\u7b26\u3002\u6839\u636e Ada Issue AI-339\uff0c\u975e\u82f1\u6587\u5b57\u7b26\u53ef\u88ab\u4e00\u4e9b\u5f00\u53d1\u7cfb\u7edf\u652f\u6301\uff0c\u4e00\u4e9b Ada \u7f16\u8bd1\u5668\u4ec5\u5728\u6ce8\u91ca\u4e2d\u652f\u6301\u3002\u4f46\u8fd9\u662f\u4e0d\u53ef\u79fb\u690d\u7684\uff0c\u5f88\u6709\u53ef\u80fd\u5728\u5176\u5b83\u7cfb\u7edf\u4e0a\u5931\u6548\u3002<\/p>\n
\u5bf9\u4e8e\u5b50\u7a0b\u5e8f\uff0c\u81f3\u5c11\u8bf4\u660e\uff1a<\/p>\n
\n- \u5b50\u7a0b\u5e8f\u7684\u7528\u9014\uff0c\u4f46\u8fd9\u53ea\u662f\u5f53\u4ece\u5b83\u7684\u540d\u5b57\u4e2d\u4e0d\u80fd\u660e\u786e\u4e86\u89e3\u5176\u7528\u9014\u65f6<\/li>\n
- \u5728\u4f55\u79cd\u6761\u4ef6\u4e0b\u751f\u6210\u4e86\u4f55\u79cd\u5f02\u5e38<\/li>\n
- \u5982\u679c\u6709\u7684\u8bdd\uff0c\u53c2\u6570\u7684\u524d\u7f6e\u6216\u540e\u7f6e\u6761\u4ef6<\/li>\n
- \u5176\u4ed6\u6570\u636e\u8bbf\u95ee\uff0c\u7279\u522b\u662f\u5f53\u6570\u636e\u88ab\u4fee\u6539\u65f6\uff1b\u8fd9\u5c24\u5176\u5305\u62ec\u6709\u526f\u4f5c\u7528\u7684\u51fd\u6570<\/li>\n
- \u6b63\u786e\u4f7f\u7528\u5b50\u7a0b\u5e8f\u6240\u9700\u7684\u4efb\u4f55\u9650\u5236\u6216\u9644\u52a0\u4fe1\u606f<\/li>\n<\/ul>\n
\u5bf9\u4e8e\u7c7b\u578b\u548c\u5bf9\u8c61\uff0c\u8981\u8bf4\u660e\u6240\u6709\u4e0d\u80fd\u901a\u8fc7 Ada \u8868\u8fbe\u7684\u4e0d\u53d8\u91cf\u6216\u9644\u52a0\u7ea6\u675f\u3002<\/p>\n
\u907f\u514d\u6ce8\u91ca\u4e2d\u7684\u91cd\u590d\u3002\u4f8b\u5982\uff0c\u6709\u5173\u7528\u9014\u7684\u90e8\u5206\u5e94\u662f\u201c\u5b83\u505a\u4ec0\u4e48\uff1f\u201d\u8fd9\u4e2a\u95ee\u9898\u7684\u7b80\u5355\u56de\u7b54\uff0c\u800c\u4e0d\u662f\u201c\u5b83\u600e\u4e48\u505a\uff1f\u201d\u7684\u56de\u7b54\u3002\u6982\u8ff0\u5e94\u662f\u8bbe\u8ba1\u7684\u7b80\u77ed\u8868\u8fbe\u3002\u8bf4\u660e\u4e2d\u4e0d\u5e94\u63cf\u8ff0\u6240\u7528\u7684\u7b97\u6cd5\uff0c\u800c\u5e94\u89e3\u91ca\u7a0b\u5e8f\u5305\u5e94\u5982\u4f55\u4f7f\u7528\u3002<\/p>\n
\u6570\u636e\u7ed3\u6784\u548c\u7b97\u6cd5\u90e8\u5206\u5e94\u542b\u6709\u8db3\u591f\u7684\u4fe1\u606f\u6765\u5e2e\u52a9\u7406\u89e3\u4e3b\u8981\u7684\u5b9e\u73b0\u7b56\u7565\uff08\u4ee5\u4fbf\u6b63\u786e\u4f7f\u7528\u7a0b\u5e8f\u5305\uff09\uff0c\u4f46\u65e0\u9700\u5305\u542b\u6240\u6709\u7684\u5b9e\u73b0\u7ec6\u8282\u6216\u4e0e\u6b63\u786e\u4f7f\u7528\u5305\u6beb\u4e0d\u76f8\u5173\u7684\u4fe1\u606f\u3002<\/p>\n
\n<\/a>\u7b2c\u4e94\u7ae0<\/em><\/h2>\n\u547d\u540d\u7ea6\u5b9a<\/h1>\n\u6982\u8ff0<\/h2>\n
\u7ed9 Ada \u5b9e\u4f53\uff08\u7a0b\u5e8f\u5355\u5143\u3001\u7c7b\u578b\u3001\u5b50\u7c7b\u578b\u3001\u5bf9\u8c61\u3001\u76f4\u63a5\u91cf\u3001\u5f02\u5e38\uff09\u6307\u5b9a\u597d\u540d\u5b57\u662f\u6240\u6709\u8f6f\u4ef6\u5e94\u7528\u7a0b\u5e8f\u8981\u8868\u8ff0\u7684\u6700\u7cbe\u5de7\u7684\u4e8b\u60c5\u4e4b\u4e00\u3002\u4e2d\u7b49\u89c4\u6a21\u5230\u5927\u89c4\u6a21\u7684\u5e94\u7528\u7a0b\u5e8f\u5b58\u5728\u7740\u53e6\u4e00\u4e2a\u95ee \u9898\uff1a\u540d\u5b57\u95f4\u7684\u51b2\u7a81\uff0c\u6216\u662f\u8981\u627e\u5230\u8db3\u591f\u7684\u540c\u4e49\u8bcd\u6765\u6307\u4ee3\u76f8\u540c\u73b0\u5b9e\u4e16\u754c\u4e2d\u76f8\u4f3c\u4f46\u53c8\u6709\u522b\u7684\u6982\u5ff5\uff08\u6216\u662f\u547d\u540d\u4e00\u4e2a\u7c7b\u578b\u3001\u5b50\u7c7b\u3001\u5bf9\u8c61\u3001\u53c2\u6570\uff09\u3002\u8fd9\u91cc\u53ef\u5229\u7528\u4e0d\u91c7\u7528\u201cuse\u201d \u5b50\u53e5\uff08\u6216\u53ea\u5728\u6781\u4e3a\u53d7\u9650\u7684\u6761\u4ef6\u4e0b\u91c7\u7528\uff09\u7684\u6cd5\u5219\u3002\u5728\u8bb8\u591a\u60c5\u5f62\u4e0b\uff0c\u8fd9\u4f7f\u5f97\u53ef\u4ee5\u4e0d\u5192\u6df7\u6dc6\u7684\u98ce\u9669\u800c\u7f29\u77ed\u540d\u5b57\uff0c\u5e76\u590d\u7528\u76f8\u540c\u7684\u63cf\u8ff0\u8bcd\u3002<\/p>\n
\u9009\u62e9\u6e05\u6670\u7684\u3001\u6613\u8bfb\u7684\u3001\u6709\u610f\u4e49\u7684\u540d\u79f0\u3002<\/p>\n
\u4e0e\u5176\u5b83\u7684\u7f16\u7a0b\u8bed\u8a00\u4e0d\u540c\uff0cAda \u4e0d\u5c06\u6807\u8bc6\u7b26\u7684\u957f\u5ea6\u9650\u5236\u5728 6\uff0c8 \u6216\u8005 15 \u4e2a\u5b57\u7b26\u5185\u3002\u77ed\u540d\u5b57\u6253\u5b57\u901f\u5ea6\u5feb\u4e0d\u662f\u91c7\u7528\u5b83\u4eec\u7684\u53ef\u4ee5\u4e3a\u4eba\u63a5\u53d7\u7684\u7406\u7531\u3002\u53ea\u6709\u4e00\u4e2a\u5b57\u6bcd\u7684\u6807\u8bc6\u7b26\u901a\u5e38\u8bf4\u660e\u9009\u62e9\u4e0d\u5f53\u6216\u662f\u61d2\u60f0\u3002\u53ef\u80fd\u6709\u51e0\u4e2a\u4f8b\u5916\uff0c\u5982\u5c06 E \u4f5c\u4e3a\u81ea\u7136\u5bf9\u6570\u7684\u5e95\uff0cPi\uff0c\u4ee5\u53ca\u5176\u5b83\u5c11\u6570\u51e0\u4e2a\u6613\u8fa8\u8bc6\u7684\u60c5\u51b5\u3002<\/p>\n
\u7528\u4e0b\u5212\u7ebf\u5c06\u4e00\u4e2a\u540d\u5b57\u4e2d\u7684\u4e0d\u540c\u5355\u8bcd\u5206\u9694\u5f00\u6765\uff1a<\/p>\n
Is_Name_Valid<\/code> \u4e0d\u662f IsNameValid<\/code><\/p>\n\u91c7\u7528\u5168\u540d\u800c\u4e0d\u662f\u7f29\u5199\u3002<\/p>\n
\u53ea\u91c7\u7528\u9879\u76ee\u8ba4\u53ef\u7684\u7f29\u7565\u8bcd\u3002<\/p>\n
\u53ea\u80fd\u662f\u5728\u4e24\u79cd\u60c5\u51b5\u4e4b\u4e00\u65f6\u91c7\u7528\u7f29\u5199\uff1a\u8be5\u7f29\u5199\u5728\u5e94\u7528\u9886\u57df\u4e2d\u5f88\u666e\u904d\uff08\u5982 FFT \u4ee3\u8868\u5085\u7acb\u53f6\u53d8\u6362\uff09\u6216\u8005\u6765\u81ea\u516c\u8ba4\u7f29\u5199\u7684\u9879\u76ee\u7ea7\u5217\u8868\u3002\u5426\u5219\uff0c\u5f88\u6709\u53ef\u80fd\u4f7f\u76f8\u4f3c\u4f46\u4e0d\u76f8\u540c\u7684\u7f29\u5199\u5230\u5904\u51fa\u73b0\uff0c\u5bfc\u81f4\u4ee5\u540e\u7684\u6df7\u6dc6\u548c\u9519\u8bef\uff08\u5982\u5c06 track_identification \u7f29\u5199\u6210 trid\u3001trck_id\u3001tr_iden\u3001tid\u3001tr_ident\u7b49\uff09\u3002<\/p>\n
\u5c11\u7528\u540e\u7f00\u8bf4\u660e Ada \u6784\u9020\u7684\u5206\u7c7b\u3002\u5b83\u4eec\u4e0d\u80fd\u63d0\u9ad8\u6613\u8bfb\u6027\u3002<\/p>\n
\u901a\u5e38\u6309\u7167 Ada \u5b9e\u4f53\u7684\u7c7b\u6765\u52a0\u540e\u7f00\uff0c\u5982\u7ed9\u7a0b\u5e8f\u5305\u52a0\u4e0a _Package\uff0c\u5f02\u5e38\u52a0\u4e0a _Error\uff0c\u7c7b\u578b\u52a0\u4e0a _Type\uff0c\u4ee5\u53ca\u5b50\u7a0b\u5e8f\u7684\u53c2\u6570\u52a0\u4e0a _Param\uff0c\u5bf9\u5e2e\u52a9\u9605\u8bfb\u548c\u7406\u89e3\u4ee3\u7801\u4e0d\u662f<\/em>\u5f88\u6709\u6548\u3002 \u800c\u52a0\u4e0a\u5982 _Array\uff0c_Record \u548c _Function \u8fd9\u6837\u7684\u540e\u7f00\u5219\u66f4\u7cdf\u3002Ada \u7f16\u8bd1\u5668\u548c\u8bfb\u8005\u90fd\u53ef\u4ee5\u6839\u636e\u4e0a\u4e0b\u6587\u4ece\u5b50\u7a0b\u5e8f\u4e2d\u5206\u8fa8\u4e00\u4e2a\u5f02\u5e38\uff1a\u663e\u7136\u53ea\u6709\u5f02\u5e38\u540d\u53ef\u4ee5\u5728 raise<\/em> \u8bed\u53e5\u6216\u5f02\u5e38\u5904\u7406\u4e2d\u51fa\u73b0\u3002\u8fd9\u4e9b\u540e\u7f00\u5728\u5982\u4e0b\u53d7\u9650\u7684\u6761\u4ef6\u4e0b\u53ef\u7528\uff1a<\/p>\n\n- \u5f53\u5408\u9002\u7684\u8bcd\u7684\u9009\u62e9\u8303\u56f4\u975e\u5e38\u6709\u9650\u65f6\uff0c\u7ed9\u5bf9\u8c61\u9009\u4e00\u4e2a\u6700\u597d\u7684\u540d\u5b57\u5e76\u52a0\u4e0a\u7c7b\u578b\u7684\u540e\u7f00\u3002<\/li>\n
- \u5bf9\u4e8e\u7c7b\u5c5e\u5355\u5143,\u603b\u53ef\u4ee5\u52a0\u4e0a\u5f62\u5982 _Generic \u7684\u540e\u7f00\uff0c\u6240\u4ee5\u5bf9\u4e00\u4e9b\u6216\u8bb8\u591a\u5b9e\u4f8b\u6765\u8bf4\uff0c\u53ef\u4ee5\u4e0d\u6dfb\u52a0\u8be5\u540e\u7f00\u800c\u4f7f\u7528\u4e0e\u5176\u76f8\u540c\u7684\u540d\u5b57\u3002<\/li>\n
- \u5f53\u5b83\u8868\u793a\u4e00\u4e2a\u5e94\u7528\u9886\u57df\u7684\u6982\u5ff5\u65f6\uff0c\u5982 Aircraft_Type\u3002<\/li>\n
- \u5f53\u91cd\u8981\u7684\u8bbe\u8ba1\u51b3\u7b56\u9700\u9ad8\u5ea6\u53ef\u89c1\u65f6\uff1a<\/li>\n<\/ul>\n
\u7c7b\u5c5e\u5f62\u53c2\u7c7b\u578b\u540e\u7f00\u4e3a _Constrained<\/p>\n
\u540e\u7f00\u4e3a _Pointer \u7684\u5b58\u53d6\u7c7b\u578b\u6216\u5176\u5b83\u975e\u76f4\u63a5\u6307\u4ee3\u7684\u5f62\u5f0f\uff1a_Handle \u6216 _Reference<\/p>\n
\u901a\u8fc7 _Or_Wait \u9690\u85cf\u4e86\u53ef\u80fd\u963b\u585e\u7684\u5165\u53e3\u8c03\u7528\u7684\u5b50\u7a0b\u5e8f<\/p>\n
\u5c06\u540d\u5b57\u8868\u8ff0\u51fa\u6765\uff0c\u4f7f\u5f97\u4ece\u4f7f\u7528<\/em>\u7684\u89d2\u5ea6\u770b\uff0c\u5b83\u4eec\u8fd8\u4e0d\u9519\u3002<\/p>\n\u8bd5\u60f3\u4e00\u4e2a\u5bfc\u51fa\u5b9e\u4f53\u53ef\u5728\u5176\u4e2d\u4f7f\u7528\u7684\u4e0a\u4e0b\u6587\uff0c\u5e76\u7ad9\u5728\u90a3\u4e2a\u89d2\u5ea6\u9009\u62e9\u4e00\u4e2a\u540d\u5b57\u3002\u4e00\u4e2a\u5b9e\u4f53\u4ec5\u88ab\u5b9a\u4e49\u4e00\u6b21\uff0c\u4f46\u5374\u88ab\u4f7f\u7528\u8bb8\u591a\u6b21\u3002\u8fd9\u4e00\u70b9\u5bf9\u4e8e\u5b50\u7a0b\u5e8f\u7684\u540d\u5b57\u53ca\u5176\u53c2\u6570\u6765\u8bf4\u5c24\u4e3a\u6b63\u786e\uff1b \u4f7f\u7528\u547d\u540d\u5173\u8054\u5173\u7cfb\u7684\u7ed3\u679c\u8c03\u7528\u5e94\u5c3d\u91cf\u4e0e\u81ea\u7136\u8bed\u8a00\u76f8\u8fd1\u3002\u8bb0\u4f4f\u7f3a\u5c11\u4f7f\u7528<\/em>\u5b50\u53e5\u4f7f\u5f97\u5927\u591a\u6570\u58f0\u660e\u5b9e\u4f53\u5fc5\u987b\u5177\u6709\u53d7\u9650\u540d\u3002\u5bf9\u4e8e\u6709\u53ef\u80fd\u5728\u7c7b\u5c5e\u5355\u5143\u4e2d\u6bd4\u5728\u4eab\u7528\u6a21\u5757\u90a3\u91cc\u4f7f\u7528\u5f97\u8fd8\u591a\u7684\u7c7b\u5c5e\u5f62\u53c2\u6765\u8bf4\uff0c\u5fc5\u987b\u5bfb\u627e\u4e00\u4e2a\u597d\u7684\u534f\u8c03\u529e\u6cd5\uff0c\u4f46\u662f\u7edd\u5bf9\u8981\u4fdd\u8bc1\u5b50\u7a0b\u5e8f\u7684\u5f62\u53c2\u5728\u4eab\u7528\u6a21\u5757\u7aef\u597d\u770b\u3002<\/p>\n\u4f7f\u7528\u82f1\u6587\u5355\u8bcd\u5e76\u62fc\u5199\u6b63\u786e\u3002<\/p>\n
\u8bed\u8a00\u7684\u6df7\u5408\uff08\u5982\u6cd5\u8bed\u548c\u82f1\u8bed\uff09\u5c06\u4f7f\u4ee3\u7801\u96be\u8bfb\uff0c\u6709\u65f6\u4f7f\u6807\u8bc6\u7b26\u7684\u610f\u4e49\u6478\u68f1\u4e24\u53ef\u3002 \u65e2\u7136 Ada \u7684\u5173\u952e\u5b57\u5df2\u662f\u82f1\u6587\u7684\uff0c\u5219\u8981\u6c42\u4f7f\u7528\u82f1\u6587\u5355\u8bcd\u3002\u6700\u597d\u91c7\u7528\u7f8e\u5f0f\u62fc\u6cd5\uff0c\u4ee5\u4fbf\u5229\u7528\u201cRational \u73af\u5883\u201d\u4e2d\u5185\u7f6e\u7684\u62fc\u5199\u68c0\u67e5\u3002<\/p>\n
\u4e0d\u8981\u91cd\u65b0\u5b9a\u4e49 Standard \u7a0b\u5e8f\u5305\u4e2d\u7684\u4efb\u4f55\u5b9e\u4f53\u3002\u8fd9\u662f\u7edd\u5bf9\u7981\u6b62\u7684\u3002<\/p>\n
\u8fd9\u6837\u505a\u5c06\u4ea7\u751f\u6df7\u6dc6\u548c\u4e25\u91cd\u7684\u9519\u8bef\u3002\u8be5\u6cd5\u5219\u53ef\u5ef6\u4f38\u81f3\u5176\u5b83\u9884\u5b9a\u4e49\u7684\u5e93\u5355\u5143\uff1aCalendar\uff0cSystem\u3002\u8fd9\u4e5f\u5305\u62ec Standard<\/em> \u6807\u8bc6\u7b26\u672c\u8eab\u3002<\/p>\n\u907f\u514d\u5bf9\u5176\u5b83\u9884\u5b9a\u4e49\u7a0b\u5e8f\u5305\u4e2d\u7684\u6807\u8bc6\u7b26\u91cd\u5b9a\u4e49\uff0c\u5982 System \u6216 Calendar\u3002<\/p>\n
\u4e0d\u8981\u4f7f\u7528\u5982\u4e0b\u7684\u6807\u8bc6\u7b26\uff1aWide_Character<\/strong> \u548c Wide_String<\/strong>\uff0c\u5b83\u4eec\u5c06\u5728 Ada 95 \u7684 Standard \u7a0b\u5e8f\u5305\u4e2d\u5f15\u5165\u3002\u4e0d\u8981\u5f15\u5165\u4e00\u4e2a\u540d\u4e3a Ada<\/strong> \u7684\u7f16\u8bd1\u5355\u5143\u3002<\/p>\n\u4e0d\u8981\u4f7f\u7528\u4ee5\u4e0b\u5355\u8bcd\u4f5c\u4e3a\u6807\u8bc6\u7b26\uff1aabstract<\/strong>\uff0caliased<\/strong>\uff0cprotected<\/strong>\uff0crequeue<\/strong>\uff0ctagged<\/strong> \u548c until<\/strong>\uff0c\u5b83\u4eec\u5728 Ada 95 \u5c06\u6210\u4e3a\u5173\u952e\u5b57\u3002<\/p>\n\u4e00\u4e9b\u7ed9\u5404\u79cd Ada \u5b9e\u4f53\u7684\u547d\u540d\u5efa\u8bae\u4e5f\u662f\u540c\u6837\u3002\u5047\u5b9a\u4e00\u822c\u60c5\u5f62\u4e0b\uff0c\u201c\u9762\u5411\u5bf9\u8c61\u201d\u98ce\u683c\u7684\u8bbe\u8ba1\u53d7\u6b22\u8fce\u3002\u8be6\u60c5\u8bf7\u53c2\u89c1\u9644\u5f55 A\u3002<\/p>\n
<\/a>\u7a0b\u5e8f\u5305<\/h2>\n\u5f53\u4e00\u4e2a\u7a0b\u5e8f\u5305\u5f15\u5165\u4e86\u67d0\u4e2a\u5bf9\u8c61\u7c7b\u65f6\uff0c\u7528\u8be5\u5bf9\u8c61\u7c7b\u7684\u540d\u5b57\u547d\u540d\u7a0b\u5e8f\u5305\uff0c\u901a\u5e38\u662f\u4e00\u4e2a\u5355\u6570\u5f62\u5f0f\u7684\u540d\u8bcd\uff0c\u82e5\u9700\u8981\uff08\u5373\u5b9a\u4e49\u4e86\u4e00\u4e2a\u5e26\u53c2\u6570\u7684\u7c7b\uff09\uff0c\u53ef\u52a0\u4e0a\u540e\u7f00 _Generic\u3002\u4ec5\u5f53\u5bf9\u8c61\u603b\u4ee5\u7fa4\u4f53\u5f62\u5f0f\u51fa\u73b0\u65f6\uff0c\u624d\u91c7\u7528\u590d\u6570\u5f62\u5f0f\u3002\u4f8b\u5982\uff1a<\/p>\n
package Text is\r\npackage Line is\r\npackage Mailbox is\r\npackage Message is\r\npackage Attributes is\r\npackage Subscriber is\r\npackage List_Generic is<\/pre>\n\u82e5\u4e00\u4e2a\u7a0b\u5e8f\u5305\u8bf4\u660e\u4e86\u4e00\u4e2a\u63a5\u53e3\u6216\u8005\u529f\u80fd\u5206\u7ec4\uff0c\u5e76\u4e14\u5b83\u4e0d\u4e0e\u4efb\u4f55\u5bf9\u8c61\u76f8\u5173\uff0c\u5219\u5e94\u5728\u5b83\u7684\u540d\u5b57\u4e2d\u5c06\u8fd9\u4e00\u70b9\u8868\u8ff0\u51fa\u6765\uff1a<\/p>\n
package Low_Layer_Interface is\r\npackage Math_Definitions is<\/pre>\n\u5f53\u4e00\u4e2a\u201c\u903b\u8f91\u201d\u5305\u7528\u5e73\u9762\u5206\u89e3 (flat decomposition)\uff0c\u9700\u8981\u4f5c\u4e3a\u51e0\u4e2a\u5305\u6765\u8868\u8fbe\u65f6\uff0c\u91c7\u7528\u9879\u76ee\u7ea7\u4e00\u81f4\u7684\u5217\u8868\u4e2d\u7684\u540e\u7f00\u3002\u4f8b\u5982\uff0c\u4e00\u4e2a\u903b\u8f91\u7a0b\u5e8f\u5305 Mailbox \u53ef\u5982\u4e0b\u5b9e\u73b0\uff1a<\/p>\n
package Mailbox_Definitions is\r\npackage Mailbox_Exceptions is\r\npackage Mailbox_Io is\r\npackage Mailbox_Utilities is\r\npackage Mailbox_Implementation is\r\npackage Mailbox_Main is<\/pre>\n\u5176\u5b83\u53ef\u63a5\u53d7\u7684\u540e\u7f00\u6709\uff1a<\/p>\n
_Test_Support \r\n_Test_Main \r\n_Log \r\n_Hidden_Definitions \r\n_Maintenance \r\n_Debug<\/pre>\n<\/a>\u7c7b\u578b<\/h2>\n\u5f53\u5728\u7a0b\u5e8f\u5305\u4e2d\u5b9a\u4e49\u4e00\u4e2a\u5bf9\u8c61\u7c7b\u8574\u6db5\u62f7\u8d1d\u8bed\u4e49\u65f6 – \u5373\u5f53\u7c7b\u578b\u53ef\u5b9e\u4f8b\u5316\u5e76\u4e14\u67d0\u79cd\u5f62\u5f0f\u7684\u4efb\u52a1\u5206\u914d\u53ef\u884c\u65f6\uff0c\u91c7\u7528\uff1a<\/p>\n
type Object is ...<\/pre>\n\u6ce8\u610f\u7c7b\u540d\u4e0d\u5e94\u5728\u6807\u8bc6\u7b26\u4e2d\u91cd\u590d\uff0c\u56e0\u4e3a\u5b83\u603b\u662f\u4ee5\u5b8c\u5168\u53d7\u9650\u7684\u5f62\u5f0f\u4f7f\u7528\uff1a<\/p>\n
Mailbox.Object\r\nLine.Object<\/pre>\n\u5f53\u5305\u542b\u5171\u4eab\u8bed\u4e49\u65f6 – \u5373\u7c7b\u578b\u7528\u5b58\u53d6\u503c\uff08\u6216\u8005\u5176\u5b83\u975e\u76f4\u63a5\u7684\u5f62\u5f0f\uff09\u5b9e\u73b0\uff0c\u5e76\u4e14\u8d4b\u503c\u8bed\u53e5\uff08\u82e5\u5b58\u5728\uff09\u4e0d\u590d\u5236\u5bf9\u8c61 – \u7528\u5982\u4e0b\u65b9\u5f0f\u8bf4\u660e\uff1a<\/p>\n
UL><\/p>\n
\ntype Handle is <\/code>\u7528\u4e8e\u975e\u76f4\u63a5\u5f15\u7528<\/li>\ntype Reference is <\/code>\u662f\u4e00\u4e2a\u53ef\u884c\u7684\u5907\u7528\u65b9\u6848<\/li>\n<\/ul>\n\u8fd9\u4e9b\u5143\u7d20\u5728\u5355\u72ec\u4f7f\u7528\u65f6\u4f5c\u540e\u7f00\uff0c\u524d\u9762\u52a0\u4e0a\u5305\u540d\uff0c\u8fd9\u6837\u5e76\u4e0d\u6e05\u695a\u6216\u975e\u5e38\u6478\u68f1\u4e24\u53ef\u3002<\/p>\n
\u5f53\u8574\u6db5\u591a\u4e2a\u5bf9\u8c61\u65f6\uff0c\u91c7\u7528\uff1a<\/p>\n
\ntype Set is <\/code>\u5f53\u6697\u542b\u5143\u7d20\u7684\u7279\u6b8a\u6027\u65f6<\/li>\ntype List is <\/code>\u5f53\u5305\u542b\u67d0\u79cd\u6b21\u5e8f\u65f6<\/li>\ntype Collection is<\/code> \u5f53\u65e2\u4e0d\u542b\u96c6\u5408\u4e5f\u4e0d\u542b\u5217\u8868\u8bed\u4e49\u65f6<\/li>\ntype Iterator is<\/code> \u5f53\u63d0\u4f9b\u4e86 Initialize\uff0cValue_Of\uff0cNext\uff0cIs_Done \u7b49\u539f\u8bed\u65f6
\n\uff08\u53c2\u89c1 6.5 \u8282\uff09<\/li>\n<\/ul>\n\u5bf9\u4e8e\u67d0\u4e2a\u5bf9\u8c61\u4e32\u7684\u6307\u5b9a\uff0c\u91c7\u7528\uff1a<\/p>\n
type Name is<\/code><\/p>\n\u4e3a\u4e86\u8fbe\u5230\u66f4\u597d\u7684\u6613\u8bfb\u6027\uff0c\u7c7b\u578b\u7684\u53d7\u9650\u540d\u4e5f\u5e94\u5728\u6574\u4e2a\u5b9a\u4e49\u5305\u5185\u4f7f\u7528\u3002\u201cRational \u73af\u5883\u201d\u4e2d\uff0c\u5f53\u5728\u5b50\u7a0b\u5e8f\u8c03\u7528\u4e2d\u91c7\u7528 [Complete] \u51fd\u6570\u65f6\uff0c\u4e0a\u8ff0\u65b9\u6cd5\u4e5f\u53ef\u4f7f\u8fd0\u884c\u66f4\u52a0\u597d\u3002<\/p>\n
\u4f8b\u5982\uff0c\u6ce8\u610f\u4e0b\u9762\u7684\u5b8c\u5168\u540d Subscriber.Object\uff1a<\/p>\n
package Subscriber is\r\ntype Object is private;\r\ntype Handle is access Subscriber.Object;\r\nsubtype Name is String;\r\npackage List is new List_Generic (Subscriber.Handle);\r\nMaster_List : Subscriber.List.Handle;\r\nprocedure Create (The_Handle : out Subscriber.Handle;\r\nWith_Name : in Subscriber.Name);\r\nprocedure Append (The_Subscriber : in Subscriber.Handle;\r\nTo_List : in out Subscriber.List.Handle);\r\nfunction Name_Of (The_Subscriber : Subscriber.Handle) return\r\nSubscriber.Name;\r\n ...\r\nprivate\r\ntype Object is\r\nrecord\r\nThe_Name : Subscriber.Name (1..20);\r\n ...\r\nend Subscriber;<\/pre>\n\u5728\u5176\u5b83\u60c5\u51b5\u4e0b\uff0c\u7c7b\u540d\u91c7\u7528\u540d\u8bcd\u6216\u8005\u4fee\u9970\u7b26 + \u540d\u8bcd\u3002\u7c7b\u578b\u53ef\u7528\u590d\u6570\u5f62\u5f0f\uff0c\u5bf9\u8c61\uff08\u53d8\u91cf\uff09\u540d\u91c7\u7528\u5355\u6570\uff1a<\/p>\n
type Point is record ...\r\ntype Hidden_Attributes is ( ...\r\ntype Boxes is array ...<\/pre>\n\u5bf9\u4e8e\u679a\u4e3e\u7c7b\u578b\uff0c\u5355\u72ec\u6216\u8005\u4f5c\u4e3a\u540e\u7f00\u4f7f\u7528 Mode\uff0cKind\uff0cCode \u7b49\u5355\u8bcd\u3002<\/p>\n
\u5bf9\u4e8e\u6570\u7ec4\u7c7b\u578b\uff0c\u5f53\u5df2\u5c06\u7b80\u5355\u540d\u7528\u4e8e\u7ec4\u4ef6\u7c7b\u578b\u65f6\uff0c\u53ef\u4ee5\u91c7\u7528\u540e\u7f00 _Table\u3002\u4ec5\u5f53\u6570\u7ec4\u7528\u8574\u6db5\u8bed\u4e49\u6765\u7ef4\u62a4\u65f6\uff0c\u624d\u91c7\u7528\u8c61 _Set \u548c _List \u8fd9\u6837\u7684\u540d\u5b57\u6216\u540e\u7f00\u3002Reserve _Vector \u548c _Matrix \u5e94\u7559\u4f5c\u76f8\u5e94\u7684\u6570\u5b66\u6982\u5ff5\u4f7f\u7528\u3002<\/p>\n
\u56e0\u4e3a\u8981\u907f\u514d\u5355\u6570\u7684\u4efb\u52a1\u5bf9\u8c61\uff08\u539f\u56e0\u5728\u540e\u6587\u89e3\u91ca\uff09\uff0c\u6240\u4ee5\u5373\u4f7f\u53ea\u6709\u4e00\u4e2a\u8be5\u7c7b\u578b\u7684\u5bf9\u8c61\u65f6\uff0c\u4e5f\u5e94\u5f15\u5165\u4efb\u52a1\u7c7b\u578b\u3002\u4e0b\u9762\u662f\u4f7f\u7528\u4e86\u4e00\u4e2a\u8c61 _Type \u8fd9\u6837\u7684\u7b80\u5355\u540e\u7f00\u4e4b\u540e\u4fbf\u4ee4\u4eba\u6ee1\u610f\u7684\u4f8b\u5b50\uff1a<\/p>\n
task type Listener_Type is ...\r\nfor Listener_Type'Storage_Size use ...\r\nListener : Listener_Type;<\/pre>\n\u7c7b\u4f3c\u5730\uff0c\u5f53\u7c7b\u578b\u540d\u91c7\u7528\u540d\u8bcd\uff08\u6216\u8005\u540d\u8bcd\u77ed\u8bed\uff09\u5b58\u5728\u51b2\u7a81\u65f6\uff0c\u6216\u8005\u51e0\u5904\u7684\u5bf9\u8c61\u540d\u6216\u53c2\u6570\u540d\u6709\u51b2\u7a81\u65f6\uff0c\u5728\u8be5\u7c7b\u578b\u540d\u540e\u52a0\u4e0a\u540e\u7f00 _Kind\uff0c\u800c\u8ba9\u5bf9\u8c61\u4f7f\u7528\uff08\u65e0\u540e\u7f00\u7684\uff09\u7b80\u5355\u540d\u8bcd\uff1a<\/p>\n
type Status_Kind is (None, Normal, Urgent, Red);\r\nStatus : Status_Kind := None;<\/pre>\n\u6216\u8005\uff0c\u5bf9\u4e8e\u603b\u4ee5\u590d\u6570\u51fa\u73b0\u7684\u4e8b\u7269\u7684\u7c7b\u578b\uff0c\u91c7\u7528\u590d\u6570\u5f62\u5f0f\u3002<\/p>\n
\u56e0\u4e3a\u5b58\u53d6\u7c7b\u578b\u5b58\u5728\u56fa\u6709\u7684\u5371\u5bb3\uff0c\u6240\u4ee5\u4f7f\u7528\u8005\u5e94\u5c0f\u5fc3\u3002\u4e00\u822c\u5b83\u4eec\u53eb\u505a Pointer\u3002\u5982\u679c\u540d\u5b57\u672c\u8eab\u610f\u4e49\u8fd8\u5f88\u6478\u68f1\u4e24\u53ef\uff0c\u5219\u5e94\u52a0\u4e0a\u540e\u7f00 _pointer\u3002\u4f5c\u4e3a\u540e\u5907\u65b9\u6848\uff0c\u4e5f\u53ef\u91c7\u7528 _Access \u505a\u540e\u7f00\u3002<\/p>\n
\u6709\u65f6\u91c7\u7528\u5d4c\u5957\u5b50\u7a0b\u5e8f\u5305\u6765\u5f15\u5165\u6b21\u7ea7\u62bd\u8c61\u53ef\u4ee5\u7b80\u5316\u547d\u540d\uff1a<\/p>\n
package Subscriber is ...\r\npackage Status is\r\ntype Kind is (Ok, Deleted, Incomplete, Suspended, \r\nPrivileged);\r\nfunction Set (The_Status : Subscriber.Status.Kind;\r\nTo_Subscriber : Subscriber.Handle);\r\nend Status;\r\n ...<\/pre>\n<\/a>\u5f02\u5e38<\/h2>\n\u56e0\u4e3a\u5f02\u5e38\u53ea\u80fd\u7528\u6765\u5904\u7406\u9519\u8bef\uff0c\u6240\u4ee5\u5e94\u4f7f\u7528\u540d\u8bcd\u6216\u540d\u8bcd\u77ed\u8bed\u6765\u6e05\u695a\u8868\u8fbe\u4e00\u4e2a\u8d1f\u9762\u7684\u610f\u4e49\uff1a<\/p>\n
Overflow, Threshold_Exceeded, Bad_Initial_Value<\/pre>\n\u5f53\u5728\u4e00\u4e2a\u7c7b\u7a0b\u5e8f\u5305\u4e2d\u5b9a\u4e49\u5f02\u5e38\u65f6\uff0c\u6807\u8bc6\u7b26\u65e0\u9700\u5305\u542b\u7c7b\u540d – \u4f8b\u5982 Bad_Initial_Subscriber_Value – \u56e0\u4e3a\u5f02\u5e38\u4e00\u76f4\u88ab\u7528\u4f5c Subscriber.Bad_Initial_Value\u3002<\/p>\n
\u91c7\u7528 Bad\uff0cIncomplete\uff0cInvalid\uff0cWrong\uff0cMissing \u6216\u8005 Illegal \u4e2d\u7684\u4e00\u4e2a\u5355\u8bcd\u4f5c\u4e3a\u540d\u5b57\u7684\u4e00\u90e8\u5206\uff0c\u800c\u4e0d\u662f\u7cfb\u7edf\u5730\u91c7\u7528\u4e0d\u4f20\u8fbe\u4efb\u4f55\u8be6\u7ec6\u4fe1\u606f\u7684 Error\uff1a<\/p>\n
Illegal_Data, Incomplete_Data<\/pre>\n<\/a>\u5b50\u7a0b\u5e8f<\/h2>\n\u8fc7\u7a0b\uff08\u548c\u4efb\u52a1\u5165\u53e3\uff09\u91c7\u7528\u52a8\u8bcd\u3002\u51fd\u6570\u540d\u91c7\u7528\u5e26\u6709\u5bf9\u8c61\u7c7b\u5c5e\u6027\u6216\u7279\u5f81\u7684\u540d\u8bcd\u3002\u8fd4\u56de\u5e03\u5c14\u503c\uff08\u8c13\u8bcd\uff09\u7684\u51fd\u6570\u4f7f\u7528\u5f62\u5bb9\u8bcd\uff08\u6216\u8fc7\u53bb\u5206\u8bcd\uff09\u3002<\/p>\n
Subscriber.Create\r\nSubscriber.Destroy\r\nSubscriber.List.Append\r\nSubscriber.First_Name -- Returns a string.\r\nSubscriber.Creation_Date -- Returns a date.\r\nSubscriber.List.Next\r\nSubscriber.Deleted -- Returns a Boolean.\r\nSubscriber.Unavailable -- Returns a Boolean.\r\nSubscriber.Remote<\/pre>\n\u5bf9\u4e8e\u8c13\u8bcd\uff0c\u5728\u4e00\u4e9b\u60c5\u51b5\u4e0b\u7ed9\u540d\u8bcd\u524d\u9762\u52a0\u4e0a\u524d\u7f00 Is_ \u6216 Has_ \u6216\u8bb8\u6709\u5e2e\u52a9\uff1b\u65f6\u6001\u8981\u51c6\u786e\u548c\u4e00\u81f4\uff1a<\/p>\n
function Has_First_Name ...\r\nfunction Is_Administrator ...\r\nfunction Is_First...\r\nfunction Was_Deleted ...<\/pre>\n\u5f53\u7b80\u5355\u540d\u79f0\u5df2\u4f5c\u4e3a\u7c7b\u578b\u540d\u6216\u679a\u4e3e\u578b\u76f4\u63a5\u91cf\u65f6\uff0c\u4e0a\u8ff0\u65b9\u6cd5\u6709\u7528\u3002<\/p>\n
\u8c13\u8bcd\u5e94\u4f7f\u7528\u80af\u5b9a\u5f0f\uff0c\u4e5f\u5c31\u662f\u8bf4\uff0c\u5176\u4e2d\u4e0d\u5e94\u542b\u6709\u201cNot_\u201d\u4e00\u8bcd\u3002<\/p>\n
\u5bf9\u4e8e\u666e\u901a\u64cd\u4f5c\uff0c\u7edf\u4e00\u4ece\u9879\u76ee\u53ef\u9009\u5217\u8868\uff08\u5217\u8868\u968f\u7740\u6211\u4eec\u5bf9\u7cfb\u7edf\u8ba4\u8bc6\u7684\u52a0\u6df1\u800c\u6269\u5c55\uff09\u4e2d\u9009\u62e9\u52a8\u8bcd\uff1a<\/p>\n
Create\r\nDelete\r\nDestroy\r\nInitialize\r\nAppend\r\nRevert\r\nCommit\r\nShow, Display<\/pre>\n\u8c13\u8bcd\u51fd\u6570\u548c\u5e03\u5c14\u578b\u7684\u53c2\u6570\u91c7\u7528\u80af\u5b9a\u5f0f\u3002\u5426\u5b9a\u5f0f\u7684\u540d\u5b57\u53ef\u80fd\u4ea7\u751f\u53cc\u91cd\u5426\u5b9a\uff08\u4f8b\u5982 Not Is_Not_Found\uff09\uff0c\u4ece\u800c\u4f7f\u4ee3\u7801\u96be\u8bfb\u3002<\/p>\n
function Is_Not_Valid (...) return Boolean\r\nprocedure Find_Client (With_The_Name : in Name;\r\nNot_Found : out Boolean)<\/pre>\n\u5e94\u5b9a\u4e49\u6210\uff1a<\/p>\n
function Is_Valid (...) return Boolean;\r\nprocedure Find_Client (With_The_Name: in Name;\r\nFound: out Boolean)<\/pre>\n\u8fd9\u624d\u8ba9\u4eab\u7528\u6a21\u5757\u6309\u5176\u6240\u9700\u7684\u90a3\u6837\u5b9e\u73b0\u4e86\u8868\u8fbe\u5f0f\u7684\u5426\u5b9a\uff08\u8fd9\u6837\u505a\u4e0d\u4f1a\u5bfc\u81f4\u8fd0\u884c\u65f6\u95f4\u5ef6\u957f\uff09\uff1a<\/p>\n
if not Is_Valid (...) then ....<\/pre>\n\u6709\u4e9b\u60c5\u51b5\u4e0b\uff0c\u901a\u8fc7\u4f7f\u7528\u53cd\u4e49\u8bcd\uff0c\u5982\u7528\u201cIs_Invalid\u201d\u6765\u4ee3\u66ff\u201cIs_Not_Valid\u201d\uff0c\u53ef\u4ee5\u4f7f\u5426\u5b9a\u8c13\u8bcd\u5728\u4e0d\u6539\u53d8\u8bed\u4e49\u7684\u60c5\u51b5\u4e0a\u53d8\u6210\u80af\u5b9a\u5f0f\u3002\u4f46\u662f\uff0c\u80af\u5b9a\u5f0f\u7684\u540d\u5b57\u66f4\u6613\u8bfb\uff1a \u201cIs_Valid\u201d\u6bd4\u201cnot Is_Invalid\u201d\u66f4\u6613\u7406\u89e3\u3002<\/p>\n
\u5f53\u8574\u6db5\u7740\u5927\u81f4\u76f8\u540c\u7684\u610f\u4e49\u65f6\uff0c\u91c7\u7528\u76f8\u540c\u7684\u5355\u8bcd\uff0c\u800c\u4e0d\u662f\u5bfb\u627e\u540c\u4e49\u8bcd\u6216\u53d8\u4f53\u3002\u56e0\u6b64\uff0c\u9f13\u52b1\u4f7f\u7528\u91cd\u8f7d\u6765\u63d0\u9ad8\u4ee3\u7801\u7684\u4e00\u81f4\u6027\uff0c\u9075\u5faa\u6700\u5c0f\u9650\u5ea6\u610f\u5916\u539f\u5219\u3002<\/p>\n
\u82e5\u5b50\u7a0b\u5e8f\u88ab\u7528\u505a\u5165\u53e3\u8c03\u7528\u7684\u201c\u5916\u8868\u201d (skins) \u6216\u8005\u201c\u5305\u88c5\u201d (wrappers)\uff0c\u5219\u7ed9\u5176\u540d\u5b57\u52a8\u8bcd\u52a0\u4e0a\u540e\u7f00 _Or_Wait\uff0c\u6216\u8005\u7ed9\u51fd\u6570\u53d6\u4e2a Wait_For_ \u77ed\u8bed\u52a0\u540d\u8bcd\u7684\u540d\u5b57\u6765\u53cd\u6620\u8fd9\u4e00\u70b9\uff0c\u8fd9\u6837\u53ef\u80fd\u6709\u7528\uff1a<\/p>\n
Subscriber.Get_Reply_Or_Wait\r\nSubscriber.Wait_For_Reply<\/pre>\n\u4e00\u4e9b\u64cd\u4f5c\u5e94\u4e00\u76f4\u4f7f\u7528\u76f8\u540c\u7684\u540d\u5b57\u6765\u7edf\u4e00\u5b9a\u4e49\uff1a<\/p>\n
\u5bf9\u4e8e\u8f6c\u6362\u5230\u5b57\u4e32\u548c\u4ece\u5b57\u4e32\u8f6c\u6362\u6765\u7684\u7c7b\u578b\u53d8\u6362\uff0c\u5bf9\u79f0\u51fd\u6570\u662f\uff1a<\/p>\n
function Image and function Value<\/pre>\n\u5bf9\u4e8e\u8f6c\u6362\u5230\u4f4e\u7ea7\u8868\u793a\u6cd5\uff08\u5982\u7528\u4e8e\u6570\u636e\u4ea4\u6362\u7684 Byte_String\uff09\u548c\u4ece\u4f4e\u7ea7\u8868\u793a\u6cd5\u8f6c\u6362\u8fc7\u6765\u7684\u7c7b\u578b\u53d8\u6362\uff0c\u5bf9\u79f0\u8fc7\u7a0b\u662f\uff1a<\/p>\n
procedure Read and Write<\/pre>\n\u5bf9\u4e8e\u5206\u914d\u6570\u636e\uff1a<\/p>\n
function Allocate (rather than Create)\r\nfunction Destroy (or Release, to express that the object will disappear)<\/pre>\n\u5f53\u7cfb\u7edf\u5730\u5904\u7406\u5b83\u4eec\u65f6\u91c7\u7528\u7edf\u4e00\u7684\u547d\u540d\uff0c\u7c7b\u578b\u5408\u6210\u5c06\u5bb9\u6613\u8bb8\u591a\u3002<\/p>\n
\u5bf9\u4e8e\u6d3b\u52a8\u7684\u8fed\u4ee3\u7a0b\u5e8f\uff0c\u5fc5\u987b\u5b9a\u4e49\u4ee5\u4e0b\u539f\u8bed\uff1a<\/p>\n
Initialize\r\nNext\r\nIs_Done\r\nValue_Of<\/pre>\n\u82e5\u53ef\u884c\uff0c\u8fd8\u8981\u5b9a\u4e49 Reset<\/code>\u3002\u82e5\u8981\u5728\u76f8\u540c\u7684\u4f5c\u7528\u57df\u8303\u56f4\u5185\u5f15\u5165\u51e0\u4e2a\u8fed\u4ee3\u7c7b\u578b\uff0c\u90a3\u4e48\u5e94\u91cd\u8f7d\u8fd9\u4e9b\u539f\u8bed\uff0c\u800c\u4e0d\u662f\u4e3a\u6bcf\u4e2a\u8fed\u4ee3\u7a0b\u5e8f\u5206\u522b\u5f15\u5165\u4e00\u5957\u5404\u4e0d\u76f8\u540c\u7684\u6807\u8bc6\u7b26\u3002\u53c2\u89c1 [BOO87]<\/a>\u3002<\/p>\n\u5f53\u91c7\u7528 Ada \u9884\u786e\u5b9a\u5c5e\u6027\u4f5c\u4e3a\u51fd\u6570\u540d\u65f6\uff0c\u8981\u4fdd\u8bc1\u5176\u7528\u6cd5\u4e0e\u4e00\u822c\u7684\u8bed\u4e49\u76f8\u540c\uff1a’First\uff0c’Last\uff0c’Length\uff0c’Image\uff0c’Value\uff0c\u7b49\u7b49\u3002 \u6ce8\u610f\uff0c\u51e0\u4e2a\u5c5e\u6027\uff08\u5982 ‘Range \u548c ‘Delta\uff09\u662f\u4e0d\u80fd\u7528\u505a\u51fd\u6570\u540d\u7684\uff0c\u56e0\u4e3a\u5b83\u4eec\u662f\u4fdd\u7559\u5b57\u3002<\/p>\n
<\/a>\u5bf9\u8c61\u548c\u5b50\u7a0b\u5e8f\uff08\u6216\u5165\u53e3\uff09\u53c2\u6570<\/h2>\n\u4e3a\u8868\u660e\u5176\u552f\u4e00\u6027\u6216\u662f\u8868\u660e\u8be5\u5b9e\u4f53\u662f\u6d3b\u52a8\u7684\u4e3b\u8981\u805a\u96c6\u5904\uff0c\u5728\u5bf9\u8c61\u6216\u53c2\u6570\u540d\u79f0\u524d\u52a0\u524d\u7f00\u201cThe\u201d\u6216\u201cThis\u201d\u3002\u8981\u8bf4\u660e\u4e00\u4e2a\u6b21\u8981\u3001\u4e34\u65f6\u3001\u8f85\u52a9\u7684\u5bf9\u8c61\uff0c\u5219\u52a0\u524d\u7f00\u201cA_\u201d\u6216\u201cCurrent_\u201d\uff1a<\/p>\n
procedure Change_Name (The_Subscriber : in Subscriber.Handle;\r\nThe_Name : in Subscriber.Name );\r\ndeclare\r\nA_Subscriber : Subscriber.Handle := Subscriber.First;\r\nbegin\r\n ...\r\nA_Subscriber := Subscriber.Next (The_Subscriber);\r\nend;<\/pre>\n\u5bf9\u4e8e\u5e03\u5c14\u578b\u7684\u5bf9\u8c61\uff0c\u91c7\u7528\u80af\u5b9a\u5f0f\u7684\u8c13\u8bcd\u5b50\u53e5\uff1a<\/p>\n
Found_It\r\nIs_Available<\/pre>\n\u4f46\u662f\uff1a<\/p>\n
Is_Not_Available<\/code> \u5fc5\u987b\u907f\u514d\u3002<\/p>\n\u5bf9\u4e8e\u4efb\u52a1\u5bf9\u8c61\uff0c\u5e94\u91c7\u7528\u4e00\u4e2a\u8574\u6db5\u4e86\u6d3b\u52a8\u5b9e\u4f53\u7684\u540d\u8bcd\u6216\u8005\u540d\u8bcd\u77ed\u8bed\uff1a<\/p>\n
Listener\r\nResource_Manager\r\nTerminal_Driver<\/pre>\n
\u9519\u8bef\u5904\u7406\u4e0e\u5f02\u5e38<\/a><\/h3>\n\u4f4e\u7ea7\u7f16\u7a0b<\/a><\/h3>\n\u8868\u793a\u5b50\u53e5\u548c\u5c5e\u6027<\/a>
\n\u65e0\u68c0\u67e5\u8f6c\u6362<\/a><\/h4>\n\u603b\u7ed3<\/a><\/h3>\n\u53c2\u8003\u6587\u732e<\/a><\/h3>\n\u8bcd\u6c47\u8868<\/a><\/h3>\n
\n<\/a>\u7b2c\u4e00\u7ae0<\/em><\/h2>\n\u5173\u4e8e\u672c\u6587\u6863<\/h1>\n
\u672c\u6587\u6863 Rational Unified Process – Ada \u7f16\u7a0b\u6307\u5357<\/em>\u662f\u4e00\u4e2a\u6807\u51c6\u7684\u6a21\u677f\uff0c\u4f60\u7684\u5f00\u53d1\u7ec4\u7ec7\u53ef\u4f9d\u6b64\u6d3e\u751f\u51fa\u4e00\u5957\u7a0b\u5e8f\u8bbe\u8ba1\u6807\u51c6\u3002\u8be5\u6307\u5357\u8be6\u7ec6\u8bf4\u660e\u4e86\u5e94\u5982\u4f55\u7f16\u5199 Ada \u7a0b\u5e8f\u3002\u672c\u6587\u670d\u52a1\u7684\u5bf9\u8c61\u662f\u6240\u6709\u5c06 Ada \u4f5c\u4e3a\u5b9e\u65bd\u8bed\u8a00\u6216\u8005\u4e00\u79cd\u8bf4\u660e\u63a5\u53e3\u6216\u6570\u636e\u7ed3\u6784\u7684\u8bbe\u8ba1\u8bed\u8a00\u7684\u5e94\u7528\u8f6f\u4ef6\u8bbe\u8ba1\u8005\u548c\u5f00\u53d1\u8005\u3002<\/p>\n\u6587\u4e2d\u6240\u63cf\u8ff0\u7684\u89c4\u5219\u56ca\u62ec\u4e86\u7a0b\u5e8f\u8bbe\u8ba1\u7684\u5927\u90e8\u5206\u65b9\u9762\u3002\u901a\u7528\u89c4\u5219\u9002\u7528\u4e8e\u7a0b\u5e8f\u5e03\u5c40\u3001\u547d\u540d\u7ea6\u5b9a\u548c\u6ce8\u91ca\u5e94\u7528\u3002\u7279\u6b8a\u89c4\u5219\u9002\u7528\u4e8e\u9009\u5b9a\u7684 Ada \u7279\u6027\uff0c\u5e76\u8bf4\u660e\u4e86\u7981\u7528\u6784\u9020\u3001\u63a8\u8350\u4f7f\u7528\u6a21\u5f0f\u548c\u7528\u4ee5\u63d0\u9ad8\u7a0b\u5e8f\u8d28\u91cf\u7684\u901a\u7528\u6280\u5de7\u3002<\/p>\n
\u9879\u76ee\u7684\u8bbe\u8ba1<\/em>\u6307\u5357\u548c\u5f53\u524d\u7684\u7f16\u7a0b<\/em>\u6307\u5357\u6709\u4e00\u5b9a\u7684\u91cd\u590d\uff0c\u662f\u6709\u610f\u8fd9\u6837\u505a\u7684\u3002\u4ecb\u7ecd\u7684\u8bb8\u591a\u7a0b\u5e8f\u8bbe\u8ba1\u89c4\u5219\uff0c\u5c24\u5176\u662f\u5728\u547d\u540d\u7ea6\u5b9a<\/em>\u4e2d\u7684\u89c4\u5219\uff0c\u7528\u4e8e\u79ef\u6781\u652f\u6301\u548c\u52a0\u5f3a\u8f6f\u4ef6\u8bbe\u8ba1\u4e2d\u7684\u9762\u5411\u5bf9\u8c61<\/em>\u65b9\u5f0f\u3002<\/p>\n\u6307\u5357\u6700\u521d\u7528\u4e8e Ada 83\u3002\u5b83\u542b\u6709\u4e0e Ada 95 \u517c\u5bb9\u7684\u89c4\u5219\uff0c\u4f46\u4e0d\u542b\u6709\u6539\u7248\u540e\u8bed\u8a00\u6807\u51c6\u65b0\u7279\u6027\u7684\u4f7f\u7528\u6307\u5357\uff0c\u4f8b\u5982\u6807\u8bc6\u7c7b\u578b\u3001\u5b50\u5355\u5143\u6216\u5c0f\u6570\u7c7b\u578b\u3002<\/p>\n
\u6587\u6863\u5927\u81f4\u6309\u7167 Ada Reference Manual \u7684\u7ed3\u6784\u6765\u7ec4\u7ec7 [ISO 8052]<\/a>\u3002<\/p>\n\u7b2c\u4e8c\u7ae0\u201c\u7b80\u4ecb<\/em>\u201d\u89e3\u91ca\u4e86\u6307\u5357\u6240\u57fa\u4e8e\u7684\u57fa\u672c\u539f\u7406\u5e76\u4ecb\u7ecd\u4e86\u6307\u5357\u5206\u7c7b\u3002<\/p>\n\u7b2c\u4e09\u7ae0\u201c\u4ee3\u7801\u5e03\u5c40<\/em>\u201d\u8bb2\u8ff0\u4e86\u7a0b\u5e8f\u6587\u672c\u7684\u4e00\u822c\u89c6\u89c9\u7ec4\u7ec7\u7ed3\u6784\u3002<\/p>\n\u7b2c\u56db\u7ae0\u201c\u6ce8\u91ca<\/em>\u201d\u7ed9\u51fa\u4e86\u5982\u4f55\u7528\u7ed3\u6784\u5316\u7684\u3001\u53ef\u7528\u7684\u548c\u53ef\u7ef4\u62a4\u7684\u65b9\u5f0f\u6765\u6ce8\u91ca\u8bf4\u660e\u4ee3\u7801\u3002<\/p>\n\u7b2c\u4e94\u7ae0\u201c\u547d\u540d\u7ea6\u5b9a<\/em>\u201d\u7ed9\u51fa\u6709\u5173\u547d\u540d\u8bed\u8a00\u5b9e\u4f53\u7684\u4e00\u822c\u89c4\u5219\u548c\u8303\u4f8b\u3002\u8fd9\u4e00\u7ae0\u7684\u5185\u5bb9\u5e94\u518d\u7ecf\u4fee\u6539\uff0c\u4ee5\u6ee1\u8db3\u7279\u5b9a\u9879\u76ee\u6216\u673a\u6784\u7684\u9700\u8981\u3002<\/p>\n\u7b2c\u516d\u7ae0\u201c\u58f0\u660e<\/em>\u201d\u548c\u7b2c\u4e03\u7ae0\u201c\u8868\u8fbe\u5f0f\u548c\u8bed\u53e5<\/em>\u201d\u5bf9\u6bcf\u79cd\u8bed\u8a00\u7ed3\u6784\u7ed9\u51fa\u4e86\u8fdb\u4e00\u6b65\u7684\u5efa\u8bae\u3002<\/p>\n\u7b2c\u516b\u7ae0\u201c\u53ef\u89c6\u6027\u95ee\u9898<\/em>\u201d\u548c\u7b2c\u4e5d\u7ae0\u201c\u7a0b\u5e8f\u7ed3\u6784\u548c\u7f16\u8bd1\u95ee\u9898<\/em>\u201d\u7ed9\u51fa\u4e86\u6709\u5173\u5168\u5c40\u6784\u5efa\u548c\u7a0b\u5e8f\u7ec4\u6210\u7684\u6307\u5bfc\u3002<\/p>\n\u7b2c\u5341\u7ae0\u201c\u5e76\u884c<\/em>\u201d\u5904\u7406\u8bed\u8a00\u4e2d\u6709\u5173\u4f7f\u7528\u4efb\u52a1\u548c\u65f6\u95f4\u76f8\u5173\u7279\u6027\u7684\u4e13\u95e8\u95ee\u9898\u3002<\/p>\n\u7b2c\u5341\u4e00\u7ae0\u201c\u9519\u8bef\u5904\u7406\u548c\u5f02\u5e38<\/em>\u201d\u7ed9\u51fa\u5982\u4f55\u7cfb\u7edf\u5730\u3001\u7b80\u4fbf\u5730\u4f7f\u7528\u6216\u4e0d\u4f7f\u7528\u5f02\u5e38\u6765\u5904\u7406\u9519\u8bef\u3002<\/p>\n\u7b2c\u5341\u4e8c\u7ae0\u201c\u4f4e\u7ea7\u7f16\u7a0b<\/em>\u201d\u5904\u7406\u8868\u793a\u5b50\u53e5\u7684\u95ee\u9898\u3002<\/p>\n\u7b2c\u5341\u4e09\u7ae0\u201c\u603b\u7ed3<\/em>\u201d\u627c\u8981\u590d\u8ff0\u4e86\u6700\u4e3a\u91cd\u8981\u7684\u6307\u5bfc\u65b9\u9488\u3002<\/p>\n\u672c\u6587\u6863\u53d6\u4ee3\u4e86 Ada Guidelines: Recommendation for Designers and programmers<\/em> \u4e2d\u7684 Application Note #15, Rational, Santa Clara, CA., 1990\u3002<\/p>\n
\n<\/a>\u7b2c\u4e8c\u7ae0<\/em><\/h2>\n\u7b80\u4ecb<\/h1>\n\u57fa\u672c\u539f\u5219<\/h2>\n
Ada \u8bed\u8a00\u7684\u8bbe\u8ba1\u5f88\u6709\u9488\u5bf9\u6027\u7684\u76ee\u7684\u5c31\u662f\u652f\u6301\u9ad8\u8d28\u91cf\u3001\u53ef\u9760\u3001\u53ef\u590d\u7528\u548c\u53ef\u79fb\u690d\u8f6f\u4ef6 [ISO 87, sect. 1.3]<\/a>\u3002\u7136\u800c\uff0c\u6ca1\u6709\u54ea\u4e00\u79cd\u8bed\u8a00\u4ec5\u9760\u5176\u672c\u8eab\u5c31\u53ef\u4ee5\u5b9e\u73b0\u4e0a\u8ff0\u76ee\u6807\u3002\u7a0b\u5e8f\u8bbe\u8ba1\u5fc5\u987b\u662f\u4e00\u4e2a\u6709\u826f\u597d\u89c4\u8303\u7684\u8fc7\u7a0b\u7684\u4e00\u90e8\u5206\u3002<\/p>\n\u6e05\u695a\u660e\u767d\u7684 Ada \u6e90\u4ee3\u7801\u662f\u672c\u6587\u4e2d\u5927\u591a\u6570\u6307\u5bfc\u65b9\u9488\u7684\u4e3b\u8981\u76ee\u6807\u3002\u8fd9\u4e00\u70b9\u662f\u5b9e\u73b0\u53ef\u9760\u6027\u548c\u53ef\u7ef4\u62a4\u6027\u7684\u4e3b\u8981\u56e0\u7d20\u3002\u6240\u8c13\u6e05\u695a\u660e\u767d\u7684\u4ee3\u7801\u53ef\u4ee5\u4ece\u4ee5\u4e0b\u4e09\u6761\u7b80\u5355\u7684\u57fa\u672c\u539f\u5219\u4e0a\u6765\u7406\u89e3\u3002<\/p>\n
\u6700\u5c0f\u9650\u5ea6\u7684\u610f\u5916<\/h3>\n
\u5728\u5176\u751f\u547d\u671f\u5185\uff0c\u4ee3\u7801\u66f4\u591a\u5730\u662f\u88ab\u8bfb\uff0c\u800c\u4e0d\u662f\u88ab\u5199\uff0c\u5c24\u5176\u662f\u5b83\u7684\u8bf4\u660e\u90e8\u5206\u3002\u7406\u60f3\u60c5\u51b5\u4e0b\uff0c\u4ee3\u7801\u8bfb\u8d77\u6765\u5e94\u8be5\u8c61\u4e00\u7bc7\u8bf4\u660e\u5b83\u505a\u4e86\u4ec0\u4e48\u7684\u82f1\u6587\u63cf\u8ff0\uff0c\u5b83\u5177\u6709\u4e00\u4e2a\u9644\u52a0\u4f18\u70b9\u662f\u53ef\u4ee5\u6267\u884c\u3002 \u7a0b\u5e8f\u66f4\u591a\u662f\u4e3a\u4eba\u7f16\u5199\uff0c\u800c\u4e0d\u662f\u4e3a\u8ba1\u7b97\u673a\u7f16\u5199\u3002\u9605\u8bfb\u7f16\u7801\u662f\u4e00\u4e2a\u590d\u6742\u7684\u8111\u529b\u8fc7\u7a0b\uff0c\u5b83\u53ef\u901a\u8fc7\u7edf\u4e00\u6807\u51c6\u6765\u7b80\u5316\uff0c\u5728\u672c\u6587\u4e2d\u8fd9\u4e00\u6307\u5bfc\u4e5f\u53eb\u201c\u6700\u5c0f\u9650\u5ea6\u610f\u5916\u539f\u5219<\/em>\u201d\u3002\u6574\u4e2a\u9879\u76ee\u4e2d\u7edf\u4e00\u6837\u5f0f\u662f\u8f6f\u4ef6\u5f00\u53d1\u56e2\u961f\u5728\u7f16\u7a0b\u6807\u51c6\u4e0a\u8fbe\u6210\u4e00\u81f4\u7684\u4e3b\u8981\u539f\u56e0\uff0c\u5b83\u4e0d\u5e94\u89c6\u4e3a\u4e00\u79cd\u60e9\u7f5a\u6216\u5bf9\u521b\u9020\u6027\u548c\u751f\u4ea7\u529b\u7684\u963b\u788d\u3002<\/p>\n\u5355\u70b9\u7ef4\u62a4<\/h3>\n
\u8fd9\u4e00\u6307\u5bfc\u6240\u57fa\u4e8e\u7684\u53e6\u4e00\u4e2a\u91cd\u8981\u539f\u5219\u662f\u5355\u70b9\u7ef4\u62a4\u539f\u5219<\/em>\u3002\u5e94\u5c3d\u91cf\u4f7f\u8bbe\u8ba1\u51b3\u7b56\u53ea\u5728 Ada \u6e90\u7801\u4e2d\u7684\u4e00\u5904\u8868\u8ff0\uff0c\u5b83\u7684\u591a\u6570\u7ed3\u8bba\u5e94\u7a0b\u5e8f\u5316\u5730\u4ece\u8be5\u5904\u6d3e\u751f\u51fa\u6765\u3002\u4e0d\u9075\u5b88\u8fd9\u4e00\u539f\u5219\u4f1a\u4e25\u91cd\u5f71\u54cd\u4ee3\u7801\u7684\u53ef\u7ef4\u62a4\u6027\u3001\u53ef\u9760\u6027\u548c\u53ef\u7406\u89e3\u6027\u3002<\/p>\n\u6700\u5c0f\u9650\u5ea6\u7684\u5e72\u6270<\/h3>\n
\u6700\u540e\uff0c\u4f5c\u4e3a\u6613\u8bfb\u6027\u7684\u4e3b\u8981\u4f5c\u7528\u56e0\u7d20\uff0c\u91c7\u7528\u6700\u5c0f\u5e72\u6270\u539f\u5219<\/em>\u3002\u5373\u907f\u514d\u5c06\u6e90\u4ee3\u7801\u4e0e\u89c6\u89c9\u201c\u5e72\u6270\u201d\u76f8\u6df7\u5408\uff1a\u5373\u680f\u3001\u6846\u4ee5\u53ca\u5176\u5b83\u4f4e\u4fe1\u606f\u91cf\u7684\u6587\u672c\u6216\u662f\u5bf9\u7406\u89e3\u8f6f\u4ef6\u529f\u80fd\u6ca1\u6709\u5e2e\u52a9\u7684\u4fe1\u606f\u3002<\/p>\n\u53ef\u79fb\u690d\u6027\u548c\u53ef\u590d\u7528\u6027\u4e5f\u662f\u5236\u5b9a\u8bb8\u591a\u6307\u5bfc\u65b9\u9488\u7684\u539f\u7531\u3002\u4ee3\u7801\u5e94\u53ef\u79fb\u690d\u5230\u4e0d\u540c\u76ee\u6807\u8ba1\u7b97\u673a\u7684\u51e0\u4e2a\u4e0d\u540c\u7f16\u8bd1\u5668\u4e0a\uff0c\u5e76\u6700\u7ec8\u79fb\u690d\u5230\u4e00\u4e2a\u66f4\u9ad8\u7ea7\u7684 Ada \u7248\u672c\u201cAda 95\u201d\u4e0a [PLO92,<\/a> TAY92]<\/a>\u3002<\/p>\n<\/a>\u5047\u8bbe<\/h2>\n\u8fd9\u91cc\u7684\u6307\u5bfc\u65b9\u9488\u6709\u51e0\u4e2a\u57fa\u672c\u5047\u8bbe\uff1a<\/p>\n
\u8bfb\u8005\u4e86\u89e3 Ada\u3002<\/h3>\n
\u5e94\u9f13\u52b1\u5728\u4efb\u4f55\u53ef\u5e26\u6765\u597d\u5904\u7684\u5730\u65b9\u4f7f\u7528 Ada \u7684\u9ad8\u7ea7\u7279\u6027\uff0c\u800c\u4e0d\u8981\u4ec5\u4ec5\u56e0\u4e3a\u4e00\u4e9b\u7a0b\u5e8f\u5458\u4e0d\u719f\u6089\u5b83\u4eec\u800c\u53cd\u5bf9\u91c7\u7528\u3002 \u8fd9\u662f\u9879\u76ee\u80fd\u4ece\u4f7f\u7528 Ada \u4e2d\u771f\u6b63\u83b7\u76ca\u7684\u552f\u4e00\u65b9\u5f0f\u3002Ada \u4e0d\u5e94\u8c61 Pascal \u6216 FORTRAN \u8bed\u8a00\u90a3\u6837\u4f7f\u7528\u3002\u4e0d\u9f13\u52b1\u5728\u6ce8\u91ca\u4e2d\u89e3\u91ca\u4ee3\u7801\uff1b\u76f8\u53cd\uff0cAda \u672c\u8eab\u5e94\u5c3d\u53ef\u80fd\u5730\u53d6\u4ee3\u6ce8\u91ca\u3002<\/p>\n
\u8bfb\u8005\u61c2\u82f1\u6587\u3002<\/h3>\n
\u8bb8\u591a\u547d\u540d\u7ea6\u5b9a\u5728\u8bcd\u6c47\u548c\u8bed\u6cd5\u4e0a\u57fa\u4e8e\u82f1\u6587\u3002\u6b64\u5916\uff0c Ada \u7684\u5173\u952e\u5b57\u90fd\u662f\u5e38\u7528\u7684\u82f1\u8bed\u5355\u8bcd\u3002\u5c06\u5176\u4e0e\u5176\u5b83\u8bed\u8a00\u6df7\u5408\u5c06\u964d\u4f4e\u4ee3\u7801\u7684\u6613\u8bfb\u6027\u3002<\/p>\n
\u4e25\u683c\u9650\u5236\u4f7f\u7528\u5b50\u53e5 (use clause) \u7684\u8fd0\u7528\u3002<\/h3>\n
\u547d\u540d\u7ea6\u5b9a\u548c\u5176\u5b83\u4e00\u4e9b\u89c4\u5219\u5047\u5b9a\u201cuse\u201d\u5b50\u53e5\u4e0d\u88ab\u8fd0\u7528\u3002<\/p>\n
\u5904\u7406\u7684\u662f\u4e00\u4e2a\u5927\u9879\u76ee\u3002<\/h3>\n
\u8bb8\u591a\u89c4\u5219\u5728\u5927\u578b\u9879\u76ee\u4e2d\u6700\u6709\u4ef7\u503c\uff0c\u867d\u7136\u51fa\u4e8e\u9879\u76ee\u7ea7\u6216\u516c\u53f8\u7ea7\u5b9e\u73b0\u548c\u7edf\u4e00\u7684\u76ee\u7684\uff0c\u5b83\u4eec\u4e5f\u5728\u5c0f\u578b\u7cfb\u7edf\u4e2d\u4f7f\u7528\u3002<\/p>\n
\u6e90\u7801\u5728\u201cRational \u73af\u5883\u201d (Rational Environment) \u4e2d\u5f00\u53d1\u3002<\/h3>\n
\u901a\u8fc7\u8fd0\u7528\u201cRational \u73af\u5883\u201d (Rational Environment)\uff0c\u4e00\u4e9b\u95ee\u9898\u5982\u4ee3\u7801\u5e03\u5c40\u3001\u5c01\u95ed\u6784\u9020\u4e2d\u7684\u6807\u8bc6\u7b26\u7b49\u5c31\u5728 Ada \u7f16\u8f91\u5668\u548c\u683c\u5f0f\u5668\u4e2d\u5904\u7406\u4e86\u3002 \u4f46\u662f\u672c\u6587\u4e2d\u7684\u5e03\u5c40\u5efa\u8bae\u9002\u7528\u4e8e\u4efb\u4f55\u5f00\u53d1\u5e73\u53f0\u3002<\/p>\n
\u7a0b\u5e8f\u8bbe\u8ba1\u9075\u5faa\u9762\u5411\u5bf9\u8c61\u7684\u65b9\u6cd5\u3002<\/h3>\n
\u8bb8\u591a\u89c4\u5219\u652f\u6301\u5c06 Ada \u7279\u6027\u548c\u7279\u5b9a\u547d\u540d\u7ea6\u5b9a\u7684\u9762\u5411\u5bf9\u8c61 (OO) \u6982\u5ff5\u7684\u7cfb\u7edf\u6620\u5c04\u3002<\/p>\n
<\/a>\u6307\u5357\u5206\u7c7b<\/h2>\n\u8fd9\u4e9b\u6307\u5bfc\u65b9\u9488\u5e76\u975e\u540c\u7b49\u91cd\u8981\u3002\u5b83\u4eec\u5927\u81f4\u9075\u5faa\u4ee5\u4e0b\u7684\u7b49\u7ea7\uff1a<\/p>\n
\u63d0\u793a\uff1a<\/h3>\n
\u8be5\u6307\u5bfc\u65b9\u9488\u4ec5\u662f\u4e00\u6761\u7b80\u5355\u7684\u5efa\u8bae\uff1b\u4e0d\u9075\u5b88\u5b83\u4e5f\u4e0d\u4f1a\u6709\u4ec0\u4e48\u5b9e\u8d28\u6027\u7684\u635f\u5bb3\uff0c\u91c7\u7528\u6216\u662f\u4e0d\u91c7\u7528\u5b83\u4eec\u4ec5\u662f\u4e2a\u4eba\u559c\u597d\u95ee\u9898\u3002\u6587\u4e2d\u7684\u63d0\u793a\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u5efa\u8bae\uff1a<\/h3>\n
\u8be5\u6307\u5bfc\u65b9\u9488\u901a\u5e38\u66f4\u591a\u5730\u57fa\u4e8e\u6280\u672f\u7684\u89c2\u70b9\uff1b\u5b83\u53ef\u80fd\u4f1a\u5f71\u54cd\u5230\u4ee3\u7801\u7684\u53ef\u79fb\u690d\u6027\u6216\u53ef\u590d\u7528\u6027\uff0c\u5e76\u5728\u4e00\u4e9b\u5b9e\u65bd\u4e2d\u5f71\u54cd\u6027\u80fd\u3002 \u9664\u975e\u6709\u5408\u9002\u7684\u7406\u7531\uff0c\u5426\u5219\u5fc5\u987b\u9075\u5b88\u5efa\u8bae\u3002\u6587\u4e2d\u63d0\u5230\u4e00\u4e9b\u4f8b\u5916\u7684\u60c5\u51b5\u3002\u6587\u4e2d\u7684\u5efa\u8bae\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u9650\u5236\uff1a<\/h3>\n
\u6709\u7591\u95ee\u7684\u7279\u6027\u4f7f\u7528\u8d77\u6765\u5371\u9669\uff0c\u4f46\u5b83\u5e76\u4e0d\u88ab\u5b8c\u5168\u7981\u6b62\uff1b\u5e94\u7528\u8be5\u7279\u6027\u7684\u51b3\u5b9a\u5e94\u5728\u9879\u76ee\u7ea7\u4e0a\u505a\u51fa\uff0c\u5e76\u4e14\u51b3\u5b9a\u5e94\u8be5\u662f\u9ad8\u5ea6\u53ef\u89c1\u7684\u3002\u6587\u4e2d\u7684\u9650\u5236\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u8981\u6c42\uff1a<\/h3>\n
\u8fdd\u80cc\u5b83\u5b9a\u5c06\u5bfc\u81f4\u4e0d\u597d\u7684\u3001\u4e0d\u53ef\u9760\u7684\u6216\u662f\u4e0d\u53ef\u79fb\u690d\u7684\u4ee3\u7801\u3002 \u8981\u6c42\u4e0d\u53ef\u8fdd\u80cc\u3002\u6587\u4e2d\u7684\u8981\u6c42\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u201cRational \u8bbe\u8ba1\u5de5\u5177\u201d (Rational Design Facility) \u5c06\u7528\u6765\u51cf\u5c11\u53d7\u9650\u7279\u6027\u7684\u4f7f\u7528\u5e76\u52a0\u5f3a\u5fc5\u9700\u6cd5\u5219\u548c\u8bb8\u591a\u5efa\u8bae\u7684\u8fd0\u7528\u3002<\/p>\n
\u4e0e\u8bb8\u591a\u5176\u5b83\u7684 Ada \u7a0b\u5e8f\u8bbe\u8ba1\u6807\u51c6\u4e0d\u540c\u7684\u662f\uff1a\u4e8b\u5b9e\u4e0a\uff0c\u8fd9\u4e9b\u6307\u5bfc\u65b9\u9488\u4e2d\u53ca\u5c11\u6709\u5b8c\u5168\u7981\u7528\u7684\u3002\u597d\u7684\u8f6f\u4ef6\u7684\u5173\u952e\u5728\u4e8e\uff1a<\/p>\n
\n- \u4e86\u89e3\u6bcf\u79cd\u7279\u6027\uff0c\u4e86\u89e3\u5b83\u7684\u5c40\u9650\u548c\u53ef\u80fd\u7684\u5371\u9669<\/li>\n
- \u51c6\u786e\u4e86\u89e3\u8fd9\u79cd\u7279\u6027\u5728\u4f55\u79cd\u573a\u5408\u53ef\u4ee5\u5b89\u5168\u4f7f\u7528<\/li>\n
- \u8ba9\u4f7f\u7528\u8be5\u7279\u6027\u7684\u51b3\u7b56\u9ad8\u5ea6\u53ef\u89c1<\/li>\n
- \u5341\u5206\u5c0f\u5fc3\u8c28\u614e\u5730\u5728\u9002\u5f53\u5904\u4f7f\u7528\u8be5\u7279\u6027\u3002<\/li>\n<\/ul>\n
<\/a>\u6700\u6839\u672c\u7684\u539f\u5219<\/h2>\n\u4f7f\u7528\u5e38\u8bc6\u3002<\/p>\n
\u5f53\u65e0\u6cd5\u627e\u5230\u53ef\u7528\u7684\u89c4\u5219\u6216\u6307\u5357\uff0c\u5f53\u89c4\u5219\u660e\u663e\u4e0d\u9002\u7528\uff0c\u5f53\u5176\u5b83\u4e00\u5207\u90fd\u5931\u8d25\u65f6\uff1a\u4f7f\u7528\u5e38\u8bc6\uff0c\u5e76\u6838\u67e5\u57fa\u672c\u539f\u5219\u3002\u8fd9\u6761\u6cd5\u5219\u51cc\u9a7e\u4e8e\u5176\u5b83\u6240\u6709\u6cd5\u5219\u4e4b\u4e0a\u3002\u5e38\u8bc6\u662f\u5fc5\u4e0d\u53ef\u5c11\u7684<\/em>\u3002<\/p>\n
\n<\/a>\u7b2c\u4e09\u7ae0<\/em><\/h2>\n\u4ee3\u7801\u5e03\u5c40<\/h1>\n\u6982\u8ff0<\/h2>\n
\u4e00\u4e2a\u7a0b\u5e8f\u5355\u5143\u7684\u5e03\u5c40\u5b8c\u5168\u5728\u201cRational \u73af\u5883\u683c\u5f0f\u5668\u201d (Rational Environment Formatter) \u7684\u63a7\u5236\u4e4b\u4e0b\uff0c\u9664\u4e86\u5728\u6ce8\u91ca\u548c\u7a7a\u767d\u5904\u5185\uff0c\u7a0b\u5e8f\u5458\u4e0d\u5fc5\u8fc7\u591a\u62c5\u5fc3\u7a0b\u5e8f\u7684\u5e03\u5c40\u3002\u8fd9\u4e2a\u5de5\u5177\u6240\u91c7\u7528\u7684\u683c\u5f0f\u7ea6\u5b9a\u5728 Reference Manual for the Ada Programming Language \u7684 Appendix E \u4e2d\u8868\u8ff0 [ISO87]<\/a>\u3002 \u7279\u522b\u662f\uff0c\u4ed6\u4eec\u5efa\u8bae\u7ed3\u6784\u5316\u6784\u9020\u7684\u5f00\u59cb\u548c\u7ed3\u675f\u5904\u7684\u5173\u952e\u5b57\u5e94\u5782\u76f4\u5bf9\u9f50\u3002\u4e00\u4e2a\u6784\u9020\u7684\u6807\u8bc6\u7b26\u4e5f\u5e94\u7cfb\u7edf\u6027\u5730\u5728\u6784\u9020\u7684\u672b\u5c3e\u91cd\u590d\u3002<\/p>\n\u683c\u5f0f\u5668\u7684\u786e\u5207\u884c\u4e3a\u7531\u4e00\u7cfb\u5217\u7684\u5e93\u5f00\u5173<\/em>\u5728\u4e00\u4e2a\u901a\u7528\u6a21\u578b\u4e16\u754c (model world) \u57fa\u7840\u4e0a\u63a7\u5236\uff0c\u8fd9\u4e9b\u5e93\u5f00\u5173\u5728\u6574\u4e2a\u9879\u76ee\u8fc7\u7a0b\u4e2d\u63a5\u6536\u4e00\u5957\u7edf\u4e00\u7684\u503c\u3002\u76f8\u5173\u7684\u5f00\u5173\u4ee5\u53ca\u5b83\u4eec\u5728\u6211\u4eec\u6240\u5efa\u8bae\u7684\u6a21\u578b\u4e16\u754c<\/em>\u4e2d\u7684\u901a\u7528\u503c\u5217\u8868\u5982\u4e0b\u3002<\/p>\n<\/a>\u5b57\u6bcd\u5927\u5c0f\u5199<\/h2>\nFormat .Id_Case : Letter_Case := Capitalized<\/h3>\n
\u8be6\u7ec6\u8bf4\u660e Ada \u5355\u5143\u4e2d\u6807\u8bc6\u7b26\u7684\u5b57\u6bcd\u5927\u5c0f\u5199\uff1a\u6700\u5f00\u59cb\u7684\u5b57\u6bcd\u4ee5\u53ca\u6bcf\u4e2a\u4e0b\u5212\u7ebf\u4e4b\u540e\u7684\u7b2c\u4e00\u4e2a\u5b57\u6bcd\u7528\u5927\u5199\u3002\u5927\u5199\u662f\u8bfb\u8005\u6700\u6613\u8bfb\u7684\u5f62\u5f0f\uff0c\u5177\u6709\u4f17\u591a\u73b0\u4ee3\u5c4f\u5e55\u548c\u6fc0\u5149\u6253\u5370\u673a\u5b57\u4f53\u3002<\/p>\n
Format .Keyword_Case : Letter_Case := Lower<\/h3>\n
\u8bf4\u660e Ada \u5173\u952e\u5b57\u7684\u5927\u5c0f\u5199\u3002\u8fd9\u5c06\u5b83\u4eec\u4e0e\u6807\u8bc6\u7b26\u7565\u5fae\u533a\u5206\u5f00\u6765\u3002<\/p>\n
Format .Number_Case : Letter_Case := Upper<\/h3>\n
\u8bf4\u660e\u6d6e\u70b9\u76f4\u63a5\u91cf\u4e2d\u5b57\u6bcd\u201cE\u201d\u548c\u57fa\u672c\u76f4\u63a5\u91cf\u4e2d\u57fa\u672c\u6570\u5b57\uff08\u201cA\u201d \u5230 \u201cF\u201d\uff09\u7684\u5927\u5c0f\u5199\u3002<\/p>\n
<\/a>\u7f29\u8fdb<\/h2>\n\u4e00\u4e2a Ada \u5355\u5143\u6309\u7167 Ada Reference Manual \u4e2d Appendix E \u6240\u8bf4\u7684\u4e00\u822c\u7ea6\u5b9a\u6765\u7f16\u6392\u683c\u5f0f [ISO87]<\/a>\u3002\u8fd9\u5c31\u662f\u8bf4\uff0c\u4e00\u4e2a\u7ed3\u6784\u5316\u6784\u9020\u7684\u5f00\u59cb\u548c\u7ed3\u675f\u5904\u7684\u5173\u952e\u5b57\u5e94\u8be5\u5bf9\u9f50\u3002 \u4f8b\u5982\uff0c\u201cloop\u201d\u548c\u201cend loop\u201d\uff0c\u201crecord\u201d\u548c\u201cend record\u201d\u3002\u5728\u7ed3\u6784\u5316\u6784\u9020\u5185<\/em>\u7684\u5355\u5143\u5e94\u5411\u53f3\u7f29\u8fdb<\/em>\u3002<\/p>\nFormat .Major_Indentation : Indent_Range := 3<\/h3>\n
\u8bf4\u660e\u683c\u5f0f\u5668\u4ee4\u5982\u201cif\u201d\u8bed\u53e5\u3001\u201ccase\u201d\u8bed\u53e5\u548c\u201cloop\u201d\u8bed\u53e5\u8fd9\u6837\u7684\u7ed3\u6784\u5316\uff08\u4e3b\u8981\u7684\uff09\u6784\u9020\u7f29\u8fdb\u7684\u5217\u6570\u3002<\/p>\n
Format .Minor_Indentation : Indent_Range := 2<\/h3>\n
\u8bf4\u660e\u683c\u5f0f\u5668\u4f7f\u6b21\u8981\u6784\u9020\u7f29\u8fdb\u7684\u5217\u6570\uff1a \u8bb0\u5f55\u7684\u58f0\u660e\u3001\u53d8\u4f53\u8bb0\u5f55\u7684\u58f0\u660e\u3001\u7c7b\u578b\u7684\u58f0\u660e\u3001\u5f02\u5e38\u5904\u7406\u3001\u9009\u62e9\u8bed\u53e5\u3001case \u8bed\u53e5\u3001\u547d\u540d\u548c\u6807\u5fd7\u8bed\u53e5\u3002<\/p>\n
<\/a>\u884c\u7684\u957f\u5ea6\u548c\u884c\u7684\u5206\u9694<\/h2>\nFormat .Line_Length : Line_Range := 80<\/h3>\n
\u8bf4\u660e\u6362\u884c\u524d\u683c\u5f0f\u5668\u663e\u793a Ada \u5355\u5143\u4e2d\u7684\u884c\u6240\u91c7\u7528\u7684\u5217\u6570\u3002\u8fd9\u4f7f\u5f97\u683c\u5f0f\u5316\u7684\u5355\u5143\u53ef\u7528\u4f20\u7edf\u7684 VT100 \u7c7b\u7ec8\u7aef\u663e\u793a\u3002<\/p>\n
Format .Statement_Indentation : Indent_Range := 3<\/h3>\n
\u8bf4\u660e\u5f53\u4e00\u6761\u8bed\u53e5\u957f\u4e8e Line_Length\uff0c\u5fc5\u987b\u8981\u65ad\u5f00\u65f6\uff0c\u683c\u5f0f\u5668\u5e94\u4f7f\u7b2c\u4e8c\u884c\u548c\u540e\u7eed\u884c\u7f29\u8fdb\u591a\u5c11\u5217\u3002\u53ea\u6709\u5f53\u4e0d\u5b58\u5728\u8bcd\u6cd5\u6784\u9020\u53ef\u8ba9\u7f29\u8fdb\u7684\u4ee3\u7801\u5bf9\u9f50\u65f6\uff0c\u683c\u5f0f\u5668\u624d\u4ee4\u4ee3\u7801\u7f29\u8fdb Statement_Indentation \u4e2a\u5217\u3002<\/p>\n
Format .Statement_Length : Line_Range := 35<\/h3>\n
\u8bf4\u660e\u5f53\u663e\u793a\u4e00\u4e2a\u8bed\u53e5\u65f6\uff0c\u6bcf\u884c\u6240\u4fdd\u7559\u7684\u5217\u6570\u3002 \u5982\u679c\u5f53\u524d\u7f29\u8fdb\u7a0b\u5ea6\u6240\u5141\u8bb8\u7684\u4e00\u884c\u4e2d\u7684\u5217\u6570\u5c0f\u4e8e Statement_Length\uff0c\u90a3\u4e48\u683c\u5f0f\u5668\u5c06 Wrap_Indentation \u4f5c\u4e3a\u65b0\u7684\u7f29\u8fdb\u7a0b\u5ea6\u3002\u6b64\u6cd5\u53ef\u9632\u6b62\u5d4c\u5957\u592a\u6df1\u7684\u8bed\u53e5\u663e\u793a\u65f6\u8d85\u51fa\u53f3\u8fb9\u754c\u3002<\/p>\n
Format .Wrap_Indentation : Line_Range := 16<\/h3>\n
\u8bf4\u660e\u5f53\u524d\u7684\u7f29\u8fdb\u7a0b\u5ea6\u4e0d\u4e0d\u8db3 Statement_Length \u65f6\uff0c\u683c\u5f0f\u5668\u5728\u4e0b\u4e00\u884c\u5f00\u5934\u5904\u5e94\u7f29\u8fdb\u7684\u5217\u6570\u3002\u6b64\u6cd5\u53ef\u9632\u6b62\u5d4c\u5957\u592a\u6df1\u7684\u8bed\u53e5\u663e\u793a\u65f6\u8d85\u51fa\u53f3\u8fb9\u754c\u3002<\/p>\n
<\/a>\u5bf9\u9f50<\/h2>\nFormat .Consistent_Breaking : Integer := 1<\/h3>\n
\u63a7\u5236\u5f62\u5982 (xxx:aaa; yyy:bbb) \u7684\u5217\u8868\u683c\u5f0f\uff0c\u8be5\u5217\u8868\u51fa\u73b0\u5728\u5b50\u7a0b\u5e8f\u7684\u5f62\u53c2\u8bf4\u660e\u5904\u548c\u7c7b\u578b\u58f0\u660e\u4e2d\u7684\u5224\u522b\u5f0f\u5904\u3002\u5b83\u4e5f\u63a7\u5236\u5f62\u5982 (xxx=>aaa, yyy=>bbb) \u7684\u5217\u8868\u7684\u683c\u5f0f\uff0c\u8be5\u5217\u8868\u51fa\u73b0\u5728\u5b50\u7a0b\u5e8f\u8c03\u7528\u548c\u805a\u96c6\u5904\u3002\u56e0\u4e3a\u8be5\u9009\u9879\u975e\u96f6\uff08\u771f\uff09\uff0c\u6240\u4ee5\u5f53\u4e00\u4e2a\u5217\u8868\u65e0\u6cd5\u5728\u4e00\u884c\u4e2d\u88c5\u4e0b\u65f6\uff0c\u5217\u8868\u4e2d\u7684\u6bcf\u4e00\u4e2a\u5143\u7d20\u90fd\u5360\u7528\u65b0\u7684\u4e00\u884c\u3002<\/p>\n
Format .Alignment_Threshold : Line_Range := 20<\/h3>\n
\u8bf4\u660e\u4e3a\u4f7f\u8fde\u7eed\u8bed\u53e5\u4e2d\u7684\u8bcd\u6cd5\u6784\u9020\u5bf9\u9f50\uff08\u5982\u547d\u540d\u7b26\u53f7\u4e2d\u7684\u5192\u53f7\u3001\u8d4b\u503c\u53f7\u548c\u7bad\u5934\uff09\uff0c\u683c\u5f0f\u5668\u53ef\u63d2\u5165\u7684\u7a7a\u683c\u6570\u3002\u5982\u679c\u5bf9\u9f50\u4e00\u4e2a\u6784\u9020\u6240\u9700\u7684\u7a7a\u683c\u6570\u591a\u4e8e\u8fd9\u4e2a\u6570\uff0c\u90a3\u4e48\u6784\u9020\u4e0d\u88ab\u5bf9\u9f50\u3002<\/p>\n
\u8981\u6ce8\u610f\u7684\u662f\uff0c\u4e3a\u4e86\u5f62\u6210\u67d0\u79cd\u5e03\u5c40\uff0c\u7a0b\u5e8f\u5458\u53ef\u4ee5\u63d2\u5165\u4e00\u4e2a\u884c\u7ed3\u675f\u7b26\u6216\u8005\u901a\u8fc7\u8f93\u5165 <space> <space> <carriage-return> \u6765\u6572\u5165\u4e00\u4e2a\u4e0d\u4f1a\u88ab\u683c\u5f0f\u5668\u5220\u6389\u7684\u884c\u4e2d\u65ad\u3002<\/p>\n
\u5f53 \u5217\u8868\u4e2d\u7684\u5143\u7d20\u8d85\u8fc7 3 \u4e2a\u5e76\u4e14\u5728\u4e00\u884c\u4e2d\u88c5\u4e0d\u4e0b\u8fd9\u4e9b\u5143\u7d20\u65f6\uff0c\u91c7\u7528\u4e0a\u8ff0\u6280\u5de7\u3002Ada \u5143\u7d20\u5217\u8868\u5e94\u5206\u9694\u4e3a\u4e00\u884c\u4ec5\u6709\u4e00\u4e2a\u5143\u7d20\uff0c\u4ee5\u63d0\u9ad8\u4ee3\u7801\u7684\u6613\u8bfb\u6027\u548c\u53ef\u7ef4\u62a4\u6027\u3002\u8fd9\u4e00\u6761\u5c24\u5176\u9002\u7528\u4e8e\u4ee5\u4e0b Ada \u6784\u9020\uff08\u8c61 Ada Reference Manual \u7684 Appendix E \u4e2d\u6240\u5b9a\u4e49\u7684\u90a3\u6837 [ISO87]<\/a>\uff09\uff1a<\/p>\n\u5b9e\u53c2\u5173\u8054\u5173\u7cfb<\/p>\n
pragma Suppress (Range_Check,\r\nOn => This_Type,\r\nOn => That_Type, On => That_Other_Type);<\/pre>\n\u6807\u8bc6\u7b26\u5217\u8868\uff0c\u7ec4\u4ef6\u5217\u8868<\/p>\n
Next_Position,\r\nPrevious_Position,\r\nCurrent_Position : Position;\r\ntype Some_Record is \r\nrecord\r\nA_Component,\r\nB_Component,\r\nC_Component : Component_Type;\r\nend record;<\/pre>\n\u679a\u4e3e\u7c7b\u578b\u5b9a\u4e49<\/p>\n
type Navaid is \r\n(Vor, \r\nVor_Dme, \r\nDme, \r\nTacan, \r\nVor_Tac, \r\nNDB);<\/pre>\n\u5224\u522b\u5f0f\u7ea6\u675f<\/p>\n
subtype Constrained is Element \r\n(Name_Length => Name'Length,\r\nValid => True,\r\nOperation => Skip);<\/pre>\n\u8bed\u53e5\u7684\u987a\u5e8f\uff08\u7531\u683c\u5f0f\u5668\u5904\u7406\uff09<\/p>\n
\u5f62\u5f0f\u90e8\u5206\u3001\u7c7b\u5c5e\u5f62\u5f0f\u90e8\u5206\u3001\u5b9e\u53c2\u90e8\u5206\u3001\u7c7b\u5c5e\u5b9e\u53c2\u90e8\u5206<\/p>\n
procedure Just_Do_It (This : in Some_Type;\r\nFor_That : in Some Other_Type;\r\nStatus : out Status_Type);\r\nJust_Do_It (This => This_Value;\r\nFor_That => That_Value;\r\nStatus => The_Status);<\/pre>\n
\n<\/a>\u7b2c\u56db\u7ae0<\/em><\/h2>\n\u6ce8\u91ca<\/h1>\n\u6982\u8ff0<\/h2>\n
\u4e0e\u5e7f\u6cdb\u63a5\u53d7\u7684\u89c2\u70b9\u76f8\u53cd\u7684\u662f\uff0c\u597d\u7684\u7a0b\u5e8f\u7684\u7279\u70b9\u5e76\u975e\u662f\u6ce8\u91ca\u7684\u6570\u91cf<\/em>\uff0c\u800c\u662f\u6ce8\u91ca\u7684\u8d28\u91cf<\/em>\u3002<\/p>\n\u6ce8\u91ca\u5e94\u5f53\u4f5c\u4e3a Ada \u4ee3\u7801\u7684\u8865\u5145<\/em>\uff0c\u800c\u4e0d\u662f\u89e3\u91ca\uff1aAda \u672c\u8eab\u662f\u4e00\u79cd\u975e\u5e38\u6613\u8bfb\u7684\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00\uff0c\u5c24\u5176\u662f\u5f53\u88ab\u597d\u7684\u547d\u540d\u7ea6\u5b9a\u652f\u6301\u65f6\u3002\u6ce8\u91ca\u5e94\u5f53\u89e3\u91ca\u90a3\u4e9b\u4e0d\u80fd\u76f4\u63a5\u4ece Ada \u4ee3\u7801\u4e2d\u770b\u51fa\u7684\u5185\u5bb9\uff1b\u5b83\u4eec\u4e0d\u5e94\u590d\u5236 Ada \u7684\u8bed\u6cd5\u6216\u8bed\u4e49\u3002\u6ce8\u91ca\u5e94\u5f53\u5e2e\u52a9\u8bfb\u8005\u638c\u63e1\u80cc\u666f\u6982\u5ff5\u548c\u4f9d\u8d56\u6761\u4ef6\uff0c\u7279\u522b\u662f\u590d\u6742\u7684\u6570\u636e\u7f16\u7801\u548c\u7b97\u6cd5\u3002\u6ce8\u91ca\u5e94\u5f53\u7a81\u51fa\u4e0e\u7f16\u7801\u6216\u8bbe\u8ba1\u6807\u51c6\u7684\u4e0d\u540c\u70b9\u3001\u53d7\u9650\u7279\u6027\u7684\u4f7f\u7528\u4ee5\u53ca\u7279\u6b8a\u7684 \u201c\u6280\u5de7\u201d\u3002\u5728\u6bcf\u4e2a\u4e3b\u8981\u7684 Ada \u6784\u9020\uff08\u5982\u5b50\u7a0b\u5e8f\u548c\u7a0b\u5e8f\u5305\uff09\u4e2d\uff0c\u7cfb\u7edf\u5730\u51fa\u73b0\u7684\u6ce8\u91ca\u6846\u6216\u8868\u5355\u5177\u6709\u4e00\u81f4\u6027\u548c\u63d0\u9192\u7a0b\u5e8f\u5458\u8bf4\u660e\u4ee3\u7801\u7684\u4f18\u70b9\uff0c\u4f46\u5b83\u4eec\u4e5f\u5e38\u5e38\u5e26\u6765\u91ca\u4e49\u4ee3\u7801\u7684\u98ce\u683c\u3002\u5bf9\u6bcf\u4e00\u884c\u6ce8\u91ca\uff0c\u7a0b\u5e8f\u5458\u90fd \u5e94\u80fd\u591f\u5f88\u597d\u5730\u56de\u7b54\uff1a\u201c\u52a0\u5165\u8fd9\u4e2a\u6ce8\u91ca\u6709\u4f55\u4ef7\u503c\uff1f\u201d<\/p>\n\u4e00\u4e2a\u8bef\u5bfc\u6216\u8005\u9519\u8bef\u7684\u6ce8\u91ca\u6bd4\u5b8c\u5168\u4e0d\u6ce8\u91ca\u8fd8\u7cdf\u3002\u7f16\u8bd1\u5668\u4e0d\u68c0\u67e5\u6ce8\u91ca\uff08\u9664\u975e\u5b83\u4eec\u8c61\u201cRational \u8bbe\u8ba1\u5de5\u5177\u201d\u90a3\u6837\u53c2\u4e0e\u4e86\u6b63\u5f0f\u7684 Ada \u8bbe\u8ba1\u8bed\u8a00 (ADL) \u6216\u8005\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00 (PDL)\uff09\u3002\u56e0\u6b64\uff0c\u6839\u636e\u5355\u70b9\u7ef4\u62a4\u539f\u5219\uff0c\u8bbe\u8ba1\u51b3\u5b9a\u5e94\u5728 Ada \u800c\u4e0d\u662f\u6ce8\u91ca\u4e2d\u8868\u8ff0\uff0c\u5373\u4f7f\u8fd9\u6837\u505a\u9700\u8981\u591a\u51e0\u4e2a\u58f0\u660e\u3002<\/p>\n
\u4f5c\u4e3a\u4e00\u4e2a\uff08\u5e76\u975e\u5f88\u597d\u7684\uff09\u4f8b\u5b50\u8003\u8651\u5982\u4e0b\u7684\u58f0\u660e\uff1a<\/p>\n
------------------------------------------------------------\r\n-- procedure Create\r\n------------------------------------------------------------\r\n--\r\nprocedure Create\r\n(The_Subscriber: in out Subscriber.Handle;\r\nWith_Name : in out Subscriber.Name);\r\n--\r\n-- Purpose: This procedure creates a subscriber with a given\r\n-- name.\r\n--\r\n-- Parameters: \r\n- The_Subscriber :mode in out, type Subscriber.Handle\r\n- It is the handle to the created subscriber\r\n- With_Name :mode in, type Subscriber.Name\r\n- The name of the subscriber to be created.\r\n- The syntax of the name is\r\n-- <letter> { <letter> | <digit> }\r\n-- Exceptions:\r\n-- Subscriber.Collection_Overflow when there is no more\r\n-- space to create a new subscriber\r\n-- Subscriber.Invalid_Name when the name is blank or\r\n-- malformed\r\n--\r\n-------------------------------------------- end Create ----<\/pre>\n\u4f8b\u5b50\u4e2d\u6709\u51e0\u70b9\u8981\u6307\u51fa\u6765\u3002<\/p>\n
\n- \u6709\u8bb8\u591a\u5197\u4f59\uff1a<\/li>\n<\/ul>\n
\n- – \u8fc7\u7a0b\u521b\u5efa (Procedure Create)\uff1a\u5982\u679c\u8981\u6539\u540d\uff0c\u6709\u51e0\u5904\u5730\u65b9\u9700\u8981\u4fee\u6539\uff1b\u7ecf\u5e38\u6027\u5730\u4fee\u6539\u6ce8\u91ca\uff0c\u7f16\u8bd1\u5668\u4e0d\u4f1a\u6267\u884c\u3002<\/dd>\n
- – \u6ce8\u91ca\u4e2d\u65e0\u9700\u91cd\u590d\u8bf4\u660e\u53c2\u6570\u540d\u3001\u6a21\u5f0f\u548c\u7c7b\u578b\u3002<\/dd>\n
- – \u8fd9\u91cc\u7ed9\u6bcf\u4e2a Ada \u5b9e\u4f53\u6240\u53d6\u7684\u540d\u5b57\u5f88\u597d\uff0c\u8fd9\u4f7f\u5f97\u529f\u80fd\u548c\u53c2\u6570\u89e3\u91ca\u53d8\u5f97\u591a\u4f59\u3002\u6ce8\u610f\uff0c\u8fd9\u4e00\u70b9\u53ea\u662f\u5bf9\u4e8e\u5982\u4e0a\u4f8b\u8fd9\u6837\u7684\u7b80\u5355\u7684\u5b50\u7a0b\u5e8f\u6765\u8bf4\u624d\u662f\u6b63\u786e\u7684\u3002\u5bf9\u4e8e\u66f4\u590d\u6742\u7684\u5b50\u7a0b\u5e8f\uff0c\u4ecd\u9700\u8981\u529f\u80fd\u548c\u53c2\u6570\u89e3\u91ca\u3002<\/dd>\n<\/dl>\n
\n- \u6846\u67b6\u52a0\u5165\u4e86\u592a\u591a\u7684\u5e72\u6270\uff0c\u9690\u85cf\u4e86\u5173\u952e\u9879\uff1a\u8fc7\u7a0b\u58f0\u660e\u3002\u53e6\u5916\uff0c\u53f3\u7aef\u7684\u5782\u76f4\u8fb9\u5f00\u59cb\u65f6\u770b\u4e0a\u53bb\u8fd8\u5f88\u6f02\u4eae\uff0c\u4f46\u5374\u4f7f\u4fee\u6539\u53d8\u5f97\u6781\u4e3a\u75db\u82e6\uff0c\u901a\u5e38\u51e0\u5e74\u7684\u7ef4\u62a4\u4e0b\u6765\uff0c\u4ee3\u7801\u6700\u540e\u5b8c\u5168\u4e0d\u5bf9\u9f50\u5e76\u4e14\u5343\u75ae\u767e\u5b54\u3002<\/li>\n
- \u76f8\u53cd\u7684\u662f\uff0c\u8fd9\u91cc\u5e94\u8bf4\u660e\u4ea7\u751f\u4e86\u4f55\u79cd\u5f02\u5e38\uff0c\u56e0\u4e3a\u82e5\u53ea\u8bfb\u89c4\u683c\u8bf4\u660e\uff0c\u8fd9\u4e00\u70b9\u5e76\u4e0d\u660e\u663e\u3002\u4f46\u6bcf\u4e2a\u5f02\u5e38\u7684\u51c6\u786e\u542b\u4e49\u5e94\u653e\u5728\u81ea\u8eab\u7684\u5f02\u5e38\u58f0\u660e\u5904\u3002<\/li>\n
- \u5e94\u8bf4\u660e\u53c2\u6570\u7684\u524d\u7f6e\u548c\u540e\u7f6e\u6761\u4ef6\uff0c\u5c24\u5176\u662f\u53c2\u6570\u95f4\u7684\u5173\u7cfb\u3002\u8fd9\u4e9b\u4e0d\u5e94\u4e0e\u5176\u5b83\u5730\u65b9\u53ef\u4ee5\u627e\u5230\u7684\u4fe1\u606f\u91cd\u590d\uff0c\u5982\u6709\u6548\u540d\u7684\u8bed\u6cd5\uff0c\u5b83\u53ea\u5e94\u5728\u4e00\u5904\u8bf4\u660e\u3002<\/li>\n<\/ul>\n
\u5728\u8fd9\u4e2a\u4f8b\u5b50\u4e2d\uff0c\u6700\u597d\u91c7\u7528\u5982\u4e0b\u66f4\u7b80\u6d01\u3001\u66f4\u6709\u7528\u7684\u65b9\u5f0f\uff1a<\/p>\n
procedure Create (The_Subscriber : in out Subscriber.Handle;\r\nWith_Name : in Subscriber.Name);--\r\n-Raises Subscriber.Collection_Overflow.\r\n-Raises Subscriber.Invalid_Name when the name is \r\nblank or malformed (see syntax description \r\nattached to declaration of type Subscriber.Name).<\/pre>\n<\/a>\u6ce8\u91ca\u7528\u6cd5\u6307\u5357<\/h2>\n\u6ce8\u91ca\u5e94\u653e\u5728\u76f8\u5173\u4ee3\u7801\u7684\u65c1\u8fb9\uff0c\u7f29\u8fdb\u540c\u6837\u7684\u5927\u5c0f\uff0c\u7d27\u9760\u7740\u4ee3\u7801 – \u5373\u7528\u7a7a\u7684\u6ce8\u91ca\u884c\u5728\u89c6\u89c9\u4e0a\u5c06\u6ce8\u91ca\u5757\u4e0e Ada \u6784\u9020\u6346\u5728\u4e00\u8d77\uff1a<\/p>\n
procedure First_One;\r\n--\r\n-- This comment relates to First_One.\r\n-- But this comment is for Second_One.\r\n-- \r\nprocedure Second_One (Times : Natural);<\/pre>\n\u7528\u7a7a\u884c\u5206\u9694\u76f8\u5173\u7684\u6e90\u7801\u5757\uff08\u6ce8\u91ca\u548c\u4ee3\u7801\uff09\uff0c\u800c\u4e0d\u7528\u7c97\u91cd\u7684\u6ce8\u91ca\u884c\uff0c\u5982\uff1a<\/p>\n
-------------------------------------------------------------<\/pre>\n\u6216\u8005\uff1a<\/p>\n
--===========================================================<\/pre>\n\u5728\u4e00\u4e2a\u6ce8\u91ca\u5757\u4e2d\uff0c\u4f7f\u7528\u7a7a\u6ce8\u91ca\u884c\u800c\u975e\u7a7a\u884c\u6765\u5206\u5272\u6ce8\u91ca\u6bb5<\/p>\n
-- Some explanation here that needs to be continued in a\r\n-- subsequent paragraph.\r\n--\r\n-- The empty comment line above makes it clear that we \r\n-- are dealing with a single comment block.<\/pre>\n\u867d\u7136\u6ce8\u91ca\u53ef\u4ee5\u653e\u5728\u76f8\u5173 Ada \u6784\u9020\u7684\u4e0a\u65b9\u6216\u4e0b\u65b9\uff0c\u4f46\u662f\u8981\u5c06\u4e00\u8282\u7684\u6807\u9898\u6216\u8005\u4e00\u4e2a\u8bf4\u660e\u51e0\u4e2a Ada \u6784\u9020\u7684\u4e3b\u8981\u4fe1\u606f\u653e\u5728\u6784\u9020\u7684\u4e0a\u65b9<\/em>\u3002\u5c06\u8bc4\u8ff0\u6216\u9644\u52a0\u4fe1\u606f\u7b49\u8fd9\u4e00\u7c7b\u7684\u6ce8\u91ca\u653e\u5728\u76f8\u5173 Ada \u6784\u9020\u7684\u4e0b\u65b9<\/em>\u3002<\/p>\n\u7528\u4e00\u9875\u7684\u6574\u884c\u5bbd\u5728 Ada \u6784\u9020\u7684\u5f00\u5934\u5904\u5206\u7ec4\u3002\u907f\u514d\u5c06\u6ce8\u91ca\u653e\u5728 Ada \u6784\u9020\u7684\u540c\u4e00\u884c\u3002\u8fd9\u4e9b\u6ce8\u91ca\u5e38\u5e38\u53d8\u5f97\u4e0d\u5bf9\u9f50\u3002\u4f46\u662f\u5728\u8bf4\u660e\u4e00\u4e2a\u957f\u7684\u58f0\u660e\u65f6\uff0c\u5982\u679a\u4e3e\u7c7b\u578b\u76f4\u63a5\u91cf\uff0c\u8fd9\u6837\u7684\u6ce8\u91ca\u65b9\u5f0f\u662f\u53ef\u4ee5\u5bb9\u8bb8\u7684\u3002<\/p>\n
\u7528\u4e00\u4e2a\u5c0f\u7684\u5206\u5c42\u6b21\u7684\u6807\u51c6\u6ce8\u91ca\u5757\u6765\u8bf4\u660e\u5c0f\u8282\u7684\u6807\u9898\uff0c\u4f46\u8fd9\u4ec5\u4ec5\u9002\u7528\u4e8e\u5f88\u5927\u7684 Ada \u5355\u5143\uff08>200 \u884c\u7684\u58f0\u660e\u6216\u8005\u8bed\u53e5\uff09\uff1a<\/p>\n
--===========================================================\r\n--\r\n \u4e3b\u6807\u9898\r\n--\r\n--===========================================================\r\n\r\n-------------------------------------------------------------\r\n \u526f\u6807\u9898\r\n-------------------------------------------------------------\r\n\r\n --------------------\r\n \u5b50\u90e8\u5206\u7684\u5934\r\n --------------------<\/pre>\n\u5728\u8fd9\u79cd\u6807\u9898\u524d\u9762\u6240\u653e\u7684\u7a7a\u884c\u6570\u8981\u591a\u4e8e\u540e\u9762\u7684\u7a7a\u884c\u6570\uff0c\u4f8b\u5982\uff0c\u4e24\u884c\u5728\u524d\u4e00\u884c\u5728\u540e\u3002\u8fd9\u6837\u4f7f\u6807\u9898\u4e0e\u968f\u540e\u7684\u6b63\u6587\u5728\u89c6\u89c9\u4e0a\u76f8\u8054\u7cfb\u3002<\/p>\n
\u907f \u514d\u4f7f\u7528\u542b\u6709\u4fe1\u606f\u7684\u51fd\u6570\u5934\uff0c\u6bd4\u5982\u4f5c\u8005\u3001\u7535\u8bdd\u3001\u521b\u5efa\u548c\u4fee\u6539\u65e5\u671f\u3001\u5355\u5143\uff08\u6216\u6587\u4ef6\u540d\uff09\u7684\u4f4d\u7f6e\uff0c\u56e0\u4e3a\u8fd9\u4e9b\u4fe1\u606f\u5f88\u5feb\u5c31\u4f1a\u8fc7\u65f6\u3002\u5c06\u6240\u6709\u8005\u7248\u6743\u4fe1\u606f\u653e\u5728\u5355\u5143\u7684\u672b\u5c3e\uff0c\u5c24\u5176\u662f \u4f7f\u7528\u201cRational \u73af\u5883\u201d\u65f6\u3002\u5f53\u8bbf\u95ee\u4e00\u4e2a\u7a0b\u5e8f\u5305\u7684\u89c4\u683c\u8bf4\u660e\u6e90\u7801\u65f6 – \u4f8b\u5982\u5728\u201cRational \u73af\u5883\u201d\u4e2d\u6309 [Definition] – \u8bfb\u8005\u4e0d\u60f3\u6d4f\u89c8\u4e24\u9875\u6216\u8005\u4e09\u9875\u5bf9\u7406\u89e3\u7a0b\u5e8f\u65e0\u4efb\u4f55\u7528\u5904\u7684\u6587\u672c\u548c\/\u6216\u5b8c\u5168\u4e0d\u5e26\u6709\u4efb\u4f55\u7a0b\u5e8f\u4fe1\u606f\u7684\u6587\u672c\u3002\u907f\u514d\u4f7f\u7528\u5782\u76f4\u6eda\u52a8\u6761\u3001\u5c01\u95ed\u56fe\u6587\u6846\u6216\u65b9\u6846\uff0c\u8fd9\u4e9b\u4e1c\u897f\u53ea\u4f1a\u589e\u52a0\u89c6\u89c9 \u5e72\u6270\uff0c\u800c\u4e14\u96be\u4ee5\u4fdd\u6301\u4e00\u81f4\u6027\u3002\u7528 Rational CMVC \u9644\u6ce8\uff08\u6216\u8005\u5176\u5b83\u5f62\u5f0f\u7684\u8f6f\u4ef6\u5f00\u53d1\u6587\u4ef6\uff09\u6765\u4fdd\u5b58\u5355\u5143\u5386\u53f2\u3002<\/p>\n
\u4e0d\u8981\u91cd\u590d\u53ef\u4ee5\u5728\u5176\u5b83\u5730\u65b9\u627e\u5230\u7684\u4fe1\u606f\uff1b\u4ec5\u63d0\u4f9b\u4e00\u4e2a\u6307\u5411\u8be5\u4fe1\u606f\u7684\u6307\u9488\u5373\u53ef\u3002<\/p>\n
\u5c3d \u91cf\u91c7\u7528 Ada\uff0c\u800c\u975e\u6ce8\u91ca\u3002\u8981\u5b9e\u73b0\u8fd9\u4e00\u70b9\uff0c\u4f60\u53ef\u9009\u62e9\u66f4\u597d\u7684\u540d\u5b57\u3001\u9644\u52a0\u4e34\u65f6\u53d8\u91cf\u3001\u9650\u5b9a\u3001\u91cd\u547d\u540d\u3001\u5b50\u7c7b\u578b\u3001\u9759\u6001\u8868\u8fbe\u5f0f\u548c\u5c5e\u6027\uff0c\u8fd9\u4e9b\u90fd\u4e0d\u5f71\u54cd\u751f\u6210\u7684\u4ee3\u7801\uff08\u81f3\u5c11\u5728\u4e00\u4e2a\u597d\u7684 \u7f16\u8bd1\u5668\u4e2d\u4e0d\u5f71\u54cd\uff09\u3002\u4f60\u4e5f\u53ef\u4ee5\u91c7\u7528\u5c0f\u7684\u3001\u5d4c\u5165\u5f0f\u7684\u8c13\u8bcd\u51fd\u6570\uff0c\u5e76\u5c06\u4ee3\u7801\u5206\u6210\u51e0\u4e2a\u65e0\u53c2\u8fc7\u7a0b\uff0c\u8fd9\u4e9b\u8fc7\u7a0b\u7684\u540d\u5b57\u63d0\u4f9b\u4e86\u4ee3\u7801\u51e0\u4e2a\u79bb\u6563\u90e8\u5206\u7684\u6807\u9898\u3002<\/p>\n
\u793a\u4f8b\uff1a<\/p>\n
\u5c06\uff1a<\/p>\n
exit when Su.Locate (Ch, Str) \/= 0; \r\n-- Exit search loop when found it.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
Search_Loop : loop<\/p>\n
Found_It := Su.Locate (Ch, Str) \/= 0;<\/p>\n
exit Search_Loop when Found_It<\/p>\n
end Search_Loop;<\/p>\n
\u5c06\uff1a<\/p>\n
if Value < 'A' or else Value > 'Z' then\r\n-- If not in uppercase letters.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
subtype Uppercase_Letters is Character range 'A' ..'Z';\r\nif Value not in Uppercase_Letters then ...<\/pre>\n\u5c06\uff1a<\/p>\n
X := Green; -- This is the Green from \r\n-- Status, not from Color.\r\nraise Fatal_Error; -- From package Outer_Scope.\r\ndelay 384.0; -- Equal to 6 minutes and 24 \r\n-- seconds.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
The_Status := Green;<\/pre>\nor:<\/p>\n
X := Status'(Green);\r\nraise Outer_Scope.Fatal_Error;\r\ndelay 6.0 * Minute + 24.0 * Second;<\/pre>\n\u5c06\uff1a<\/p>\n
if Is_Valid (The_Table (Index).Descriptor(Rank).all) then\r\n-- This is the current value for the iteration; if it is \r\n-- valid we append to the list it contains.\r\nAppend (Item, To_List => The_Table (Index).Descriptor(Rank).Ptr);|<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
declare\r\nCurrent_Rank : Lists.List renames The_Table \r\n(Index).Descriptor (Rank);\r\nbegin\r\nif Is_Valid (Current_Rank.all) then\r\nAppend (Item, To_List => Current_Rank.Ptr);\r\nend if;\r\nend;<\/pre>\n\u6ce8\u610f\u6ce8\u91ca\u4e2d\u7684\u98ce\u683c\u3001\u8bed\u6cd5\u548c\u62fc\u5199\u3002\u4e0d\u8981\u4f7f\u7528\u8c61\u7535\u62a5\u5bc6\u7801\u4e00\u822c\u7684\u98ce\u683c\u3002\u4f7f\u7528\u62fc\u5199\u68c0\u67e5\u3002\uff08\u5728\u201cRational \u73af\u5883\u201d\u4e2d\u8c03\u7528 Speller.Check_Image\uff09\u3002<\/p>\n
\u4e0d\u8981\u4f7f\u7528\u65b9\u8a00\u5b57\u6bcd\u6216\u8005\u5176\u5b83\u975e\u82f1\u6587\u5b57\u7b26\u3002\u6839\u636e Ada Issue AI-339\uff0c\u975e\u82f1\u6587\u5b57\u7b26\u53ef\u88ab\u4e00\u4e9b\u5f00\u53d1\u7cfb\u7edf\u652f\u6301\uff0c\u4e00\u4e9b Ada \u7f16\u8bd1\u5668\u4ec5\u5728\u6ce8\u91ca\u4e2d\u652f\u6301\u3002\u4f46\u8fd9\u662f\u4e0d\u53ef\u79fb\u690d\u7684\uff0c\u5f88\u6709\u53ef\u80fd\u5728\u5176\u5b83\u7cfb\u7edf\u4e0a\u5931\u6548\u3002<\/p>\n
\u5bf9\u4e8e\u5b50\u7a0b\u5e8f\uff0c\u81f3\u5c11\u8bf4\u660e\uff1a<\/p>\n
\n- \u5b50\u7a0b\u5e8f\u7684\u7528\u9014\uff0c\u4f46\u8fd9\u53ea\u662f\u5f53\u4ece\u5b83\u7684\u540d\u5b57\u4e2d\u4e0d\u80fd\u660e\u786e\u4e86\u89e3\u5176\u7528\u9014\u65f6<\/li>\n
- \u5728\u4f55\u79cd\u6761\u4ef6\u4e0b\u751f\u6210\u4e86\u4f55\u79cd\u5f02\u5e38<\/li>\n
- \u5982\u679c\u6709\u7684\u8bdd\uff0c\u53c2\u6570\u7684\u524d\u7f6e\u6216\u540e\u7f6e\u6761\u4ef6<\/li>\n
- \u5176\u4ed6\u6570\u636e\u8bbf\u95ee\uff0c\u7279\u522b\u662f\u5f53\u6570\u636e\u88ab\u4fee\u6539\u65f6\uff1b\u8fd9\u5c24\u5176\u5305\u62ec\u6709\u526f\u4f5c\u7528\u7684\u51fd\u6570<\/li>\n
- \u6b63\u786e\u4f7f\u7528\u5b50\u7a0b\u5e8f\u6240\u9700\u7684\u4efb\u4f55\u9650\u5236\u6216\u9644\u52a0\u4fe1\u606f<\/li>\n<\/ul>\n
\u5bf9\u4e8e\u7c7b\u578b\u548c\u5bf9\u8c61\uff0c\u8981\u8bf4\u660e\u6240\u6709\u4e0d\u80fd\u901a\u8fc7 Ada \u8868\u8fbe\u7684\u4e0d\u53d8\u91cf\u6216\u9644\u52a0\u7ea6\u675f\u3002<\/p>\n
\u907f\u514d\u6ce8\u91ca\u4e2d\u7684\u91cd\u590d\u3002\u4f8b\u5982\uff0c\u6709\u5173\u7528\u9014\u7684\u90e8\u5206\u5e94\u662f\u201c\u5b83\u505a\u4ec0\u4e48\uff1f\u201d\u8fd9\u4e2a\u95ee\u9898\u7684\u7b80\u5355\u56de\u7b54\uff0c\u800c\u4e0d\u662f\u201c\u5b83\u600e\u4e48\u505a\uff1f\u201d\u7684\u56de\u7b54\u3002\u6982\u8ff0\u5e94\u662f\u8bbe\u8ba1\u7684\u7b80\u77ed\u8868\u8fbe\u3002\u8bf4\u660e\u4e2d\u4e0d\u5e94\u63cf\u8ff0\u6240\u7528\u7684\u7b97\u6cd5\uff0c\u800c\u5e94\u89e3\u91ca\u7a0b\u5e8f\u5305\u5e94\u5982\u4f55\u4f7f\u7528\u3002<\/p>\n
\u6570\u636e\u7ed3\u6784\u548c\u7b97\u6cd5\u90e8\u5206\u5e94\u542b\u6709\u8db3\u591f\u7684\u4fe1\u606f\u6765\u5e2e\u52a9\u7406\u89e3\u4e3b\u8981\u7684\u5b9e\u73b0\u7b56\u7565\uff08\u4ee5\u4fbf\u6b63\u786e\u4f7f\u7528\u7a0b\u5e8f\u5305\uff09\uff0c\u4f46\u65e0\u9700\u5305\u542b\u6240\u6709\u7684\u5b9e\u73b0\u7ec6\u8282\u6216\u4e0e\u6b63\u786e\u4f7f\u7528\u5305\u6beb\u4e0d\u76f8\u5173\u7684\u4fe1\u606f\u3002<\/p>\n
\n<\/a>\u7b2c\u4e94\u7ae0<\/em><\/h2>\n\u547d\u540d\u7ea6\u5b9a<\/h1>\n\u6982\u8ff0<\/h2>\n
\u7ed9 Ada \u5b9e\u4f53\uff08\u7a0b\u5e8f\u5355\u5143\u3001\u7c7b\u578b\u3001\u5b50\u7c7b\u578b\u3001\u5bf9\u8c61\u3001\u76f4\u63a5\u91cf\u3001\u5f02\u5e38\uff09\u6307\u5b9a\u597d\u540d\u5b57\u662f\u6240\u6709\u8f6f\u4ef6\u5e94\u7528\u7a0b\u5e8f\u8981\u8868\u8ff0\u7684\u6700\u7cbe\u5de7\u7684\u4e8b\u60c5\u4e4b\u4e00\u3002\u4e2d\u7b49\u89c4\u6a21\u5230\u5927\u89c4\u6a21\u7684\u5e94\u7528\u7a0b\u5e8f\u5b58\u5728\u7740\u53e6\u4e00\u4e2a\u95ee \u9898\uff1a\u540d\u5b57\u95f4\u7684\u51b2\u7a81\uff0c\u6216\u662f\u8981\u627e\u5230\u8db3\u591f\u7684\u540c\u4e49\u8bcd\u6765\u6307\u4ee3\u76f8\u540c\u73b0\u5b9e\u4e16\u754c\u4e2d\u76f8\u4f3c\u4f46\u53c8\u6709\u522b\u7684\u6982\u5ff5\uff08\u6216\u662f\u547d\u540d\u4e00\u4e2a\u7c7b\u578b\u3001\u5b50\u7c7b\u3001\u5bf9\u8c61\u3001\u53c2\u6570\uff09\u3002\u8fd9\u91cc\u53ef\u5229\u7528\u4e0d\u91c7\u7528\u201cuse\u201d \u5b50\u53e5\uff08\u6216\u53ea\u5728\u6781\u4e3a\u53d7\u9650\u7684\u6761\u4ef6\u4e0b\u91c7\u7528\uff09\u7684\u6cd5\u5219\u3002\u5728\u8bb8\u591a\u60c5\u5f62\u4e0b\uff0c\u8fd9\u4f7f\u5f97\u53ef\u4ee5\u4e0d\u5192\u6df7\u6dc6\u7684\u98ce\u9669\u800c\u7f29\u77ed\u540d\u5b57\uff0c\u5e76\u590d\u7528\u76f8\u540c\u7684\u63cf\u8ff0\u8bcd\u3002<\/p>\n
\u9009\u62e9\u6e05\u6670\u7684\u3001\u6613\u8bfb\u7684\u3001\u6709\u610f\u4e49\u7684\u540d\u79f0\u3002<\/p>\n
\u4e0e\u5176\u5b83\u7684\u7f16\u7a0b\u8bed\u8a00\u4e0d\u540c\uff0cAda \u4e0d\u5c06\u6807\u8bc6\u7b26\u7684\u957f\u5ea6\u9650\u5236\u5728 6\uff0c8 \u6216\u8005 15 \u4e2a\u5b57\u7b26\u5185\u3002\u77ed\u540d\u5b57\u6253\u5b57\u901f\u5ea6\u5feb\u4e0d\u662f\u91c7\u7528\u5b83\u4eec\u7684\u53ef\u4ee5\u4e3a\u4eba\u63a5\u53d7\u7684\u7406\u7531\u3002\u53ea\u6709\u4e00\u4e2a\u5b57\u6bcd\u7684\u6807\u8bc6\u7b26\u901a\u5e38\u8bf4\u660e\u9009\u62e9\u4e0d\u5f53\u6216\u662f\u61d2\u60f0\u3002\u53ef\u80fd\u6709\u51e0\u4e2a\u4f8b\u5916\uff0c\u5982\u5c06 E \u4f5c\u4e3a\u81ea\u7136\u5bf9\u6570\u7684\u5e95\uff0cPi\uff0c\u4ee5\u53ca\u5176\u5b83\u5c11\u6570\u51e0\u4e2a\u6613\u8fa8\u8bc6\u7684\u60c5\u51b5\u3002<\/p>\n
\u7528\u4e0b\u5212\u7ebf\u5c06\u4e00\u4e2a\u540d\u5b57\u4e2d\u7684\u4e0d\u540c\u5355\u8bcd\u5206\u9694\u5f00\u6765\uff1a<\/p>\n
Is_Name_Valid<\/code> \u4e0d\u662f IsNameValid<\/code><\/p>\n\u91c7\u7528\u5168\u540d\u800c\u4e0d\u662f\u7f29\u5199\u3002<\/p>\n
\u53ea\u91c7\u7528\u9879\u76ee\u8ba4\u53ef\u7684\u7f29\u7565\u8bcd\u3002<\/p>\n
\u53ea\u80fd\u662f\u5728\u4e24\u79cd\u60c5\u51b5\u4e4b\u4e00\u65f6\u91c7\u7528\u7f29\u5199\uff1a\u8be5\u7f29\u5199\u5728\u5e94\u7528\u9886\u57df\u4e2d\u5f88\u666e\u904d\uff08\u5982 FFT \u4ee3\u8868\u5085\u7acb\u53f6\u53d8\u6362\uff09\u6216\u8005\u6765\u81ea\u516c\u8ba4\u7f29\u5199\u7684\u9879\u76ee\u7ea7\u5217\u8868\u3002\u5426\u5219\uff0c\u5f88\u6709\u53ef\u80fd\u4f7f\u76f8\u4f3c\u4f46\u4e0d\u76f8\u540c\u7684\u7f29\u5199\u5230\u5904\u51fa\u73b0\uff0c\u5bfc\u81f4\u4ee5\u540e\u7684\u6df7\u6dc6\u548c\u9519\u8bef\uff08\u5982\u5c06 track_identification \u7f29\u5199\u6210 trid\u3001trck_id\u3001tr_iden\u3001tid\u3001tr_ident\u7b49\uff09\u3002<\/p>\n
\u5c11\u7528\u540e\u7f00\u8bf4\u660e Ada \u6784\u9020\u7684\u5206\u7c7b\u3002\u5b83\u4eec\u4e0d\u80fd\u63d0\u9ad8\u6613\u8bfb\u6027\u3002<\/p>\n
\u901a\u5e38\u6309\u7167 Ada \u5b9e\u4f53\u7684\u7c7b\u6765\u52a0\u540e\u7f00\uff0c\u5982\u7ed9\u7a0b\u5e8f\u5305\u52a0\u4e0a _Package\uff0c\u5f02\u5e38\u52a0\u4e0a _Error\uff0c\u7c7b\u578b\u52a0\u4e0a _Type\uff0c\u4ee5\u53ca\u5b50\u7a0b\u5e8f\u7684\u53c2\u6570\u52a0\u4e0a _Param\uff0c\u5bf9\u5e2e\u52a9\u9605\u8bfb\u548c\u7406\u89e3\u4ee3\u7801\u4e0d\u662f<\/em>\u5f88\u6709\u6548\u3002 \u800c\u52a0\u4e0a\u5982 _Array\uff0c_Record \u548c _Function \u8fd9\u6837\u7684\u540e\u7f00\u5219\u66f4\u7cdf\u3002Ada \u7f16\u8bd1\u5668\u548c\u8bfb\u8005\u90fd\u53ef\u4ee5\u6839\u636e\u4e0a\u4e0b\u6587\u4ece\u5b50\u7a0b\u5e8f\u4e2d\u5206\u8fa8\u4e00\u4e2a\u5f02\u5e38\uff1a\u663e\u7136\u53ea\u6709\u5f02\u5e38\u540d\u53ef\u4ee5\u5728 raise<\/em> \u8bed\u53e5\u6216\u5f02\u5e38\u5904\u7406\u4e2d\u51fa\u73b0\u3002\u8fd9\u4e9b\u540e\u7f00\u5728\u5982\u4e0b\u53d7\u9650\u7684\u6761\u4ef6\u4e0b\u53ef\u7528\uff1a<\/p>\n\n- \u5f53\u5408\u9002\u7684\u8bcd\u7684\u9009\u62e9\u8303\u56f4\u975e\u5e38\u6709\u9650\u65f6\uff0c\u7ed9\u5bf9\u8c61\u9009\u4e00\u4e2a\u6700\u597d\u7684\u540d\u5b57\u5e76\u52a0\u4e0a\u7c7b\u578b\u7684\u540e\u7f00\u3002<\/li>\n
- \u5bf9\u4e8e\u7c7b\u5c5e\u5355\u5143,\u603b\u53ef\u4ee5\u52a0\u4e0a\u5f62\u5982 _Generic \u7684\u540e\u7f00\uff0c\u6240\u4ee5\u5bf9\u4e00\u4e9b\u6216\u8bb8\u591a\u5b9e\u4f8b\u6765\u8bf4\uff0c\u53ef\u4ee5\u4e0d\u6dfb\u52a0\u8be5\u540e\u7f00\u800c\u4f7f\u7528\u4e0e\u5176\u76f8\u540c\u7684\u540d\u5b57\u3002<\/li>\n
- \u5f53\u5b83\u8868\u793a\u4e00\u4e2a\u5e94\u7528\u9886\u57df\u7684\u6982\u5ff5\u65f6\uff0c\u5982 Aircraft_Type\u3002<\/li>\n
- \u5f53\u91cd\u8981\u7684\u8bbe\u8ba1\u51b3\u7b56\u9700\u9ad8\u5ea6\u53ef\u89c1\u65f6\uff1a<\/li>\n<\/ul>\n
\u7c7b\u5c5e\u5f62\u53c2\u7c7b\u578b\u540e\u7f00\u4e3a _Constrained<\/p>\n
\u540e\u7f00\u4e3a _Pointer \u7684\u5b58\u53d6\u7c7b\u578b\u6216\u5176\u5b83\u975e\u76f4\u63a5\u6307\u4ee3\u7684\u5f62\u5f0f\uff1a_Handle \u6216 _Reference<\/p>\n
\u901a\u8fc7 _Or_Wait \u9690\u85cf\u4e86\u53ef\u80fd\u963b\u585e\u7684\u5165\u53e3\u8c03\u7528\u7684\u5b50\u7a0b\u5e8f<\/p>\n
\u5c06\u540d\u5b57\u8868\u8ff0\u51fa\u6765\uff0c\u4f7f\u5f97\u4ece\u4f7f\u7528<\/em>\u7684\u89d2\u5ea6\u770b\uff0c\u5b83\u4eec\u8fd8\u4e0d\u9519\u3002<\/p>\n\u8bd5\u60f3\u4e00\u4e2a\u5bfc\u51fa\u5b9e\u4f53\u53ef\u5728\u5176\u4e2d\u4f7f\u7528\u7684\u4e0a\u4e0b\u6587\uff0c\u5e76\u7ad9\u5728\u90a3\u4e2a\u89d2\u5ea6\u9009\u62e9\u4e00\u4e2a\u540d\u5b57\u3002\u4e00\u4e2a\u5b9e\u4f53\u4ec5\u88ab\u5b9a\u4e49\u4e00\u6b21\uff0c\u4f46\u5374\u88ab\u4f7f\u7528\u8bb8\u591a\u6b21\u3002\u8fd9\u4e00\u70b9\u5bf9\u4e8e\u5b50\u7a0b\u5e8f\u7684\u540d\u5b57\u53ca\u5176\u53c2\u6570\u6765\u8bf4\u5c24\u4e3a\u6b63\u786e\uff1b \u4f7f\u7528\u547d\u540d\u5173\u8054\u5173\u7cfb\u7684\u7ed3\u679c\u8c03\u7528\u5e94\u5c3d\u91cf\u4e0e\u81ea\u7136\u8bed\u8a00\u76f8\u8fd1\u3002\u8bb0\u4f4f\u7f3a\u5c11\u4f7f\u7528<\/em>\u5b50\u53e5\u4f7f\u5f97\u5927\u591a\u6570\u58f0\u660e\u5b9e\u4f53\u5fc5\u987b\u5177\u6709\u53d7\u9650\u540d\u3002\u5bf9\u4e8e\u6709\u53ef\u80fd\u5728\u7c7b\u5c5e\u5355\u5143\u4e2d\u6bd4\u5728\u4eab\u7528\u6a21\u5757\u90a3\u91cc\u4f7f\u7528\u5f97\u8fd8\u591a\u7684\u7c7b\u5c5e\u5f62\u53c2\u6765\u8bf4\uff0c\u5fc5\u987b\u5bfb\u627e\u4e00\u4e2a\u597d\u7684\u534f\u8c03\u529e\u6cd5\uff0c\u4f46\u662f\u7edd\u5bf9\u8981\u4fdd\u8bc1\u5b50\u7a0b\u5e8f\u7684\u5f62\u53c2\u5728\u4eab\u7528\u6a21\u5757\u7aef\u597d\u770b\u3002<\/p>\n\u4f7f\u7528\u82f1\u6587\u5355\u8bcd\u5e76\u62fc\u5199\u6b63\u786e\u3002<\/p>\n
\u8bed\u8a00\u7684\u6df7\u5408\uff08\u5982\u6cd5\u8bed\u548c\u82f1\u8bed\uff09\u5c06\u4f7f\u4ee3\u7801\u96be\u8bfb\uff0c\u6709\u65f6\u4f7f\u6807\u8bc6\u7b26\u7684\u610f\u4e49\u6478\u68f1\u4e24\u53ef\u3002 \u65e2\u7136 Ada \u7684\u5173\u952e\u5b57\u5df2\u662f\u82f1\u6587\u7684\uff0c\u5219\u8981\u6c42\u4f7f\u7528\u82f1\u6587\u5355\u8bcd\u3002\u6700\u597d\u91c7\u7528\u7f8e\u5f0f\u62fc\u6cd5\uff0c\u4ee5\u4fbf\u5229\u7528\u201cRational \u73af\u5883\u201d\u4e2d\u5185\u7f6e\u7684\u62fc\u5199\u68c0\u67e5\u3002<\/p>\n
\u4e0d\u8981\u91cd\u65b0\u5b9a\u4e49 Standard \u7a0b\u5e8f\u5305\u4e2d\u7684\u4efb\u4f55\u5b9e\u4f53\u3002\u8fd9\u662f\u7edd\u5bf9\u7981\u6b62\u7684\u3002<\/p>\n
\u8fd9\u6837\u505a\u5c06\u4ea7\u751f\u6df7\u6dc6\u548c\u4e25\u91cd\u7684\u9519\u8bef\u3002\u8be5\u6cd5\u5219\u53ef\u5ef6\u4f38\u81f3\u5176\u5b83\u9884\u5b9a\u4e49\u7684\u5e93\u5355\u5143\uff1aCalendar\uff0cSystem\u3002\u8fd9\u4e5f\u5305\u62ec Standard<\/em> \u6807\u8bc6\u7b26\u672c\u8eab\u3002<\/p>\n\u907f\u514d\u5bf9\u5176\u5b83\u9884\u5b9a\u4e49\u7a0b\u5e8f\u5305\u4e2d\u7684\u6807\u8bc6\u7b26\u91cd\u5b9a\u4e49\uff0c\u5982 System \u6216 Calendar\u3002<\/p>\n
\u4e0d\u8981\u4f7f\u7528\u5982\u4e0b\u7684\u6807\u8bc6\u7b26\uff1aWide_Character<\/strong> \u548c Wide_String<\/strong>\uff0c\u5b83\u4eec\u5c06\u5728 Ada 95 \u7684 Standard \u7a0b\u5e8f\u5305\u4e2d\u5f15\u5165\u3002\u4e0d\u8981\u5f15\u5165\u4e00\u4e2a\u540d\u4e3a Ada<\/strong> \u7684\u7f16\u8bd1\u5355\u5143\u3002<\/p>\n\u4e0d\u8981\u4f7f\u7528\u4ee5\u4e0b\u5355\u8bcd\u4f5c\u4e3a\u6807\u8bc6\u7b26\uff1aabstract<\/strong>\uff0caliased<\/strong>\uff0cprotected<\/strong>\uff0crequeue<\/strong>\uff0ctagged<\/strong> \u548c until<\/strong>\uff0c\u5b83\u4eec\u5728 Ada 95 \u5c06\u6210\u4e3a\u5173\u952e\u5b57\u3002<\/p>\n\u4e00\u4e9b\u7ed9\u5404\u79cd Ada \u5b9e\u4f53\u7684\u547d\u540d\u5efa\u8bae\u4e5f\u662f\u540c\u6837\u3002\u5047\u5b9a\u4e00\u822c\u60c5\u5f62\u4e0b\uff0c\u201c\u9762\u5411\u5bf9\u8c61\u201d\u98ce\u683c\u7684\u8bbe\u8ba1\u53d7\u6b22\u8fce\u3002\u8be6\u60c5\u8bf7\u53c2\u89c1\u9644\u5f55 A\u3002<\/p>\n
<\/a>\u7a0b\u5e8f\u5305<\/h2>\n\u5f53\u4e00\u4e2a\u7a0b\u5e8f\u5305\u5f15\u5165\u4e86\u67d0\u4e2a\u5bf9\u8c61\u7c7b\u65f6\uff0c\u7528\u8be5\u5bf9\u8c61\u7c7b\u7684\u540d\u5b57\u547d\u540d\u7a0b\u5e8f\u5305\uff0c\u901a\u5e38\u662f\u4e00\u4e2a\u5355\u6570\u5f62\u5f0f\u7684\u540d\u8bcd\uff0c\u82e5\u9700\u8981\uff08\u5373\u5b9a\u4e49\u4e86\u4e00\u4e2a\u5e26\u53c2\u6570\u7684\u7c7b\uff09\uff0c\u53ef\u52a0\u4e0a\u540e\u7f00 _Generic\u3002\u4ec5\u5f53\u5bf9\u8c61\u603b\u4ee5\u7fa4\u4f53\u5f62\u5f0f\u51fa\u73b0\u65f6\uff0c\u624d\u91c7\u7528\u590d\u6570\u5f62\u5f0f\u3002\u4f8b\u5982\uff1a<\/p>\n
package Text is\r\npackage Line is\r\npackage Mailbox is\r\npackage Message is\r\npackage Attributes is\r\npackage Subscriber is\r\npackage List_Generic is<\/pre>\n\u82e5\u4e00\u4e2a\u7a0b\u5e8f\u5305\u8bf4\u660e\u4e86\u4e00\u4e2a\u63a5\u53e3\u6216\u8005\u529f\u80fd\u5206\u7ec4\uff0c\u5e76\u4e14\u5b83\u4e0d\u4e0e\u4efb\u4f55\u5bf9\u8c61\u76f8\u5173\uff0c\u5219\u5e94\u5728\u5b83\u7684\u540d\u5b57\u4e2d\u5c06\u8fd9\u4e00\u70b9\u8868\u8ff0\u51fa\u6765\uff1a<\/p>\n
package Low_Layer_Interface is\r\npackage Math_Definitions is<\/pre>\n\u5f53\u4e00\u4e2a\u201c\u903b\u8f91\u201d\u5305\u7528\u5e73\u9762\u5206\u89e3 (flat decomposition)\uff0c\u9700\u8981\u4f5c\u4e3a\u51e0\u4e2a\u5305\u6765\u8868\u8fbe\u65f6\uff0c\u91c7\u7528\u9879\u76ee\u7ea7\u4e00\u81f4\u7684\u5217\u8868\u4e2d\u7684\u540e\u7f00\u3002\u4f8b\u5982\uff0c\u4e00\u4e2a\u903b\u8f91\u7a0b\u5e8f\u5305 Mailbox \u53ef\u5982\u4e0b\u5b9e\u73b0\uff1a<\/p>\n
package Mailbox_Definitions is\r\npackage Mailbox_Exceptions is\r\npackage Mailbox_Io is\r\npackage Mailbox_Utilities is\r\npackage Mailbox_Implementation is\r\npackage Mailbox_Main is<\/pre>\n\u5176\u5b83\u53ef\u63a5\u53d7\u7684\u540e\u7f00\u6709\uff1a<\/p>\n
_Test_Support \r\n_Test_Main \r\n_Log \r\n_Hidden_Definitions \r\n_Maintenance \r\n_Debug<\/pre>\n<\/a>\u7c7b\u578b<\/h2>\n\u5f53\u5728\u7a0b\u5e8f\u5305\u4e2d\u5b9a\u4e49\u4e00\u4e2a\u5bf9\u8c61\u7c7b\u8574\u6db5\u62f7\u8d1d\u8bed\u4e49\u65f6 – \u5373\u5f53\u7c7b\u578b\u53ef\u5b9e\u4f8b\u5316\u5e76\u4e14\u67d0\u79cd\u5f62\u5f0f\u7684\u4efb\u52a1\u5206\u914d\u53ef\u884c\u65f6\uff0c\u91c7\u7528\uff1a<\/p>\n
type Object is ...<\/pre>\n\u6ce8\u610f\u7c7b\u540d\u4e0d\u5e94\u5728\u6807\u8bc6\u7b26\u4e2d\u91cd\u590d\uff0c\u56e0\u4e3a\u5b83\u603b\u662f\u4ee5\u5b8c\u5168\u53d7\u9650\u7684\u5f62\u5f0f\u4f7f\u7528\uff1a<\/p>\n
Mailbox.Object\r\nLine.Object<\/pre>\n\u5f53\u5305\u542b\u5171\u4eab\u8bed\u4e49\u65f6 – \u5373\u7c7b\u578b\u7528\u5b58\u53d6\u503c\uff08\u6216\u8005\u5176\u5b83\u975e\u76f4\u63a5\u7684\u5f62\u5f0f\uff09\u5b9e\u73b0\uff0c\u5e76\u4e14\u8d4b\u503c\u8bed\u53e5\uff08\u82e5\u5b58\u5728\uff09\u4e0d\u590d\u5236\u5bf9\u8c61 – \u7528\u5982\u4e0b\u65b9\u5f0f\u8bf4\u660e\uff1a<\/p>\n
UL><\/p>\n
\ntype Handle is <\/code>\u7528\u4e8e\u975e\u76f4\u63a5\u5f15\u7528<\/li>\ntype Reference is <\/code>\u662f\u4e00\u4e2a\u53ef\u884c\u7684\u5907\u7528\u65b9\u6848<\/li>\n<\/ul>\n\u8fd9\u4e9b\u5143\u7d20\u5728\u5355\u72ec\u4f7f\u7528\u65f6\u4f5c\u540e\u7f00\uff0c\u524d\u9762\u52a0\u4e0a\u5305\u540d\uff0c\u8fd9\u6837\u5e76\u4e0d\u6e05\u695a\u6216\u975e\u5e38\u6478\u68f1\u4e24\u53ef\u3002<\/p>\n
\u5f53\u8574\u6db5\u591a\u4e2a\u5bf9\u8c61\u65f6\uff0c\u91c7\u7528\uff1a<\/p>\n
\ntype Set is <\/code>\u5f53\u6697\u542b\u5143\u7d20\u7684\u7279\u6b8a\u6027\u65f6<\/li>\ntype List is <\/code>\u5f53\u5305\u542b\u67d0\u79cd\u6b21\u5e8f\u65f6<\/li>\ntype Collection is<\/code> \u5f53\u65e2\u4e0d\u542b\u96c6\u5408\u4e5f\u4e0d\u542b\u5217\u8868\u8bed\u4e49\u65f6<\/li>\ntype Iterator is<\/code> \u5f53\u63d0\u4f9b\u4e86 Initialize\uff0cValue_Of\uff0cNext\uff0cIs_Done \u7b49\u539f\u8bed\u65f6
\n\uff08\u53c2\u89c1 6.5 \u8282\uff09<\/li>\n<\/ul>\n\u5bf9\u4e8e\u67d0\u4e2a\u5bf9\u8c61\u4e32\u7684\u6307\u5b9a\uff0c\u91c7\u7528\uff1a<\/p>\n
type Name is<\/code><\/p>\n\u4e3a\u4e86\u8fbe\u5230\u66f4\u597d\u7684\u6613\u8bfb\u6027\uff0c\u7c7b\u578b\u7684\u53d7\u9650\u540d\u4e5f\u5e94\u5728\u6574\u4e2a\u5b9a\u4e49\u5305\u5185\u4f7f\u7528\u3002\u201cRational \u73af\u5883\u201d\u4e2d\uff0c\u5f53\u5728\u5b50\u7a0b\u5e8f\u8c03\u7528\u4e2d\u91c7\u7528 [Complete] \u51fd\u6570\u65f6\uff0c\u4e0a\u8ff0\u65b9\u6cd5\u4e5f\u53ef\u4f7f\u8fd0\u884c\u66f4\u52a0\u597d\u3002<\/p>\n
\u4f8b\u5982\uff0c\u6ce8\u610f\u4e0b\u9762\u7684\u5b8c\u5168\u540d Subscriber.Object\uff1a<\/p>\n
package Subscriber is\r\ntype Object is private;\r\ntype Handle is access Subscriber.Object;\r\nsubtype Name is String;\r\npackage List is new List_Generic (Subscriber.Handle);\r\nMaster_List : Subscriber.List.Handle;\r\nprocedure Create (The_Handle : out Subscriber.Handle;\r\nWith_Name : in Subscriber.Name);\r\nprocedure Append (The_Subscriber : in Subscriber.Handle;\r\nTo_List : in out Subscriber.List.Handle);\r\nfunction Name_Of (The_Subscriber : Subscriber.Handle) return\r\nSubscriber.Name;\r\n ...\r\nprivate\r\ntype Object is\r\nrecord\r\nThe_Name : Subscriber.Name (1..20);\r\n ...\r\nend Subscriber;<\/pre>\n\u5728\u5176\u5b83\u60c5\u51b5\u4e0b\uff0c\u7c7b\u540d\u91c7\u7528\u540d\u8bcd\u6216\u8005\u4fee\u9970\u7b26 + \u540d\u8bcd\u3002\u7c7b\u578b\u53ef\u7528\u590d\u6570\u5f62\u5f0f\uff0c\u5bf9\u8c61\uff08\u53d8\u91cf\uff09\u540d\u91c7\u7528\u5355\u6570\uff1a<\/p>\n
type Point is record ...\r\ntype Hidden_Attributes is ( ...\r\ntype Boxes is array ...<\/pre>\n\u5bf9\u4e8e\u679a\u4e3e\u7c7b\u578b\uff0c\u5355\u72ec\u6216\u8005\u4f5c\u4e3a\u540e\u7f00\u4f7f\u7528 Mode\uff0cKind\uff0cCode \u7b49\u5355\u8bcd\u3002<\/p>\n
\u5bf9\u4e8e\u6570\u7ec4\u7c7b\u578b\uff0c\u5f53\u5df2\u5c06\u7b80\u5355\u540d\u7528\u4e8e\u7ec4\u4ef6\u7c7b\u578b\u65f6\uff0c\u53ef\u4ee5\u91c7\u7528\u540e\u7f00 _Table\u3002\u4ec5\u5f53\u6570\u7ec4\u7528\u8574\u6db5\u8bed\u4e49\u6765\u7ef4\u62a4\u65f6\uff0c\u624d\u91c7\u7528\u8c61 _Set \u548c _List \u8fd9\u6837\u7684\u540d\u5b57\u6216\u540e\u7f00\u3002Reserve _Vector \u548c _Matrix \u5e94\u7559\u4f5c\u76f8\u5e94\u7684\u6570\u5b66\u6982\u5ff5\u4f7f\u7528\u3002<\/p>\n
\u56e0\u4e3a\u8981\u907f\u514d\u5355\u6570\u7684\u4efb\u52a1\u5bf9\u8c61\uff08\u539f\u56e0\u5728\u540e\u6587\u89e3\u91ca\uff09\uff0c\u6240\u4ee5\u5373\u4f7f\u53ea\u6709\u4e00\u4e2a\u8be5\u7c7b\u578b\u7684\u5bf9\u8c61\u65f6\uff0c\u4e5f\u5e94\u5f15\u5165\u4efb\u52a1\u7c7b\u578b\u3002\u4e0b\u9762\u662f\u4f7f\u7528\u4e86\u4e00\u4e2a\u8c61 _Type \u8fd9\u6837\u7684\u7b80\u5355\u540e\u7f00\u4e4b\u540e\u4fbf\u4ee4\u4eba\u6ee1\u610f\u7684\u4f8b\u5b50\uff1a<\/p>\n
task type Listener_Type is ...\r\nfor Listener_Type'Storage_Size use ...\r\nListener : Listener_Type;<\/pre>\n\u7c7b\u4f3c\u5730\uff0c\u5f53\u7c7b\u578b\u540d\u91c7\u7528\u540d\u8bcd\uff08\u6216\u8005\u540d\u8bcd\u77ed\u8bed\uff09\u5b58\u5728\u51b2\u7a81\u65f6\uff0c\u6216\u8005\u51e0\u5904\u7684\u5bf9\u8c61\u540d\u6216\u53c2\u6570\u540d\u6709\u51b2\u7a81\u65f6\uff0c\u5728\u8be5\u7c7b\u578b\u540d\u540e\u52a0\u4e0a\u540e\u7f00 _Kind\uff0c\u800c\u8ba9\u5bf9\u8c61\u4f7f\u7528\uff08\u65e0\u540e\u7f00\u7684\uff09\u7b80\u5355\u540d\u8bcd\uff1a<\/p>\n
type Status_Kind is (None, Normal, Urgent, Red);\r\nStatus : Status_Kind := None;<\/pre>\n\u6216\u8005\uff0c\u5bf9\u4e8e\u603b\u4ee5\u590d\u6570\u51fa\u73b0\u7684\u4e8b\u7269\u7684\u7c7b\u578b\uff0c\u91c7\u7528\u590d\u6570\u5f62\u5f0f\u3002<\/p>\n
\u56e0\u4e3a\u5b58\u53d6\u7c7b\u578b\u5b58\u5728\u56fa\u6709\u7684\u5371\u5bb3\uff0c\u6240\u4ee5\u4f7f\u7528\u8005\u5e94\u5c0f\u5fc3\u3002\u4e00\u822c\u5b83\u4eec\u53eb\u505a Pointer\u3002\u5982\u679c\u540d\u5b57\u672c\u8eab\u610f\u4e49\u8fd8\u5f88\u6478\u68f1\u4e24\u53ef\uff0c\u5219\u5e94\u52a0\u4e0a\u540e\u7f00 _pointer\u3002\u4f5c\u4e3a\u540e\u5907\u65b9\u6848\uff0c\u4e5f\u53ef\u91c7\u7528 _Access \u505a\u540e\u7f00\u3002<\/p>\n
\u6709\u65f6\u91c7\u7528\u5d4c\u5957\u5b50\u7a0b\u5e8f\u5305\u6765\u5f15\u5165\u6b21\u7ea7\u62bd\u8c61\u53ef\u4ee5\u7b80\u5316\u547d\u540d\uff1a<\/p>\n
package Subscriber is ...\r\npackage Status is\r\ntype Kind is (Ok, Deleted, Incomplete, Suspended, \r\nPrivileged);\r\nfunction Set (The_Status : Subscriber.Status.Kind;\r\nTo_Subscriber : Subscriber.Handle);\r\nend Status;\r\n ...<\/pre>\n<\/a>\u5f02\u5e38<\/h2>\n\u56e0\u4e3a\u5f02\u5e38\u53ea\u80fd\u7528\u6765\u5904\u7406\u9519\u8bef\uff0c\u6240\u4ee5\u5e94\u4f7f\u7528\u540d\u8bcd\u6216\u540d\u8bcd\u77ed\u8bed\u6765\u6e05\u695a\u8868\u8fbe\u4e00\u4e2a\u8d1f\u9762\u7684\u610f\u4e49\uff1a<\/p>\n
Overflow, Threshold_Exceeded, Bad_Initial_Value<\/pre>\n\u5f53\u5728\u4e00\u4e2a\u7c7b\u7a0b\u5e8f\u5305\u4e2d\u5b9a\u4e49\u5f02\u5e38\u65f6\uff0c\u6807\u8bc6\u7b26\u65e0\u9700\u5305\u542b\u7c7b\u540d – \u4f8b\u5982 Bad_Initial_Subscriber_Value – \u56e0\u4e3a\u5f02\u5e38\u4e00\u76f4\u88ab\u7528\u4f5c Subscriber.Bad_Initial_Value\u3002<\/p>\n
\u91c7\u7528 Bad\uff0cIncomplete\uff0cInvalid\uff0cWrong\uff0cMissing \u6216\u8005 Illegal \u4e2d\u7684\u4e00\u4e2a\u5355\u8bcd\u4f5c\u4e3a\u540d\u5b57\u7684\u4e00\u90e8\u5206\uff0c\u800c\u4e0d\u662f\u7cfb\u7edf\u5730\u91c7\u7528\u4e0d\u4f20\u8fbe\u4efb\u4f55\u8be6\u7ec6\u4fe1\u606f\u7684 Error\uff1a<\/p>\n
Illegal_Data, Incomplete_Data<\/pre>\n<\/a>\u5b50\u7a0b\u5e8f<\/h2>\n\u8fc7\u7a0b\uff08\u548c\u4efb\u52a1\u5165\u53e3\uff09\u91c7\u7528\u52a8\u8bcd\u3002\u51fd\u6570\u540d\u91c7\u7528\u5e26\u6709\u5bf9\u8c61\u7c7b\u5c5e\u6027\u6216\u7279\u5f81\u7684\u540d\u8bcd\u3002\u8fd4\u56de\u5e03\u5c14\u503c\uff08\u8c13\u8bcd\uff09\u7684\u51fd\u6570\u4f7f\u7528\u5f62\u5bb9\u8bcd\uff08\u6216\u8fc7\u53bb\u5206\u8bcd\uff09\u3002<\/p>\n
Subscriber.Create\r\nSubscriber.Destroy\r\nSubscriber.List.Append\r\nSubscriber.First_Name -- Returns a string.\r\nSubscriber.Creation_Date -- Returns a date.\r\nSubscriber.List.Next\r\nSubscriber.Deleted -- Returns a Boolean.\r\nSubscriber.Unavailable -- Returns a Boolean.\r\nSubscriber.Remote<\/pre>\n\u5bf9\u4e8e\u8c13\u8bcd\uff0c\u5728\u4e00\u4e9b\u60c5\u51b5\u4e0b\u7ed9\u540d\u8bcd\u524d\u9762\u52a0\u4e0a\u524d\u7f00 Is_ \u6216 Has_ \u6216\u8bb8\u6709\u5e2e\u52a9\uff1b\u65f6\u6001\u8981\u51c6\u786e\u548c\u4e00\u81f4\uff1a<\/p>\n
function Has_First_Name ...\r\nfunction Is_Administrator ...\r\nfunction Is_First...\r\nfunction Was_Deleted ...<\/pre>\n\u5f53\u7b80\u5355\u540d\u79f0\u5df2\u4f5c\u4e3a\u7c7b\u578b\u540d\u6216\u679a\u4e3e\u578b\u76f4\u63a5\u91cf\u65f6\uff0c\u4e0a\u8ff0\u65b9\u6cd5\u6709\u7528\u3002<\/p>\n
\u8c13\u8bcd\u5e94\u4f7f\u7528\u80af\u5b9a\u5f0f\uff0c\u4e5f\u5c31\u662f\u8bf4\uff0c\u5176\u4e2d\u4e0d\u5e94\u542b\u6709\u201cNot_\u201d\u4e00\u8bcd\u3002<\/p>\n
\u5bf9\u4e8e\u666e\u901a\u64cd\u4f5c\uff0c\u7edf\u4e00\u4ece\u9879\u76ee\u53ef\u9009\u5217\u8868\uff08\u5217\u8868\u968f\u7740\u6211\u4eec\u5bf9\u7cfb\u7edf\u8ba4\u8bc6\u7684\u52a0\u6df1\u800c\u6269\u5c55\uff09\u4e2d\u9009\u62e9\u52a8\u8bcd\uff1a<\/p>\n
Create\r\nDelete\r\nDestroy\r\nInitialize\r\nAppend\r\nRevert\r\nCommit\r\nShow, Display<\/pre>\n\u8c13\u8bcd\u51fd\u6570\u548c\u5e03\u5c14\u578b\u7684\u53c2\u6570\u91c7\u7528\u80af\u5b9a\u5f0f\u3002\u5426\u5b9a\u5f0f\u7684\u540d\u5b57\u53ef\u80fd\u4ea7\u751f\u53cc\u91cd\u5426\u5b9a\uff08\u4f8b\u5982 Not Is_Not_Found\uff09\uff0c\u4ece\u800c\u4f7f\u4ee3\u7801\u96be\u8bfb\u3002<\/p>\n
function Is_Not_Valid (...) return Boolean\r\nprocedure Find_Client (With_The_Name : in Name;\r\nNot_Found : out Boolean)<\/pre>\n\u5e94\u5b9a\u4e49\u6210\uff1a<\/p>\n
function Is_Valid (...) return Boolean;\r\nprocedure Find_Client (With_The_Name: in Name;\r\nFound: out Boolean)<\/pre>\n\u8fd9\u624d\u8ba9\u4eab\u7528\u6a21\u5757\u6309\u5176\u6240\u9700\u7684\u90a3\u6837\u5b9e\u73b0\u4e86\u8868\u8fbe\u5f0f\u7684\u5426\u5b9a\uff08\u8fd9\u6837\u505a\u4e0d\u4f1a\u5bfc\u81f4\u8fd0\u884c\u65f6\u95f4\u5ef6\u957f\uff09\uff1a<\/p>\n
if not Is_Valid (...) then ....<\/pre>\n\u6709\u4e9b\u60c5\u51b5\u4e0b\uff0c\u901a\u8fc7\u4f7f\u7528\u53cd\u4e49\u8bcd\uff0c\u5982\u7528\u201cIs_Invalid\u201d\u6765\u4ee3\u66ff\u201cIs_Not_Valid\u201d\uff0c\u53ef\u4ee5\u4f7f\u5426\u5b9a\u8c13\u8bcd\u5728\u4e0d\u6539\u53d8\u8bed\u4e49\u7684\u60c5\u51b5\u4e0a\u53d8\u6210\u80af\u5b9a\u5f0f\u3002\u4f46\u662f\uff0c\u80af\u5b9a\u5f0f\u7684\u540d\u5b57\u66f4\u6613\u8bfb\uff1a \u201cIs_Valid\u201d\u6bd4\u201cnot Is_Invalid\u201d\u66f4\u6613\u7406\u89e3\u3002<\/p>\n
\u5f53\u8574\u6db5\u7740\u5927\u81f4\u76f8\u540c\u7684\u610f\u4e49\u65f6\uff0c\u91c7\u7528\u76f8\u540c\u7684\u5355\u8bcd\uff0c\u800c\u4e0d\u662f\u5bfb\u627e\u540c\u4e49\u8bcd\u6216\u53d8\u4f53\u3002\u56e0\u6b64\uff0c\u9f13\u52b1\u4f7f\u7528\u91cd\u8f7d\u6765\u63d0\u9ad8\u4ee3\u7801\u7684\u4e00\u81f4\u6027\uff0c\u9075\u5faa\u6700\u5c0f\u9650\u5ea6\u610f\u5916\u539f\u5219\u3002<\/p>\n
\u82e5\u5b50\u7a0b\u5e8f\u88ab\u7528\u505a\u5165\u53e3\u8c03\u7528\u7684\u201c\u5916\u8868\u201d (skins) \u6216\u8005\u201c\u5305\u88c5\u201d (wrappers)\uff0c\u5219\u7ed9\u5176\u540d\u5b57\u52a8\u8bcd\u52a0\u4e0a\u540e\u7f00 _Or_Wait\uff0c\u6216\u8005\u7ed9\u51fd\u6570\u53d6\u4e2a Wait_For_ \u77ed\u8bed\u52a0\u540d\u8bcd\u7684\u540d\u5b57\u6765\u53cd\u6620\u8fd9\u4e00\u70b9\uff0c\u8fd9\u6837\u53ef\u80fd\u6709\u7528\uff1a<\/p>\n
Subscriber.Get_Reply_Or_Wait\r\nSubscriber.Wait_For_Reply<\/pre>\n\u4e00\u4e9b\u64cd\u4f5c\u5e94\u4e00\u76f4\u4f7f\u7528\u76f8\u540c\u7684\u540d\u5b57\u6765\u7edf\u4e00\u5b9a\u4e49\uff1a<\/p>\n
\u5bf9\u4e8e\u8f6c\u6362\u5230\u5b57\u4e32\u548c\u4ece\u5b57\u4e32\u8f6c\u6362\u6765\u7684\u7c7b\u578b\u53d8\u6362\uff0c\u5bf9\u79f0\u51fd\u6570\u662f\uff1a<\/p>\n
function Image and function Value<\/pre>\n\u5bf9\u4e8e\u8f6c\u6362\u5230\u4f4e\u7ea7\u8868\u793a\u6cd5\uff08\u5982\u7528\u4e8e\u6570\u636e\u4ea4\u6362\u7684 Byte_String\uff09\u548c\u4ece\u4f4e\u7ea7\u8868\u793a\u6cd5\u8f6c\u6362\u8fc7\u6765\u7684\u7c7b\u578b\u53d8\u6362\uff0c\u5bf9\u79f0\u8fc7\u7a0b\u662f\uff1a<\/p>\n
procedure Read and Write<\/pre>\n\u5bf9\u4e8e\u5206\u914d\u6570\u636e\uff1a<\/p>\n
function Allocate (rather than Create)\r\nfunction Destroy (or Release, to express that the object will disappear)<\/pre>\n\u5f53\u7cfb\u7edf\u5730\u5904\u7406\u5b83\u4eec\u65f6\u91c7\u7528\u7edf\u4e00\u7684\u547d\u540d\uff0c\u7c7b\u578b\u5408\u6210\u5c06\u5bb9\u6613\u8bb8\u591a\u3002<\/p>\n
\u5bf9\u4e8e\u6d3b\u52a8\u7684\u8fed\u4ee3\u7a0b\u5e8f\uff0c\u5fc5\u987b\u5b9a\u4e49\u4ee5\u4e0b\u539f\u8bed\uff1a<\/p>\n
Initialize\r\nNext\r\nIs_Done\r\nValue_Of<\/pre>\n\u82e5\u53ef\u884c\uff0c\u8fd8\u8981\u5b9a\u4e49 Reset<\/code>\u3002\u82e5\u8981\u5728\u76f8\u540c\u7684\u4f5c\u7528\u57df\u8303\u56f4\u5185\u5f15\u5165\u51e0\u4e2a\u8fed\u4ee3\u7c7b\u578b\uff0c\u90a3\u4e48\u5e94\u91cd\u8f7d\u8fd9\u4e9b\u539f\u8bed\uff0c\u800c\u4e0d\u662f\u4e3a\u6bcf\u4e2a\u8fed\u4ee3\u7a0b\u5e8f\u5206\u522b\u5f15\u5165\u4e00\u5957\u5404\u4e0d\u76f8\u540c\u7684\u6807\u8bc6\u7b26\u3002\u53c2\u89c1 [BOO87]<\/a>\u3002<\/p>\n\u5f53\u91c7\u7528 Ada \u9884\u786e\u5b9a\u5c5e\u6027\u4f5c\u4e3a\u51fd\u6570\u540d\u65f6\uff0c\u8981\u4fdd\u8bc1\u5176\u7528\u6cd5\u4e0e\u4e00\u822c\u7684\u8bed\u4e49\u76f8\u540c\uff1a’First\uff0c’Last\uff0c’Length\uff0c’Image\uff0c’Value\uff0c\u7b49\u7b49\u3002 \u6ce8\u610f\uff0c\u51e0\u4e2a\u5c5e\u6027\uff08\u5982 ‘Range \u548c ‘Delta\uff09\u662f\u4e0d\u80fd\u7528\u505a\u51fd\u6570\u540d\u7684\uff0c\u56e0\u4e3a\u5b83\u4eec\u662f\u4fdd\u7559\u5b57\u3002<\/p>\n
<\/a>\u5bf9\u8c61\u548c\u5b50\u7a0b\u5e8f\uff08\u6216\u5165\u53e3\uff09\u53c2\u6570<\/h2>\n\u4e3a\u8868\u660e\u5176\u552f\u4e00\u6027\u6216\u662f\u8868\u660e\u8be5\u5b9e\u4f53\u662f\u6d3b\u52a8\u7684\u4e3b\u8981\u805a\u96c6\u5904\uff0c\u5728\u5bf9\u8c61\u6216\u53c2\u6570\u540d\u79f0\u524d\u52a0\u524d\u7f00\u201cThe\u201d\u6216\u201cThis\u201d\u3002\u8981\u8bf4\u660e\u4e00\u4e2a\u6b21\u8981\u3001\u4e34\u65f6\u3001\u8f85\u52a9\u7684\u5bf9\u8c61\uff0c\u5219\u52a0\u524d\u7f00\u201cA_\u201d\u6216\u201cCurrent_\u201d\uff1a<\/p>\n
procedure Change_Name (The_Subscriber : in Subscriber.Handle;\r\nThe_Name : in Subscriber.Name );\r\ndeclare\r\nA_Subscriber : Subscriber.Handle := Subscriber.First;\r\nbegin\r\n ...\r\nA_Subscriber := Subscriber.Next (The_Subscriber);\r\nend;<\/pre>\n\u5bf9\u4e8e\u5e03\u5c14\u578b\u7684\u5bf9\u8c61\uff0c\u91c7\u7528\u80af\u5b9a\u5f0f\u7684\u8c13\u8bcd\u5b50\u53e5\uff1a<\/p>\n
Found_It\r\nIs_Available<\/pre>\n\u4f46\u662f\uff1a<\/p>\n
Is_Not_Available<\/code> \u5fc5\u987b\u907f\u514d\u3002<\/p>\n\u5bf9\u4e8e\u4efb\u52a1\u5bf9\u8c61\uff0c\u5e94\u91c7\u7528\u4e00\u4e2a\u8574\u6db5\u4e86\u6d3b\u52a8\u5b9e\u4f53\u7684\u540d\u8bcd\u6216\u8005\u540d\u8bcd\u77ed\u8bed\uff1a<\/p>\n
Listener\r\nResource_Manager\r\nTerminal_Driver<\/pre>\n
\u8868\u793a\u5b50\u53e5\u548c\u5c5e\u6027<\/a>
\n\u65e0\u68c0\u67e5\u8f6c\u6362<\/a><\/h4>\n\u603b\u7ed3<\/a><\/h3>\n\u53c2\u8003\u6587\u732e<\/a><\/h3>\n\u8bcd\u6c47\u8868<\/a><\/h3>\n
\n<\/a>\u7b2c\u4e00\u7ae0<\/em><\/h2>\n\u5173\u4e8e\u672c\u6587\u6863<\/h1>\n
\u672c\u6587\u6863 Rational Unified Process – Ada \u7f16\u7a0b\u6307\u5357<\/em>\u662f\u4e00\u4e2a\u6807\u51c6\u7684\u6a21\u677f\uff0c\u4f60\u7684\u5f00\u53d1\u7ec4\u7ec7\u53ef\u4f9d\u6b64\u6d3e\u751f\u51fa\u4e00\u5957\u7a0b\u5e8f\u8bbe\u8ba1\u6807\u51c6\u3002\u8be5\u6307\u5357\u8be6\u7ec6\u8bf4\u660e\u4e86\u5e94\u5982\u4f55\u7f16\u5199 Ada \u7a0b\u5e8f\u3002\u672c\u6587\u670d\u52a1\u7684\u5bf9\u8c61\u662f\u6240\u6709\u5c06 Ada \u4f5c\u4e3a\u5b9e\u65bd\u8bed\u8a00\u6216\u8005\u4e00\u79cd\u8bf4\u660e\u63a5\u53e3\u6216\u6570\u636e\u7ed3\u6784\u7684\u8bbe\u8ba1\u8bed\u8a00\u7684\u5e94\u7528\u8f6f\u4ef6\u8bbe\u8ba1\u8005\u548c\u5f00\u53d1\u8005\u3002<\/p>\n\u6587\u4e2d\u6240\u63cf\u8ff0\u7684\u89c4\u5219\u56ca\u62ec\u4e86\u7a0b\u5e8f\u8bbe\u8ba1\u7684\u5927\u90e8\u5206\u65b9\u9762\u3002\u901a\u7528\u89c4\u5219\u9002\u7528\u4e8e\u7a0b\u5e8f\u5e03\u5c40\u3001\u547d\u540d\u7ea6\u5b9a\u548c\u6ce8\u91ca\u5e94\u7528\u3002\u7279\u6b8a\u89c4\u5219\u9002\u7528\u4e8e\u9009\u5b9a\u7684 Ada \u7279\u6027\uff0c\u5e76\u8bf4\u660e\u4e86\u7981\u7528\u6784\u9020\u3001\u63a8\u8350\u4f7f\u7528\u6a21\u5f0f\u548c\u7528\u4ee5\u63d0\u9ad8\u7a0b\u5e8f\u8d28\u91cf\u7684\u901a\u7528\u6280\u5de7\u3002<\/p>\n
\u9879\u76ee\u7684\u8bbe\u8ba1<\/em>\u6307\u5357\u548c\u5f53\u524d\u7684\u7f16\u7a0b<\/em>\u6307\u5357\u6709\u4e00\u5b9a\u7684\u91cd\u590d\uff0c\u662f\u6709\u610f\u8fd9\u6837\u505a\u7684\u3002\u4ecb\u7ecd\u7684\u8bb8\u591a\u7a0b\u5e8f\u8bbe\u8ba1\u89c4\u5219\uff0c\u5c24\u5176\u662f\u5728\u547d\u540d\u7ea6\u5b9a<\/em>\u4e2d\u7684\u89c4\u5219\uff0c\u7528\u4e8e\u79ef\u6781\u652f\u6301\u548c\u52a0\u5f3a\u8f6f\u4ef6\u8bbe\u8ba1\u4e2d\u7684\u9762\u5411\u5bf9\u8c61<\/em>\u65b9\u5f0f\u3002<\/p>\n\u6307\u5357\u6700\u521d\u7528\u4e8e Ada 83\u3002\u5b83\u542b\u6709\u4e0e Ada 95 \u517c\u5bb9\u7684\u89c4\u5219\uff0c\u4f46\u4e0d\u542b\u6709\u6539\u7248\u540e\u8bed\u8a00\u6807\u51c6\u65b0\u7279\u6027\u7684\u4f7f\u7528\u6307\u5357\uff0c\u4f8b\u5982\u6807\u8bc6\u7c7b\u578b\u3001\u5b50\u5355\u5143\u6216\u5c0f\u6570\u7c7b\u578b\u3002<\/p>\n
\u6587\u6863\u5927\u81f4\u6309\u7167 Ada Reference Manual \u7684\u7ed3\u6784\u6765\u7ec4\u7ec7 [ISO 8052]<\/a>\u3002<\/p>\n\u7b2c\u4e8c\u7ae0\u201c\u7b80\u4ecb<\/em>\u201d\u89e3\u91ca\u4e86\u6307\u5357\u6240\u57fa\u4e8e\u7684\u57fa\u672c\u539f\u7406\u5e76\u4ecb\u7ecd\u4e86\u6307\u5357\u5206\u7c7b\u3002<\/p>\n\u7b2c\u4e09\u7ae0\u201c\u4ee3\u7801\u5e03\u5c40<\/em>\u201d\u8bb2\u8ff0\u4e86\u7a0b\u5e8f\u6587\u672c\u7684\u4e00\u822c\u89c6\u89c9\u7ec4\u7ec7\u7ed3\u6784\u3002<\/p>\n\u7b2c\u56db\u7ae0\u201c\u6ce8\u91ca<\/em>\u201d\u7ed9\u51fa\u4e86\u5982\u4f55\u7528\u7ed3\u6784\u5316\u7684\u3001\u53ef\u7528\u7684\u548c\u53ef\u7ef4\u62a4\u7684\u65b9\u5f0f\u6765\u6ce8\u91ca\u8bf4\u660e\u4ee3\u7801\u3002<\/p>\n\u7b2c\u4e94\u7ae0\u201c\u547d\u540d\u7ea6\u5b9a<\/em>\u201d\u7ed9\u51fa\u6709\u5173\u547d\u540d\u8bed\u8a00\u5b9e\u4f53\u7684\u4e00\u822c\u89c4\u5219\u548c\u8303\u4f8b\u3002\u8fd9\u4e00\u7ae0\u7684\u5185\u5bb9\u5e94\u518d\u7ecf\u4fee\u6539\uff0c\u4ee5\u6ee1\u8db3\u7279\u5b9a\u9879\u76ee\u6216\u673a\u6784\u7684\u9700\u8981\u3002<\/p>\n\u7b2c\u516d\u7ae0\u201c\u58f0\u660e<\/em>\u201d\u548c\u7b2c\u4e03\u7ae0\u201c\u8868\u8fbe\u5f0f\u548c\u8bed\u53e5<\/em>\u201d\u5bf9\u6bcf\u79cd\u8bed\u8a00\u7ed3\u6784\u7ed9\u51fa\u4e86\u8fdb\u4e00\u6b65\u7684\u5efa\u8bae\u3002<\/p>\n\u7b2c\u516b\u7ae0\u201c\u53ef\u89c6\u6027\u95ee\u9898<\/em>\u201d\u548c\u7b2c\u4e5d\u7ae0\u201c\u7a0b\u5e8f\u7ed3\u6784\u548c\u7f16\u8bd1\u95ee\u9898<\/em>\u201d\u7ed9\u51fa\u4e86\u6709\u5173\u5168\u5c40\u6784\u5efa\u548c\u7a0b\u5e8f\u7ec4\u6210\u7684\u6307\u5bfc\u3002<\/p>\n\u7b2c\u5341\u7ae0\u201c\u5e76\u884c<\/em>\u201d\u5904\u7406\u8bed\u8a00\u4e2d\u6709\u5173\u4f7f\u7528\u4efb\u52a1\u548c\u65f6\u95f4\u76f8\u5173\u7279\u6027\u7684\u4e13\u95e8\u95ee\u9898\u3002<\/p>\n\u7b2c\u5341\u4e00\u7ae0\u201c\u9519\u8bef\u5904\u7406\u548c\u5f02\u5e38<\/em>\u201d\u7ed9\u51fa\u5982\u4f55\u7cfb\u7edf\u5730\u3001\u7b80\u4fbf\u5730\u4f7f\u7528\u6216\u4e0d\u4f7f\u7528\u5f02\u5e38\u6765\u5904\u7406\u9519\u8bef\u3002<\/p>\n\u7b2c\u5341\u4e8c\u7ae0\u201c\u4f4e\u7ea7\u7f16\u7a0b<\/em>\u201d\u5904\u7406\u8868\u793a\u5b50\u53e5\u7684\u95ee\u9898\u3002<\/p>\n\u7b2c\u5341\u4e09\u7ae0\u201c\u603b\u7ed3<\/em>\u201d\u627c\u8981\u590d\u8ff0\u4e86\u6700\u4e3a\u91cd\u8981\u7684\u6307\u5bfc\u65b9\u9488\u3002<\/p>\n\u672c\u6587\u6863\u53d6\u4ee3\u4e86 Ada Guidelines: Recommendation for Designers and programmers<\/em> \u4e2d\u7684 Application Note #15, Rational, Santa Clara, CA., 1990\u3002<\/p>\n
\n<\/a>\u7b2c\u4e8c\u7ae0<\/em><\/h2>\n\u7b80\u4ecb<\/h1>\n\u57fa\u672c\u539f\u5219<\/h2>\n
Ada \u8bed\u8a00\u7684\u8bbe\u8ba1\u5f88\u6709\u9488\u5bf9\u6027\u7684\u76ee\u7684\u5c31\u662f\u652f\u6301\u9ad8\u8d28\u91cf\u3001\u53ef\u9760\u3001\u53ef\u590d\u7528\u548c\u53ef\u79fb\u690d\u8f6f\u4ef6 [ISO 87, sect. 1.3]<\/a>\u3002\u7136\u800c\uff0c\u6ca1\u6709\u54ea\u4e00\u79cd\u8bed\u8a00\u4ec5\u9760\u5176\u672c\u8eab\u5c31\u53ef\u4ee5\u5b9e\u73b0\u4e0a\u8ff0\u76ee\u6807\u3002\u7a0b\u5e8f\u8bbe\u8ba1\u5fc5\u987b\u662f\u4e00\u4e2a\u6709\u826f\u597d\u89c4\u8303\u7684\u8fc7\u7a0b\u7684\u4e00\u90e8\u5206\u3002<\/p>\n\u6e05\u695a\u660e\u767d\u7684 Ada \u6e90\u4ee3\u7801\u662f\u672c\u6587\u4e2d\u5927\u591a\u6570\u6307\u5bfc\u65b9\u9488\u7684\u4e3b\u8981\u76ee\u6807\u3002\u8fd9\u4e00\u70b9\u662f\u5b9e\u73b0\u53ef\u9760\u6027\u548c\u53ef\u7ef4\u62a4\u6027\u7684\u4e3b\u8981\u56e0\u7d20\u3002\u6240\u8c13\u6e05\u695a\u660e\u767d\u7684\u4ee3\u7801\u53ef\u4ee5\u4ece\u4ee5\u4e0b\u4e09\u6761\u7b80\u5355\u7684\u57fa\u672c\u539f\u5219\u4e0a\u6765\u7406\u89e3\u3002<\/p>\n
\u6700\u5c0f\u9650\u5ea6\u7684\u610f\u5916<\/h3>\n
\u5728\u5176\u751f\u547d\u671f\u5185\uff0c\u4ee3\u7801\u66f4\u591a\u5730\u662f\u88ab\u8bfb\uff0c\u800c\u4e0d\u662f\u88ab\u5199\uff0c\u5c24\u5176\u662f\u5b83\u7684\u8bf4\u660e\u90e8\u5206\u3002\u7406\u60f3\u60c5\u51b5\u4e0b\uff0c\u4ee3\u7801\u8bfb\u8d77\u6765\u5e94\u8be5\u8c61\u4e00\u7bc7\u8bf4\u660e\u5b83\u505a\u4e86\u4ec0\u4e48\u7684\u82f1\u6587\u63cf\u8ff0\uff0c\u5b83\u5177\u6709\u4e00\u4e2a\u9644\u52a0\u4f18\u70b9\u662f\u53ef\u4ee5\u6267\u884c\u3002 \u7a0b\u5e8f\u66f4\u591a\u662f\u4e3a\u4eba\u7f16\u5199\uff0c\u800c\u4e0d\u662f\u4e3a\u8ba1\u7b97\u673a\u7f16\u5199\u3002\u9605\u8bfb\u7f16\u7801\u662f\u4e00\u4e2a\u590d\u6742\u7684\u8111\u529b\u8fc7\u7a0b\uff0c\u5b83\u53ef\u901a\u8fc7\u7edf\u4e00\u6807\u51c6\u6765\u7b80\u5316\uff0c\u5728\u672c\u6587\u4e2d\u8fd9\u4e00\u6307\u5bfc\u4e5f\u53eb\u201c\u6700\u5c0f\u9650\u5ea6\u610f\u5916\u539f\u5219<\/em>\u201d\u3002\u6574\u4e2a\u9879\u76ee\u4e2d\u7edf\u4e00\u6837\u5f0f\u662f\u8f6f\u4ef6\u5f00\u53d1\u56e2\u961f\u5728\u7f16\u7a0b\u6807\u51c6\u4e0a\u8fbe\u6210\u4e00\u81f4\u7684\u4e3b\u8981\u539f\u56e0\uff0c\u5b83\u4e0d\u5e94\u89c6\u4e3a\u4e00\u79cd\u60e9\u7f5a\u6216\u5bf9\u521b\u9020\u6027\u548c\u751f\u4ea7\u529b\u7684\u963b\u788d\u3002<\/p>\n\u5355\u70b9\u7ef4\u62a4<\/h3>\n
\u8fd9\u4e00\u6307\u5bfc\u6240\u57fa\u4e8e\u7684\u53e6\u4e00\u4e2a\u91cd\u8981\u539f\u5219\u662f\u5355\u70b9\u7ef4\u62a4\u539f\u5219<\/em>\u3002\u5e94\u5c3d\u91cf\u4f7f\u8bbe\u8ba1\u51b3\u7b56\u53ea\u5728 Ada \u6e90\u7801\u4e2d\u7684\u4e00\u5904\u8868\u8ff0\uff0c\u5b83\u7684\u591a\u6570\u7ed3\u8bba\u5e94\u7a0b\u5e8f\u5316\u5730\u4ece\u8be5\u5904\u6d3e\u751f\u51fa\u6765\u3002\u4e0d\u9075\u5b88\u8fd9\u4e00\u539f\u5219\u4f1a\u4e25\u91cd\u5f71\u54cd\u4ee3\u7801\u7684\u53ef\u7ef4\u62a4\u6027\u3001\u53ef\u9760\u6027\u548c\u53ef\u7406\u89e3\u6027\u3002<\/p>\n\u6700\u5c0f\u9650\u5ea6\u7684\u5e72\u6270<\/h3>\n
\u6700\u540e\uff0c\u4f5c\u4e3a\u6613\u8bfb\u6027\u7684\u4e3b\u8981\u4f5c\u7528\u56e0\u7d20\uff0c\u91c7\u7528\u6700\u5c0f\u5e72\u6270\u539f\u5219<\/em>\u3002\u5373\u907f\u514d\u5c06\u6e90\u4ee3\u7801\u4e0e\u89c6\u89c9\u201c\u5e72\u6270\u201d\u76f8\u6df7\u5408\uff1a\u5373\u680f\u3001\u6846\u4ee5\u53ca\u5176\u5b83\u4f4e\u4fe1\u606f\u91cf\u7684\u6587\u672c\u6216\u662f\u5bf9\u7406\u89e3\u8f6f\u4ef6\u529f\u80fd\u6ca1\u6709\u5e2e\u52a9\u7684\u4fe1\u606f\u3002<\/p>\n\u53ef\u79fb\u690d\u6027\u548c\u53ef\u590d\u7528\u6027\u4e5f\u662f\u5236\u5b9a\u8bb8\u591a\u6307\u5bfc\u65b9\u9488\u7684\u539f\u7531\u3002\u4ee3\u7801\u5e94\u53ef\u79fb\u690d\u5230\u4e0d\u540c\u76ee\u6807\u8ba1\u7b97\u673a\u7684\u51e0\u4e2a\u4e0d\u540c\u7f16\u8bd1\u5668\u4e0a\uff0c\u5e76\u6700\u7ec8\u79fb\u690d\u5230\u4e00\u4e2a\u66f4\u9ad8\u7ea7\u7684 Ada \u7248\u672c\u201cAda 95\u201d\u4e0a [PLO92,<\/a> TAY92]<\/a>\u3002<\/p>\n<\/a>\u5047\u8bbe<\/h2>\n\u8fd9\u91cc\u7684\u6307\u5bfc\u65b9\u9488\u6709\u51e0\u4e2a\u57fa\u672c\u5047\u8bbe\uff1a<\/p>\n
\u8bfb\u8005\u4e86\u89e3 Ada\u3002<\/h3>\n
\u5e94\u9f13\u52b1\u5728\u4efb\u4f55\u53ef\u5e26\u6765\u597d\u5904\u7684\u5730\u65b9\u4f7f\u7528 Ada \u7684\u9ad8\u7ea7\u7279\u6027\uff0c\u800c\u4e0d\u8981\u4ec5\u4ec5\u56e0\u4e3a\u4e00\u4e9b\u7a0b\u5e8f\u5458\u4e0d\u719f\u6089\u5b83\u4eec\u800c\u53cd\u5bf9\u91c7\u7528\u3002 \u8fd9\u662f\u9879\u76ee\u80fd\u4ece\u4f7f\u7528 Ada \u4e2d\u771f\u6b63\u83b7\u76ca\u7684\u552f\u4e00\u65b9\u5f0f\u3002Ada \u4e0d\u5e94\u8c61 Pascal \u6216 FORTRAN \u8bed\u8a00\u90a3\u6837\u4f7f\u7528\u3002\u4e0d\u9f13\u52b1\u5728\u6ce8\u91ca\u4e2d\u89e3\u91ca\u4ee3\u7801\uff1b\u76f8\u53cd\uff0cAda \u672c\u8eab\u5e94\u5c3d\u53ef\u80fd\u5730\u53d6\u4ee3\u6ce8\u91ca\u3002<\/p>\n
\u8bfb\u8005\u61c2\u82f1\u6587\u3002<\/h3>\n
\u8bb8\u591a\u547d\u540d\u7ea6\u5b9a\u5728\u8bcd\u6c47\u548c\u8bed\u6cd5\u4e0a\u57fa\u4e8e\u82f1\u6587\u3002\u6b64\u5916\uff0c Ada \u7684\u5173\u952e\u5b57\u90fd\u662f\u5e38\u7528\u7684\u82f1\u8bed\u5355\u8bcd\u3002\u5c06\u5176\u4e0e\u5176\u5b83\u8bed\u8a00\u6df7\u5408\u5c06\u964d\u4f4e\u4ee3\u7801\u7684\u6613\u8bfb\u6027\u3002<\/p>\n
\u4e25\u683c\u9650\u5236\u4f7f\u7528\u5b50\u53e5 (use clause) \u7684\u8fd0\u7528\u3002<\/h3>\n
\u547d\u540d\u7ea6\u5b9a\u548c\u5176\u5b83\u4e00\u4e9b\u89c4\u5219\u5047\u5b9a\u201cuse\u201d\u5b50\u53e5\u4e0d\u88ab\u8fd0\u7528\u3002<\/p>\n
\u5904\u7406\u7684\u662f\u4e00\u4e2a\u5927\u9879\u76ee\u3002<\/h3>\n
\u8bb8\u591a\u89c4\u5219\u5728\u5927\u578b\u9879\u76ee\u4e2d\u6700\u6709\u4ef7\u503c\uff0c\u867d\u7136\u51fa\u4e8e\u9879\u76ee\u7ea7\u6216\u516c\u53f8\u7ea7\u5b9e\u73b0\u548c\u7edf\u4e00\u7684\u76ee\u7684\uff0c\u5b83\u4eec\u4e5f\u5728\u5c0f\u578b\u7cfb\u7edf\u4e2d\u4f7f\u7528\u3002<\/p>\n
\u6e90\u7801\u5728\u201cRational \u73af\u5883\u201d (Rational Environment) \u4e2d\u5f00\u53d1\u3002<\/h3>\n
\u901a\u8fc7\u8fd0\u7528\u201cRational \u73af\u5883\u201d (Rational Environment)\uff0c\u4e00\u4e9b\u95ee\u9898\u5982\u4ee3\u7801\u5e03\u5c40\u3001\u5c01\u95ed\u6784\u9020\u4e2d\u7684\u6807\u8bc6\u7b26\u7b49\u5c31\u5728 Ada \u7f16\u8f91\u5668\u548c\u683c\u5f0f\u5668\u4e2d\u5904\u7406\u4e86\u3002 \u4f46\u662f\u672c\u6587\u4e2d\u7684\u5e03\u5c40\u5efa\u8bae\u9002\u7528\u4e8e\u4efb\u4f55\u5f00\u53d1\u5e73\u53f0\u3002<\/p>\n
\u7a0b\u5e8f\u8bbe\u8ba1\u9075\u5faa\u9762\u5411\u5bf9\u8c61\u7684\u65b9\u6cd5\u3002<\/h3>\n
\u8bb8\u591a\u89c4\u5219\u652f\u6301\u5c06 Ada \u7279\u6027\u548c\u7279\u5b9a\u547d\u540d\u7ea6\u5b9a\u7684\u9762\u5411\u5bf9\u8c61 (OO) \u6982\u5ff5\u7684\u7cfb\u7edf\u6620\u5c04\u3002<\/p>\n
<\/a>\u6307\u5357\u5206\u7c7b<\/h2>\n\u8fd9\u4e9b\u6307\u5bfc\u65b9\u9488\u5e76\u975e\u540c\u7b49\u91cd\u8981\u3002\u5b83\u4eec\u5927\u81f4\u9075\u5faa\u4ee5\u4e0b\u7684\u7b49\u7ea7\uff1a<\/p>\n
\u63d0\u793a\uff1a<\/h3>\n
\u8be5\u6307\u5bfc\u65b9\u9488\u4ec5\u662f\u4e00\u6761\u7b80\u5355\u7684\u5efa\u8bae\uff1b\u4e0d\u9075\u5b88\u5b83\u4e5f\u4e0d\u4f1a\u6709\u4ec0\u4e48\u5b9e\u8d28\u6027\u7684\u635f\u5bb3\uff0c\u91c7\u7528\u6216\u662f\u4e0d\u91c7\u7528\u5b83\u4eec\u4ec5\u662f\u4e2a\u4eba\u559c\u597d\u95ee\u9898\u3002\u6587\u4e2d\u7684\u63d0\u793a\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u5efa\u8bae\uff1a<\/h3>\n
\u8be5\u6307\u5bfc\u65b9\u9488\u901a\u5e38\u66f4\u591a\u5730\u57fa\u4e8e\u6280\u672f\u7684\u89c2\u70b9\uff1b\u5b83\u53ef\u80fd\u4f1a\u5f71\u54cd\u5230\u4ee3\u7801\u7684\u53ef\u79fb\u690d\u6027\u6216\u53ef\u590d\u7528\u6027\uff0c\u5e76\u5728\u4e00\u4e9b\u5b9e\u65bd\u4e2d\u5f71\u54cd\u6027\u80fd\u3002 \u9664\u975e\u6709\u5408\u9002\u7684\u7406\u7531\uff0c\u5426\u5219\u5fc5\u987b\u9075\u5b88\u5efa\u8bae\u3002\u6587\u4e2d\u63d0\u5230\u4e00\u4e9b\u4f8b\u5916\u7684\u60c5\u51b5\u3002\u6587\u4e2d\u7684\u5efa\u8bae\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u9650\u5236\uff1a<\/h3>\n
\u6709\u7591\u95ee\u7684\u7279\u6027\u4f7f\u7528\u8d77\u6765\u5371\u9669\uff0c\u4f46\u5b83\u5e76\u4e0d\u88ab\u5b8c\u5168\u7981\u6b62\uff1b\u5e94\u7528\u8be5\u7279\u6027\u7684\u51b3\u5b9a\u5e94\u5728\u9879\u76ee\u7ea7\u4e0a\u505a\u51fa\uff0c\u5e76\u4e14\u51b3\u5b9a\u5e94\u8be5\u662f\u9ad8\u5ea6\u53ef\u89c1\u7684\u3002\u6587\u4e2d\u7684\u9650\u5236\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u8981\u6c42\uff1a<\/h3>\n
\u8fdd\u80cc\u5b83\u5b9a\u5c06\u5bfc\u81f4\u4e0d\u597d\u7684\u3001\u4e0d\u53ef\u9760\u7684\u6216\u662f\u4e0d\u53ef\u79fb\u690d\u7684\u4ee3\u7801\u3002 \u8981\u6c42\u4e0d\u53ef\u8fdd\u80cc\u3002\u6587\u4e2d\u7684\u8981\u6c42\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u201cRational \u8bbe\u8ba1\u5de5\u5177\u201d (Rational Design Facility) \u5c06\u7528\u6765\u51cf\u5c11\u53d7\u9650\u7279\u6027\u7684\u4f7f\u7528\u5e76\u52a0\u5f3a\u5fc5\u9700\u6cd5\u5219\u548c\u8bb8\u591a\u5efa\u8bae\u7684\u8fd0\u7528\u3002<\/p>\n
\u4e0e\u8bb8\u591a\u5176\u5b83\u7684 Ada \u7a0b\u5e8f\u8bbe\u8ba1\u6807\u51c6\u4e0d\u540c\u7684\u662f\uff1a\u4e8b\u5b9e\u4e0a\uff0c\u8fd9\u4e9b\u6307\u5bfc\u65b9\u9488\u4e2d\u53ca\u5c11\u6709\u5b8c\u5168\u7981\u7528\u7684\u3002\u597d\u7684\u8f6f\u4ef6\u7684\u5173\u952e\u5728\u4e8e\uff1a<\/p>\n
\n- \u4e86\u89e3\u6bcf\u79cd\u7279\u6027\uff0c\u4e86\u89e3\u5b83\u7684\u5c40\u9650\u548c\u53ef\u80fd\u7684\u5371\u9669<\/li>\n
- \u51c6\u786e\u4e86\u89e3\u8fd9\u79cd\u7279\u6027\u5728\u4f55\u79cd\u573a\u5408\u53ef\u4ee5\u5b89\u5168\u4f7f\u7528<\/li>\n
- \u8ba9\u4f7f\u7528\u8be5\u7279\u6027\u7684\u51b3\u7b56\u9ad8\u5ea6\u53ef\u89c1<\/li>\n
- \u5341\u5206\u5c0f\u5fc3\u8c28\u614e\u5730\u5728\u9002\u5f53\u5904\u4f7f\u7528\u8be5\u7279\u6027\u3002<\/li>\n<\/ul>\n
<\/a>\u6700\u6839\u672c\u7684\u539f\u5219<\/h2>\n\u4f7f\u7528\u5e38\u8bc6\u3002<\/p>\n
\u5f53\u65e0\u6cd5\u627e\u5230\u53ef\u7528\u7684\u89c4\u5219\u6216\u6307\u5357\uff0c\u5f53\u89c4\u5219\u660e\u663e\u4e0d\u9002\u7528\uff0c\u5f53\u5176\u5b83\u4e00\u5207\u90fd\u5931\u8d25\u65f6\uff1a\u4f7f\u7528\u5e38\u8bc6\uff0c\u5e76\u6838\u67e5\u57fa\u672c\u539f\u5219\u3002\u8fd9\u6761\u6cd5\u5219\u51cc\u9a7e\u4e8e\u5176\u5b83\u6240\u6709\u6cd5\u5219\u4e4b\u4e0a\u3002\u5e38\u8bc6\u662f\u5fc5\u4e0d\u53ef\u5c11\u7684<\/em>\u3002<\/p>\n
\n<\/a>\u7b2c\u4e09\u7ae0<\/em><\/h2>\n\u4ee3\u7801\u5e03\u5c40<\/h1>\n\u6982\u8ff0<\/h2>\n
\u4e00\u4e2a\u7a0b\u5e8f\u5355\u5143\u7684\u5e03\u5c40\u5b8c\u5168\u5728\u201cRational \u73af\u5883\u683c\u5f0f\u5668\u201d (Rational Environment Formatter) \u7684\u63a7\u5236\u4e4b\u4e0b\uff0c\u9664\u4e86\u5728\u6ce8\u91ca\u548c\u7a7a\u767d\u5904\u5185\uff0c\u7a0b\u5e8f\u5458\u4e0d\u5fc5\u8fc7\u591a\u62c5\u5fc3\u7a0b\u5e8f\u7684\u5e03\u5c40\u3002\u8fd9\u4e2a\u5de5\u5177\u6240\u91c7\u7528\u7684\u683c\u5f0f\u7ea6\u5b9a\u5728 Reference Manual for the Ada Programming Language \u7684 Appendix E \u4e2d\u8868\u8ff0 [ISO87]<\/a>\u3002 \u7279\u522b\u662f\uff0c\u4ed6\u4eec\u5efa\u8bae\u7ed3\u6784\u5316\u6784\u9020\u7684\u5f00\u59cb\u548c\u7ed3\u675f\u5904\u7684\u5173\u952e\u5b57\u5e94\u5782\u76f4\u5bf9\u9f50\u3002\u4e00\u4e2a\u6784\u9020\u7684\u6807\u8bc6\u7b26\u4e5f\u5e94\u7cfb\u7edf\u6027\u5730\u5728\u6784\u9020\u7684\u672b\u5c3e\u91cd\u590d\u3002<\/p>\n\u683c\u5f0f\u5668\u7684\u786e\u5207\u884c\u4e3a\u7531\u4e00\u7cfb\u5217\u7684\u5e93\u5f00\u5173<\/em>\u5728\u4e00\u4e2a\u901a\u7528\u6a21\u578b\u4e16\u754c (model world) \u57fa\u7840\u4e0a\u63a7\u5236\uff0c\u8fd9\u4e9b\u5e93\u5f00\u5173\u5728\u6574\u4e2a\u9879\u76ee\u8fc7\u7a0b\u4e2d\u63a5\u6536\u4e00\u5957\u7edf\u4e00\u7684\u503c\u3002\u76f8\u5173\u7684\u5f00\u5173\u4ee5\u53ca\u5b83\u4eec\u5728\u6211\u4eec\u6240\u5efa\u8bae\u7684\u6a21\u578b\u4e16\u754c<\/em>\u4e2d\u7684\u901a\u7528\u503c\u5217\u8868\u5982\u4e0b\u3002<\/p>\n<\/a>\u5b57\u6bcd\u5927\u5c0f\u5199<\/h2>\nFormat .Id_Case : Letter_Case := Capitalized<\/h3>\n
\u8be6\u7ec6\u8bf4\u660e Ada \u5355\u5143\u4e2d\u6807\u8bc6\u7b26\u7684\u5b57\u6bcd\u5927\u5c0f\u5199\uff1a\u6700\u5f00\u59cb\u7684\u5b57\u6bcd\u4ee5\u53ca\u6bcf\u4e2a\u4e0b\u5212\u7ebf\u4e4b\u540e\u7684\u7b2c\u4e00\u4e2a\u5b57\u6bcd\u7528\u5927\u5199\u3002\u5927\u5199\u662f\u8bfb\u8005\u6700\u6613\u8bfb\u7684\u5f62\u5f0f\uff0c\u5177\u6709\u4f17\u591a\u73b0\u4ee3\u5c4f\u5e55\u548c\u6fc0\u5149\u6253\u5370\u673a\u5b57\u4f53\u3002<\/p>\n
Format .Keyword_Case : Letter_Case := Lower<\/h3>\n
\u8bf4\u660e Ada \u5173\u952e\u5b57\u7684\u5927\u5c0f\u5199\u3002\u8fd9\u5c06\u5b83\u4eec\u4e0e\u6807\u8bc6\u7b26\u7565\u5fae\u533a\u5206\u5f00\u6765\u3002<\/p>\n
Format .Number_Case : Letter_Case := Upper<\/h3>\n
\u8bf4\u660e\u6d6e\u70b9\u76f4\u63a5\u91cf\u4e2d\u5b57\u6bcd\u201cE\u201d\u548c\u57fa\u672c\u76f4\u63a5\u91cf\u4e2d\u57fa\u672c\u6570\u5b57\uff08\u201cA\u201d \u5230 \u201cF\u201d\uff09\u7684\u5927\u5c0f\u5199\u3002<\/p>\n
<\/a>\u7f29\u8fdb<\/h2>\n\u4e00\u4e2a Ada \u5355\u5143\u6309\u7167 Ada Reference Manual \u4e2d Appendix E \u6240\u8bf4\u7684\u4e00\u822c\u7ea6\u5b9a\u6765\u7f16\u6392\u683c\u5f0f [ISO87]<\/a>\u3002\u8fd9\u5c31\u662f\u8bf4\uff0c\u4e00\u4e2a\u7ed3\u6784\u5316\u6784\u9020\u7684\u5f00\u59cb\u548c\u7ed3\u675f\u5904\u7684\u5173\u952e\u5b57\u5e94\u8be5\u5bf9\u9f50\u3002 \u4f8b\u5982\uff0c\u201cloop\u201d\u548c\u201cend loop\u201d\uff0c\u201crecord\u201d\u548c\u201cend record\u201d\u3002\u5728\u7ed3\u6784\u5316\u6784\u9020\u5185<\/em>\u7684\u5355\u5143\u5e94\u5411\u53f3\u7f29\u8fdb<\/em>\u3002<\/p>\nFormat .Major_Indentation : Indent_Range := 3<\/h3>\n
\u8bf4\u660e\u683c\u5f0f\u5668\u4ee4\u5982\u201cif\u201d\u8bed\u53e5\u3001\u201ccase\u201d\u8bed\u53e5\u548c\u201cloop\u201d\u8bed\u53e5\u8fd9\u6837\u7684\u7ed3\u6784\u5316\uff08\u4e3b\u8981\u7684\uff09\u6784\u9020\u7f29\u8fdb\u7684\u5217\u6570\u3002<\/p>\n
Format .Minor_Indentation : Indent_Range := 2<\/h3>\n
\u8bf4\u660e\u683c\u5f0f\u5668\u4f7f\u6b21\u8981\u6784\u9020\u7f29\u8fdb\u7684\u5217\u6570\uff1a \u8bb0\u5f55\u7684\u58f0\u660e\u3001\u53d8\u4f53\u8bb0\u5f55\u7684\u58f0\u660e\u3001\u7c7b\u578b\u7684\u58f0\u660e\u3001\u5f02\u5e38\u5904\u7406\u3001\u9009\u62e9\u8bed\u53e5\u3001case \u8bed\u53e5\u3001\u547d\u540d\u548c\u6807\u5fd7\u8bed\u53e5\u3002<\/p>\n
<\/a>\u884c\u7684\u957f\u5ea6\u548c\u884c\u7684\u5206\u9694<\/h2>\nFormat .Line_Length : Line_Range := 80<\/h3>\n
\u8bf4\u660e\u6362\u884c\u524d\u683c\u5f0f\u5668\u663e\u793a Ada \u5355\u5143\u4e2d\u7684\u884c\u6240\u91c7\u7528\u7684\u5217\u6570\u3002\u8fd9\u4f7f\u5f97\u683c\u5f0f\u5316\u7684\u5355\u5143\u53ef\u7528\u4f20\u7edf\u7684 VT100 \u7c7b\u7ec8\u7aef\u663e\u793a\u3002<\/p>\n
Format .Statement_Indentation : Indent_Range := 3<\/h3>\n
\u8bf4\u660e\u5f53\u4e00\u6761\u8bed\u53e5\u957f\u4e8e Line_Length\uff0c\u5fc5\u987b\u8981\u65ad\u5f00\u65f6\uff0c\u683c\u5f0f\u5668\u5e94\u4f7f\u7b2c\u4e8c\u884c\u548c\u540e\u7eed\u884c\u7f29\u8fdb\u591a\u5c11\u5217\u3002\u53ea\u6709\u5f53\u4e0d\u5b58\u5728\u8bcd\u6cd5\u6784\u9020\u53ef\u8ba9\u7f29\u8fdb\u7684\u4ee3\u7801\u5bf9\u9f50\u65f6\uff0c\u683c\u5f0f\u5668\u624d\u4ee4\u4ee3\u7801\u7f29\u8fdb Statement_Indentation \u4e2a\u5217\u3002<\/p>\n
Format .Statement_Length : Line_Range := 35<\/h3>\n
\u8bf4\u660e\u5f53\u663e\u793a\u4e00\u4e2a\u8bed\u53e5\u65f6\uff0c\u6bcf\u884c\u6240\u4fdd\u7559\u7684\u5217\u6570\u3002 \u5982\u679c\u5f53\u524d\u7f29\u8fdb\u7a0b\u5ea6\u6240\u5141\u8bb8\u7684\u4e00\u884c\u4e2d\u7684\u5217\u6570\u5c0f\u4e8e Statement_Length\uff0c\u90a3\u4e48\u683c\u5f0f\u5668\u5c06 Wrap_Indentation \u4f5c\u4e3a\u65b0\u7684\u7f29\u8fdb\u7a0b\u5ea6\u3002\u6b64\u6cd5\u53ef\u9632\u6b62\u5d4c\u5957\u592a\u6df1\u7684\u8bed\u53e5\u663e\u793a\u65f6\u8d85\u51fa\u53f3\u8fb9\u754c\u3002<\/p>\n
Format .Wrap_Indentation : Line_Range := 16<\/h3>\n
\u8bf4\u660e\u5f53\u524d\u7684\u7f29\u8fdb\u7a0b\u5ea6\u4e0d\u4e0d\u8db3 Statement_Length \u65f6\uff0c\u683c\u5f0f\u5668\u5728\u4e0b\u4e00\u884c\u5f00\u5934\u5904\u5e94\u7f29\u8fdb\u7684\u5217\u6570\u3002\u6b64\u6cd5\u53ef\u9632\u6b62\u5d4c\u5957\u592a\u6df1\u7684\u8bed\u53e5\u663e\u793a\u65f6\u8d85\u51fa\u53f3\u8fb9\u754c\u3002<\/p>\n
<\/a>\u5bf9\u9f50<\/h2>\nFormat .Consistent_Breaking : Integer := 1<\/h3>\n
\u63a7\u5236\u5f62\u5982 (xxx:aaa; yyy:bbb) \u7684\u5217\u8868\u683c\u5f0f\uff0c\u8be5\u5217\u8868\u51fa\u73b0\u5728\u5b50\u7a0b\u5e8f\u7684\u5f62\u53c2\u8bf4\u660e\u5904\u548c\u7c7b\u578b\u58f0\u660e\u4e2d\u7684\u5224\u522b\u5f0f\u5904\u3002\u5b83\u4e5f\u63a7\u5236\u5f62\u5982 (xxx=>aaa, yyy=>bbb) \u7684\u5217\u8868\u7684\u683c\u5f0f\uff0c\u8be5\u5217\u8868\u51fa\u73b0\u5728\u5b50\u7a0b\u5e8f\u8c03\u7528\u548c\u805a\u96c6\u5904\u3002\u56e0\u4e3a\u8be5\u9009\u9879\u975e\u96f6\uff08\u771f\uff09\uff0c\u6240\u4ee5\u5f53\u4e00\u4e2a\u5217\u8868\u65e0\u6cd5\u5728\u4e00\u884c\u4e2d\u88c5\u4e0b\u65f6\uff0c\u5217\u8868\u4e2d\u7684\u6bcf\u4e00\u4e2a\u5143\u7d20\u90fd\u5360\u7528\u65b0\u7684\u4e00\u884c\u3002<\/p>\n
Format .Alignment_Threshold : Line_Range := 20<\/h3>\n
\u8bf4\u660e\u4e3a\u4f7f\u8fde\u7eed\u8bed\u53e5\u4e2d\u7684\u8bcd\u6cd5\u6784\u9020\u5bf9\u9f50\uff08\u5982\u547d\u540d\u7b26\u53f7\u4e2d\u7684\u5192\u53f7\u3001\u8d4b\u503c\u53f7\u548c\u7bad\u5934\uff09\uff0c\u683c\u5f0f\u5668\u53ef\u63d2\u5165\u7684\u7a7a\u683c\u6570\u3002\u5982\u679c\u5bf9\u9f50\u4e00\u4e2a\u6784\u9020\u6240\u9700\u7684\u7a7a\u683c\u6570\u591a\u4e8e\u8fd9\u4e2a\u6570\uff0c\u90a3\u4e48\u6784\u9020\u4e0d\u88ab\u5bf9\u9f50\u3002<\/p>\n
\u8981\u6ce8\u610f\u7684\u662f\uff0c\u4e3a\u4e86\u5f62\u6210\u67d0\u79cd\u5e03\u5c40\uff0c\u7a0b\u5e8f\u5458\u53ef\u4ee5\u63d2\u5165\u4e00\u4e2a\u884c\u7ed3\u675f\u7b26\u6216\u8005\u901a\u8fc7\u8f93\u5165 <space> <space> <carriage-return> \u6765\u6572\u5165\u4e00\u4e2a\u4e0d\u4f1a\u88ab\u683c\u5f0f\u5668\u5220\u6389\u7684\u884c\u4e2d\u65ad\u3002<\/p>\n
\u5f53 \u5217\u8868\u4e2d\u7684\u5143\u7d20\u8d85\u8fc7 3 \u4e2a\u5e76\u4e14\u5728\u4e00\u884c\u4e2d\u88c5\u4e0d\u4e0b\u8fd9\u4e9b\u5143\u7d20\u65f6\uff0c\u91c7\u7528\u4e0a\u8ff0\u6280\u5de7\u3002Ada \u5143\u7d20\u5217\u8868\u5e94\u5206\u9694\u4e3a\u4e00\u884c\u4ec5\u6709\u4e00\u4e2a\u5143\u7d20\uff0c\u4ee5\u63d0\u9ad8\u4ee3\u7801\u7684\u6613\u8bfb\u6027\u548c\u53ef\u7ef4\u62a4\u6027\u3002\u8fd9\u4e00\u6761\u5c24\u5176\u9002\u7528\u4e8e\u4ee5\u4e0b Ada \u6784\u9020\uff08\u8c61 Ada Reference Manual \u7684 Appendix E \u4e2d\u6240\u5b9a\u4e49\u7684\u90a3\u6837 [ISO87]<\/a>\uff09\uff1a<\/p>\n\u5b9e\u53c2\u5173\u8054\u5173\u7cfb<\/p>\n
pragma Suppress (Range_Check,\r\nOn => This_Type,\r\nOn => That_Type, On => That_Other_Type);<\/pre>\n\u6807\u8bc6\u7b26\u5217\u8868\uff0c\u7ec4\u4ef6\u5217\u8868<\/p>\n
Next_Position,\r\nPrevious_Position,\r\nCurrent_Position : Position;\r\ntype Some_Record is \r\nrecord\r\nA_Component,\r\nB_Component,\r\nC_Component : Component_Type;\r\nend record;<\/pre>\n\u679a\u4e3e\u7c7b\u578b\u5b9a\u4e49<\/p>\n
type Navaid is \r\n(Vor, \r\nVor_Dme, \r\nDme, \r\nTacan, \r\nVor_Tac, \r\nNDB);<\/pre>\n\u5224\u522b\u5f0f\u7ea6\u675f<\/p>\n
subtype Constrained is Element \r\n(Name_Length => Name'Length,\r\nValid => True,\r\nOperation => Skip);<\/pre>\n\u8bed\u53e5\u7684\u987a\u5e8f\uff08\u7531\u683c\u5f0f\u5668\u5904\u7406\uff09<\/p>\n
\u5f62\u5f0f\u90e8\u5206\u3001\u7c7b\u5c5e\u5f62\u5f0f\u90e8\u5206\u3001\u5b9e\u53c2\u90e8\u5206\u3001\u7c7b\u5c5e\u5b9e\u53c2\u90e8\u5206<\/p>\n
procedure Just_Do_It (This : in Some_Type;\r\nFor_That : in Some Other_Type;\r\nStatus : out Status_Type);\r\nJust_Do_It (This => This_Value;\r\nFor_That => That_Value;\r\nStatus => The_Status);<\/pre>\n
\n<\/a>\u7b2c\u56db\u7ae0<\/em><\/h2>\n\u6ce8\u91ca<\/h1>\n\u6982\u8ff0<\/h2>\n
\u4e0e\u5e7f\u6cdb\u63a5\u53d7\u7684\u89c2\u70b9\u76f8\u53cd\u7684\u662f\uff0c\u597d\u7684\u7a0b\u5e8f\u7684\u7279\u70b9\u5e76\u975e\u662f\u6ce8\u91ca\u7684\u6570\u91cf<\/em>\uff0c\u800c\u662f\u6ce8\u91ca\u7684\u8d28\u91cf<\/em>\u3002<\/p>\n\u6ce8\u91ca\u5e94\u5f53\u4f5c\u4e3a Ada \u4ee3\u7801\u7684\u8865\u5145<\/em>\uff0c\u800c\u4e0d\u662f\u89e3\u91ca\uff1aAda \u672c\u8eab\u662f\u4e00\u79cd\u975e\u5e38\u6613\u8bfb\u7684\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00\uff0c\u5c24\u5176\u662f\u5f53\u88ab\u597d\u7684\u547d\u540d\u7ea6\u5b9a\u652f\u6301\u65f6\u3002\u6ce8\u91ca\u5e94\u5f53\u89e3\u91ca\u90a3\u4e9b\u4e0d\u80fd\u76f4\u63a5\u4ece Ada \u4ee3\u7801\u4e2d\u770b\u51fa\u7684\u5185\u5bb9\uff1b\u5b83\u4eec\u4e0d\u5e94\u590d\u5236 Ada \u7684\u8bed\u6cd5\u6216\u8bed\u4e49\u3002\u6ce8\u91ca\u5e94\u5f53\u5e2e\u52a9\u8bfb\u8005\u638c\u63e1\u80cc\u666f\u6982\u5ff5\u548c\u4f9d\u8d56\u6761\u4ef6\uff0c\u7279\u522b\u662f\u590d\u6742\u7684\u6570\u636e\u7f16\u7801\u548c\u7b97\u6cd5\u3002\u6ce8\u91ca\u5e94\u5f53\u7a81\u51fa\u4e0e\u7f16\u7801\u6216\u8bbe\u8ba1\u6807\u51c6\u7684\u4e0d\u540c\u70b9\u3001\u53d7\u9650\u7279\u6027\u7684\u4f7f\u7528\u4ee5\u53ca\u7279\u6b8a\u7684 \u201c\u6280\u5de7\u201d\u3002\u5728\u6bcf\u4e2a\u4e3b\u8981\u7684 Ada \u6784\u9020\uff08\u5982\u5b50\u7a0b\u5e8f\u548c\u7a0b\u5e8f\u5305\uff09\u4e2d\uff0c\u7cfb\u7edf\u5730\u51fa\u73b0\u7684\u6ce8\u91ca\u6846\u6216\u8868\u5355\u5177\u6709\u4e00\u81f4\u6027\u548c\u63d0\u9192\u7a0b\u5e8f\u5458\u8bf4\u660e\u4ee3\u7801\u7684\u4f18\u70b9\uff0c\u4f46\u5b83\u4eec\u4e5f\u5e38\u5e38\u5e26\u6765\u91ca\u4e49\u4ee3\u7801\u7684\u98ce\u683c\u3002\u5bf9\u6bcf\u4e00\u884c\u6ce8\u91ca\uff0c\u7a0b\u5e8f\u5458\u90fd \u5e94\u80fd\u591f\u5f88\u597d\u5730\u56de\u7b54\uff1a\u201c\u52a0\u5165\u8fd9\u4e2a\u6ce8\u91ca\u6709\u4f55\u4ef7\u503c\uff1f\u201d<\/p>\n\u4e00\u4e2a\u8bef\u5bfc\u6216\u8005\u9519\u8bef\u7684\u6ce8\u91ca\u6bd4\u5b8c\u5168\u4e0d\u6ce8\u91ca\u8fd8\u7cdf\u3002\u7f16\u8bd1\u5668\u4e0d\u68c0\u67e5\u6ce8\u91ca\uff08\u9664\u975e\u5b83\u4eec\u8c61\u201cRational \u8bbe\u8ba1\u5de5\u5177\u201d\u90a3\u6837\u53c2\u4e0e\u4e86\u6b63\u5f0f\u7684 Ada \u8bbe\u8ba1\u8bed\u8a00 (ADL) \u6216\u8005\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00 (PDL)\uff09\u3002\u56e0\u6b64\uff0c\u6839\u636e\u5355\u70b9\u7ef4\u62a4\u539f\u5219\uff0c\u8bbe\u8ba1\u51b3\u5b9a\u5e94\u5728 Ada \u800c\u4e0d\u662f\u6ce8\u91ca\u4e2d\u8868\u8ff0\uff0c\u5373\u4f7f\u8fd9\u6837\u505a\u9700\u8981\u591a\u51e0\u4e2a\u58f0\u660e\u3002<\/p>\n
\u4f5c\u4e3a\u4e00\u4e2a\uff08\u5e76\u975e\u5f88\u597d\u7684\uff09\u4f8b\u5b50\u8003\u8651\u5982\u4e0b\u7684\u58f0\u660e\uff1a<\/p>\n
------------------------------------------------------------\r\n-- procedure Create\r\n------------------------------------------------------------\r\n--\r\nprocedure Create\r\n(The_Subscriber: in out Subscriber.Handle;\r\nWith_Name : in out Subscriber.Name);\r\n--\r\n-- Purpose: This procedure creates a subscriber with a given\r\n-- name.\r\n--\r\n-- Parameters: \r\n- The_Subscriber :mode in out, type Subscriber.Handle\r\n- It is the handle to the created subscriber\r\n- With_Name :mode in, type Subscriber.Name\r\n- The name of the subscriber to be created.\r\n- The syntax of the name is\r\n-- <letter> { <letter> | <digit> }\r\n-- Exceptions:\r\n-- Subscriber.Collection_Overflow when there is no more\r\n-- space to create a new subscriber\r\n-- Subscriber.Invalid_Name when the name is blank or\r\n-- malformed\r\n--\r\n-------------------------------------------- end Create ----<\/pre>\n\u4f8b\u5b50\u4e2d\u6709\u51e0\u70b9\u8981\u6307\u51fa\u6765\u3002<\/p>\n
\n- \u6709\u8bb8\u591a\u5197\u4f59\uff1a<\/li>\n<\/ul>\n
\n- – \u8fc7\u7a0b\u521b\u5efa (Procedure Create)\uff1a\u5982\u679c\u8981\u6539\u540d\uff0c\u6709\u51e0\u5904\u5730\u65b9\u9700\u8981\u4fee\u6539\uff1b\u7ecf\u5e38\u6027\u5730\u4fee\u6539\u6ce8\u91ca\uff0c\u7f16\u8bd1\u5668\u4e0d\u4f1a\u6267\u884c\u3002<\/dd>\n
- – \u6ce8\u91ca\u4e2d\u65e0\u9700\u91cd\u590d\u8bf4\u660e\u53c2\u6570\u540d\u3001\u6a21\u5f0f\u548c\u7c7b\u578b\u3002<\/dd>\n
- – \u8fd9\u91cc\u7ed9\u6bcf\u4e2a Ada \u5b9e\u4f53\u6240\u53d6\u7684\u540d\u5b57\u5f88\u597d\uff0c\u8fd9\u4f7f\u5f97\u529f\u80fd\u548c\u53c2\u6570\u89e3\u91ca\u53d8\u5f97\u591a\u4f59\u3002\u6ce8\u610f\uff0c\u8fd9\u4e00\u70b9\u53ea\u662f\u5bf9\u4e8e\u5982\u4e0a\u4f8b\u8fd9\u6837\u7684\u7b80\u5355\u7684\u5b50\u7a0b\u5e8f\u6765\u8bf4\u624d\u662f\u6b63\u786e\u7684\u3002\u5bf9\u4e8e\u66f4\u590d\u6742\u7684\u5b50\u7a0b\u5e8f\uff0c\u4ecd\u9700\u8981\u529f\u80fd\u548c\u53c2\u6570\u89e3\u91ca\u3002<\/dd>\n<\/dl>\n
\n- \u6846\u67b6\u52a0\u5165\u4e86\u592a\u591a\u7684\u5e72\u6270\uff0c\u9690\u85cf\u4e86\u5173\u952e\u9879\uff1a\u8fc7\u7a0b\u58f0\u660e\u3002\u53e6\u5916\uff0c\u53f3\u7aef\u7684\u5782\u76f4\u8fb9\u5f00\u59cb\u65f6\u770b\u4e0a\u53bb\u8fd8\u5f88\u6f02\u4eae\uff0c\u4f46\u5374\u4f7f\u4fee\u6539\u53d8\u5f97\u6781\u4e3a\u75db\u82e6\uff0c\u901a\u5e38\u51e0\u5e74\u7684\u7ef4\u62a4\u4e0b\u6765\uff0c\u4ee3\u7801\u6700\u540e\u5b8c\u5168\u4e0d\u5bf9\u9f50\u5e76\u4e14\u5343\u75ae\u767e\u5b54\u3002<\/li>\n
- \u76f8\u53cd\u7684\u662f\uff0c\u8fd9\u91cc\u5e94\u8bf4\u660e\u4ea7\u751f\u4e86\u4f55\u79cd\u5f02\u5e38\uff0c\u56e0\u4e3a\u82e5\u53ea\u8bfb\u89c4\u683c\u8bf4\u660e\uff0c\u8fd9\u4e00\u70b9\u5e76\u4e0d\u660e\u663e\u3002\u4f46\u6bcf\u4e2a\u5f02\u5e38\u7684\u51c6\u786e\u542b\u4e49\u5e94\u653e\u5728\u81ea\u8eab\u7684\u5f02\u5e38\u58f0\u660e\u5904\u3002<\/li>\n
- \u5e94\u8bf4\u660e\u53c2\u6570\u7684\u524d\u7f6e\u548c\u540e\u7f6e\u6761\u4ef6\uff0c\u5c24\u5176\u662f\u53c2\u6570\u95f4\u7684\u5173\u7cfb\u3002\u8fd9\u4e9b\u4e0d\u5e94\u4e0e\u5176\u5b83\u5730\u65b9\u53ef\u4ee5\u627e\u5230\u7684\u4fe1\u606f\u91cd\u590d\uff0c\u5982\u6709\u6548\u540d\u7684\u8bed\u6cd5\uff0c\u5b83\u53ea\u5e94\u5728\u4e00\u5904\u8bf4\u660e\u3002<\/li>\n<\/ul>\n
\u5728\u8fd9\u4e2a\u4f8b\u5b50\u4e2d\uff0c\u6700\u597d\u91c7\u7528\u5982\u4e0b\u66f4\u7b80\u6d01\u3001\u66f4\u6709\u7528\u7684\u65b9\u5f0f\uff1a<\/p>\n
procedure Create (The_Subscriber : in out Subscriber.Handle;\r\nWith_Name : in Subscriber.Name);--\r\n-Raises Subscriber.Collection_Overflow.\r\n-Raises Subscriber.Invalid_Name when the name is \r\nblank or malformed (see syntax description \r\nattached to declaration of type Subscriber.Name).<\/pre>\n<\/a>\u6ce8\u91ca\u7528\u6cd5\u6307\u5357<\/h2>\n\u6ce8\u91ca\u5e94\u653e\u5728\u76f8\u5173\u4ee3\u7801\u7684\u65c1\u8fb9\uff0c\u7f29\u8fdb\u540c\u6837\u7684\u5927\u5c0f\uff0c\u7d27\u9760\u7740\u4ee3\u7801 – \u5373\u7528\u7a7a\u7684\u6ce8\u91ca\u884c\u5728\u89c6\u89c9\u4e0a\u5c06\u6ce8\u91ca\u5757\u4e0e Ada \u6784\u9020\u6346\u5728\u4e00\u8d77\uff1a<\/p>\n
procedure First_One;\r\n--\r\n-- This comment relates to First_One.\r\n-- But this comment is for Second_One.\r\n-- \r\nprocedure Second_One (Times : Natural);<\/pre>\n\u7528\u7a7a\u884c\u5206\u9694\u76f8\u5173\u7684\u6e90\u7801\u5757\uff08\u6ce8\u91ca\u548c\u4ee3\u7801\uff09\uff0c\u800c\u4e0d\u7528\u7c97\u91cd\u7684\u6ce8\u91ca\u884c\uff0c\u5982\uff1a<\/p>\n
-------------------------------------------------------------<\/pre>\n\u6216\u8005\uff1a<\/p>\n
--===========================================================<\/pre>\n\u5728\u4e00\u4e2a\u6ce8\u91ca\u5757\u4e2d\uff0c\u4f7f\u7528\u7a7a\u6ce8\u91ca\u884c\u800c\u975e\u7a7a\u884c\u6765\u5206\u5272\u6ce8\u91ca\u6bb5<\/p>\n
-- Some explanation here that needs to be continued in a\r\n-- subsequent paragraph.\r\n--\r\n-- The empty comment line above makes it clear that we \r\n-- are dealing with a single comment block.<\/pre>\n\u867d\u7136\u6ce8\u91ca\u53ef\u4ee5\u653e\u5728\u76f8\u5173 Ada \u6784\u9020\u7684\u4e0a\u65b9\u6216\u4e0b\u65b9\uff0c\u4f46\u662f\u8981\u5c06\u4e00\u8282\u7684\u6807\u9898\u6216\u8005\u4e00\u4e2a\u8bf4\u660e\u51e0\u4e2a Ada \u6784\u9020\u7684\u4e3b\u8981\u4fe1\u606f\u653e\u5728\u6784\u9020\u7684\u4e0a\u65b9<\/em>\u3002\u5c06\u8bc4\u8ff0\u6216\u9644\u52a0\u4fe1\u606f\u7b49\u8fd9\u4e00\u7c7b\u7684\u6ce8\u91ca\u653e\u5728\u76f8\u5173 Ada \u6784\u9020\u7684\u4e0b\u65b9<\/em>\u3002<\/p>\n\u7528\u4e00\u9875\u7684\u6574\u884c\u5bbd\u5728 Ada \u6784\u9020\u7684\u5f00\u5934\u5904\u5206\u7ec4\u3002\u907f\u514d\u5c06\u6ce8\u91ca\u653e\u5728 Ada \u6784\u9020\u7684\u540c\u4e00\u884c\u3002\u8fd9\u4e9b\u6ce8\u91ca\u5e38\u5e38\u53d8\u5f97\u4e0d\u5bf9\u9f50\u3002\u4f46\u662f\u5728\u8bf4\u660e\u4e00\u4e2a\u957f\u7684\u58f0\u660e\u65f6\uff0c\u5982\u679a\u4e3e\u7c7b\u578b\u76f4\u63a5\u91cf\uff0c\u8fd9\u6837\u7684\u6ce8\u91ca\u65b9\u5f0f\u662f\u53ef\u4ee5\u5bb9\u8bb8\u7684\u3002<\/p>\n
\u7528\u4e00\u4e2a\u5c0f\u7684\u5206\u5c42\u6b21\u7684\u6807\u51c6\u6ce8\u91ca\u5757\u6765\u8bf4\u660e\u5c0f\u8282\u7684\u6807\u9898\uff0c\u4f46\u8fd9\u4ec5\u4ec5\u9002\u7528\u4e8e\u5f88\u5927\u7684 Ada \u5355\u5143\uff08>200 \u884c\u7684\u58f0\u660e\u6216\u8005\u8bed\u53e5\uff09\uff1a<\/p>\n
--===========================================================\r\n--\r\n \u4e3b\u6807\u9898\r\n--\r\n--===========================================================\r\n\r\n-------------------------------------------------------------\r\n \u526f\u6807\u9898\r\n-------------------------------------------------------------\r\n\r\n --------------------\r\n \u5b50\u90e8\u5206\u7684\u5934\r\n --------------------<\/pre>\n\u5728\u8fd9\u79cd\u6807\u9898\u524d\u9762\u6240\u653e\u7684\u7a7a\u884c\u6570\u8981\u591a\u4e8e\u540e\u9762\u7684\u7a7a\u884c\u6570\uff0c\u4f8b\u5982\uff0c\u4e24\u884c\u5728\u524d\u4e00\u884c\u5728\u540e\u3002\u8fd9\u6837\u4f7f\u6807\u9898\u4e0e\u968f\u540e\u7684\u6b63\u6587\u5728\u89c6\u89c9\u4e0a\u76f8\u8054\u7cfb\u3002<\/p>\n
\u907f \u514d\u4f7f\u7528\u542b\u6709\u4fe1\u606f\u7684\u51fd\u6570\u5934\uff0c\u6bd4\u5982\u4f5c\u8005\u3001\u7535\u8bdd\u3001\u521b\u5efa\u548c\u4fee\u6539\u65e5\u671f\u3001\u5355\u5143\uff08\u6216\u6587\u4ef6\u540d\uff09\u7684\u4f4d\u7f6e\uff0c\u56e0\u4e3a\u8fd9\u4e9b\u4fe1\u606f\u5f88\u5feb\u5c31\u4f1a\u8fc7\u65f6\u3002\u5c06\u6240\u6709\u8005\u7248\u6743\u4fe1\u606f\u653e\u5728\u5355\u5143\u7684\u672b\u5c3e\uff0c\u5c24\u5176\u662f \u4f7f\u7528\u201cRational \u73af\u5883\u201d\u65f6\u3002\u5f53\u8bbf\u95ee\u4e00\u4e2a\u7a0b\u5e8f\u5305\u7684\u89c4\u683c\u8bf4\u660e\u6e90\u7801\u65f6 – \u4f8b\u5982\u5728\u201cRational \u73af\u5883\u201d\u4e2d\u6309 [Definition] – \u8bfb\u8005\u4e0d\u60f3\u6d4f\u89c8\u4e24\u9875\u6216\u8005\u4e09\u9875\u5bf9\u7406\u89e3\u7a0b\u5e8f\u65e0\u4efb\u4f55\u7528\u5904\u7684\u6587\u672c\u548c\/\u6216\u5b8c\u5168\u4e0d\u5e26\u6709\u4efb\u4f55\u7a0b\u5e8f\u4fe1\u606f\u7684\u6587\u672c\u3002\u907f\u514d\u4f7f\u7528\u5782\u76f4\u6eda\u52a8\u6761\u3001\u5c01\u95ed\u56fe\u6587\u6846\u6216\u65b9\u6846\uff0c\u8fd9\u4e9b\u4e1c\u897f\u53ea\u4f1a\u589e\u52a0\u89c6\u89c9 \u5e72\u6270\uff0c\u800c\u4e14\u96be\u4ee5\u4fdd\u6301\u4e00\u81f4\u6027\u3002\u7528 Rational CMVC \u9644\u6ce8\uff08\u6216\u8005\u5176\u5b83\u5f62\u5f0f\u7684\u8f6f\u4ef6\u5f00\u53d1\u6587\u4ef6\uff09\u6765\u4fdd\u5b58\u5355\u5143\u5386\u53f2\u3002<\/p>\n
\u4e0d\u8981\u91cd\u590d\u53ef\u4ee5\u5728\u5176\u5b83\u5730\u65b9\u627e\u5230\u7684\u4fe1\u606f\uff1b\u4ec5\u63d0\u4f9b\u4e00\u4e2a\u6307\u5411\u8be5\u4fe1\u606f\u7684\u6307\u9488\u5373\u53ef\u3002<\/p>\n
\u5c3d \u91cf\u91c7\u7528 Ada\uff0c\u800c\u975e\u6ce8\u91ca\u3002\u8981\u5b9e\u73b0\u8fd9\u4e00\u70b9\uff0c\u4f60\u53ef\u9009\u62e9\u66f4\u597d\u7684\u540d\u5b57\u3001\u9644\u52a0\u4e34\u65f6\u53d8\u91cf\u3001\u9650\u5b9a\u3001\u91cd\u547d\u540d\u3001\u5b50\u7c7b\u578b\u3001\u9759\u6001\u8868\u8fbe\u5f0f\u548c\u5c5e\u6027\uff0c\u8fd9\u4e9b\u90fd\u4e0d\u5f71\u54cd\u751f\u6210\u7684\u4ee3\u7801\uff08\u81f3\u5c11\u5728\u4e00\u4e2a\u597d\u7684 \u7f16\u8bd1\u5668\u4e2d\u4e0d\u5f71\u54cd\uff09\u3002\u4f60\u4e5f\u53ef\u4ee5\u91c7\u7528\u5c0f\u7684\u3001\u5d4c\u5165\u5f0f\u7684\u8c13\u8bcd\u51fd\u6570\uff0c\u5e76\u5c06\u4ee3\u7801\u5206\u6210\u51e0\u4e2a\u65e0\u53c2\u8fc7\u7a0b\uff0c\u8fd9\u4e9b\u8fc7\u7a0b\u7684\u540d\u5b57\u63d0\u4f9b\u4e86\u4ee3\u7801\u51e0\u4e2a\u79bb\u6563\u90e8\u5206\u7684\u6807\u9898\u3002<\/p>\n
\u793a\u4f8b\uff1a<\/p>\n
\u5c06\uff1a<\/p>\n
exit when Su.Locate (Ch, Str) \/= 0; \r\n-- Exit search loop when found it.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
Search_Loop : loop<\/p>\n
Found_It := Su.Locate (Ch, Str) \/= 0;<\/p>\n
exit Search_Loop when Found_It<\/p>\n
end Search_Loop;<\/p>\n
\u5c06\uff1a<\/p>\n
if Value < 'A' or else Value > 'Z' then\r\n-- If not in uppercase letters.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
subtype Uppercase_Letters is Character range 'A' ..'Z';\r\nif Value not in Uppercase_Letters then ...<\/pre>\n\u5c06\uff1a<\/p>\n
X := Green; -- This is the Green from \r\n-- Status, not from Color.\r\nraise Fatal_Error; -- From package Outer_Scope.\r\ndelay 384.0; -- Equal to 6 minutes and 24 \r\n-- seconds.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
The_Status := Green;<\/pre>\nor:<\/p>\n
X := Status'(Green);\r\nraise Outer_Scope.Fatal_Error;\r\ndelay 6.0 * Minute + 24.0 * Second;<\/pre>\n\u5c06\uff1a<\/p>\n
if Is_Valid (The_Table (Index).Descriptor(Rank).all) then\r\n-- This is the current value for the iteration; if it is \r\n-- valid we append to the list it contains.\r\nAppend (Item, To_List => The_Table (Index).Descriptor(Rank).Ptr);|<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
declare\r\nCurrent_Rank : Lists.List renames The_Table \r\n(Index).Descriptor (Rank);\r\nbegin\r\nif Is_Valid (Current_Rank.all) then\r\nAppend (Item, To_List => Current_Rank.Ptr);\r\nend if;\r\nend;<\/pre>\n\u6ce8\u610f\u6ce8\u91ca\u4e2d\u7684\u98ce\u683c\u3001\u8bed\u6cd5\u548c\u62fc\u5199\u3002\u4e0d\u8981\u4f7f\u7528\u8c61\u7535\u62a5\u5bc6\u7801\u4e00\u822c\u7684\u98ce\u683c\u3002\u4f7f\u7528\u62fc\u5199\u68c0\u67e5\u3002\uff08\u5728\u201cRational \u73af\u5883\u201d\u4e2d\u8c03\u7528 Speller.Check_Image\uff09\u3002<\/p>\n
\u4e0d\u8981\u4f7f\u7528\u65b9\u8a00\u5b57\u6bcd\u6216\u8005\u5176\u5b83\u975e\u82f1\u6587\u5b57\u7b26\u3002\u6839\u636e Ada Issue AI-339\uff0c\u975e\u82f1\u6587\u5b57\u7b26\u53ef\u88ab\u4e00\u4e9b\u5f00\u53d1\u7cfb\u7edf\u652f\u6301\uff0c\u4e00\u4e9b Ada \u7f16\u8bd1\u5668\u4ec5\u5728\u6ce8\u91ca\u4e2d\u652f\u6301\u3002\u4f46\u8fd9\u662f\u4e0d\u53ef\u79fb\u690d\u7684\uff0c\u5f88\u6709\u53ef\u80fd\u5728\u5176\u5b83\u7cfb\u7edf\u4e0a\u5931\u6548\u3002<\/p>\n
\u5bf9\u4e8e\u5b50\u7a0b\u5e8f\uff0c\u81f3\u5c11\u8bf4\u660e\uff1a<\/p>\n
\n- \u5b50\u7a0b\u5e8f\u7684\u7528\u9014\uff0c\u4f46\u8fd9\u53ea\u662f\u5f53\u4ece\u5b83\u7684\u540d\u5b57\u4e2d\u4e0d\u80fd\u660e\u786e\u4e86\u89e3\u5176\u7528\u9014\u65f6<\/li>\n
- \u5728\u4f55\u79cd\u6761\u4ef6\u4e0b\u751f\u6210\u4e86\u4f55\u79cd\u5f02\u5e38<\/li>\n
- \u5982\u679c\u6709\u7684\u8bdd\uff0c\u53c2\u6570\u7684\u524d\u7f6e\u6216\u540e\u7f6e\u6761\u4ef6<\/li>\n
- \u5176\u4ed6\u6570\u636e\u8bbf\u95ee\uff0c\u7279\u522b\u662f\u5f53\u6570\u636e\u88ab\u4fee\u6539\u65f6\uff1b\u8fd9\u5c24\u5176\u5305\u62ec\u6709\u526f\u4f5c\u7528\u7684\u51fd\u6570<\/li>\n
- \u6b63\u786e\u4f7f\u7528\u5b50\u7a0b\u5e8f\u6240\u9700\u7684\u4efb\u4f55\u9650\u5236\u6216\u9644\u52a0\u4fe1\u606f<\/li>\n<\/ul>\n
\u5bf9\u4e8e\u7c7b\u578b\u548c\u5bf9\u8c61\uff0c\u8981\u8bf4\u660e\u6240\u6709\u4e0d\u80fd\u901a\u8fc7 Ada \u8868\u8fbe\u7684\u4e0d\u53d8\u91cf\u6216\u9644\u52a0\u7ea6\u675f\u3002<\/p>\n
\u907f\u514d\u6ce8\u91ca\u4e2d\u7684\u91cd\u590d\u3002\u4f8b\u5982\uff0c\u6709\u5173\u7528\u9014\u7684\u90e8\u5206\u5e94\u662f\u201c\u5b83\u505a\u4ec0\u4e48\uff1f\u201d\u8fd9\u4e2a\u95ee\u9898\u7684\u7b80\u5355\u56de\u7b54\uff0c\u800c\u4e0d\u662f\u201c\u5b83\u600e\u4e48\u505a\uff1f\u201d\u7684\u56de\u7b54\u3002\u6982\u8ff0\u5e94\u662f\u8bbe\u8ba1\u7684\u7b80\u77ed\u8868\u8fbe\u3002\u8bf4\u660e\u4e2d\u4e0d\u5e94\u63cf\u8ff0\u6240\u7528\u7684\u7b97\u6cd5\uff0c\u800c\u5e94\u89e3\u91ca\u7a0b\u5e8f\u5305\u5e94\u5982\u4f55\u4f7f\u7528\u3002<\/p>\n
\u6570\u636e\u7ed3\u6784\u548c\u7b97\u6cd5\u90e8\u5206\u5e94\u542b\u6709\u8db3\u591f\u7684\u4fe1\u606f\u6765\u5e2e\u52a9\u7406\u89e3\u4e3b\u8981\u7684\u5b9e\u73b0\u7b56\u7565\uff08\u4ee5\u4fbf\u6b63\u786e\u4f7f\u7528\u7a0b\u5e8f\u5305\uff09\uff0c\u4f46\u65e0\u9700\u5305\u542b\u6240\u6709\u7684\u5b9e\u73b0\u7ec6\u8282\u6216\u4e0e\u6b63\u786e\u4f7f\u7528\u5305\u6beb\u4e0d\u76f8\u5173\u7684\u4fe1\u606f\u3002<\/p>\n
\n<\/a>\u7b2c\u4e94\u7ae0<\/em><\/h2>\n\u547d\u540d\u7ea6\u5b9a<\/h1>\n\u6982\u8ff0<\/h2>\n
\u7ed9 Ada \u5b9e\u4f53\uff08\u7a0b\u5e8f\u5355\u5143\u3001\u7c7b\u578b\u3001\u5b50\u7c7b\u578b\u3001\u5bf9\u8c61\u3001\u76f4\u63a5\u91cf\u3001\u5f02\u5e38\uff09\u6307\u5b9a\u597d\u540d\u5b57\u662f\u6240\u6709\u8f6f\u4ef6\u5e94\u7528\u7a0b\u5e8f\u8981\u8868\u8ff0\u7684\u6700\u7cbe\u5de7\u7684\u4e8b\u60c5\u4e4b\u4e00\u3002\u4e2d\u7b49\u89c4\u6a21\u5230\u5927\u89c4\u6a21\u7684\u5e94\u7528\u7a0b\u5e8f\u5b58\u5728\u7740\u53e6\u4e00\u4e2a\u95ee \u9898\uff1a\u540d\u5b57\u95f4\u7684\u51b2\u7a81\uff0c\u6216\u662f\u8981\u627e\u5230\u8db3\u591f\u7684\u540c\u4e49\u8bcd\u6765\u6307\u4ee3\u76f8\u540c\u73b0\u5b9e\u4e16\u754c\u4e2d\u76f8\u4f3c\u4f46\u53c8\u6709\u522b\u7684\u6982\u5ff5\uff08\u6216\u662f\u547d\u540d\u4e00\u4e2a\u7c7b\u578b\u3001\u5b50\u7c7b\u3001\u5bf9\u8c61\u3001\u53c2\u6570\uff09\u3002\u8fd9\u91cc\u53ef\u5229\u7528\u4e0d\u91c7\u7528\u201cuse\u201d \u5b50\u53e5\uff08\u6216\u53ea\u5728\u6781\u4e3a\u53d7\u9650\u7684\u6761\u4ef6\u4e0b\u91c7\u7528\uff09\u7684\u6cd5\u5219\u3002\u5728\u8bb8\u591a\u60c5\u5f62\u4e0b\uff0c\u8fd9\u4f7f\u5f97\u53ef\u4ee5\u4e0d\u5192\u6df7\u6dc6\u7684\u98ce\u9669\u800c\u7f29\u77ed\u540d\u5b57\uff0c\u5e76\u590d\u7528\u76f8\u540c\u7684\u63cf\u8ff0\u8bcd\u3002<\/p>\n
\u9009\u62e9\u6e05\u6670\u7684\u3001\u6613\u8bfb\u7684\u3001\u6709\u610f\u4e49\u7684\u540d\u79f0\u3002<\/p>\n
\u4e0e\u5176\u5b83\u7684\u7f16\u7a0b\u8bed\u8a00\u4e0d\u540c\uff0cAda \u4e0d\u5c06\u6807\u8bc6\u7b26\u7684\u957f\u5ea6\u9650\u5236\u5728 6\uff0c8 \u6216\u8005 15 \u4e2a\u5b57\u7b26\u5185\u3002\u77ed\u540d\u5b57\u6253\u5b57\u901f\u5ea6\u5feb\u4e0d\u662f\u91c7\u7528\u5b83\u4eec\u7684\u53ef\u4ee5\u4e3a\u4eba\u63a5\u53d7\u7684\u7406\u7531\u3002\u53ea\u6709\u4e00\u4e2a\u5b57\u6bcd\u7684\u6807\u8bc6\u7b26\u901a\u5e38\u8bf4\u660e\u9009\u62e9\u4e0d\u5f53\u6216\u662f\u61d2\u60f0\u3002\u53ef\u80fd\u6709\u51e0\u4e2a\u4f8b\u5916\uff0c\u5982\u5c06 E \u4f5c\u4e3a\u81ea\u7136\u5bf9\u6570\u7684\u5e95\uff0cPi\uff0c\u4ee5\u53ca\u5176\u5b83\u5c11\u6570\u51e0\u4e2a\u6613\u8fa8\u8bc6\u7684\u60c5\u51b5\u3002<\/p>\n
\u7528\u4e0b\u5212\u7ebf\u5c06\u4e00\u4e2a\u540d\u5b57\u4e2d\u7684\u4e0d\u540c\u5355\u8bcd\u5206\u9694\u5f00\u6765\uff1a<\/p>\n
Is_Name_Valid<\/code> \u4e0d\u662f IsNameValid<\/code><\/p>\n\u91c7\u7528\u5168\u540d\u800c\u4e0d\u662f\u7f29\u5199\u3002<\/p>\n
\u53ea\u91c7\u7528\u9879\u76ee\u8ba4\u53ef\u7684\u7f29\u7565\u8bcd\u3002<\/p>\n
\u53ea\u80fd\u662f\u5728\u4e24\u79cd\u60c5\u51b5\u4e4b\u4e00\u65f6\u91c7\u7528\u7f29\u5199\uff1a\u8be5\u7f29\u5199\u5728\u5e94\u7528\u9886\u57df\u4e2d\u5f88\u666e\u904d\uff08\u5982 FFT \u4ee3\u8868\u5085\u7acb\u53f6\u53d8\u6362\uff09\u6216\u8005\u6765\u81ea\u516c\u8ba4\u7f29\u5199\u7684\u9879\u76ee\u7ea7\u5217\u8868\u3002\u5426\u5219\uff0c\u5f88\u6709\u53ef\u80fd\u4f7f\u76f8\u4f3c\u4f46\u4e0d\u76f8\u540c\u7684\u7f29\u5199\u5230\u5904\u51fa\u73b0\uff0c\u5bfc\u81f4\u4ee5\u540e\u7684\u6df7\u6dc6\u548c\u9519\u8bef\uff08\u5982\u5c06 track_identification \u7f29\u5199\u6210 trid\u3001trck_id\u3001tr_iden\u3001tid\u3001tr_ident\u7b49\uff09\u3002<\/p>\n
\u5c11\u7528\u540e\u7f00\u8bf4\u660e Ada \u6784\u9020\u7684\u5206\u7c7b\u3002\u5b83\u4eec\u4e0d\u80fd\u63d0\u9ad8\u6613\u8bfb\u6027\u3002<\/p>\n
\u901a\u5e38\u6309\u7167 Ada \u5b9e\u4f53\u7684\u7c7b\u6765\u52a0\u540e\u7f00\uff0c\u5982\u7ed9\u7a0b\u5e8f\u5305\u52a0\u4e0a _Package\uff0c\u5f02\u5e38\u52a0\u4e0a _Error\uff0c\u7c7b\u578b\u52a0\u4e0a _Type\uff0c\u4ee5\u53ca\u5b50\u7a0b\u5e8f\u7684\u53c2\u6570\u52a0\u4e0a _Param\uff0c\u5bf9\u5e2e\u52a9\u9605\u8bfb\u548c\u7406\u89e3\u4ee3\u7801\u4e0d\u662f<\/em>\u5f88\u6709\u6548\u3002 \u800c\u52a0\u4e0a\u5982 _Array\uff0c_Record \u548c _Function \u8fd9\u6837\u7684\u540e\u7f00\u5219\u66f4\u7cdf\u3002Ada \u7f16\u8bd1\u5668\u548c\u8bfb\u8005\u90fd\u53ef\u4ee5\u6839\u636e\u4e0a\u4e0b\u6587\u4ece\u5b50\u7a0b\u5e8f\u4e2d\u5206\u8fa8\u4e00\u4e2a\u5f02\u5e38\uff1a\u663e\u7136\u53ea\u6709\u5f02\u5e38\u540d\u53ef\u4ee5\u5728 raise<\/em> \u8bed\u53e5\u6216\u5f02\u5e38\u5904\u7406\u4e2d\u51fa\u73b0\u3002\u8fd9\u4e9b\u540e\u7f00\u5728\u5982\u4e0b\u53d7\u9650\u7684\u6761\u4ef6\u4e0b\u53ef\u7528\uff1a<\/p>\n\n- \u5f53\u5408\u9002\u7684\u8bcd\u7684\u9009\u62e9\u8303\u56f4\u975e\u5e38\u6709\u9650\u65f6\uff0c\u7ed9\u5bf9\u8c61\u9009\u4e00\u4e2a\u6700\u597d\u7684\u540d\u5b57\u5e76\u52a0\u4e0a\u7c7b\u578b\u7684\u540e\u7f00\u3002<\/li>\n
- \u5bf9\u4e8e\u7c7b\u5c5e\u5355\u5143,\u603b\u53ef\u4ee5\u52a0\u4e0a\u5f62\u5982 _Generic \u7684\u540e\u7f00\uff0c\u6240\u4ee5\u5bf9\u4e00\u4e9b\u6216\u8bb8\u591a\u5b9e\u4f8b\u6765\u8bf4\uff0c\u53ef\u4ee5\u4e0d\u6dfb\u52a0\u8be5\u540e\u7f00\u800c\u4f7f\u7528\u4e0e\u5176\u76f8\u540c\u7684\u540d\u5b57\u3002<\/li>\n
- \u5f53\u5b83\u8868\u793a\u4e00\u4e2a\u5e94\u7528\u9886\u57df\u7684\u6982\u5ff5\u65f6\uff0c\u5982 Aircraft_Type\u3002<\/li>\n
- \u5f53\u91cd\u8981\u7684\u8bbe\u8ba1\u51b3\u7b56\u9700\u9ad8\u5ea6\u53ef\u89c1\u65f6\uff1a<\/li>\n<\/ul>\n
\u7c7b\u5c5e\u5f62\u53c2\u7c7b\u578b\u540e\u7f00\u4e3a _Constrained<\/p>\n
\u540e\u7f00\u4e3a _Pointer \u7684\u5b58\u53d6\u7c7b\u578b\u6216\u5176\u5b83\u975e\u76f4\u63a5\u6307\u4ee3\u7684\u5f62\u5f0f\uff1a_Handle \u6216 _Reference<\/p>\n
\u901a\u8fc7 _Or_Wait \u9690\u85cf\u4e86\u53ef\u80fd\u963b\u585e\u7684\u5165\u53e3\u8c03\u7528\u7684\u5b50\u7a0b\u5e8f<\/p>\n
\u5c06\u540d\u5b57\u8868\u8ff0\u51fa\u6765\uff0c\u4f7f\u5f97\u4ece\u4f7f\u7528<\/em>\u7684\u89d2\u5ea6\u770b\uff0c\u5b83\u4eec\u8fd8\u4e0d\u9519\u3002<\/p>\n\u8bd5\u60f3\u4e00\u4e2a\u5bfc\u51fa\u5b9e\u4f53\u53ef\u5728\u5176\u4e2d\u4f7f\u7528\u7684\u4e0a\u4e0b\u6587\uff0c\u5e76\u7ad9\u5728\u90a3\u4e2a\u89d2\u5ea6\u9009\u62e9\u4e00\u4e2a\u540d\u5b57\u3002\u4e00\u4e2a\u5b9e\u4f53\u4ec5\u88ab\u5b9a\u4e49\u4e00\u6b21\uff0c\u4f46\u5374\u88ab\u4f7f\u7528\u8bb8\u591a\u6b21\u3002\u8fd9\u4e00\u70b9\u5bf9\u4e8e\u5b50\u7a0b\u5e8f\u7684\u540d\u5b57\u53ca\u5176\u53c2\u6570\u6765\u8bf4\u5c24\u4e3a\u6b63\u786e\uff1b \u4f7f\u7528\u547d\u540d\u5173\u8054\u5173\u7cfb\u7684\u7ed3\u679c\u8c03\u7528\u5e94\u5c3d\u91cf\u4e0e\u81ea\u7136\u8bed\u8a00\u76f8\u8fd1\u3002\u8bb0\u4f4f\u7f3a\u5c11\u4f7f\u7528<\/em>\u5b50\u53e5\u4f7f\u5f97\u5927\u591a\u6570\u58f0\u660e\u5b9e\u4f53\u5fc5\u987b\u5177\u6709\u53d7\u9650\u540d\u3002\u5bf9\u4e8e\u6709\u53ef\u80fd\u5728\u7c7b\u5c5e\u5355\u5143\u4e2d\u6bd4\u5728\u4eab\u7528\u6a21\u5757\u90a3\u91cc\u4f7f\u7528\u5f97\u8fd8\u591a\u7684\u7c7b\u5c5e\u5f62\u53c2\u6765\u8bf4\uff0c\u5fc5\u987b\u5bfb\u627e\u4e00\u4e2a\u597d\u7684\u534f\u8c03\u529e\u6cd5\uff0c\u4f46\u662f\u7edd\u5bf9\u8981\u4fdd\u8bc1\u5b50\u7a0b\u5e8f\u7684\u5f62\u53c2\u5728\u4eab\u7528\u6a21\u5757\u7aef\u597d\u770b\u3002<\/p>\n\u4f7f\u7528\u82f1\u6587\u5355\u8bcd\u5e76\u62fc\u5199\u6b63\u786e\u3002<\/p>\n
\u8bed\u8a00\u7684\u6df7\u5408\uff08\u5982\u6cd5\u8bed\u548c\u82f1\u8bed\uff09\u5c06\u4f7f\u4ee3\u7801\u96be\u8bfb\uff0c\u6709\u65f6\u4f7f\u6807\u8bc6\u7b26\u7684\u610f\u4e49\u6478\u68f1\u4e24\u53ef\u3002 \u65e2\u7136 Ada \u7684\u5173\u952e\u5b57\u5df2\u662f\u82f1\u6587\u7684\uff0c\u5219\u8981\u6c42\u4f7f\u7528\u82f1\u6587\u5355\u8bcd\u3002\u6700\u597d\u91c7\u7528\u7f8e\u5f0f\u62fc\u6cd5\uff0c\u4ee5\u4fbf\u5229\u7528\u201cRational \u73af\u5883\u201d\u4e2d\u5185\u7f6e\u7684\u62fc\u5199\u68c0\u67e5\u3002<\/p>\n
\u4e0d\u8981\u91cd\u65b0\u5b9a\u4e49 Standard \u7a0b\u5e8f\u5305\u4e2d\u7684\u4efb\u4f55\u5b9e\u4f53\u3002\u8fd9\u662f\u7edd\u5bf9\u7981\u6b62\u7684\u3002<\/p>\n
\u8fd9\u6837\u505a\u5c06\u4ea7\u751f\u6df7\u6dc6\u548c\u4e25\u91cd\u7684\u9519\u8bef\u3002\u8be5\u6cd5\u5219\u53ef\u5ef6\u4f38\u81f3\u5176\u5b83\u9884\u5b9a\u4e49\u7684\u5e93\u5355\u5143\uff1aCalendar\uff0cSystem\u3002\u8fd9\u4e5f\u5305\u62ec Standard<\/em> \u6807\u8bc6\u7b26\u672c\u8eab\u3002<\/p>\n\u907f\u514d\u5bf9\u5176\u5b83\u9884\u5b9a\u4e49\u7a0b\u5e8f\u5305\u4e2d\u7684\u6807\u8bc6\u7b26\u91cd\u5b9a\u4e49\uff0c\u5982 System \u6216 Calendar\u3002<\/p>\n
\u4e0d\u8981\u4f7f\u7528\u5982\u4e0b\u7684\u6807\u8bc6\u7b26\uff1aWide_Character<\/strong> \u548c Wide_String<\/strong>\uff0c\u5b83\u4eec\u5c06\u5728 Ada 95 \u7684 Standard \u7a0b\u5e8f\u5305\u4e2d\u5f15\u5165\u3002\u4e0d\u8981\u5f15\u5165\u4e00\u4e2a\u540d\u4e3a Ada<\/strong> \u7684\u7f16\u8bd1\u5355\u5143\u3002<\/p>\n\u4e0d\u8981\u4f7f\u7528\u4ee5\u4e0b\u5355\u8bcd\u4f5c\u4e3a\u6807\u8bc6\u7b26\uff1aabstract<\/strong>\uff0caliased<\/strong>\uff0cprotected<\/strong>\uff0crequeue<\/strong>\uff0ctagged<\/strong> \u548c until<\/strong>\uff0c\u5b83\u4eec\u5728 Ada 95 \u5c06\u6210\u4e3a\u5173\u952e\u5b57\u3002<\/p>\n\u4e00\u4e9b\u7ed9\u5404\u79cd Ada \u5b9e\u4f53\u7684\u547d\u540d\u5efa\u8bae\u4e5f\u662f\u540c\u6837\u3002\u5047\u5b9a\u4e00\u822c\u60c5\u5f62\u4e0b\uff0c\u201c\u9762\u5411\u5bf9\u8c61\u201d\u98ce\u683c\u7684\u8bbe\u8ba1\u53d7\u6b22\u8fce\u3002\u8be6\u60c5\u8bf7\u53c2\u89c1\u9644\u5f55 A\u3002<\/p>\n
<\/a>\u7a0b\u5e8f\u5305<\/h2>\n\u5f53\u4e00\u4e2a\u7a0b\u5e8f\u5305\u5f15\u5165\u4e86\u67d0\u4e2a\u5bf9\u8c61\u7c7b\u65f6\uff0c\u7528\u8be5\u5bf9\u8c61\u7c7b\u7684\u540d\u5b57\u547d\u540d\u7a0b\u5e8f\u5305\uff0c\u901a\u5e38\u662f\u4e00\u4e2a\u5355\u6570\u5f62\u5f0f\u7684\u540d\u8bcd\uff0c\u82e5\u9700\u8981\uff08\u5373\u5b9a\u4e49\u4e86\u4e00\u4e2a\u5e26\u53c2\u6570\u7684\u7c7b\uff09\uff0c\u53ef\u52a0\u4e0a\u540e\u7f00 _Generic\u3002\u4ec5\u5f53\u5bf9\u8c61\u603b\u4ee5\u7fa4\u4f53\u5f62\u5f0f\u51fa\u73b0\u65f6\uff0c\u624d\u91c7\u7528\u590d\u6570\u5f62\u5f0f\u3002\u4f8b\u5982\uff1a<\/p>\n
package Text is\r\npackage Line is\r\npackage Mailbox is\r\npackage Message is\r\npackage Attributes is\r\npackage Subscriber is\r\npackage List_Generic is<\/pre>\n\u82e5\u4e00\u4e2a\u7a0b\u5e8f\u5305\u8bf4\u660e\u4e86\u4e00\u4e2a\u63a5\u53e3\u6216\u8005\u529f\u80fd\u5206\u7ec4\uff0c\u5e76\u4e14\u5b83\u4e0d\u4e0e\u4efb\u4f55\u5bf9\u8c61\u76f8\u5173\uff0c\u5219\u5e94\u5728\u5b83\u7684\u540d\u5b57\u4e2d\u5c06\u8fd9\u4e00\u70b9\u8868\u8ff0\u51fa\u6765\uff1a<\/p>\n
package Low_Layer_Interface is\r\npackage Math_Definitions is<\/pre>\n\u5f53\u4e00\u4e2a\u201c\u903b\u8f91\u201d\u5305\u7528\u5e73\u9762\u5206\u89e3 (flat decomposition)\uff0c\u9700\u8981\u4f5c\u4e3a\u51e0\u4e2a\u5305\u6765\u8868\u8fbe\u65f6\uff0c\u91c7\u7528\u9879\u76ee\u7ea7\u4e00\u81f4\u7684\u5217\u8868\u4e2d\u7684\u540e\u7f00\u3002\u4f8b\u5982\uff0c\u4e00\u4e2a\u903b\u8f91\u7a0b\u5e8f\u5305 Mailbox \u53ef\u5982\u4e0b\u5b9e\u73b0\uff1a<\/p>\n
package Mailbox_Definitions is\r\npackage Mailbox_Exceptions is\r\npackage Mailbox_Io is\r\npackage Mailbox_Utilities is\r\npackage Mailbox_Implementation is\r\npackage Mailbox_Main is<\/pre>\n\u5176\u5b83\u53ef\u63a5\u53d7\u7684\u540e\u7f00\u6709\uff1a<\/p>\n
_Test_Support \r\n_Test_Main \r\n_Log \r\n_Hidden_Definitions \r\n_Maintenance \r\n_Debug<\/pre>\n<\/a>\u7c7b\u578b<\/h2>\n\u5f53\u5728\u7a0b\u5e8f\u5305\u4e2d\u5b9a\u4e49\u4e00\u4e2a\u5bf9\u8c61\u7c7b\u8574\u6db5\u62f7\u8d1d\u8bed\u4e49\u65f6 – \u5373\u5f53\u7c7b\u578b\u53ef\u5b9e\u4f8b\u5316\u5e76\u4e14\u67d0\u79cd\u5f62\u5f0f\u7684\u4efb\u52a1\u5206\u914d\u53ef\u884c\u65f6\uff0c\u91c7\u7528\uff1a<\/p>\n
type Object is ...<\/pre>\n\u6ce8\u610f\u7c7b\u540d\u4e0d\u5e94\u5728\u6807\u8bc6\u7b26\u4e2d\u91cd\u590d\uff0c\u56e0\u4e3a\u5b83\u603b\u662f\u4ee5\u5b8c\u5168\u53d7\u9650\u7684\u5f62\u5f0f\u4f7f\u7528\uff1a<\/p>\n
Mailbox.Object\r\nLine.Object<\/pre>\n\u5f53\u5305\u542b\u5171\u4eab\u8bed\u4e49\u65f6 – \u5373\u7c7b\u578b\u7528\u5b58\u53d6\u503c\uff08\u6216\u8005\u5176\u5b83\u975e\u76f4\u63a5\u7684\u5f62\u5f0f\uff09\u5b9e\u73b0\uff0c\u5e76\u4e14\u8d4b\u503c\u8bed\u53e5\uff08\u82e5\u5b58\u5728\uff09\u4e0d\u590d\u5236\u5bf9\u8c61 – \u7528\u5982\u4e0b\u65b9\u5f0f\u8bf4\u660e\uff1a<\/p>\n
UL><\/p>\n
\ntype Handle is <\/code>\u7528\u4e8e\u975e\u76f4\u63a5\u5f15\u7528<\/li>\ntype Reference is <\/code>\u662f\u4e00\u4e2a\u53ef\u884c\u7684\u5907\u7528\u65b9\u6848<\/li>\n<\/ul>\n\u8fd9\u4e9b\u5143\u7d20\u5728\u5355\u72ec\u4f7f\u7528\u65f6\u4f5c\u540e\u7f00\uff0c\u524d\u9762\u52a0\u4e0a\u5305\u540d\uff0c\u8fd9\u6837\u5e76\u4e0d\u6e05\u695a\u6216\u975e\u5e38\u6478\u68f1\u4e24\u53ef\u3002<\/p>\n
\u5f53\u8574\u6db5\u591a\u4e2a\u5bf9\u8c61\u65f6\uff0c\u91c7\u7528\uff1a<\/p>\n
\ntype Set is <\/code>\u5f53\u6697\u542b\u5143\u7d20\u7684\u7279\u6b8a\u6027\u65f6<\/li>\ntype List is <\/code>\u5f53\u5305\u542b\u67d0\u79cd\u6b21\u5e8f\u65f6<\/li>\ntype Collection is<\/code> \u5f53\u65e2\u4e0d\u542b\u96c6\u5408\u4e5f\u4e0d\u542b\u5217\u8868\u8bed\u4e49\u65f6<\/li>\ntype Iterator is<\/code> \u5f53\u63d0\u4f9b\u4e86 Initialize\uff0cValue_Of\uff0cNext\uff0cIs_Done \u7b49\u539f\u8bed\u65f6
\n\uff08\u53c2\u89c1 6.5 \u8282\uff09<\/li>\n<\/ul>\n\u5bf9\u4e8e\u67d0\u4e2a\u5bf9\u8c61\u4e32\u7684\u6307\u5b9a\uff0c\u91c7\u7528\uff1a<\/p>\n
type Name is<\/code><\/p>\n\u4e3a\u4e86\u8fbe\u5230\u66f4\u597d\u7684\u6613\u8bfb\u6027\uff0c\u7c7b\u578b\u7684\u53d7\u9650\u540d\u4e5f\u5e94\u5728\u6574\u4e2a\u5b9a\u4e49\u5305\u5185\u4f7f\u7528\u3002\u201cRational \u73af\u5883\u201d\u4e2d\uff0c\u5f53\u5728\u5b50\u7a0b\u5e8f\u8c03\u7528\u4e2d\u91c7\u7528 [Complete] \u51fd\u6570\u65f6\uff0c\u4e0a\u8ff0\u65b9\u6cd5\u4e5f\u53ef\u4f7f\u8fd0\u884c\u66f4\u52a0\u597d\u3002<\/p>\n
\u4f8b\u5982\uff0c\u6ce8\u610f\u4e0b\u9762\u7684\u5b8c\u5168\u540d Subscriber.Object\uff1a<\/p>\n
package Subscriber is\r\ntype Object is private;\r\ntype Handle is access Subscriber.Object;\r\nsubtype Name is String;\r\npackage List is new List_Generic (Subscriber.Handle);\r\nMaster_List : Subscriber.List.Handle;\r\nprocedure Create (The_Handle : out Subscriber.Handle;\r\nWith_Name : in Subscriber.Name);\r\nprocedure Append (The_Subscriber : in Subscriber.Handle;\r\nTo_List : in out Subscriber.List.Handle);\r\nfunction Name_Of (The_Subscriber : Subscriber.Handle) return\r\nSubscriber.Name;\r\n ...\r\nprivate\r\ntype Object is\r\nrecord\r\nThe_Name : Subscriber.Name (1..20);\r\n ...\r\nend Subscriber;<\/pre>\n\u5728\u5176\u5b83\u60c5\u51b5\u4e0b\uff0c\u7c7b\u540d\u91c7\u7528\u540d\u8bcd\u6216\u8005\u4fee\u9970\u7b26 + \u540d\u8bcd\u3002\u7c7b\u578b\u53ef\u7528\u590d\u6570\u5f62\u5f0f\uff0c\u5bf9\u8c61\uff08\u53d8\u91cf\uff09\u540d\u91c7\u7528\u5355\u6570\uff1a<\/p>\n
type Point is record ...\r\ntype Hidden_Attributes is ( ...\r\ntype Boxes is array ...<\/pre>\n\u5bf9\u4e8e\u679a\u4e3e\u7c7b\u578b\uff0c\u5355\u72ec\u6216\u8005\u4f5c\u4e3a\u540e\u7f00\u4f7f\u7528 Mode\uff0cKind\uff0cCode \u7b49\u5355\u8bcd\u3002<\/p>\n
\u5bf9\u4e8e\u6570\u7ec4\u7c7b\u578b\uff0c\u5f53\u5df2\u5c06\u7b80\u5355\u540d\u7528\u4e8e\u7ec4\u4ef6\u7c7b\u578b\u65f6\uff0c\u53ef\u4ee5\u91c7\u7528\u540e\u7f00 _Table\u3002\u4ec5\u5f53\u6570\u7ec4\u7528\u8574\u6db5\u8bed\u4e49\u6765\u7ef4\u62a4\u65f6\uff0c\u624d\u91c7\u7528\u8c61 _Set \u548c _List \u8fd9\u6837\u7684\u540d\u5b57\u6216\u540e\u7f00\u3002Reserve _Vector \u548c _Matrix \u5e94\u7559\u4f5c\u76f8\u5e94\u7684\u6570\u5b66\u6982\u5ff5\u4f7f\u7528\u3002<\/p>\n
\u56e0\u4e3a\u8981\u907f\u514d\u5355\u6570\u7684\u4efb\u52a1\u5bf9\u8c61\uff08\u539f\u56e0\u5728\u540e\u6587\u89e3\u91ca\uff09\uff0c\u6240\u4ee5\u5373\u4f7f\u53ea\u6709\u4e00\u4e2a\u8be5\u7c7b\u578b\u7684\u5bf9\u8c61\u65f6\uff0c\u4e5f\u5e94\u5f15\u5165\u4efb\u52a1\u7c7b\u578b\u3002\u4e0b\u9762\u662f\u4f7f\u7528\u4e86\u4e00\u4e2a\u8c61 _Type \u8fd9\u6837\u7684\u7b80\u5355\u540e\u7f00\u4e4b\u540e\u4fbf\u4ee4\u4eba\u6ee1\u610f\u7684\u4f8b\u5b50\uff1a<\/p>\n
task type Listener_Type is ...\r\nfor Listener_Type'Storage_Size use ...\r\nListener : Listener_Type;<\/pre>\n\u7c7b\u4f3c\u5730\uff0c\u5f53\u7c7b\u578b\u540d\u91c7\u7528\u540d\u8bcd\uff08\u6216\u8005\u540d\u8bcd\u77ed\u8bed\uff09\u5b58\u5728\u51b2\u7a81\u65f6\uff0c\u6216\u8005\u51e0\u5904\u7684\u5bf9\u8c61\u540d\u6216\u53c2\u6570\u540d\u6709\u51b2\u7a81\u65f6\uff0c\u5728\u8be5\u7c7b\u578b\u540d\u540e\u52a0\u4e0a\u540e\u7f00 _Kind\uff0c\u800c\u8ba9\u5bf9\u8c61\u4f7f\u7528\uff08\u65e0\u540e\u7f00\u7684\uff09\u7b80\u5355\u540d\u8bcd\uff1a<\/p>\n
type Status_Kind is (None, Normal, Urgent, Red);\r\nStatus : Status_Kind := None;<\/pre>\n\u6216\u8005\uff0c\u5bf9\u4e8e\u603b\u4ee5\u590d\u6570\u51fa\u73b0\u7684\u4e8b\u7269\u7684\u7c7b\u578b\uff0c\u91c7\u7528\u590d\u6570\u5f62\u5f0f\u3002<\/p>\n
\u56e0\u4e3a\u5b58\u53d6\u7c7b\u578b\u5b58\u5728\u56fa\u6709\u7684\u5371\u5bb3\uff0c\u6240\u4ee5\u4f7f\u7528\u8005\u5e94\u5c0f\u5fc3\u3002\u4e00\u822c\u5b83\u4eec\u53eb\u505a Pointer\u3002\u5982\u679c\u540d\u5b57\u672c\u8eab\u610f\u4e49\u8fd8\u5f88\u6478\u68f1\u4e24\u53ef\uff0c\u5219\u5e94\u52a0\u4e0a\u540e\u7f00 _pointer\u3002\u4f5c\u4e3a\u540e\u5907\u65b9\u6848\uff0c\u4e5f\u53ef\u91c7\u7528 _Access \u505a\u540e\u7f00\u3002<\/p>\n
\u6709\u65f6\u91c7\u7528\u5d4c\u5957\u5b50\u7a0b\u5e8f\u5305\u6765\u5f15\u5165\u6b21\u7ea7\u62bd\u8c61\u53ef\u4ee5\u7b80\u5316\u547d\u540d\uff1a<\/p>\n
package Subscriber is ...\r\npackage Status is\r\ntype Kind is (Ok, Deleted, Incomplete, Suspended, \r\nPrivileged);\r\nfunction Set (The_Status : Subscriber.Status.Kind;\r\nTo_Subscriber : Subscriber.Handle);\r\nend Status;\r\n ...<\/pre>\n<\/a>\u5f02\u5e38<\/h2>\n\u56e0\u4e3a\u5f02\u5e38\u53ea\u80fd\u7528\u6765\u5904\u7406\u9519\u8bef\uff0c\u6240\u4ee5\u5e94\u4f7f\u7528\u540d\u8bcd\u6216\u540d\u8bcd\u77ed\u8bed\u6765\u6e05\u695a\u8868\u8fbe\u4e00\u4e2a\u8d1f\u9762\u7684\u610f\u4e49\uff1a<\/p>\n
Overflow, Threshold_Exceeded, Bad_Initial_Value<\/pre>\n\u5f53\u5728\u4e00\u4e2a\u7c7b\u7a0b\u5e8f\u5305\u4e2d\u5b9a\u4e49\u5f02\u5e38\u65f6\uff0c\u6807\u8bc6\u7b26\u65e0\u9700\u5305\u542b\u7c7b\u540d – \u4f8b\u5982 Bad_Initial_Subscriber_Value – \u56e0\u4e3a\u5f02\u5e38\u4e00\u76f4\u88ab\u7528\u4f5c Subscriber.Bad_Initial_Value\u3002<\/p>\n
\u91c7\u7528 Bad\uff0cIncomplete\uff0cInvalid\uff0cWrong\uff0cMissing \u6216\u8005 Illegal \u4e2d\u7684\u4e00\u4e2a\u5355\u8bcd\u4f5c\u4e3a\u540d\u5b57\u7684\u4e00\u90e8\u5206\uff0c\u800c\u4e0d\u662f\u7cfb\u7edf\u5730\u91c7\u7528\u4e0d\u4f20\u8fbe\u4efb\u4f55\u8be6\u7ec6\u4fe1\u606f\u7684 Error\uff1a<\/p>\n
Illegal_Data, Incomplete_Data<\/pre>\n<\/a>\u5b50\u7a0b\u5e8f<\/h2>\n\u8fc7\u7a0b\uff08\u548c\u4efb\u52a1\u5165\u53e3\uff09\u91c7\u7528\u52a8\u8bcd\u3002\u51fd\u6570\u540d\u91c7\u7528\u5e26\u6709\u5bf9\u8c61\u7c7b\u5c5e\u6027\u6216\u7279\u5f81\u7684\u540d\u8bcd\u3002\u8fd4\u56de\u5e03\u5c14\u503c\uff08\u8c13\u8bcd\uff09\u7684\u51fd\u6570\u4f7f\u7528\u5f62\u5bb9\u8bcd\uff08\u6216\u8fc7\u53bb\u5206\u8bcd\uff09\u3002<\/p>\n
Subscriber.Create\r\nSubscriber.Destroy\r\nSubscriber.List.Append\r\nSubscriber.First_Name -- Returns a string.\r\nSubscriber.Creation_Date -- Returns a date.\r\nSubscriber.List.Next\r\nSubscriber.Deleted -- Returns a Boolean.\r\nSubscriber.Unavailable -- Returns a Boolean.\r\nSubscriber.Remote<\/pre>\n\u5bf9\u4e8e\u8c13\u8bcd\uff0c\u5728\u4e00\u4e9b\u60c5\u51b5\u4e0b\u7ed9\u540d\u8bcd\u524d\u9762\u52a0\u4e0a\u524d\u7f00 Is_ \u6216 Has_ \u6216\u8bb8\u6709\u5e2e\u52a9\uff1b\u65f6\u6001\u8981\u51c6\u786e\u548c\u4e00\u81f4\uff1a<\/p>\n
function Has_First_Name ...\r\nfunction Is_Administrator ...\r\nfunction Is_First...\r\nfunction Was_Deleted ...<\/pre>\n\u5f53\u7b80\u5355\u540d\u79f0\u5df2\u4f5c\u4e3a\u7c7b\u578b\u540d\u6216\u679a\u4e3e\u578b\u76f4\u63a5\u91cf\u65f6\uff0c\u4e0a\u8ff0\u65b9\u6cd5\u6709\u7528\u3002<\/p>\n
\u8c13\u8bcd\u5e94\u4f7f\u7528\u80af\u5b9a\u5f0f\uff0c\u4e5f\u5c31\u662f\u8bf4\uff0c\u5176\u4e2d\u4e0d\u5e94\u542b\u6709\u201cNot_\u201d\u4e00\u8bcd\u3002<\/p>\n
\u5bf9\u4e8e\u666e\u901a\u64cd\u4f5c\uff0c\u7edf\u4e00\u4ece\u9879\u76ee\u53ef\u9009\u5217\u8868\uff08\u5217\u8868\u968f\u7740\u6211\u4eec\u5bf9\u7cfb\u7edf\u8ba4\u8bc6\u7684\u52a0\u6df1\u800c\u6269\u5c55\uff09\u4e2d\u9009\u62e9\u52a8\u8bcd\uff1a<\/p>\n
Create\r\nDelete\r\nDestroy\r\nInitialize\r\nAppend\r\nRevert\r\nCommit\r\nShow, Display<\/pre>\n\u8c13\u8bcd\u51fd\u6570\u548c\u5e03\u5c14\u578b\u7684\u53c2\u6570\u91c7\u7528\u80af\u5b9a\u5f0f\u3002\u5426\u5b9a\u5f0f\u7684\u540d\u5b57\u53ef\u80fd\u4ea7\u751f\u53cc\u91cd\u5426\u5b9a\uff08\u4f8b\u5982 Not Is_Not_Found\uff09\uff0c\u4ece\u800c\u4f7f\u4ee3\u7801\u96be\u8bfb\u3002<\/p>\n
function Is_Not_Valid (...) return Boolean\r\nprocedure Find_Client (With_The_Name : in Name;\r\nNot_Found : out Boolean)<\/pre>\n\u5e94\u5b9a\u4e49\u6210\uff1a<\/p>\n
function Is_Valid (...) return Boolean;\r\nprocedure Find_Client (With_The_Name: in Name;\r\nFound: out Boolean)<\/pre>\n\u8fd9\u624d\u8ba9\u4eab\u7528\u6a21\u5757\u6309\u5176\u6240\u9700\u7684\u90a3\u6837\u5b9e\u73b0\u4e86\u8868\u8fbe\u5f0f\u7684\u5426\u5b9a\uff08\u8fd9\u6837\u505a\u4e0d\u4f1a\u5bfc\u81f4\u8fd0\u884c\u65f6\u95f4\u5ef6\u957f\uff09\uff1a<\/p>\n
if not Is_Valid (...) then ....<\/pre>\n\u6709\u4e9b\u60c5\u51b5\u4e0b\uff0c\u901a\u8fc7\u4f7f\u7528\u53cd\u4e49\u8bcd\uff0c\u5982\u7528\u201cIs_Invalid\u201d\u6765\u4ee3\u66ff\u201cIs_Not_Valid\u201d\uff0c\u53ef\u4ee5\u4f7f\u5426\u5b9a\u8c13\u8bcd\u5728\u4e0d\u6539\u53d8\u8bed\u4e49\u7684\u60c5\u51b5\u4e0a\u53d8\u6210\u80af\u5b9a\u5f0f\u3002\u4f46\u662f\uff0c\u80af\u5b9a\u5f0f\u7684\u540d\u5b57\u66f4\u6613\u8bfb\uff1a \u201cIs_Valid\u201d\u6bd4\u201cnot Is_Invalid\u201d\u66f4\u6613\u7406\u89e3\u3002<\/p>\n
\u5f53\u8574\u6db5\u7740\u5927\u81f4\u76f8\u540c\u7684\u610f\u4e49\u65f6\uff0c\u91c7\u7528\u76f8\u540c\u7684\u5355\u8bcd\uff0c\u800c\u4e0d\u662f\u5bfb\u627e\u540c\u4e49\u8bcd\u6216\u53d8\u4f53\u3002\u56e0\u6b64\uff0c\u9f13\u52b1\u4f7f\u7528\u91cd\u8f7d\u6765\u63d0\u9ad8\u4ee3\u7801\u7684\u4e00\u81f4\u6027\uff0c\u9075\u5faa\u6700\u5c0f\u9650\u5ea6\u610f\u5916\u539f\u5219\u3002<\/p>\n
\u82e5\u5b50\u7a0b\u5e8f\u88ab\u7528\u505a\u5165\u53e3\u8c03\u7528\u7684\u201c\u5916\u8868\u201d (skins) \u6216\u8005\u201c\u5305\u88c5\u201d (wrappers)\uff0c\u5219\u7ed9\u5176\u540d\u5b57\u52a8\u8bcd\u52a0\u4e0a\u540e\u7f00 _Or_Wait\uff0c\u6216\u8005\u7ed9\u51fd\u6570\u53d6\u4e2a Wait_For_ \u77ed\u8bed\u52a0\u540d\u8bcd\u7684\u540d\u5b57\u6765\u53cd\u6620\u8fd9\u4e00\u70b9\uff0c\u8fd9\u6837\u53ef\u80fd\u6709\u7528\uff1a<\/p>\n
Subscriber.Get_Reply_Or_Wait\r\nSubscriber.Wait_For_Reply<\/pre>\n\u4e00\u4e9b\u64cd\u4f5c\u5e94\u4e00\u76f4\u4f7f\u7528\u76f8\u540c\u7684\u540d\u5b57\u6765\u7edf\u4e00\u5b9a\u4e49\uff1a<\/p>\n
\u5bf9\u4e8e\u8f6c\u6362\u5230\u5b57\u4e32\u548c\u4ece\u5b57\u4e32\u8f6c\u6362\u6765\u7684\u7c7b\u578b\u53d8\u6362\uff0c\u5bf9\u79f0\u51fd\u6570\u662f\uff1a<\/p>\n
function Image and function Value<\/pre>\n\u5bf9\u4e8e\u8f6c\u6362\u5230\u4f4e\u7ea7\u8868\u793a\u6cd5\uff08\u5982\u7528\u4e8e\u6570\u636e\u4ea4\u6362\u7684 Byte_String\uff09\u548c\u4ece\u4f4e\u7ea7\u8868\u793a\u6cd5\u8f6c\u6362\u8fc7\u6765\u7684\u7c7b\u578b\u53d8\u6362\uff0c\u5bf9\u79f0\u8fc7\u7a0b\u662f\uff1a<\/p>\n
procedure Read and Write<\/pre>\n\u5bf9\u4e8e\u5206\u914d\u6570\u636e\uff1a<\/p>\n
function Allocate (rather than Create)\r\nfunction Destroy (or Release, to express that the object will disappear)<\/pre>\n\u5f53\u7cfb\u7edf\u5730\u5904\u7406\u5b83\u4eec\u65f6\u91c7\u7528\u7edf\u4e00\u7684\u547d\u540d\uff0c\u7c7b\u578b\u5408\u6210\u5c06\u5bb9\u6613\u8bb8\u591a\u3002<\/p>\n
\u5bf9\u4e8e\u6d3b\u52a8\u7684\u8fed\u4ee3\u7a0b\u5e8f\uff0c\u5fc5\u987b\u5b9a\u4e49\u4ee5\u4e0b\u539f\u8bed\uff1a<\/p>\n
Initialize\r\nNext\r\nIs_Done\r\nValue_Of<\/pre>\n\u82e5\u53ef\u884c\uff0c\u8fd8\u8981\u5b9a\u4e49 Reset<\/code>\u3002\u82e5\u8981\u5728\u76f8\u540c\u7684\u4f5c\u7528\u57df\u8303\u56f4\u5185\u5f15\u5165\u51e0\u4e2a\u8fed\u4ee3\u7c7b\u578b\uff0c\u90a3\u4e48\u5e94\u91cd\u8f7d\u8fd9\u4e9b\u539f\u8bed\uff0c\u800c\u4e0d\u662f\u4e3a\u6bcf\u4e2a\u8fed\u4ee3\u7a0b\u5e8f\u5206\u522b\u5f15\u5165\u4e00\u5957\u5404\u4e0d\u76f8\u540c\u7684\u6807\u8bc6\u7b26\u3002\u53c2\u89c1 [BOO87]<\/a>\u3002<\/p>\n\u5f53\u91c7\u7528 Ada \u9884\u786e\u5b9a\u5c5e\u6027\u4f5c\u4e3a\u51fd\u6570\u540d\u65f6\uff0c\u8981\u4fdd\u8bc1\u5176\u7528\u6cd5\u4e0e\u4e00\u822c\u7684\u8bed\u4e49\u76f8\u540c\uff1a’First\uff0c’Last\uff0c’Length\uff0c’Image\uff0c’Value\uff0c\u7b49\u7b49\u3002 \u6ce8\u610f\uff0c\u51e0\u4e2a\u5c5e\u6027\uff08\u5982 ‘Range \u548c ‘Delta\uff09\u662f\u4e0d\u80fd\u7528\u505a\u51fd\u6570\u540d\u7684\uff0c\u56e0\u4e3a\u5b83\u4eec\u662f\u4fdd\u7559\u5b57\u3002<\/p>\n
<\/a>\u5bf9\u8c61\u548c\u5b50\u7a0b\u5e8f\uff08\u6216\u5165\u53e3\uff09\u53c2\u6570<\/h2>\n\u4e3a\u8868\u660e\u5176\u552f\u4e00\u6027\u6216\u662f\u8868\u660e\u8be5\u5b9e\u4f53\u662f\u6d3b\u52a8\u7684\u4e3b\u8981\u805a\u96c6\u5904\uff0c\u5728\u5bf9\u8c61\u6216\u53c2\u6570\u540d\u79f0\u524d\u52a0\u524d\u7f00\u201cThe\u201d\u6216\u201cThis\u201d\u3002\u8981\u8bf4\u660e\u4e00\u4e2a\u6b21\u8981\u3001\u4e34\u65f6\u3001\u8f85\u52a9\u7684\u5bf9\u8c61\uff0c\u5219\u52a0\u524d\u7f00\u201cA_\u201d\u6216\u201cCurrent_\u201d\uff1a<\/p>\n
procedure Change_Name (The_Subscriber : in Subscriber.Handle;\r\nThe_Name : in Subscriber.Name );\r\ndeclare\r\nA_Subscriber : Subscriber.Handle := Subscriber.First;\r\nbegin\r\n ...\r\nA_Subscriber := Subscriber.Next (The_Subscriber);\r\nend;<\/pre>\n\u5bf9\u4e8e\u5e03\u5c14\u578b\u7684\u5bf9\u8c61\uff0c\u91c7\u7528\u80af\u5b9a\u5f0f\u7684\u8c13\u8bcd\u5b50\u53e5\uff1a<\/p>\n
Found_It\r\nIs_Available<\/pre>\n\u4f46\u662f\uff1a<\/p>\n
Is_Not_Available<\/code> \u5fc5\u987b\u907f\u514d\u3002<\/p>\n\u5bf9\u4e8e\u4efb\u52a1\u5bf9\u8c61\uff0c\u5e94\u91c7\u7528\u4e00\u4e2a\u8574\u6db5\u4e86\u6d3b\u52a8\u5b9e\u4f53\u7684\u540d\u8bcd\u6216\u8005\u540d\u8bcd\u77ed\u8bed\uff1a<\/p>\n
Listener\r\nResource_Manager\r\nTerminal_Driver<\/pre>\n
\u53c2\u8003\u6587\u732e<\/a><\/h3>\n\u8bcd\u6c47\u8868<\/a><\/h3>\n
\n<\/a>\u7b2c\u4e00\u7ae0<\/em><\/h2>\n\u5173\u4e8e\u672c\u6587\u6863<\/h1>\n
\u672c\u6587\u6863 Rational Unified Process – Ada \u7f16\u7a0b\u6307\u5357<\/em>\u662f\u4e00\u4e2a\u6807\u51c6\u7684\u6a21\u677f\uff0c\u4f60\u7684\u5f00\u53d1\u7ec4\u7ec7\u53ef\u4f9d\u6b64\u6d3e\u751f\u51fa\u4e00\u5957\u7a0b\u5e8f\u8bbe\u8ba1\u6807\u51c6\u3002\u8be5\u6307\u5357\u8be6\u7ec6\u8bf4\u660e\u4e86\u5e94\u5982\u4f55\u7f16\u5199 Ada \u7a0b\u5e8f\u3002\u672c\u6587\u670d\u52a1\u7684\u5bf9\u8c61\u662f\u6240\u6709\u5c06 Ada \u4f5c\u4e3a\u5b9e\u65bd\u8bed\u8a00\u6216\u8005\u4e00\u79cd\u8bf4\u660e\u63a5\u53e3\u6216\u6570\u636e\u7ed3\u6784\u7684\u8bbe\u8ba1\u8bed\u8a00\u7684\u5e94\u7528\u8f6f\u4ef6\u8bbe\u8ba1\u8005\u548c\u5f00\u53d1\u8005\u3002<\/p>\n\u6587\u4e2d\u6240\u63cf\u8ff0\u7684\u89c4\u5219\u56ca\u62ec\u4e86\u7a0b\u5e8f\u8bbe\u8ba1\u7684\u5927\u90e8\u5206\u65b9\u9762\u3002\u901a\u7528\u89c4\u5219\u9002\u7528\u4e8e\u7a0b\u5e8f\u5e03\u5c40\u3001\u547d\u540d\u7ea6\u5b9a\u548c\u6ce8\u91ca\u5e94\u7528\u3002\u7279\u6b8a\u89c4\u5219\u9002\u7528\u4e8e\u9009\u5b9a\u7684 Ada \u7279\u6027\uff0c\u5e76\u8bf4\u660e\u4e86\u7981\u7528\u6784\u9020\u3001\u63a8\u8350\u4f7f\u7528\u6a21\u5f0f\u548c\u7528\u4ee5\u63d0\u9ad8\u7a0b\u5e8f\u8d28\u91cf\u7684\u901a\u7528\u6280\u5de7\u3002<\/p>\n
\u9879\u76ee\u7684\u8bbe\u8ba1<\/em>\u6307\u5357\u548c\u5f53\u524d\u7684\u7f16\u7a0b<\/em>\u6307\u5357\u6709\u4e00\u5b9a\u7684\u91cd\u590d\uff0c\u662f\u6709\u610f\u8fd9\u6837\u505a\u7684\u3002\u4ecb\u7ecd\u7684\u8bb8\u591a\u7a0b\u5e8f\u8bbe\u8ba1\u89c4\u5219\uff0c\u5c24\u5176\u662f\u5728\u547d\u540d\u7ea6\u5b9a<\/em>\u4e2d\u7684\u89c4\u5219\uff0c\u7528\u4e8e\u79ef\u6781\u652f\u6301\u548c\u52a0\u5f3a\u8f6f\u4ef6\u8bbe\u8ba1\u4e2d\u7684\u9762\u5411\u5bf9\u8c61<\/em>\u65b9\u5f0f\u3002<\/p>\n\u6307\u5357\u6700\u521d\u7528\u4e8e Ada 83\u3002\u5b83\u542b\u6709\u4e0e Ada 95 \u517c\u5bb9\u7684\u89c4\u5219\uff0c\u4f46\u4e0d\u542b\u6709\u6539\u7248\u540e\u8bed\u8a00\u6807\u51c6\u65b0\u7279\u6027\u7684\u4f7f\u7528\u6307\u5357\uff0c\u4f8b\u5982\u6807\u8bc6\u7c7b\u578b\u3001\u5b50\u5355\u5143\u6216\u5c0f\u6570\u7c7b\u578b\u3002<\/p>\n
\u6587\u6863\u5927\u81f4\u6309\u7167 Ada Reference Manual \u7684\u7ed3\u6784\u6765\u7ec4\u7ec7 [ISO 8052]<\/a>\u3002<\/p>\n\u7b2c\u4e8c\u7ae0\u201c\u7b80\u4ecb<\/em>\u201d\u89e3\u91ca\u4e86\u6307\u5357\u6240\u57fa\u4e8e\u7684\u57fa\u672c\u539f\u7406\u5e76\u4ecb\u7ecd\u4e86\u6307\u5357\u5206\u7c7b\u3002<\/p>\n\u7b2c\u4e09\u7ae0\u201c\u4ee3\u7801\u5e03\u5c40<\/em>\u201d\u8bb2\u8ff0\u4e86\u7a0b\u5e8f\u6587\u672c\u7684\u4e00\u822c\u89c6\u89c9\u7ec4\u7ec7\u7ed3\u6784\u3002<\/p>\n\u7b2c\u56db\u7ae0\u201c\u6ce8\u91ca<\/em>\u201d\u7ed9\u51fa\u4e86\u5982\u4f55\u7528\u7ed3\u6784\u5316\u7684\u3001\u53ef\u7528\u7684\u548c\u53ef\u7ef4\u62a4\u7684\u65b9\u5f0f\u6765\u6ce8\u91ca\u8bf4\u660e\u4ee3\u7801\u3002<\/p>\n\u7b2c\u4e94\u7ae0\u201c\u547d\u540d\u7ea6\u5b9a<\/em>\u201d\u7ed9\u51fa\u6709\u5173\u547d\u540d\u8bed\u8a00\u5b9e\u4f53\u7684\u4e00\u822c\u89c4\u5219\u548c\u8303\u4f8b\u3002\u8fd9\u4e00\u7ae0\u7684\u5185\u5bb9\u5e94\u518d\u7ecf\u4fee\u6539\uff0c\u4ee5\u6ee1\u8db3\u7279\u5b9a\u9879\u76ee\u6216\u673a\u6784\u7684\u9700\u8981\u3002<\/p>\n\u7b2c\u516d\u7ae0\u201c\u58f0\u660e<\/em>\u201d\u548c\u7b2c\u4e03\u7ae0\u201c\u8868\u8fbe\u5f0f\u548c\u8bed\u53e5<\/em>\u201d\u5bf9\u6bcf\u79cd\u8bed\u8a00\u7ed3\u6784\u7ed9\u51fa\u4e86\u8fdb\u4e00\u6b65\u7684\u5efa\u8bae\u3002<\/p>\n\u7b2c\u516b\u7ae0\u201c\u53ef\u89c6\u6027\u95ee\u9898<\/em>\u201d\u548c\u7b2c\u4e5d\u7ae0\u201c\u7a0b\u5e8f\u7ed3\u6784\u548c\u7f16\u8bd1\u95ee\u9898<\/em>\u201d\u7ed9\u51fa\u4e86\u6709\u5173\u5168\u5c40\u6784\u5efa\u548c\u7a0b\u5e8f\u7ec4\u6210\u7684\u6307\u5bfc\u3002<\/p>\n\u7b2c\u5341\u7ae0\u201c\u5e76\u884c<\/em>\u201d\u5904\u7406\u8bed\u8a00\u4e2d\u6709\u5173\u4f7f\u7528\u4efb\u52a1\u548c\u65f6\u95f4\u76f8\u5173\u7279\u6027\u7684\u4e13\u95e8\u95ee\u9898\u3002<\/p>\n\u7b2c\u5341\u4e00\u7ae0\u201c\u9519\u8bef\u5904\u7406\u548c\u5f02\u5e38<\/em>\u201d\u7ed9\u51fa\u5982\u4f55\u7cfb\u7edf\u5730\u3001\u7b80\u4fbf\u5730\u4f7f\u7528\u6216\u4e0d\u4f7f\u7528\u5f02\u5e38\u6765\u5904\u7406\u9519\u8bef\u3002<\/p>\n\u7b2c\u5341\u4e8c\u7ae0\u201c\u4f4e\u7ea7\u7f16\u7a0b<\/em>\u201d\u5904\u7406\u8868\u793a\u5b50\u53e5\u7684\u95ee\u9898\u3002<\/p>\n\u7b2c\u5341\u4e09\u7ae0\u201c\u603b\u7ed3<\/em>\u201d\u627c\u8981\u590d\u8ff0\u4e86\u6700\u4e3a\u91cd\u8981\u7684\u6307\u5bfc\u65b9\u9488\u3002<\/p>\n\u672c\u6587\u6863\u53d6\u4ee3\u4e86 Ada Guidelines: Recommendation for Designers and programmers<\/em> \u4e2d\u7684 Application Note #15, Rational, Santa Clara, CA., 1990\u3002<\/p>\n
\n<\/a>\u7b2c\u4e8c\u7ae0<\/em><\/h2>\n\u7b80\u4ecb<\/h1>\n\u57fa\u672c\u539f\u5219<\/h2>\n
Ada \u8bed\u8a00\u7684\u8bbe\u8ba1\u5f88\u6709\u9488\u5bf9\u6027\u7684\u76ee\u7684\u5c31\u662f\u652f\u6301\u9ad8\u8d28\u91cf\u3001\u53ef\u9760\u3001\u53ef\u590d\u7528\u548c\u53ef\u79fb\u690d\u8f6f\u4ef6 [ISO 87, sect. 1.3]<\/a>\u3002\u7136\u800c\uff0c\u6ca1\u6709\u54ea\u4e00\u79cd\u8bed\u8a00\u4ec5\u9760\u5176\u672c\u8eab\u5c31\u53ef\u4ee5\u5b9e\u73b0\u4e0a\u8ff0\u76ee\u6807\u3002\u7a0b\u5e8f\u8bbe\u8ba1\u5fc5\u987b\u662f\u4e00\u4e2a\u6709\u826f\u597d\u89c4\u8303\u7684\u8fc7\u7a0b\u7684\u4e00\u90e8\u5206\u3002<\/p>\n\u6e05\u695a\u660e\u767d\u7684 Ada \u6e90\u4ee3\u7801\u662f\u672c\u6587\u4e2d\u5927\u591a\u6570\u6307\u5bfc\u65b9\u9488\u7684\u4e3b\u8981\u76ee\u6807\u3002\u8fd9\u4e00\u70b9\u662f\u5b9e\u73b0\u53ef\u9760\u6027\u548c\u53ef\u7ef4\u62a4\u6027\u7684\u4e3b\u8981\u56e0\u7d20\u3002\u6240\u8c13\u6e05\u695a\u660e\u767d\u7684\u4ee3\u7801\u53ef\u4ee5\u4ece\u4ee5\u4e0b\u4e09\u6761\u7b80\u5355\u7684\u57fa\u672c\u539f\u5219\u4e0a\u6765\u7406\u89e3\u3002<\/p>\n
\u6700\u5c0f\u9650\u5ea6\u7684\u610f\u5916<\/h3>\n
\u5728\u5176\u751f\u547d\u671f\u5185\uff0c\u4ee3\u7801\u66f4\u591a\u5730\u662f\u88ab\u8bfb\uff0c\u800c\u4e0d\u662f\u88ab\u5199\uff0c\u5c24\u5176\u662f\u5b83\u7684\u8bf4\u660e\u90e8\u5206\u3002\u7406\u60f3\u60c5\u51b5\u4e0b\uff0c\u4ee3\u7801\u8bfb\u8d77\u6765\u5e94\u8be5\u8c61\u4e00\u7bc7\u8bf4\u660e\u5b83\u505a\u4e86\u4ec0\u4e48\u7684\u82f1\u6587\u63cf\u8ff0\uff0c\u5b83\u5177\u6709\u4e00\u4e2a\u9644\u52a0\u4f18\u70b9\u662f\u53ef\u4ee5\u6267\u884c\u3002 \u7a0b\u5e8f\u66f4\u591a\u662f\u4e3a\u4eba\u7f16\u5199\uff0c\u800c\u4e0d\u662f\u4e3a\u8ba1\u7b97\u673a\u7f16\u5199\u3002\u9605\u8bfb\u7f16\u7801\u662f\u4e00\u4e2a\u590d\u6742\u7684\u8111\u529b\u8fc7\u7a0b\uff0c\u5b83\u53ef\u901a\u8fc7\u7edf\u4e00\u6807\u51c6\u6765\u7b80\u5316\uff0c\u5728\u672c\u6587\u4e2d\u8fd9\u4e00\u6307\u5bfc\u4e5f\u53eb\u201c\u6700\u5c0f\u9650\u5ea6\u610f\u5916\u539f\u5219<\/em>\u201d\u3002\u6574\u4e2a\u9879\u76ee\u4e2d\u7edf\u4e00\u6837\u5f0f\u662f\u8f6f\u4ef6\u5f00\u53d1\u56e2\u961f\u5728\u7f16\u7a0b\u6807\u51c6\u4e0a\u8fbe\u6210\u4e00\u81f4\u7684\u4e3b\u8981\u539f\u56e0\uff0c\u5b83\u4e0d\u5e94\u89c6\u4e3a\u4e00\u79cd\u60e9\u7f5a\u6216\u5bf9\u521b\u9020\u6027\u548c\u751f\u4ea7\u529b\u7684\u963b\u788d\u3002<\/p>\n\u5355\u70b9\u7ef4\u62a4<\/h3>\n
\u8fd9\u4e00\u6307\u5bfc\u6240\u57fa\u4e8e\u7684\u53e6\u4e00\u4e2a\u91cd\u8981\u539f\u5219\u662f\u5355\u70b9\u7ef4\u62a4\u539f\u5219<\/em>\u3002\u5e94\u5c3d\u91cf\u4f7f\u8bbe\u8ba1\u51b3\u7b56\u53ea\u5728 Ada \u6e90\u7801\u4e2d\u7684\u4e00\u5904\u8868\u8ff0\uff0c\u5b83\u7684\u591a\u6570\u7ed3\u8bba\u5e94\u7a0b\u5e8f\u5316\u5730\u4ece\u8be5\u5904\u6d3e\u751f\u51fa\u6765\u3002\u4e0d\u9075\u5b88\u8fd9\u4e00\u539f\u5219\u4f1a\u4e25\u91cd\u5f71\u54cd\u4ee3\u7801\u7684\u53ef\u7ef4\u62a4\u6027\u3001\u53ef\u9760\u6027\u548c\u53ef\u7406\u89e3\u6027\u3002<\/p>\n\u6700\u5c0f\u9650\u5ea6\u7684\u5e72\u6270<\/h3>\n
\u6700\u540e\uff0c\u4f5c\u4e3a\u6613\u8bfb\u6027\u7684\u4e3b\u8981\u4f5c\u7528\u56e0\u7d20\uff0c\u91c7\u7528\u6700\u5c0f\u5e72\u6270\u539f\u5219<\/em>\u3002\u5373\u907f\u514d\u5c06\u6e90\u4ee3\u7801\u4e0e\u89c6\u89c9\u201c\u5e72\u6270\u201d\u76f8\u6df7\u5408\uff1a\u5373\u680f\u3001\u6846\u4ee5\u53ca\u5176\u5b83\u4f4e\u4fe1\u606f\u91cf\u7684\u6587\u672c\u6216\u662f\u5bf9\u7406\u89e3\u8f6f\u4ef6\u529f\u80fd\u6ca1\u6709\u5e2e\u52a9\u7684\u4fe1\u606f\u3002<\/p>\n\u53ef\u79fb\u690d\u6027\u548c\u53ef\u590d\u7528\u6027\u4e5f\u662f\u5236\u5b9a\u8bb8\u591a\u6307\u5bfc\u65b9\u9488\u7684\u539f\u7531\u3002\u4ee3\u7801\u5e94\u53ef\u79fb\u690d\u5230\u4e0d\u540c\u76ee\u6807\u8ba1\u7b97\u673a\u7684\u51e0\u4e2a\u4e0d\u540c\u7f16\u8bd1\u5668\u4e0a\uff0c\u5e76\u6700\u7ec8\u79fb\u690d\u5230\u4e00\u4e2a\u66f4\u9ad8\u7ea7\u7684 Ada \u7248\u672c\u201cAda 95\u201d\u4e0a [PLO92,<\/a> TAY92]<\/a>\u3002<\/p>\n<\/a>\u5047\u8bbe<\/h2>\n\u8fd9\u91cc\u7684\u6307\u5bfc\u65b9\u9488\u6709\u51e0\u4e2a\u57fa\u672c\u5047\u8bbe\uff1a<\/p>\n
\u8bfb\u8005\u4e86\u89e3 Ada\u3002<\/h3>\n
\u5e94\u9f13\u52b1\u5728\u4efb\u4f55\u53ef\u5e26\u6765\u597d\u5904\u7684\u5730\u65b9\u4f7f\u7528 Ada \u7684\u9ad8\u7ea7\u7279\u6027\uff0c\u800c\u4e0d\u8981\u4ec5\u4ec5\u56e0\u4e3a\u4e00\u4e9b\u7a0b\u5e8f\u5458\u4e0d\u719f\u6089\u5b83\u4eec\u800c\u53cd\u5bf9\u91c7\u7528\u3002 \u8fd9\u662f\u9879\u76ee\u80fd\u4ece\u4f7f\u7528 Ada \u4e2d\u771f\u6b63\u83b7\u76ca\u7684\u552f\u4e00\u65b9\u5f0f\u3002Ada \u4e0d\u5e94\u8c61 Pascal \u6216 FORTRAN \u8bed\u8a00\u90a3\u6837\u4f7f\u7528\u3002\u4e0d\u9f13\u52b1\u5728\u6ce8\u91ca\u4e2d\u89e3\u91ca\u4ee3\u7801\uff1b\u76f8\u53cd\uff0cAda \u672c\u8eab\u5e94\u5c3d\u53ef\u80fd\u5730\u53d6\u4ee3\u6ce8\u91ca\u3002<\/p>\n
\u8bfb\u8005\u61c2\u82f1\u6587\u3002<\/h3>\n
\u8bb8\u591a\u547d\u540d\u7ea6\u5b9a\u5728\u8bcd\u6c47\u548c\u8bed\u6cd5\u4e0a\u57fa\u4e8e\u82f1\u6587\u3002\u6b64\u5916\uff0c Ada \u7684\u5173\u952e\u5b57\u90fd\u662f\u5e38\u7528\u7684\u82f1\u8bed\u5355\u8bcd\u3002\u5c06\u5176\u4e0e\u5176\u5b83\u8bed\u8a00\u6df7\u5408\u5c06\u964d\u4f4e\u4ee3\u7801\u7684\u6613\u8bfb\u6027\u3002<\/p>\n
\u4e25\u683c\u9650\u5236\u4f7f\u7528\u5b50\u53e5 (use clause) \u7684\u8fd0\u7528\u3002<\/h3>\n
\u547d\u540d\u7ea6\u5b9a\u548c\u5176\u5b83\u4e00\u4e9b\u89c4\u5219\u5047\u5b9a\u201cuse\u201d\u5b50\u53e5\u4e0d\u88ab\u8fd0\u7528\u3002<\/p>\n
\u5904\u7406\u7684\u662f\u4e00\u4e2a\u5927\u9879\u76ee\u3002<\/h3>\n
\u8bb8\u591a\u89c4\u5219\u5728\u5927\u578b\u9879\u76ee\u4e2d\u6700\u6709\u4ef7\u503c\uff0c\u867d\u7136\u51fa\u4e8e\u9879\u76ee\u7ea7\u6216\u516c\u53f8\u7ea7\u5b9e\u73b0\u548c\u7edf\u4e00\u7684\u76ee\u7684\uff0c\u5b83\u4eec\u4e5f\u5728\u5c0f\u578b\u7cfb\u7edf\u4e2d\u4f7f\u7528\u3002<\/p>\n
\u6e90\u7801\u5728\u201cRational \u73af\u5883\u201d (Rational Environment) \u4e2d\u5f00\u53d1\u3002<\/h3>\n
\u901a\u8fc7\u8fd0\u7528\u201cRational \u73af\u5883\u201d (Rational Environment)\uff0c\u4e00\u4e9b\u95ee\u9898\u5982\u4ee3\u7801\u5e03\u5c40\u3001\u5c01\u95ed\u6784\u9020\u4e2d\u7684\u6807\u8bc6\u7b26\u7b49\u5c31\u5728 Ada \u7f16\u8f91\u5668\u548c\u683c\u5f0f\u5668\u4e2d\u5904\u7406\u4e86\u3002 \u4f46\u662f\u672c\u6587\u4e2d\u7684\u5e03\u5c40\u5efa\u8bae\u9002\u7528\u4e8e\u4efb\u4f55\u5f00\u53d1\u5e73\u53f0\u3002<\/p>\n
\u7a0b\u5e8f\u8bbe\u8ba1\u9075\u5faa\u9762\u5411\u5bf9\u8c61\u7684\u65b9\u6cd5\u3002<\/h3>\n
\u8bb8\u591a\u89c4\u5219\u652f\u6301\u5c06 Ada \u7279\u6027\u548c\u7279\u5b9a\u547d\u540d\u7ea6\u5b9a\u7684\u9762\u5411\u5bf9\u8c61 (OO) \u6982\u5ff5\u7684\u7cfb\u7edf\u6620\u5c04\u3002<\/p>\n
<\/a>\u6307\u5357\u5206\u7c7b<\/h2>\n\u8fd9\u4e9b\u6307\u5bfc\u65b9\u9488\u5e76\u975e\u540c\u7b49\u91cd\u8981\u3002\u5b83\u4eec\u5927\u81f4\u9075\u5faa\u4ee5\u4e0b\u7684\u7b49\u7ea7\uff1a<\/p>\n
\u63d0\u793a\uff1a<\/h3>\n
\u8be5\u6307\u5bfc\u65b9\u9488\u4ec5\u662f\u4e00\u6761\u7b80\u5355\u7684\u5efa\u8bae\uff1b\u4e0d\u9075\u5b88\u5b83\u4e5f\u4e0d\u4f1a\u6709\u4ec0\u4e48\u5b9e\u8d28\u6027\u7684\u635f\u5bb3\uff0c\u91c7\u7528\u6216\u662f\u4e0d\u91c7\u7528\u5b83\u4eec\u4ec5\u662f\u4e2a\u4eba\u559c\u597d\u95ee\u9898\u3002\u6587\u4e2d\u7684\u63d0\u793a\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u5efa\u8bae\uff1a<\/h3>\n
\u8be5\u6307\u5bfc\u65b9\u9488\u901a\u5e38\u66f4\u591a\u5730\u57fa\u4e8e\u6280\u672f\u7684\u89c2\u70b9\uff1b\u5b83\u53ef\u80fd\u4f1a\u5f71\u54cd\u5230\u4ee3\u7801\u7684\u53ef\u79fb\u690d\u6027\u6216\u53ef\u590d\u7528\u6027\uff0c\u5e76\u5728\u4e00\u4e9b\u5b9e\u65bd\u4e2d\u5f71\u54cd\u6027\u80fd\u3002 \u9664\u975e\u6709\u5408\u9002\u7684\u7406\u7531\uff0c\u5426\u5219\u5fc5\u987b\u9075\u5b88\u5efa\u8bae\u3002\u6587\u4e2d\u63d0\u5230\u4e00\u4e9b\u4f8b\u5916\u7684\u60c5\u51b5\u3002\u6587\u4e2d\u7684\u5efa\u8bae\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u9650\u5236\uff1a<\/h3>\n
\u6709\u7591\u95ee\u7684\u7279\u6027\u4f7f\u7528\u8d77\u6765\u5371\u9669\uff0c\u4f46\u5b83\u5e76\u4e0d\u88ab\u5b8c\u5168\u7981\u6b62\uff1b\u5e94\u7528\u8be5\u7279\u6027\u7684\u51b3\u5b9a\u5e94\u5728\u9879\u76ee\u7ea7\u4e0a\u505a\u51fa\uff0c\u5e76\u4e14\u51b3\u5b9a\u5e94\u8be5\u662f\u9ad8\u5ea6\u53ef\u89c1\u7684\u3002\u6587\u4e2d\u7684\u9650\u5236\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u8981\u6c42\uff1a<\/h3>\n
\u8fdd\u80cc\u5b83\u5b9a\u5c06\u5bfc\u81f4\u4e0d\u597d\u7684\u3001\u4e0d\u53ef\u9760\u7684\u6216\u662f\u4e0d\u53ef\u79fb\u690d\u7684\u4ee3\u7801\u3002 \u8981\u6c42\u4e0d\u53ef\u8fdd\u80cc\u3002\u6587\u4e2d\u7684\u8981\u6c42\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u201cRational \u8bbe\u8ba1\u5de5\u5177\u201d (Rational Design Facility) \u5c06\u7528\u6765\u51cf\u5c11\u53d7\u9650\u7279\u6027\u7684\u4f7f\u7528\u5e76\u52a0\u5f3a\u5fc5\u9700\u6cd5\u5219\u548c\u8bb8\u591a\u5efa\u8bae\u7684\u8fd0\u7528\u3002<\/p>\n
\u4e0e\u8bb8\u591a\u5176\u5b83\u7684 Ada \u7a0b\u5e8f\u8bbe\u8ba1\u6807\u51c6\u4e0d\u540c\u7684\u662f\uff1a\u4e8b\u5b9e\u4e0a\uff0c\u8fd9\u4e9b\u6307\u5bfc\u65b9\u9488\u4e2d\u53ca\u5c11\u6709\u5b8c\u5168\u7981\u7528\u7684\u3002\u597d\u7684\u8f6f\u4ef6\u7684\u5173\u952e\u5728\u4e8e\uff1a<\/p>\n
\n- \u4e86\u89e3\u6bcf\u79cd\u7279\u6027\uff0c\u4e86\u89e3\u5b83\u7684\u5c40\u9650\u548c\u53ef\u80fd\u7684\u5371\u9669<\/li>\n
- \u51c6\u786e\u4e86\u89e3\u8fd9\u79cd\u7279\u6027\u5728\u4f55\u79cd\u573a\u5408\u53ef\u4ee5\u5b89\u5168\u4f7f\u7528<\/li>\n
- \u8ba9\u4f7f\u7528\u8be5\u7279\u6027\u7684\u51b3\u7b56\u9ad8\u5ea6\u53ef\u89c1<\/li>\n
- \u5341\u5206\u5c0f\u5fc3\u8c28\u614e\u5730\u5728\u9002\u5f53\u5904\u4f7f\u7528\u8be5\u7279\u6027\u3002<\/li>\n<\/ul>\n
<\/a>\u6700\u6839\u672c\u7684\u539f\u5219<\/h2>\n\u4f7f\u7528\u5e38\u8bc6\u3002<\/p>\n
\u5f53\u65e0\u6cd5\u627e\u5230\u53ef\u7528\u7684\u89c4\u5219\u6216\u6307\u5357\uff0c\u5f53\u89c4\u5219\u660e\u663e\u4e0d\u9002\u7528\uff0c\u5f53\u5176\u5b83\u4e00\u5207\u90fd\u5931\u8d25\u65f6\uff1a\u4f7f\u7528\u5e38\u8bc6\uff0c\u5e76\u6838\u67e5\u57fa\u672c\u539f\u5219\u3002\u8fd9\u6761\u6cd5\u5219\u51cc\u9a7e\u4e8e\u5176\u5b83\u6240\u6709\u6cd5\u5219\u4e4b\u4e0a\u3002\u5e38\u8bc6\u662f\u5fc5\u4e0d\u53ef\u5c11\u7684<\/em>\u3002<\/p>\n
\n<\/a>\u7b2c\u4e09\u7ae0<\/em><\/h2>\n\u4ee3\u7801\u5e03\u5c40<\/h1>\n\u6982\u8ff0<\/h2>\n
\u4e00\u4e2a\u7a0b\u5e8f\u5355\u5143\u7684\u5e03\u5c40\u5b8c\u5168\u5728\u201cRational \u73af\u5883\u683c\u5f0f\u5668\u201d (Rational Environment Formatter) \u7684\u63a7\u5236\u4e4b\u4e0b\uff0c\u9664\u4e86\u5728\u6ce8\u91ca\u548c\u7a7a\u767d\u5904\u5185\uff0c\u7a0b\u5e8f\u5458\u4e0d\u5fc5\u8fc7\u591a\u62c5\u5fc3\u7a0b\u5e8f\u7684\u5e03\u5c40\u3002\u8fd9\u4e2a\u5de5\u5177\u6240\u91c7\u7528\u7684\u683c\u5f0f\u7ea6\u5b9a\u5728 Reference Manual for the Ada Programming Language \u7684 Appendix E \u4e2d\u8868\u8ff0 [ISO87]<\/a>\u3002 \u7279\u522b\u662f\uff0c\u4ed6\u4eec\u5efa\u8bae\u7ed3\u6784\u5316\u6784\u9020\u7684\u5f00\u59cb\u548c\u7ed3\u675f\u5904\u7684\u5173\u952e\u5b57\u5e94\u5782\u76f4\u5bf9\u9f50\u3002\u4e00\u4e2a\u6784\u9020\u7684\u6807\u8bc6\u7b26\u4e5f\u5e94\u7cfb\u7edf\u6027\u5730\u5728\u6784\u9020\u7684\u672b\u5c3e\u91cd\u590d\u3002<\/p>\n\u683c\u5f0f\u5668\u7684\u786e\u5207\u884c\u4e3a\u7531\u4e00\u7cfb\u5217\u7684\u5e93\u5f00\u5173<\/em>\u5728\u4e00\u4e2a\u901a\u7528\u6a21\u578b\u4e16\u754c (model world) \u57fa\u7840\u4e0a\u63a7\u5236\uff0c\u8fd9\u4e9b\u5e93\u5f00\u5173\u5728\u6574\u4e2a\u9879\u76ee\u8fc7\u7a0b\u4e2d\u63a5\u6536\u4e00\u5957\u7edf\u4e00\u7684\u503c\u3002\u76f8\u5173\u7684\u5f00\u5173\u4ee5\u53ca\u5b83\u4eec\u5728\u6211\u4eec\u6240\u5efa\u8bae\u7684\u6a21\u578b\u4e16\u754c<\/em>\u4e2d\u7684\u901a\u7528\u503c\u5217\u8868\u5982\u4e0b\u3002<\/p>\n<\/a>\u5b57\u6bcd\u5927\u5c0f\u5199<\/h2>\nFormat .Id_Case : Letter_Case := Capitalized<\/h3>\n
\u8be6\u7ec6\u8bf4\u660e Ada \u5355\u5143\u4e2d\u6807\u8bc6\u7b26\u7684\u5b57\u6bcd\u5927\u5c0f\u5199\uff1a\u6700\u5f00\u59cb\u7684\u5b57\u6bcd\u4ee5\u53ca\u6bcf\u4e2a\u4e0b\u5212\u7ebf\u4e4b\u540e\u7684\u7b2c\u4e00\u4e2a\u5b57\u6bcd\u7528\u5927\u5199\u3002\u5927\u5199\u662f\u8bfb\u8005\u6700\u6613\u8bfb\u7684\u5f62\u5f0f\uff0c\u5177\u6709\u4f17\u591a\u73b0\u4ee3\u5c4f\u5e55\u548c\u6fc0\u5149\u6253\u5370\u673a\u5b57\u4f53\u3002<\/p>\n
Format .Keyword_Case : Letter_Case := Lower<\/h3>\n
\u8bf4\u660e Ada \u5173\u952e\u5b57\u7684\u5927\u5c0f\u5199\u3002\u8fd9\u5c06\u5b83\u4eec\u4e0e\u6807\u8bc6\u7b26\u7565\u5fae\u533a\u5206\u5f00\u6765\u3002<\/p>\n
Format .Number_Case : Letter_Case := Upper<\/h3>\n
\u8bf4\u660e\u6d6e\u70b9\u76f4\u63a5\u91cf\u4e2d\u5b57\u6bcd\u201cE\u201d\u548c\u57fa\u672c\u76f4\u63a5\u91cf\u4e2d\u57fa\u672c\u6570\u5b57\uff08\u201cA\u201d \u5230 \u201cF\u201d\uff09\u7684\u5927\u5c0f\u5199\u3002<\/p>\n
<\/a>\u7f29\u8fdb<\/h2>\n\u4e00\u4e2a Ada \u5355\u5143\u6309\u7167 Ada Reference Manual \u4e2d Appendix E \u6240\u8bf4\u7684\u4e00\u822c\u7ea6\u5b9a\u6765\u7f16\u6392\u683c\u5f0f [ISO87]<\/a>\u3002\u8fd9\u5c31\u662f\u8bf4\uff0c\u4e00\u4e2a\u7ed3\u6784\u5316\u6784\u9020\u7684\u5f00\u59cb\u548c\u7ed3\u675f\u5904\u7684\u5173\u952e\u5b57\u5e94\u8be5\u5bf9\u9f50\u3002 \u4f8b\u5982\uff0c\u201cloop\u201d\u548c\u201cend loop\u201d\uff0c\u201crecord\u201d\u548c\u201cend record\u201d\u3002\u5728\u7ed3\u6784\u5316\u6784\u9020\u5185<\/em>\u7684\u5355\u5143\u5e94\u5411\u53f3\u7f29\u8fdb<\/em>\u3002<\/p>\nFormat .Major_Indentation : Indent_Range := 3<\/h3>\n
\u8bf4\u660e\u683c\u5f0f\u5668\u4ee4\u5982\u201cif\u201d\u8bed\u53e5\u3001\u201ccase\u201d\u8bed\u53e5\u548c\u201cloop\u201d\u8bed\u53e5\u8fd9\u6837\u7684\u7ed3\u6784\u5316\uff08\u4e3b\u8981\u7684\uff09\u6784\u9020\u7f29\u8fdb\u7684\u5217\u6570\u3002<\/p>\n
Format .Minor_Indentation : Indent_Range := 2<\/h3>\n
\u8bf4\u660e\u683c\u5f0f\u5668\u4f7f\u6b21\u8981\u6784\u9020\u7f29\u8fdb\u7684\u5217\u6570\uff1a \u8bb0\u5f55\u7684\u58f0\u660e\u3001\u53d8\u4f53\u8bb0\u5f55\u7684\u58f0\u660e\u3001\u7c7b\u578b\u7684\u58f0\u660e\u3001\u5f02\u5e38\u5904\u7406\u3001\u9009\u62e9\u8bed\u53e5\u3001case \u8bed\u53e5\u3001\u547d\u540d\u548c\u6807\u5fd7\u8bed\u53e5\u3002<\/p>\n
<\/a>\u884c\u7684\u957f\u5ea6\u548c\u884c\u7684\u5206\u9694<\/h2>\nFormat .Line_Length : Line_Range := 80<\/h3>\n
\u8bf4\u660e\u6362\u884c\u524d\u683c\u5f0f\u5668\u663e\u793a Ada \u5355\u5143\u4e2d\u7684\u884c\u6240\u91c7\u7528\u7684\u5217\u6570\u3002\u8fd9\u4f7f\u5f97\u683c\u5f0f\u5316\u7684\u5355\u5143\u53ef\u7528\u4f20\u7edf\u7684 VT100 \u7c7b\u7ec8\u7aef\u663e\u793a\u3002<\/p>\n
Format .Statement_Indentation : Indent_Range := 3<\/h3>\n
\u8bf4\u660e\u5f53\u4e00\u6761\u8bed\u53e5\u957f\u4e8e Line_Length\uff0c\u5fc5\u987b\u8981\u65ad\u5f00\u65f6\uff0c\u683c\u5f0f\u5668\u5e94\u4f7f\u7b2c\u4e8c\u884c\u548c\u540e\u7eed\u884c\u7f29\u8fdb\u591a\u5c11\u5217\u3002\u53ea\u6709\u5f53\u4e0d\u5b58\u5728\u8bcd\u6cd5\u6784\u9020\u53ef\u8ba9\u7f29\u8fdb\u7684\u4ee3\u7801\u5bf9\u9f50\u65f6\uff0c\u683c\u5f0f\u5668\u624d\u4ee4\u4ee3\u7801\u7f29\u8fdb Statement_Indentation \u4e2a\u5217\u3002<\/p>\n
Format .Statement_Length : Line_Range := 35<\/h3>\n
\u8bf4\u660e\u5f53\u663e\u793a\u4e00\u4e2a\u8bed\u53e5\u65f6\uff0c\u6bcf\u884c\u6240\u4fdd\u7559\u7684\u5217\u6570\u3002 \u5982\u679c\u5f53\u524d\u7f29\u8fdb\u7a0b\u5ea6\u6240\u5141\u8bb8\u7684\u4e00\u884c\u4e2d\u7684\u5217\u6570\u5c0f\u4e8e Statement_Length\uff0c\u90a3\u4e48\u683c\u5f0f\u5668\u5c06 Wrap_Indentation \u4f5c\u4e3a\u65b0\u7684\u7f29\u8fdb\u7a0b\u5ea6\u3002\u6b64\u6cd5\u53ef\u9632\u6b62\u5d4c\u5957\u592a\u6df1\u7684\u8bed\u53e5\u663e\u793a\u65f6\u8d85\u51fa\u53f3\u8fb9\u754c\u3002<\/p>\n
Format .Wrap_Indentation : Line_Range := 16<\/h3>\n
\u8bf4\u660e\u5f53\u524d\u7684\u7f29\u8fdb\u7a0b\u5ea6\u4e0d\u4e0d\u8db3 Statement_Length \u65f6\uff0c\u683c\u5f0f\u5668\u5728\u4e0b\u4e00\u884c\u5f00\u5934\u5904\u5e94\u7f29\u8fdb\u7684\u5217\u6570\u3002\u6b64\u6cd5\u53ef\u9632\u6b62\u5d4c\u5957\u592a\u6df1\u7684\u8bed\u53e5\u663e\u793a\u65f6\u8d85\u51fa\u53f3\u8fb9\u754c\u3002<\/p>\n
<\/a>\u5bf9\u9f50<\/h2>\nFormat .Consistent_Breaking : Integer := 1<\/h3>\n
\u63a7\u5236\u5f62\u5982 (xxx:aaa; yyy:bbb) \u7684\u5217\u8868\u683c\u5f0f\uff0c\u8be5\u5217\u8868\u51fa\u73b0\u5728\u5b50\u7a0b\u5e8f\u7684\u5f62\u53c2\u8bf4\u660e\u5904\u548c\u7c7b\u578b\u58f0\u660e\u4e2d\u7684\u5224\u522b\u5f0f\u5904\u3002\u5b83\u4e5f\u63a7\u5236\u5f62\u5982 (xxx=>aaa, yyy=>bbb) \u7684\u5217\u8868\u7684\u683c\u5f0f\uff0c\u8be5\u5217\u8868\u51fa\u73b0\u5728\u5b50\u7a0b\u5e8f\u8c03\u7528\u548c\u805a\u96c6\u5904\u3002\u56e0\u4e3a\u8be5\u9009\u9879\u975e\u96f6\uff08\u771f\uff09\uff0c\u6240\u4ee5\u5f53\u4e00\u4e2a\u5217\u8868\u65e0\u6cd5\u5728\u4e00\u884c\u4e2d\u88c5\u4e0b\u65f6\uff0c\u5217\u8868\u4e2d\u7684\u6bcf\u4e00\u4e2a\u5143\u7d20\u90fd\u5360\u7528\u65b0\u7684\u4e00\u884c\u3002<\/p>\n
Format .Alignment_Threshold : Line_Range := 20<\/h3>\n
\u8bf4\u660e\u4e3a\u4f7f\u8fde\u7eed\u8bed\u53e5\u4e2d\u7684\u8bcd\u6cd5\u6784\u9020\u5bf9\u9f50\uff08\u5982\u547d\u540d\u7b26\u53f7\u4e2d\u7684\u5192\u53f7\u3001\u8d4b\u503c\u53f7\u548c\u7bad\u5934\uff09\uff0c\u683c\u5f0f\u5668\u53ef\u63d2\u5165\u7684\u7a7a\u683c\u6570\u3002\u5982\u679c\u5bf9\u9f50\u4e00\u4e2a\u6784\u9020\u6240\u9700\u7684\u7a7a\u683c\u6570\u591a\u4e8e\u8fd9\u4e2a\u6570\uff0c\u90a3\u4e48\u6784\u9020\u4e0d\u88ab\u5bf9\u9f50\u3002<\/p>\n
\u8981\u6ce8\u610f\u7684\u662f\uff0c\u4e3a\u4e86\u5f62\u6210\u67d0\u79cd\u5e03\u5c40\uff0c\u7a0b\u5e8f\u5458\u53ef\u4ee5\u63d2\u5165\u4e00\u4e2a\u884c\u7ed3\u675f\u7b26\u6216\u8005\u901a\u8fc7\u8f93\u5165 <space> <space> <carriage-return> \u6765\u6572\u5165\u4e00\u4e2a\u4e0d\u4f1a\u88ab\u683c\u5f0f\u5668\u5220\u6389\u7684\u884c\u4e2d\u65ad\u3002<\/p>\n
\u5f53 \u5217\u8868\u4e2d\u7684\u5143\u7d20\u8d85\u8fc7 3 \u4e2a\u5e76\u4e14\u5728\u4e00\u884c\u4e2d\u88c5\u4e0d\u4e0b\u8fd9\u4e9b\u5143\u7d20\u65f6\uff0c\u91c7\u7528\u4e0a\u8ff0\u6280\u5de7\u3002Ada \u5143\u7d20\u5217\u8868\u5e94\u5206\u9694\u4e3a\u4e00\u884c\u4ec5\u6709\u4e00\u4e2a\u5143\u7d20\uff0c\u4ee5\u63d0\u9ad8\u4ee3\u7801\u7684\u6613\u8bfb\u6027\u548c\u53ef\u7ef4\u62a4\u6027\u3002\u8fd9\u4e00\u6761\u5c24\u5176\u9002\u7528\u4e8e\u4ee5\u4e0b Ada \u6784\u9020\uff08\u8c61 Ada Reference Manual \u7684 Appendix E \u4e2d\u6240\u5b9a\u4e49\u7684\u90a3\u6837 [ISO87]<\/a>\uff09\uff1a<\/p>\n\u5b9e\u53c2\u5173\u8054\u5173\u7cfb<\/p>\n
pragma Suppress (Range_Check,\r\nOn => This_Type,\r\nOn => That_Type, On => That_Other_Type);<\/pre>\n\u6807\u8bc6\u7b26\u5217\u8868\uff0c\u7ec4\u4ef6\u5217\u8868<\/p>\n
Next_Position,\r\nPrevious_Position,\r\nCurrent_Position : Position;\r\ntype Some_Record is \r\nrecord\r\nA_Component,\r\nB_Component,\r\nC_Component : Component_Type;\r\nend record;<\/pre>\n\u679a\u4e3e\u7c7b\u578b\u5b9a\u4e49<\/p>\n
type Navaid is \r\n(Vor, \r\nVor_Dme, \r\nDme, \r\nTacan, \r\nVor_Tac, \r\nNDB);<\/pre>\n\u5224\u522b\u5f0f\u7ea6\u675f<\/p>\n
subtype Constrained is Element \r\n(Name_Length => Name'Length,\r\nValid => True,\r\nOperation => Skip);<\/pre>\n\u8bed\u53e5\u7684\u987a\u5e8f\uff08\u7531\u683c\u5f0f\u5668\u5904\u7406\uff09<\/p>\n
\u5f62\u5f0f\u90e8\u5206\u3001\u7c7b\u5c5e\u5f62\u5f0f\u90e8\u5206\u3001\u5b9e\u53c2\u90e8\u5206\u3001\u7c7b\u5c5e\u5b9e\u53c2\u90e8\u5206<\/p>\n
procedure Just_Do_It (This : in Some_Type;\r\nFor_That : in Some Other_Type;\r\nStatus : out Status_Type);\r\nJust_Do_It (This => This_Value;\r\nFor_That => That_Value;\r\nStatus => The_Status);<\/pre>\n
\n<\/a>\u7b2c\u56db\u7ae0<\/em><\/h2>\n\u6ce8\u91ca<\/h1>\n\u6982\u8ff0<\/h2>\n
\u4e0e\u5e7f\u6cdb\u63a5\u53d7\u7684\u89c2\u70b9\u76f8\u53cd\u7684\u662f\uff0c\u597d\u7684\u7a0b\u5e8f\u7684\u7279\u70b9\u5e76\u975e\u662f\u6ce8\u91ca\u7684\u6570\u91cf<\/em>\uff0c\u800c\u662f\u6ce8\u91ca\u7684\u8d28\u91cf<\/em>\u3002<\/p>\n\u6ce8\u91ca\u5e94\u5f53\u4f5c\u4e3a Ada \u4ee3\u7801\u7684\u8865\u5145<\/em>\uff0c\u800c\u4e0d\u662f\u89e3\u91ca\uff1aAda \u672c\u8eab\u662f\u4e00\u79cd\u975e\u5e38\u6613\u8bfb\u7684\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00\uff0c\u5c24\u5176\u662f\u5f53\u88ab\u597d\u7684\u547d\u540d\u7ea6\u5b9a\u652f\u6301\u65f6\u3002\u6ce8\u91ca\u5e94\u5f53\u89e3\u91ca\u90a3\u4e9b\u4e0d\u80fd\u76f4\u63a5\u4ece Ada \u4ee3\u7801\u4e2d\u770b\u51fa\u7684\u5185\u5bb9\uff1b\u5b83\u4eec\u4e0d\u5e94\u590d\u5236 Ada \u7684\u8bed\u6cd5\u6216\u8bed\u4e49\u3002\u6ce8\u91ca\u5e94\u5f53\u5e2e\u52a9\u8bfb\u8005\u638c\u63e1\u80cc\u666f\u6982\u5ff5\u548c\u4f9d\u8d56\u6761\u4ef6\uff0c\u7279\u522b\u662f\u590d\u6742\u7684\u6570\u636e\u7f16\u7801\u548c\u7b97\u6cd5\u3002\u6ce8\u91ca\u5e94\u5f53\u7a81\u51fa\u4e0e\u7f16\u7801\u6216\u8bbe\u8ba1\u6807\u51c6\u7684\u4e0d\u540c\u70b9\u3001\u53d7\u9650\u7279\u6027\u7684\u4f7f\u7528\u4ee5\u53ca\u7279\u6b8a\u7684 \u201c\u6280\u5de7\u201d\u3002\u5728\u6bcf\u4e2a\u4e3b\u8981\u7684 Ada \u6784\u9020\uff08\u5982\u5b50\u7a0b\u5e8f\u548c\u7a0b\u5e8f\u5305\uff09\u4e2d\uff0c\u7cfb\u7edf\u5730\u51fa\u73b0\u7684\u6ce8\u91ca\u6846\u6216\u8868\u5355\u5177\u6709\u4e00\u81f4\u6027\u548c\u63d0\u9192\u7a0b\u5e8f\u5458\u8bf4\u660e\u4ee3\u7801\u7684\u4f18\u70b9\uff0c\u4f46\u5b83\u4eec\u4e5f\u5e38\u5e38\u5e26\u6765\u91ca\u4e49\u4ee3\u7801\u7684\u98ce\u683c\u3002\u5bf9\u6bcf\u4e00\u884c\u6ce8\u91ca\uff0c\u7a0b\u5e8f\u5458\u90fd \u5e94\u80fd\u591f\u5f88\u597d\u5730\u56de\u7b54\uff1a\u201c\u52a0\u5165\u8fd9\u4e2a\u6ce8\u91ca\u6709\u4f55\u4ef7\u503c\uff1f\u201d<\/p>\n\u4e00\u4e2a\u8bef\u5bfc\u6216\u8005\u9519\u8bef\u7684\u6ce8\u91ca\u6bd4\u5b8c\u5168\u4e0d\u6ce8\u91ca\u8fd8\u7cdf\u3002\u7f16\u8bd1\u5668\u4e0d\u68c0\u67e5\u6ce8\u91ca\uff08\u9664\u975e\u5b83\u4eec\u8c61\u201cRational \u8bbe\u8ba1\u5de5\u5177\u201d\u90a3\u6837\u53c2\u4e0e\u4e86\u6b63\u5f0f\u7684 Ada \u8bbe\u8ba1\u8bed\u8a00 (ADL) \u6216\u8005\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00 (PDL)\uff09\u3002\u56e0\u6b64\uff0c\u6839\u636e\u5355\u70b9\u7ef4\u62a4\u539f\u5219\uff0c\u8bbe\u8ba1\u51b3\u5b9a\u5e94\u5728 Ada \u800c\u4e0d\u662f\u6ce8\u91ca\u4e2d\u8868\u8ff0\uff0c\u5373\u4f7f\u8fd9\u6837\u505a\u9700\u8981\u591a\u51e0\u4e2a\u58f0\u660e\u3002<\/p>\n
\u4f5c\u4e3a\u4e00\u4e2a\uff08\u5e76\u975e\u5f88\u597d\u7684\uff09\u4f8b\u5b50\u8003\u8651\u5982\u4e0b\u7684\u58f0\u660e\uff1a<\/p>\n
------------------------------------------------------------\r\n-- procedure Create\r\n------------------------------------------------------------\r\n--\r\nprocedure Create\r\n(The_Subscriber: in out Subscriber.Handle;\r\nWith_Name : in out Subscriber.Name);\r\n--\r\n-- Purpose: This procedure creates a subscriber with a given\r\n-- name.\r\n--\r\n-- Parameters: \r\n- The_Subscriber :mode in out, type Subscriber.Handle\r\n- It is the handle to the created subscriber\r\n- With_Name :mode in, type Subscriber.Name\r\n- The name of the subscriber to be created.\r\n- The syntax of the name is\r\n-- <letter> { <letter> | <digit> }\r\n-- Exceptions:\r\n-- Subscriber.Collection_Overflow when there is no more\r\n-- space to create a new subscriber\r\n-- Subscriber.Invalid_Name when the name is blank or\r\n-- malformed\r\n--\r\n-------------------------------------------- end Create ----<\/pre>\n\u4f8b\u5b50\u4e2d\u6709\u51e0\u70b9\u8981\u6307\u51fa\u6765\u3002<\/p>\n
\n- \u6709\u8bb8\u591a\u5197\u4f59\uff1a<\/li>\n<\/ul>\n
\n- – \u8fc7\u7a0b\u521b\u5efa (Procedure Create)\uff1a\u5982\u679c\u8981\u6539\u540d\uff0c\u6709\u51e0\u5904\u5730\u65b9\u9700\u8981\u4fee\u6539\uff1b\u7ecf\u5e38\u6027\u5730\u4fee\u6539\u6ce8\u91ca\uff0c\u7f16\u8bd1\u5668\u4e0d\u4f1a\u6267\u884c\u3002<\/dd>\n
- – \u6ce8\u91ca\u4e2d\u65e0\u9700\u91cd\u590d\u8bf4\u660e\u53c2\u6570\u540d\u3001\u6a21\u5f0f\u548c\u7c7b\u578b\u3002<\/dd>\n
- – \u8fd9\u91cc\u7ed9\u6bcf\u4e2a Ada \u5b9e\u4f53\u6240\u53d6\u7684\u540d\u5b57\u5f88\u597d\uff0c\u8fd9\u4f7f\u5f97\u529f\u80fd\u548c\u53c2\u6570\u89e3\u91ca\u53d8\u5f97\u591a\u4f59\u3002\u6ce8\u610f\uff0c\u8fd9\u4e00\u70b9\u53ea\u662f\u5bf9\u4e8e\u5982\u4e0a\u4f8b\u8fd9\u6837\u7684\u7b80\u5355\u7684\u5b50\u7a0b\u5e8f\u6765\u8bf4\u624d\u662f\u6b63\u786e\u7684\u3002\u5bf9\u4e8e\u66f4\u590d\u6742\u7684\u5b50\u7a0b\u5e8f\uff0c\u4ecd\u9700\u8981\u529f\u80fd\u548c\u53c2\u6570\u89e3\u91ca\u3002<\/dd>\n<\/dl>\n
\n- \u6846\u67b6\u52a0\u5165\u4e86\u592a\u591a\u7684\u5e72\u6270\uff0c\u9690\u85cf\u4e86\u5173\u952e\u9879\uff1a\u8fc7\u7a0b\u58f0\u660e\u3002\u53e6\u5916\uff0c\u53f3\u7aef\u7684\u5782\u76f4\u8fb9\u5f00\u59cb\u65f6\u770b\u4e0a\u53bb\u8fd8\u5f88\u6f02\u4eae\uff0c\u4f46\u5374\u4f7f\u4fee\u6539\u53d8\u5f97\u6781\u4e3a\u75db\u82e6\uff0c\u901a\u5e38\u51e0\u5e74\u7684\u7ef4\u62a4\u4e0b\u6765\uff0c\u4ee3\u7801\u6700\u540e\u5b8c\u5168\u4e0d\u5bf9\u9f50\u5e76\u4e14\u5343\u75ae\u767e\u5b54\u3002<\/li>\n
- \u76f8\u53cd\u7684\u662f\uff0c\u8fd9\u91cc\u5e94\u8bf4\u660e\u4ea7\u751f\u4e86\u4f55\u79cd\u5f02\u5e38\uff0c\u56e0\u4e3a\u82e5\u53ea\u8bfb\u89c4\u683c\u8bf4\u660e\uff0c\u8fd9\u4e00\u70b9\u5e76\u4e0d\u660e\u663e\u3002\u4f46\u6bcf\u4e2a\u5f02\u5e38\u7684\u51c6\u786e\u542b\u4e49\u5e94\u653e\u5728\u81ea\u8eab\u7684\u5f02\u5e38\u58f0\u660e\u5904\u3002<\/li>\n
- \u5e94\u8bf4\u660e\u53c2\u6570\u7684\u524d\u7f6e\u548c\u540e\u7f6e\u6761\u4ef6\uff0c\u5c24\u5176\u662f\u53c2\u6570\u95f4\u7684\u5173\u7cfb\u3002\u8fd9\u4e9b\u4e0d\u5e94\u4e0e\u5176\u5b83\u5730\u65b9\u53ef\u4ee5\u627e\u5230\u7684\u4fe1\u606f\u91cd\u590d\uff0c\u5982\u6709\u6548\u540d\u7684\u8bed\u6cd5\uff0c\u5b83\u53ea\u5e94\u5728\u4e00\u5904\u8bf4\u660e\u3002<\/li>\n<\/ul>\n
\u5728\u8fd9\u4e2a\u4f8b\u5b50\u4e2d\uff0c\u6700\u597d\u91c7\u7528\u5982\u4e0b\u66f4\u7b80\u6d01\u3001\u66f4\u6709\u7528\u7684\u65b9\u5f0f\uff1a<\/p>\n
procedure Create (The_Subscriber : in out Subscriber.Handle;\r\nWith_Name : in Subscriber.Name);--\r\n-Raises Subscriber.Collection_Overflow.\r\n-Raises Subscriber.Invalid_Name when the name is \r\nblank or malformed (see syntax description \r\nattached to declaration of type Subscriber.Name).<\/pre>\n<\/a>\u6ce8\u91ca\u7528\u6cd5\u6307\u5357<\/h2>\n\u6ce8\u91ca\u5e94\u653e\u5728\u76f8\u5173\u4ee3\u7801\u7684\u65c1\u8fb9\uff0c\u7f29\u8fdb\u540c\u6837\u7684\u5927\u5c0f\uff0c\u7d27\u9760\u7740\u4ee3\u7801 – \u5373\u7528\u7a7a\u7684\u6ce8\u91ca\u884c\u5728\u89c6\u89c9\u4e0a\u5c06\u6ce8\u91ca\u5757\u4e0e Ada \u6784\u9020\u6346\u5728\u4e00\u8d77\uff1a<\/p>\n
procedure First_One;\r\n--\r\n-- This comment relates to First_One.\r\n-- But this comment is for Second_One.\r\n-- \r\nprocedure Second_One (Times : Natural);<\/pre>\n\u7528\u7a7a\u884c\u5206\u9694\u76f8\u5173\u7684\u6e90\u7801\u5757\uff08\u6ce8\u91ca\u548c\u4ee3\u7801\uff09\uff0c\u800c\u4e0d\u7528\u7c97\u91cd\u7684\u6ce8\u91ca\u884c\uff0c\u5982\uff1a<\/p>\n
-------------------------------------------------------------<\/pre>\n\u6216\u8005\uff1a<\/p>\n
--===========================================================<\/pre>\n\u5728\u4e00\u4e2a\u6ce8\u91ca\u5757\u4e2d\uff0c\u4f7f\u7528\u7a7a\u6ce8\u91ca\u884c\u800c\u975e\u7a7a\u884c\u6765\u5206\u5272\u6ce8\u91ca\u6bb5<\/p>\n
-- Some explanation here that needs to be continued in a\r\n-- subsequent paragraph.\r\n--\r\n-- The empty comment line above makes it clear that we \r\n-- are dealing with a single comment block.<\/pre>\n\u867d\u7136\u6ce8\u91ca\u53ef\u4ee5\u653e\u5728\u76f8\u5173 Ada \u6784\u9020\u7684\u4e0a\u65b9\u6216\u4e0b\u65b9\uff0c\u4f46\u662f\u8981\u5c06\u4e00\u8282\u7684\u6807\u9898\u6216\u8005\u4e00\u4e2a\u8bf4\u660e\u51e0\u4e2a Ada \u6784\u9020\u7684\u4e3b\u8981\u4fe1\u606f\u653e\u5728\u6784\u9020\u7684\u4e0a\u65b9<\/em>\u3002\u5c06\u8bc4\u8ff0\u6216\u9644\u52a0\u4fe1\u606f\u7b49\u8fd9\u4e00\u7c7b\u7684\u6ce8\u91ca\u653e\u5728\u76f8\u5173 Ada \u6784\u9020\u7684\u4e0b\u65b9<\/em>\u3002<\/p>\n\u7528\u4e00\u9875\u7684\u6574\u884c\u5bbd\u5728 Ada \u6784\u9020\u7684\u5f00\u5934\u5904\u5206\u7ec4\u3002\u907f\u514d\u5c06\u6ce8\u91ca\u653e\u5728 Ada \u6784\u9020\u7684\u540c\u4e00\u884c\u3002\u8fd9\u4e9b\u6ce8\u91ca\u5e38\u5e38\u53d8\u5f97\u4e0d\u5bf9\u9f50\u3002\u4f46\u662f\u5728\u8bf4\u660e\u4e00\u4e2a\u957f\u7684\u58f0\u660e\u65f6\uff0c\u5982\u679a\u4e3e\u7c7b\u578b\u76f4\u63a5\u91cf\uff0c\u8fd9\u6837\u7684\u6ce8\u91ca\u65b9\u5f0f\u662f\u53ef\u4ee5\u5bb9\u8bb8\u7684\u3002<\/p>\n
\u7528\u4e00\u4e2a\u5c0f\u7684\u5206\u5c42\u6b21\u7684\u6807\u51c6\u6ce8\u91ca\u5757\u6765\u8bf4\u660e\u5c0f\u8282\u7684\u6807\u9898\uff0c\u4f46\u8fd9\u4ec5\u4ec5\u9002\u7528\u4e8e\u5f88\u5927\u7684 Ada \u5355\u5143\uff08>200 \u884c\u7684\u58f0\u660e\u6216\u8005\u8bed\u53e5\uff09\uff1a<\/p>\n
--===========================================================\r\n--\r\n \u4e3b\u6807\u9898\r\n--\r\n--===========================================================\r\n\r\n-------------------------------------------------------------\r\n \u526f\u6807\u9898\r\n-------------------------------------------------------------\r\n\r\n --------------------\r\n \u5b50\u90e8\u5206\u7684\u5934\r\n --------------------<\/pre>\n\u5728\u8fd9\u79cd\u6807\u9898\u524d\u9762\u6240\u653e\u7684\u7a7a\u884c\u6570\u8981\u591a\u4e8e\u540e\u9762\u7684\u7a7a\u884c\u6570\uff0c\u4f8b\u5982\uff0c\u4e24\u884c\u5728\u524d\u4e00\u884c\u5728\u540e\u3002\u8fd9\u6837\u4f7f\u6807\u9898\u4e0e\u968f\u540e\u7684\u6b63\u6587\u5728\u89c6\u89c9\u4e0a\u76f8\u8054\u7cfb\u3002<\/p>\n
\u907f \u514d\u4f7f\u7528\u542b\u6709\u4fe1\u606f\u7684\u51fd\u6570\u5934\uff0c\u6bd4\u5982\u4f5c\u8005\u3001\u7535\u8bdd\u3001\u521b\u5efa\u548c\u4fee\u6539\u65e5\u671f\u3001\u5355\u5143\uff08\u6216\u6587\u4ef6\u540d\uff09\u7684\u4f4d\u7f6e\uff0c\u56e0\u4e3a\u8fd9\u4e9b\u4fe1\u606f\u5f88\u5feb\u5c31\u4f1a\u8fc7\u65f6\u3002\u5c06\u6240\u6709\u8005\u7248\u6743\u4fe1\u606f\u653e\u5728\u5355\u5143\u7684\u672b\u5c3e\uff0c\u5c24\u5176\u662f \u4f7f\u7528\u201cRational \u73af\u5883\u201d\u65f6\u3002\u5f53\u8bbf\u95ee\u4e00\u4e2a\u7a0b\u5e8f\u5305\u7684\u89c4\u683c\u8bf4\u660e\u6e90\u7801\u65f6 – \u4f8b\u5982\u5728\u201cRational \u73af\u5883\u201d\u4e2d\u6309 [Definition] – \u8bfb\u8005\u4e0d\u60f3\u6d4f\u89c8\u4e24\u9875\u6216\u8005\u4e09\u9875\u5bf9\u7406\u89e3\u7a0b\u5e8f\u65e0\u4efb\u4f55\u7528\u5904\u7684\u6587\u672c\u548c\/\u6216\u5b8c\u5168\u4e0d\u5e26\u6709\u4efb\u4f55\u7a0b\u5e8f\u4fe1\u606f\u7684\u6587\u672c\u3002\u907f\u514d\u4f7f\u7528\u5782\u76f4\u6eda\u52a8\u6761\u3001\u5c01\u95ed\u56fe\u6587\u6846\u6216\u65b9\u6846\uff0c\u8fd9\u4e9b\u4e1c\u897f\u53ea\u4f1a\u589e\u52a0\u89c6\u89c9 \u5e72\u6270\uff0c\u800c\u4e14\u96be\u4ee5\u4fdd\u6301\u4e00\u81f4\u6027\u3002\u7528 Rational CMVC \u9644\u6ce8\uff08\u6216\u8005\u5176\u5b83\u5f62\u5f0f\u7684\u8f6f\u4ef6\u5f00\u53d1\u6587\u4ef6\uff09\u6765\u4fdd\u5b58\u5355\u5143\u5386\u53f2\u3002<\/p>\n
\u4e0d\u8981\u91cd\u590d\u53ef\u4ee5\u5728\u5176\u5b83\u5730\u65b9\u627e\u5230\u7684\u4fe1\u606f\uff1b\u4ec5\u63d0\u4f9b\u4e00\u4e2a\u6307\u5411\u8be5\u4fe1\u606f\u7684\u6307\u9488\u5373\u53ef\u3002<\/p>\n
\u5c3d \u91cf\u91c7\u7528 Ada\uff0c\u800c\u975e\u6ce8\u91ca\u3002\u8981\u5b9e\u73b0\u8fd9\u4e00\u70b9\uff0c\u4f60\u53ef\u9009\u62e9\u66f4\u597d\u7684\u540d\u5b57\u3001\u9644\u52a0\u4e34\u65f6\u53d8\u91cf\u3001\u9650\u5b9a\u3001\u91cd\u547d\u540d\u3001\u5b50\u7c7b\u578b\u3001\u9759\u6001\u8868\u8fbe\u5f0f\u548c\u5c5e\u6027\uff0c\u8fd9\u4e9b\u90fd\u4e0d\u5f71\u54cd\u751f\u6210\u7684\u4ee3\u7801\uff08\u81f3\u5c11\u5728\u4e00\u4e2a\u597d\u7684 \u7f16\u8bd1\u5668\u4e2d\u4e0d\u5f71\u54cd\uff09\u3002\u4f60\u4e5f\u53ef\u4ee5\u91c7\u7528\u5c0f\u7684\u3001\u5d4c\u5165\u5f0f\u7684\u8c13\u8bcd\u51fd\u6570\uff0c\u5e76\u5c06\u4ee3\u7801\u5206\u6210\u51e0\u4e2a\u65e0\u53c2\u8fc7\u7a0b\uff0c\u8fd9\u4e9b\u8fc7\u7a0b\u7684\u540d\u5b57\u63d0\u4f9b\u4e86\u4ee3\u7801\u51e0\u4e2a\u79bb\u6563\u90e8\u5206\u7684\u6807\u9898\u3002<\/p>\n
\u793a\u4f8b\uff1a<\/p>\n
\u5c06\uff1a<\/p>\n
exit when Su.Locate (Ch, Str) \/= 0; \r\n-- Exit search loop when found it.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
Search_Loop : loop<\/p>\n
Found_It := Su.Locate (Ch, Str) \/= 0;<\/p>\n
exit Search_Loop when Found_It<\/p>\n
end Search_Loop;<\/p>\n
\u5c06\uff1a<\/p>\n
if Value < 'A' or else Value > 'Z' then\r\n-- If not in uppercase letters.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
subtype Uppercase_Letters is Character range 'A' ..'Z';\r\nif Value not in Uppercase_Letters then ...<\/pre>\n\u5c06\uff1a<\/p>\n
X := Green; -- This is the Green from \r\n-- Status, not from Color.\r\nraise Fatal_Error; -- From package Outer_Scope.\r\ndelay 384.0; -- Equal to 6 minutes and 24 \r\n-- seconds.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
The_Status := Green;<\/pre>\nor:<\/p>\n
X := Status'(Green);\r\nraise Outer_Scope.Fatal_Error;\r\ndelay 6.0 * Minute + 24.0 * Second;<\/pre>\n\u5c06\uff1a<\/p>\n
if Is_Valid (The_Table (Index).Descriptor(Rank).all) then\r\n-- This is the current value for the iteration; if it is \r\n-- valid we append to the list it contains.\r\nAppend (Item, To_List => The_Table (Index).Descriptor(Rank).Ptr);|<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
declare\r\nCurrent_Rank : Lists.List renames The_Table \r\n(Index).Descriptor (Rank);\r\nbegin\r\nif Is_Valid (Current_Rank.all) then\r\nAppend (Item, To_List => Current_Rank.Ptr);\r\nend if;\r\nend;<\/pre>\n\u6ce8\u610f\u6ce8\u91ca\u4e2d\u7684\u98ce\u683c\u3001\u8bed\u6cd5\u548c\u62fc\u5199\u3002\u4e0d\u8981\u4f7f\u7528\u8c61\u7535\u62a5\u5bc6\u7801\u4e00\u822c\u7684\u98ce\u683c\u3002\u4f7f\u7528\u62fc\u5199\u68c0\u67e5\u3002\uff08\u5728\u201cRational \u73af\u5883\u201d\u4e2d\u8c03\u7528 Speller.Check_Image\uff09\u3002<\/p>\n
\u4e0d\u8981\u4f7f\u7528\u65b9\u8a00\u5b57\u6bcd\u6216\u8005\u5176\u5b83\u975e\u82f1\u6587\u5b57\u7b26\u3002\u6839\u636e Ada Issue AI-339\uff0c\u975e\u82f1\u6587\u5b57\u7b26\u53ef\u88ab\u4e00\u4e9b\u5f00\u53d1\u7cfb\u7edf\u652f\u6301\uff0c\u4e00\u4e9b Ada \u7f16\u8bd1\u5668\u4ec5\u5728\u6ce8\u91ca\u4e2d\u652f\u6301\u3002\u4f46\u8fd9\u662f\u4e0d\u53ef\u79fb\u690d\u7684\uff0c\u5f88\u6709\u53ef\u80fd\u5728\u5176\u5b83\u7cfb\u7edf\u4e0a\u5931\u6548\u3002<\/p>\n
\u5bf9\u4e8e\u5b50\u7a0b\u5e8f\uff0c\u81f3\u5c11\u8bf4\u660e\uff1a<\/p>\n
\n- \u5b50\u7a0b\u5e8f\u7684\u7528\u9014\uff0c\u4f46\u8fd9\u53ea\u662f\u5f53\u4ece\u5b83\u7684\u540d\u5b57\u4e2d\u4e0d\u80fd\u660e\u786e\u4e86\u89e3\u5176\u7528\u9014\u65f6<\/li>\n
- \u5728\u4f55\u79cd\u6761\u4ef6\u4e0b\u751f\u6210\u4e86\u4f55\u79cd\u5f02\u5e38<\/li>\n
- \u5982\u679c\u6709\u7684\u8bdd\uff0c\u53c2\u6570\u7684\u524d\u7f6e\u6216\u540e\u7f6e\u6761\u4ef6<\/li>\n
- \u5176\u4ed6\u6570\u636e\u8bbf\u95ee\uff0c\u7279\u522b\u662f\u5f53\u6570\u636e\u88ab\u4fee\u6539\u65f6\uff1b\u8fd9\u5c24\u5176\u5305\u62ec\u6709\u526f\u4f5c\u7528\u7684\u51fd\u6570<\/li>\n
- \u6b63\u786e\u4f7f\u7528\u5b50\u7a0b\u5e8f\u6240\u9700\u7684\u4efb\u4f55\u9650\u5236\u6216\u9644\u52a0\u4fe1\u606f<\/li>\n<\/ul>\n
\u5bf9\u4e8e\u7c7b\u578b\u548c\u5bf9\u8c61\uff0c\u8981\u8bf4\u660e\u6240\u6709\u4e0d\u80fd\u901a\u8fc7 Ada \u8868\u8fbe\u7684\u4e0d\u53d8\u91cf\u6216\u9644\u52a0\u7ea6\u675f\u3002<\/p>\n
\u907f\u514d\u6ce8\u91ca\u4e2d\u7684\u91cd\u590d\u3002\u4f8b\u5982\uff0c\u6709\u5173\u7528\u9014\u7684\u90e8\u5206\u5e94\u662f\u201c\u5b83\u505a\u4ec0\u4e48\uff1f\u201d\u8fd9\u4e2a\u95ee\u9898\u7684\u7b80\u5355\u56de\u7b54\uff0c\u800c\u4e0d\u662f\u201c\u5b83\u600e\u4e48\u505a\uff1f\u201d\u7684\u56de\u7b54\u3002\u6982\u8ff0\u5e94\u662f\u8bbe\u8ba1\u7684\u7b80\u77ed\u8868\u8fbe\u3002\u8bf4\u660e\u4e2d\u4e0d\u5e94\u63cf\u8ff0\u6240\u7528\u7684\u7b97\u6cd5\uff0c\u800c\u5e94\u89e3\u91ca\u7a0b\u5e8f\u5305\u5e94\u5982\u4f55\u4f7f\u7528\u3002<\/p>\n
\u6570\u636e\u7ed3\u6784\u548c\u7b97\u6cd5\u90e8\u5206\u5e94\u542b\u6709\u8db3\u591f\u7684\u4fe1\u606f\u6765\u5e2e\u52a9\u7406\u89e3\u4e3b\u8981\u7684\u5b9e\u73b0\u7b56\u7565\uff08\u4ee5\u4fbf\u6b63\u786e\u4f7f\u7528\u7a0b\u5e8f\u5305\uff09\uff0c\u4f46\u65e0\u9700\u5305\u542b\u6240\u6709\u7684\u5b9e\u73b0\u7ec6\u8282\u6216\u4e0e\u6b63\u786e\u4f7f\u7528\u5305\u6beb\u4e0d\u76f8\u5173\u7684\u4fe1\u606f\u3002<\/p>\n
\n<\/a>\u7b2c\u4e94\u7ae0<\/em><\/h2>\n\u547d\u540d\u7ea6\u5b9a<\/h1>\n\u6982\u8ff0<\/h2>\n
\u7ed9 Ada \u5b9e\u4f53\uff08\u7a0b\u5e8f\u5355\u5143\u3001\u7c7b\u578b\u3001\u5b50\u7c7b\u578b\u3001\u5bf9\u8c61\u3001\u76f4\u63a5\u91cf\u3001\u5f02\u5e38\uff09\u6307\u5b9a\u597d\u540d\u5b57\u662f\u6240\u6709\u8f6f\u4ef6\u5e94\u7528\u7a0b\u5e8f\u8981\u8868\u8ff0\u7684\u6700\u7cbe\u5de7\u7684\u4e8b\u60c5\u4e4b\u4e00\u3002\u4e2d\u7b49\u89c4\u6a21\u5230\u5927\u89c4\u6a21\u7684\u5e94\u7528\u7a0b\u5e8f\u5b58\u5728\u7740\u53e6\u4e00\u4e2a\u95ee \u9898\uff1a\u540d\u5b57\u95f4\u7684\u51b2\u7a81\uff0c\u6216\u662f\u8981\u627e\u5230\u8db3\u591f\u7684\u540c\u4e49\u8bcd\u6765\u6307\u4ee3\u76f8\u540c\u73b0\u5b9e\u4e16\u754c\u4e2d\u76f8\u4f3c\u4f46\u53c8\u6709\u522b\u7684\u6982\u5ff5\uff08\u6216\u662f\u547d\u540d\u4e00\u4e2a\u7c7b\u578b\u3001\u5b50\u7c7b\u3001\u5bf9\u8c61\u3001\u53c2\u6570\uff09\u3002\u8fd9\u91cc\u53ef\u5229\u7528\u4e0d\u91c7\u7528\u201cuse\u201d \u5b50\u53e5\uff08\u6216\u53ea\u5728\u6781\u4e3a\u53d7\u9650\u7684\u6761\u4ef6\u4e0b\u91c7\u7528\uff09\u7684\u6cd5\u5219\u3002\u5728\u8bb8\u591a\u60c5\u5f62\u4e0b\uff0c\u8fd9\u4f7f\u5f97\u53ef\u4ee5\u4e0d\u5192\u6df7\u6dc6\u7684\u98ce\u9669\u800c\u7f29\u77ed\u540d\u5b57\uff0c\u5e76\u590d\u7528\u76f8\u540c\u7684\u63cf\u8ff0\u8bcd\u3002<\/p>\n
\u9009\u62e9\u6e05\u6670\u7684\u3001\u6613\u8bfb\u7684\u3001\u6709\u610f\u4e49\u7684\u540d\u79f0\u3002<\/p>\n
\u4e0e\u5176\u5b83\u7684\u7f16\u7a0b\u8bed\u8a00\u4e0d\u540c\uff0cAda \u4e0d\u5c06\u6807\u8bc6\u7b26\u7684\u957f\u5ea6\u9650\u5236\u5728 6\uff0c8 \u6216\u8005 15 \u4e2a\u5b57\u7b26\u5185\u3002\u77ed\u540d\u5b57\u6253\u5b57\u901f\u5ea6\u5feb\u4e0d\u662f\u91c7\u7528\u5b83\u4eec\u7684\u53ef\u4ee5\u4e3a\u4eba\u63a5\u53d7\u7684\u7406\u7531\u3002\u53ea\u6709\u4e00\u4e2a\u5b57\u6bcd\u7684\u6807\u8bc6\u7b26\u901a\u5e38\u8bf4\u660e\u9009\u62e9\u4e0d\u5f53\u6216\u662f\u61d2\u60f0\u3002\u53ef\u80fd\u6709\u51e0\u4e2a\u4f8b\u5916\uff0c\u5982\u5c06 E \u4f5c\u4e3a\u81ea\u7136\u5bf9\u6570\u7684\u5e95\uff0cPi\uff0c\u4ee5\u53ca\u5176\u5b83\u5c11\u6570\u51e0\u4e2a\u6613\u8fa8\u8bc6\u7684\u60c5\u51b5\u3002<\/p>\n
\u7528\u4e0b\u5212\u7ebf\u5c06\u4e00\u4e2a\u540d\u5b57\u4e2d\u7684\u4e0d\u540c\u5355\u8bcd\u5206\u9694\u5f00\u6765\uff1a<\/p>\n
Is_Name_Valid<\/code> \u4e0d\u662f IsNameValid<\/code><\/p>\n\u91c7\u7528\u5168\u540d\u800c\u4e0d\u662f\u7f29\u5199\u3002<\/p>\n
\u53ea\u91c7\u7528\u9879\u76ee\u8ba4\u53ef\u7684\u7f29\u7565\u8bcd\u3002<\/p>\n
\u53ea\u80fd\u662f\u5728\u4e24\u79cd\u60c5\u51b5\u4e4b\u4e00\u65f6\u91c7\u7528\u7f29\u5199\uff1a\u8be5\u7f29\u5199\u5728\u5e94\u7528\u9886\u57df\u4e2d\u5f88\u666e\u904d\uff08\u5982 FFT \u4ee3\u8868\u5085\u7acb\u53f6\u53d8\u6362\uff09\u6216\u8005\u6765\u81ea\u516c\u8ba4\u7f29\u5199\u7684\u9879\u76ee\u7ea7\u5217\u8868\u3002\u5426\u5219\uff0c\u5f88\u6709\u53ef\u80fd\u4f7f\u76f8\u4f3c\u4f46\u4e0d\u76f8\u540c\u7684\u7f29\u5199\u5230\u5904\u51fa\u73b0\uff0c\u5bfc\u81f4\u4ee5\u540e\u7684\u6df7\u6dc6\u548c\u9519\u8bef\uff08\u5982\u5c06 track_identification \u7f29\u5199\u6210 trid\u3001trck_id\u3001tr_iden\u3001tid\u3001tr_ident\u7b49\uff09\u3002<\/p>\n
\u5c11\u7528\u540e\u7f00\u8bf4\u660e Ada \u6784\u9020\u7684\u5206\u7c7b\u3002\u5b83\u4eec\u4e0d\u80fd\u63d0\u9ad8\u6613\u8bfb\u6027\u3002<\/p>\n
\u901a\u5e38\u6309\u7167 Ada \u5b9e\u4f53\u7684\u7c7b\u6765\u52a0\u540e\u7f00\uff0c\u5982\u7ed9\u7a0b\u5e8f\u5305\u52a0\u4e0a _Package\uff0c\u5f02\u5e38\u52a0\u4e0a _Error\uff0c\u7c7b\u578b\u52a0\u4e0a _Type\uff0c\u4ee5\u53ca\u5b50\u7a0b\u5e8f\u7684\u53c2\u6570\u52a0\u4e0a _Param\uff0c\u5bf9\u5e2e\u52a9\u9605\u8bfb\u548c\u7406\u89e3\u4ee3\u7801\u4e0d\u662f<\/em>\u5f88\u6709\u6548\u3002 \u800c\u52a0\u4e0a\u5982 _Array\uff0c_Record \u548c _Function \u8fd9\u6837\u7684\u540e\u7f00\u5219\u66f4\u7cdf\u3002Ada \u7f16\u8bd1\u5668\u548c\u8bfb\u8005\u90fd\u53ef\u4ee5\u6839\u636e\u4e0a\u4e0b\u6587\u4ece\u5b50\u7a0b\u5e8f\u4e2d\u5206\u8fa8\u4e00\u4e2a\u5f02\u5e38\uff1a\u663e\u7136\u53ea\u6709\u5f02\u5e38\u540d\u53ef\u4ee5\u5728 raise<\/em> \u8bed\u53e5\u6216\u5f02\u5e38\u5904\u7406\u4e2d\u51fa\u73b0\u3002\u8fd9\u4e9b\u540e\u7f00\u5728\u5982\u4e0b\u53d7\u9650\u7684\u6761\u4ef6\u4e0b\u53ef\u7528\uff1a<\/p>\n\n- \u5f53\u5408\u9002\u7684\u8bcd\u7684\u9009\u62e9\u8303\u56f4\u975e\u5e38\u6709\u9650\u65f6\uff0c\u7ed9\u5bf9\u8c61\u9009\u4e00\u4e2a\u6700\u597d\u7684\u540d\u5b57\u5e76\u52a0\u4e0a\u7c7b\u578b\u7684\u540e\u7f00\u3002<\/li>\n
- \u5bf9\u4e8e\u7c7b\u5c5e\u5355\u5143,\u603b\u53ef\u4ee5\u52a0\u4e0a\u5f62\u5982 _Generic \u7684\u540e\u7f00\uff0c\u6240\u4ee5\u5bf9\u4e00\u4e9b\u6216\u8bb8\u591a\u5b9e\u4f8b\u6765\u8bf4\uff0c\u53ef\u4ee5\u4e0d\u6dfb\u52a0\u8be5\u540e\u7f00\u800c\u4f7f\u7528\u4e0e\u5176\u76f8\u540c\u7684\u540d\u5b57\u3002<\/li>\n
- \u5f53\u5b83\u8868\u793a\u4e00\u4e2a\u5e94\u7528\u9886\u57df\u7684\u6982\u5ff5\u65f6\uff0c\u5982 Aircraft_Type\u3002<\/li>\n
- \u5f53\u91cd\u8981\u7684\u8bbe\u8ba1\u51b3\u7b56\u9700\u9ad8\u5ea6\u53ef\u89c1\u65f6\uff1a<\/li>\n<\/ul>\n
\u7c7b\u5c5e\u5f62\u53c2\u7c7b\u578b\u540e\u7f00\u4e3a _Constrained<\/p>\n
\u540e\u7f00\u4e3a _Pointer \u7684\u5b58\u53d6\u7c7b\u578b\u6216\u5176\u5b83\u975e\u76f4\u63a5\u6307\u4ee3\u7684\u5f62\u5f0f\uff1a_Handle \u6216 _Reference<\/p>\n
\u901a\u8fc7 _Or_Wait \u9690\u85cf\u4e86\u53ef\u80fd\u963b\u585e\u7684\u5165\u53e3\u8c03\u7528\u7684\u5b50\u7a0b\u5e8f<\/p>\n
\u5c06\u540d\u5b57\u8868\u8ff0\u51fa\u6765\uff0c\u4f7f\u5f97\u4ece\u4f7f\u7528<\/em>\u7684\u89d2\u5ea6\u770b\uff0c\u5b83\u4eec\u8fd8\u4e0d\u9519\u3002<\/p>\n\u8bd5\u60f3\u4e00\u4e2a\u5bfc\u51fa\u5b9e\u4f53\u53ef\u5728\u5176\u4e2d\u4f7f\u7528\u7684\u4e0a\u4e0b\u6587\uff0c\u5e76\u7ad9\u5728\u90a3\u4e2a\u89d2\u5ea6\u9009\u62e9\u4e00\u4e2a\u540d\u5b57\u3002\u4e00\u4e2a\u5b9e\u4f53\u4ec5\u88ab\u5b9a\u4e49\u4e00\u6b21\uff0c\u4f46\u5374\u88ab\u4f7f\u7528\u8bb8\u591a\u6b21\u3002\u8fd9\u4e00\u70b9\u5bf9\u4e8e\u5b50\u7a0b\u5e8f\u7684\u540d\u5b57\u53ca\u5176\u53c2\u6570\u6765\u8bf4\u5c24\u4e3a\u6b63\u786e\uff1b \u4f7f\u7528\u547d\u540d\u5173\u8054\u5173\u7cfb\u7684\u7ed3\u679c\u8c03\u7528\u5e94\u5c3d\u91cf\u4e0e\u81ea\u7136\u8bed\u8a00\u76f8\u8fd1\u3002\u8bb0\u4f4f\u7f3a\u5c11\u4f7f\u7528<\/em>\u5b50\u53e5\u4f7f\u5f97\u5927\u591a\u6570\u58f0\u660e\u5b9e\u4f53\u5fc5\u987b\u5177\u6709\u53d7\u9650\u540d\u3002\u5bf9\u4e8e\u6709\u53ef\u80fd\u5728\u7c7b\u5c5e\u5355\u5143\u4e2d\u6bd4\u5728\u4eab\u7528\u6a21\u5757\u90a3\u91cc\u4f7f\u7528\u5f97\u8fd8\u591a\u7684\u7c7b\u5c5e\u5f62\u53c2\u6765\u8bf4\uff0c\u5fc5\u987b\u5bfb\u627e\u4e00\u4e2a\u597d\u7684\u534f\u8c03\u529e\u6cd5\uff0c\u4f46\u662f\u7edd\u5bf9\u8981\u4fdd\u8bc1\u5b50\u7a0b\u5e8f\u7684\u5f62\u53c2\u5728\u4eab\u7528\u6a21\u5757\u7aef\u597d\u770b\u3002<\/p>\n\u4f7f\u7528\u82f1\u6587\u5355\u8bcd\u5e76\u62fc\u5199\u6b63\u786e\u3002<\/p>\n
\u8bed\u8a00\u7684\u6df7\u5408\uff08\u5982\u6cd5\u8bed\u548c\u82f1\u8bed\uff09\u5c06\u4f7f\u4ee3\u7801\u96be\u8bfb\uff0c\u6709\u65f6\u4f7f\u6807\u8bc6\u7b26\u7684\u610f\u4e49\u6478\u68f1\u4e24\u53ef\u3002 \u65e2\u7136 Ada \u7684\u5173\u952e\u5b57\u5df2\u662f\u82f1\u6587\u7684\uff0c\u5219\u8981\u6c42\u4f7f\u7528\u82f1\u6587\u5355\u8bcd\u3002\u6700\u597d\u91c7\u7528\u7f8e\u5f0f\u62fc\u6cd5\uff0c\u4ee5\u4fbf\u5229\u7528\u201cRational \u73af\u5883\u201d\u4e2d\u5185\u7f6e\u7684\u62fc\u5199\u68c0\u67e5\u3002<\/p>\n
\u4e0d\u8981\u91cd\u65b0\u5b9a\u4e49 Standard \u7a0b\u5e8f\u5305\u4e2d\u7684\u4efb\u4f55\u5b9e\u4f53\u3002\u8fd9\u662f\u7edd\u5bf9\u7981\u6b62\u7684\u3002<\/p>\n
\u8fd9\u6837\u505a\u5c06\u4ea7\u751f\u6df7\u6dc6\u548c\u4e25\u91cd\u7684\u9519\u8bef\u3002\u8be5\u6cd5\u5219\u53ef\u5ef6\u4f38\u81f3\u5176\u5b83\u9884\u5b9a\u4e49\u7684\u5e93\u5355\u5143\uff1aCalendar\uff0cSystem\u3002\u8fd9\u4e5f\u5305\u62ec Standard<\/em> \u6807\u8bc6\u7b26\u672c\u8eab\u3002<\/p>\n\u907f\u514d\u5bf9\u5176\u5b83\u9884\u5b9a\u4e49\u7a0b\u5e8f\u5305\u4e2d\u7684\u6807\u8bc6\u7b26\u91cd\u5b9a\u4e49\uff0c\u5982 System \u6216 Calendar\u3002<\/p>\n
\u4e0d\u8981\u4f7f\u7528\u5982\u4e0b\u7684\u6807\u8bc6\u7b26\uff1aWide_Character<\/strong> \u548c Wide_String<\/strong>\uff0c\u5b83\u4eec\u5c06\u5728 Ada 95 \u7684 Standard \u7a0b\u5e8f\u5305\u4e2d\u5f15\u5165\u3002\u4e0d\u8981\u5f15\u5165\u4e00\u4e2a\u540d\u4e3a Ada<\/strong> \u7684\u7f16\u8bd1\u5355\u5143\u3002<\/p>\n\u4e0d\u8981\u4f7f\u7528\u4ee5\u4e0b\u5355\u8bcd\u4f5c\u4e3a\u6807\u8bc6\u7b26\uff1aabstract<\/strong>\uff0caliased<\/strong>\uff0cprotected<\/strong>\uff0crequeue<\/strong>\uff0ctagged<\/strong> \u548c until<\/strong>\uff0c\u5b83\u4eec\u5728 Ada 95 \u5c06\u6210\u4e3a\u5173\u952e\u5b57\u3002<\/p>\n\u4e00\u4e9b\u7ed9\u5404\u79cd Ada \u5b9e\u4f53\u7684\u547d\u540d\u5efa\u8bae\u4e5f\u662f\u540c\u6837\u3002\u5047\u5b9a\u4e00\u822c\u60c5\u5f62\u4e0b\uff0c\u201c\u9762\u5411\u5bf9\u8c61\u201d\u98ce\u683c\u7684\u8bbe\u8ba1\u53d7\u6b22\u8fce\u3002\u8be6\u60c5\u8bf7\u53c2\u89c1\u9644\u5f55 A\u3002<\/p>\n
<\/a>\u7a0b\u5e8f\u5305<\/h2>\n\u5f53\u4e00\u4e2a\u7a0b\u5e8f\u5305\u5f15\u5165\u4e86\u67d0\u4e2a\u5bf9\u8c61\u7c7b\u65f6\uff0c\u7528\u8be5\u5bf9\u8c61\u7c7b\u7684\u540d\u5b57\u547d\u540d\u7a0b\u5e8f\u5305\uff0c\u901a\u5e38\u662f\u4e00\u4e2a\u5355\u6570\u5f62\u5f0f\u7684\u540d\u8bcd\uff0c\u82e5\u9700\u8981\uff08\u5373\u5b9a\u4e49\u4e86\u4e00\u4e2a\u5e26\u53c2\u6570\u7684\u7c7b\uff09\uff0c\u53ef\u52a0\u4e0a\u540e\u7f00 _Generic\u3002\u4ec5\u5f53\u5bf9\u8c61\u603b\u4ee5\u7fa4\u4f53\u5f62\u5f0f\u51fa\u73b0\u65f6\uff0c\u624d\u91c7\u7528\u590d\u6570\u5f62\u5f0f\u3002\u4f8b\u5982\uff1a<\/p>\n
package Text is\r\npackage Line is\r\npackage Mailbox is\r\npackage Message is\r\npackage Attributes is\r\npackage Subscriber is\r\npackage List_Generic is<\/pre>\n\u82e5\u4e00\u4e2a\u7a0b\u5e8f\u5305\u8bf4\u660e\u4e86\u4e00\u4e2a\u63a5\u53e3\u6216\u8005\u529f\u80fd\u5206\u7ec4\uff0c\u5e76\u4e14\u5b83\u4e0d\u4e0e\u4efb\u4f55\u5bf9\u8c61\u76f8\u5173\uff0c\u5219\u5e94\u5728\u5b83\u7684\u540d\u5b57\u4e2d\u5c06\u8fd9\u4e00\u70b9\u8868\u8ff0\u51fa\u6765\uff1a<\/p>\n
package Low_Layer_Interface is\r\npackage Math_Definitions is<\/pre>\n\u5f53\u4e00\u4e2a\u201c\u903b\u8f91\u201d\u5305\u7528\u5e73\u9762\u5206\u89e3 (flat decomposition)\uff0c\u9700\u8981\u4f5c\u4e3a\u51e0\u4e2a\u5305\u6765\u8868\u8fbe\u65f6\uff0c\u91c7\u7528\u9879\u76ee\u7ea7\u4e00\u81f4\u7684\u5217\u8868\u4e2d\u7684\u540e\u7f00\u3002\u4f8b\u5982\uff0c\u4e00\u4e2a\u903b\u8f91\u7a0b\u5e8f\u5305 Mailbox \u53ef\u5982\u4e0b\u5b9e\u73b0\uff1a<\/p>\n
package Mailbox_Definitions is\r\npackage Mailbox_Exceptions is\r\npackage Mailbox_Io is\r\npackage Mailbox_Utilities is\r\npackage Mailbox_Implementation is\r\npackage Mailbox_Main is<\/pre>\n\u5176\u5b83\u53ef\u63a5\u53d7\u7684\u540e\u7f00\u6709\uff1a<\/p>\n
_Test_Support \r\n_Test_Main \r\n_Log \r\n_Hidden_Definitions \r\n_Maintenance \r\n_Debug<\/pre>\n<\/a>\u7c7b\u578b<\/h2>\n\u5f53\u5728\u7a0b\u5e8f\u5305\u4e2d\u5b9a\u4e49\u4e00\u4e2a\u5bf9\u8c61\u7c7b\u8574\u6db5\u62f7\u8d1d\u8bed\u4e49\u65f6 – \u5373\u5f53\u7c7b\u578b\u53ef\u5b9e\u4f8b\u5316\u5e76\u4e14\u67d0\u79cd\u5f62\u5f0f\u7684\u4efb\u52a1\u5206\u914d\u53ef\u884c\u65f6\uff0c\u91c7\u7528\uff1a<\/p>\n
type Object is ...<\/pre>\n\u6ce8\u610f\u7c7b\u540d\u4e0d\u5e94\u5728\u6807\u8bc6\u7b26\u4e2d\u91cd\u590d\uff0c\u56e0\u4e3a\u5b83\u603b\u662f\u4ee5\u5b8c\u5168\u53d7\u9650\u7684\u5f62\u5f0f\u4f7f\u7528\uff1a<\/p>\n
Mailbox.Object\r\nLine.Object<\/pre>\n\u5f53\u5305\u542b\u5171\u4eab\u8bed\u4e49\u65f6 – \u5373\u7c7b\u578b\u7528\u5b58\u53d6\u503c\uff08\u6216\u8005\u5176\u5b83\u975e\u76f4\u63a5\u7684\u5f62\u5f0f\uff09\u5b9e\u73b0\uff0c\u5e76\u4e14\u8d4b\u503c\u8bed\u53e5\uff08\u82e5\u5b58\u5728\uff09\u4e0d\u590d\u5236\u5bf9\u8c61 – \u7528\u5982\u4e0b\u65b9\u5f0f\u8bf4\u660e\uff1a<\/p>\n
UL><\/p>\n
\ntype Handle is <\/code>\u7528\u4e8e\u975e\u76f4\u63a5\u5f15\u7528<\/li>\ntype Reference is <\/code>\u662f\u4e00\u4e2a\u53ef\u884c\u7684\u5907\u7528\u65b9\u6848<\/li>\n<\/ul>\n\u8fd9\u4e9b\u5143\u7d20\u5728\u5355\u72ec\u4f7f\u7528\u65f6\u4f5c\u540e\u7f00\uff0c\u524d\u9762\u52a0\u4e0a\u5305\u540d\uff0c\u8fd9\u6837\u5e76\u4e0d\u6e05\u695a\u6216\u975e\u5e38\u6478\u68f1\u4e24\u53ef\u3002<\/p>\n
\u5f53\u8574\u6db5\u591a\u4e2a\u5bf9\u8c61\u65f6\uff0c\u91c7\u7528\uff1a<\/p>\n
\ntype Set is <\/code>\u5f53\u6697\u542b\u5143\u7d20\u7684\u7279\u6b8a\u6027\u65f6<\/li>\ntype List is <\/code>\u5f53\u5305\u542b\u67d0\u79cd\u6b21\u5e8f\u65f6<\/li>\ntype Collection is<\/code> \u5f53\u65e2\u4e0d\u542b\u96c6\u5408\u4e5f\u4e0d\u542b\u5217\u8868\u8bed\u4e49\u65f6<\/li>\ntype Iterator is<\/code> \u5f53\u63d0\u4f9b\u4e86 Initialize\uff0cValue_Of\uff0cNext\uff0cIs_Done \u7b49\u539f\u8bed\u65f6
\n\uff08\u53c2\u89c1 6.5 \u8282\uff09<\/li>\n<\/ul>\n\u5bf9\u4e8e\u67d0\u4e2a\u5bf9\u8c61\u4e32\u7684\u6307\u5b9a\uff0c\u91c7\u7528\uff1a<\/p>\n
type Name is<\/code><\/p>\n\u4e3a\u4e86\u8fbe\u5230\u66f4\u597d\u7684\u6613\u8bfb\u6027\uff0c\u7c7b\u578b\u7684\u53d7\u9650\u540d\u4e5f\u5e94\u5728\u6574\u4e2a\u5b9a\u4e49\u5305\u5185\u4f7f\u7528\u3002\u201cRational \u73af\u5883\u201d\u4e2d\uff0c\u5f53\u5728\u5b50\u7a0b\u5e8f\u8c03\u7528\u4e2d\u91c7\u7528 [Complete] \u51fd\u6570\u65f6\uff0c\u4e0a\u8ff0\u65b9\u6cd5\u4e5f\u53ef\u4f7f\u8fd0\u884c\u66f4\u52a0\u597d\u3002<\/p>\n
\u4f8b\u5982\uff0c\u6ce8\u610f\u4e0b\u9762\u7684\u5b8c\u5168\u540d Subscriber.Object\uff1a<\/p>\n
package Subscriber is\r\ntype Object is private;\r\ntype Handle is access Subscriber.Object;\r\nsubtype Name is String;\r\npackage List is new List_Generic (Subscriber.Handle);\r\nMaster_List : Subscriber.List.Handle;\r\nprocedure Create (The_Handle : out Subscriber.Handle;\r\nWith_Name : in Subscriber.Name);\r\nprocedure Append (The_Subscriber : in Subscriber.Handle;\r\nTo_List : in out Subscriber.List.Handle);\r\nfunction Name_Of (The_Subscriber : Subscriber.Handle) return\r\nSubscriber.Name;\r\n ...\r\nprivate\r\ntype Object is\r\nrecord\r\nThe_Name : Subscriber.Name (1..20);\r\n ...\r\nend Subscriber;<\/pre>\n\u5728\u5176\u5b83\u60c5\u51b5\u4e0b\uff0c\u7c7b\u540d\u91c7\u7528\u540d\u8bcd\u6216\u8005\u4fee\u9970\u7b26 + \u540d\u8bcd\u3002\u7c7b\u578b\u53ef\u7528\u590d\u6570\u5f62\u5f0f\uff0c\u5bf9\u8c61\uff08\u53d8\u91cf\uff09\u540d\u91c7\u7528\u5355\u6570\uff1a<\/p>\n
type Point is record ...\r\ntype Hidden_Attributes is ( ...\r\ntype Boxes is array ...<\/pre>\n\u5bf9\u4e8e\u679a\u4e3e\u7c7b\u578b\uff0c\u5355\u72ec\u6216\u8005\u4f5c\u4e3a\u540e\u7f00\u4f7f\u7528 Mode\uff0cKind\uff0cCode \u7b49\u5355\u8bcd\u3002<\/p>\n
\u5bf9\u4e8e\u6570\u7ec4\u7c7b\u578b\uff0c\u5f53\u5df2\u5c06\u7b80\u5355\u540d\u7528\u4e8e\u7ec4\u4ef6\u7c7b\u578b\u65f6\uff0c\u53ef\u4ee5\u91c7\u7528\u540e\u7f00 _Table\u3002\u4ec5\u5f53\u6570\u7ec4\u7528\u8574\u6db5\u8bed\u4e49\u6765\u7ef4\u62a4\u65f6\uff0c\u624d\u91c7\u7528\u8c61 _Set \u548c _List \u8fd9\u6837\u7684\u540d\u5b57\u6216\u540e\u7f00\u3002Reserve _Vector \u548c _Matrix \u5e94\u7559\u4f5c\u76f8\u5e94\u7684\u6570\u5b66\u6982\u5ff5\u4f7f\u7528\u3002<\/p>\n
\u56e0\u4e3a\u8981\u907f\u514d\u5355\u6570\u7684\u4efb\u52a1\u5bf9\u8c61\uff08\u539f\u56e0\u5728\u540e\u6587\u89e3\u91ca\uff09\uff0c\u6240\u4ee5\u5373\u4f7f\u53ea\u6709\u4e00\u4e2a\u8be5\u7c7b\u578b\u7684\u5bf9\u8c61\u65f6\uff0c\u4e5f\u5e94\u5f15\u5165\u4efb\u52a1\u7c7b\u578b\u3002\u4e0b\u9762\u662f\u4f7f\u7528\u4e86\u4e00\u4e2a\u8c61 _Type \u8fd9\u6837\u7684\u7b80\u5355\u540e\u7f00\u4e4b\u540e\u4fbf\u4ee4\u4eba\u6ee1\u610f\u7684\u4f8b\u5b50\uff1a<\/p>\n
task type Listener_Type is ...\r\nfor Listener_Type'Storage_Size use ...\r\nListener : Listener_Type;<\/pre>\n\u7c7b\u4f3c\u5730\uff0c\u5f53\u7c7b\u578b\u540d\u91c7\u7528\u540d\u8bcd\uff08\u6216\u8005\u540d\u8bcd\u77ed\u8bed\uff09\u5b58\u5728\u51b2\u7a81\u65f6\uff0c\u6216\u8005\u51e0\u5904\u7684\u5bf9\u8c61\u540d\u6216\u53c2\u6570\u540d\u6709\u51b2\u7a81\u65f6\uff0c\u5728\u8be5\u7c7b\u578b\u540d\u540e\u52a0\u4e0a\u540e\u7f00 _Kind\uff0c\u800c\u8ba9\u5bf9\u8c61\u4f7f\u7528\uff08\u65e0\u540e\u7f00\u7684\uff09\u7b80\u5355\u540d\u8bcd\uff1a<\/p>\n
type Status_Kind is (None, Normal, Urgent, Red);\r\nStatus : Status_Kind := None;<\/pre>\n\u6216\u8005\uff0c\u5bf9\u4e8e\u603b\u4ee5\u590d\u6570\u51fa\u73b0\u7684\u4e8b\u7269\u7684\u7c7b\u578b\uff0c\u91c7\u7528\u590d\u6570\u5f62\u5f0f\u3002<\/p>\n
\u56e0\u4e3a\u5b58\u53d6\u7c7b\u578b\u5b58\u5728\u56fa\u6709\u7684\u5371\u5bb3\uff0c\u6240\u4ee5\u4f7f\u7528\u8005\u5e94\u5c0f\u5fc3\u3002\u4e00\u822c\u5b83\u4eec\u53eb\u505a Pointer\u3002\u5982\u679c\u540d\u5b57\u672c\u8eab\u610f\u4e49\u8fd8\u5f88\u6478\u68f1\u4e24\u53ef\uff0c\u5219\u5e94\u52a0\u4e0a\u540e\u7f00 _pointer\u3002\u4f5c\u4e3a\u540e\u5907\u65b9\u6848\uff0c\u4e5f\u53ef\u91c7\u7528 _Access \u505a\u540e\u7f00\u3002<\/p>\n
\u6709\u65f6\u91c7\u7528\u5d4c\u5957\u5b50\u7a0b\u5e8f\u5305\u6765\u5f15\u5165\u6b21\u7ea7\u62bd\u8c61\u53ef\u4ee5\u7b80\u5316\u547d\u540d\uff1a<\/p>\n
package Subscriber is ...\r\npackage Status is\r\ntype Kind is (Ok, Deleted, Incomplete, Suspended, \r\nPrivileged);\r\nfunction Set (The_Status : Subscriber.Status.Kind;\r\nTo_Subscriber : Subscriber.Handle);\r\nend Status;\r\n ...<\/pre>\n<\/a>\u5f02\u5e38<\/h2>\n\u56e0\u4e3a\u5f02\u5e38\u53ea\u80fd\u7528\u6765\u5904\u7406\u9519\u8bef\uff0c\u6240\u4ee5\u5e94\u4f7f\u7528\u540d\u8bcd\u6216\u540d\u8bcd\u77ed\u8bed\u6765\u6e05\u695a\u8868\u8fbe\u4e00\u4e2a\u8d1f\u9762\u7684\u610f\u4e49\uff1a<\/p>\n
Overflow, Threshold_Exceeded, Bad_Initial_Value<\/pre>\n\u5f53\u5728\u4e00\u4e2a\u7c7b\u7a0b\u5e8f\u5305\u4e2d\u5b9a\u4e49\u5f02\u5e38\u65f6\uff0c\u6807\u8bc6\u7b26\u65e0\u9700\u5305\u542b\u7c7b\u540d – \u4f8b\u5982 Bad_Initial_Subscriber_Value – \u56e0\u4e3a\u5f02\u5e38\u4e00\u76f4\u88ab\u7528\u4f5c Subscriber.Bad_Initial_Value\u3002<\/p>\n
\u91c7\u7528 Bad\uff0cIncomplete\uff0cInvalid\uff0cWrong\uff0cMissing \u6216\u8005 Illegal \u4e2d\u7684\u4e00\u4e2a\u5355\u8bcd\u4f5c\u4e3a\u540d\u5b57\u7684\u4e00\u90e8\u5206\uff0c\u800c\u4e0d\u662f\u7cfb\u7edf\u5730\u91c7\u7528\u4e0d\u4f20\u8fbe\u4efb\u4f55\u8be6\u7ec6\u4fe1\u606f\u7684 Error\uff1a<\/p>\n
Illegal_Data, Incomplete_Data<\/pre>\n<\/a>\u5b50\u7a0b\u5e8f<\/h2>\n\u8fc7\u7a0b\uff08\u548c\u4efb\u52a1\u5165\u53e3\uff09\u91c7\u7528\u52a8\u8bcd\u3002\u51fd\u6570\u540d\u91c7\u7528\u5e26\u6709\u5bf9\u8c61\u7c7b\u5c5e\u6027\u6216\u7279\u5f81\u7684\u540d\u8bcd\u3002\u8fd4\u56de\u5e03\u5c14\u503c\uff08\u8c13\u8bcd\uff09\u7684\u51fd\u6570\u4f7f\u7528\u5f62\u5bb9\u8bcd\uff08\u6216\u8fc7\u53bb\u5206\u8bcd\uff09\u3002<\/p>\n
Subscriber.Create\r\nSubscriber.Destroy\r\nSubscriber.List.Append\r\nSubscriber.First_Name -- Returns a string.\r\nSubscriber.Creation_Date -- Returns a date.\r\nSubscriber.List.Next\r\nSubscriber.Deleted -- Returns a Boolean.\r\nSubscriber.Unavailable -- Returns a Boolean.\r\nSubscriber.Remote<\/pre>\n\u5bf9\u4e8e\u8c13\u8bcd\uff0c\u5728\u4e00\u4e9b\u60c5\u51b5\u4e0b\u7ed9\u540d\u8bcd\u524d\u9762\u52a0\u4e0a\u524d\u7f00 Is_ \u6216 Has_ \u6216\u8bb8\u6709\u5e2e\u52a9\uff1b\u65f6\u6001\u8981\u51c6\u786e\u548c\u4e00\u81f4\uff1a<\/p>\n
function Has_First_Name ...\r\nfunction Is_Administrator ...\r\nfunction Is_First...\r\nfunction Was_Deleted ...<\/pre>\n\u5f53\u7b80\u5355\u540d\u79f0\u5df2\u4f5c\u4e3a\u7c7b\u578b\u540d\u6216\u679a\u4e3e\u578b\u76f4\u63a5\u91cf\u65f6\uff0c\u4e0a\u8ff0\u65b9\u6cd5\u6709\u7528\u3002<\/p>\n
\u8c13\u8bcd\u5e94\u4f7f\u7528\u80af\u5b9a\u5f0f\uff0c\u4e5f\u5c31\u662f\u8bf4\uff0c\u5176\u4e2d\u4e0d\u5e94\u542b\u6709\u201cNot_\u201d\u4e00\u8bcd\u3002<\/p>\n
\u5bf9\u4e8e\u666e\u901a\u64cd\u4f5c\uff0c\u7edf\u4e00\u4ece\u9879\u76ee\u53ef\u9009\u5217\u8868\uff08\u5217\u8868\u968f\u7740\u6211\u4eec\u5bf9\u7cfb\u7edf\u8ba4\u8bc6\u7684\u52a0\u6df1\u800c\u6269\u5c55\uff09\u4e2d\u9009\u62e9\u52a8\u8bcd\uff1a<\/p>\n
Create\r\nDelete\r\nDestroy\r\nInitialize\r\nAppend\r\nRevert\r\nCommit\r\nShow, Display<\/pre>\n\u8c13\u8bcd\u51fd\u6570\u548c\u5e03\u5c14\u578b\u7684\u53c2\u6570\u91c7\u7528\u80af\u5b9a\u5f0f\u3002\u5426\u5b9a\u5f0f\u7684\u540d\u5b57\u53ef\u80fd\u4ea7\u751f\u53cc\u91cd\u5426\u5b9a\uff08\u4f8b\u5982 Not Is_Not_Found\uff09\uff0c\u4ece\u800c\u4f7f\u4ee3\u7801\u96be\u8bfb\u3002<\/p>\n
function Is_Not_Valid (...) return Boolean\r\nprocedure Find_Client (With_The_Name : in Name;\r\nNot_Found : out Boolean)<\/pre>\n\u5e94\u5b9a\u4e49\u6210\uff1a<\/p>\n
function Is_Valid (...) return Boolean;\r\nprocedure Find_Client (With_The_Name: in Name;\r\nFound: out Boolean)<\/pre>\n\u8fd9\u624d\u8ba9\u4eab\u7528\u6a21\u5757\u6309\u5176\u6240\u9700\u7684\u90a3\u6837\u5b9e\u73b0\u4e86\u8868\u8fbe\u5f0f\u7684\u5426\u5b9a\uff08\u8fd9\u6837\u505a\u4e0d\u4f1a\u5bfc\u81f4\u8fd0\u884c\u65f6\u95f4\u5ef6\u957f\uff09\uff1a<\/p>\n
if not Is_Valid (...) then ....<\/pre>\n\u6709\u4e9b\u60c5\u51b5\u4e0b\uff0c\u901a\u8fc7\u4f7f\u7528\u53cd\u4e49\u8bcd\uff0c\u5982\u7528\u201cIs_Invalid\u201d\u6765\u4ee3\u66ff\u201cIs_Not_Valid\u201d\uff0c\u53ef\u4ee5\u4f7f\u5426\u5b9a\u8c13\u8bcd\u5728\u4e0d\u6539\u53d8\u8bed\u4e49\u7684\u60c5\u51b5\u4e0a\u53d8\u6210\u80af\u5b9a\u5f0f\u3002\u4f46\u662f\uff0c\u80af\u5b9a\u5f0f\u7684\u540d\u5b57\u66f4\u6613\u8bfb\uff1a \u201cIs_Valid\u201d\u6bd4\u201cnot Is_Invalid\u201d\u66f4\u6613\u7406\u89e3\u3002<\/p>\n
\u5f53\u8574\u6db5\u7740\u5927\u81f4\u76f8\u540c\u7684\u610f\u4e49\u65f6\uff0c\u91c7\u7528\u76f8\u540c\u7684\u5355\u8bcd\uff0c\u800c\u4e0d\u662f\u5bfb\u627e\u540c\u4e49\u8bcd\u6216\u53d8\u4f53\u3002\u56e0\u6b64\uff0c\u9f13\u52b1\u4f7f\u7528\u91cd\u8f7d\u6765\u63d0\u9ad8\u4ee3\u7801\u7684\u4e00\u81f4\u6027\uff0c\u9075\u5faa\u6700\u5c0f\u9650\u5ea6\u610f\u5916\u539f\u5219\u3002<\/p>\n
\u82e5\u5b50\u7a0b\u5e8f\u88ab\u7528\u505a\u5165\u53e3\u8c03\u7528\u7684\u201c\u5916\u8868\u201d (skins) \u6216\u8005\u201c\u5305\u88c5\u201d (wrappers)\uff0c\u5219\u7ed9\u5176\u540d\u5b57\u52a8\u8bcd\u52a0\u4e0a\u540e\u7f00 _Or_Wait\uff0c\u6216\u8005\u7ed9\u51fd\u6570\u53d6\u4e2a Wait_For_ \u77ed\u8bed\u52a0\u540d\u8bcd\u7684\u540d\u5b57\u6765\u53cd\u6620\u8fd9\u4e00\u70b9\uff0c\u8fd9\u6837\u53ef\u80fd\u6709\u7528\uff1a<\/p>\n
Subscriber.Get_Reply_Or_Wait\r\nSubscriber.Wait_For_Reply<\/pre>\n\u4e00\u4e9b\u64cd\u4f5c\u5e94\u4e00\u76f4\u4f7f\u7528\u76f8\u540c\u7684\u540d\u5b57\u6765\u7edf\u4e00\u5b9a\u4e49\uff1a<\/p>\n
\u5bf9\u4e8e\u8f6c\u6362\u5230\u5b57\u4e32\u548c\u4ece\u5b57\u4e32\u8f6c\u6362\u6765\u7684\u7c7b\u578b\u53d8\u6362\uff0c\u5bf9\u79f0\u51fd\u6570\u662f\uff1a<\/p>\n
function Image and function Value<\/pre>\n\u5bf9\u4e8e\u8f6c\u6362\u5230\u4f4e\u7ea7\u8868\u793a\u6cd5\uff08\u5982\u7528\u4e8e\u6570\u636e\u4ea4\u6362\u7684 Byte_String\uff09\u548c\u4ece\u4f4e\u7ea7\u8868\u793a\u6cd5\u8f6c\u6362\u8fc7\u6765\u7684\u7c7b\u578b\u53d8\u6362\uff0c\u5bf9\u79f0\u8fc7\u7a0b\u662f\uff1a<\/p>\n
procedure Read and Write<\/pre>\n\u5bf9\u4e8e\u5206\u914d\u6570\u636e\uff1a<\/p>\n
function Allocate (rather than Create)\r\nfunction Destroy (or Release, to express that the object will disappear)<\/pre>\n\u5f53\u7cfb\u7edf\u5730\u5904\u7406\u5b83\u4eec\u65f6\u91c7\u7528\u7edf\u4e00\u7684\u547d\u540d\uff0c\u7c7b\u578b\u5408\u6210\u5c06\u5bb9\u6613\u8bb8\u591a\u3002<\/p>\n
\u5bf9\u4e8e\u6d3b\u52a8\u7684\u8fed\u4ee3\u7a0b\u5e8f\uff0c\u5fc5\u987b\u5b9a\u4e49\u4ee5\u4e0b\u539f\u8bed\uff1a<\/p>\n
Initialize\r\nNext\r\nIs_Done\r\nValue_Of<\/pre>\n\u82e5\u53ef\u884c\uff0c\u8fd8\u8981\u5b9a\u4e49 Reset<\/code>\u3002\u82e5\u8981\u5728\u76f8\u540c\u7684\u4f5c\u7528\u57df\u8303\u56f4\u5185\u5f15\u5165\u51e0\u4e2a\u8fed\u4ee3\u7c7b\u578b\uff0c\u90a3\u4e48\u5e94\u91cd\u8f7d\u8fd9\u4e9b\u539f\u8bed\uff0c\u800c\u4e0d\u662f\u4e3a\u6bcf\u4e2a\u8fed\u4ee3\u7a0b\u5e8f\u5206\u522b\u5f15\u5165\u4e00\u5957\u5404\u4e0d\u76f8\u540c\u7684\u6807\u8bc6\u7b26\u3002\u53c2\u89c1 [BOO87]<\/a>\u3002<\/p>\n\u5f53\u91c7\u7528 Ada \u9884\u786e\u5b9a\u5c5e\u6027\u4f5c\u4e3a\u51fd\u6570\u540d\u65f6\uff0c\u8981\u4fdd\u8bc1\u5176\u7528\u6cd5\u4e0e\u4e00\u822c\u7684\u8bed\u4e49\u76f8\u540c\uff1a’First\uff0c’Last\uff0c’Length\uff0c’Image\uff0c’Value\uff0c\u7b49\u7b49\u3002 \u6ce8\u610f\uff0c\u51e0\u4e2a\u5c5e\u6027\uff08\u5982 ‘Range \u548c ‘Delta\uff09\u662f\u4e0d\u80fd\u7528\u505a\u51fd\u6570\u540d\u7684\uff0c\u56e0\u4e3a\u5b83\u4eec\u662f\u4fdd\u7559\u5b57\u3002<\/p>\n
<\/a>\u5bf9\u8c61\u548c\u5b50\u7a0b\u5e8f\uff08\u6216\u5165\u53e3\uff09\u53c2\u6570<\/h2>\n\u4e3a\u8868\u660e\u5176\u552f\u4e00\u6027\u6216\u662f\u8868\u660e\u8be5\u5b9e\u4f53\u662f\u6d3b\u52a8\u7684\u4e3b\u8981\u805a\u96c6\u5904\uff0c\u5728\u5bf9\u8c61\u6216\u53c2\u6570\u540d\u79f0\u524d\u52a0\u524d\u7f00\u201cThe\u201d\u6216\u201cThis\u201d\u3002\u8981\u8bf4\u660e\u4e00\u4e2a\u6b21\u8981\u3001\u4e34\u65f6\u3001\u8f85\u52a9\u7684\u5bf9\u8c61\uff0c\u5219\u52a0\u524d\u7f00\u201cA_\u201d\u6216\u201cCurrent_\u201d\uff1a<\/p>\n
procedure Change_Name (The_Subscriber : in Subscriber.Handle;\r\nThe_Name : in Subscriber.Name );\r\ndeclare\r\nA_Subscriber : Subscriber.Handle := Subscriber.First;\r\nbegin\r\n ...\r\nA_Subscriber := Subscriber.Next (The_Subscriber);\r\nend;<\/pre>\n\u5bf9\u4e8e\u5e03\u5c14\u578b\u7684\u5bf9\u8c61\uff0c\u91c7\u7528\u80af\u5b9a\u5f0f\u7684\u8c13\u8bcd\u5b50\u53e5\uff1a<\/p>\n
Found_It\r\nIs_Available<\/pre>\n\u4f46\u662f\uff1a<\/p>\n
Is_Not_Available<\/code> \u5fc5\u987b\u907f\u514d\u3002<\/p>\n\u5bf9\u4e8e\u4efb\u52a1\u5bf9\u8c61\uff0c\u5e94\u91c7\u7528\u4e00\u4e2a\u8574\u6db5\u4e86\u6d3b\u52a8\u5b9e\u4f53\u7684\u540d\u8bcd\u6216\u8005\u540d\u8bcd\u77ed\u8bed\uff1a<\/p>\n
Listener\r\nResource_Manager\r\nTerminal_Driver<\/pre>\n
\n
<\/a>\u7b2c\u4e00\u7ae0<\/em><\/h2>\n\u5173\u4e8e\u672c\u6587\u6863<\/h1>\n
\u672c\u6587\u6863 Rational Unified Process – Ada \u7f16\u7a0b\u6307\u5357<\/em>\u662f\u4e00\u4e2a\u6807\u51c6\u7684\u6a21\u677f\uff0c\u4f60\u7684\u5f00\u53d1\u7ec4\u7ec7\u53ef\u4f9d\u6b64\u6d3e\u751f\u51fa\u4e00\u5957\u7a0b\u5e8f\u8bbe\u8ba1\u6807\u51c6\u3002\u8be5\u6307\u5357\u8be6\u7ec6\u8bf4\u660e\u4e86\u5e94\u5982\u4f55\u7f16\u5199 Ada \u7a0b\u5e8f\u3002\u672c\u6587\u670d\u52a1\u7684\u5bf9\u8c61\u662f\u6240\u6709\u5c06 Ada \u4f5c\u4e3a\u5b9e\u65bd\u8bed\u8a00\u6216\u8005\u4e00\u79cd\u8bf4\u660e\u63a5\u53e3\u6216\u6570\u636e\u7ed3\u6784\u7684\u8bbe\u8ba1\u8bed\u8a00\u7684\u5e94\u7528\u8f6f\u4ef6\u8bbe\u8ba1\u8005\u548c\u5f00\u53d1\u8005\u3002<\/p>\n\u6587\u4e2d\u6240\u63cf\u8ff0\u7684\u89c4\u5219\u56ca\u62ec\u4e86\u7a0b\u5e8f\u8bbe\u8ba1\u7684\u5927\u90e8\u5206\u65b9\u9762\u3002\u901a\u7528\u89c4\u5219\u9002\u7528\u4e8e\u7a0b\u5e8f\u5e03\u5c40\u3001\u547d\u540d\u7ea6\u5b9a\u548c\u6ce8\u91ca\u5e94\u7528\u3002\u7279\u6b8a\u89c4\u5219\u9002\u7528\u4e8e\u9009\u5b9a\u7684 Ada \u7279\u6027\uff0c\u5e76\u8bf4\u660e\u4e86\u7981\u7528\u6784\u9020\u3001\u63a8\u8350\u4f7f\u7528\u6a21\u5f0f\u548c\u7528\u4ee5\u63d0\u9ad8\u7a0b\u5e8f\u8d28\u91cf\u7684\u901a\u7528\u6280\u5de7\u3002<\/p>\n
\u9879\u76ee\u7684\u8bbe\u8ba1<\/em>\u6307\u5357\u548c\u5f53\u524d\u7684\u7f16\u7a0b<\/em>\u6307\u5357\u6709\u4e00\u5b9a\u7684\u91cd\u590d\uff0c\u662f\u6709\u610f\u8fd9\u6837\u505a\u7684\u3002\u4ecb\u7ecd\u7684\u8bb8\u591a\u7a0b\u5e8f\u8bbe\u8ba1\u89c4\u5219\uff0c\u5c24\u5176\u662f\u5728\u547d\u540d\u7ea6\u5b9a<\/em>\u4e2d\u7684\u89c4\u5219\uff0c\u7528\u4e8e\u79ef\u6781\u652f\u6301\u548c\u52a0\u5f3a\u8f6f\u4ef6\u8bbe\u8ba1\u4e2d\u7684\u9762\u5411\u5bf9\u8c61<\/em>\u65b9\u5f0f\u3002<\/p>\n\u6307\u5357\u6700\u521d\u7528\u4e8e Ada 83\u3002\u5b83\u542b\u6709\u4e0e Ada 95 \u517c\u5bb9\u7684\u89c4\u5219\uff0c\u4f46\u4e0d\u542b\u6709\u6539\u7248\u540e\u8bed\u8a00\u6807\u51c6\u65b0\u7279\u6027\u7684\u4f7f\u7528\u6307\u5357\uff0c\u4f8b\u5982\u6807\u8bc6\u7c7b\u578b\u3001\u5b50\u5355\u5143\u6216\u5c0f\u6570\u7c7b\u578b\u3002<\/p>\n
\u6587\u6863\u5927\u81f4\u6309\u7167 Ada Reference Manual \u7684\u7ed3\u6784\u6765\u7ec4\u7ec7 [ISO 8052]<\/a>\u3002<\/p>\n\u7b2c\u4e8c\u7ae0\u201c\u7b80\u4ecb<\/em>\u201d\u89e3\u91ca\u4e86\u6307\u5357\u6240\u57fa\u4e8e\u7684\u57fa\u672c\u539f\u7406\u5e76\u4ecb\u7ecd\u4e86\u6307\u5357\u5206\u7c7b\u3002<\/p>\n\u7b2c\u4e09\u7ae0\u201c\u4ee3\u7801\u5e03\u5c40<\/em>\u201d\u8bb2\u8ff0\u4e86\u7a0b\u5e8f\u6587\u672c\u7684\u4e00\u822c\u89c6\u89c9\u7ec4\u7ec7\u7ed3\u6784\u3002<\/p>\n\u7b2c\u56db\u7ae0\u201c\u6ce8\u91ca<\/em>\u201d\u7ed9\u51fa\u4e86\u5982\u4f55\u7528\u7ed3\u6784\u5316\u7684\u3001\u53ef\u7528\u7684\u548c\u53ef\u7ef4\u62a4\u7684\u65b9\u5f0f\u6765\u6ce8\u91ca\u8bf4\u660e\u4ee3\u7801\u3002<\/p>\n\u7b2c\u4e94\u7ae0\u201c\u547d\u540d\u7ea6\u5b9a<\/em>\u201d\u7ed9\u51fa\u6709\u5173\u547d\u540d\u8bed\u8a00\u5b9e\u4f53\u7684\u4e00\u822c\u89c4\u5219\u548c\u8303\u4f8b\u3002\u8fd9\u4e00\u7ae0\u7684\u5185\u5bb9\u5e94\u518d\u7ecf\u4fee\u6539\uff0c\u4ee5\u6ee1\u8db3\u7279\u5b9a\u9879\u76ee\u6216\u673a\u6784\u7684\u9700\u8981\u3002<\/p>\n\u7b2c\u516d\u7ae0\u201c\u58f0\u660e<\/em>\u201d\u548c\u7b2c\u4e03\u7ae0\u201c\u8868\u8fbe\u5f0f\u548c\u8bed\u53e5<\/em>\u201d\u5bf9\u6bcf\u79cd\u8bed\u8a00\u7ed3\u6784\u7ed9\u51fa\u4e86\u8fdb\u4e00\u6b65\u7684\u5efa\u8bae\u3002<\/p>\n\u7b2c\u516b\u7ae0\u201c\u53ef\u89c6\u6027\u95ee\u9898<\/em>\u201d\u548c\u7b2c\u4e5d\u7ae0\u201c\u7a0b\u5e8f\u7ed3\u6784\u548c\u7f16\u8bd1\u95ee\u9898<\/em>\u201d\u7ed9\u51fa\u4e86\u6709\u5173\u5168\u5c40\u6784\u5efa\u548c\u7a0b\u5e8f\u7ec4\u6210\u7684\u6307\u5bfc\u3002<\/p>\n\u7b2c\u5341\u7ae0\u201c\u5e76\u884c<\/em>\u201d\u5904\u7406\u8bed\u8a00\u4e2d\u6709\u5173\u4f7f\u7528\u4efb\u52a1\u548c\u65f6\u95f4\u76f8\u5173\u7279\u6027\u7684\u4e13\u95e8\u95ee\u9898\u3002<\/p>\n\u7b2c\u5341\u4e00\u7ae0\u201c\u9519\u8bef\u5904\u7406\u548c\u5f02\u5e38<\/em>\u201d\u7ed9\u51fa\u5982\u4f55\u7cfb\u7edf\u5730\u3001\u7b80\u4fbf\u5730\u4f7f\u7528\u6216\u4e0d\u4f7f\u7528\u5f02\u5e38\u6765\u5904\u7406\u9519\u8bef\u3002<\/p>\n\u7b2c\u5341\u4e8c\u7ae0\u201c\u4f4e\u7ea7\u7f16\u7a0b<\/em>\u201d\u5904\u7406\u8868\u793a\u5b50\u53e5\u7684\u95ee\u9898\u3002<\/p>\n\u7b2c\u5341\u4e09\u7ae0\u201c\u603b\u7ed3<\/em>\u201d\u627c\u8981\u590d\u8ff0\u4e86\u6700\u4e3a\u91cd\u8981\u7684\u6307\u5bfc\u65b9\u9488\u3002<\/p>\n\u672c\u6587\u6863\u53d6\u4ee3\u4e86 Ada Guidelines: Recommendation for Designers and programmers<\/em> \u4e2d\u7684 Application Note #15, Rational, Santa Clara, CA., 1990\u3002<\/p>\n
\n<\/a>\u7b2c\u4e8c\u7ae0<\/em><\/h2>\n\u7b80\u4ecb<\/h1>\n\u57fa\u672c\u539f\u5219<\/h2>\n
Ada \u8bed\u8a00\u7684\u8bbe\u8ba1\u5f88\u6709\u9488\u5bf9\u6027\u7684\u76ee\u7684\u5c31\u662f\u652f\u6301\u9ad8\u8d28\u91cf\u3001\u53ef\u9760\u3001\u53ef\u590d\u7528\u548c\u53ef\u79fb\u690d\u8f6f\u4ef6 [ISO 87, sect. 1.3]<\/a>\u3002\u7136\u800c\uff0c\u6ca1\u6709\u54ea\u4e00\u79cd\u8bed\u8a00\u4ec5\u9760\u5176\u672c\u8eab\u5c31\u53ef\u4ee5\u5b9e\u73b0\u4e0a\u8ff0\u76ee\u6807\u3002\u7a0b\u5e8f\u8bbe\u8ba1\u5fc5\u987b\u662f\u4e00\u4e2a\u6709\u826f\u597d\u89c4\u8303\u7684\u8fc7\u7a0b\u7684\u4e00\u90e8\u5206\u3002<\/p>\n\u6e05\u695a\u660e\u767d\u7684 Ada \u6e90\u4ee3\u7801\u662f\u672c\u6587\u4e2d\u5927\u591a\u6570\u6307\u5bfc\u65b9\u9488\u7684\u4e3b\u8981\u76ee\u6807\u3002\u8fd9\u4e00\u70b9\u662f\u5b9e\u73b0\u53ef\u9760\u6027\u548c\u53ef\u7ef4\u62a4\u6027\u7684\u4e3b\u8981\u56e0\u7d20\u3002\u6240\u8c13\u6e05\u695a\u660e\u767d\u7684\u4ee3\u7801\u53ef\u4ee5\u4ece\u4ee5\u4e0b\u4e09\u6761\u7b80\u5355\u7684\u57fa\u672c\u539f\u5219\u4e0a\u6765\u7406\u89e3\u3002<\/p>\n
\u6700\u5c0f\u9650\u5ea6\u7684\u610f\u5916<\/h3>\n
\u5728\u5176\u751f\u547d\u671f\u5185\uff0c\u4ee3\u7801\u66f4\u591a\u5730\u662f\u88ab\u8bfb\uff0c\u800c\u4e0d\u662f\u88ab\u5199\uff0c\u5c24\u5176\u662f\u5b83\u7684\u8bf4\u660e\u90e8\u5206\u3002\u7406\u60f3\u60c5\u51b5\u4e0b\uff0c\u4ee3\u7801\u8bfb\u8d77\u6765\u5e94\u8be5\u8c61\u4e00\u7bc7\u8bf4\u660e\u5b83\u505a\u4e86\u4ec0\u4e48\u7684\u82f1\u6587\u63cf\u8ff0\uff0c\u5b83\u5177\u6709\u4e00\u4e2a\u9644\u52a0\u4f18\u70b9\u662f\u53ef\u4ee5\u6267\u884c\u3002 \u7a0b\u5e8f\u66f4\u591a\u662f\u4e3a\u4eba\u7f16\u5199\uff0c\u800c\u4e0d\u662f\u4e3a\u8ba1\u7b97\u673a\u7f16\u5199\u3002\u9605\u8bfb\u7f16\u7801\u662f\u4e00\u4e2a\u590d\u6742\u7684\u8111\u529b\u8fc7\u7a0b\uff0c\u5b83\u53ef\u901a\u8fc7\u7edf\u4e00\u6807\u51c6\u6765\u7b80\u5316\uff0c\u5728\u672c\u6587\u4e2d\u8fd9\u4e00\u6307\u5bfc\u4e5f\u53eb\u201c\u6700\u5c0f\u9650\u5ea6\u610f\u5916\u539f\u5219<\/em>\u201d\u3002\u6574\u4e2a\u9879\u76ee\u4e2d\u7edf\u4e00\u6837\u5f0f\u662f\u8f6f\u4ef6\u5f00\u53d1\u56e2\u961f\u5728\u7f16\u7a0b\u6807\u51c6\u4e0a\u8fbe\u6210\u4e00\u81f4\u7684\u4e3b\u8981\u539f\u56e0\uff0c\u5b83\u4e0d\u5e94\u89c6\u4e3a\u4e00\u79cd\u60e9\u7f5a\u6216\u5bf9\u521b\u9020\u6027\u548c\u751f\u4ea7\u529b\u7684\u963b\u788d\u3002<\/p>\n\u5355\u70b9\u7ef4\u62a4<\/h3>\n
\u8fd9\u4e00\u6307\u5bfc\u6240\u57fa\u4e8e\u7684\u53e6\u4e00\u4e2a\u91cd\u8981\u539f\u5219\u662f\u5355\u70b9\u7ef4\u62a4\u539f\u5219<\/em>\u3002\u5e94\u5c3d\u91cf\u4f7f\u8bbe\u8ba1\u51b3\u7b56\u53ea\u5728 Ada \u6e90\u7801\u4e2d\u7684\u4e00\u5904\u8868\u8ff0\uff0c\u5b83\u7684\u591a\u6570\u7ed3\u8bba\u5e94\u7a0b\u5e8f\u5316\u5730\u4ece\u8be5\u5904\u6d3e\u751f\u51fa\u6765\u3002\u4e0d\u9075\u5b88\u8fd9\u4e00\u539f\u5219\u4f1a\u4e25\u91cd\u5f71\u54cd\u4ee3\u7801\u7684\u53ef\u7ef4\u62a4\u6027\u3001\u53ef\u9760\u6027\u548c\u53ef\u7406\u89e3\u6027\u3002<\/p>\n\u6700\u5c0f\u9650\u5ea6\u7684\u5e72\u6270<\/h3>\n
\u6700\u540e\uff0c\u4f5c\u4e3a\u6613\u8bfb\u6027\u7684\u4e3b\u8981\u4f5c\u7528\u56e0\u7d20\uff0c\u91c7\u7528\u6700\u5c0f\u5e72\u6270\u539f\u5219<\/em>\u3002\u5373\u907f\u514d\u5c06\u6e90\u4ee3\u7801\u4e0e\u89c6\u89c9\u201c\u5e72\u6270\u201d\u76f8\u6df7\u5408\uff1a\u5373\u680f\u3001\u6846\u4ee5\u53ca\u5176\u5b83\u4f4e\u4fe1\u606f\u91cf\u7684\u6587\u672c\u6216\u662f\u5bf9\u7406\u89e3\u8f6f\u4ef6\u529f\u80fd\u6ca1\u6709\u5e2e\u52a9\u7684\u4fe1\u606f\u3002<\/p>\n\u53ef\u79fb\u690d\u6027\u548c\u53ef\u590d\u7528\u6027\u4e5f\u662f\u5236\u5b9a\u8bb8\u591a\u6307\u5bfc\u65b9\u9488\u7684\u539f\u7531\u3002\u4ee3\u7801\u5e94\u53ef\u79fb\u690d\u5230\u4e0d\u540c\u76ee\u6807\u8ba1\u7b97\u673a\u7684\u51e0\u4e2a\u4e0d\u540c\u7f16\u8bd1\u5668\u4e0a\uff0c\u5e76\u6700\u7ec8\u79fb\u690d\u5230\u4e00\u4e2a\u66f4\u9ad8\u7ea7\u7684 Ada \u7248\u672c\u201cAda 95\u201d\u4e0a [PLO92,<\/a> TAY92]<\/a>\u3002<\/p>\n<\/a>\u5047\u8bbe<\/h2>\n\u8fd9\u91cc\u7684\u6307\u5bfc\u65b9\u9488\u6709\u51e0\u4e2a\u57fa\u672c\u5047\u8bbe\uff1a<\/p>\n
\u8bfb\u8005\u4e86\u89e3 Ada\u3002<\/h3>\n
\u5e94\u9f13\u52b1\u5728\u4efb\u4f55\u53ef\u5e26\u6765\u597d\u5904\u7684\u5730\u65b9\u4f7f\u7528 Ada \u7684\u9ad8\u7ea7\u7279\u6027\uff0c\u800c\u4e0d\u8981\u4ec5\u4ec5\u56e0\u4e3a\u4e00\u4e9b\u7a0b\u5e8f\u5458\u4e0d\u719f\u6089\u5b83\u4eec\u800c\u53cd\u5bf9\u91c7\u7528\u3002 \u8fd9\u662f\u9879\u76ee\u80fd\u4ece\u4f7f\u7528 Ada \u4e2d\u771f\u6b63\u83b7\u76ca\u7684\u552f\u4e00\u65b9\u5f0f\u3002Ada \u4e0d\u5e94\u8c61 Pascal \u6216 FORTRAN \u8bed\u8a00\u90a3\u6837\u4f7f\u7528\u3002\u4e0d\u9f13\u52b1\u5728\u6ce8\u91ca\u4e2d\u89e3\u91ca\u4ee3\u7801\uff1b\u76f8\u53cd\uff0cAda \u672c\u8eab\u5e94\u5c3d\u53ef\u80fd\u5730\u53d6\u4ee3\u6ce8\u91ca\u3002<\/p>\n
\u8bfb\u8005\u61c2\u82f1\u6587\u3002<\/h3>\n
\u8bb8\u591a\u547d\u540d\u7ea6\u5b9a\u5728\u8bcd\u6c47\u548c\u8bed\u6cd5\u4e0a\u57fa\u4e8e\u82f1\u6587\u3002\u6b64\u5916\uff0c Ada \u7684\u5173\u952e\u5b57\u90fd\u662f\u5e38\u7528\u7684\u82f1\u8bed\u5355\u8bcd\u3002\u5c06\u5176\u4e0e\u5176\u5b83\u8bed\u8a00\u6df7\u5408\u5c06\u964d\u4f4e\u4ee3\u7801\u7684\u6613\u8bfb\u6027\u3002<\/p>\n
\u4e25\u683c\u9650\u5236\u4f7f\u7528\u5b50\u53e5 (use clause) \u7684\u8fd0\u7528\u3002<\/h3>\n
\u547d\u540d\u7ea6\u5b9a\u548c\u5176\u5b83\u4e00\u4e9b\u89c4\u5219\u5047\u5b9a\u201cuse\u201d\u5b50\u53e5\u4e0d\u88ab\u8fd0\u7528\u3002<\/p>\n
\u5904\u7406\u7684\u662f\u4e00\u4e2a\u5927\u9879\u76ee\u3002<\/h3>\n
\u8bb8\u591a\u89c4\u5219\u5728\u5927\u578b\u9879\u76ee\u4e2d\u6700\u6709\u4ef7\u503c\uff0c\u867d\u7136\u51fa\u4e8e\u9879\u76ee\u7ea7\u6216\u516c\u53f8\u7ea7\u5b9e\u73b0\u548c\u7edf\u4e00\u7684\u76ee\u7684\uff0c\u5b83\u4eec\u4e5f\u5728\u5c0f\u578b\u7cfb\u7edf\u4e2d\u4f7f\u7528\u3002<\/p>\n
\u6e90\u7801\u5728\u201cRational \u73af\u5883\u201d (Rational Environment) \u4e2d\u5f00\u53d1\u3002<\/h3>\n
\u901a\u8fc7\u8fd0\u7528\u201cRational \u73af\u5883\u201d (Rational Environment)\uff0c\u4e00\u4e9b\u95ee\u9898\u5982\u4ee3\u7801\u5e03\u5c40\u3001\u5c01\u95ed\u6784\u9020\u4e2d\u7684\u6807\u8bc6\u7b26\u7b49\u5c31\u5728 Ada \u7f16\u8f91\u5668\u548c\u683c\u5f0f\u5668\u4e2d\u5904\u7406\u4e86\u3002 \u4f46\u662f\u672c\u6587\u4e2d\u7684\u5e03\u5c40\u5efa\u8bae\u9002\u7528\u4e8e\u4efb\u4f55\u5f00\u53d1\u5e73\u53f0\u3002<\/p>\n
\u7a0b\u5e8f\u8bbe\u8ba1\u9075\u5faa\u9762\u5411\u5bf9\u8c61\u7684\u65b9\u6cd5\u3002<\/h3>\n
\u8bb8\u591a\u89c4\u5219\u652f\u6301\u5c06 Ada \u7279\u6027\u548c\u7279\u5b9a\u547d\u540d\u7ea6\u5b9a\u7684\u9762\u5411\u5bf9\u8c61 (OO) \u6982\u5ff5\u7684\u7cfb\u7edf\u6620\u5c04\u3002<\/p>\n
<\/a>\u6307\u5357\u5206\u7c7b<\/h2>\n\u8fd9\u4e9b\u6307\u5bfc\u65b9\u9488\u5e76\u975e\u540c\u7b49\u91cd\u8981\u3002\u5b83\u4eec\u5927\u81f4\u9075\u5faa\u4ee5\u4e0b\u7684\u7b49\u7ea7\uff1a<\/p>\n
\u63d0\u793a\uff1a<\/h3>\n
\u8be5\u6307\u5bfc\u65b9\u9488\u4ec5\u662f\u4e00\u6761\u7b80\u5355\u7684\u5efa\u8bae\uff1b\u4e0d\u9075\u5b88\u5b83\u4e5f\u4e0d\u4f1a\u6709\u4ec0\u4e48\u5b9e\u8d28\u6027\u7684\u635f\u5bb3\uff0c\u91c7\u7528\u6216\u662f\u4e0d\u91c7\u7528\u5b83\u4eec\u4ec5\u662f\u4e2a\u4eba\u559c\u597d\u95ee\u9898\u3002\u6587\u4e2d\u7684\u63d0\u793a\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u5efa\u8bae\uff1a<\/h3>\n
\u8be5\u6307\u5bfc\u65b9\u9488\u901a\u5e38\u66f4\u591a\u5730\u57fa\u4e8e\u6280\u672f\u7684\u89c2\u70b9\uff1b\u5b83\u53ef\u80fd\u4f1a\u5f71\u54cd\u5230\u4ee3\u7801\u7684\u53ef\u79fb\u690d\u6027\u6216\u53ef\u590d\u7528\u6027\uff0c\u5e76\u5728\u4e00\u4e9b\u5b9e\u65bd\u4e2d\u5f71\u54cd\u6027\u80fd\u3002 \u9664\u975e\u6709\u5408\u9002\u7684\u7406\u7531\uff0c\u5426\u5219\u5fc5\u987b\u9075\u5b88\u5efa\u8bae\u3002\u6587\u4e2d\u63d0\u5230\u4e00\u4e9b\u4f8b\u5916\u7684\u60c5\u51b5\u3002\u6587\u4e2d\u7684\u5efa\u8bae\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u9650\u5236\uff1a<\/h3>\n
\u6709\u7591\u95ee\u7684\u7279\u6027\u4f7f\u7528\u8d77\u6765\u5371\u9669\uff0c\u4f46\u5b83\u5e76\u4e0d\u88ab\u5b8c\u5168\u7981\u6b62\uff1b\u5e94\u7528\u8be5\u7279\u6027\u7684\u51b3\u5b9a\u5e94\u5728\u9879\u76ee\u7ea7\u4e0a\u505a\u51fa\uff0c\u5e76\u4e14\u51b3\u5b9a\u5e94\u8be5\u662f\u9ad8\u5ea6\u53ef\u89c1\u7684\u3002\u6587\u4e2d\u7684\u9650\u5236\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u8981\u6c42\uff1a<\/h3>\n
\u8fdd\u80cc\u5b83\u5b9a\u5c06\u5bfc\u81f4\u4e0d\u597d\u7684\u3001\u4e0d\u53ef\u9760\u7684\u6216\u662f\u4e0d\u53ef\u79fb\u690d\u7684\u4ee3\u7801\u3002 \u8981\u6c42\u4e0d\u53ef\u8fdd\u80cc\u3002\u6587\u4e2d\u7684\u8981\u6c42\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n
\u201cRational \u8bbe\u8ba1\u5de5\u5177\u201d (Rational Design Facility) \u5c06\u7528\u6765\u51cf\u5c11\u53d7\u9650\u7279\u6027\u7684\u4f7f\u7528\u5e76\u52a0\u5f3a\u5fc5\u9700\u6cd5\u5219\u548c\u8bb8\u591a\u5efa\u8bae\u7684\u8fd0\u7528\u3002<\/p>\n
\u4e0e\u8bb8\u591a\u5176\u5b83\u7684 Ada \u7a0b\u5e8f\u8bbe\u8ba1\u6807\u51c6\u4e0d\u540c\u7684\u662f\uff1a\u4e8b\u5b9e\u4e0a\uff0c\u8fd9\u4e9b\u6307\u5bfc\u65b9\u9488\u4e2d\u53ca\u5c11\u6709\u5b8c\u5168\u7981\u7528\u7684\u3002\u597d\u7684\u8f6f\u4ef6\u7684\u5173\u952e\u5728\u4e8e\uff1a<\/p>\n
\n- \u4e86\u89e3\u6bcf\u79cd\u7279\u6027\uff0c\u4e86\u89e3\u5b83\u7684\u5c40\u9650\u548c\u53ef\u80fd\u7684\u5371\u9669<\/li>\n
- \u51c6\u786e\u4e86\u89e3\u8fd9\u79cd\u7279\u6027\u5728\u4f55\u79cd\u573a\u5408\u53ef\u4ee5\u5b89\u5168\u4f7f\u7528<\/li>\n
- \u8ba9\u4f7f\u7528\u8be5\u7279\u6027\u7684\u51b3\u7b56\u9ad8\u5ea6\u53ef\u89c1<\/li>\n
- \u5341\u5206\u5c0f\u5fc3\u8c28\u614e\u5730\u5728\u9002\u5f53\u5904\u4f7f\u7528\u8be5\u7279\u6027\u3002<\/li>\n<\/ul>\n
<\/a>\u6700\u6839\u672c\u7684\u539f\u5219<\/h2>\n\u4f7f\u7528\u5e38\u8bc6\u3002<\/p>\n
\u5f53\u65e0\u6cd5\u627e\u5230\u53ef\u7528\u7684\u89c4\u5219\u6216\u6307\u5357\uff0c\u5f53\u89c4\u5219\u660e\u663e\u4e0d\u9002\u7528\uff0c\u5f53\u5176\u5b83\u4e00\u5207\u90fd\u5931\u8d25\u65f6\uff1a\u4f7f\u7528\u5e38\u8bc6\uff0c\u5e76\u6838\u67e5\u57fa\u672c\u539f\u5219\u3002\u8fd9\u6761\u6cd5\u5219\u51cc\u9a7e\u4e8e\u5176\u5b83\u6240\u6709\u6cd5\u5219\u4e4b\u4e0a\u3002\u5e38\u8bc6\u662f\u5fc5\u4e0d\u53ef\u5c11\u7684<\/em>\u3002<\/p>\n
\n<\/a>\u7b2c\u4e09\u7ae0<\/em><\/h2>\n\u4ee3\u7801\u5e03\u5c40<\/h1>\n\u6982\u8ff0<\/h2>\n
\u4e00\u4e2a\u7a0b\u5e8f\u5355\u5143\u7684\u5e03\u5c40\u5b8c\u5168\u5728\u201cRational \u73af\u5883\u683c\u5f0f\u5668\u201d (Rational Environment Formatter) \u7684\u63a7\u5236\u4e4b\u4e0b\uff0c\u9664\u4e86\u5728\u6ce8\u91ca\u548c\u7a7a\u767d\u5904\u5185\uff0c\u7a0b\u5e8f\u5458\u4e0d\u5fc5\u8fc7\u591a\u62c5\u5fc3\u7a0b\u5e8f\u7684\u5e03\u5c40\u3002\u8fd9\u4e2a\u5de5\u5177\u6240\u91c7\u7528\u7684\u683c\u5f0f\u7ea6\u5b9a\u5728 Reference Manual for the Ada Programming Language \u7684 Appendix E \u4e2d\u8868\u8ff0 [ISO87]<\/a>\u3002 \u7279\u522b\u662f\uff0c\u4ed6\u4eec\u5efa\u8bae\u7ed3\u6784\u5316\u6784\u9020\u7684\u5f00\u59cb\u548c\u7ed3\u675f\u5904\u7684\u5173\u952e\u5b57\u5e94\u5782\u76f4\u5bf9\u9f50\u3002\u4e00\u4e2a\u6784\u9020\u7684\u6807\u8bc6\u7b26\u4e5f\u5e94\u7cfb\u7edf\u6027\u5730\u5728\u6784\u9020\u7684\u672b\u5c3e\u91cd\u590d\u3002<\/p>\n\u683c\u5f0f\u5668\u7684\u786e\u5207\u884c\u4e3a\u7531\u4e00\u7cfb\u5217\u7684\u5e93\u5f00\u5173<\/em>\u5728\u4e00\u4e2a\u901a\u7528\u6a21\u578b\u4e16\u754c (model world) \u57fa\u7840\u4e0a\u63a7\u5236\uff0c\u8fd9\u4e9b\u5e93\u5f00\u5173\u5728\u6574\u4e2a\u9879\u76ee\u8fc7\u7a0b\u4e2d\u63a5\u6536\u4e00\u5957\u7edf\u4e00\u7684\u503c\u3002\u76f8\u5173\u7684\u5f00\u5173\u4ee5\u53ca\u5b83\u4eec\u5728\u6211\u4eec\u6240\u5efa\u8bae\u7684\u6a21\u578b\u4e16\u754c<\/em>\u4e2d\u7684\u901a\u7528\u503c\u5217\u8868\u5982\u4e0b\u3002<\/p>\n<\/a>\u5b57\u6bcd\u5927\u5c0f\u5199<\/h2>\nFormat .Id_Case : Letter_Case := Capitalized<\/h3>\n
\u8be6\u7ec6\u8bf4\u660e Ada \u5355\u5143\u4e2d\u6807\u8bc6\u7b26\u7684\u5b57\u6bcd\u5927\u5c0f\u5199\uff1a\u6700\u5f00\u59cb\u7684\u5b57\u6bcd\u4ee5\u53ca\u6bcf\u4e2a\u4e0b\u5212\u7ebf\u4e4b\u540e\u7684\u7b2c\u4e00\u4e2a\u5b57\u6bcd\u7528\u5927\u5199\u3002\u5927\u5199\u662f\u8bfb\u8005\u6700\u6613\u8bfb\u7684\u5f62\u5f0f\uff0c\u5177\u6709\u4f17\u591a\u73b0\u4ee3\u5c4f\u5e55\u548c\u6fc0\u5149\u6253\u5370\u673a\u5b57\u4f53\u3002<\/p>\n
Format .Keyword_Case : Letter_Case := Lower<\/h3>\n
\u8bf4\u660e Ada \u5173\u952e\u5b57\u7684\u5927\u5c0f\u5199\u3002\u8fd9\u5c06\u5b83\u4eec\u4e0e\u6807\u8bc6\u7b26\u7565\u5fae\u533a\u5206\u5f00\u6765\u3002<\/p>\n
Format .Number_Case : Letter_Case := Upper<\/h3>\n
\u8bf4\u660e\u6d6e\u70b9\u76f4\u63a5\u91cf\u4e2d\u5b57\u6bcd\u201cE\u201d\u548c\u57fa\u672c\u76f4\u63a5\u91cf\u4e2d\u57fa\u672c\u6570\u5b57\uff08\u201cA\u201d \u5230 \u201cF\u201d\uff09\u7684\u5927\u5c0f\u5199\u3002<\/p>\n
<\/a>\u7f29\u8fdb<\/h2>\n\u4e00\u4e2a Ada \u5355\u5143\u6309\u7167 Ada Reference Manual \u4e2d Appendix E \u6240\u8bf4\u7684\u4e00\u822c\u7ea6\u5b9a\u6765\u7f16\u6392\u683c\u5f0f [ISO87]<\/a>\u3002\u8fd9\u5c31\u662f\u8bf4\uff0c\u4e00\u4e2a\u7ed3\u6784\u5316\u6784\u9020\u7684\u5f00\u59cb\u548c\u7ed3\u675f\u5904\u7684\u5173\u952e\u5b57\u5e94\u8be5\u5bf9\u9f50\u3002 \u4f8b\u5982\uff0c\u201cloop\u201d\u548c\u201cend loop\u201d\uff0c\u201crecord\u201d\u548c\u201cend record\u201d\u3002\u5728\u7ed3\u6784\u5316\u6784\u9020\u5185<\/em>\u7684\u5355\u5143\u5e94\u5411\u53f3\u7f29\u8fdb<\/em>\u3002<\/p>\nFormat .Major_Indentation : Indent_Range := 3<\/h3>\n
\u8bf4\u660e\u683c\u5f0f\u5668\u4ee4\u5982\u201cif\u201d\u8bed\u53e5\u3001\u201ccase\u201d\u8bed\u53e5\u548c\u201cloop\u201d\u8bed\u53e5\u8fd9\u6837\u7684\u7ed3\u6784\u5316\uff08\u4e3b\u8981\u7684\uff09\u6784\u9020\u7f29\u8fdb\u7684\u5217\u6570\u3002<\/p>\n
Format .Minor_Indentation : Indent_Range := 2<\/h3>\n
\u8bf4\u660e\u683c\u5f0f\u5668\u4f7f\u6b21\u8981\u6784\u9020\u7f29\u8fdb\u7684\u5217\u6570\uff1a \u8bb0\u5f55\u7684\u58f0\u660e\u3001\u53d8\u4f53\u8bb0\u5f55\u7684\u58f0\u660e\u3001\u7c7b\u578b\u7684\u58f0\u660e\u3001\u5f02\u5e38\u5904\u7406\u3001\u9009\u62e9\u8bed\u53e5\u3001case \u8bed\u53e5\u3001\u547d\u540d\u548c\u6807\u5fd7\u8bed\u53e5\u3002<\/p>\n
<\/a>\u884c\u7684\u957f\u5ea6\u548c\u884c\u7684\u5206\u9694<\/h2>\nFormat .Line_Length : Line_Range := 80<\/h3>\n
\u8bf4\u660e\u6362\u884c\u524d\u683c\u5f0f\u5668\u663e\u793a Ada \u5355\u5143\u4e2d\u7684\u884c\u6240\u91c7\u7528\u7684\u5217\u6570\u3002\u8fd9\u4f7f\u5f97\u683c\u5f0f\u5316\u7684\u5355\u5143\u53ef\u7528\u4f20\u7edf\u7684 VT100 \u7c7b\u7ec8\u7aef\u663e\u793a\u3002<\/p>\n
Format .Statement_Indentation : Indent_Range := 3<\/h3>\n
\u8bf4\u660e\u5f53\u4e00\u6761\u8bed\u53e5\u957f\u4e8e Line_Length\uff0c\u5fc5\u987b\u8981\u65ad\u5f00\u65f6\uff0c\u683c\u5f0f\u5668\u5e94\u4f7f\u7b2c\u4e8c\u884c\u548c\u540e\u7eed\u884c\u7f29\u8fdb\u591a\u5c11\u5217\u3002\u53ea\u6709\u5f53\u4e0d\u5b58\u5728\u8bcd\u6cd5\u6784\u9020\u53ef\u8ba9\u7f29\u8fdb\u7684\u4ee3\u7801\u5bf9\u9f50\u65f6\uff0c\u683c\u5f0f\u5668\u624d\u4ee4\u4ee3\u7801\u7f29\u8fdb Statement_Indentation \u4e2a\u5217\u3002<\/p>\n
Format .Statement_Length : Line_Range := 35<\/h3>\n
\u8bf4\u660e\u5f53\u663e\u793a\u4e00\u4e2a\u8bed\u53e5\u65f6\uff0c\u6bcf\u884c\u6240\u4fdd\u7559\u7684\u5217\u6570\u3002 \u5982\u679c\u5f53\u524d\u7f29\u8fdb\u7a0b\u5ea6\u6240\u5141\u8bb8\u7684\u4e00\u884c\u4e2d\u7684\u5217\u6570\u5c0f\u4e8e Statement_Length\uff0c\u90a3\u4e48\u683c\u5f0f\u5668\u5c06 Wrap_Indentation \u4f5c\u4e3a\u65b0\u7684\u7f29\u8fdb\u7a0b\u5ea6\u3002\u6b64\u6cd5\u53ef\u9632\u6b62\u5d4c\u5957\u592a\u6df1\u7684\u8bed\u53e5\u663e\u793a\u65f6\u8d85\u51fa\u53f3\u8fb9\u754c\u3002<\/p>\n
Format .Wrap_Indentation : Line_Range := 16<\/h3>\n
\u8bf4\u660e\u5f53\u524d\u7684\u7f29\u8fdb\u7a0b\u5ea6\u4e0d\u4e0d\u8db3 Statement_Length \u65f6\uff0c\u683c\u5f0f\u5668\u5728\u4e0b\u4e00\u884c\u5f00\u5934\u5904\u5e94\u7f29\u8fdb\u7684\u5217\u6570\u3002\u6b64\u6cd5\u53ef\u9632\u6b62\u5d4c\u5957\u592a\u6df1\u7684\u8bed\u53e5\u663e\u793a\u65f6\u8d85\u51fa\u53f3\u8fb9\u754c\u3002<\/p>\n
<\/a>\u5bf9\u9f50<\/h2>\nFormat .Consistent_Breaking : Integer := 1<\/h3>\n
\u63a7\u5236\u5f62\u5982 (xxx:aaa; yyy:bbb) \u7684\u5217\u8868\u683c\u5f0f\uff0c\u8be5\u5217\u8868\u51fa\u73b0\u5728\u5b50\u7a0b\u5e8f\u7684\u5f62\u53c2\u8bf4\u660e\u5904\u548c\u7c7b\u578b\u58f0\u660e\u4e2d\u7684\u5224\u522b\u5f0f\u5904\u3002\u5b83\u4e5f\u63a7\u5236\u5f62\u5982 (xxx=>aaa, yyy=>bbb) \u7684\u5217\u8868\u7684\u683c\u5f0f\uff0c\u8be5\u5217\u8868\u51fa\u73b0\u5728\u5b50\u7a0b\u5e8f\u8c03\u7528\u548c\u805a\u96c6\u5904\u3002\u56e0\u4e3a\u8be5\u9009\u9879\u975e\u96f6\uff08\u771f\uff09\uff0c\u6240\u4ee5\u5f53\u4e00\u4e2a\u5217\u8868\u65e0\u6cd5\u5728\u4e00\u884c\u4e2d\u88c5\u4e0b\u65f6\uff0c\u5217\u8868\u4e2d\u7684\u6bcf\u4e00\u4e2a\u5143\u7d20\u90fd\u5360\u7528\u65b0\u7684\u4e00\u884c\u3002<\/p>\n
Format .Alignment_Threshold : Line_Range := 20<\/h3>\n
\u8bf4\u660e\u4e3a\u4f7f\u8fde\u7eed\u8bed\u53e5\u4e2d\u7684\u8bcd\u6cd5\u6784\u9020\u5bf9\u9f50\uff08\u5982\u547d\u540d\u7b26\u53f7\u4e2d\u7684\u5192\u53f7\u3001\u8d4b\u503c\u53f7\u548c\u7bad\u5934\uff09\uff0c\u683c\u5f0f\u5668\u53ef\u63d2\u5165\u7684\u7a7a\u683c\u6570\u3002\u5982\u679c\u5bf9\u9f50\u4e00\u4e2a\u6784\u9020\u6240\u9700\u7684\u7a7a\u683c\u6570\u591a\u4e8e\u8fd9\u4e2a\u6570\uff0c\u90a3\u4e48\u6784\u9020\u4e0d\u88ab\u5bf9\u9f50\u3002<\/p>\n
\u8981\u6ce8\u610f\u7684\u662f\uff0c\u4e3a\u4e86\u5f62\u6210\u67d0\u79cd\u5e03\u5c40\uff0c\u7a0b\u5e8f\u5458\u53ef\u4ee5\u63d2\u5165\u4e00\u4e2a\u884c\u7ed3\u675f\u7b26\u6216\u8005\u901a\u8fc7\u8f93\u5165 <space> <space> <carriage-return> \u6765\u6572\u5165\u4e00\u4e2a\u4e0d\u4f1a\u88ab\u683c\u5f0f\u5668\u5220\u6389\u7684\u884c\u4e2d\u65ad\u3002<\/p>\n
\u5f53 \u5217\u8868\u4e2d\u7684\u5143\u7d20\u8d85\u8fc7 3 \u4e2a\u5e76\u4e14\u5728\u4e00\u884c\u4e2d\u88c5\u4e0d\u4e0b\u8fd9\u4e9b\u5143\u7d20\u65f6\uff0c\u91c7\u7528\u4e0a\u8ff0\u6280\u5de7\u3002Ada \u5143\u7d20\u5217\u8868\u5e94\u5206\u9694\u4e3a\u4e00\u884c\u4ec5\u6709\u4e00\u4e2a\u5143\u7d20\uff0c\u4ee5\u63d0\u9ad8\u4ee3\u7801\u7684\u6613\u8bfb\u6027\u548c\u53ef\u7ef4\u62a4\u6027\u3002\u8fd9\u4e00\u6761\u5c24\u5176\u9002\u7528\u4e8e\u4ee5\u4e0b Ada \u6784\u9020\uff08\u8c61 Ada Reference Manual \u7684 Appendix E \u4e2d\u6240\u5b9a\u4e49\u7684\u90a3\u6837 [ISO87]<\/a>\uff09\uff1a<\/p>\n\u5b9e\u53c2\u5173\u8054\u5173\u7cfb<\/p>\n
pragma Suppress (Range_Check,\r\nOn => This_Type,\r\nOn => That_Type, On => That_Other_Type);<\/pre>\n\u6807\u8bc6\u7b26\u5217\u8868\uff0c\u7ec4\u4ef6\u5217\u8868<\/p>\n
Next_Position,\r\nPrevious_Position,\r\nCurrent_Position : Position;\r\ntype Some_Record is \r\nrecord\r\nA_Component,\r\nB_Component,\r\nC_Component : Component_Type;\r\nend record;<\/pre>\n\u679a\u4e3e\u7c7b\u578b\u5b9a\u4e49<\/p>\n
type Navaid is \r\n(Vor, \r\nVor_Dme, \r\nDme, \r\nTacan, \r\nVor_Tac, \r\nNDB);<\/pre>\n\u5224\u522b\u5f0f\u7ea6\u675f<\/p>\n
subtype Constrained is Element \r\n(Name_Length => Name'Length,\r\nValid => True,\r\nOperation => Skip);<\/pre>\n\u8bed\u53e5\u7684\u987a\u5e8f\uff08\u7531\u683c\u5f0f\u5668\u5904\u7406\uff09<\/p>\n
\u5f62\u5f0f\u90e8\u5206\u3001\u7c7b\u5c5e\u5f62\u5f0f\u90e8\u5206\u3001\u5b9e\u53c2\u90e8\u5206\u3001\u7c7b\u5c5e\u5b9e\u53c2\u90e8\u5206<\/p>\n
procedure Just_Do_It (This : in Some_Type;\r\nFor_That : in Some Other_Type;\r\nStatus : out Status_Type);\r\nJust_Do_It (This => This_Value;\r\nFor_That => That_Value;\r\nStatus => The_Status);<\/pre>\n
\n<\/a>\u7b2c\u56db\u7ae0<\/em><\/h2>\n\u6ce8\u91ca<\/h1>\n\u6982\u8ff0<\/h2>\n
\u4e0e\u5e7f\u6cdb\u63a5\u53d7\u7684\u89c2\u70b9\u76f8\u53cd\u7684\u662f\uff0c\u597d\u7684\u7a0b\u5e8f\u7684\u7279\u70b9\u5e76\u975e\u662f\u6ce8\u91ca\u7684\u6570\u91cf<\/em>\uff0c\u800c\u662f\u6ce8\u91ca\u7684\u8d28\u91cf<\/em>\u3002<\/p>\n\u6ce8\u91ca\u5e94\u5f53\u4f5c\u4e3a Ada \u4ee3\u7801\u7684\u8865\u5145<\/em>\uff0c\u800c\u4e0d\u662f\u89e3\u91ca\uff1aAda \u672c\u8eab\u662f\u4e00\u79cd\u975e\u5e38\u6613\u8bfb\u7684\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00\uff0c\u5c24\u5176\u662f\u5f53\u88ab\u597d\u7684\u547d\u540d\u7ea6\u5b9a\u652f\u6301\u65f6\u3002\u6ce8\u91ca\u5e94\u5f53\u89e3\u91ca\u90a3\u4e9b\u4e0d\u80fd\u76f4\u63a5\u4ece Ada \u4ee3\u7801\u4e2d\u770b\u51fa\u7684\u5185\u5bb9\uff1b\u5b83\u4eec\u4e0d\u5e94\u590d\u5236 Ada \u7684\u8bed\u6cd5\u6216\u8bed\u4e49\u3002\u6ce8\u91ca\u5e94\u5f53\u5e2e\u52a9\u8bfb\u8005\u638c\u63e1\u80cc\u666f\u6982\u5ff5\u548c\u4f9d\u8d56\u6761\u4ef6\uff0c\u7279\u522b\u662f\u590d\u6742\u7684\u6570\u636e\u7f16\u7801\u548c\u7b97\u6cd5\u3002\u6ce8\u91ca\u5e94\u5f53\u7a81\u51fa\u4e0e\u7f16\u7801\u6216\u8bbe\u8ba1\u6807\u51c6\u7684\u4e0d\u540c\u70b9\u3001\u53d7\u9650\u7279\u6027\u7684\u4f7f\u7528\u4ee5\u53ca\u7279\u6b8a\u7684 \u201c\u6280\u5de7\u201d\u3002\u5728\u6bcf\u4e2a\u4e3b\u8981\u7684 Ada \u6784\u9020\uff08\u5982\u5b50\u7a0b\u5e8f\u548c\u7a0b\u5e8f\u5305\uff09\u4e2d\uff0c\u7cfb\u7edf\u5730\u51fa\u73b0\u7684\u6ce8\u91ca\u6846\u6216\u8868\u5355\u5177\u6709\u4e00\u81f4\u6027\u548c\u63d0\u9192\u7a0b\u5e8f\u5458\u8bf4\u660e\u4ee3\u7801\u7684\u4f18\u70b9\uff0c\u4f46\u5b83\u4eec\u4e5f\u5e38\u5e38\u5e26\u6765\u91ca\u4e49\u4ee3\u7801\u7684\u98ce\u683c\u3002\u5bf9\u6bcf\u4e00\u884c\u6ce8\u91ca\uff0c\u7a0b\u5e8f\u5458\u90fd \u5e94\u80fd\u591f\u5f88\u597d\u5730\u56de\u7b54\uff1a\u201c\u52a0\u5165\u8fd9\u4e2a\u6ce8\u91ca\u6709\u4f55\u4ef7\u503c\uff1f\u201d<\/p>\n\u4e00\u4e2a\u8bef\u5bfc\u6216\u8005\u9519\u8bef\u7684\u6ce8\u91ca\u6bd4\u5b8c\u5168\u4e0d\u6ce8\u91ca\u8fd8\u7cdf\u3002\u7f16\u8bd1\u5668\u4e0d\u68c0\u67e5\u6ce8\u91ca\uff08\u9664\u975e\u5b83\u4eec\u8c61\u201cRational \u8bbe\u8ba1\u5de5\u5177\u201d\u90a3\u6837\u53c2\u4e0e\u4e86\u6b63\u5f0f\u7684 Ada \u8bbe\u8ba1\u8bed\u8a00 (ADL) \u6216\u8005\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00 (PDL)\uff09\u3002\u56e0\u6b64\uff0c\u6839\u636e\u5355\u70b9\u7ef4\u62a4\u539f\u5219\uff0c\u8bbe\u8ba1\u51b3\u5b9a\u5e94\u5728 Ada \u800c\u4e0d\u662f\u6ce8\u91ca\u4e2d\u8868\u8ff0\uff0c\u5373\u4f7f\u8fd9\u6837\u505a\u9700\u8981\u591a\u51e0\u4e2a\u58f0\u660e\u3002<\/p>\n
\u4f5c\u4e3a\u4e00\u4e2a\uff08\u5e76\u975e\u5f88\u597d\u7684\uff09\u4f8b\u5b50\u8003\u8651\u5982\u4e0b\u7684\u58f0\u660e\uff1a<\/p>\n
------------------------------------------------------------\r\n-- procedure Create\r\n------------------------------------------------------------\r\n--\r\nprocedure Create\r\n(The_Subscriber: in out Subscriber.Handle;\r\nWith_Name : in out Subscriber.Name);\r\n--\r\n-- Purpose: This procedure creates a subscriber with a given\r\n-- name.\r\n--\r\n-- Parameters: \r\n- The_Subscriber :mode in out, type Subscriber.Handle\r\n- It is the handle to the created subscriber\r\n- With_Name :mode in, type Subscriber.Name\r\n- The name of the subscriber to be created.\r\n- The syntax of the name is\r\n-- <letter> { <letter> | <digit> }\r\n-- Exceptions:\r\n-- Subscriber.Collection_Overflow when there is no more\r\n-- space to create a new subscriber\r\n-- Subscriber.Invalid_Name when the name is blank or\r\n-- malformed\r\n--\r\n-------------------------------------------- end Create ----<\/pre>\n\u4f8b\u5b50\u4e2d\u6709\u51e0\u70b9\u8981\u6307\u51fa\u6765\u3002<\/p>\n
\n- \u6709\u8bb8\u591a\u5197\u4f59\uff1a<\/li>\n<\/ul>\n
\n- – \u8fc7\u7a0b\u521b\u5efa (Procedure Create)\uff1a\u5982\u679c\u8981\u6539\u540d\uff0c\u6709\u51e0\u5904\u5730\u65b9\u9700\u8981\u4fee\u6539\uff1b\u7ecf\u5e38\u6027\u5730\u4fee\u6539\u6ce8\u91ca\uff0c\u7f16\u8bd1\u5668\u4e0d\u4f1a\u6267\u884c\u3002<\/dd>\n
- – \u6ce8\u91ca\u4e2d\u65e0\u9700\u91cd\u590d\u8bf4\u660e\u53c2\u6570\u540d\u3001\u6a21\u5f0f\u548c\u7c7b\u578b\u3002<\/dd>\n
- – \u8fd9\u91cc\u7ed9\u6bcf\u4e2a Ada \u5b9e\u4f53\u6240\u53d6\u7684\u540d\u5b57\u5f88\u597d\uff0c\u8fd9\u4f7f\u5f97\u529f\u80fd\u548c\u53c2\u6570\u89e3\u91ca\u53d8\u5f97\u591a\u4f59\u3002\u6ce8\u610f\uff0c\u8fd9\u4e00\u70b9\u53ea\u662f\u5bf9\u4e8e\u5982\u4e0a\u4f8b\u8fd9\u6837\u7684\u7b80\u5355\u7684\u5b50\u7a0b\u5e8f\u6765\u8bf4\u624d\u662f\u6b63\u786e\u7684\u3002\u5bf9\u4e8e\u66f4\u590d\u6742\u7684\u5b50\u7a0b\u5e8f\uff0c\u4ecd\u9700\u8981\u529f\u80fd\u548c\u53c2\u6570\u89e3\u91ca\u3002<\/dd>\n<\/dl>\n
\n- \u6846\u67b6\u52a0\u5165\u4e86\u592a\u591a\u7684\u5e72\u6270\uff0c\u9690\u85cf\u4e86\u5173\u952e\u9879\uff1a\u8fc7\u7a0b\u58f0\u660e\u3002\u53e6\u5916\uff0c\u53f3\u7aef\u7684\u5782\u76f4\u8fb9\u5f00\u59cb\u65f6\u770b\u4e0a\u53bb\u8fd8\u5f88\u6f02\u4eae\uff0c\u4f46\u5374\u4f7f\u4fee\u6539\u53d8\u5f97\u6781\u4e3a\u75db\u82e6\uff0c\u901a\u5e38\u51e0\u5e74\u7684\u7ef4\u62a4\u4e0b\u6765\uff0c\u4ee3\u7801\u6700\u540e\u5b8c\u5168\u4e0d\u5bf9\u9f50\u5e76\u4e14\u5343\u75ae\u767e\u5b54\u3002<\/li>\n
- \u76f8\u53cd\u7684\u662f\uff0c\u8fd9\u91cc\u5e94\u8bf4\u660e\u4ea7\u751f\u4e86\u4f55\u79cd\u5f02\u5e38\uff0c\u56e0\u4e3a\u82e5\u53ea\u8bfb\u89c4\u683c\u8bf4\u660e\uff0c\u8fd9\u4e00\u70b9\u5e76\u4e0d\u660e\u663e\u3002\u4f46\u6bcf\u4e2a\u5f02\u5e38\u7684\u51c6\u786e\u542b\u4e49\u5e94\u653e\u5728\u81ea\u8eab\u7684\u5f02\u5e38\u58f0\u660e\u5904\u3002<\/li>\n
- \u5e94\u8bf4\u660e\u53c2\u6570\u7684\u524d\u7f6e\u548c\u540e\u7f6e\u6761\u4ef6\uff0c\u5c24\u5176\u662f\u53c2\u6570\u95f4\u7684\u5173\u7cfb\u3002\u8fd9\u4e9b\u4e0d\u5e94\u4e0e\u5176\u5b83\u5730\u65b9\u53ef\u4ee5\u627e\u5230\u7684\u4fe1\u606f\u91cd\u590d\uff0c\u5982\u6709\u6548\u540d\u7684\u8bed\u6cd5\uff0c\u5b83\u53ea\u5e94\u5728\u4e00\u5904\u8bf4\u660e\u3002<\/li>\n<\/ul>\n
\u5728\u8fd9\u4e2a\u4f8b\u5b50\u4e2d\uff0c\u6700\u597d\u91c7\u7528\u5982\u4e0b\u66f4\u7b80\u6d01\u3001\u66f4\u6709\u7528\u7684\u65b9\u5f0f\uff1a<\/p>\n
procedure Create (The_Subscriber : in out Subscriber.Handle;\r\nWith_Name : in Subscriber.Name);--\r\n-Raises Subscriber.Collection_Overflow.\r\n-Raises Subscriber.Invalid_Name when the name is \r\nblank or malformed (see syntax description \r\nattached to declaration of type Subscriber.Name).<\/pre>\n<\/a>\u6ce8\u91ca\u7528\u6cd5\u6307\u5357<\/h2>\n\u6ce8\u91ca\u5e94\u653e\u5728\u76f8\u5173\u4ee3\u7801\u7684\u65c1\u8fb9\uff0c\u7f29\u8fdb\u540c\u6837\u7684\u5927\u5c0f\uff0c\u7d27\u9760\u7740\u4ee3\u7801 – \u5373\u7528\u7a7a\u7684\u6ce8\u91ca\u884c\u5728\u89c6\u89c9\u4e0a\u5c06\u6ce8\u91ca\u5757\u4e0e Ada \u6784\u9020\u6346\u5728\u4e00\u8d77\uff1a<\/p>\n
procedure First_One;\r\n--\r\n-- This comment relates to First_One.\r\n-- But this comment is for Second_One.\r\n-- \r\nprocedure Second_One (Times : Natural);<\/pre>\n\u7528\u7a7a\u884c\u5206\u9694\u76f8\u5173\u7684\u6e90\u7801\u5757\uff08\u6ce8\u91ca\u548c\u4ee3\u7801\uff09\uff0c\u800c\u4e0d\u7528\u7c97\u91cd\u7684\u6ce8\u91ca\u884c\uff0c\u5982\uff1a<\/p>\n
-------------------------------------------------------------<\/pre>\n\u6216\u8005\uff1a<\/p>\n
--===========================================================<\/pre>\n\u5728\u4e00\u4e2a\u6ce8\u91ca\u5757\u4e2d\uff0c\u4f7f\u7528\u7a7a\u6ce8\u91ca\u884c\u800c\u975e\u7a7a\u884c\u6765\u5206\u5272\u6ce8\u91ca\u6bb5<\/p>\n
-- Some explanation here that needs to be continued in a\r\n-- subsequent paragraph.\r\n--\r\n-- The empty comment line above makes it clear that we \r\n-- are dealing with a single comment block.<\/pre>\n\u867d\u7136\u6ce8\u91ca\u53ef\u4ee5\u653e\u5728\u76f8\u5173 Ada \u6784\u9020\u7684\u4e0a\u65b9\u6216\u4e0b\u65b9\uff0c\u4f46\u662f\u8981\u5c06\u4e00\u8282\u7684\u6807\u9898\u6216\u8005\u4e00\u4e2a\u8bf4\u660e\u51e0\u4e2a Ada \u6784\u9020\u7684\u4e3b\u8981\u4fe1\u606f\u653e\u5728\u6784\u9020\u7684\u4e0a\u65b9<\/em>\u3002\u5c06\u8bc4\u8ff0\u6216\u9644\u52a0\u4fe1\u606f\u7b49\u8fd9\u4e00\u7c7b\u7684\u6ce8\u91ca\u653e\u5728\u76f8\u5173 Ada \u6784\u9020\u7684\u4e0b\u65b9<\/em>\u3002<\/p>\n\u7528\u4e00\u9875\u7684\u6574\u884c\u5bbd\u5728 Ada \u6784\u9020\u7684\u5f00\u5934\u5904\u5206\u7ec4\u3002\u907f\u514d\u5c06\u6ce8\u91ca\u653e\u5728 Ada \u6784\u9020\u7684\u540c\u4e00\u884c\u3002\u8fd9\u4e9b\u6ce8\u91ca\u5e38\u5e38\u53d8\u5f97\u4e0d\u5bf9\u9f50\u3002\u4f46\u662f\u5728\u8bf4\u660e\u4e00\u4e2a\u957f\u7684\u58f0\u660e\u65f6\uff0c\u5982\u679a\u4e3e\u7c7b\u578b\u76f4\u63a5\u91cf\uff0c\u8fd9\u6837\u7684\u6ce8\u91ca\u65b9\u5f0f\u662f\u53ef\u4ee5\u5bb9\u8bb8\u7684\u3002<\/p>\n
\u7528\u4e00\u4e2a\u5c0f\u7684\u5206\u5c42\u6b21\u7684\u6807\u51c6\u6ce8\u91ca\u5757\u6765\u8bf4\u660e\u5c0f\u8282\u7684\u6807\u9898\uff0c\u4f46\u8fd9\u4ec5\u4ec5\u9002\u7528\u4e8e\u5f88\u5927\u7684 Ada \u5355\u5143\uff08>200 \u884c\u7684\u58f0\u660e\u6216\u8005\u8bed\u53e5\uff09\uff1a<\/p>\n
--===========================================================\r\n--\r\n \u4e3b\u6807\u9898\r\n--\r\n--===========================================================\r\n\r\n-------------------------------------------------------------\r\n \u526f\u6807\u9898\r\n-------------------------------------------------------------\r\n\r\n --------------------\r\n \u5b50\u90e8\u5206\u7684\u5934\r\n --------------------<\/pre>\n\u5728\u8fd9\u79cd\u6807\u9898\u524d\u9762\u6240\u653e\u7684\u7a7a\u884c\u6570\u8981\u591a\u4e8e\u540e\u9762\u7684\u7a7a\u884c\u6570\uff0c\u4f8b\u5982\uff0c\u4e24\u884c\u5728\u524d\u4e00\u884c\u5728\u540e\u3002\u8fd9\u6837\u4f7f\u6807\u9898\u4e0e\u968f\u540e\u7684\u6b63\u6587\u5728\u89c6\u89c9\u4e0a\u76f8\u8054\u7cfb\u3002<\/p>\n
\u907f \u514d\u4f7f\u7528\u542b\u6709\u4fe1\u606f\u7684\u51fd\u6570\u5934\uff0c\u6bd4\u5982\u4f5c\u8005\u3001\u7535\u8bdd\u3001\u521b\u5efa\u548c\u4fee\u6539\u65e5\u671f\u3001\u5355\u5143\uff08\u6216\u6587\u4ef6\u540d\uff09\u7684\u4f4d\u7f6e\uff0c\u56e0\u4e3a\u8fd9\u4e9b\u4fe1\u606f\u5f88\u5feb\u5c31\u4f1a\u8fc7\u65f6\u3002\u5c06\u6240\u6709\u8005\u7248\u6743\u4fe1\u606f\u653e\u5728\u5355\u5143\u7684\u672b\u5c3e\uff0c\u5c24\u5176\u662f \u4f7f\u7528\u201cRational \u73af\u5883\u201d\u65f6\u3002\u5f53\u8bbf\u95ee\u4e00\u4e2a\u7a0b\u5e8f\u5305\u7684\u89c4\u683c\u8bf4\u660e\u6e90\u7801\u65f6 – \u4f8b\u5982\u5728\u201cRational \u73af\u5883\u201d\u4e2d\u6309 [Definition] – \u8bfb\u8005\u4e0d\u60f3\u6d4f\u89c8\u4e24\u9875\u6216\u8005\u4e09\u9875\u5bf9\u7406\u89e3\u7a0b\u5e8f\u65e0\u4efb\u4f55\u7528\u5904\u7684\u6587\u672c\u548c\/\u6216\u5b8c\u5168\u4e0d\u5e26\u6709\u4efb\u4f55\u7a0b\u5e8f\u4fe1\u606f\u7684\u6587\u672c\u3002\u907f\u514d\u4f7f\u7528\u5782\u76f4\u6eda\u52a8\u6761\u3001\u5c01\u95ed\u56fe\u6587\u6846\u6216\u65b9\u6846\uff0c\u8fd9\u4e9b\u4e1c\u897f\u53ea\u4f1a\u589e\u52a0\u89c6\u89c9 \u5e72\u6270\uff0c\u800c\u4e14\u96be\u4ee5\u4fdd\u6301\u4e00\u81f4\u6027\u3002\u7528 Rational CMVC \u9644\u6ce8\uff08\u6216\u8005\u5176\u5b83\u5f62\u5f0f\u7684\u8f6f\u4ef6\u5f00\u53d1\u6587\u4ef6\uff09\u6765\u4fdd\u5b58\u5355\u5143\u5386\u53f2\u3002<\/p>\n
\u4e0d\u8981\u91cd\u590d\u53ef\u4ee5\u5728\u5176\u5b83\u5730\u65b9\u627e\u5230\u7684\u4fe1\u606f\uff1b\u4ec5\u63d0\u4f9b\u4e00\u4e2a\u6307\u5411\u8be5\u4fe1\u606f\u7684\u6307\u9488\u5373\u53ef\u3002<\/p>\n
\u5c3d \u91cf\u91c7\u7528 Ada\uff0c\u800c\u975e\u6ce8\u91ca\u3002\u8981\u5b9e\u73b0\u8fd9\u4e00\u70b9\uff0c\u4f60\u53ef\u9009\u62e9\u66f4\u597d\u7684\u540d\u5b57\u3001\u9644\u52a0\u4e34\u65f6\u53d8\u91cf\u3001\u9650\u5b9a\u3001\u91cd\u547d\u540d\u3001\u5b50\u7c7b\u578b\u3001\u9759\u6001\u8868\u8fbe\u5f0f\u548c\u5c5e\u6027\uff0c\u8fd9\u4e9b\u90fd\u4e0d\u5f71\u54cd\u751f\u6210\u7684\u4ee3\u7801\uff08\u81f3\u5c11\u5728\u4e00\u4e2a\u597d\u7684 \u7f16\u8bd1\u5668\u4e2d\u4e0d\u5f71\u54cd\uff09\u3002\u4f60\u4e5f\u53ef\u4ee5\u91c7\u7528\u5c0f\u7684\u3001\u5d4c\u5165\u5f0f\u7684\u8c13\u8bcd\u51fd\u6570\uff0c\u5e76\u5c06\u4ee3\u7801\u5206\u6210\u51e0\u4e2a\u65e0\u53c2\u8fc7\u7a0b\uff0c\u8fd9\u4e9b\u8fc7\u7a0b\u7684\u540d\u5b57\u63d0\u4f9b\u4e86\u4ee3\u7801\u51e0\u4e2a\u79bb\u6563\u90e8\u5206\u7684\u6807\u9898\u3002<\/p>\n
\u793a\u4f8b\uff1a<\/p>\n
\u5c06\uff1a<\/p>\n
exit when Su.Locate (Ch, Str) \/= 0; \r\n-- Exit search loop when found it.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
Search_Loop : loop<\/p>\n
Found_It := Su.Locate (Ch, Str) \/= 0;<\/p>\n
exit Search_Loop when Found_It<\/p>\n
end Search_Loop;<\/p>\n
\u5c06\uff1a<\/p>\n
if Value < 'A' or else Value > 'Z' then\r\n-- If not in uppercase letters.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
subtype Uppercase_Letters is Character range 'A' ..'Z';\r\nif Value not in Uppercase_Letters then ...<\/pre>\n\u5c06\uff1a<\/p>\n
X := Green; -- This is the Green from \r\n-- Status, not from Color.\r\nraise Fatal_Error; -- From package Outer_Scope.\r\ndelay 384.0; -- Equal to 6 minutes and 24 \r\n-- seconds.<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
The_Status := Green;<\/pre>\nor:<\/p>\n
X := Status'(Green);\r\nraise Outer_Scope.Fatal_Error;\r\ndelay 6.0 * Minute + 24.0 * Second;<\/pre>\n\u5c06\uff1a<\/p>\n
if Is_Valid (The_Table (Index).Descriptor(Rank).all) then\r\n-- This is the current value for the iteration; if it is \r\n-- valid we append to the list it contains.\r\nAppend (Item, To_List => The_Table (Index).Descriptor(Rank).Ptr);|<\/pre>\n\u66ff\u6362\u4e3a\uff1a<\/p>\n
declare\r\nCurrent_Rank : Lists.List renames The_Table \r\n(Index).Descriptor (Rank);\r\nbegin\r\nif Is_Valid (Current_Rank.all) then\r\nAppend (Item, To_List => Current_Rank.Ptr);\r\nend if;\r\nend;<\/pre>\n\u6ce8\u610f\u6ce8\u91ca\u4e2d\u7684\u98ce\u683c\u3001\u8bed\u6cd5\u548c\u62fc\u5199\u3002\u4e0d\u8981\u4f7f\u7528\u8c61\u7535\u62a5\u5bc6\u7801\u4e00\u822c\u7684\u98ce\u683c\u3002\u4f7f\u7528\u62fc\u5199\u68c0\u67e5\u3002\uff08\u5728\u201cRational \u73af\u5883\u201d\u4e2d\u8c03\u7528 Speller.Check_Image\uff09\u3002<\/p>\n
\u4e0d\u8981\u4f7f\u7528\u65b9\u8a00\u5b57\u6bcd\u6216\u8005\u5176\u5b83\u975e\u82f1\u6587\u5b57\u7b26\u3002\u6839\u636e Ada Issue AI-339\uff0c\u975e\u82f1\u6587\u5b57\u7b26\u53ef\u88ab\u4e00\u4e9b\u5f00\u53d1\u7cfb\u7edf\u652f\u6301\uff0c\u4e00\u4e9b Ada \u7f16\u8bd1\u5668\u4ec5\u5728\u6ce8\u91ca\u4e2d\u652f\u6301\u3002\u4f46\u8fd9\u662f\u4e0d\u53ef\u79fb\u690d\u7684\uff0c\u5f88\u6709\u53ef\u80fd\u5728\u5176\u5b83\u7cfb\u7edf\u4e0a\u5931\u6548\u3002<\/p>\n
\u5bf9\u4e8e\u5b50\u7a0b\u5e8f\uff0c\u81f3\u5c11\u8bf4\u660e\uff1a<\/p>\n
\n- \u5b50\u7a0b\u5e8f\u7684\u7528\u9014\uff0c\u4f46\u8fd9\u53ea\u662f\u5f53\u4ece\u5b83\u7684\u540d\u5b57\u4e2d\u4e0d\u80fd\u660e\u786e\u4e86\u89e3\u5176\u7528\u9014\u65f6<\/li>\n
- \u5728\u4f55\u79cd\u6761\u4ef6\u4e0b\u751f\u6210\u4e86\u4f55\u79cd\u5f02\u5e38<\/li>\n
- \u5982\u679c\u6709\u7684\u8bdd\uff0c\u53c2\u6570\u7684\u524d\u7f6e\u6216\u540e\u7f6e\u6761\u4ef6<\/li>\n
- \u5176\u4ed6\u6570\u636e\u8bbf\u95ee\uff0c\u7279\u522b\u662f\u5f53\u6570\u636e\u88ab\u4fee\u6539\u65f6\uff1b\u8fd9\u5c24\u5176\u5305\u62ec\u6709\u526f\u4f5c\u7528\u7684\u51fd\u6570<\/li>\n
- \u6b63\u786e\u4f7f\u7528\u5b50\u7a0b\u5e8f\u6240\u9700\u7684\u4efb\u4f55\u9650\u5236\u6216\u9644\u52a0\u4fe1\u606f<\/li>\n<\/ul>\n
\u5bf9\u4e8e\u7c7b\u578b\u548c\u5bf9\u8c61\uff0c\u8981\u8bf4\u660e\u6240\u6709\u4e0d\u80fd\u901a\u8fc7 Ada \u8868\u8fbe\u7684\u4e0d\u53d8\u91cf\u6216\u9644\u52a0\u7ea6\u675f\u3002<\/p>\n
\u907f\u514d\u6ce8\u91ca\u4e2d\u7684\u91cd\u590d\u3002\u4f8b\u5982\uff0c\u6709\u5173\u7528\u9014\u7684\u90e8\u5206\u5e94\u662f\u201c\u5b83\u505a\u4ec0\u4e48\uff1f\u201d\u8fd9\u4e2a\u95ee\u9898\u7684\u7b80\u5355\u56de\u7b54\uff0c\u800c\u4e0d\u662f\u201c\u5b83\u600e\u4e48\u505a\uff1f\u201d\u7684\u56de\u7b54\u3002\u6982\u8ff0\u5e94\u662f\u8bbe\u8ba1\u7684\u7b80\u77ed\u8868\u8fbe\u3002\u8bf4\u660e\u4e2d\u4e0d\u5e94\u63cf\u8ff0\u6240\u7528\u7684\u7b97\u6cd5\uff0c\u800c\u5e94\u89e3\u91ca\u7a0b\u5e8f\u5305\u5e94\u5982\u4f55\u4f7f\u7528\u3002<\/p>\n
\u6570\u636e\u7ed3\u6784\u548c\u7b97\u6cd5\u90e8\u5206\u5e94\u542b\u6709\u8db3\u591f\u7684\u4fe1\u606f\u6765\u5e2e\u52a9\u7406\u89e3\u4e3b\u8981\u7684\u5b9e\u73b0\u7b56\u7565\uff08\u4ee5\u4fbf\u6b63\u786e\u4f7f\u7528\u7a0b\u5e8f\u5305\uff09\uff0c\u4f46\u65e0\u9700\u5305\u542b\u6240\u6709\u7684\u5b9e\u73b0\u7ec6\u8282\u6216\u4e0e\u6b63\u786e\u4f7f\u7528\u5305\u6beb\u4e0d\u76f8\u5173\u7684\u4fe1\u606f\u3002<\/p>\n
\n<\/a>\u7b2c\u4e94\u7ae0<\/em><\/h2>\n\u547d\u540d\u7ea6\u5b9a<\/h1>\n\u6982\u8ff0<\/h2>\n
\u7ed9 Ada \u5b9e\u4f53\uff08\u7a0b\u5e8f\u5355\u5143\u3001\u7c7b\u578b\u3001\u5b50\u7c7b\u578b\u3001\u5bf9\u8c61\u3001\u76f4\u63a5\u91cf\u3001\u5f02\u5e38\uff09\u6307\u5b9a\u597d\u540d\u5b57\u662f\u6240\u6709\u8f6f\u4ef6\u5e94\u7528\u7a0b\u5e8f\u8981\u8868\u8ff0\u7684\u6700\u7cbe\u5de7\u7684\u4e8b\u60c5\u4e4b\u4e00\u3002\u4e2d\u7b49\u89c4\u6a21\u5230\u5927\u89c4\u6a21\u7684\u5e94\u7528\u7a0b\u5e8f\u5b58\u5728\u7740\u53e6\u4e00\u4e2a\u95ee \u9898\uff1a\u540d\u5b57\u95f4\u7684\u51b2\u7a81\uff0c\u6216\u662f\u8981\u627e\u5230\u8db3\u591f\u7684\u540c\u4e49\u8bcd\u6765\u6307\u4ee3\u76f8\u540c\u73b0\u5b9e\u4e16\u754c\u4e2d\u76f8\u4f3c\u4f46\u53c8\u6709\u522b\u7684\u6982\u5ff5\uff08\u6216\u662f\u547d\u540d\u4e00\u4e2a\u7c7b\u578b\u3001\u5b50\u7c7b\u3001\u5bf9\u8c61\u3001\u53c2\u6570\uff09\u3002\u8fd9\u91cc\u53ef\u5229\u7528\u4e0d\u91c7\u7528\u201cuse\u201d \u5b50\u53e5\uff08\u6216\u53ea\u5728\u6781\u4e3a\u53d7\u9650\u7684\u6761\u4ef6\u4e0b\u91c7\u7528\uff09\u7684\u6cd5\u5219\u3002\u5728\u8bb8\u591a\u60c5\u5f62\u4e0b\uff0c\u8fd9\u4f7f\u5f97\u53ef\u4ee5\u4e0d\u5192\u6df7\u6dc6\u7684\u98ce\u9669\u800c\u7f29\u77ed\u540d\u5b57\uff0c\u5e76\u590d\u7528\u76f8\u540c\u7684\u63cf\u8ff0\u8bcd\u3002<\/p>\n
\u9009\u62e9\u6e05\u6670\u7684\u3001\u6613\u8bfb\u7684\u3001\u6709\u610f\u4e49\u7684\u540d\u79f0\u3002<\/p>\n
\u4e0e\u5176\u5b83\u7684\u7f16\u7a0b\u8bed\u8a00\u4e0d\u540c\uff0cAda \u4e0d\u5c06\u6807\u8bc6\u7b26\u7684\u957f\u5ea6\u9650\u5236\u5728 6\uff0c8 \u6216\u8005 15 \u4e2a\u5b57\u7b26\u5185\u3002\u77ed\u540d\u5b57\u6253\u5b57\u901f\u5ea6\u5feb\u4e0d\u662f\u91c7\u7528\u5b83\u4eec\u7684\u53ef\u4ee5\u4e3a\u4eba\u63a5\u53d7\u7684\u7406\u7531\u3002\u53ea\u6709\u4e00\u4e2a\u5b57\u6bcd\u7684\u6807\u8bc6\u7b26\u901a\u5e38\u8bf4\u660e\u9009\u62e9\u4e0d\u5f53\u6216\u662f\u61d2\u60f0\u3002\u53ef\u80fd\u6709\u51e0\u4e2a\u4f8b\u5916\uff0c\u5982\u5c06 E \u4f5c\u4e3a\u81ea\u7136\u5bf9\u6570\u7684\u5e95\uff0cPi\uff0c\u4ee5\u53ca\u5176\u5b83\u5c11\u6570\u51e0\u4e2a\u6613\u8fa8\u8bc6\u7684\u60c5\u51b5\u3002<\/p>\n
\u7528\u4e0b\u5212\u7ebf\u5c06\u4e00\u4e2a\u540d\u5b57\u4e2d\u7684\u4e0d\u540c\u5355\u8bcd\u5206\u9694\u5f00\u6765\uff1a<\/p>\n
Is_Name_Valid<\/code> \u4e0d\u662f IsNameValid<\/code><\/p>\n\u91c7\u7528\u5168\u540d\u800c\u4e0d\u662f\u7f29\u5199\u3002<\/p>\n
\u53ea\u91c7\u7528\u9879\u76ee\u8ba4\u53ef\u7684\u7f29\u7565\u8bcd\u3002<\/p>\n
\u53ea\u80fd\u662f\u5728\u4e24\u79cd\u60c5\u51b5\u4e4b\u4e00\u65f6\u91c7\u7528\u7f29\u5199\uff1a\u8be5\u7f29\u5199\u5728\u5e94\u7528\u9886\u57df\u4e2d\u5f88\u666e\u904d\uff08\u5982 FFT \u4ee3\u8868\u5085\u7acb\u53f6\u53d8\u6362\uff09\u6216\u8005\u6765\u81ea\u516c\u8ba4\u7f29\u5199\u7684\u9879\u76ee\u7ea7\u5217\u8868\u3002\u5426\u5219\uff0c\u5f88\u6709\u53ef\u80fd\u4f7f\u76f8\u4f3c\u4f46\u4e0d\u76f8\u540c\u7684\u7f29\u5199\u5230\u5904\u51fa\u73b0\uff0c\u5bfc\u81f4\u4ee5\u540e\u7684\u6df7\u6dc6\u548c\u9519\u8bef\uff08\u5982\u5c06 track_identification \u7f29\u5199\u6210 trid\u3001trck_id\u3001tr_iden\u3001tid\u3001tr_ident\u7b49\uff09\u3002<\/p>\n
\u5c11\u7528\u540e\u7f00\u8bf4\u660e Ada \u6784\u9020\u7684\u5206\u7c7b\u3002\u5b83\u4eec\u4e0d\u80fd\u63d0\u9ad8\u6613\u8bfb\u6027\u3002<\/p>\n
\u901a\u5e38\u6309\u7167 Ada \u5b9e\u4f53\u7684\u7c7b\u6765\u52a0\u540e\u7f00\uff0c\u5982\u7ed9\u7a0b\u5e8f\u5305\u52a0\u4e0a _Package\uff0c\u5f02\u5e38\u52a0\u4e0a _Error\uff0c\u7c7b\u578b\u52a0\u4e0a _Type\uff0c\u4ee5\u53ca\u5b50\u7a0b\u5e8f\u7684\u53c2\u6570\u52a0\u4e0a _Param\uff0c\u5bf9\u5e2e\u52a9\u9605\u8bfb\u548c\u7406\u89e3\u4ee3\u7801\u4e0d\u662f<\/em>\u5f88\u6709\u6548\u3002 \u800c\u52a0\u4e0a\u5982 _Array\uff0c_Record \u548c _Function \u8fd9\u6837\u7684\u540e\u7f00\u5219\u66f4\u7cdf\u3002Ada \u7f16\u8bd1\u5668\u548c\u8bfb\u8005\u90fd\u53ef\u4ee5\u6839\u636e\u4e0a\u4e0b\u6587\u4ece\u5b50\u7a0b\u5e8f\u4e2d\u5206\u8fa8\u4e00\u4e2a\u5f02\u5e38\uff1a\u663e\u7136\u53ea\u6709\u5f02\u5e38\u540d\u53ef\u4ee5\u5728 raise<\/em> \u8bed\u53e5\u6216\u5f02\u5e38\u5904\u7406\u4e2d\u51fa\u73b0\u3002\u8fd9\u4e9b\u540e\u7f00\u5728\u5982\u4e0b\u53d7\u9650\u7684\u6761\u4ef6\u4e0b\u53ef\u7528\uff1a<\/p>\n\n- \u5f53\u5408\u9002\u7684\u8bcd\u7684\u9009\u62e9\u8303\u56f4\u975e\u5e38\u6709\u9650\u65f6\uff0c\u7ed9\u5bf9\u8c61\u9009\u4e00\u4e2a\u6700\u597d\u7684\u540d\u5b57\u5e76\u52a0\u4e0a\u7c7b\u578b\u7684\u540e\u7f00\u3002<\/li>\n
- \u5bf9\u4e8e\u7c7b\u5c5e\u5355\u5143,\u603b\u53ef\u4ee5\u52a0\u4e0a\u5f62\u5982 _Generic \u7684\u540e\u7f00\uff0c\u6240\u4ee5\u5bf9\u4e00\u4e9b\u6216\u8bb8\u591a\u5b9e\u4f8b\u6765\u8bf4\uff0c\u53ef\u4ee5\u4e0d\u6dfb\u52a0\u8be5\u540e\u7f00\u800c\u4f7f\u7528\u4e0e\u5176\u76f8\u540c\u7684\u540d\u5b57\u3002<\/li>\n
- \u5f53\u5b83\u8868\u793a\u4e00\u4e2a\u5e94\u7528\u9886\u57df\u7684\u6982\u5ff5\u65f6\uff0c\u5982 Aircraft_Type\u3002<\/li>\n
- \u5f53\u91cd\u8981\u7684\u8bbe\u8ba1\u51b3\u7b56\u9700\u9ad8\u5ea6\u53ef\u89c1\u65f6\uff1a<\/li>\n<\/ul>\n
\u7c7b\u5c5e\u5f62\u53c2\u7c7b\u578b\u540e\u7f00\u4e3a _Constrained<\/p>\n
\u540e\u7f00\u4e3a _Pointer \u7684\u5b58\u53d6\u7c7b\u578b\u6216\u5176\u5b83\u975e\u76f4\u63a5\u6307\u4ee3\u7684\u5f62\u5f0f\uff1a_Handle \u6216 _Reference<\/p>\n
\u901a\u8fc7 _Or_Wait \u9690\u85cf\u4e86\u53ef\u80fd\u963b\u585e\u7684\u5165\u53e3\u8c03\u7528\u7684\u5b50\u7a0b\u5e8f<\/p>\n
\u5c06\u540d\u5b57\u8868\u8ff0\u51fa\u6765\uff0c\u4f7f\u5f97\u4ece\u4f7f\u7528<\/em>\u7684\u89d2\u5ea6\u770b\uff0c\u5b83\u4eec\u8fd8\u4e0d\u9519\u3002<\/p>\n\u8bd5\u60f3\u4e00\u4e2a\u5bfc\u51fa\u5b9e\u4f53\u53ef\u5728\u5176\u4e2d\u4f7f\u7528\u7684\u4e0a\u4e0b\u6587\uff0c\u5e76\u7ad9\u5728\u90a3\u4e2a\u89d2\u5ea6\u9009\u62e9\u4e00\u4e2a\u540d\u5b57\u3002\u4e00\u4e2a\u5b9e\u4f53\u4ec5\u88ab\u5b9a\u4e49\u4e00\u6b21\uff0c\u4f46\u5374\u88ab\u4f7f\u7528\u8bb8\u591a\u6b21\u3002\u8fd9\u4e00\u70b9\u5bf9\u4e8e\u5b50\u7a0b\u5e8f\u7684\u540d\u5b57\u53ca\u5176\u53c2\u6570\u6765\u8bf4\u5c24\u4e3a\u6b63\u786e\uff1b \u4f7f\u7528\u547d\u540d\u5173\u8054\u5173\u7cfb\u7684\u7ed3\u679c\u8c03\u7528\u5e94\u5c3d\u91cf\u4e0e\u81ea\u7136\u8bed\u8a00\u76f8\u8fd1\u3002\u8bb0\u4f4f\u7f3a\u5c11\u4f7f\u7528<\/em>\u5b50\u53e5\u4f7f\u5f97\u5927\u591a\u6570\u58f0\u660e\u5b9e\u4f53\u5fc5\u987b\u5177\u6709\u53d7\u9650\u540d\u3002\u5bf9\u4e8e\u6709\u53ef\u80fd\u5728\u7c7b\u5c5e\u5355\u5143\u4e2d\u6bd4\u5728\u4eab\u7528\u6a21\u5757\u90a3\u91cc\u4f7f\u7528\u5f97\u8fd8\u591a\u7684\u7c7b\u5c5e\u5f62\u53c2\u6765\u8bf4\uff0c\u5fc5\u987b\u5bfb\u627e\u4e00\u4e2a\u597d\u7684\u534f\u8c03\u529e\u6cd5\uff0c\u4f46\u662f\u7edd\u5bf9\u8981\u4fdd\u8bc1\u5b50\u7a0b\u5e8f\u7684\u5f62\u53c2\u5728\u4eab\u7528\u6a21\u5757\u7aef\u597d\u770b\u3002<\/p>\n\u4f7f\u7528\u82f1\u6587\u5355\u8bcd\u5e76\u62fc\u5199\u6b63\u786e\u3002<\/p>\n
\u8bed\u8a00\u7684\u6df7\u5408\uff08\u5982\u6cd5\u8bed\u548c\u82f1\u8bed\uff09\u5c06\u4f7f\u4ee3\u7801\u96be\u8bfb\uff0c\u6709\u65f6\u4f7f\u6807\u8bc6\u7b26\u7684\u610f\u4e49\u6478\u68f1\u4e24\u53ef\u3002 \u65e2\u7136 Ada \u7684\u5173\u952e\u5b57\u5df2\u662f\u82f1\u6587\u7684\uff0c\u5219\u8981\u6c42\u4f7f\u7528\u82f1\u6587\u5355\u8bcd\u3002\u6700\u597d\u91c7\u7528\u7f8e\u5f0f\u62fc\u6cd5\uff0c\u4ee5\u4fbf\u5229\u7528\u201cRational \u73af\u5883\u201d\u4e2d\u5185\u7f6e\u7684\u62fc\u5199\u68c0\u67e5\u3002<\/p>\n
\u4e0d\u8981\u91cd\u65b0\u5b9a\u4e49 Standard \u7a0b\u5e8f\u5305\u4e2d\u7684\u4efb\u4f55\u5b9e\u4f53\u3002\u8fd9\u662f\u7edd\u5bf9\u7981\u6b62\u7684\u3002<\/p>\n
\u8fd9\u6837\u505a\u5c06\u4ea7\u751f\u6df7\u6dc6\u548c\u4e25\u91cd\u7684\u9519\u8bef\u3002\u8be5\u6cd5\u5219\u53ef\u5ef6\u4f38\u81f3\u5176\u5b83\u9884\u5b9a\u4e49\u7684\u5e93\u5355\u5143\uff1aCalendar\uff0cSystem\u3002\u8fd9\u4e5f\u5305\u62ec Standard<\/em> \u6807\u8bc6\u7b26\u672c\u8eab\u3002<\/p>\n\u907f\u514d\u5bf9\u5176\u5b83\u9884\u5b9a\u4e49\u7a0b\u5e8f\u5305\u4e2d\u7684\u6807\u8bc6\u7b26\u91cd\u5b9a\u4e49\uff0c\u5982 System \u6216 Calendar\u3002<\/p>\n
\u4e0d\u8981\u4f7f\u7528\u5982\u4e0b\u7684\u6807\u8bc6\u7b26\uff1aWide_Character<\/strong> \u548c Wide_String<\/strong>\uff0c\u5b83\u4eec\u5c06\u5728 Ada 95 \u7684 Standard \u7a0b\u5e8f\u5305\u4e2d\u5f15\u5165\u3002\u4e0d\u8981\u5f15\u5165\u4e00\u4e2a\u540d\u4e3a Ada<\/strong> \u7684\u7f16\u8bd1\u5355\u5143\u3002<\/p>\n\u4e0d\u8981\u4f7f\u7528\u4ee5\u4e0b\u5355\u8bcd\u4f5c\u4e3a\u6807\u8bc6\u7b26\uff1aabstract<\/strong>\uff0caliased<\/strong>\uff0cprotected<\/strong>\uff0crequeue<\/strong>\uff0ctagged<\/strong> \u548c until<\/strong>\uff0c\u5b83\u4eec\u5728 Ada 95 \u5c06\u6210\u4e3a\u5173\u952e\u5b57\u3002<\/p>\n\u4e00\u4e9b\u7ed9\u5404\u79cd Ada \u5b9e\u4f53\u7684\u547d\u540d\u5efa\u8bae\u4e5f\u662f\u540c\u6837\u3002\u5047\u5b9a\u4e00\u822c\u60c5\u5f62\u4e0b\uff0c\u201c\u9762\u5411\u5bf9\u8c61\u201d\u98ce\u683c\u7684\u8bbe\u8ba1\u53d7\u6b22\u8fce\u3002\u8be6\u60c5\u8bf7\u53c2\u89c1\u9644\u5f55 A\u3002<\/p>\n
<\/a>\u7a0b\u5e8f\u5305<\/h2>\n\u5f53\u4e00\u4e2a\u7a0b\u5e8f\u5305\u5f15\u5165\u4e86\u67d0\u4e2a\u5bf9\u8c61\u7c7b\u65f6\uff0c\u7528\u8be5\u5bf9\u8c61\u7c7b\u7684\u540d\u5b57\u547d\u540d\u7a0b\u5e8f\u5305\uff0c\u901a\u5e38\u662f\u4e00\u4e2a\u5355\u6570\u5f62\u5f0f\u7684\u540d\u8bcd\uff0c\u82e5\u9700\u8981\uff08\u5373\u5b9a\u4e49\u4e86\u4e00\u4e2a\u5e26\u53c2\u6570\u7684\u7c7b\uff09\uff0c\u53ef\u52a0\u4e0a\u540e\u7f00 _Generic\u3002\u4ec5\u5f53\u5bf9\u8c61\u603b\u4ee5\u7fa4\u4f53\u5f62\u5f0f\u51fa\u73b0\u65f6\uff0c\u624d\u91c7\u7528\u590d\u6570\u5f62\u5f0f\u3002\u4f8b\u5982\uff1a<\/p>\n
package Text is\r\npackage Line is\r\npackage Mailbox is\r\npackage Message is\r\npackage Attributes is\r\npackage Subscriber is\r\npackage List_Generic is<\/pre>\n\u82e5\u4e00\u4e2a\u7a0b\u5e8f\u5305\u8bf4\u660e\u4e86\u4e00\u4e2a\u63a5\u53e3\u6216\u8005\u529f\u80fd\u5206\u7ec4\uff0c\u5e76\u4e14\u5b83\u4e0d\u4e0e\u4efb\u4f55\u5bf9\u8c61\u76f8\u5173\uff0c\u5219\u5e94\u5728\u5b83\u7684\u540d\u5b57\u4e2d\u5c06\u8fd9\u4e00\u70b9\u8868\u8ff0\u51fa\u6765\uff1a<\/p>\n
package Low_Layer_Interface is\r\npackage Math_Definitions is<\/pre>\n\u5f53\u4e00\u4e2a\u201c\u903b\u8f91\u201d\u5305\u7528\u5e73\u9762\u5206\u89e3 (flat decomposition)\uff0c\u9700\u8981\u4f5c\u4e3a\u51e0\u4e2a\u5305\u6765\u8868\u8fbe\u65f6\uff0c\u91c7\u7528\u9879\u76ee\u7ea7\u4e00\u81f4\u7684\u5217\u8868\u4e2d\u7684\u540e\u7f00\u3002\u4f8b\u5982\uff0c\u4e00\u4e2a\u903b\u8f91\u7a0b\u5e8f\u5305 Mailbox \u53ef\u5982\u4e0b\u5b9e\u73b0\uff1a<\/p>\n
package Mailbox_Definitions is\r\npackage Mailbox_Exceptions is\r\npackage Mailbox_Io is\r\npackage Mailbox_Utilities is\r\npackage Mailbox_Implementation is\r\npackage Mailbox_Main is<\/pre>\n\u5176\u5b83\u53ef\u63a5\u53d7\u7684\u540e\u7f00\u6709\uff1a<\/p>\n
_Test_Support \r\n_Test_Main \r\n_Log \r\n_Hidden_Definitions \r\n_Maintenance \r\n_Debug<\/pre>\n<\/a>\u7c7b\u578b<\/h2>\n\u5f53\u5728\u7a0b\u5e8f\u5305\u4e2d\u5b9a\u4e49\u4e00\u4e2a\u5bf9\u8c61\u7c7b\u8574\u6db5\u62f7\u8d1d\u8bed\u4e49\u65f6 – \u5373\u5f53\u7c7b\u578b\u53ef\u5b9e\u4f8b\u5316\u5e76\u4e14\u67d0\u79cd\u5f62\u5f0f\u7684\u4efb\u52a1\u5206\u914d\u53ef\u884c\u65f6\uff0c\u91c7\u7528\uff1a<\/p>\n
type Object is ...<\/pre>\n\u6ce8\u610f\u7c7b\u540d\u4e0d\u5e94\u5728\u6807\u8bc6\u7b26\u4e2d\u91cd\u590d\uff0c\u56e0\u4e3a\u5b83\u603b\u662f\u4ee5\u5b8c\u5168\u53d7\u9650\u7684\u5f62\u5f0f\u4f7f\u7528\uff1a<\/p>\n
Mailbox.Object\r\nLine.Object<\/pre>\n\u5f53\u5305\u542b\u5171\u4eab\u8bed\u4e49\u65f6 – \u5373\u7c7b\u578b\u7528\u5b58\u53d6\u503c\uff08\u6216\u8005\u5176\u5b83\u975e\u76f4\u63a5\u7684\u5f62\u5f0f\uff09\u5b9e\u73b0\uff0c\u5e76\u4e14\u8d4b\u503c\u8bed\u53e5\uff08\u82e5\u5b58\u5728\uff09\u4e0d\u590d\u5236\u5bf9\u8c61 – \u7528\u5982\u4e0b\u65b9\u5f0f\u8bf4\u660e\uff1a<\/p>\n
UL><\/p>\n
\ntype Handle is <\/code>\u7528\u4e8e\u975e\u76f4\u63a5\u5f15\u7528<\/li>\ntype Reference is <\/code>\u662f\u4e00\u4e2a\u53ef\u884c\u7684\u5907\u7528\u65b9\u6848<\/li>\n<\/ul>\n\u8fd9\u4e9b\u5143\u7d20\u5728\u5355\u72ec\u4f7f\u7528\u65f6\u4f5c\u540e\u7f00\uff0c\u524d\u9762\u52a0\u4e0a\u5305\u540d\uff0c\u8fd9\u6837\u5e76\u4e0d\u6e05\u695a\u6216\u975e\u5e38\u6478\u68f1\u4e24\u53ef\u3002<\/p>\n
\u5f53\u8574\u6db5\u591a\u4e2a\u5bf9\u8c61\u65f6\uff0c\u91c7\u7528\uff1a<\/p>\n
\ntype Set is <\/code>\u5f53\u6697\u542b\u5143\u7d20\u7684\u7279\u6b8a\u6027\u65f6<\/li>\ntype List is <\/code>\u5f53\u5305\u542b\u67d0\u79cd\u6b21\u5e8f\u65f6<\/li>\ntype Collection is<\/code> \u5f53\u65e2\u4e0d\u542b\u96c6\u5408\u4e5f\u4e0d\u542b\u5217\u8868\u8bed\u4e49\u65f6<\/li>\ntype Iterator is<\/code> \u5f53\u63d0\u4f9b\u4e86 Initialize\uff0cValue_Of\uff0cNext\uff0cIs_Done \u7b49\u539f\u8bed\u65f6
\n\uff08\u53c2\u89c1 6.5 \u8282\uff09<\/li>\n<\/ul>\n\u5bf9\u4e8e\u67d0\u4e2a\u5bf9\u8c61\u4e32\u7684\u6307\u5b9a\uff0c\u91c7\u7528\uff1a<\/p>\n
type Name is<\/code><\/p>\n\u4e3a\u4e86\u8fbe\u5230\u66f4\u597d\u7684\u6613\u8bfb\u6027\uff0c\u7c7b\u578b\u7684\u53d7\u9650\u540d\u4e5f\u5e94\u5728\u6574\u4e2a\u5b9a\u4e49\u5305\u5185\u4f7f\u7528\u3002\u201cRational \u73af\u5883\u201d\u4e2d\uff0c\u5f53\u5728\u5b50\u7a0b\u5e8f\u8c03\u7528\u4e2d\u91c7\u7528 [Complete] \u51fd\u6570\u65f6\uff0c\u4e0a\u8ff0\u65b9\u6cd5\u4e5f\u53ef\u4f7f\u8fd0\u884c\u66f4\u52a0\u597d\u3002<\/p>\n
\u4f8b\u5982\uff0c\u6ce8\u610f\u4e0b\u9762\u7684\u5b8c\u5168\u540d Subscriber.Object\uff1a<\/p>\n
package Subscriber is\r\ntype Object is private;\r\ntype Handle is access Subscriber.Object;\r\nsubtype Name is String;\r\npackage List is new List_Generic (Subscriber.Handle);\r\nMaster_List : Subscriber.List.Handle;\r\nprocedure Create (The_Handle : out Subscriber.Handle;\r\nWith_Name : in Subscriber.Name);\r\nprocedure Append (The_Subscriber : in Subscriber.Handle;\r\nTo_List : in out Subscriber.List.Handle);\r\nfunction Name_Of (The_Subscriber : Subscriber.Handle) return\r\nSubscriber.Name;\r\n ...\r\nprivate\r\ntype Object is\r\nrecord\r\nThe_Name : Subscriber.Name (1..20);\r\n ...\r\nend Subscriber;<\/pre>\n\u5728\u5176\u5b83\u60c5\u51b5\u4e0b\uff0c\u7c7b\u540d\u91c7\u7528\u540d\u8bcd\u6216\u8005\u4fee\u9970\u7b26 + \u540d\u8bcd\u3002\u7c7b\u578b\u53ef\u7528\u590d\u6570\u5f62\u5f0f\uff0c\u5bf9\u8c61\uff08\u53d8\u91cf\uff09\u540d\u91c7\u7528\u5355\u6570\uff1a<\/p>\n
type Point is record ...\r\ntype Hidden_Attributes is ( ...\r\ntype Boxes is array ...<\/pre>\n\u5bf9\u4e8e\u679a\u4e3e\u7c7b\u578b\uff0c\u5355\u72ec\u6216\u8005\u4f5c\u4e3a\u540e\u7f00\u4f7f\u7528 Mode\uff0cKind\uff0cCode \u7b49\u5355\u8bcd\u3002<\/p>\n
\u5bf9\u4e8e\u6570\u7ec4\u7c7b\u578b\uff0c\u5f53\u5df2\u5c06\u7b80\u5355\u540d\u7528\u4e8e\u7ec4\u4ef6\u7c7b\u578b\u65f6\uff0c\u53ef\u4ee5\u91c7\u7528\u540e\u7f00 _Table\u3002\u4ec5\u5f53\u6570\u7ec4\u7528\u8574\u6db5\u8bed\u4e49\u6765\u7ef4\u62a4\u65f6\uff0c\u624d\u91c7\u7528\u8c61 _Set \u548c _List \u8fd9\u6837\u7684\u540d\u5b57\u6216\u540e\u7f00\u3002Reserve _Vector \u548c _Matrix \u5e94\u7559\u4f5c\u76f8\u5e94\u7684\u6570\u5b66\u6982\u5ff5\u4f7f\u7528\u3002<\/p>\n
\u56e0\u4e3a\u8981\u907f\u514d\u5355\u6570\u7684\u4efb\u52a1\u5bf9\u8c61\uff08\u539f\u56e0\u5728\u540e\u6587\u89e3\u91ca\uff09\uff0c\u6240\u4ee5\u5373\u4f7f\u53ea\u6709\u4e00\u4e2a\u8be5\u7c7b\u578b\u7684\u5bf9\u8c61\u65f6\uff0c\u4e5f\u5e94\u5f15\u5165\u4efb\u52a1\u7c7b\u578b\u3002\u4e0b\u9762\u662f\u4f7f\u7528\u4e86\u4e00\u4e2a\u8c61 _Type \u8fd9\u6837\u7684\u7b80\u5355\u540e\u7f00\u4e4b\u540e\u4fbf\u4ee4\u4eba\u6ee1\u610f\u7684\u4f8b\u5b50\uff1a<\/p>\n
task type Listener_Type is ...\r\nfor Listener_Type'Storage_Size use ...\r\nListener : Listener_Type;<\/pre>\n\u7c7b\u4f3c\u5730\uff0c\u5f53\u7c7b\u578b\u540d\u91c7\u7528\u540d\u8bcd\uff08\u6216\u8005\u540d\u8bcd\u77ed\u8bed\uff09\u5b58\u5728\u51b2\u7a81\u65f6\uff0c\u6216\u8005\u51e0\u5904\u7684\u5bf9\u8c61\u540d\u6216\u53c2\u6570\u540d\u6709\u51b2\u7a81\u65f6\uff0c\u5728\u8be5\u7c7b\u578b\u540d\u540e\u52a0\u4e0a\u540e\u7f00 _Kind\uff0c\u800c\u8ba9\u5bf9\u8c61\u4f7f\u7528\uff08\u65e0\u540e\u7f00\u7684\uff09\u7b80\u5355\u540d\u8bcd\uff1a<\/p>\n
type Status_Kind is (None, Normal, Urgent, Red);\r\nStatus : Status_Kind := None;<\/pre>\n\u6216\u8005\uff0c\u5bf9\u4e8e\u603b\u4ee5\u590d\u6570\u51fa\u73b0\u7684\u4e8b\u7269\u7684\u7c7b\u578b\uff0c\u91c7\u7528\u590d\u6570\u5f62\u5f0f\u3002<\/p>\n
\u56e0\u4e3a\u5b58\u53d6\u7c7b\u578b\u5b58\u5728\u56fa\u6709\u7684\u5371\u5bb3\uff0c\u6240\u4ee5\u4f7f\u7528\u8005\u5e94\u5c0f\u5fc3\u3002\u4e00\u822c\u5b83\u4eec\u53eb\u505a Pointer\u3002\u5982\u679c\u540d\u5b57\u672c\u8eab\u610f\u4e49\u8fd8\u5f88\u6478\u68f1\u4e24\u53ef\uff0c\u5219\u5e94\u52a0\u4e0a\u540e\u7f00 _pointer\u3002\u4f5c\u4e3a\u540e\u5907\u65b9\u6848\uff0c\u4e5f\u53ef\u91c7\u7528 _Access \u505a\u540e\u7f00\u3002<\/p>\n
\u6709\u65f6\u91c7\u7528\u5d4c\u5957\u5b50\u7a0b\u5e8f\u5305\u6765\u5f15\u5165\u6b21\u7ea7\u62bd\u8c61\u53ef\u4ee5\u7b80\u5316\u547d\u540d\uff1a<\/p>\n
package Subscriber is ...\r\npackage Status is\r\ntype Kind is (Ok, Deleted, Incomplete, Suspended, \r\nPrivileged);\r\nfunction Set (The_Status : Subscriber.Status.Kind;\r\nTo_Subscriber : Subscriber.Handle);\r\nend Status;\r\n ...<\/pre>\n<\/a>\u5f02\u5e38<\/h2>\n\u56e0\u4e3a\u5f02\u5e38\u53ea\u80fd\u7528\u6765\u5904\u7406\u9519\u8bef\uff0c\u6240\u4ee5\u5e94\u4f7f\u7528\u540d\u8bcd\u6216\u540d\u8bcd\u77ed\u8bed\u6765\u6e05\u695a\u8868\u8fbe\u4e00\u4e2a\u8d1f\u9762\u7684\u610f\u4e49\uff1a<\/p>\n
Overflow, Threshold_Exceeded, Bad_Initial_Value<\/pre>\n\u5f53\u5728\u4e00\u4e2a\u7c7b\u7a0b\u5e8f\u5305\u4e2d\u5b9a\u4e49\u5f02\u5e38\u65f6\uff0c\u6807\u8bc6\u7b26\u65e0\u9700\u5305\u542b\u7c7b\u540d – \u4f8b\u5982 Bad_Initial_Subscriber_Value – \u56e0\u4e3a\u5f02\u5e38\u4e00\u76f4\u88ab\u7528\u4f5c Subscriber.Bad_Initial_Value\u3002<\/p>\n
\u91c7\u7528 Bad\uff0cIncomplete\uff0cInvalid\uff0cWrong\uff0cMissing \u6216\u8005 Illegal \u4e2d\u7684\u4e00\u4e2a\u5355\u8bcd\u4f5c\u4e3a\u540d\u5b57\u7684\u4e00\u90e8\u5206\uff0c\u800c\u4e0d\u662f\u7cfb\u7edf\u5730\u91c7\u7528\u4e0d\u4f20\u8fbe\u4efb\u4f55\u8be6\u7ec6\u4fe1\u606f\u7684 Error\uff1a<\/p>\n
Illegal_Data, Incomplete_Data<\/pre>\n<\/a>\u5b50\u7a0b\u5e8f<\/h2>\n\u8fc7\u7a0b\uff08\u548c\u4efb\u52a1\u5165\u53e3\uff09\u91c7\u7528\u52a8\u8bcd\u3002\u51fd\u6570\u540d\u91c7\u7528\u5e26\u6709\u5bf9\u8c61\u7c7b\u5c5e\u6027\u6216\u7279\u5f81\u7684\u540d\u8bcd\u3002\u8fd4\u56de\u5e03\u5c14\u503c\uff08\u8c13\u8bcd\uff09\u7684\u51fd\u6570\u4f7f\u7528\u5f62\u5bb9\u8bcd\uff08\u6216\u8fc7\u53bb\u5206\u8bcd\uff09\u3002<\/p>\n
Subscriber.Create\r\nSubscriber.Destroy\r\nSubscriber.List.Append\r\nSubscriber.First_Name -- Returns a string.\r\nSubscriber.Creation_Date -- Returns a date.\r\nSubscriber.List.Next\r\nSubscriber.Deleted -- Returns a Boolean.\r\nSubscriber.Unavailable -- Returns a Boolean.\r\nSubscriber.Remote<\/pre>\n\u5bf9\u4e8e\u8c13\u8bcd\uff0c\u5728\u4e00\u4e9b\u60c5\u51b5\u4e0b\u7ed9\u540d\u8bcd\u524d\u9762\u52a0\u4e0a\u524d\u7f00 Is_ \u6216 Has_ \u6216\u8bb8\u6709\u5e2e\u52a9\uff1b\u65f6\u6001\u8981\u51c6\u786e\u548c\u4e00\u81f4\uff1a<\/p>\n
function Has_First_Name ...\r\nfunction Is_Administrator ...\r\nfunction Is_First...\r\nfunction Was_Deleted ...<\/pre>\n\u5f53\u7b80\u5355\u540d\u79f0\u5df2\u4f5c\u4e3a\u7c7b\u578b\u540d\u6216\u679a\u4e3e\u578b\u76f4\u63a5\u91cf\u65f6\uff0c\u4e0a\u8ff0\u65b9\u6cd5\u6709\u7528\u3002<\/p>\n
\u8c13\u8bcd\u5e94\u4f7f\u7528\u80af\u5b9a\u5f0f\uff0c\u4e5f\u5c31\u662f\u8bf4\uff0c\u5176\u4e2d\u4e0d\u5e94\u542b\u6709\u201cNot_\u201d\u4e00\u8bcd\u3002<\/p>\n
\u5bf9\u4e8e\u666e\u901a\u64cd\u4f5c\uff0c\u7edf\u4e00\u4ece\u9879\u76ee\u53ef\u9009\u5217\u8868\uff08\u5217\u8868\u968f\u7740\u6211\u4eec\u5bf9\u7cfb\u7edf\u8ba4\u8bc6\u7684\u52a0\u6df1\u800c\u6269\u5c55\uff09\u4e2d\u9009\u62e9\u52a8\u8bcd\uff1a<\/p>\n
Create\r\nDelete\r\nDestroy\r\nInitialize\r\nAppend\r\nRevert\r\nCommit\r\nShow, Display<\/pre>\n\u8c13\u8bcd\u51fd\u6570\u548c\u5e03\u5c14\u578b\u7684\u53c2\u6570\u91c7\u7528\u80af\u5b9a\u5f0f\u3002\u5426\u5b9a\u5f0f\u7684\u540d\u5b57\u53ef\u80fd\u4ea7\u751f\u53cc\u91cd\u5426\u5b9a\uff08\u4f8b\u5982 Not Is_Not_Found\uff09\uff0c\u4ece\u800c\u4f7f\u4ee3\u7801\u96be\u8bfb\u3002<\/p>\n
function Is_Not_Valid (...) return Boolean\r\nprocedure Find_Client (With_The_Name : in Name;\r\nNot_Found : out Boolean)<\/pre>\n\u5e94\u5b9a\u4e49\u6210\uff1a<\/p>\n
function Is_Valid (...) return Boolean;\r\nprocedure Find_Client (With_The_Name: in Name;\r\nFound: out Boolean)<\/pre>\n\u8fd9\u624d\u8ba9\u4eab\u7528\u6a21\u5757\u6309\u5176\u6240\u9700\u7684\u90a3\u6837\u5b9e\u73b0\u4e86\u8868\u8fbe\u5f0f\u7684\u5426\u5b9a\uff08\u8fd9\u6837\u505a\u4e0d\u4f1a\u5bfc\u81f4\u8fd0\u884c\u65f6\u95f4\u5ef6\u957f\uff09\uff1a<\/p>\n
if not Is_Valid (...) then ....<\/pre>\n\u6709\u4e9b\u60c5\u51b5\u4e0b\uff0c\u901a\u8fc7\u4f7f\u7528\u53cd\u4e49\u8bcd\uff0c\u5982\u7528\u201cIs_Invalid\u201d\u6765\u4ee3\u66ff\u201cIs_Not_Valid\u201d\uff0c\u53ef\u4ee5\u4f7f\u5426\u5b9a\u8c13\u8bcd\u5728\u4e0d\u6539\u53d8\u8bed\u4e49\u7684\u60c5\u51b5\u4e0a\u53d8\u6210\u80af\u5b9a\u5f0f\u3002\u4f46\u662f\uff0c\u80af\u5b9a\u5f0f\u7684\u540d\u5b57\u66f4\u6613\u8bfb\uff1a \u201cIs_Valid\u201d\u6bd4\u201cnot Is_Invalid\u201d\u66f4\u6613\u7406\u89e3\u3002<\/p>\n
\u5f53\u8574\u6db5\u7740\u5927\u81f4\u76f8\u540c\u7684\u610f\u4e49\u65f6\uff0c\u91c7\u7528\u76f8\u540c\u7684\u5355\u8bcd\uff0c\u800c\u4e0d\u662f\u5bfb\u627e\u540c\u4e49\u8bcd\u6216\u53d8\u4f53\u3002\u56e0\u6b64\uff0c\u9f13\u52b1\u4f7f\u7528\u91cd\u8f7d\u6765\u63d0\u9ad8\u4ee3\u7801\u7684\u4e00\u81f4\u6027\uff0c\u9075\u5faa\u6700\u5c0f\u9650\u5ea6\u610f\u5916\u539f\u5219\u3002<\/p>\n
\u82e5\u5b50\u7a0b\u5e8f\u88ab\u7528\u505a\u5165\u53e3\u8c03\u7528\u7684\u201c\u5916\u8868\u201d (skins) \u6216\u8005\u201c\u5305\u88c5\u201d (wrappers)\uff0c\u5219\u7ed9\u5176\u540d\u5b57\u52a8\u8bcd\u52a0\u4e0a\u540e\u7f00 _Or_Wait\uff0c\u6216\u8005\u7ed9\u51fd\u6570\u53d6\u4e2a Wait_For_ \u77ed\u8bed\u52a0\u540d\u8bcd\u7684\u540d\u5b57\u6765\u53cd\u6620\u8fd9\u4e00\u70b9\uff0c\u8fd9\u6837\u53ef\u80fd\u6709\u7528\uff1a<\/p>\n
Subscriber.Get_Reply_Or_Wait\r\nSubscriber.Wait_For_Reply<\/pre>\n\u4e00\u4e9b\u64cd\u4f5c\u5e94\u4e00\u76f4\u4f7f\u7528\u76f8\u540c\u7684\u540d\u5b57\u6765\u7edf\u4e00\u5b9a\u4e49\uff1a<\/p>\n
\u5bf9\u4e8e\u8f6c\u6362\u5230\u5b57\u4e32\u548c\u4ece\u5b57\u4e32\u8f6c\u6362\u6765\u7684\u7c7b\u578b\u53d8\u6362\uff0c\u5bf9\u79f0\u51fd\u6570\u662f\uff1a<\/p>\n
function Image and function Value<\/pre>\n\u5bf9\u4e8e\u8f6c\u6362\u5230\u4f4e\u7ea7\u8868\u793a\u6cd5\uff08\u5982\u7528\u4e8e\u6570\u636e\u4ea4\u6362\u7684 Byte_String\uff09\u548c\u4ece\u4f4e\u7ea7\u8868\u793a\u6cd5\u8f6c\u6362\u8fc7\u6765\u7684\u7c7b\u578b\u53d8\u6362\uff0c\u5bf9\u79f0\u8fc7\u7a0b\u662f\uff1a<\/p>\n
procedure Read and Write<\/pre>\n\u5bf9\u4e8e\u5206\u914d\u6570\u636e\uff1a<\/p>\n
function Allocate (rather than Create)\r\nfunction Destroy (or Release, to express that the object will disappear)<\/pre>\n\u5f53\u7cfb\u7edf\u5730\u5904\u7406\u5b83\u4eec\u65f6\u91c7\u7528\u7edf\u4e00\u7684\u547d\u540d\uff0c\u7c7b\u578b\u5408\u6210\u5c06\u5bb9\u6613\u8bb8\u591a\u3002<\/p>\n
\u5bf9\u4e8e\u6d3b\u52a8\u7684\u8fed\u4ee3\u7a0b\u5e8f\uff0c\u5fc5\u987b\u5b9a\u4e49\u4ee5\u4e0b\u539f\u8bed\uff1a<\/p>\n
Initialize\r\nNext\r\nIs_Done\r\nValue_Of<\/pre>\n\u82e5\u53ef\u884c\uff0c\u8fd8\u8981\u5b9a\u4e49 Reset<\/code>\u3002\u82e5\u8981\u5728\u76f8\u540c\u7684\u4f5c\u7528\u57df\u8303\u56f4\u5185\u5f15\u5165\u51e0\u4e2a\u8fed\u4ee3\u7c7b\u578b\uff0c\u90a3\u4e48\u5e94\u91cd\u8f7d\u8fd9\u4e9b\u539f\u8bed\uff0c\u800c\u4e0d\u662f\u4e3a\u6bcf\u4e2a\u8fed\u4ee3\u7a0b\u5e8f\u5206\u522b\u5f15\u5165\u4e00\u5957\u5404\u4e0d\u76f8\u540c\u7684\u6807\u8bc6\u7b26\u3002\u53c2\u89c1 [BOO87]<\/a>\u3002<\/p>\n\u5f53\u91c7\u7528 Ada \u9884\u786e\u5b9a\u5c5e\u6027\u4f5c\u4e3a\u51fd\u6570\u540d\u65f6\uff0c\u8981\u4fdd\u8bc1\u5176\u7528\u6cd5\u4e0e\u4e00\u822c\u7684\u8bed\u4e49\u76f8\u540c\uff1a’First\uff0c’Last\uff0c’Length\uff0c’Image\uff0c’Value\uff0c\u7b49\u7b49\u3002 \u6ce8\u610f\uff0c\u51e0\u4e2a\u5c5e\u6027\uff08\u5982 ‘Range \u548c ‘Delta\uff09\u662f\u4e0d\u80fd\u7528\u505a\u51fd\u6570\u540d\u7684\uff0c\u56e0\u4e3a\u5b83\u4eec\u662f\u4fdd\u7559\u5b57\u3002<\/p>\n
<\/a>\u5bf9\u8c61\u548c\u5b50\u7a0b\u5e8f\uff08\u6216\u5165\u53e3\uff09\u53c2\u6570<\/h2>\n\u4e3a\u8868\u660e\u5176\u552f\u4e00\u6027\u6216\u662f\u8868\u660e\u8be5\u5b9e\u4f53\u662f\u6d3b\u52a8\u7684\u4e3b\u8981\u805a\u96c6\u5904\uff0c\u5728\u5bf9\u8c61\u6216\u53c2\u6570\u540d\u79f0\u524d\u52a0\u524d\u7f00\u201cThe\u201d\u6216\u201cThis\u201d\u3002\u8981\u8bf4\u660e\u4e00\u4e2a\u6b21\u8981\u3001\u4e34\u65f6\u3001\u8f85\u52a9\u7684\u5bf9\u8c61\uff0c\u5219\u52a0\u524d\u7f00\u201cA_\u201d\u6216\u201cCurrent_\u201d\uff1a<\/p>\n
procedure Change_Name (The_Subscriber : in Subscriber.Handle;\r\nThe_Name : in Subscriber.Name );\r\ndeclare\r\nA_Subscriber : Subscriber.Handle := Subscriber.First;\r\nbegin\r\n ...\r\nA_Subscriber := Subscriber.Next (The_Subscriber);\r\nend;<\/pre>\n\u5bf9\u4e8e\u5e03\u5c14\u578b\u7684\u5bf9\u8c61\uff0c\u91c7\u7528\u80af\u5b9a\u5f0f\u7684\u8c13\u8bcd\u5b50\u53e5\uff1a<\/p>\n
Found_It\r\nIs_Available<\/pre>\n\u4f46\u662f\uff1a<\/p>\n
Is_Not_Available<\/code> \u5fc5\u987b\u907f\u514d\u3002<\/p>\n\u5bf9\u4e8e\u4efb\u52a1\u5bf9\u8c61\uff0c\u5e94\u91c7\u7528\u4e00\u4e2a\u8574\u6db5\u4e86\u6d3b\u52a8\u5b9e\u4f53\u7684\u540d\u8bcd\u6216\u8005\u540d\u8bcd\u77ed\u8bed\uff1a<\/p>\n
Listener\r\nResource_Manager\r\nTerminal_Driver<\/pre>\n
\u6587\u4e2d\u6240\u63cf\u8ff0\u7684\u89c4\u5219\u56ca\u62ec\u4e86\u7a0b\u5e8f\u8bbe\u8ba1\u7684\u5927\u90e8\u5206\u65b9\u9762\u3002\u901a\u7528\u89c4\u5219\u9002\u7528\u4e8e\u7a0b\u5e8f\u5e03\u5c40\u3001\u547d\u540d\u7ea6\u5b9a\u548c\u6ce8\u91ca\u5e94\u7528\u3002\u7279\u6b8a\u89c4\u5219\u9002\u7528\u4e8e\u9009\u5b9a\u7684 Ada \u7279\u6027\uff0c\u5e76\u8bf4\u660e\u4e86\u7981\u7528\u6784\u9020\u3001\u63a8\u8350\u4f7f\u7528\u6a21\u5f0f\u548c\u7528\u4ee5\u63d0\u9ad8\u7a0b\u5e8f\u8d28\u91cf\u7684\u901a\u7528\u6280\u5de7\u3002<\/p>\n
\u9879\u76ee\u7684\u8bbe\u8ba1<\/em>\u6307\u5357\u548c\u5f53\u524d\u7684\u7f16\u7a0b<\/em>\u6307\u5357\u6709\u4e00\u5b9a\u7684\u91cd\u590d\uff0c\u662f\u6709\u610f\u8fd9\u6837\u505a\u7684\u3002\u4ecb\u7ecd\u7684\u8bb8\u591a\u7a0b\u5e8f\u8bbe\u8ba1\u89c4\u5219\uff0c\u5c24\u5176\u662f\u5728\u547d\u540d\u7ea6\u5b9a<\/em>\u4e2d\u7684\u89c4\u5219\uff0c\u7528\u4e8e\u79ef\u6781\u652f\u6301\u548c\u52a0\u5f3a\u8f6f\u4ef6\u8bbe\u8ba1\u4e2d\u7684\u9762\u5411\u5bf9\u8c61<\/em>\u65b9\u5f0f\u3002<\/p>\n \u6307\u5357\u6700\u521d\u7528\u4e8e Ada 83\u3002\u5b83\u542b\u6709\u4e0e Ada 95 \u517c\u5bb9\u7684\u89c4\u5219\uff0c\u4f46\u4e0d\u542b\u6709\u6539\u7248\u540e\u8bed\u8a00\u6807\u51c6\u65b0\u7279\u6027\u7684\u4f7f\u7528\u6307\u5357\uff0c\u4f8b\u5982\u6807\u8bc6\u7c7b\u578b\u3001\u5b50\u5355\u5143\u6216\u5c0f\u6570\u7c7b\u578b\u3002<\/p>\n \u6587\u6863\u5927\u81f4\u6309\u7167 Ada Reference Manual \u7684\u7ed3\u6784\u6765\u7ec4\u7ec7 [ISO 8052]<\/a>\u3002<\/p>\n \u7b2c\u4e8c\u7ae0\u201c\u7b80\u4ecb<\/em>\u201d\u89e3\u91ca\u4e86\u6307\u5357\u6240\u57fa\u4e8e\u7684\u57fa\u672c\u539f\u7406\u5e76\u4ecb\u7ecd\u4e86\u6307\u5357\u5206\u7c7b\u3002<\/p>\n \u7b2c\u4e09\u7ae0\u201c\u4ee3\u7801\u5e03\u5c40<\/em>\u201d\u8bb2\u8ff0\u4e86\u7a0b\u5e8f\u6587\u672c\u7684\u4e00\u822c\u89c6\u89c9\u7ec4\u7ec7\u7ed3\u6784\u3002<\/p>\n \u7b2c\u56db\u7ae0\u201c\u6ce8\u91ca<\/em>\u201d\u7ed9\u51fa\u4e86\u5982\u4f55\u7528\u7ed3\u6784\u5316\u7684\u3001\u53ef\u7528\u7684\u548c\u53ef\u7ef4\u62a4\u7684\u65b9\u5f0f\u6765\u6ce8\u91ca\u8bf4\u660e\u4ee3\u7801\u3002<\/p>\n \u7b2c\u4e94\u7ae0\u201c\u547d\u540d\u7ea6\u5b9a<\/em>\u201d\u7ed9\u51fa\u6709\u5173\u547d\u540d\u8bed\u8a00\u5b9e\u4f53\u7684\u4e00\u822c\u89c4\u5219\u548c\u8303\u4f8b\u3002\u8fd9\u4e00\u7ae0\u7684\u5185\u5bb9\u5e94\u518d\u7ecf\u4fee\u6539\uff0c\u4ee5\u6ee1\u8db3\u7279\u5b9a\u9879\u76ee\u6216\u673a\u6784\u7684\u9700\u8981\u3002<\/p>\n \u7b2c\u516d\u7ae0\u201c\u58f0\u660e<\/em>\u201d\u548c\u7b2c\u4e03\u7ae0\u201c\u8868\u8fbe\u5f0f\u548c\u8bed\u53e5<\/em>\u201d\u5bf9\u6bcf\u79cd\u8bed\u8a00\u7ed3\u6784\u7ed9\u51fa\u4e86\u8fdb\u4e00\u6b65\u7684\u5efa\u8bae\u3002<\/p>\n \u7b2c\u516b\u7ae0\u201c\u53ef\u89c6\u6027\u95ee\u9898<\/em>\u201d\u548c\u7b2c\u4e5d\u7ae0\u201c\u7a0b\u5e8f\u7ed3\u6784\u548c\u7f16\u8bd1\u95ee\u9898<\/em>\u201d\u7ed9\u51fa\u4e86\u6709\u5173\u5168\u5c40\u6784\u5efa\u548c\u7a0b\u5e8f\u7ec4\u6210\u7684\u6307\u5bfc\u3002<\/p>\n \u7b2c\u5341\u7ae0\u201c\u5e76\u884c<\/em>\u201d\u5904\u7406\u8bed\u8a00\u4e2d\u6709\u5173\u4f7f\u7528\u4efb\u52a1\u548c\u65f6\u95f4\u76f8\u5173\u7279\u6027\u7684\u4e13\u95e8\u95ee\u9898\u3002<\/p>\n \u7b2c\u5341\u4e00\u7ae0\u201c\u9519\u8bef\u5904\u7406\u548c\u5f02\u5e38<\/em>\u201d\u7ed9\u51fa\u5982\u4f55\u7cfb\u7edf\u5730\u3001\u7b80\u4fbf\u5730\u4f7f\u7528\u6216\u4e0d\u4f7f\u7528\u5f02\u5e38\u6765\u5904\u7406\u9519\u8bef\u3002<\/p>\n \u7b2c\u5341\u4e8c\u7ae0\u201c\u4f4e\u7ea7\u7f16\u7a0b<\/em>\u201d\u5904\u7406\u8868\u793a\u5b50\u53e5\u7684\u95ee\u9898\u3002<\/p>\n \u7b2c\u5341\u4e09\u7ae0\u201c\u603b\u7ed3<\/em>\u201d\u627c\u8981\u590d\u8ff0\u4e86\u6700\u4e3a\u91cd\u8981\u7684\u6307\u5bfc\u65b9\u9488\u3002<\/p>\n \u672c\u6587\u6863\u53d6\u4ee3\u4e86 Ada Guidelines: Recommendation for Designers and programmers<\/em> \u4e2d\u7684 Application Note #15, Rational, Santa Clara, CA., 1990\u3002<\/p>\n Ada \u8bed\u8a00\u7684\u8bbe\u8ba1\u5f88\u6709\u9488\u5bf9\u6027\u7684\u76ee\u7684\u5c31\u662f\u652f\u6301\u9ad8\u8d28\u91cf\u3001\u53ef\u9760\u3001\u53ef\u590d\u7528\u548c\u53ef\u79fb\u690d\u8f6f\u4ef6 [ISO 87, sect. 1.3]<\/a>\u3002\u7136\u800c\uff0c\u6ca1\u6709\u54ea\u4e00\u79cd\u8bed\u8a00\u4ec5\u9760\u5176\u672c\u8eab\u5c31\u53ef\u4ee5\u5b9e\u73b0\u4e0a\u8ff0\u76ee\u6807\u3002\u7a0b\u5e8f\u8bbe\u8ba1\u5fc5\u987b\u662f\u4e00\u4e2a\u6709\u826f\u597d\u89c4\u8303\u7684\u8fc7\u7a0b\u7684\u4e00\u90e8\u5206\u3002<\/p>\n \u6e05\u695a\u660e\u767d\u7684 Ada \u6e90\u4ee3\u7801\u662f\u672c\u6587\u4e2d\u5927\u591a\u6570\u6307\u5bfc\u65b9\u9488\u7684\u4e3b\u8981\u76ee\u6807\u3002\u8fd9\u4e00\u70b9\u662f\u5b9e\u73b0\u53ef\u9760\u6027\u548c\u53ef\u7ef4\u62a4\u6027\u7684\u4e3b\u8981\u56e0\u7d20\u3002\u6240\u8c13\u6e05\u695a\u660e\u767d\u7684\u4ee3\u7801\u53ef\u4ee5\u4ece\u4ee5\u4e0b\u4e09\u6761\u7b80\u5355\u7684\u57fa\u672c\u539f\u5219\u4e0a\u6765\u7406\u89e3\u3002<\/p>\n \u5728\u5176\u751f\u547d\u671f\u5185\uff0c\u4ee3\u7801\u66f4\u591a\u5730\u662f\u88ab\u8bfb\uff0c\u800c\u4e0d\u662f\u88ab\u5199\uff0c\u5c24\u5176\u662f\u5b83\u7684\u8bf4\u660e\u90e8\u5206\u3002\u7406\u60f3\u60c5\u51b5\u4e0b\uff0c\u4ee3\u7801\u8bfb\u8d77\u6765\u5e94\u8be5\u8c61\u4e00\u7bc7\u8bf4\u660e\u5b83\u505a\u4e86\u4ec0\u4e48\u7684\u82f1\u6587\u63cf\u8ff0\uff0c\u5b83\u5177\u6709\u4e00\u4e2a\u9644\u52a0\u4f18\u70b9\u662f\u53ef\u4ee5\u6267\u884c\u3002 \u7a0b\u5e8f\u66f4\u591a\u662f\u4e3a\u4eba\u7f16\u5199\uff0c\u800c\u4e0d\u662f\u4e3a\u8ba1\u7b97\u673a\u7f16\u5199\u3002\u9605\u8bfb\u7f16\u7801\u662f\u4e00\u4e2a\u590d\u6742\u7684\u8111\u529b\u8fc7\u7a0b\uff0c\u5b83\u53ef\u901a\u8fc7\u7edf\u4e00\u6807\u51c6\u6765\u7b80\u5316\uff0c\u5728\u672c\u6587\u4e2d\u8fd9\u4e00\u6307\u5bfc\u4e5f\u53eb\u201c\u6700\u5c0f\u9650\u5ea6\u610f\u5916\u539f\u5219<\/em>\u201d\u3002\u6574\u4e2a\u9879\u76ee\u4e2d\u7edf\u4e00\u6837\u5f0f\u662f\u8f6f\u4ef6\u5f00\u53d1\u56e2\u961f\u5728\u7f16\u7a0b\u6807\u51c6\u4e0a\u8fbe\u6210\u4e00\u81f4\u7684\u4e3b\u8981\u539f\u56e0\uff0c\u5b83\u4e0d\u5e94\u89c6\u4e3a\u4e00\u79cd\u60e9\u7f5a\u6216\u5bf9\u521b\u9020\u6027\u548c\u751f\u4ea7\u529b\u7684\u963b\u788d\u3002<\/p>\n \u8fd9\u4e00\u6307\u5bfc\u6240\u57fa\u4e8e\u7684\u53e6\u4e00\u4e2a\u91cd\u8981\u539f\u5219\u662f\u5355\u70b9\u7ef4\u62a4\u539f\u5219<\/em>\u3002\u5e94\u5c3d\u91cf\u4f7f\u8bbe\u8ba1\u51b3\u7b56\u53ea\u5728 Ada \u6e90\u7801\u4e2d\u7684\u4e00\u5904\u8868\u8ff0\uff0c\u5b83\u7684\u591a\u6570\u7ed3\u8bba\u5e94\u7a0b\u5e8f\u5316\u5730\u4ece\u8be5\u5904\u6d3e\u751f\u51fa\u6765\u3002\u4e0d\u9075\u5b88\u8fd9\u4e00\u539f\u5219\u4f1a\u4e25\u91cd\u5f71\u54cd\u4ee3\u7801\u7684\u53ef\u7ef4\u62a4\u6027\u3001\u53ef\u9760\u6027\u548c\u53ef\u7406\u89e3\u6027\u3002<\/p>\n \u6700\u540e\uff0c\u4f5c\u4e3a\u6613\u8bfb\u6027\u7684\u4e3b\u8981\u4f5c\u7528\u56e0\u7d20\uff0c\u91c7\u7528\u6700\u5c0f\u5e72\u6270\u539f\u5219<\/em>\u3002\u5373\u907f\u514d\u5c06\u6e90\u4ee3\u7801\u4e0e\u89c6\u89c9\u201c\u5e72\u6270\u201d\u76f8\u6df7\u5408\uff1a\u5373\u680f\u3001\u6846\u4ee5\u53ca\u5176\u5b83\u4f4e\u4fe1\u606f\u91cf\u7684\u6587\u672c\u6216\u662f\u5bf9\u7406\u89e3\u8f6f\u4ef6\u529f\u80fd\u6ca1\u6709\u5e2e\u52a9\u7684\u4fe1\u606f\u3002<\/p>\n \u53ef\u79fb\u690d\u6027\u548c\u53ef\u590d\u7528\u6027\u4e5f\u662f\u5236\u5b9a\u8bb8\u591a\u6307\u5bfc\u65b9\u9488\u7684\u539f\u7531\u3002\u4ee3\u7801\u5e94\u53ef\u79fb\u690d\u5230\u4e0d\u540c\u76ee\u6807\u8ba1\u7b97\u673a\u7684\u51e0\u4e2a\u4e0d\u540c\u7f16\u8bd1\u5668\u4e0a\uff0c\u5e76\u6700\u7ec8\u79fb\u690d\u5230\u4e00\u4e2a\u66f4\u9ad8\u7ea7\u7684 Ada \u7248\u672c\u201cAda 95\u201d\u4e0a [PLO92,<\/a> TAY92]<\/a>\u3002<\/p>\n \u8fd9\u91cc\u7684\u6307\u5bfc\u65b9\u9488\u6709\u51e0\u4e2a\u57fa\u672c\u5047\u8bbe\uff1a<\/p>\n \u5e94\u9f13\u52b1\u5728\u4efb\u4f55\u53ef\u5e26\u6765\u597d\u5904\u7684\u5730\u65b9\u4f7f\u7528 Ada \u7684\u9ad8\u7ea7\u7279\u6027\uff0c\u800c\u4e0d\u8981\u4ec5\u4ec5\u56e0\u4e3a\u4e00\u4e9b\u7a0b\u5e8f\u5458\u4e0d\u719f\u6089\u5b83\u4eec\u800c\u53cd\u5bf9\u91c7\u7528\u3002 \u8fd9\u662f\u9879\u76ee\u80fd\u4ece\u4f7f\u7528 Ada \u4e2d\u771f\u6b63\u83b7\u76ca\u7684\u552f\u4e00\u65b9\u5f0f\u3002Ada \u4e0d\u5e94\u8c61 Pascal \u6216 FORTRAN \u8bed\u8a00\u90a3\u6837\u4f7f\u7528\u3002\u4e0d\u9f13\u52b1\u5728\u6ce8\u91ca\u4e2d\u89e3\u91ca\u4ee3\u7801\uff1b\u76f8\u53cd\uff0cAda \u672c\u8eab\u5e94\u5c3d\u53ef\u80fd\u5730\u53d6\u4ee3\u6ce8\u91ca\u3002<\/p>\n \u8bb8\u591a\u547d\u540d\u7ea6\u5b9a\u5728\u8bcd\u6c47\u548c\u8bed\u6cd5\u4e0a\u57fa\u4e8e\u82f1\u6587\u3002\u6b64\u5916\uff0c Ada \u7684\u5173\u952e\u5b57\u90fd\u662f\u5e38\u7528\u7684\u82f1\u8bed\u5355\u8bcd\u3002\u5c06\u5176\u4e0e\u5176\u5b83\u8bed\u8a00\u6df7\u5408\u5c06\u964d\u4f4e\u4ee3\u7801\u7684\u6613\u8bfb\u6027\u3002<\/p>\n \u547d\u540d\u7ea6\u5b9a\u548c\u5176\u5b83\u4e00\u4e9b\u89c4\u5219\u5047\u5b9a\u201cuse\u201d\u5b50\u53e5\u4e0d\u88ab\u8fd0\u7528\u3002<\/p>\n \u8bb8\u591a\u89c4\u5219\u5728\u5927\u578b\u9879\u76ee\u4e2d\u6700\u6709\u4ef7\u503c\uff0c\u867d\u7136\u51fa\u4e8e\u9879\u76ee\u7ea7\u6216\u516c\u53f8\u7ea7\u5b9e\u73b0\u548c\u7edf\u4e00\u7684\u76ee\u7684\uff0c\u5b83\u4eec\u4e5f\u5728\u5c0f\u578b\u7cfb\u7edf\u4e2d\u4f7f\u7528\u3002<\/p>\n \u901a\u8fc7\u8fd0\u7528\u201cRational \u73af\u5883\u201d (Rational Environment)\uff0c\u4e00\u4e9b\u95ee\u9898\u5982\u4ee3\u7801\u5e03\u5c40\u3001\u5c01\u95ed\u6784\u9020\u4e2d\u7684\u6807\u8bc6\u7b26\u7b49\u5c31\u5728 Ada \u7f16\u8f91\u5668\u548c\u683c\u5f0f\u5668\u4e2d\u5904\u7406\u4e86\u3002 \u4f46\u662f\u672c\u6587\u4e2d\u7684\u5e03\u5c40\u5efa\u8bae\u9002\u7528\u4e8e\u4efb\u4f55\u5f00\u53d1\u5e73\u53f0\u3002<\/p>\n \u8bb8\u591a\u89c4\u5219\u652f\u6301\u5c06 Ada \u7279\u6027\u548c\u7279\u5b9a\u547d\u540d\u7ea6\u5b9a\u7684\u9762\u5411\u5bf9\u8c61 (OO) \u6982\u5ff5\u7684\u7cfb\u7edf\u6620\u5c04\u3002<\/p>\n \u8fd9\u4e9b\u6307\u5bfc\u65b9\u9488\u5e76\u975e\u540c\u7b49\u91cd\u8981\u3002\u5b83\u4eec\u5927\u81f4\u9075\u5faa\u4ee5\u4e0b\u7684\u7b49\u7ea7\uff1a<\/p>\n \u8be5\u6307\u5bfc\u65b9\u9488\u4ec5\u662f\u4e00\u6761\u7b80\u5355\u7684\u5efa\u8bae\uff1b\u4e0d\u9075\u5b88\u5b83\u4e5f\u4e0d\u4f1a\u6709\u4ec0\u4e48\u5b9e\u8d28\u6027\u7684\u635f\u5bb3\uff0c\u91c7\u7528\u6216\u662f\u4e0d\u91c7\u7528\u5b83\u4eec\u4ec5\u662f\u4e2a\u4eba\u559c\u597d\u95ee\u9898\u3002\u6587\u4e2d\u7684\u63d0\u793a\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n \u8be5\u6307\u5bfc\u65b9\u9488\u901a\u5e38\u66f4\u591a\u5730\u57fa\u4e8e\u6280\u672f\u7684\u89c2\u70b9\uff1b\u5b83\u53ef\u80fd\u4f1a\u5f71\u54cd\u5230\u4ee3\u7801\u7684\u53ef\u79fb\u690d\u6027\u6216\u53ef\u590d\u7528\u6027\uff0c\u5e76\u5728\u4e00\u4e9b\u5b9e\u65bd\u4e2d\u5f71\u54cd\u6027\u80fd\u3002 \u9664\u975e\u6709\u5408\u9002\u7684\u7406\u7531\uff0c\u5426\u5219\u5fc5\u987b\u9075\u5b88\u5efa\u8bae\u3002\u6587\u4e2d\u63d0\u5230\u4e00\u4e9b\u4f8b\u5916\u7684\u60c5\u51b5\u3002\u6587\u4e2d\u7684\u5efa\u8bae\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n \u6709\u7591\u95ee\u7684\u7279\u6027\u4f7f\u7528\u8d77\u6765\u5371\u9669\uff0c\u4f46\u5b83\u5e76\u4e0d\u88ab\u5b8c\u5168\u7981\u6b62\uff1b\u5e94\u7528\u8be5\u7279\u6027\u7684\u51b3\u5b9a\u5e94\u5728\u9879\u76ee\u7ea7\u4e0a\u505a\u51fa\uff0c\u5e76\u4e14\u51b3\u5b9a\u5e94\u8be5\u662f\u9ad8\u5ea6\u53ef\u89c1\u7684\u3002\u6587\u4e2d\u7684\u9650\u5236\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n \u8fdd\u80cc\u5b83\u5b9a\u5c06\u5bfc\u81f4\u4e0d\u597d\u7684\u3001\u4e0d\u53ef\u9760\u7684\u6216\u662f\u4e0d\u53ef\u79fb\u690d\u7684\u4ee3\u7801\u3002 \u8981\u6c42\u4e0d\u53ef\u8fdd\u80cc\u3002\u6587\u4e2d\u7684\u8981\u6c42\u7528\u4ee5\u4e0a\u7b26\u53f7\u6807\u51fa\u3002<\/p>\n \u201cRational \u8bbe\u8ba1\u5de5\u5177\u201d (Rational Design Facility) \u5c06\u7528\u6765\u51cf\u5c11\u53d7\u9650\u7279\u6027\u7684\u4f7f\u7528\u5e76\u52a0\u5f3a\u5fc5\u9700\u6cd5\u5219\u548c\u8bb8\u591a\u5efa\u8bae\u7684\u8fd0\u7528\u3002<\/p>\n \u4e0e\u8bb8\u591a\u5176\u5b83\u7684 Ada \u7a0b\u5e8f\u8bbe\u8ba1\u6807\u51c6\u4e0d\u540c\u7684\u662f\uff1a\u4e8b\u5b9e\u4e0a\uff0c\u8fd9\u4e9b\u6307\u5bfc\u65b9\u9488\u4e2d\u53ca\u5c11\u6709\u5b8c\u5168\u7981\u7528\u7684\u3002\u597d\u7684\u8f6f\u4ef6\u7684\u5173\u952e\u5728\u4e8e\uff1a<\/p>\n \u5f53\u65e0\u6cd5\u627e\u5230\u53ef\u7528\u7684\u89c4\u5219\u6216\u6307\u5357\uff0c\u5f53\u89c4\u5219\u660e\u663e\u4e0d\u9002\u7528\uff0c\u5f53\u5176\u5b83\u4e00\u5207\u90fd\u5931\u8d25\u65f6\uff1a\u4f7f\u7528\u5e38\u8bc6\uff0c\u5e76\u6838\u67e5\u57fa\u672c\u539f\u5219\u3002\u8fd9\u6761\u6cd5\u5219\u51cc\u9a7e\u4e8e\u5176\u5b83\u6240\u6709\u6cd5\u5219\u4e4b\u4e0a\u3002\u5e38\u8bc6\u662f\u5fc5\u4e0d\u53ef\u5c11\u7684<\/em>\u3002<\/p>\n \u4e00\u4e2a\u7a0b\u5e8f\u5355\u5143\u7684\u5e03\u5c40\u5b8c\u5168\u5728\u201cRational \u73af\u5883\u683c\u5f0f\u5668\u201d (Rational Environment Formatter) \u7684\u63a7\u5236\u4e4b\u4e0b\uff0c\u9664\u4e86\u5728\u6ce8\u91ca\u548c\u7a7a\u767d\u5904\u5185\uff0c\u7a0b\u5e8f\u5458\u4e0d\u5fc5\u8fc7\u591a\u62c5\u5fc3\u7a0b\u5e8f\u7684\u5e03\u5c40\u3002\u8fd9\u4e2a\u5de5\u5177\u6240\u91c7\u7528\u7684\u683c\u5f0f\u7ea6\u5b9a\u5728 Reference Manual for the Ada Programming Language \u7684 Appendix E \u4e2d\u8868\u8ff0 [ISO87]<\/a>\u3002 \u7279\u522b\u662f\uff0c\u4ed6\u4eec\u5efa\u8bae\u7ed3\u6784\u5316\u6784\u9020\u7684\u5f00\u59cb\u548c\u7ed3\u675f\u5904\u7684\u5173\u952e\u5b57\u5e94\u5782\u76f4\u5bf9\u9f50\u3002\u4e00\u4e2a\u6784\u9020\u7684\u6807\u8bc6\u7b26\u4e5f\u5e94\u7cfb\u7edf\u6027\u5730\u5728\u6784\u9020\u7684\u672b\u5c3e\u91cd\u590d\u3002<\/p>\n \u683c\u5f0f\u5668\u7684\u786e\u5207\u884c\u4e3a\u7531\u4e00\u7cfb\u5217\u7684\u5e93\u5f00\u5173<\/em>\u5728\u4e00\u4e2a\u901a\u7528\u6a21\u578b\u4e16\u754c (model world) \u57fa\u7840\u4e0a\u63a7\u5236\uff0c\u8fd9\u4e9b\u5e93\u5f00\u5173\u5728\u6574\u4e2a\u9879\u76ee\u8fc7\u7a0b\u4e2d\u63a5\u6536\u4e00\u5957\u7edf\u4e00\u7684\u503c\u3002\u76f8\u5173\u7684\u5f00\u5173\u4ee5\u53ca\u5b83\u4eec\u5728\u6211\u4eec\u6240\u5efa\u8bae\u7684\u6a21\u578b\u4e16\u754c<\/em>\u4e2d\u7684\u901a\u7528\u503c\u5217\u8868\u5982\u4e0b\u3002<\/p>\n \u8be6\u7ec6\u8bf4\u660e Ada \u5355\u5143\u4e2d\u6807\u8bc6\u7b26\u7684\u5b57\u6bcd\u5927\u5c0f\u5199\uff1a\u6700\u5f00\u59cb\u7684\u5b57\u6bcd\u4ee5\u53ca\u6bcf\u4e2a\u4e0b\u5212\u7ebf\u4e4b\u540e\u7684\u7b2c\u4e00\u4e2a\u5b57\u6bcd\u7528\u5927\u5199\u3002\u5927\u5199\u662f\u8bfb\u8005\u6700\u6613\u8bfb\u7684\u5f62\u5f0f\uff0c\u5177\u6709\u4f17\u591a\u73b0\u4ee3\u5c4f\u5e55\u548c\u6fc0\u5149\u6253\u5370\u673a\u5b57\u4f53\u3002<\/p>\n \u8bf4\u660e Ada \u5173\u952e\u5b57\u7684\u5927\u5c0f\u5199\u3002\u8fd9\u5c06\u5b83\u4eec\u4e0e\u6807\u8bc6\u7b26\u7565\u5fae\u533a\u5206\u5f00\u6765\u3002<\/p>\n \u8bf4\u660e\u6d6e\u70b9\u76f4\u63a5\u91cf\u4e2d\u5b57\u6bcd\u201cE\u201d\u548c\u57fa\u672c\u76f4\u63a5\u91cf\u4e2d\u57fa\u672c\u6570\u5b57\uff08\u201cA\u201d \u5230 \u201cF\u201d\uff09\u7684\u5927\u5c0f\u5199\u3002<\/p>\n \u4e00\u4e2a Ada \u5355\u5143\u6309\u7167 Ada Reference Manual \u4e2d Appendix E \u6240\u8bf4\u7684\u4e00\u822c\u7ea6\u5b9a\u6765\u7f16\u6392\u683c\u5f0f [ISO87]<\/a>\u3002\u8fd9\u5c31\u662f\u8bf4\uff0c\u4e00\u4e2a\u7ed3\u6784\u5316\u6784\u9020\u7684\u5f00\u59cb\u548c\u7ed3\u675f\u5904\u7684\u5173\u952e\u5b57\u5e94\u8be5\u5bf9\u9f50\u3002 \u4f8b\u5982\uff0c\u201cloop\u201d\u548c\u201cend loop\u201d\uff0c\u201crecord\u201d\u548c\u201cend record\u201d\u3002\u5728\u7ed3\u6784\u5316\u6784\u9020\u5185<\/em>\u7684\u5355\u5143\u5e94\u5411\u53f3\u7f29\u8fdb<\/em>\u3002<\/p>\n \u8bf4\u660e\u683c\u5f0f\u5668\u4ee4\u5982\u201cif\u201d\u8bed\u53e5\u3001\u201ccase\u201d\u8bed\u53e5\u548c\u201cloop\u201d\u8bed\u53e5\u8fd9\u6837\u7684\u7ed3\u6784\u5316\uff08\u4e3b\u8981\u7684\uff09\u6784\u9020\u7f29\u8fdb\u7684\u5217\u6570\u3002<\/p>\n \u8bf4\u660e\u683c\u5f0f\u5668\u4f7f\u6b21\u8981\u6784\u9020\u7f29\u8fdb\u7684\u5217\u6570\uff1a \u8bb0\u5f55\u7684\u58f0\u660e\u3001\u53d8\u4f53\u8bb0\u5f55\u7684\u58f0\u660e\u3001\u7c7b\u578b\u7684\u58f0\u660e\u3001\u5f02\u5e38\u5904\u7406\u3001\u9009\u62e9\u8bed\u53e5\u3001case \u8bed\u53e5\u3001\u547d\u540d\u548c\u6807\u5fd7\u8bed\u53e5\u3002<\/p>\n \u8bf4\u660e\u6362\u884c\u524d\u683c\u5f0f\u5668\u663e\u793a Ada \u5355\u5143\u4e2d\u7684\u884c\u6240\u91c7\u7528\u7684\u5217\u6570\u3002\u8fd9\u4f7f\u5f97\u683c\u5f0f\u5316\u7684\u5355\u5143\u53ef\u7528\u4f20\u7edf\u7684 VT100 \u7c7b\u7ec8\u7aef\u663e\u793a\u3002<\/p>\n \u8bf4\u660e\u5f53\u4e00\u6761\u8bed\u53e5\u957f\u4e8e Line_Length\uff0c\u5fc5\u987b\u8981\u65ad\u5f00\u65f6\uff0c\u683c\u5f0f\u5668\u5e94\u4f7f\u7b2c\u4e8c\u884c\u548c\u540e\u7eed\u884c\u7f29\u8fdb\u591a\u5c11\u5217\u3002\u53ea\u6709\u5f53\u4e0d\u5b58\u5728\u8bcd\u6cd5\u6784\u9020\u53ef\u8ba9\u7f29\u8fdb\u7684\u4ee3\u7801\u5bf9\u9f50\u65f6\uff0c\u683c\u5f0f\u5668\u624d\u4ee4\u4ee3\u7801\u7f29\u8fdb Statement_Indentation \u4e2a\u5217\u3002<\/p>\n \u8bf4\u660e\u5f53\u663e\u793a\u4e00\u4e2a\u8bed\u53e5\u65f6\uff0c\u6bcf\u884c\u6240\u4fdd\u7559\u7684\u5217\u6570\u3002 \u5982\u679c\u5f53\u524d\u7f29\u8fdb\u7a0b\u5ea6\u6240\u5141\u8bb8\u7684\u4e00\u884c\u4e2d\u7684\u5217\u6570\u5c0f\u4e8e Statement_Length\uff0c\u90a3\u4e48\u683c\u5f0f\u5668\u5c06 Wrap_Indentation \u4f5c\u4e3a\u65b0\u7684\u7f29\u8fdb\u7a0b\u5ea6\u3002\u6b64\u6cd5\u53ef\u9632\u6b62\u5d4c\u5957\u592a\u6df1\u7684\u8bed\u53e5\u663e\u793a\u65f6\u8d85\u51fa\u53f3\u8fb9\u754c\u3002<\/p>\n \u8bf4\u660e\u5f53\u524d\u7684\u7f29\u8fdb\u7a0b\u5ea6\u4e0d\u4e0d\u8db3 Statement_Length \u65f6\uff0c\u683c\u5f0f\u5668\u5728\u4e0b\u4e00\u884c\u5f00\u5934\u5904\u5e94\u7f29\u8fdb\u7684\u5217\u6570\u3002\u6b64\u6cd5\u53ef\u9632\u6b62\u5d4c\u5957\u592a\u6df1\u7684\u8bed\u53e5\u663e\u793a\u65f6\u8d85\u51fa\u53f3\u8fb9\u754c\u3002<\/p>\n \u63a7\u5236\u5f62\u5982 (xxx:aaa; yyy:bbb) \u7684\u5217\u8868\u683c\u5f0f\uff0c\u8be5\u5217\u8868\u51fa\u73b0\u5728\u5b50\u7a0b\u5e8f\u7684\u5f62\u53c2\u8bf4\u660e\u5904\u548c\u7c7b\u578b\u58f0\u660e\u4e2d\u7684\u5224\u522b\u5f0f\u5904\u3002\u5b83\u4e5f\u63a7\u5236\u5f62\u5982 (xxx=>aaa, yyy=>bbb) \u7684\u5217\u8868\u7684\u683c\u5f0f\uff0c\u8be5\u5217\u8868\u51fa\u73b0\u5728\u5b50\u7a0b\u5e8f\u8c03\u7528\u548c\u805a\u96c6\u5904\u3002\u56e0\u4e3a\u8be5\u9009\u9879\u975e\u96f6\uff08\u771f\uff09\uff0c\u6240\u4ee5\u5f53\u4e00\u4e2a\u5217\u8868\u65e0\u6cd5\u5728\u4e00\u884c\u4e2d\u88c5\u4e0b\u65f6\uff0c\u5217\u8868\u4e2d\u7684\u6bcf\u4e00\u4e2a\u5143\u7d20\u90fd\u5360\u7528\u65b0\u7684\u4e00\u884c\u3002<\/p>\n \u8bf4\u660e\u4e3a\u4f7f\u8fde\u7eed\u8bed\u53e5\u4e2d\u7684\u8bcd\u6cd5\u6784\u9020\u5bf9\u9f50\uff08\u5982\u547d\u540d\u7b26\u53f7\u4e2d\u7684\u5192\u53f7\u3001\u8d4b\u503c\u53f7\u548c\u7bad\u5934\uff09\uff0c\u683c\u5f0f\u5668\u53ef\u63d2\u5165\u7684\u7a7a\u683c\u6570\u3002\u5982\u679c\u5bf9\u9f50\u4e00\u4e2a\u6784\u9020\u6240\u9700\u7684\u7a7a\u683c\u6570\u591a\u4e8e\u8fd9\u4e2a\u6570\uff0c\u90a3\u4e48\u6784\u9020\u4e0d\u88ab\u5bf9\u9f50\u3002<\/p>\n \u5b9e\u53c2\u5173\u8054\u5173\u7cfb<\/p>\n \u6807\u8bc6\u7b26\u5217\u8868\uff0c\u7ec4\u4ef6\u5217\u8868<\/p>\n \u679a\u4e3e\u7c7b\u578b\u5b9a\u4e49<\/p>\n \u5224\u522b\u5f0f\u7ea6\u675f<\/p>\n \u8bed\u53e5\u7684\u987a\u5e8f\uff08\u7531\u683c\u5f0f\u5668\u5904\u7406\uff09<\/p>\n \u5f62\u5f0f\u90e8\u5206\u3001\u7c7b\u5c5e\u5f62\u5f0f\u90e8\u5206\u3001\u5b9e\u53c2\u90e8\u5206\u3001\u7c7b\u5c5e\u5b9e\u53c2\u90e8\u5206<\/p>\n \u4e0e\u5e7f\u6cdb\u63a5\u53d7\u7684\u89c2\u70b9\u76f8\u53cd\u7684\u662f\uff0c\u597d\u7684\u7a0b\u5e8f\u7684\u7279\u70b9\u5e76\u975e\u662f\u6ce8\u91ca\u7684\u6570\u91cf<\/em>\uff0c\u800c\u662f\u6ce8\u91ca\u7684\u8d28\u91cf<\/em>\u3002<\/p>\n \u6ce8\u91ca\u5e94\u5f53\u4f5c\u4e3a Ada \u4ee3\u7801\u7684\u8865\u5145<\/em>\uff0c\u800c\u4e0d\u662f\u89e3\u91ca\uff1aAda \u672c\u8eab\u662f\u4e00\u79cd\u975e\u5e38\u6613\u8bfb\u7684\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00\uff0c\u5c24\u5176\u662f\u5f53\u88ab\u597d\u7684\u547d\u540d\u7ea6\u5b9a\u652f\u6301\u65f6\u3002\u6ce8\u91ca\u5e94\u5f53\u89e3\u91ca\u90a3\u4e9b\u4e0d\u80fd\u76f4\u63a5\u4ece Ada \u4ee3\u7801\u4e2d\u770b\u51fa\u7684\u5185\u5bb9\uff1b\u5b83\u4eec\u4e0d\u5e94\u590d\u5236 Ada \u7684\u8bed\u6cd5\u6216\u8bed\u4e49\u3002\u6ce8\u91ca\u5e94\u5f53\u5e2e\u52a9\u8bfb\u8005\u638c\u63e1\u80cc\u666f\u6982\u5ff5\u548c\u4f9d\u8d56\u6761\u4ef6\uff0c\u7279\u522b\u662f\u590d\u6742\u7684\u6570\u636e\u7f16\u7801\u548c\u7b97\u6cd5\u3002\u6ce8\u91ca\u5e94\u5f53\u7a81\u51fa\u4e0e\u7f16\u7801\u6216\u8bbe\u8ba1\u6807\u51c6\u7684\u4e0d\u540c\u70b9\u3001\u53d7\u9650\u7279\u6027\u7684\u4f7f\u7528\u4ee5\u53ca\u7279\u6b8a\u7684 \u201c\u6280\u5de7\u201d\u3002\u5728\u6bcf\u4e2a\u4e3b\u8981\u7684 Ada \u6784\u9020\uff08\u5982\u5b50\u7a0b\u5e8f\u548c\u7a0b\u5e8f\u5305\uff09\u4e2d\uff0c\u7cfb\u7edf\u5730\u51fa\u73b0\u7684\u6ce8\u91ca\u6846\u6216\u8868\u5355\u5177\u6709\u4e00\u81f4\u6027\u548c\u63d0\u9192\u7a0b\u5e8f\u5458\u8bf4\u660e\u4ee3\u7801\u7684\u4f18\u70b9\uff0c\u4f46\u5b83\u4eec\u4e5f\u5e38\u5e38\u5e26\u6765\u91ca\u4e49\u4ee3\u7801\u7684\u98ce\u683c\u3002\u5bf9\u6bcf\u4e00\u884c\u6ce8\u91ca\uff0c\u7a0b\u5e8f\u5458\u90fd \u5e94\u80fd\u591f\u5f88\u597d\u5730\u56de\u7b54\uff1a\u201c\u52a0\u5165\u8fd9\u4e2a\u6ce8\u91ca\u6709\u4f55\u4ef7\u503c\uff1f\u201d<\/p>\n \u4e00\u4e2a\u8bef\u5bfc\u6216\u8005\u9519\u8bef\u7684\u6ce8\u91ca\u6bd4\u5b8c\u5168\u4e0d\u6ce8\u91ca\u8fd8\u7cdf\u3002\u7f16\u8bd1\u5668\u4e0d\u68c0\u67e5\u6ce8\u91ca\uff08\u9664\u975e\u5b83\u4eec\u8c61\u201cRational \u8bbe\u8ba1\u5de5\u5177\u201d\u90a3\u6837\u53c2\u4e0e\u4e86\u6b63\u5f0f\u7684 Ada \u8bbe\u8ba1\u8bed\u8a00 (ADL) \u6216\u8005\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00 (PDL)\uff09\u3002\u56e0\u6b64\uff0c\u6839\u636e\u5355\u70b9\u7ef4\u62a4\u539f\u5219\uff0c\u8bbe\u8ba1\u51b3\u5b9a\u5e94\u5728 Ada \u800c\u4e0d\u662f\u6ce8\u91ca\u4e2d\u8868\u8ff0\uff0c\u5373\u4f7f\u8fd9\u6837\u505a\u9700\u8981\u591a\u51e0\u4e2a\u58f0\u660e\u3002<\/p>\n \u4f5c\u4e3a\u4e00\u4e2a\uff08\u5e76\u975e\u5f88\u597d\u7684\uff09\u4f8b\u5b50\u8003\u8651\u5982\u4e0b\u7684\u58f0\u660e\uff1a<\/p>\n \u4f8b\u5b50\u4e2d\u6709\u51e0\u70b9\u8981\u6307\u51fa\u6765\u3002<\/p>\n \u5728\u8fd9\u4e2a\u4f8b\u5b50\u4e2d\uff0c\u6700\u597d\u91c7\u7528\u5982\u4e0b\u66f4\u7b80\u6d01\u3001\u66f4\u6709\u7528\u7684\u65b9\u5f0f\uff1a<\/p>\n \u6216\u8005\uff1a<\/p>\n \u5728\u8fd9\u79cd\u6807\u9898\u524d\u9762\u6240\u653e\u7684\u7a7a\u884c\u6570\u8981\u591a\u4e8e\u540e\u9762\u7684\u7a7a\u884c\u6570\uff0c\u4f8b\u5982\uff0c\u4e24\u884c\u5728\u524d\u4e00\u884c\u5728\u540e\u3002\u8fd9\u6837\u4f7f\u6807\u9898\u4e0e\u968f\u540e\u7684\u6b63\u6587\u5728\u89c6\u89c9\u4e0a\u76f8\u8054\u7cfb\u3002<\/p>\n \u793a\u4f8b\uff1a<\/p>\n \u5c06\uff1a<\/p>\n \u66ff\u6362\u4e3a\uff1a<\/p>\n Search_Loop : loop<\/p>\n Found_It := Su.Locate (Ch, Str) \/= 0;<\/p>\n exit Search_Loop when Found_It<\/p>\n end Search_Loop;<\/p>\n \u5c06\uff1a<\/p>\n \u66ff\u6362\u4e3a\uff1a<\/p>\n \u5c06\uff1a<\/p>\n \u66ff\u6362\u4e3a\uff1a<\/p>\n or:<\/p>\n \u5c06\uff1a<\/p>\n \u66ff\u6362\u4e3a\uff1a<\/p>\n \u6570\u636e\u7ed3\u6784\u548c\u7b97\u6cd5\u90e8\u5206\u5e94\u542b\u6709\u8db3\u591f\u7684\u4fe1\u606f\u6765\u5e2e\u52a9\u7406\u89e3\u4e3b\u8981\u7684\u5b9e\u73b0\u7b56\u7565\uff08\u4ee5\u4fbf\u6b63\u786e\u4f7f\u7528\u7a0b\u5e8f\u5305\uff09\uff0c\u4f46\u65e0\u9700\u5305\u542b\u6240\u6709\u7684\u5b9e\u73b0\u7ec6\u8282\u6216\u4e0e\u6b63\u786e\u4f7f\u7528\u5305\u6beb\u4e0d\u76f8\u5173\u7684\u4fe1\u606f\u3002<\/p>\n \u7ed9 Ada \u5b9e\u4f53\uff08\u7a0b\u5e8f\u5355\u5143\u3001\u7c7b\u578b\u3001\u5b50\u7c7b\u578b\u3001\u5bf9\u8c61\u3001\u76f4\u63a5\u91cf\u3001\u5f02\u5e38\uff09\u6307\u5b9a\u597d\u540d\u5b57\u662f\u6240\u6709\u8f6f\u4ef6\u5e94\u7528\u7a0b\u5e8f\u8981\u8868\u8ff0\u7684\u6700\u7cbe\u5de7\u7684\u4e8b\u60c5\u4e4b\u4e00\u3002\u4e2d\u7b49\u89c4\u6a21\u5230\u5927\u89c4\u6a21\u7684\u5e94\u7528\u7a0b\u5e8f\u5b58\u5728\u7740\u53e6\u4e00\u4e2a\u95ee \u9898\uff1a\u540d\u5b57\u95f4\u7684\u51b2\u7a81\uff0c\u6216\u662f\u8981\u627e\u5230\u8db3\u591f\u7684\u540c\u4e49\u8bcd\u6765\u6307\u4ee3\u76f8\u540c\u73b0\u5b9e\u4e16\u754c\u4e2d\u76f8\u4f3c\u4f46\u53c8\u6709\u522b\u7684\u6982\u5ff5\uff08\u6216\u662f\u547d\u540d\u4e00\u4e2a\u7c7b\u578b\u3001\u5b50\u7c7b\u3001\u5bf9\u8c61\u3001\u53c2\u6570\uff09\u3002\u8fd9\u91cc\u53ef\u5229\u7528\u4e0d\u91c7\u7528\u201cuse\u201d \u5b50\u53e5\uff08\u6216\u53ea\u5728\u6781\u4e3a\u53d7\u9650\u7684\u6761\u4ef6\u4e0b\u91c7\u7528\uff09\u7684\u6cd5\u5219\u3002\u5728\u8bb8\u591a\u60c5\u5f62\u4e0b\uff0c\u8fd9\u4f7f\u5f97\u53ef\u4ee5\u4e0d\u5192\u6df7\u6dc6\u7684\u98ce\u9669\u800c\u7f29\u77ed\u540d\u5b57\uff0c\u5e76\u590d\u7528\u76f8\u540c\u7684\u63cf\u8ff0\u8bcd\u3002<\/p>\n \u4e0e\u5176\u5b83\u7684\u7f16\u7a0b\u8bed\u8a00\u4e0d\u540c\uff0cAda \u4e0d\u5c06\u6807\u8bc6\u7b26\u7684\u957f\u5ea6\u9650\u5236\u5728 6\uff0c8 \u6216\u8005 15 \u4e2a\u5b57\u7b26\u5185\u3002\u77ed\u540d\u5b57\u6253\u5b57\u901f\u5ea6\u5feb\u4e0d\u662f\u91c7\u7528\u5b83\u4eec\u7684\u53ef\u4ee5\u4e3a\u4eba\u63a5\u53d7\u7684\u7406\u7531\u3002\u53ea\u6709\u4e00\u4e2a\u5b57\u6bcd\u7684\u6807\u8bc6\u7b26\u901a\u5e38\u8bf4\u660e\u9009\u62e9\u4e0d\u5f53\u6216\u662f\u61d2\u60f0\u3002\u53ef\u80fd\u6709\u51e0\u4e2a\u4f8b\u5916\uff0c\u5982\u5c06 E \u4f5c\u4e3a\u81ea\u7136\u5bf9\u6570\u7684\u5e95\uff0cPi\uff0c\u4ee5\u53ca\u5176\u5b83\u5c11\u6570\u51e0\u4e2a\u6613\u8fa8\u8bc6\u7684\u60c5\u51b5\u3002<\/p>\n \u53ea\u80fd\u662f\u5728\u4e24\u79cd\u60c5\u51b5\u4e4b\u4e00\u65f6\u91c7\u7528\u7f29\u5199\uff1a\u8be5\u7f29\u5199\u5728\u5e94\u7528\u9886\u57df\u4e2d\u5f88\u666e\u904d\uff08\u5982 FFT \u4ee3\u8868\u5085\u7acb\u53f6\u53d8\u6362\uff09\u6216\u8005\u6765\u81ea\u516c\u8ba4\u7f29\u5199\u7684\u9879\u76ee\u7ea7\u5217\u8868\u3002\u5426\u5219\uff0c\u5f88\u6709\u53ef\u80fd\u4f7f\u76f8\u4f3c\u4f46\u4e0d\u76f8\u540c\u7684\u7f29\u5199\u5230\u5904\u51fa\u73b0\uff0c\u5bfc\u81f4\u4ee5\u540e\u7684\u6df7\u6dc6\u548c\u9519\u8bef\uff08\u5982\u5c06 track_identification \u7f29\u5199\u6210 trid\u3001trck_id\u3001tr_iden\u3001tid\u3001tr_ident\u7b49\uff09\u3002<\/p>\n \u901a\u5e38\u6309\u7167 Ada \u5b9e\u4f53\u7684\u7c7b\u6765\u52a0\u540e\u7f00\uff0c\u5982\u7ed9\u7a0b\u5e8f\u5305\u52a0\u4e0a _Package\uff0c\u5f02\u5e38\u52a0\u4e0a _Error\uff0c\u7c7b\u578b\u52a0\u4e0a _Type\uff0c\u4ee5\u53ca\u5b50\u7a0b\u5e8f\u7684\u53c2\u6570\u52a0\u4e0a _Param\uff0c\u5bf9\u5e2e\u52a9\u9605\u8bfb\u548c\u7406\u89e3\u4ee3\u7801\u4e0d\u662f<\/em>\u5f88\u6709\u6548\u3002 \u800c\u52a0\u4e0a\u5982 _Array\uff0c_Record \u548c _Function \u8fd9\u6837\u7684\u540e\u7f00\u5219\u66f4\u7cdf\u3002Ada \u7f16\u8bd1\u5668\u548c\u8bfb\u8005\u90fd\u53ef\u4ee5\u6839\u636e\u4e0a\u4e0b\u6587\u4ece\u5b50\u7a0b\u5e8f\u4e2d\u5206\u8fa8\u4e00\u4e2a\u5f02\u5e38\uff1a\u663e\u7136\u53ea\u6709\u5f02\u5e38\u540d\u53ef\u4ee5\u5728 raise<\/em> \u8bed\u53e5\u6216\u5f02\u5e38\u5904\u7406\u4e2d\u51fa\u73b0\u3002\u8fd9\u4e9b\u540e\u7f00\u5728\u5982\u4e0b\u53d7\u9650\u7684\u6761\u4ef6\u4e0b\u53ef\u7528\uff1a<\/p>\n \u7c7b\u5c5e\u5f62\u53c2\u7c7b\u578b\u540e\u7f00\u4e3a _Constrained<\/p>\n \u540e\u7f00\u4e3a _Pointer \u7684\u5b58\u53d6\u7c7b\u578b\u6216\u5176\u5b83\u975e\u76f4\u63a5\u6307\u4ee3\u7684\u5f62\u5f0f\uff1a_Handle \u6216 _Reference<\/p>\n \u901a\u8fc7 _Or_Wait \u9690\u85cf\u4e86\u53ef\u80fd\u963b\u585e\u7684\u5165\u53e3\u8c03\u7528\u7684\u5b50\u7a0b\u5e8f<\/p>\n \u8bd5\u60f3\u4e00\u4e2a\u5bfc\u51fa\u5b9e\u4f53\u53ef\u5728\u5176\u4e2d\u4f7f\u7528\u7684\u4e0a\u4e0b\u6587\uff0c\u5e76\u7ad9\u5728\u90a3\u4e2a\u89d2\u5ea6\u9009\u62e9\u4e00\u4e2a\u540d\u5b57\u3002\u4e00\u4e2a\u5b9e\u4f53\u4ec5\u88ab\u5b9a\u4e49\u4e00\u6b21\uff0c\u4f46\u5374\u88ab\u4f7f\u7528\u8bb8\u591a\u6b21\u3002\u8fd9\u4e00\u70b9\u5bf9\u4e8e\u5b50\u7a0b\u5e8f\u7684\u540d\u5b57\u53ca\u5176\u53c2\u6570\u6765\u8bf4\u5c24\u4e3a\u6b63\u786e\uff1b \u4f7f\u7528\u547d\u540d\u5173\u8054\u5173\u7cfb\u7684\u7ed3\u679c\u8c03\u7528\u5e94\u5c3d\u91cf\u4e0e\u81ea\u7136\u8bed\u8a00\u76f8\u8fd1\u3002\u8bb0\u4f4f\u7f3a\u5c11\u4f7f\u7528<\/em>\u5b50\u53e5\u4f7f\u5f97\u5927\u591a\u6570\u58f0\u660e\u5b9e\u4f53\u5fc5\u987b\u5177\u6709\u53d7\u9650\u540d\u3002\u5bf9\u4e8e\u6709\u53ef\u80fd\u5728\u7c7b\u5c5e\u5355\u5143\u4e2d\u6bd4\u5728\u4eab\u7528\u6a21\u5757\u90a3\u91cc\u4f7f\u7528\u5f97\u8fd8\u591a\u7684\u7c7b\u5c5e\u5f62\u53c2\u6765\u8bf4\uff0c\u5fc5\u987b\u5bfb\u627e\u4e00\u4e2a\u597d\u7684\u534f\u8c03\u529e\u6cd5\uff0c\u4f46\u662f\u7edd\u5bf9\u8981\u4fdd\u8bc1\u5b50\u7a0b\u5e8f\u7684\u5f62\u53c2\u5728\u4eab\u7528\u6a21\u5757\u7aef\u597d\u770b\u3002<\/p>\n \u8bed\u8a00\u7684\u6df7\u5408\uff08\u5982\u6cd5\u8bed\u548c\u82f1\u8bed\uff09\u5c06\u4f7f\u4ee3\u7801\u96be\u8bfb\uff0c\u6709\u65f6\u4f7f\u6807\u8bc6\u7b26\u7684\u610f\u4e49\u6478\u68f1\u4e24\u53ef\u3002 \u65e2\u7136 Ada \u7684\u5173\u952e\u5b57\u5df2\u662f\u82f1\u6587\u7684\uff0c\u5219\u8981\u6c42\u4f7f\u7528\u82f1\u6587\u5355\u8bcd\u3002\u6700\u597d\u91c7\u7528\u7f8e\u5f0f\u62fc\u6cd5\uff0c\u4ee5\u4fbf\u5229\u7528\u201cRational \u73af\u5883\u201d\u4e2d\u5185\u7f6e\u7684\u62fc\u5199\u68c0\u67e5\u3002<\/p>\n \u8fd9\u6837\u505a\u5c06\u4ea7\u751f\u6df7\u6dc6\u548c\u4e25\u91cd\u7684\u9519\u8bef\u3002\u8be5\u6cd5\u5219\u53ef\u5ef6\u4f38\u81f3\u5176\u5b83\u9884\u5b9a\u4e49\u7684\u5e93\u5355\u5143\uff1aCalendar\uff0cSystem\u3002\u8fd9\u4e5f\u5305\u62ec Standard<\/em> \u6807\u8bc6\u7b26\u672c\u8eab\u3002<\/p>\n \u4e00\u4e9b\u7ed9\u5404\u79cd Ada \u5b9e\u4f53\u7684\u547d\u540d\u5efa\u8bae\u4e5f\u662f\u540c\u6837\u3002\u5047\u5b9a\u4e00\u822c\u60c5\u5f62\u4e0b\uff0c\u201c\u9762\u5411\u5bf9\u8c61\u201d\u98ce\u683c\u7684\u8bbe\u8ba1\u53d7\u6b22\u8fce\u3002\u8be6\u60c5\u8bf7\u53c2\u89c1\u9644\u5f55 A\u3002<\/p>\n \u5176\u5b83\u53ef\u63a5\u53d7\u7684\u540e\u7f00\u6709\uff1a<\/p>\n \u6ce8\u610f\u7c7b\u540d\u4e0d\u5e94\u5728\u6807\u8bc6\u7b26\u4e2d\u91cd\u590d\uff0c\u56e0\u4e3a\u5b83\u603b\u662f\u4ee5\u5b8c\u5168\u53d7\u9650\u7684\u5f62\u5f0f\u4f7f\u7528\uff1a<\/p>\n UL><\/p>\n \u8fd9\u4e9b\u5143\u7d20\u5728\u5355\u72ec\u4f7f\u7528\u65f6\u4f5c\u540e\u7f00\uff0c\u524d\u9762\u52a0\u4e0a\u5305\u540d\uff0c\u8fd9\u6837\u5e76\u4e0d\u6e05\u695a\u6216\u975e\u5e38\u6478\u68f1\u4e24\u53ef\u3002<\/p>\n \u4f8b\u5982\uff0c\u6ce8\u610f\u4e0b\u9762\u7684\u5b8c\u5168\u540d Subscriber.Object\uff1a<\/p>\n \u5bf9\u4e8e\u679a\u4e3e\u7c7b\u578b\uff0c\u5355\u72ec\u6216\u8005\u4f5c\u4e3a\u540e\u7f00\u4f7f\u7528 Mode\uff0cKind\uff0cCode \u7b49\u5355\u8bcd\u3002<\/p>\n \u5bf9\u4e8e\u6570\u7ec4\u7c7b\u578b\uff0c\u5f53\u5df2\u5c06\u7b80\u5355\u540d\u7528\u4e8e\u7ec4\u4ef6\u7c7b\u578b\u65f6\uff0c\u53ef\u4ee5\u91c7\u7528\u540e\u7f00 _Table\u3002\u4ec5\u5f53\u6570\u7ec4\u7528\u8574\u6db5\u8bed\u4e49\u6765\u7ef4\u62a4\u65f6\uff0c\u624d\u91c7\u7528\u8c61 _Set \u548c _List \u8fd9\u6837\u7684\u540d\u5b57\u6216\u540e\u7f00\u3002Reserve _Vector \u548c _Matrix \u5e94\u7559\u4f5c\u76f8\u5e94\u7684\u6570\u5b66\u6982\u5ff5\u4f7f\u7528\u3002<\/p>\n \u5f53\u5728\u4e00\u4e2a\u7c7b\u7a0b\u5e8f\u5305\u4e2d\u5b9a\u4e49\u5f02\u5e38\u65f6\uff0c\u6807\u8bc6\u7b26\u65e0\u9700\u5305\u542b\u7c7b\u540d – \u4f8b\u5982 Bad_Initial_Subscriber_Value – \u56e0\u4e3a\u5f02\u5e38\u4e00\u76f4\u88ab\u7528\u4f5c Subscriber.Bad_Initial_Value\u3002<\/p>\n \u5f53\u7b80\u5355\u540d\u79f0\u5df2\u4f5c\u4e3a\u7c7b\u578b\u540d\u6216\u679a\u4e3e\u578b\u76f4\u63a5\u91cf\u65f6\uff0c\u4e0a\u8ff0\u65b9\u6cd5\u6709\u7528\u3002<\/p>\n \u8c13\u8bcd\u5e94\u4f7f\u7528\u80af\u5b9a\u5f0f\uff0c\u4e5f\u5c31\u662f\u8bf4\uff0c\u5176\u4e2d\u4e0d\u5e94\u542b\u6709\u201cNot_\u201d\u4e00\u8bcd\u3002<\/p>\n \u5bf9\u4e8e\u666e\u901a\u64cd\u4f5c\uff0c\u7edf\u4e00\u4ece\u9879\u76ee\u53ef\u9009\u5217\u8868\uff08\u5217\u8868\u968f\u7740\u6211\u4eec\u5bf9\u7cfb\u7edf\u8ba4\u8bc6\u7684\u52a0\u6df1\u800c\u6269\u5c55\uff09\u4e2d\u9009\u62e9\u52a8\u8bcd\uff1a<\/p>\n \u5e94\u5b9a\u4e49\u6210\uff1a<\/p>\n \u8fd9\u624d\u8ba9\u4eab\u7528\u6a21\u5757\u6309\u5176\u6240\u9700\u7684\u90a3\u6837\u5b9e\u73b0\u4e86\u8868\u8fbe\u5f0f\u7684\u5426\u5b9a\uff08\u8fd9\u6837\u505a\u4e0d\u4f1a\u5bfc\u81f4\u8fd0\u884c\u65f6\u95f4\u5ef6\u957f\uff09\uff1a<\/p>\n \u6709\u4e9b\u60c5\u51b5\u4e0b\uff0c\u901a\u8fc7\u4f7f\u7528\u53cd\u4e49\u8bcd\uff0c\u5982\u7528\u201cIs_Invalid\u201d\u6765\u4ee3\u66ff\u201cIs_Not_Valid\u201d\uff0c\u53ef\u4ee5\u4f7f\u5426\u5b9a\u8c13\u8bcd\u5728\u4e0d\u6539\u53d8\u8bed\u4e49\u7684\u60c5\u51b5\u4e0a\u53d8\u6210\u80af\u5b9a\u5f0f\u3002\u4f46\u662f\uff0c\u80af\u5b9a\u5f0f\u7684\u540d\u5b57\u66f4\u6613\u8bfb\uff1a \u201cIs_Valid\u201d\u6bd4\u201cnot Is_Invalid\u201d\u66f4\u6613\u7406\u89e3\u3002<\/p>\n \u4e00\u4e9b\u64cd\u4f5c\u5e94\u4e00\u76f4\u4f7f\u7528\u76f8\u540c\u7684\u540d\u5b57\u6765\u7edf\u4e00\u5b9a\u4e49\uff1a<\/p>\n \u5f53\u7cfb\u7edf\u5730\u5904\u7406\u5b83\u4eec\u65f6\u91c7\u7528\u7edf\u4e00\u7684\u547d\u540d\uff0c\u7c7b\u578b\u5408\u6210\u5c06\u5bb9\u6613\u8bb8\u591a\u3002<\/p>\n \u82e5\u53ef\u884c\uff0c\u8fd8\u8981\u5b9a\u4e49 \u4f46\u662f\uff1a<\/p>\n
\n<\/a>\u7b2c\u4e8c\u7ae0<\/em><\/h2>\n
\u7b80\u4ecb<\/h1>\n
\u57fa\u672c\u539f\u5219<\/h2>\n
\u6700\u5c0f\u9650\u5ea6\u7684\u610f\u5916<\/h3>\n
\u5355\u70b9\u7ef4\u62a4<\/h3>\n
\u6700\u5c0f\u9650\u5ea6\u7684\u5e72\u6270<\/h3>\n
<\/a>\u5047\u8bbe<\/h2>\n
\u8bfb\u8005\u4e86\u89e3 Ada\u3002<\/h3>\n
\u8bfb\u8005\u61c2\u82f1\u6587\u3002<\/h3>\n
\u4e25\u683c\u9650\u5236\u4f7f\u7528\u5b50\u53e5 (use clause) \u7684\u8fd0\u7528\u3002<\/h3>\n
\u5904\u7406\u7684\u662f\u4e00\u4e2a\u5927\u9879\u76ee\u3002<\/h3>\n
\u6e90\u7801\u5728\u201cRational \u73af\u5883\u201d (Rational Environment) \u4e2d\u5f00\u53d1\u3002<\/h3>\n
\u7a0b\u5e8f\u8bbe\u8ba1\u9075\u5faa\u9762\u5411\u5bf9\u8c61\u7684\u65b9\u6cd5\u3002<\/h3>\n
<\/a>\u6307\u5357\u5206\u7c7b<\/h2>\n
\u63d0\u793a\uff1a
<\/h3>\n\u5efa\u8bae\uff1a
<\/h3>\n\u9650\u5236\uff1a
<\/h3>\n\u8981\u6c42\uff1a
<\/h3>\n\n
<\/a>\u6700\u6839\u672c\u7684\u539f\u5219<\/h2>\n
\u4f7f\u7528\u5e38\u8bc6\u3002<\/p>\n
\n<\/a>\u7b2c\u4e09\u7ae0<\/em><\/h2>\n
\u4ee3\u7801\u5e03\u5c40<\/h1>\n
\u6982\u8ff0<\/h2>\n
<\/a>\u5b57\u6bcd\u5927\u5c0f\u5199<\/h2>\n
Format .Id_Case : Letter_Case := Capitalized<\/h3>\n
Format .Keyword_Case : Letter_Case := Lower<\/h3>\n
Format .Number_Case : Letter_Case := Upper<\/h3>\n
<\/a>\u7f29\u8fdb<\/h2>\n
Format .Major_Indentation : Indent_Range := 3<\/h3>\n
Format .Minor_Indentation : Indent_Range := 2<\/h3>\n
<\/a>\u884c\u7684\u957f\u5ea6\u548c\u884c\u7684\u5206\u9694<\/h2>\n
Format .Line_Length : Line_Range := 80<\/h3>\n
Format .Statement_Indentation : Indent_Range := 3<\/h3>\n
Format .Statement_Length : Line_Range := 35<\/h3>\n
Format .Wrap_Indentation : Line_Range := 16<\/h3>\n
<\/a>\u5bf9\u9f50<\/h2>\n
Format .Consistent_Breaking : Integer := 1<\/h3>\n
Format .Alignment_Threshold : Line_Range := 20<\/h3>\n
\u8981\u6ce8\u610f\u7684\u662f\uff0c\u4e3a\u4e86\u5f62\u6210\u67d0\u79cd\u5e03\u5c40\uff0c\u7a0b\u5e8f\u5458\u53ef\u4ee5\u63d2\u5165\u4e00\u4e2a\u884c\u7ed3\u675f\u7b26\u6216\u8005\u901a\u8fc7\u8f93\u5165 <space> <space> <carriage-return> \u6765\u6572\u5165\u4e00\u4e2a\u4e0d\u4f1a\u88ab\u683c\u5f0f\u5668\u5220\u6389\u7684\u884c\u4e2d\u65ad\u3002<\/p>\n\u5f53 \u5217\u8868\u4e2d\u7684\u5143\u7d20\u8d85\u8fc7 3 \u4e2a\u5e76\u4e14\u5728\u4e00\u884c\u4e2d\u88c5\u4e0d\u4e0b\u8fd9\u4e9b\u5143\u7d20\u65f6\uff0c\u91c7\u7528\u4e0a\u8ff0\u6280\u5de7\u3002Ada \u5143\u7d20\u5217\u8868\u5e94\u5206\u9694\u4e3a\u4e00\u884c\u4ec5\u6709\u4e00\u4e2a\u5143\u7d20\uff0c\u4ee5\u63d0\u9ad8\u4ee3\u7801\u7684\u6613\u8bfb\u6027\u548c\u53ef\u7ef4\u62a4\u6027\u3002\u8fd9\u4e00\u6761\u5c24\u5176\u9002\u7528\u4e8e\u4ee5\u4e0b Ada \u6784\u9020\uff08\u8c61 Ada Reference Manual \u7684 Appendix E \u4e2d\u6240\u5b9a\u4e49\u7684\u90a3\u6837 [ISO87]<\/a>\uff09\uff1a<\/p>\npragma Suppress (Range_Check,\r\nOn => This_Type,\r\nOn => That_Type, On => That_Other_Type);<\/pre>\n
Next_Position,\r\nPrevious_Position,\r\nCurrent_Position : Position;\r\ntype Some_Record is \r\nrecord\r\nA_Component,\r\nB_Component,\r\nC_Component : Component_Type;\r\nend record;<\/pre>\n
type Navaid is \r\n(Vor, \r\nVor_Dme, \r\nDme, \r\nTacan, \r\nVor_Tac, \r\nNDB);<\/pre>\n
subtype Constrained is Element \r\n(Name_Length => Name'Length,\r\nValid => True,\r\nOperation => Skip);<\/pre>\n
procedure Just_Do_It (This : in Some_Type;\r\nFor_That : in Some Other_Type;\r\nStatus : out Status_Type);\r\nJust_Do_It (This => This_Value;\r\nFor_That => That_Value;\r\nStatus => The_Status);<\/pre>\n
\n<\/a>\u7b2c\u56db\u7ae0<\/em><\/h2>\n
\u6ce8\u91ca<\/h1>\n
\u6982\u8ff0<\/h2>\n
------------------------------------------------------------\r\n-- procedure Create\r\n------------------------------------------------------------\r\n--\r\nprocedure Create\r\n(The_Subscriber: in out Subscriber.Handle;\r\nWith_Name : in out Subscriber.Name);\r\n--\r\n-- Purpose: This procedure creates a subscriber with a given\r\n-- name.\r\n--\r\n-- Parameters: \r\n- The_Subscriber :mode in out, type Subscriber.Handle\r\n- It is the handle to the created subscriber\r\n- With_Name :mode in, type Subscriber.Name\r\n- The name of the subscriber to be created.\r\n- The syntax of the name is\r\n-- <letter> { <letter> | <digit> }\r\n-- Exceptions:\r\n-- Subscriber.Collection_Overflow when there is no more\r\n-- space to create a new subscriber\r\n-- Subscriber.Invalid_Name when the name is blank or\r\n-- malformed\r\n--\r\n-------------------------------------------- end Create ----<\/pre>\n\n
\n
\n
procedure Create (The_Subscriber : in out Subscriber.Handle;\r\nWith_Name : in Subscriber.Name);--\r\n-Raises Subscriber.Collection_Overflow.\r\n-Raises Subscriber.Invalid_Name when the name is \r\nblank or malformed (see syntax description \r\nattached to declaration of type Subscriber.Name).<\/pre>\n
<\/a>\u6ce8\u91ca\u7528\u6cd5\u6307\u5357<\/h2>\n
\u6ce8\u91ca\u5e94\u653e\u5728\u76f8\u5173\u4ee3\u7801\u7684\u65c1\u8fb9\uff0c\u7f29\u8fdb\u540c\u6837\u7684\u5927\u5c0f\uff0c\u7d27\u9760\u7740\u4ee3\u7801 – \u5373\u7528\u7a7a\u7684\u6ce8\u91ca\u884c\u5728\u89c6\u89c9\u4e0a\u5c06\u6ce8\u91ca\u5757\u4e0e Ada \u6784\u9020\u6346\u5728\u4e00\u8d77\uff1a<\/p>\nprocedure First_One;\r\n--\r\n-- This comment relates to First_One.\r\n-- But this comment is for Second_One.\r\n-- \r\nprocedure Second_One (Times : Natural);<\/pre>\n
\u7528\u7a7a\u884c\u5206\u9694\u76f8\u5173\u7684\u6e90\u7801\u5757\uff08\u6ce8\u91ca\u548c\u4ee3\u7801\uff09\uff0c\u800c\u4e0d\u7528\u7c97\u91cd\u7684\u6ce8\u91ca\u884c\uff0c\u5982\uff1a<\/p>\n-------------------------------------------------------------<\/pre>\n
--===========================================================<\/pre>\n
\u5728\u4e00\u4e2a\u6ce8\u91ca\u5757\u4e2d\uff0c\u4f7f\u7528\u7a7a\u6ce8\u91ca\u884c\u800c\u975e\u7a7a\u884c\u6765\u5206\u5272\u6ce8\u91ca\u6bb5<\/p>\n-- Some explanation here that needs to be continued in a\r\n-- subsequent paragraph.\r\n--\r\n-- The empty comment line above makes it clear that we \r\n-- are dealing with a single comment block.<\/pre>\n
\u867d\u7136\u6ce8\u91ca\u53ef\u4ee5\u653e\u5728\u76f8\u5173 Ada \u6784\u9020\u7684\u4e0a\u65b9\u6216\u4e0b\u65b9\uff0c\u4f46\u662f\u8981\u5c06\u4e00\u8282\u7684\u6807\u9898\u6216\u8005\u4e00\u4e2a\u8bf4\u660e\u51e0\u4e2a Ada \u6784\u9020\u7684\u4e3b\u8981\u4fe1\u606f\u653e\u5728\u6784\u9020\u7684\u4e0a\u65b9<\/em>\u3002\u5c06\u8bc4\u8ff0\u6216\u9644\u52a0\u4fe1\u606f\u7b49\u8fd9\u4e00\u7c7b\u7684\u6ce8\u91ca\u653e\u5728\u76f8\u5173 Ada \u6784\u9020\u7684\u4e0b\u65b9<\/em>\u3002<\/p>\n\u7528\u4e00\u9875\u7684\u6574\u884c\u5bbd\u5728 Ada \u6784\u9020\u7684\u5f00\u5934\u5904\u5206\u7ec4\u3002\u907f\u514d\u5c06\u6ce8\u91ca\u653e\u5728 Ada \u6784\u9020\u7684\u540c\u4e00\u884c\u3002\u8fd9\u4e9b\u6ce8\u91ca\u5e38\u5e38\u53d8\u5f97\u4e0d\u5bf9\u9f50\u3002\u4f46\u662f\u5728\u8bf4\u660e\u4e00\u4e2a\u957f\u7684\u58f0\u660e\u65f6\uff0c\u5982\u679a\u4e3e\u7c7b\u578b\u76f4\u63a5\u91cf\uff0c\u8fd9\u6837\u7684\u6ce8\u91ca\u65b9\u5f0f\u662f\u53ef\u4ee5\u5bb9\u8bb8\u7684\u3002<\/p>\n\u7528\u4e00\u4e2a\u5c0f\u7684\u5206\u5c42\u6b21\u7684\u6807\u51c6\u6ce8\u91ca\u5757\u6765\u8bf4\u660e\u5c0f\u8282\u7684\u6807\u9898\uff0c\u4f46\u8fd9\u4ec5\u4ec5\u9002\u7528\u4e8e\u5f88\u5927\u7684 Ada \u5355\u5143\uff08>200 \u884c\u7684\u58f0\u660e\u6216\u8005\u8bed\u53e5\uff09\uff1a<\/p>\n--===========================================================\r\n--\r\n \u4e3b\u6807\u9898\r\n--\r\n--===========================================================\r\n\r\n-------------------------------------------------------------\r\n \u526f\u6807\u9898\r\n-------------------------------------------------------------\r\n\r\n --------------------\r\n \u5b50\u90e8\u5206\u7684\u5934\r\n --------------------<\/pre>\n
\u907f \u514d\u4f7f\u7528\u542b\u6709\u4fe1\u606f\u7684\u51fd\u6570\u5934\uff0c\u6bd4\u5982\u4f5c\u8005\u3001\u7535\u8bdd\u3001\u521b\u5efa\u548c\u4fee\u6539\u65e5\u671f\u3001\u5355\u5143\uff08\u6216\u6587\u4ef6\u540d\uff09\u7684\u4f4d\u7f6e\uff0c\u56e0\u4e3a\u8fd9\u4e9b\u4fe1\u606f\u5f88\u5feb\u5c31\u4f1a\u8fc7\u65f6\u3002\u5c06\u6240\u6709\u8005\u7248\u6743\u4fe1\u606f\u653e\u5728\u5355\u5143\u7684\u672b\u5c3e\uff0c\u5c24\u5176\u662f \u4f7f\u7528\u201cRational \u73af\u5883\u201d\u65f6\u3002\u5f53\u8bbf\u95ee\u4e00\u4e2a\u7a0b\u5e8f\u5305\u7684\u89c4\u683c\u8bf4\u660e\u6e90\u7801\u65f6 – \u4f8b\u5982\u5728\u201cRational \u73af\u5883\u201d\u4e2d\u6309 [Definition] – \u8bfb\u8005\u4e0d\u60f3\u6d4f\u89c8\u4e24\u9875\u6216\u8005\u4e09\u9875\u5bf9\u7406\u89e3\u7a0b\u5e8f\u65e0\u4efb\u4f55\u7528\u5904\u7684\u6587\u672c\u548c\/\u6216\u5b8c\u5168\u4e0d\u5e26\u6709\u4efb\u4f55\u7a0b\u5e8f\u4fe1\u606f\u7684\u6587\u672c\u3002\u907f\u514d\u4f7f\u7528\u5782\u76f4\u6eda\u52a8\u6761\u3001\u5c01\u95ed\u56fe\u6587\u6846\u6216\u65b9\u6846\uff0c\u8fd9\u4e9b\u4e1c\u897f\u53ea\u4f1a\u589e\u52a0\u89c6\u89c9 \u5e72\u6270\uff0c\u800c\u4e14\u96be\u4ee5\u4fdd\u6301\u4e00\u81f4\u6027\u3002\u7528 Rational CMVC \u9644\u6ce8\uff08\u6216\u8005\u5176\u5b83\u5f62\u5f0f\u7684\u8f6f\u4ef6\u5f00\u53d1\u6587\u4ef6\uff09\u6765\u4fdd\u5b58\u5355\u5143\u5386\u53f2\u3002<\/p>\n\u4e0d\u8981\u91cd\u590d\u53ef\u4ee5\u5728\u5176\u5b83\u5730\u65b9\u627e\u5230\u7684\u4fe1\u606f\uff1b\u4ec5\u63d0\u4f9b\u4e00\u4e2a\u6307\u5411\u8be5\u4fe1\u606f\u7684\u6307\u9488\u5373\u53ef\u3002<\/p>\n\u5c3d \u91cf\u91c7\u7528 Ada\uff0c\u800c\u975e\u6ce8\u91ca\u3002\u8981\u5b9e\u73b0\u8fd9\u4e00\u70b9\uff0c\u4f60\u53ef\u9009\u62e9\u66f4\u597d\u7684\u540d\u5b57\u3001\u9644\u52a0\u4e34\u65f6\u53d8\u91cf\u3001\u9650\u5b9a\u3001\u91cd\u547d\u540d\u3001\u5b50\u7c7b\u578b\u3001\u9759\u6001\u8868\u8fbe\u5f0f\u548c\u5c5e\u6027\uff0c\u8fd9\u4e9b\u90fd\u4e0d\u5f71\u54cd\u751f\u6210\u7684\u4ee3\u7801\uff08\u81f3\u5c11\u5728\u4e00\u4e2a\u597d\u7684 \u7f16\u8bd1\u5668\u4e2d\u4e0d\u5f71\u54cd\uff09\u3002\u4f60\u4e5f\u53ef\u4ee5\u91c7\u7528\u5c0f\u7684\u3001\u5d4c\u5165\u5f0f\u7684\u8c13\u8bcd\u51fd\u6570\uff0c\u5e76\u5c06\u4ee3\u7801\u5206\u6210\u51e0\u4e2a\u65e0\u53c2\u8fc7\u7a0b\uff0c\u8fd9\u4e9b\u8fc7\u7a0b\u7684\u540d\u5b57\u63d0\u4f9b\u4e86\u4ee3\u7801\u51e0\u4e2a\u79bb\u6563\u90e8\u5206\u7684\u6807\u9898\u3002<\/p>\nexit when Su.Locate (Ch, Str) \/= 0; \r\n-- Exit search loop when found it.<\/pre>\n
if Value < 'A' or else Value > 'Z' then\r\n-- If not in uppercase letters.<\/pre>\n
subtype Uppercase_Letters is Character range 'A' ..'Z';\r\nif Value not in Uppercase_Letters then ...<\/pre>\n
X := Green; -- This is the Green from \r\n-- Status, not from Color.\r\nraise Fatal_Error; -- From package Outer_Scope.\r\ndelay 384.0; -- Equal to 6 minutes and 24 \r\n-- seconds.<\/pre>\n
The_Status := Green;<\/pre>\n
X := Status'(Green);\r\nraise Outer_Scope.Fatal_Error;\r\ndelay 6.0 * Minute + 24.0 * Second;<\/pre>\n
if Is_Valid (The_Table (Index).Descriptor(Rank).all) then\r\n-- This is the current value for the iteration; if it is \r\n-- valid we append to the list it contains.\r\nAppend (Item, To_List => The_Table (Index).Descriptor(Rank).Ptr);|<\/pre>\n
declare\r\nCurrent_Rank : Lists.List renames The_Table \r\n(Index).Descriptor (Rank);\r\nbegin\r\nif Is_Valid (Current_Rank.all) then\r\nAppend (Item, To_List => Current_Rank.Ptr);\r\nend if;\r\nend;<\/pre>\n
\u6ce8\u610f\u6ce8\u91ca\u4e2d\u7684\u98ce\u683c\u3001\u8bed\u6cd5\u548c\u62fc\u5199\u3002\u4e0d\u8981\u4f7f\u7528\u8c61\u7535\u62a5\u5bc6\u7801\u4e00\u822c\u7684\u98ce\u683c\u3002\u4f7f\u7528\u62fc\u5199\u68c0\u67e5\u3002\uff08\u5728\u201cRational \u73af\u5883\u201d\u4e2d\u8c03\u7528 Speller.Check_Image\uff09\u3002<\/p>\n\u4e0d\u8981\u4f7f\u7528\u65b9\u8a00\u5b57\u6bcd\u6216\u8005\u5176\u5b83\u975e\u82f1\u6587\u5b57\u7b26\u3002\u6839\u636e Ada Issue AI-339\uff0c\u975e\u82f1\u6587\u5b57\u7b26\u53ef\u88ab\u4e00\u4e9b\u5f00\u53d1\u7cfb\u7edf\u652f\u6301\uff0c\u4e00\u4e9b Ada \u7f16\u8bd1\u5668\u4ec5\u5728\u6ce8\u91ca\u4e2d\u652f\u6301\u3002\u4f46\u8fd9\u662f\u4e0d\u53ef\u79fb\u690d\u7684\uff0c\u5f88\u6709\u53ef\u80fd\u5728\u5176\u5b83\u7cfb\u7edf\u4e0a\u5931\u6548\u3002<\/p>\n\u5bf9\u4e8e\u5b50\u7a0b\u5e8f\uff0c\u81f3\u5c11\u8bf4\u660e\uff1a<\/p>\n\n
\u5bf9\u4e8e\u7c7b\u578b\u548c\u5bf9\u8c61\uff0c\u8981\u8bf4\u660e\u6240\u6709\u4e0d\u80fd\u901a\u8fc7 Ada \u8868\u8fbe\u7684\u4e0d\u53d8\u91cf\u6216\u9644\u52a0\u7ea6\u675f\u3002<\/p>\n\u907f\u514d\u6ce8\u91ca\u4e2d\u7684\u91cd\u590d\u3002\u4f8b\u5982\uff0c\u6709\u5173\u7528\u9014\u7684\u90e8\u5206\u5e94\u662f\u201c\u5b83\u505a\u4ec0\u4e48\uff1f\u201d\u8fd9\u4e2a\u95ee\u9898\u7684\u7b80\u5355\u56de\u7b54\uff0c\u800c\u4e0d\u662f\u201c\u5b83\u600e\u4e48\u505a\uff1f\u201d\u7684\u56de\u7b54\u3002\u6982\u8ff0\u5e94\u662f\u8bbe\u8ba1\u7684\u7b80\u77ed\u8868\u8fbe\u3002\u8bf4\u660e\u4e2d\u4e0d\u5e94\u63cf\u8ff0\u6240\u7528\u7684\u7b97\u6cd5\uff0c\u800c\u5e94\u89e3\u91ca\u7a0b\u5e8f\u5305\u5e94\u5982\u4f55\u4f7f\u7528\u3002<\/p>\n
\n<\/a>\u7b2c\u4e94\u7ae0<\/em><\/h2>\n
\u547d\u540d\u7ea6\u5b9a<\/h1>\n
\u6982\u8ff0<\/h2>\n
\u9009\u62e9\u6e05\u6670\u7684\u3001\u6613\u8bfb\u7684\u3001\u6709\u610f\u4e49\u7684\u540d\u79f0\u3002<\/p>\n\u7528\u4e0b\u5212\u7ebf\u5c06\u4e00\u4e2a\u540d\u5b57\u4e2d\u7684\u4e0d\u540c\u5355\u8bcd\u5206\u9694\u5f00\u6765\uff1a<\/p>\nIs_Name_Valid<\/code> \u4e0d\u662f IsNameValid<\/code><\/p>\n\u91c7\u7528\u5168\u540d\u800c\u4e0d\u662f\u7f29\u5199\u3002<\/p>\n\u53ea\u91c7\u7528\u9879\u76ee\u8ba4\u53ef\u7684\u7f29\u7565\u8bcd\u3002<\/p>\n\u5c11\u7528\u540e\u7f00\u8bf4\u660e Ada \u6784\u9020\u7684\u5206\u7c7b\u3002\u5b83\u4eec\u4e0d\u80fd\u63d0\u9ad8\u6613\u8bfb\u6027\u3002<\/p>\n\n
\u5c06\u540d\u5b57\u8868\u8ff0\u51fa\u6765\uff0c\u4f7f\u5f97\u4ece\u4f7f\u7528<\/em>\u7684\u89d2\u5ea6\u770b\uff0c\u5b83\u4eec\u8fd8\u4e0d\u9519\u3002<\/p>\n\u4f7f\u7528\u82f1\u6587\u5355\u8bcd\u5e76\u62fc\u5199\u6b63\u786e\u3002<\/p>\n\u4e0d\u8981\u91cd\u65b0\u5b9a\u4e49 Standard \u7a0b\u5e8f\u5305\u4e2d\u7684\u4efb\u4f55\u5b9e\u4f53\u3002\u8fd9\u662f\u7edd\u5bf9\u7981\u6b62\u7684\u3002<\/p>\n\u907f\u514d\u5bf9\u5176\u5b83\u9884\u5b9a\u4e49\u7a0b\u5e8f\u5305\u4e2d\u7684\u6807\u8bc6\u7b26\u91cd\u5b9a\u4e49\uff0c\u5982 System \u6216 Calendar\u3002<\/p>\n\u4e0d\u8981\u4f7f\u7528\u5982\u4e0b\u7684\u6807\u8bc6\u7b26\uff1aWide_Character<\/strong> \u548c Wide_String<\/strong>\uff0c\u5b83\u4eec\u5c06\u5728 Ada 95 \u7684 Standard \u7a0b\u5e8f\u5305\u4e2d\u5f15\u5165\u3002\u4e0d\u8981\u5f15\u5165\u4e00\u4e2a\u540d\u4e3a Ada<\/strong> \u7684\u7f16\u8bd1\u5355\u5143\u3002<\/p>\n\u4e0d\u8981\u4f7f\u7528\u4ee5\u4e0b\u5355\u8bcd\u4f5c\u4e3a\u6807\u8bc6\u7b26\uff1aabstract<\/strong>\uff0caliased<\/strong>\uff0cprotected<\/strong>\uff0crequeue<\/strong>\uff0ctagged<\/strong> \u548c until<\/strong>\uff0c\u5b83\u4eec\u5728 Ada 95 \u5c06\u6210\u4e3a\u5173\u952e\u5b57\u3002<\/p>\n<\/a>\u7a0b\u5e8f\u5305<\/h2>\n
\u5f53\u4e00\u4e2a\u7a0b\u5e8f\u5305\u5f15\u5165\u4e86\u67d0\u4e2a\u5bf9\u8c61\u7c7b\u65f6\uff0c\u7528\u8be5\u5bf9\u8c61\u7c7b\u7684\u540d\u5b57\u547d\u540d\u7a0b\u5e8f\u5305\uff0c\u901a\u5e38\u662f\u4e00\u4e2a\u5355\u6570\u5f62\u5f0f\u7684\u540d\u8bcd\uff0c\u82e5\u9700\u8981\uff08\u5373\u5b9a\u4e49\u4e86\u4e00\u4e2a\u5e26\u53c2\u6570\u7684\u7c7b\uff09\uff0c\u53ef\u52a0\u4e0a\u540e\u7f00 _Generic\u3002\u4ec5\u5f53\u5bf9\u8c61\u603b\u4ee5\u7fa4\u4f53\u5f62\u5f0f\u51fa\u73b0\u65f6\uff0c\u624d\u91c7\u7528\u590d\u6570\u5f62\u5f0f\u3002\u4f8b\u5982\uff1a<\/p>\npackage Text is\r\npackage Line is\r\npackage Mailbox is\r\npackage Message is\r\npackage Attributes is\r\npackage Subscriber is\r\npackage List_Generic is<\/pre>\n
\u82e5\u4e00\u4e2a\u7a0b\u5e8f\u5305\u8bf4\u660e\u4e86\u4e00\u4e2a\u63a5\u53e3\u6216\u8005\u529f\u80fd\u5206\u7ec4\uff0c\u5e76\u4e14\u5b83\u4e0d\u4e0e\u4efb\u4f55\u5bf9\u8c61\u76f8\u5173\uff0c\u5219\u5e94\u5728\u5b83\u7684\u540d\u5b57\u4e2d\u5c06\u8fd9\u4e00\u70b9\u8868\u8ff0\u51fa\u6765\uff1a<\/p>\npackage Low_Layer_Interface is\r\npackage Math_Definitions is<\/pre>\n
\u5f53\u4e00\u4e2a\u201c\u903b\u8f91\u201d\u5305\u7528\u5e73\u9762\u5206\u89e3 (flat decomposition)\uff0c\u9700\u8981\u4f5c\u4e3a\u51e0\u4e2a\u5305\u6765\u8868\u8fbe\u65f6\uff0c\u91c7\u7528\u9879\u76ee\u7ea7\u4e00\u81f4\u7684\u5217\u8868\u4e2d\u7684\u540e\u7f00\u3002\u4f8b\u5982\uff0c\u4e00\u4e2a\u903b\u8f91\u7a0b\u5e8f\u5305 Mailbox \u53ef\u5982\u4e0b\u5b9e\u73b0\uff1a<\/p>\npackage Mailbox_Definitions is\r\npackage Mailbox_Exceptions is\r\npackage Mailbox_Io is\r\npackage Mailbox_Utilities is\r\npackage Mailbox_Implementation is\r\npackage Mailbox_Main is<\/pre>\n
_Test_Support \r\n_Test_Main \r\n_Log \r\n_Hidden_Definitions \r\n_Maintenance \r\n_Debug<\/pre>\n
<\/a>\u7c7b\u578b<\/h2>\n
\u5f53\u5728\u7a0b\u5e8f\u5305\u4e2d\u5b9a\u4e49\u4e00\u4e2a\u5bf9\u8c61\u7c7b\u8574\u6db5\u62f7\u8d1d\u8bed\u4e49\u65f6 – \u5373\u5f53\u7c7b\u578b\u53ef\u5b9e\u4f8b\u5316\u5e76\u4e14\u67d0\u79cd\u5f62\u5f0f\u7684\u4efb\u52a1\u5206\u914d\u53ef\u884c\u65f6\uff0c\u91c7\u7528\uff1a<\/p>\ntype Object is ...<\/pre>\n
Mailbox.Object\r\nLine.Object<\/pre>\n
\u5f53\u5305\u542b\u5171\u4eab\u8bed\u4e49\u65f6 – \u5373\u7c7b\u578b\u7528\u5b58\u53d6\u503c\uff08\u6216\u8005\u5176\u5b83\u975e\u76f4\u63a5\u7684\u5f62\u5f0f\uff09\u5b9e\u73b0\uff0c\u5e76\u4e14\u8d4b\u503c\u8bed\u53e5\uff08\u82e5\u5b58\u5728\uff09\u4e0d\u590d\u5236\u5bf9\u8c61 – \u7528\u5982\u4e0b\u65b9\u5f0f\u8bf4\u660e\uff1a<\/p>\n\n
type Handle is <\/code>\u7528\u4e8e\u975e\u76f4\u63a5\u5f15\u7528<\/li>\ntype Reference is <\/code>\u662f\u4e00\u4e2a\u53ef\u884c\u7684\u5907\u7528\u65b9\u6848<\/li>\n<\/ul>\n\u5f53\u8574\u6db5\u591a\u4e2a\u5bf9\u8c61\u65f6\uff0c\u91c7\u7528\uff1a<\/p>\n\n
type Set is <\/code>\u5f53\u6697\u542b\u5143\u7d20\u7684\u7279\u6b8a\u6027\u65f6<\/li>\ntype List is <\/code>\u5f53\u5305\u542b\u67d0\u79cd\u6b21\u5e8f\u65f6<\/li>\ntype Collection is<\/code> \u5f53\u65e2\u4e0d\u542b\u96c6\u5408\u4e5f\u4e0d\u542b\u5217\u8868\u8bed\u4e49\u65f6<\/li>\ntype Iterator is<\/code> \u5f53\u63d0\u4f9b\u4e86 Initialize\uff0cValue_Of\uff0cNext\uff0cIs_Done \u7b49\u539f\u8bed\u65f6
\n\uff08\u53c2\u89c1 6.5 \u8282\uff09<\/li>\n<\/ul>\n\u5bf9\u4e8e\u67d0\u4e2a\u5bf9\u8c61\u4e32\u7684\u6307\u5b9a\uff0c\u91c7\u7528\uff1a<\/p>\ntype Name is<\/code><\/p>\n\u4e3a\u4e86\u8fbe\u5230\u66f4\u597d\u7684\u6613\u8bfb\u6027\uff0c\u7c7b\u578b\u7684\u53d7\u9650\u540d\u4e5f\u5e94\u5728\u6574\u4e2a\u5b9a\u4e49\u5305\u5185\u4f7f\u7528\u3002\u201cRational \u73af\u5883\u201d\u4e2d\uff0c\u5f53\u5728\u5b50\u7a0b\u5e8f\u8c03\u7528\u4e2d\u91c7\u7528 [Complete] \u51fd\u6570\u65f6\uff0c\u4e0a\u8ff0\u65b9\u6cd5\u4e5f\u53ef\u4f7f\u8fd0\u884c\u66f4\u52a0\u597d\u3002<\/p>\npackage Subscriber is\r\ntype Object is private;\r\ntype Handle is access Subscriber.Object;\r\nsubtype Name is String;\r\npackage List is new List_Generic (Subscriber.Handle);\r\nMaster_List : Subscriber.List.Handle;\r\nprocedure Create (The_Handle : out Subscriber.Handle;\r\nWith_Name : in Subscriber.Name);\r\nprocedure Append (The_Subscriber : in Subscriber.Handle;\r\nTo_List : in out Subscriber.List.Handle);\r\nfunction Name_Of (The_Subscriber : Subscriber.Handle) return\r\nSubscriber.Name;\r\n ...\r\nprivate\r\ntype Object is\r\nrecord\r\nThe_Name : Subscriber.Name (1..20);\r\n ...\r\nend Subscriber;<\/pre>\n
\u5728\u5176\u5b83\u60c5\u51b5\u4e0b\uff0c\u7c7b\u540d\u91c7\u7528\u540d\u8bcd\u6216\u8005\u4fee\u9970\u7b26 + \u540d\u8bcd\u3002\u7c7b\u578b\u53ef\u7528\u590d\u6570\u5f62\u5f0f\uff0c\u5bf9\u8c61\uff08\u53d8\u91cf\uff09\u540d\u91c7\u7528\u5355\u6570\uff1a<\/p>\ntype Point is record ...\r\ntype Hidden_Attributes is ( ...\r\ntype Boxes is array ...<\/pre>\n
\u56e0\u4e3a\u8981\u907f\u514d\u5355\u6570\u7684\u4efb\u52a1\u5bf9\u8c61\uff08\u539f\u56e0\u5728\u540e\u6587\u89e3\u91ca\uff09\uff0c\u6240\u4ee5\u5373\u4f7f\u53ea\u6709\u4e00\u4e2a\u8be5\u7c7b\u578b\u7684\u5bf9\u8c61\u65f6\uff0c\u4e5f\u5e94\u5f15\u5165\u4efb\u52a1\u7c7b\u578b\u3002\u4e0b\u9762\u662f\u4f7f\u7528\u4e86\u4e00\u4e2a\u8c61 _Type \u8fd9\u6837\u7684\u7b80\u5355\u540e\u7f00\u4e4b\u540e\u4fbf\u4ee4\u4eba\u6ee1\u610f\u7684\u4f8b\u5b50\uff1a<\/p>\ntask type Listener_Type is ...\r\nfor Listener_Type'Storage_Size use ...\r\nListener : Listener_Type;<\/pre>\n
\u7c7b\u4f3c\u5730\uff0c\u5f53\u7c7b\u578b\u540d\u91c7\u7528\u540d\u8bcd\uff08\u6216\u8005\u540d\u8bcd\u77ed\u8bed\uff09\u5b58\u5728\u51b2\u7a81\u65f6\uff0c\u6216\u8005\u51e0\u5904\u7684\u5bf9\u8c61\u540d\u6216\u53c2\u6570\u540d\u6709\u51b2\u7a81\u65f6\uff0c\u5728\u8be5\u7c7b\u578b\u540d\u540e\u52a0\u4e0a\u540e\u7f00 _Kind\uff0c\u800c\u8ba9\u5bf9\u8c61\u4f7f\u7528\uff08\u65e0\u540e\u7f00\u7684\uff09\u7b80\u5355\u540d\u8bcd\uff1a<\/p>\ntype Status_Kind is (None, Normal, Urgent, Red);\r\nStatus : Status_Kind := None;<\/pre>\n
\u6216\u8005\uff0c\u5bf9\u4e8e\u603b\u4ee5\u590d\u6570\u51fa\u73b0\u7684\u4e8b\u7269\u7684\u7c7b\u578b\uff0c\u91c7\u7528\u590d\u6570\u5f62\u5f0f\u3002<\/p>\n\u56e0\u4e3a\u5b58\u53d6\u7c7b\u578b\u5b58\u5728\u56fa\u6709\u7684\u5371\u5bb3\uff0c\u6240\u4ee5\u4f7f\u7528\u8005\u5e94\u5c0f\u5fc3\u3002\u4e00\u822c\u5b83\u4eec\u53eb\u505a Pointer\u3002\u5982\u679c\u540d\u5b57\u672c\u8eab\u610f\u4e49\u8fd8\u5f88\u6478\u68f1\u4e24\u53ef\uff0c\u5219\u5e94\u52a0\u4e0a\u540e\u7f00 _pointer\u3002\u4f5c\u4e3a\u540e\u5907\u65b9\u6848\uff0c\u4e5f\u53ef\u91c7\u7528 _Access \u505a\u540e\u7f00\u3002<\/p>\n\u6709\u65f6\u91c7\u7528\u5d4c\u5957\u5b50\u7a0b\u5e8f\u5305\u6765\u5f15\u5165\u6b21\u7ea7\u62bd\u8c61\u53ef\u4ee5\u7b80\u5316\u547d\u540d\uff1a<\/p>\npackage Subscriber is ...\r\npackage Status is\r\ntype Kind is (Ok, Deleted, Incomplete, Suspended, \r\nPrivileged);\r\nfunction Set (The_Status : Subscriber.Status.Kind;\r\nTo_Subscriber : Subscriber.Handle);\r\nend Status;\r\n ...<\/pre>\n
<\/a>\u5f02\u5e38<\/h2>\n
\u56e0\u4e3a\u5f02\u5e38\u53ea\u80fd\u7528\u6765\u5904\u7406\u9519\u8bef\uff0c\u6240\u4ee5\u5e94\u4f7f\u7528\u540d\u8bcd\u6216\u540d\u8bcd\u77ed\u8bed\u6765\u6e05\u695a\u8868\u8fbe\u4e00\u4e2a\u8d1f\u9762\u7684\u610f\u4e49\uff1a<\/p>\nOverflow, Threshold_Exceeded, Bad_Initial_Value<\/pre>\n
\u91c7\u7528 Bad\uff0cIncomplete\uff0cInvalid\uff0cWrong\uff0cMissing \u6216\u8005 Illegal \u4e2d\u7684\u4e00\u4e2a\u5355\u8bcd\u4f5c\u4e3a\u540d\u5b57\u7684\u4e00\u90e8\u5206\uff0c\u800c\u4e0d\u662f\u7cfb\u7edf\u5730\u91c7\u7528\u4e0d\u4f20\u8fbe\u4efb\u4f55\u8be6\u7ec6\u4fe1\u606f\u7684 Error\uff1a<\/p>\nIllegal_Data, Incomplete_Data<\/pre>\n
<\/a>\u5b50\u7a0b\u5e8f<\/h2>\n
\u8fc7\u7a0b\uff08\u548c\u4efb\u52a1\u5165\u53e3\uff09\u91c7\u7528\u52a8\u8bcd\u3002\u51fd\u6570\u540d\u91c7\u7528\u5e26\u6709\u5bf9\u8c61\u7c7b\u5c5e\u6027\u6216\u7279\u5f81\u7684\u540d\u8bcd\u3002\u8fd4\u56de\u5e03\u5c14\u503c\uff08\u8c13\u8bcd\uff09\u7684\u51fd\u6570\u4f7f\u7528\u5f62\u5bb9\u8bcd\uff08\u6216\u8fc7\u53bb\u5206\u8bcd\uff09\u3002<\/p>\nSubscriber.Create\r\nSubscriber.Destroy\r\nSubscriber.List.Append\r\nSubscriber.First_Name -- Returns a string.\r\nSubscriber.Creation_Date -- Returns a date.\r\nSubscriber.List.Next\r\nSubscriber.Deleted -- Returns a Boolean.\r\nSubscriber.Unavailable -- Returns a Boolean.\r\nSubscriber.Remote<\/pre>\n
\u5bf9\u4e8e\u8c13\u8bcd\uff0c\u5728\u4e00\u4e9b\u60c5\u51b5\u4e0b\u7ed9\u540d\u8bcd\u524d\u9762\u52a0\u4e0a\u524d\u7f00 Is_ \u6216 Has_ \u6216\u8bb8\u6709\u5e2e\u52a9\uff1b\u65f6\u6001\u8981\u51c6\u786e\u548c\u4e00\u81f4\uff1a<\/p>\nfunction Has_First_Name ...\r\nfunction Is_Administrator ...\r\nfunction Is_First...\r\nfunction Was_Deleted ...<\/pre>\n
Create\r\nDelete\r\nDestroy\r\nInitialize\r\nAppend\r\nRevert\r\nCommit\r\nShow, Display<\/pre>\n
\u8c13\u8bcd\u51fd\u6570\u548c\u5e03\u5c14\u578b\u7684\u53c2\u6570\u91c7\u7528\u80af\u5b9a\u5f0f\u3002\u5426\u5b9a\u5f0f\u7684\u540d\u5b57\u53ef\u80fd\u4ea7\u751f\u53cc\u91cd\u5426\u5b9a\uff08\u4f8b\u5982 Not Is_Not_Found\uff09\uff0c\u4ece\u800c\u4f7f\u4ee3\u7801\u96be\u8bfb\u3002<\/p>\nfunction Is_Not_Valid (...) return Boolean\r\nprocedure Find_Client (With_The_Name : in Name;\r\nNot_Found : out Boolean)<\/pre>\n
function Is_Valid (...) return Boolean;\r\nprocedure Find_Client (With_The_Name: in Name;\r\nFound: out Boolean)<\/pre>\n
if not Is_Valid (...) then ....<\/pre>\n
\u5f53\u8574\u6db5\u7740\u5927\u81f4\u76f8\u540c\u7684\u610f\u4e49\u65f6\uff0c\u91c7\u7528\u76f8\u540c\u7684\u5355\u8bcd\uff0c\u800c\u4e0d\u662f\u5bfb\u627e\u540c\u4e49\u8bcd\u6216\u53d8\u4f53\u3002\u56e0\u6b64\uff0c\u9f13\u52b1\u4f7f\u7528\u91cd\u8f7d\u6765\u63d0\u9ad8\u4ee3\u7801\u7684\u4e00\u81f4\u6027\uff0c\u9075\u5faa\u6700\u5c0f\u9650\u5ea6\u610f\u5916\u539f\u5219\u3002<\/p>\n\u82e5\u5b50\u7a0b\u5e8f\u88ab\u7528\u505a\u5165\u53e3\u8c03\u7528\u7684\u201c\u5916\u8868\u201d (skins) \u6216\u8005\u201c\u5305\u88c5\u201d (wrappers)\uff0c\u5219\u7ed9\u5176\u540d\u5b57\u52a8\u8bcd\u52a0\u4e0a\u540e\u7f00 _Or_Wait\uff0c\u6216\u8005\u7ed9\u51fd\u6570\u53d6\u4e2a Wait_For_ \u77ed\u8bed\u52a0\u540d\u8bcd\u7684\u540d\u5b57\u6765\u53cd\u6620\u8fd9\u4e00\u70b9\uff0c\u8fd9\u6837\u53ef\u80fd\u6709\u7528\uff1a<\/p>\nSubscriber.Get_Reply_Or_Wait\r\nSubscriber.Wait_For_Reply<\/pre>\n
\u5bf9\u4e8e\u8f6c\u6362\u5230\u5b57\u4e32\u548c\u4ece\u5b57\u4e32\u8f6c\u6362\u6765\u7684\u7c7b\u578b\u53d8\u6362\uff0c\u5bf9\u79f0\u51fd\u6570\u662f\uff1a<\/p>\n function Image and function Value<\/pre>\n
\u5bf9\u4e8e\u8f6c\u6362\u5230\u4f4e\u7ea7\u8868\u793a\u6cd5\uff08\u5982\u7528\u4e8e\u6570\u636e\u4ea4\u6362\u7684 Byte_String\uff09\u548c\u4ece\u4f4e\u7ea7\u8868\u793a\u6cd5\u8f6c\u6362\u8fc7\u6765\u7684\u7c7b\u578b\u53d8\u6362\uff0c\u5bf9\u79f0\u8fc7\u7a0b\u662f\uff1a<\/p>\n procedure Read and Write<\/pre>\n
\u5bf9\u4e8e\u5206\u914d\u6570\u636e\uff1a<\/p>\n function Allocate (rather than Create)\r\nfunction Destroy (or Release, to express that the object will disappear)<\/pre>\n
\u5bf9\u4e8e\u6d3b\u52a8\u7684\u8fed\u4ee3\u7a0b\u5e8f\uff0c\u5fc5\u987b\u5b9a\u4e49\u4ee5\u4e0b\u539f\u8bed\uff1a<\/p>\nInitialize\r\nNext\r\nIs_Done\r\nValue_Of<\/pre>\n
Reset<\/code>\u3002\u82e5\u8981\u5728\u76f8\u540c\u7684\u4f5c\u7528\u57df\u8303\u56f4\u5185\u5f15\u5165\u51e0\u4e2a\u8fed\u4ee3\u7c7b\u578b\uff0c\u90a3\u4e48\u5e94\u91cd\u8f7d\u8fd9\u4e9b\u539f\u8bed\uff0c\u800c\u4e0d\u662f\u4e3a\u6bcf\u4e2a\u8fed\u4ee3\u7a0b\u5e8f\u5206\u522b\u5f15\u5165\u4e00\u5957\u5404\u4e0d\u76f8\u540c\u7684\u6807\u8bc6\u7b26\u3002\u53c2\u89c1 [BOO87]<\/a>\u3002<\/p>\n\u5f53\u91c7\u7528 Ada \u9884\u786e\u5b9a\u5c5e\u6027\u4f5c\u4e3a\u51fd\u6570\u540d\u65f6\uff0c\u8981\u4fdd\u8bc1\u5176\u7528\u6cd5\u4e0e\u4e00\u822c\u7684\u8bed\u4e49\u76f8\u540c\uff1a’First\uff0c’Last\uff0c’Length\uff0c’Image\uff0c’Value\uff0c\u7b49\u7b49\u3002 \u6ce8\u610f\uff0c\u51e0\u4e2a\u5c5e\u6027\uff08\u5982 ‘Range \u548c ‘Delta\uff09\u662f\u4e0d\u80fd\u7528\u505a\u51fd\u6570\u540d\u7684\uff0c\u56e0\u4e3a\u5b83\u4eec\u662f\u4fdd\u7559\u5b57\u3002<\/p>\n<\/a>\u5bf9\u8c61\u548c\u5b50\u7a0b\u5e8f\uff08\u6216\u5165\u53e3\uff09\u53c2\u6570<\/h2>\n
\u4e3a\u8868\u660e\u5176\u552f\u4e00\u6027\u6216\u662f\u8868\u660e\u8be5\u5b9e\u4f53\u662f\u6d3b\u52a8\u7684\u4e3b\u8981\u805a\u96c6\u5904\uff0c\u5728\u5bf9\u8c61\u6216\u53c2\u6570\u540d\u79f0\u524d\u52a0\u524d\u7f00\u201cThe\u201d\u6216\u201cThis\u201d\u3002\u8981\u8bf4\u660e\u4e00\u4e2a\u6b21\u8981\u3001\u4e34\u65f6\u3001\u8f85\u52a9\u7684\u5bf9\u8c61\uff0c\u5219\u52a0\u524d\u7f00\u201cA_\u201d\u6216\u201cCurrent_\u201d\uff1a<\/p>\nprocedure Change_Name (The_Subscriber : in Subscriber.Handle;\r\nThe_Name : in Subscriber.Name );\r\ndeclare\r\nA_Subscriber : Subscriber.Handle := Subscriber.First;\r\nbegin\r\n ...\r\nA_Subscriber := Subscriber.Next (The_Subscriber);\r\nend;<\/pre>\n
\u5bf9\u4e8e\u5e03\u5c14\u578b\u7684\u5bf9\u8c61\uff0c\u91c7\u7528\u80af\u5b9a\u5f0f\u7684\u8c13\u8bcd\u5b50\u53e5\uff1a<\/p>\nFound_It\r\nIs_Available<\/pre>\n
Is_Not_Available<\/code> \u5fc5\u987b\u907f\u514d\u3002<\/p>\n\u5bf9\u4e8e\u4efb\u52a1\u5bf9\u8c61\uff0c\u5e94\u91c7\u7528\u4e00\u4e2a\u8574\u6db5\u4e86\u6d3b\u52a8\u5b9e\u4f53\u7684\u540d\u8bcd\u6216\u8005\u540d\u8bcd\u77ed\u8bed\uff1a<\/p>\nListener\r\nResource_Manager\r\nTerminal_Driver<\/pre>\n