The Common Lisp Cookbook - Using the Win32 API
Contents Introduction and Scope Why Use Lisp with Win32? A (Very) Brief Overview of a Win32 Program's Life Windows Character Systems and Lisp FLI - The Foreign Language Interface Translating C Header Files to Lisp FLI Data Types FLI Data Structures FLI Functions Callbacks from Windows to Lisp Starting the Program The Lisp REPL and Win32 Development Making Direct Win32 Calls from CAPI Interfacing t
Common Lisp : cl-win32ole Excel UsedRange
Excel ã«æ›¸ã‹ã‚ŒãŸãƒ†ãƒ¼ãƒ–ル仕様書ã‹ã‚‰ clsql:def-view-class ã§ãƒ†ãƒ¼ãƒ–ルクラスを作りã€clsql-sys:create-view-from-class 㧠Postgresql 上ã«ãƒ†ãƒ¼ãƒ–ルを作æˆã—ã¾ã—ãŸã€‚ Excel ã‹ã‚‰ clsql:def-view-class 定義を作るã®ã«ã¯ã‚‚ã¡ã‚ã‚“ cl-win32ole を使ã„ã¾ã—ãŸã€‚ 最åˆã¯ Excel ã®ã‚»ãƒ«ã‚’1ã¤ãšã¤è¦‹ã¦ã„ã‹ãªã„ã¨ã ã‚ã‹ãªã€ã‚ã‚“ã©ã†ã ãªãã€ã¨æ€ã£ã¦ã„ãŸã®ã§ã™ãŒã€‚ 値ã®å…¥ã£ã¦ã„るセルã®ç¯„囲をå–å¾—ã§ãã‚‹ UsedRange ã¨ã„ã†ä¾¿åˆ©ãªãƒ¡ã‚½ãƒƒãƒ‰ã‚’見ã¤ã‘ã¾ã—ãŸã€‚ ã“ã‚Œã§ã€Excel シート上ã®ãƒ‡ãƒ¼ã‚¿ã‚’一括㧠Lisp ã®ãƒªã‚¹ãƒˆã¨ã—ã¦å–å¾—ã§ãã¾ã™ã€‚ ã‚ã¨ã¯ã€Lisp ã§ã®ãƒªã‚¹ãƒˆæ“作ãªã®ã§æ¥½ã€…ã§ã—ãŸâ™ª UsedRange ã¨ã£ã¦ã‚‚便利ã§ã™ã€‚ (eval-when (:compile-toplevel :load
3ã¤ä»¥ä¸Šã®é›†åˆã®ç›´ç©ã‚’求ã‚るプãƒã‚°ãƒ©ãƒ ãã®ï¼“ - None is None is None
å¯å¤‰å€‹ã®é›†åˆã‹ã‚‰ã€ç›´ç©ã®é›†åˆã‚’作る - ãƒã‚ン煮込ã¿ãƒãƒ¼ã‚ºãƒŸãƒƒã‚¯ã‚¹4è¾› Re: 3ã¤ä»¥ä¸Šã®é›†åˆã®ç›´ç©ã‚’求ã‚るプãƒã‚°ãƒ©ãƒ - ã¡ãªã¿ã« 3ã¤ä»¥ä¸Šã®é›†åˆã®ç›´ç©ã‚’求ã‚るプãƒã‚°ãƒ©ãƒ - よã†ã“ãï¼¼(^o^)ï¼ã‚²ã‚¹ãƒˆã•ã‚“ 3ã¤ä»¥ä¸Šã®é›†åˆã®ç›´ç©ã‚’求ã‚るプãƒã‚°ãƒ©ãƒ - None is None is None 3ã¤ä»¥ä¸Šã®é›†åˆã®ç›´ç©ã‚’求ã‚るプãƒã‚°ãƒ©ãƒ ãã®ï¼’ - None is None is None 昨夜書ã„ãŸãƒãƒ¼ã‚¸ãƒ§ãƒ³ã¯ã€ç„¡é™ã‚·ãƒ¼ã‚±ãƒ³ã‚¹ã®ç›´ç©ã‚’扱ãˆã¾ã›ã‚“。 例ãˆã°ã€ => (product (iterate inc 0) (iterate inc 0)) ((0 0) (0 1) (0 2) (0 3) (0 4) (0 5) (0 6) (0 7) (0 8) (0 9) (0 10) (0 11) (0 12) (0 13) (0 14) (0 15) (0 16) (0 17) (0 18)
3ã¤ä»¥ä¸Šã®é›†åˆã®ç›´ç©ã‚’求ã‚るプãƒã‚°ãƒ©ãƒ - よã†ã“ãï¼¼(^o^)ï¼ã‚²ã‚¹ãƒˆã•ã‚“
を最åˆã¯Rubyã§æ›¸ã始ã‚ãŸã®ã ãŒã€æƒ³åƒã—ã¦ãŸã‚ˆã‚Šã‚‚é¢å€’ãªã“ã¨ã«ãªã‚Šãã†ã ã£ãŸï¼ˆmapã¨ã‹injectã§ã§ãる？å†å¸°ãŒå¿…è¦ï¼Ÿï¼‰ã€‚ ãã‚“ãªã¨ãã€ç ”究室ã®å…ˆè¼©ã«Pythonを勧ã‚られãŸã¨ãã«æ•™ãˆã¦ã‚‚らã£ãŸã€ãƒªã‚¹ãƒˆã®å†…包表記ã®ã“ã¨ã‚’ãµã¨æ€ã„出ã—ãŸã‚ã‘ã§ã‚る。 自分ã¯Python使ã„ã§ã¯ãªã„ã®ã§æ‰‹é–“å–ã‚‹ã‹ã¨æ€ã£ãŸãŒã€ã‹ãªã‚Šã‚ã£ã•ã‚Šã§ãã¦ã—ã¾ã£ãŸã€‚ ã›ã£ã‹ãã ã‹ã‚‰ï¼ˆï¼Ÿï¼‰ã€æœ€è¿‘リリースã—ãŸã°ã‹ã‚Šã‚‰ã—ã„Python 3.0ã§å‹•ãよã†ã«æ›¸ãç›´ã—ã¦ã¿ãŸã€‚ from functools import reduce # ç›´ç©ã‚’求ã‚る関数 def product(lists): return reduce( lambda prod, list: [x + [y] for x in prod for y in list], lists, [[]]) alphabets = ['A', 'B', 'C'] numbe
[Common Lisp]Allegro CLã§OLEオートメーション - t2ru's blog
;; Allegro CL付属ã®OLEパッケージをãƒãƒ¼ãƒ‰ (require :ole) ;; WScript.Shellã®ã‚¯ãƒ©ã‚¤ã‚¢ãƒ³ãƒˆã‚¤ãƒ³ã‚¹ã‚¿ãƒ³ã‚¹ã‚’ä½œæˆ (defvar *obj* (ole:ask-for-autotool "WScript.Shell" ole:clsctx_inproc_server)) ;; メソッド呼ã³å‡ºã— ;; (ole:auto-method <obj> <method-name-string-or-symbol> &rest <params>) (ole:auto-method *obj* :popup "hogehoge!") ;; ã™ã‚‹ã¨ã€ã€Œhogehoge!ã€ã¨ã„ã†ãƒãƒƒãƒ—アップウィンドウãŒå‡ºã¦ãる。 JScriptã‚„VBScriptã¨åŒã˜ã‚ˆã†ã«å‘¼ã³å‡ºã›ãŸã€‚Allegro CL 8.1ã®sample08ã«è¼‰ã£ã¦ã„ã‚‹ã€Excelラッパーã®ä¾‹ã‚’å‚考ã«ã—ãŸã€‚
![[Common Lisp]Allegro CLã§OLEオートメーション - t2ru's blog](https://cdn-ak-scissors.b.st-hatena.com/image/square/2c6d10b1736cef1f3636a7ae40b57c31303e22f2/height=288;version=1;width=512/https%3A%2F%2Fogimage.blog.st-hatena.com%2F11696248318754040300%2F11696248318754040402%2F1369846029)
ã¯ã¦ãªãƒ–ãƒã‚° | 無料ブãƒã‚°ã‚’作æˆã—よã†
サゴシã¨ã‚ã£ãŸã‹ãŠã§ã‚“ 昼網ã®ã‚µã‚´ã‚·ã€‚サワラã®å¹¼éšã§è„‚ãŒã‚ã¾ã‚Šã®ã£ã¦ãŠã‚‰ãšæ·¡ç™½ã§ãŠå®‰ã„å°è±¡ãŒã‚ã‚Šã¾ã™ãŒã€ä»Šå¹´ã¯ä¾‹å¹´ã«ãªã„程ã¨ã¦ã‚‚状態ãŒã„ã„よã†ã§ã™ã€‚ 良ã™ãŽãªã„？（笑） サゴシã®ç‚™ã‚Š 美味ã—ã„è„‚ãŒã˜ã‚“ã‚ã‚Šä¼ã‚ã£ã¦ãã¾ã™ã。サゴシã¨è¨€ã†ã‚ˆã‚Šæ—¬ã®ã‚µãƒ¯ãƒ©ã‚’食ã¹ã¦ã„るよã†ã€‚ サゴシã®â€¦
Ruby ã® strftime ã§æœˆæ—¥ã‚„時刻㮠0 埋ã‚ã‚’è¡Œã‚ãªã„書å¼æŒ‡å®š - ltcmdr927atenablog
Date ã®å„値ã«å¯¾ã—ã¦ã„ã‚ゆるゼãƒåŸ‹ã‚(0埋ã‚)ã‚’è¡Œã„ãŸããªã„å ´åˆã€æ›¸å¼ãƒ‘ラメータã«ãƒžã‚¤ãƒŠã‚¹ã‚’ä»˜åŠ ã™ã‚Œã°ã„ã„。 p Time.now.strftime('%Y/%-m/%-d %-H:%-M:%-S') #=> 2012/8/14 9:4:10リファレンスã ã¨ã“ã“ã«è¼‰ã£ã¦ã„る。
YOUãŸã¡!Rubyã§injectã—ã¡ã‚ƒã„ãªYO!
プãƒã‚°ãƒ©ãƒŸãƒ³ã‚°ã®å˜åœ¨ä¾¡å€¤ã¯å‡¦ç†ã®è‡ªå‹•åŒ–ã§ã™ã€‚ä»»æ„ã®é›†åˆã«å¯¾ã—ã¦å‡¦ç†ã‚’ç¹°ã‚Šè¿”ã—ãã®çµæžœã‚’è¿”ã™ã€ãã‚ŒãŒãƒ—ãƒã‚°ãƒ©ãƒ ã§ã™ã€‚ã¤ã¾ã‚Šé›†åˆã«å¯¾ã—ã¦å‡¦ç†ã‚’ç¹°ã‚Šè¿”ã™èƒ½åŠ›ãŒã€ãƒ—ãƒã‚°ãƒ©ãƒ ã®ä¾¡å€¤ã‚’決定付ã‘ã‚‹ã®ã§ã™1。 「手続ã型言語ã€ã§ã¯ãƒ«ãƒ¼ãƒ—ãŒå‡¦ç†ã®ç¹°ã‚Šè¿”ã—を実ç¾ã™ã‚‹ãŸã‚ã®é‡è¦ãªæ‰‹æ³•ã®ä¸€ã¤ã§ã™ã€‚ã—ã‹ã—ループã¯ã€ä¸€æ™‚変数を用æ„ã—ã¦ãƒ—ãƒã‚°ãƒ©ãƒžãŒãƒ«ãƒ¼ãƒ—ã®é€²è¡Œã‚’管ç†ã—ãªã‘ã‚Œã°ãªã‚‰ãªã„ã€ã¨ã„ã†æ¬ 点ãŒã‚ã‚Šã¾ã™ã€‚ãã—ã¦ãã®ç®¡ç†ãƒŸã‚¹ãŒãƒã‚°ã¨ãªã‚Šã¾ã™ã€‚ 「関数型言語ã€ã§ã¯å†å¸°ãŒå‡¦ç†ã®ç¹°ã‚Šè¿”ã—を実ç¾ã™ã‚‹ãŸã‚ã®é‡è¦ãªæ‰‹æ³•ã®ä¸€ã¤ã§ã™ã€‚å†å¸°ã§ã¯å†å¸°ã®é€²è¡Œã¯ãã®æ§‹é€ ã«åŸºã¥ã„ã¦è‡ªå‹•çš„ã«ãªã•ã‚Œã‚‹ã®ã§ã€ãƒ—ãƒã‚°ãƒ©ãƒžãŒãれを管ç†ã™ã‚‹å¿…è¦ã¯ã‚ã‚Šã¾ã›ã‚“。ã—ã‹ã—ãã®ä¸€æ–¹ã§ã€å‡¦ç†ãŒå¤šæ®µéšŽã«æ¸¡ã‚‹ç«‹ä½“çš„ãªã‚‚ã®ã¨ãªã‚‹ã®ã§ã€ãã®å‹•ä½œã®ç†è§£ãŒå¹³é¢çš„ãªãƒ«ãƒ¼ãƒ—処ç†ã«æ¯”ã¹ã¦é›£ã—ã„ã¨ã„ã†æ¬ 点ãŒã‚ã‚Šã¾ã™ã€‚ç¿’å¾—ã«ã¯æ…£ã‚ŒãŒå¿…è¦ã§ã™ã€‚ Rubyã¯ã€æ‰‹ç¶šã型言語ã¨é–¢æ•°åž‹è¨€èªžã®ä¸¡æ–¹ã®å´
Array#product を使ã£ã¦é…列ã®æ“作を楽ã«ã™ã‚‹ - ãŸãã£ã¦ã¤ã¥ã‚‹
é…列ãŒæ¬¡ã®ã‚ˆã†ã«ä¸Žãˆã‚‰ã‚Œã¦ã„ã‚‹ã¨ãã«ï¼Œ a = %w(a b c d e f g h i j) b = %w(1 2 3 4 5 6 7 8 9 0) å„è¦ç´ ã®ç·å½“ã‚Šã§ã“ã®ã‚ˆã†ãªé…列を作りãŸã„å ´åˆï¼Œ ["a1", "a2", "a3", "a4", "a5", "a6", "a7", "a8", "a9", "a0", "b1", "b2", "b3", "b4", "b5", "b6", "b7", "b8", "b9", "b0", "c1", "c2", "c3", "c4", "c5", "c6", "c7", "c8", "c9", "c0", "d1", "d2", "d3", "d4", "d5", "d6", "d7", "d8", "d9", "d0", "e1", "e2", "e3", "e4", "e5", "e6", "e7", "e8", "e9", "e0",
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
GitHub - fjames86/ftw: Common Lisp Win32 GUI library
xyzzy Lispã‚’ã¡ã‚‡ã£ã¨ä½¿ã†
OLE - xyzzy Note2
oletest.l | searchcode
list method implementation with `inject`
{{#tags}}- {{label}}
{{/tags}}