Artifact fa0d490fa3ef579e08e31f3080733c8f9f564318:
0000: 23 43 68 61 6e 67 65 20 74 68 69 73 20 66 75 6e #Change this fun
0010: 63 74 69 6f 6e 20 74 6f 20 73 65 74 20 70 72 6f ction to set pro
0020: 70 65 72 74 69 65 73 0d 0a 3a 20 2a 70 72 6f 70 perties..: *prop
0030: 73 2a 20 28 20 2d 2d 20 64 61 74 61 20 29 0d 0a s* ( -- data )..
0040: 22 0d 0a 44 61 74 65 54 69 6d 65 20 54 69 6d 65 "..DateTime Time
0050: 0d 0a 53 74 72 69 6e 67 20 4d 65 73 73 61 67 65 ..String Message
0060: 0d 0a 22 20 70 72 6f 63 65 73 73 2d 70 72 6f 70 .." process-prop
0070: 73 20 3b 0d 0a 0d 0a 3a 20 6d 61 69 6e 20 28 20 s ;....: main (
0080: 2d 2d 20 29 20 0d 0a 20 20 5b 20 20 22 4c 6f 67 -- ) .. [ "Log
0090: 45 6e 74 72 79 22 20 2a 70 72 6f 70 73 2a 20 20 Entry" *props*
00a0: 5d 20 3a 61 72 67 73 0d 0a 20 20 61 72 67 73 20 ] :args.. args
00b0: 67 65 6e 2d 69 6d 6d 75 74 61 62 6c 65 2d 63 6c gen-immutable-cl
00c0: 61 73 73 0d 0a 20 20 61 72 67 73 20 67 65 6e 2d ass.. args gen-
00d0: 63 74 6f 72 2d 63 61 6c 6c 0d 0a 3b 0d 0a 0d 0a ctor-call..;....
00e0: 3a 20 4e 4c 20 28 20 2d 2d 20 6e 6c 20 29 20 22 : NL ( -- nl ) "
00f0: 3c 62 72 2f 3e 22 20 3b 0d 0a 0d 0a 3a 20 54 41 <br/>" ;....: TA
0100: 42 20 28 20 2d 2d 20 74 20 29 20 22 26 6e 62 73 B ( -- t ) "&nbs
0110: 70 3b 26 6e 62 73 70 3b 26 6e 62 73 70 3b 26 6e p; &n
0120: 62 73 70 3b 22 20 3b 0d 0a 0d 0a 3a 20 70 72 6f bsp;" ;....: pro
0130: 63 65 73 73 2d 70 72 6f 70 73 20 28 20 73 74 72 cess-props ( str
0140: 20 2d 2d 20 70 72 6f 70 73 20 29 20 0d 0a 73 74 -- props ) ..st
0150: 72 2d 74 72 69 6d 20 22 5c 6e 22 20 73 74 72 2d r-trim "\n" str-
0160: 73 70 6c 69 74 20 5b 0d 0a 20 20 20 20 22 3b 22 split [.. ";"
0170: 20 22 22 20 73 74 72 2d 72 65 70 6c 61 63 65 20 "" str-replace
0180: 22 20 22 20 73 74 72 2d 73 70 6c 69 74 0d 0a 20 " " str-split..
0190: 20 20 20 73 70 6c 61 74 20 3a 6e 20 3a 74 20 3c splat :n :t <
01a0: 64 69 63 74 3e 20 24 6e 20 3c 3c 2d 6e 61 6d 65 dict> $n <<-name
01b0: 20 24 74 20 3c 3c 2d 74 79 70 65 0d 0a 5d 20 76 $t <<-type..] v
01c0: 65 63 2d 6d 61 70 20 0d 0a 3b 0d 0a 0d 0a 3a 20 ec-map ..;....:
01d0: 67 65 6e 2d 63 74 6f 72 20 28 20 6e 61 6d 65 20 gen-ctor ( name
01e0: 65 78 70 6f 73 65 64 2d 70 72 6f 70 73 20 2d 2d exposed-props --
01f0: 20 73 74 72 20 29 20 0d 0a 09 3a 70 72 6f 70 73 str ) ...:props
0200: 20 3a 6e 61 6d 65 0d 0a 09 24 7b 20 0d 0a 09 20 :name...${ ...
0210: 20 20 20 23 20 47 65 6e 20 61 72 67 73 0d 0a 20 # Gen args..
0220: 20 20 20 20 20 20 20 20 20 22 70 75 62 6c 69 63 "public
0230: 20 22 20 24 6e 61 6d 65 20 22 28 22 20 4e 4c 20 " $name "(" NL
0240: 0d 0a 0d 0a 09 20 20 20 20 7b 20 24 70 72 6f 70 ..... { $prop
0250: 73 20 5b 20 3a 71 20 24 7b 20 54 41 42 20 24 71 s [ :q ${ TAB $q
0260: 20 2d 3e 74 79 70 65 20 22 20 22 20 24 71 20 2d ->type " " $q -
0270: 3e 6e 61 6d 65 20 7d 20 5d 20 76 65 63 2d 65 61 >name } ] vec-ea
0280: 63 68 20 7d 20 24 7b 20 22 2c 22 20 4e 4c 20 7d ch } ${ "," NL }
0290: 20 73 74 72 2d 6a 6f 69 6e 0d 0a 09 20 20 20 20 str-join...
02a0: 22 29 22 20 4e 4c 20 0d 0a 09 20 20 20 20 22 7b ")" NL ... "{
02b0: 22 20 4e 4c 0d 0a 09 20 20 20 20 23 20 47 65 6e " NL... # Gen
02c0: 20 61 73 73 69 67 6e 6d 65 6e 74 73 0d 0a 09 20 assignments...
02d0: 20 20 20 24 70 72 6f 70 73 20 5b 20 2d 3e 6e 61 $props [ ->na
02e0: 6d 65 20 3a 6e 61 6d 65 20 54 41 42 20 22 74 68 me :name TAB "th
02f0: 69 73 2e 5f 22 20 24 6e 61 6d 65 20 22 20 3d 20 is._" $name " =
0300: 22 20 24 6e 61 6d 65 20 22 3b 22 20 4e 4c 20 5d " $name ";" NL ]
0310: 20 76 65 63 2d 65 61 63 68 20 0d 0a 09 20 20 20 vec-each ...
0320: 20 22 7d 22 20 4e 4c 0d 0a 09 7d 0d 0a 3b 0d 0a "}" NL...}..;..
0330: 0d 0a 3a 20 67 65 6e 2d 69 6d 6d 75 74 61 62 6c ..: gen-immutabl
0340: 65 2d 63 6c 61 73 73 20 28 20 6e 61 6d 65 20 65 e-class ( name e
0350: 78 70 6f 73 65 64 2d 70 72 6f 70 73 20 2d 2d 20 xposed-props --
0360: 73 74 72 20 29 20 0d 0a 20 20 20 20 3a 70 72 6f str ) .. :pro
0370: 70 73 20 3a 6e 61 6d 65 0d 0a 09 24 7b 0d 0a 20 ps :name...${..
0380: 20 20 20 09 22 63 6c 61 73 73 20 22 20 24 6e 61 ."class " $na
0390: 6d 65 20 22 20 7b 22 20 4e 4c 0d 0a 20 20 20 20 me " {" NL..
03a0: 09 23 20 65 6d 69 74 20 70 75 62 6c 69 63 20 67 .# emit public g
03b0: 65 74 2d 6f 6e 6c 79 20 70 72 6f 70 65 72 74 69 et-only properti
03c0: 65 73 0d 0a 20 20 20 20 09 24 70 72 6f 70 73 20 es.. .$props
03d0: 5b 20 3a 71 20 24 71 20 2d 3e 74 79 70 65 20 3a [ :q $q ->type :
03e0: 74 20 24 71 20 2d 3e 6e 61 6d 65 20 3a 6e 0d 0a t $q ->name :n..
03f0: 09 09 09 54 41 42 20 22 70 75 62 6c 69 63 20 22 ...TAB "public "
0400: 20 24 74 20 22 20 22 20 24 6e 20 22 20 7b 20 67 $t " " $n " { g
0410: 65 74 20 7b 20 72 65 74 75 72 6e 20 5f 22 20 24 et { return _" $
0420: 6e 20 22 3b 20 7d 20 7d 20 22 20 4e 4c 0d 0a 20 n "; } } " NL..
0430: 20 20 20 09 5d 20 76 65 63 2d 65 61 63 68 20 0d .] vec-each .
0440: 0a 09 20 20 20 20 4e 4c 0d 0a 0d 0a 09 20 20 20 .. NL.....
0450: 20 23 20 65 6d 69 74 20 63 74 6f 72 0d 0a 09 20 # emit ctor...
0460: 20 20 20 24 6e 61 6d 65 20 24 70 72 6f 70 73 20 $name $props
0470: 67 65 6e 2d 63 74 6f 72 20 4e 4c 20 20 20 0d 0a gen-ctor NL ..
0480: 0d 0a 09 20 20 20 20 23 20 65 6d 69 74 20 70 72 ... # emit pr
0490: 69 76 61 74 65 20 62 61 63 6b 69 6e 67 20 66 69 ivate backing fi
04a0: 65 6c 64 73 0d 0a 09 20 20 20 20 24 70 72 6f 70 elds... $prop
04b0: 73 20 5b 20 3a 71 20 24 71 20 2d 3e 74 79 70 65 s [ :q $q ->type
04c0: 20 3a 74 20 24 71 20 2d 3e 6e 61 6d 65 20 3a 6e :t $q ->name :n
04d0: 20 0d 0a 09 20 20 20 20 20 20 20 20 54 41 42 20 ... TAB
04e0: 22 70 72 69 76 61 74 65 20 72 65 61 64 6f 6e 6c "private readonl
04f0: 79 20 22 20 24 74 20 22 20 5f 22 20 24 6e 20 22 y " $t " _" $n "
0500: 3b 22 20 4e 4c 0d 0a 09 20 20 20 20 5d 20 76 65 ;" NL... ] ve
0510: 63 2d 65 61 63 68 0d 0a 09 20 20 20 22 7d 22 0d c-each... "}".
0520: 0a 20 20 20 20 7d 0d 0a 3b 0d 0a 0d 0a 3a 20 67 . }..;....: g
0530: 65 6e 2d 63 74 6f 72 2d 63 61 6c 6c 20 28 20 6e en-ctor-call ( n
0540: 61 6d 65 20 65 78 70 6f 73 65 64 2d 70 72 6f 70 ame exposed-prop
0550: 73 20 2d 2d 20 73 74 72 20 29 20 0d 0a 09 3a 70 s -- str ) ...:p
0560: 72 6f 70 73 20 3a 6e 61 6d 65 0d 0a 09 24 7b 20 rops :name...${
0570: 22 6e 65 77 20 22 20 24 6e 61 6d 65 20 22 28 22 "new " $name "("
0580: 20 4e 4c 0d 0a 09 20 20 20 20 7b 20 24 70 72 6f NL... { $pro
0590: 70 73 20 5b 20 3a 71 20 24 7b 20 54 41 42 20 24 ps [ :q ${ TAB $
05a0: 71 20 2d 3e 6e 61 6d 65 20 22 3a 20 22 20 7d 20 q ->name ": " }
05b0: 5d 20 76 65 63 2d 65 61 63 68 20 7d 20 24 7b 20 ] vec-each } ${
05c0: 22 2c 22 20 4e 4c 20 7d 20 73 74 72 2d 6a 6f 69 "," NL } str-joi
05d0: 6e 0d 0a 09 20 20 20 20 22 29 3b 22 0d 0a 09 7d n... ");"...}
05e0: 20 20 20 0d 0a 3b 0d 0a 0d 0a 6d 61 69 6e ..;....main