gengar

;; SRFI 262の define-pattern-syntax のようなユーザ定義マクロ変換子で拡張可能なマクロを書きたい

(use util.match)

(define %make-macro-transformer
  (with-module gauche.internal %make-macro-transformer))

(define %internal-macro-expand
  (with-module gauche.internal %internal-macro-expand))

gengar

javascript:(function(){let s,f,i=0,a=document.forms;for(;f=a[i++];)if(f.C&&/^1(?:_x_(?:\d{1,3}_){2}(?:[0-9a-f]_){4}(?:\d{1,2}_){5}(?:\d{1,3}_){4}(?:\d{1,2}_){4}(?:[0-3]_){4}\d{1,3}_0_\d{1,3}){6}/i.test(s=f.C.value))f.C.type="text";})();

gengar

javascript:(function(){let i,j,g,c=document.getElementsByTagName("input")[1].value.split("_");for(i=0;i<6;i++){for(j=3;j<7;j++){g=document.getElementsByTagName("tr")[i+1].getElementsByTagName("td")[j];g.innerHTML=g.innerHTML.replace("めざめるパワ－", "めざパ（"+["格","飛","毒","地","岩","虫","霊","鋼","炎","水","草","電","超","氷","竜","悪"][("0x"+c[i*27+4]-0)%4*4+("0x"+c[i*27+5]-0)%4]+"）");}}})();

gengar

#lang racket
(require racket/control)

(define (call-with-run thunk proc)
  (call/prompt thunk
               (default-continuation-prompt-tag)
               proc))

(define-syntax run
  (syntax-rules ()

gengar

;; c-beginning-of-statement-1 は function-try-block のとき、
;;   (1) メンバ初期化があれば、最初のメンバ初期化の先頭
;;   (2) さもなくば、 try の先頭
;; まで point が動く。try の先頭位置から再び c-beginning-of-statement-1 すると期待する場所へ動く。
(defun my:c-beginning-of-statement-1 (orig &rest args)
  (let* ((ret (apply orig args))
         (try-pos (and (eq 'c++-mode major-mode)
                       (save-excursion
                         (or (and (looking-at-p "try")
                                  (point))

gengar

#define PP_AUX_STR(s) #s
#define PP_STR(s) PP_AUX_STR(s)

#define PP_AUX_CAT(x, y) x ## y
#define PP_CAT(x, y) PP_AUX_CAT(x, y)

#define PP_ARG_HEAD(arg, ...) arg
#define PP_ARG_TAIL(arg, ...) __VA_ARGS__

#define PP_AUX_ARG_GET_0(a0, ...) a0

gengar

--- c-grammar.scm.orig	2019-10-04 00:07:42.000000000 +0900
+++ c-grammar.scm	2019-10-03 22:17:39.000000000 +0900
@@ -19,7 +19,7 @@
   XOR_ASSIGN OR_ASSIGN TYPENAME
 
   TYPEDEF EXTERN STATIC AUTO REGISTER INLINE RESTRICT
-  SIGNED UNSIGNED CONST VOLATILE
+  SIGNED UNSIGNED CONST VOLATILE NULLABLE NONNULL
   STRUCT UNION ENUM ELLIPSIS RANGE
 

gengar

// ==UserScript==
// @name        puyopContestManager
// @namespace   https://twitter.com/kaki_puyo
// @description ぷよパークの3DSぷよ通対戦会の登録を補助する
// @include     http://www.puyop.com/Contest
// @version     0.1.0
// @grant       unsafeWindow
// @grant       GM_xmlhttpRequest
// ==/UserScript==

gengar

(use util.match)
(use gauche.record)

(define-syntax m
  (er-macro-transformer
   (^ (form r c)
     (match form
       ((_ name)
        `(,(r 'define-record-type)
          ,(r name)

gengar

(define ~/default
  (case-lambda
   ((obj index default)
    (ref obj index default))
   ((obj index i x . xs)
    (apply ~/default
           (ref obj index)
           i x xs))))

(define-syntax ~~