{"id":1636,"date":"2013-01-25T00:27:44","date_gmt":"2013-01-24T15:27:44","guid":{"rendered":"http:\/\/www.techscore.com\/blog\/?p=1636"},"modified":"2018-11-14T16:33:56","modified_gmt":"2018-11-14T07:33:56","slug":"c%e8%a8%80%e8%aa%9e%e3%81%8b%e3%82%89gauche%e3%82%92%e4%bd%bf%e3%81%8a%e3%81%86%ef%bc%81-6-scm_apply%e3%81%a7%e6%89%8b%e7%b6%9a%e3%81%8d%e3%82%92%e5%91%bc%e3%81%b3%e5%87%ba%e3%81%99","status":"publish","type":"post","link":"https:\/\/www.techscore.com\/blog\/2013\/01\/25\/c%e8%a8%80%e8%aa%9e%e3%81%8b%e3%82%89gauche%e3%82%92%e4%bd%bf%e3%81%8a%e3%81%86%ef%bc%81-6-scm_apply%e3%81%a7%e6%89%8b%e7%b6%9a%e3%81%8d%e3%82%92%e5%91%bc%e3%81%b3%e5%87%ba%e3%81%99\/","title":{"rendered":"C\u8a00\u8a9e\u304b\u3089Gauche\u3092\u4f7f\u304a\u3046\uff01 (6) Scm_Apply\u3067\u624b\u7d9a\u304d\u3092\u547c\u3073\u51fa\u3059"},"content":{"rendered":"<p>\u3053\u3093\u306b\u3061\u306f\u3001\u9234\u6728\u3067\u3059\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>\u300cC\u8a00\u8a9e\u304b\u3089Gauche\u3092\u4f7f\u304a\u3046\uff01\u300d\u30b7\u30ea\u30fc\u30ba\u3067\u3059\u3002<\/p>\n<p>\u524d\u56de\u306e\u300c<a title=\"C\u8a00\u8a9e\u304b\u3089Gauche\u3092\u4f7f\u304a\u3046\uff01 (5) Scm_Eval\u3067eval\u3059\u308b\" href=\"http:\/\/www.techscore.com\/blog\/2013\/01\/23\/c%e8%a8%80%e8%aa%9e%e3%81%8b%e3%82%89gauche%e3%82%92%e4%bd%bf%e3%81%8a%e3%81%86%ef%bc%81-5-scm_eval%e3%81%a7eval%e3%81%99%e3%82%8b\/\">C\u8a00\u8a9e\u304b\u3089Gauche\u3092\u4f7f\u304a\u3046\uff01 (5) Scm_Eval\u3067eval\u3059\u308b<\/a>\u300d\u3067\u306f eval \u3059\u308b\u65b9\u6cd5\u3092\u8abf\u3079\u307e\u3057\u305f\u3002<\/p>\n<p>\u4eca\u56de\u306f Scheme \u306e apply \u624b\u7d9a\u304d\u76f8\u5f53\u306e\u51e6\u7406\u3092\u884c\u3046\u65b9\u6cd5\u3092\u8abf\u3079\u307e\u3059\u3002<\/p>\n<p>&nbsp;<\/p>\n<h2>Scm_Apply \u95a2\u6570<\/h2>\n<p>\u4ee5\u4e0b\u306e Scheme \u30d7\u30ed\u30b0\u30e9\u30e0\u306b\u76f8\u5f53\u3059\u308b\u51e6\u7406\u3092\u884c\u306a\u3044\u305f\u3044\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n<pre class=\"lang:scheme decode:true\">(define square (lambda (x) (* x x)))\r\n(apply square '(10))<\/pre>\n<p>\u30b5\u30f3\u30d7\u30eb\u30b3\u30fc\u30c9\u3067\u3059\u3002<\/p>\n<pre class=\"lang:c decode:true \">#include &lt;stdio.h&gt;\r\n#include &lt;gauche.h&gt;\r\n\r\nint main()\r\n{\r\n    ScmObj procedure;\r\n    ScmEvalPacket eval_packet;\r\n\r\n    GC_INIT();\r\n    Scm_Init(GAUCHE_SIGNATURE);\r\n\r\n    \/* (1) \u5024\u3092 2 \u4e57\u3059\u308b\u624b\u7d9a\u304d square \u3092\u5b9a\u7fa9. *\/\r\n    Scm_EvalCString(\"(define square (lambda (x) (* x x)))\",\r\n                    SCM_OBJ(Scm_UserModule()),\r\n                    &amp;eval_packet);\r\n\r\n    \/* (2) \u5b9a\u7fa9\u3057\u305f square \u3092\u53d6\u5f97. *\/\r\n    procedure = Scm_GlobalVariableRef(Scm_UserModule(),\r\n                                      SCM_SYMBOL(SCM_INTERN(\"square\")),\r\n                                      SCM_BINDING_STAY_IN_MODULE);\r\n\r\n    \/* (3) (apply square '(10)) *\/\r\n    if(Scm_Apply(procedure, SCM_LIST1(SCM_MAKE_INT(10)), &amp;eval_packet) &lt; 0) {\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 printf(\"[%s] %s\\n\",\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 SCM_STRING_CONST_CSTRING(Scm_ConditionTypeName(eval_packet.exception)),\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 SCM_STRING_CONST_CSTRING(Scm_ConditionMessage(eval_packet.exception)));\r\n    } else {\r\n        \/* (4) \u7d50\u679c\u3092\u8868\u793a. *\/\r\n        printf(\"%ld\\n\", SCM_INT_VALUE(eval_packet.results[0]));\r\n    }\r\n\r\n    return 0;\r\n}<\/pre>\n<p>\u51e6\u7406\u3054\u3068\u306b\u30b3\u30e1\u30f3\u30c8\u3092\u4ed8\u3051\u307e\u3057\u305f\u3002<\/p>\n<p>(1) \u3067\u306f\u3001\u524d\u56de\u307e\u3067\u306b\u767b\u5834\u3057\u305f Scm_EvalCString \u3092\u7528\u3044\u3066\u3001\u5024\u3092 2 \u4e57\u3059\u308b square \u3068\u3044\u3046\u624b\u7d9a\u304d\u3092\u5b9a\u7fa9\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n<p>(2) \u306f\u521d\u3081\u3066\u306e\u95a2\u6570 Scm_GlobalVariableRef \u304c\u767b\u5834\u3057\u307e\u3057\u305f\u3002\u3053\u306e\u95a2\u6570\u306f\u3001\u540d\u524d\u304b\u3089\u3057\u3066\u30b0\u30ed\u30fc\u30d0\u30eb\u5909\u6570\u306e\u53c2\u7167\u3092\u53d6\u5f97\u3059\u308b\u3082\u306e\u306e\u3088\u3046\u3067\u3059\u3002<\/p>\n<p>(3) \u3067\u306f Scm_Apply \u95a2\u6570\u3092\u7528\u3044\u3066\u300c(apply square '(10))\u300d\u76f8\u5f53\u306e\u51e6\u7406\u3092\u884c\u306a\u3063\u3066\u3044\u307e\u3059\u3002\u30a8\u30e9\u30fc\u30cf\u30f3\u30c9\u30ea\u30f3\u30b0\u306f Scm_Eval \u306a\u3069\u3068\u540c\u69d8\u3067\u3059\u3002<\/p>\n<p>(4) \u3067\u306f\u7d50\u679c\u3092\u53d6\u5f97\u3057\u3066\u3001\u8868\u793a\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n<p>\u305d\u308c\u3067\u306f\u5b9f\u884c\u3057\u3066\u307f\u307e\u3057\u3087\u3046\u3002\uff08\u203b\u300c<a title=\"C\u8a00\u8a9e\u304b\u3089Gauche\u3092\u4f7f\u304a\u3046\uff01 (1) \u30b3\u30f3\u30d1\u30a4\u30eb\u74b0\u5883\u3092\u6574\u3048\u308b\" href=\"http:\/\/www.techscore.com\/blog\/2013\/01\/15\/c%e8%a8%80%e8%aa%9e%e3%81%8b%e3%82%89gauche%e3%82%92%e4%bd%bf%e3%81%8a%e3%81%86%ef%bc%81-1-%e3%82%b3%e3%83%b3%e3%83%91%e3%82%a4%e3%83%ab%e7%92%b0%e5%a2%83%e3%82%92%e6%95%b4%e3%81%88%e3%82%8b\/\">C\u8a00\u8a9e\u304b\u3089Gauche\u3092\u4f7f\u304a\u3046\uff01 (1) \u30b3\u30f3\u30d1\u30a4\u30eb\u74b0\u5883\u3092\u6574\u3048\u308b<\/a>\u300d\u3067\u4f5c\u6210\u3057\u305f Makefile \u3092\u4f7f\u7528\u3057\u307e\u3059\uff09<\/p>\n<pre class=\"lang:sh decode:true\">&gt; make run\r\n100<\/pre>\n<p>\u671f\u5f85\u901a\u308a\u300c100\u300d\u3068\u3044\u3046\u7d50\u679c\u304c\u5f97\u3089\u308c\u307e\u3057\u305f\u3002<\/p>\n<p>&nbsp;<\/p>\n<h2>\u307e\u3068\u3081<\/h2>\n<p>\u4eca\u56de\u306e\u30dd\u30a4\u30f3\u30c8\u306f\u3001Scm_Apply \u306e\u7b2c\u4e00\u5f15\u6570\u306b\u306f\u30b7\u30f3\u30dc\u30eb\u3067\u306f\u306a\u304f Scm_GlobalVariableRef \u3067\u53d6\u5f97\u3057\u305f\u53c2\u7167\u3092\u6e21\u3059\u70b9\u3067\u3057\u3087\u3046\u304b\u3002<\/p>\n<p>\u6b21\u56de\u306f\u3044\u3088\u3044\u3088\u3001Scheme \u30d7\u30ed\u30b0\u30e9\u30e0\u3092 load \u3059\u308b\u65b9\u6cd5\u3092\u8abf\u3079\u3088\u3046\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n<p>&nbsp;<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u3053\u3093\u306b\u3061\u306f\u3001\u9234\u6728\u3067\u3059\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>\u300cC\u8a00\u8a9e\u304b\u3089Gauche\u3092\u4f7f\u304a\u3046\uff01\u300d\u30b7\u30ea\u30fc\u30ba\u3067\u3059\u3002<\/p>\n<p>\u524d\u56de\u306e\u300cC\u8a00\u8a9e\u304b\u3089Gauche\u3092\u4f7f\u304a\u3046\uff01 (5) Scm_Eval\u3067eval\u3059\u308b\u300d\u3067\u306f eval \u3059\u308b\u65b9\u6cd5\u3092\u8abf\u3079\u307e\u3057\u305f\u3002<br \/><a href=\"https:\/\/www.techscore.com\/blog\/2013\/01\/25\/c%e8%a8%80%e8%aa%9e%e3%81%8b%e3%82%89gauche%e3%82%92%e4%bd%bf%e3%81%8a%e3%81%86%ef%bc%81-6-scm_apply%e3%81%a7%e6%89%8b%e7%b6%9a%e3%81%8d%e3%82%92%e5%91%bc%e3%81%b3%e5%87%ba%e3%81%99\/\">\u7d9a\u304d\u3092\u8aad\u3080...<\/a><\/p>\n","protected":false},"author":4,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[85,18],"tags":[79,78,77],"_links":{"self":[{"href":"https:\/\/www.techscore.com\/blog\/wp-json\/wp\/v2\/posts\/1636"}],"collection":[{"href":"https:\/\/www.techscore.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.techscore.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.techscore.com\/blog\/wp-json\/wp\/v2\/users\/4"}],"replies":[{"embeddable":true,"href":"https:\/\/www.techscore.com\/blog\/wp-json\/wp\/v2\/comments?post=1636"}],"version-history":[{"count":1,"href":"https:\/\/www.techscore.com\/blog\/wp-json\/wp\/v2\/posts\/1636\/revisions"}],"predecessor-version":[{"id":17969,"href":"https:\/\/www.techscore.com\/blog\/wp-json\/wp\/v2\/posts\/1636\/revisions\/17969"}],"wp:attachment":[{"href":"https:\/\/www.techscore.com\/blog\/wp-json\/wp\/v2\/media?parent=1636"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.techscore.com\/blog\/wp-json\/wp\/v2\/categories?post=1636"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.techscore.com\/blog\/wp-json\/wp\/v2\/tags?post=1636"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}