{"id":546,"date":"2019-05-15T08:41:13","date_gmt":"2019-05-15T00:41:13","guid":{"rendered":"http:\/\/www.hefeiyu.com\/?p=546"},"modified":"2019-05-15T08:41:13","modified_gmt":"2019-05-15T00:41:13","slug":"bdl-fgl_base%e5%9f%ba%e6%9c%ac%e8%af%ad%e6%b3%95base-application","status":"publish","type":"post","link":"https:\/\/www.hefeiyu.com\/?p=546","title":{"rendered":"BDL-FGL_BASE\u57fa\u672c\u8bed\u6cd5(base.Application)"},"content":{"rendered":"<pre class=\"pure-highlightjs\"><code class=\"null\">base.Application \u63d0\u4f9b\u63a5\u53e3\u5f97\u5230\u7a0b\u5e8f\u53c2\u6570\u4fe1\u606f\r\n\r\n \r\n\r\n\u65b9\u6cd5\uff1a\r\n\r\n\u7c7b\u65b9\u6cd5\r\n\r\ngetArgumentCount() RETURNING INTEGER               \u8fd4\u56de\u4f20\u7ed9\u7a0b\u5e8f\u53c2\u6570\u7684\u4e2a\u6570\r\n\r\ngetArgument(position INTEGER) RETURNING STRING     \u8fd4\u56de\u4f20\u7ed9\u7a0b\u5e8f\u6307\u5b9aposition\u4f4d\u7f6e\u503c\u53c2\u6570\u7684\u503c,position\u4ece1\u5f00\u59cb\u8ba1\u6570\r\n\r\ngetProgramName() RETURNING STRING                  \u8fd4\u56de\u7a0b\u5e8f\u540d\r\n\r\ngetProgramDir() RETURNING STRING                   \u8fd4\u56de\u7a0b\u5e8f\u6587\u672c\u6240\u5728\u4f4d\u7f6e\r\n\r\ngetFglDir() RETURNING STRING                       \u8fd4\u56de\u7cfb\u7edf\u8fd0\u884c\u65f6\u73af\u5883\u8def\u5f84,\u5373FGLDIR\r\n\r\ngetResourceEnter(name STRING) RETURNING STRING     \u8fd4\u56deFGLPROFILE\u6307\u5b9aname\u540d\u79f0\u7684\u53c2\u6570\u7684\u503c\r\n\r\ngetStackTrace() RETURNING STRING                   \u8fd4\u56de\u5f53\u524d\u7a0b\u5e8f\u5806\u6808\u4fe1\u606f\r\n\r\n \r\n\r\n\u4f7f\u7528\u6b65\u9aa4\uff1a\r\n\r\n\u4e0d\u9700\u8981\u5148\u521b\u5efa\u5bf9\u8c61\uff0c\u76f4\u63a5\u8c03\u7528\u8be5\u7c7b\u7684\u65b9\u6cd5\r\n\r\n \r\n\r\n\u793a\u4f8b\uff1a\r\n\r\nview plaincopy to clipboardprint?\r\n#base.Application.4gl      \r\nMAIN     \r\n   DEFINE l_index     INTEGER  \r\n        \r\n   #WHENEVER ERROR CALL \u540e\u9762\u63a5\u7684\u51fd\u6570\u4e0d\u80fd\u5e26\u62ec\u53f7   \r\n   WHENEVER ERROR CALL my_handler  \r\n     \r\n   #\u53d6\u5f97FGLDIR\u7684\u6240\u5728\u8def\u5f84\uff0c\u7cfb\u7edf\u73af\u5883\u53d8\u91cf$FGLDIR  (linux\u547d\u4ee4\uff1aecho $FGLDIR)    \r\n   DISPLAY \"FglDir:\",base.Application.getFglDir()   \r\n     \r\n   #\u53d6\u5f97$FGLPROFILE\u4e2d\u7684\u914d\u7f6e\u9879\uff1aex \u5173\u4e8e\u6570\u636e\u5e93\u9a71\u52a8\u6587\u4ef6\u7684\u914d\u7f6e\u9879dbi.default.driver\u7684\u503c     \r\n   DISPLAY \"FGLPROFILE dbi.default.driver:\",base.Application.getResourceEntry(\"dbi.default.driver\")   \r\n     \r\n   #\u53d6\u5f97\u5f53\u524d\u6267\u884c\u7a0b\u5e8f\u6240\u5728\u8def\u5f84     \r\n   DISPLAY \"ProgramDir:\",base.Application.getProgramDir()  \r\n     \r\n   #\u53d6\u5f97\u5f53\u524d\u6267\u884c\u7a0b\u5e8f\u6587\u4ef6\u540d\uff08\u4e0d\u542b\u540e\u7f00\uff09      \r\n   DISPLAY \"ProgramName:\",base.Application.getProgramName()   \r\n     \r\n   #\u53d6\u5f97\u5f53\u524d\u6267\u884c\u7a0b\u5e8f\u7684\u53c2\u6570\u4e2a\u6570     \r\n   DISPLAY \"ArgumentCount:\",base.Application.getArgumentCount()      \r\n   FOR l_index=1 TO base.Application.getArgumentCount() STEP + 1   \r\n     #\u53d6\u6bcf\u4e00\u4e2a\u53c2\u6570\u503c   \r\n     DISPLAY \"arg\",l_index USING \"##\",\":\",base.Application.getArgument(l_index)     \r\n   END FOR      \r\nEND MAIN     \r\n     \r\nFUNCTION my_handler()     \r\n   DISPLAY \"base.Application.getStackTrace():\"     \r\n   DISPLAY base.Application.getStackTrace()     \r\nEND FUNCTION  \r\n#base.Application.4gl   \r\nMAIN   \r\n   DEFINE l_index     INTEGER\r\n      \r\n   #WHENEVER ERROR CALL \u540e\u9762\u63a5\u7684\u51fd\u6570\u4e0d\u80fd\u5e26\u62ec\u53f7\r\n   WHENEVER ERROR CALL my_handler\r\n   \r\n   #\u53d6\u5f97FGLDIR\u7684\u6240\u5728\u8def\u5f84\uff0c\u7cfb\u7edf\u73af\u5883\u53d8\u91cf$FGLDIR  (linux\u547d\u4ee4\uff1aecho $FGLDIR) \r\n   DISPLAY \"FglDir:\",base.Application.getFglDir() \r\n   \r\n   #\u53d6\u5f97$FGLPROFILE\u4e2d\u7684\u914d\u7f6e\u9879\uff1aex \u5173\u4e8e\u6570\u636e\u5e93\u9a71\u52a8\u6587\u4ef6\u7684\u914d\u7f6e\u9879dbi.default.driver\u7684\u503c  \r\n   DISPLAY \"FGLPROFILE dbi.default.driver:\",base.Application.getResourceEntry(\"dbi.default.driver\") \r\n   \r\n   #\u53d6\u5f97\u5f53\u524d\u6267\u884c\u7a0b\u5e8f\u6240\u5728\u8def\u5f84  \r\n   DISPLAY \"ProgramDir:\",base.Application.getProgramDir()\r\n   \r\n   #\u53d6\u5f97\u5f53\u524d\u6267\u884c\u7a0b\u5e8f\u6587\u4ef6\u540d\uff08\u4e0d\u542b\u540e\u7f00\uff09   \r\n   DISPLAY \"ProgramName:\",base.Application.getProgramName() \r\n   \r\n   #\u53d6\u5f97\u5f53\u524d\u6267\u884c\u7a0b\u5e8f\u7684\u53c2\u6570\u4e2a\u6570  \r\n   DISPLAY \"ArgumentCount:\",base.Application.getArgumentCount()    \r\n   FOR l_index=1 TO base.Application.getArgumentCount() STEP + 1 \r\n     #\u53d6\u6bcf\u4e00\u4e2a\u53c2\u6570\u503c\r\n     DISPLAY \"arg\",l_index USING \"##\",\":\",base.Application.getArgument(l_index)   \r\n   END FOR    \r\nEND MAIN   \r\n   \r\nFUNCTION my_handler()   \r\n   DISPLAY \"base.Application.getStackTrace():\"   \r\n   DISPLAY base.Application.getStackTrace()   \r\nEND FUNCTION\r\n\r\n\r\n           \r\n\r\n#\u7ed3\u679c\uff1a   \r\n&lt;topprod:\/u1\/usr\/lee\/4gl\/42m&gt; fglrun 4gl_base.Application.42m lee yihui   \r\nFglDir:\/u1\/genero\/fgl   \r\nFGLPROFILE dbi.default.driver:dbmoraB2x   \r\nProgramDir:\/u1\/usr\/lee\/4gl\/42m\/   \r\nProgramName:4gl_base.Application   \r\nArgumentCount:          2   \r\narg 1:lee   \r\narg 2:yihui \r\n<\/code><\/pre>\n<p>&nbsp;<\/p>\n<p>\u8f6c\u8f7d\u8bf7\u6ce8\u660e\uff1a<a href=\"https:\/\/www.hefeiyu.com\">\u8d6b\u975e\u57df<\/a> &raquo; <a href=\"https:\/\/www.hefeiyu.com\/?p=546\">BDL-FGL_BASE\u57fa\u672c\u8bed\u6cd5(base.Application)<\/a><\/p>","protected":false},"excerpt":{"rendered":"<p>base.Application \u63d0\u4f9b\u63a5\u53e3\u5f97\u5230\u7a0b\u5e8f\u53c2\u6570\u4fe1\u606f \u65b9\u6cd5\uff1a \u7c7b\u65b9\u6cd5 getArgumentCount() RETURNING INTEGER \u8fd4\u56de\u4f20\u7ed9\u7a0b\u5e8f\u53c2\u6570\u7684\u4e2a\u6570 getArgument(position INTEGER) RETURNIN [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[26],"tags":[172,173,75],"class_list":["post-546","post","type-post","status-publish","format-standard","hentry","category-4gl","tag-base","tag-returning","tag-string"],"_links":{"self":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/546","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=546"}],"version-history":[{"count":1,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/546\/revisions"}],"predecessor-version":[{"id":547,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/546\/revisions\/547"}],"wp:attachment":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=546"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=546"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=546"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}