芝麻web文件管理V1.00
编辑当前文件:/home/conskgoa/doughi.co.uk/base.zip
PK \^}D D pmatch.gonu [ GOOF----LE-8-2.0, ] 4 h3 ] g guile g define-module* g system g base g pmatch g filenameS f system/base/pmatch.scm g exportsS g set-current-module g make-syntax-transformer g macro g $sc-dispatch g any g each-any g syntax-object g let g top g ribcage !g dummy "g e #g cs $!"# %g m-3c4e5dc25-86 &% '& (f l-3c4e5dc25-8b )f l-3c4e5dc25-8c *f l-3c4e5dc25-8d +()* , $'+ - .g x /. 0& 1f l-3c4e5dc25-88 21 3 /02 4 ,-3 5g hygiene 65 7 46 8g v 9 846 :g pmatch1 ; :46 <g syntax-violation =< >< ?f -source expression failed to match any pattern @ Ag if B!8 Cg m-3c4e5dc25-92 DC ED Ff l-3c4e5dc25-97 Gf l-3c4e5dc25-98 HFG I BEH JD Kf l-3c4e5dc25-94 LK M /JL N I-M O AN6 P N6 QOPP Rg free-id Sg else T -M U ST6 VRU WV XW Yg e0 Z!8Y" [D \f l-3c4e5dc25-9c ]f l-3c4e5dc25-9d ^f l-3c4e5dc25-9e _f l-3c4e5dc25-9f `\]^_ a Z[` b a-M c b6 dg guard e dT6 fRe gf hg ih ji kj lk mg pat ng g o!8mnY"# pD qf l-3c4e5dc25-a6 rf l-3c4e5dc25-a7 sf l-3c4e5dc25-a8 tf l-3c4e5dc25-a9 uf l-3c4e5dc25-aa vf l-3c4e5dc25-ab wf l-3c4e5dc25-ac xqrstuvw y opx z y-M { z6 |g fk } |z6 ~g lambda ~z6 :z6 g ppat z6 Az6 g and z6 } !8mY"# D f l-3c4e5dc25-b8 f l-3c4e5dc25-b9 f l-3c4e5dc25-ba f l-3c4e5dc25-bb f l-3c4e5dc25-bc f l-3c4e5dc25-bd -M 6 |6 ~6 :6 6 g _ g m-3c4e5dc25-c6 f l-3c4e5dc25-c8 / - 6 R g kt g kf !8 f l-3c4e5dc25-d4 f l-3c4e5dc25-d5 f l-3c4e5dc25-d6 f l-3c4e5dc25-d7 - A6 g null? 6 g quote 6 R g lit !8 f l-3c4e5dc25-dd f l-3c4e5dc25-de f l-3c4e5dc25-df f l-3c4e5dc25-e0 f l-3c4e5dc25-e1 - A6 g equal? 6 6 g unquote 6 R g var !8 f l-3c4e5dc25-e8 f l-3c4e5dc25-e9 f l-3c4e5dc25-ea f l-3c4e5dc25-eb f l-3c4e5dc25-ec - 6 g y !8. f l-3c4e5dc25-f3 f l-3c4e5dc25-f4 f l-3c4e5dc25-f5 f l-3c4e5dc25-f6 f l-3c4e5dc25-f7 f l-3c4e5dc25-f8 - A6 g pair? 6 6 g vx 6 g car 6 g vy 6 g cdr 6 6 f l-3c4e5dc25-100 f l-3c4e5dc25-101 f l-3c4e5dc25-102 f l-3c4e5dc25-103 f l-3c4e5dc25-104 - A6 g eq? 6 6 C 5hx Z ]4 5 4 > " G 479; h L ] C D g dummy g e g cs C>? h( ] 4 5 $ @ 6 g x " g tmp " g filenamef system/base/pmatch.scm ' " g macro-typeg syntax-rulesg patternsg eg csg ... C5R4:@Q h < ]C 4 g dummy g v CXc h [ ]C S g dummy g v g e0 g e Cl{} h@ ] C g dummy @ g v @ g pat @ g g @ g e0 @ g e @ g cs @ @ C h8 | ] C t g dummy 4 g v 4 g pat 4 g e0 4 g e 4 g cs 4 4 C>? hh q ]!4 5 $ @4 5 $ @4 5 $ @4 5 $ @ 6 i g x g g tmp g g tmp " g g tmp 9 g g tmp P g g filenamef system/base/pmatch.scm + g g macro-typeg syntax-rulesg patternsg v g vg elseg e0g eg ... g vg patg guardg gg ... g e0g eg ... g csg ... g vg patg e0g eg ... g csg ... C5:R4 h \ ]C T g dummy g v g kt g kf C h \ ] C T g dummy g v g kt g kf C h m ] C e g dummy g v g lit g kt g kf C h m ] C e g dummy g v g var g kt g kf C hP z ] C r g dummy I g v I g x I g y I g kt I g kf I I C h m ] C e g dummy g v g lit g kt g kf C>? h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ @ 6 g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp ~ g filenamef system/base/pmatch.scm 8 g macro-typeg syntax-rulesg patternsg vg _g ktg kf g vg ktg kf g vg quoteg lit g ktg kf g vg unquoteg var g ktg kf g vg xg yg ktg kf g vg litg ktg kf C5RC R g m ( g filenamef system/base/pmatch.scm $ s C6 PK \A5M target.gonu [ GOOF----LE-8-2.0 ] i 4 h ] g guile g define-module* g system g base g target g filenameS f system/base/target.scm g importsS g rnrs g bytevectors g ice-9 g regex g exportsS g target-type g with-target g target-cpu g target-vendor g target-os g target-endianness g target-word-size g set-current-module ! "g foreign #" $g sizeof %#$ &#$ 'g * (g %native-word-size )g make-fluid *g %host-type +g %target-type ,g native-endianness -g %target-endianness .g %target-word-size /g string? 0g string-split 1g length 2g or-map 3g string-null? 4g error 5f invalid target 6g validate-target 7g triplet-cpu 8g cpu-endianness 9g triplet-pointer-size :g string=? ;g string-match <f ^i[0-9]86$ =g little >g member ?f x86_64 @f ia64 Af powerpcle Bf powerpc64le Cf mipsel Df mips64el Ef nios2 Ff sh3 Gf sh4 Hf alpha I?@ABCDEFGH Jf sparc Kf sparc64 Lf powerpc Mf powerpc64 Nf spu Of mips Pf mips64 Qf m68k Rf s390x SJKLMNOPQR Tg big Uf ^arm.*el Vf ^arm.*eb Wg string-prefix? Xf arm Yf ^aarch64.*be Zf aarch64 [f unknown CPU endianness \f ^mips64.*-gnuabi64 ]f ^mips64 ^f ^x86_64-.*-gnux32 _f 64$ `f 64_?[lbe][lbe]$ aJLOCEQFG bRH cf ^arm.* df unknown CPU word size eg triplet-os fg substring gg string-index hg triplet-vendorC 5 hH * ]4 5 4! > " G 4&'5(R4)i*i5+R4)i4,i5 5-R4)i(i5.R/012345 hX ]4 5$ 54 -5 45 $ " 45 " $ 6C g target Q g parts > g t " ; g filenamef system/base/target.scm - . . / / 0 " 0 " 0 0 1 C . G . K 2 O 2 Q g nameg validate-target C6R67+-.89 hH ] 4 > " G 4 5 454 5Y4> ZCZF g target A g thunk A g cpu A g filenamef system/base/target.scm 4 5 6 6 & 8 & - 9 % 6 : A g nameg with-target CR:7*,;<=>ISTUVWXYZ4[ h - ]4 455$ 6 4 5$ C4 5$ C4 5$ C4 5$ C4 5$ C4 5$ C4 5$ C4 5$ C 6% g cpu g filenamef system/base/target.scm < > > > > ? @ @ ! @ % @ ' A ) B / B 1 B 5 @ 7 D 9 E ? E A E E @ G G I H M H Q H U @ W I Y J ] J a J e @ g K i L m L q L u @ w M y N } N N @ O P P P @ Q S S 1 g nameg cpu-endiannessg documentationf Return the endianness for CPU. C8R7;<\]^_`>abc4d:*e( h } ] 4 5 " 45$ C4 5$ C45$ C4 5$ C45$ C45$ C4 5$ C4 5$ C4 5$ C 64455$ 44 5455$ C"8"4 u g triplet g cpu g filenamef system/base/target.scm U W W \ \ \ X c $ c ( c , X 0 d 4 d 8 d < X @ f D f H f L X P h T h X h \ X ` i d i h i l X p j v j x j | X k k k X l l l X m m X X X X X Y Y Y / Y X 4 g nameg triplet-pointer-sizeg documentationf 1Return the size of pointers in bytes for TRIPLET. C9Rfg h ] 4 -56 x g t g filenamef system/base/target.scm o p p g nameg triplet-cpu C7Rgf h( ] 4 -5 4 -56 g t ! g start ! g filenamef system/base/target.scm r s s s t ! t ! g nameg triplet-vendor ChRgf h ] 4 -4 -55 6 g t g start g filenamef system/base/target.scm v w w + w ' w w w x g nameg triplet-os CeR+ h ] [C g filenamef system/base/target.scm { g nameg target-typeg documentationf <Return the GNU configuration triplet of the target platform. CR7 h ] 45 6 g filenamef system/base/target.scm g nameg target-cpug documentationf +Return the CPU name of the target platform. CRh h ] 45 6 g filenamef system/base/target.scm g nameg target-vendorg documentationf .Return the vendor name of the target platform. CRe h ] 45 6 g filenamef system/base/target.scm g nameg target-osg documentationf 8Return the operating system name of the target platform. CR- h ] [C g filenamef system/base/target.scm g nameg target-endiannessg documentationf 4Return the endianness object of the target platform. C R. h ] [C g filenamef system/base/target.scm g nameg target-word-sizeg documentationf 7Return the word size, in bytes, of the target platform. C RC" g m , g filenamef system/base/target.scm - ' / ' 1 ' 3 ' 6 $ 7 ) D ) E * J * ' R * U * V + c + - 4 < U S o @ r 4 v { t F H C6 PK \3L L syntax.gonu [ GOOF----LE-8-2.0L ] 4 h ] g guile g define-module* g system g base g syntax g filenameS f system/base/syntax.scm g exportsS g %compute-initargs g define-type g define-record g define-record/keywords g record-case g transform-record g set-current-module g string->symbol g string-trim-both g symbol->string g symbol-trim-both g list->char-set <> g trim-brackets g make-syntax-transformer !g macro "g $sc-dispatch #" $" %g _ &g any '%& (g syntax->datum )( *( +g datum->syntax ,+ -+ .g kw-arg-ref /g printerS 0g common-slotsS 1g begin 2g append 32 42 5g map 6g define 7g symbol-append 8g - 9g make-procedure-with-setter :g lambda ;g x <; =g struct-ref >g v ?;> @g struct-set! A> Bg iota Cg length Dg syntax-violation ED FD Gf -source expression failed to match any pattern Hg make-record-type Ig quote Jg list-tail Kg module-gensym Lf defrec Mg make- Ng let Og cond Pg null? Qg else Rg _x Sg car Tg set! Ug cdr VR Wg make-struct Xg ? Yg record-predicate Zg record-accessor [g record-modifier \g slots ]g list ^g cons _g constructor `g record-constructor ag args bg apply c a\ db_c e:ad fe gg assq hg error if unbound slot jg keyword? kg keyword->symbol lg memq mg filter ng pair? of unknown slot pf slot already set qf too many initargs rg each-any s&r t%s ug syntax-object vg r wg top xw yg ribcage zg record {g clause |z{ }xx ~f l-3d2ad63ef-21d f l-3d2ad63ef-21e ~ y|} y ; x f l-3d2ad63ef-21a y x g hygiene uv g rtd u g reverse! g lp g clauses g out xxx f l-3d2ad63ef-265 f l-3d2ad63ef-266 f l-3d2ad63ef-267 y g process-clause x f l-3d2ad63ef-225 y v f l-3d2ad63ef-221 f l-3d2ad63ef-222 y} x uQ uh f unhandled record u uv g free-id s g e0 g e1 f l-3d2ad63ef-26f f l-3d2ad63ef-270 y} x uQ & f bad else clause placement g rest f l-3d2ad63ef-275 f l-3d2ad63ef-276 f l-3d2ad63ef-277 y x u; uQ sr & && r g infix f l-3d2ad63ef-22e y g tag g fields g exprs f l-3d2ad63ef-22b f l-3d2ad63ef-22c f l-3d2ad63ef-22d y x u g each && &s g eq? g f g accessor xxxxx f l-3d2ad63ef-233 f l-3d2ad63ef-234 f l-3d2ad63ef-235 f l-3d2ad63ef-236 f l-3d2ad63ef-237 y x u u uN 5 5 uv &&r g let* g processed v f l-3d2ad63ef-25e f l-3d2ad63ef-25f f l-3d2ad63ef-260 y x u g struct-vtable u uO f rec f rtd g -> g unquote f bad -> form g < g > g and g reverse g if C 5 h9 r ]4 5 4 > " G h ]44 556 g sym g pred g filenamef system/base/syntax.scm $ g nameg symbol-trim-both CR h ] 456 g sym g filenamef system/base/syntax.scm ( g nameg trim-brackets C R4 !$'*-./01454 h( ]L$ L " 4L 5C g def & g filenamef system/base/syntax.scm ( ) ) ( * / * , + , ) ! - # ) & C67 89:<=;?@A h@ ]44L 5 5 C g common-slot ? g i ? g filenamef system/base/syntax.scm / 0 0 ! 0 0 1 0 0 ! 0 ? CBC h - 1 3 $ " $ " 4545 $ " 44O 54O 4 4 5555C z g name g rest g name ( g opts ( g t > P g printer P g common-slots P g filenamef system/base/syntax.scm # $ $ $ % % # % ( % * ( $ - & 6 ' > ' M ' = P & V ( Z ( j / v 5 " y 5 ( 5 " / ( C h j ] 4 5 L 4?6b g args g v g filenamef system/base/syntax.scm # CFG h( h ] 4 5 $ O @ 6 ` g y ' g tmp ' g filenamef system/base/syntax.scm # ' C5R4 !$'*-5 h t ] $ C Cl g slot g filenamef system/base/syntax.scm ? ? - ? ) ? : C 16HI h( ] ( " $ C 4L 5C g slots % g filenamef system/base/syntax.scm E F F F ; F 2 F - F G H ! H - ! H 1 # H - $ H % g nameg lp CJCKL7M4NOPQNRSTUV hH y ] L L L L C q g o E g filenamef system/base/syntax.scm L M M M ; M E CWXY6789ZI[ h8 ]4L 5L L C } g sname 4 g filenamef system/base/syntax.scm T U U U . U U 4 C h - 1 3 $ " $ " 45 45 45 $ " O Q 45 4 4 55 4 5 45454O 5 45 4O 5C g name-form g slots g name g printer + g slot-names 6 g stem ? g lp u g reqs g opts g tail g filenamef system/base/syntax.scm < = = = % = > " > % > ) + = . ? 6 = 9 A ? = C B J C ( R B ] D ) b D 5 g D D h B u E E I I & I E J J $ J E K K K $ K K L K B S S $ S B T B - C h j ] 4 5 L 4?6b g args g v g filenamef system/base/syntax.scm < CFG h( h ] 4 5 $ O @ 6 ` g y ' g tmp ' g filenamef system/base/syntax.scm < ' C5R4 !$'*-5 h t ] $ C Cl g slot g filenamef system/base/syntax.scm ` ` - ` ) ` : C 16HI7MN\]^I h( ] $ C C g slot # g filenamef system/base/syntax.scm g # h ) h % i ) i 2 i ) i > i ) j ) # C_`fXY6789ZI[ h8 ]4L 5L L C } g sname 4 g filenamef system/base/syntax.scm p q q q . q q 4 C h - 1 3 $ " $ " 45 45 45 $ " 4 5 45 4 5 4O 5C g name-form g slots g name g printer + g slot-names 6 g stem ? g filenamef system/base/syntax.scm ] ^ ^ ^ % ^ _ " _ % _ ) + ^ . ` 6 ^ 9 b ? ^ C c J d ( R c ] e ) b e 5 g e D h c p f t f x f z c g c o o $ o c p c ! C h j ] 4 5 L 4?6b g args g v g filenamef system/base/syntax.scm ] CFG h( h ] 4 5 $ O @ 6 ` g y ' g tmp ' g filenamef system/base/syntax.scm ] ' C5R5ghi h@ ] $ " 4L 5 $ C $ CLL6 g slot @ g name @ g t @ g filenamef system/base/syntax.scm y z z z ( z { { , | 0 { 3 | ! 8 } @ } @ Cjklgmnhopq h ]"" ( O 645$ i45 45$ " 4455$ 645$ 6 "t( 6 $ " "5 "& g args g slots g in g positional g out g sym 1 g slot g filenamef system/base/syntax.scm w y # % ) * / " 1 1 4 @ F K U V Z ^ b c o s y | ~ , ! $ - / g nameg %compute-initargs C R4 !$t$ h T ] L 6 L g filenamef system/base/syntax.scm C h u ] L 6 m g e0 g e1 g filenamef system/base/syntax.scm CD h ] 6 g e0 g e1 g rest g filenamef system/base/syntax.scm & & C ($ h ] C C+78( h( ] 4L4L45554L 5C g v0 % g f0 % g f1 % g filenamef system/base/syntax.scm ( 7 L O 7 ( ! ( $ ! % Cs+78( h( ] 4L4L4 5554L 5C g f0 % g f1 % g filenamef system/base/syntax.scm ( 7 L O 7 ( ! ( $ ! % CFG hh ]4 5 $ @4 5 $ L LLO @4 5 $ L LLO @ 6 g fields a g tmp a g tmp ! a g tmp A a g filenamef system/base/syntax.scm a g nameg lp C$ h ] C Cs h : ] C2 g e0 g e1 CFG h X ] C P g tmp-3d2ad63ef-23e g tmp-3d2ad63ef-23d C h( p ] 45 C h g tag # g f # g accessor # g e0 # g e1 # # C h B ] L44 55 O L Q 45 45 $ 4?" )45 $ 4?" 4 5 4 5 $ 4 ?" 4 5 L6 : g <foo> g f0 g e0 g rest g infix g lp 3 g tmp ; z g tmp W w g tmp } g tmp g filenamef system/base/syntax.scm ' } CFG h ]"4 5 $ O @4 5 $ O @4 5 $ @4 5 $ L LO @ 6 g clauses y g out y g tmp y g tmp & y g tmp B y g tmp Y y g filenamef system/base/syntax.scm y g nameg lp C$ h( Q ] L C I g r # g rtd # g processed # # CFG hP ]O L Q 45 45 $ O @6 g record K g clause K g lp ! g tmp $ K g tmp / K g filenamef system/base/syntax.scm $ K CFG h( j ] 4 5 $ O @ 6 b g x ' g tmp ' g filenamef system/base/syntax.scm ' C5R4 !$'*-K 278I h ]#" ( C$ $ "$ 644L44L 55 55 "44L 55 "^ "Q "F g x g record-stem g slots g in g out g slot g arg g filenamef system/base/syntax.scm ' + . 8 ; ? B C F $ I L R V X 2 \ a d 8 g 8 i $ m u x ! z 0 { ~ 2 0 * 0 g nameg further-predicates C782 h ]#" ( C$ $ ,44L 55 "$ 644L44L 55 55 "r "e 44L 55 "0 "% g x g record-stem g slots g in g out g slot g arg g slot g filenamef system/base/syntax.scm ' + . 1 4 : > @ 2 D I L " O W Z ^ a b e $ h k q u w 2 { 1 1 $ ! " " . " & 2 " " ! ; g nameg let-clauses CC7M845 h ] $ & L 6 C C g y g filenamef system/base/syntax.scm * + ' + + 6 + > + " , 2 , " Ch hx ] $ g & O4 5 $ 9 4 4L 5 54L4LO 55C 6 4L 5C C g x s g form $ Y g s . > g filenamef system/base/syntax.scm # $ $ % % $ & & & # ' $ ' ' ( + ( % . ( 7 . ( , 1 7 ; @ ( A ( F ) G * S . U * W ( ] / a / d 0 e 0 l 0 4 n 0 o 0 ! s g nameg transform-expr CQ78N5 h ]! & C 44L55 L 44LL55 44LL55$ 4 L5" C g clause g stem g slots g body g record-type 3 g filenamef system/base/syntax.scm 1 2 2 2 4 5 6 4 7 $ 7 . % + / 1 7 B 3 7 3 7 7 8 A 9 D 9 P 9 Q 8 U : X : d : g ; k ; l < z = { 8 g nameg process-clause C578 h ] 4L 5L Cy g slot g filenamef system/base/syntax.scm @ A COgQ2h h L - 1 3 45454 5 O O O O Q Q Q Q 4 O 5 4 5 4 5$ " 4 5 C D g type-and-common g record g clauses g r g rtd g type-stem g further-predicates N g let-clauses N g transform-expr N g process-clause N g clauses g filenamef system/base/syntax.scm " v > @ B @ > C C D D D D F F % F > C h k ] 4 5 L 4?6c g args g v g filenamef system/base/syntax.scm CFG h( i ] 4 5 $ O @ 6 a g y ' g tmp ' g filenamef system/base/syntax.scm ' C5RCj g m ( g filenamef system/base/syntax.scm w 9 C6 PK \y lalr.gonu [ GOOF----LE-8-2.0p ]b 4 hg ] g guile g define-module* g system g base g lalr g filenameS f system/base/lalr.scm g importsS g srfi g srfi-9 g exportsS g lalr-parser g print-states g make-lexical-token g lexical-token? g lexical-token-category g lexical-token-source g lexical-token-value g make-source-location g source-location? g source-location-input g source-location-line g source-location-column g source-location-offset g source-location-length !g "source-location->source-properties "g lr-driver #g glr-driver $ !"# %g set-current-module &% '% (f 2.5.0 )g *lalr-scm-version* *g process-use-modules +* ,* -g ice-9 .g pretty-print /-. 0/ 1g pprint 2g symbol? 3g lalr-keyword? 4g make-syntax-transformer 54 64 7g BITS-PER-WORD 8g macro 9g $sc-dispatch :9 ;9 <g _ =g any ><= ?g syntax->datum @? A? Bg datum->syntax CB DB Eg syntax-violation FE GE Hf -source expression failed to match any pattern Ig logical-or Jg logior Kg lalr-error Lg error Mg supports-source-properties? Ng source-property Og loc Pg lexical-token Qg set-source-property! Rg throw-bad-struct SR TR Ug note-source-location Vg %make-lexical-token-procedure W<=== Xg syntax-object Yg lambda Zg m-1e9d51c93-35 [g top \Z[ ]g ribcage ^g t-1e9d51c93-32 _g t-1e9d51c93-33 `g t-1e9d51c93-34 a^_` b\\\ cf l-1e9d51c93-3a df l-1e9d51c93-3b ef l-1e9d51c93-3c fcde g]abf h] ig x ji k\ lf l-1e9d51c93-37 ml n]jkm og shift pg proc-name qg args rpq s[ tss uf l-1e8ba8b5a-60 vf l-1e8ba8b5a-61 wuv x]rtw yg key zg value {g name |g formals }g body ~yz{|} sssss f l-1e8ba8b5a-53 f l-1e8ba8b5a-54 f l-1e8ba8b5a-55 f l-1e8ba8b5a-56 f l-1e8ba8b5a-57 ]~ g make-procedure-name s f l-1e8ba8b5a-43 ] s f l-1e8ba8b5a-42 ]j \ghnohhhhx g hygiene XY g category sghn X g source X Xz g make-struct g m-1e9d51c93-30 [ g t-1e8ba8b5a-133 g t-1e8ba8b5a-132 g t-1e8ba8b5a-131 g m-1e8ba8b5a-134 [ f l-1e8ba8b5a-138 f l-1e8ba8b5a-139 f l-1e8ba8b5a-13a ] g ctor-args f l-1e8ba8b5a-120 ] g ctor g field f l-1e8ba8b5a-11c f l-1e8ba8b5a-11d ]t g form g type-name g constructor-spec g field-names ssss f l-1e8ba8b5a-111 f l-1e8ba8b5a-112 f l-1e8ba8b5a-113 f l-1e8ba8b5a-114 ] g record-layout g functional-setters g setters g copier g getters g constructor g getter-identifiers g field-identifiers ssssssss f l-1e8ba8b5a-e9 f l-1e8ba8b5a-e7 f l-1e8ba8b5a-e5 f l-1e8ba8b5a-e3 f l-1e8ba8b5a-e1 f l-1e8ba8b5a-df f l-1e8ba8b5a-dd f l-1e8ba8b5a-db ] f l-1e8ba8b5a-da ]j ghnohhhhh X XP X g each-any <ጤ E E f Wrong number of arguments g identifier? shn XV g record-type-vtable g pwpwpw g default-record-printer z g set-struct-vtable-name! g vtable-offset-user g %lexical-token?-procedure <= g m-1e9d51c93-46 [ g t-1e9d51c93-45 f l-1e9d51c93-4b ] f l-1e9d51c93-48 ]j hohhhhx XY g obj g t-1e8ba8b5a-224 g t-1e8ba8b5a-21e g t-1e8ba8b5a-21f g t-1e8ba8b5a-220 g t-1e8ba8b5a-223 g t-1e8ba8b5a-222 g t-1e8ba8b5a-221 g m-1e8ba8b5a-225 [ f l-1e8ba8b5a-229 f l-1e8ba8b5a-22a f l-1e8ba8b5a-22b f l-1e8ba8b5a-22c f l-1e8ba8b5a-22d f l-1e8ba8b5a-22e f l-1e8ba8b5a-22f ] g copier-id f l-1e8ba8b5a-21c !] "g ctor-name #" $f l-1e8ba8b5a-214 %$ &]#% ' (f l-1e8ba8b5a-212 )( *]') +g layout ,+ -f l-1e8ba8b5a-210 .- /],. 0g immutable? 10 2f l-1e8ba8b5a-20e 32 4]13 5g field-count 65 7f l-1e8ba8b5a-20c 87 9]68 :g getter-ids ;: <f l-1e8ba8b5a-209 =< >];= ?g field-ids @? Af l-1e8ba8b5a-206 BA C]@B Dg predicate-name Eg field-spec F0DE Gssssss Hf l-1e8ba8b5a-1f9 If l-1e8ba8b5a-1fa Jf l-1e8ba8b5a-1fb Kf l-1e8ba8b5a-1fc Lf l-1e8ba8b5a-1fd Mf l-1e8ba8b5a-1fe NHIJKLM O]FGN Phoh hhhh!h&h*h/h4h9h>hCO QXP RQ Sg and TXSP Ug struct? VXUP WVQ Xg eq? YXXP Zg struct-vtable [XZP \[Q ]sh ^XP] _Y\^ `TW_ aR` bsh cXb dg !%lexical-token-category-procedure eg free-id fg %%on-error gg m-1e9d51c93-52 hg[ ih jf l-1e9d51c93-54 kj l]jik mhhlohhhhx nXfm oen po= qg %%type rg t-1e8ba8b5a-14b sg t-1e8ba8b5a-14c tg t-1e8ba8b5a-14d ug t-1e8ba8b5a-14e vg t-1e8ba8b5a-14f wg t-1e8ba8b5a-150 xg t-1e8ba8b5a-151 yrstuvwx zg m-1e8ba8b5a-152 {z[ |{{{{{{{ }f l-1e8ba8b5a-156 ~f l-1e8ba8b5a-157 f l-1e8ba8b5a-158 f l-1e8ba8b5a-159 f l-1e8ba8b5a-15a f l-1e8ba8b5a-15b f l-1e8ba8b5a-15c }~ ]y| g getter g index f l-1e8ba8b5a-149 f l-1e8ba8b5a-14a ]t : sss f l-1e8ba8b5a-144 f l-1e8ba8b5a-145 f l-1e8ba8b5a-146 ] hlohhhhh Xq e <p= g ck g err g s hh f l-1e9d51c93-57 f l-1e9d51c93-58 ] hhlohhhhx X g quote X shl XP g %%index X e <p= f l-1e9d51c93-5c f l-1e9d51c93-5d ] hhlohhhhx X X hl X g %%copier X e <p= f l-1e9d51c93-61 f l-1e9d51c93-62 ] hhlohhhhx X X g %%lexical-token-set-fields shl X g t-1e9d51c93-51 f l-1e9d51c93-66 ]i hhlohhhhx XY hlohhhhh X g if X XX XZ shl XP g struct-ref X hl X XR X X shl Xd g %lexical-token-source-procedure g m-1e9d51c93-6d [ f l-1e9d51c93-6f ]j hohhhhx Xf e = hohhhhh Xq e <= f l-1e9d51c93-72 f l-1e9d51c93-73 ] hohhhhx X X sh XP X e <= f l-1e9d51c93-77 f l-1e9d51c93-78 ] hohhhhx X X h X X e <= f l-1e9d51c93-7c f l-1e9d51c93-7d ] hohhhhx X X sh X g t-1e9d51c93-6c !f l-1e9d51c93-81 "! #] " $#hohhhhx %XY$ &#hohhhhh 'X& (' )X& *XX& +XZ& ,+' -s#h .XP- /*,. 0X& 1#h 2X 1 30'2 4XR& 5X& 6X- 756 84'7 9)/38 :%(9 ;sh <X; =g %lexical-token-value-procedure >g m-1e9d51c93-88 ?>[ @? Af l-1e9d51c93-8a BA C]j@B D?hCohhhhx EXfD FeE GF= HhCohhhhh IXqH JeI K<GJ= L?? Mf l-1e9d51c93-8d Nf l-1e9d51c93-8e OMN P]LO Q?PhCohhhhx RXQ SXQ TsPhC UXPT VSU WV XXH YeX Z<GY= [f l-1e9d51c93-92 \f l-1e9d51c93-93 ][\ ^]L] _?^hCohhhhx `X_ aX_ b^hC cX b dac ed fXH gef h<Gg= if l-1e9d51c93-97 jf l-1e9d51c93-98 kij l]Lk m?lhCohhhhx nXm oXm pslhC qXp roq sr tg t-1e9d51c93-87 ut vf l-1e9d51c93-9c wv x]u@w y?xhCohhhhx zXYy {xhCohhhhh |X{ }| ~X{ XX{ XZ{ | sxhC XP X{ xhC X | XR{ X{ X | ~ z} shC X= g each == = = = g %%set-fields g dummy g check? g expr g m-1e9d51c93-a3 [ f l-1e9d51c93-a8 f l-1e9d51c93-a9 f l-1e9d51c93-aa f l-1e9d51c93-ab f l-1e9d51c93-ac ] f l-1e9d51c93-a5 ]j g t-1e8ba8b5a-16a g t-1e8ba8b5a-16c g t-1e8ba8b5a-16b g m-1e8ba8b5a-16d [ f l-1e8ba8b5a-171 f l-1e8ba8b5a-172 f l-1e8ba8b5a-173 ] f l-1e8ba8b5a-167 f l-1e8ba8b5a-168 f l-1e8ba8b5a-169 ] hohhhh X sh XP X X X g map g list g source-location g %make-source-location-procedure <===== g m-1e9d51c93-bc [ g t-1e9d51c93-b7 g t-1e9d51c93-b8 g t-1e9d51c93-b9 g t-1e9d51c93-ba g t-1e9d51c93-bb f l-1e9d51c93-c1 f l-1e9d51c93-c2 f l-1e9d51c93-c3 f l-1e9d51c93-c4 f l-1e9d51c93-c5 ] f l-1e9d51c93-be ]j hohhhhx XY g input sh X g line X g column X g offset X g length X g m-1e9d51c93-b5 [ hohhhhh X X X sh X g pwpwpwpwpw g %source-location?-procedure g m-1e9d51c93-d1 [ g t-1e9d51c93-d0 f l-1e9d51c93-d6 ] f l-1e9d51c93-d3 ]j hohhhhx XY hoh hhhh!h&h*h/h4h9h>hCO X XS XU XX XZ sh X sh X g %source-location-input-procedure g m-1e9d51c93-dd [ f l-1e9d51c93-df ]j h ohhhhx Xf e ! = "h ohhhhh #Xq" $e# %<!$= & 'f l-1e9d51c93-e2 (f l-1e9d51c93-e3 )'( *]&) +*h ohhhhx ,X+ -X+ .s*h /X. 0-/ 10 2X" 3e2 4<!3= 5f l-1e9d51c93-e7 6f l-1e9d51c93-e8 756 8]&7 98h ohhhhx :X9 ;X9 <8h =X < >;= ?> @X" Ae@ B<!A= Cf l-1e9d51c93-ec Df l-1e9d51c93-ed ECD F]&E GFh ohhhhx HXG IXG Jg %%source-location-set-fields KsFh LXJK MIL NM Og t-1e9d51c93-dc PO Qf l-1e9d51c93-f1 RQ S]PR TSh ohhhhx UXYT VSh ohhhhh WXV XW YXV ZXXV [XZV \[W ]sSh ^X] _Z\^ `XV aSh bX a c`Wb dXRV eXV fX ] gef hdWg iY_ch jUXi ksh lXk mg %source-location-line-procedure ng m-1e9d51c93-f8 on[ po qf l-1e9d51c93-fa rq s]jpr tohsohhhhx uXft veu wv= xhsohhhhh yXqx zey {<wz= |oo }f l-1e9d51c93-fd ~f l-1e9d51c93-fe }~ ]| ohsohhhhx X X shs X Xx e <w= f l-1e9d51c93-102 f l-1e9d51c93-103 ]| ohsohhhhx X X hs X Xx e <w= f l-1e9d51c93-107 f l-1e9d51c93-108 ]| ohsohhhhx X X shs XJ g t-1e9d51c93-f7 f l-1e9d51c93-10c ]p ohsohhhhx XY hsohhhhh X X XX XZ shs X X hs X XR X X shs Xm g !%source-location-column-procedure g m-1e9d51c93-113 [ f l-1e9d51c93-115 ]j hohhhhx Xf e = hohhhhh Xq e <= f l-1e9d51c93-118 f l-1e9d51c93-119 ] hohhhhx X X sh X X e <= f l-1e9d51c93-11d f l-1e9d51c93-11e ] hohhhhx X X h X X e <= f l-1e9d51c93-122 f l-1e9d51c93-123 ] hohhhhx X X sh XJ g t-1e9d51c93-112 f l-1e9d51c93-127 ] hohhhhx XY hohhhhh X X XX XZ sh X X h X XR X X sh X g !%source-location-offset-procedure g m-1e9d51c93-12e [ f l-1e9d51c93-130 ]j h ohhhhx Xf e ! = "h ohhhhh #Xq" $e# %<!$= & 'f l-1e9d51c93-133 (f l-1e9d51c93-134 )'( *]&) +*h ohhhhx ,X+ -X+ .s*h /X. 0-/ 10 2X" 3e2 4<!3= 5f l-1e9d51c93-138 6f l-1e9d51c93-139 756 8]&7 98h ohhhhx :X9 ;X9 <8h =X < >;= ?> @X" Ae@ B<!A= Cf l-1e9d51c93-13d Df l-1e9d51c93-13e ECD F]&E GFh ohhhhx HXG IXG JsFh KXJJ LIK ML Ng t-1e9d51c93-12d ON Pf l-1e9d51c93-142 QP R]OQ SRh ohhhhx TXYS URh ohhhhh VXU WV XXU YXXU ZXZU [ZV \sRh ]X\ ^Y[] _XU `Rh aX ` b_Va cXRU dXU eX \ fde gcVf hX^bg iTWh jsh kXj lg !%source-location-length-procedure mg m-1e9d51c93-149 nm[ on pf l-1e9d51c93-14b qp r]joq snhrohhhhx tXfs uet vu= whrohhhhh xXqw yex z<vy= {nn |f l-1e9d51c93-14e }f l-1e9d51c93-14f ~|} ]{~ nhrohhhhx X X shr X Xw e <v= f l-1e9d51c93-153 f l-1e9d51c93-154 ]{ nhrohhhhx X X hr X Xw e <v= f l-1e9d51c93-158 f l-1e9d51c93-159 ]{ nhrohhhhx X X shr XJ g t-1e9d51c93-148 f l-1e9d51c93-15d ]o nhrohhhhx XY hrohhhhh X X XX XZ shr X X hr X XR X X shr Xl g m-1e9d51c93-164 [ f l-1e9d51c93-169 f l-1e9d51c93-16a f l-1e9d51c93-16b f l-1e9d51c93-16c f l-1e9d51c93-16d ] f l-1e9d51c93-166 ]j hohhhh X sh X X X X X X g make-vector g list->vector g reverse g max g display f Error in map-goto g newline g expt g bidon f Error in add-lookback-edge : g assv g assq g reduce g left g right g none f %% Shift/Reduce conflict (shift f , reduce f ) on ' f ' in state f "%% Reduce/Reduce conflict (reduce g default g accept g for-each g number? g list-ref g *default* g *error* g left: g right: g nonassoc: f +invalid operator precedence specification: 猤 茤 g nonassoc g member f "duplicate definition of terminal: f invalid terminal: g assoc f Nonterminal previously defined: f Invalid nonterminal: f /Nonterminal definition must be a non-empty list g *eoi* g eoi L g *start* g car f -Grammar must contain at least one nonterminal g cdar g append g : g $1 f <Grammar definition must have a non-empty list of productions f Invalid token list: f undefined symbol : g prec: f *prec: directive should be at end of rule: f Invalid prec: directive: f !Invalid terminal or nonterminal: g symbol->string f Invalid terminal or nonterminal: f TInvalid 'error' production. A single terminal symbol must follow the 'error' token.: g vector g string->symbol g string-append f - !g number->string "f $ #f /At least one production needed for nonterminal: $g vector->list % &g ___stack 'g ___sp (g ___goto-table )g ___push *g yypushback +&'()* ,'() -g let* .g tok /g vector-ref 0g - 1. 2. 312. 43 5f @ 6. 716. 87 9 : ;' <g output: =g with-output-to-file >g define ?f Malformed lalr-parser form @f Invalid option: Ag expect: Bg driver: Cg glr Dg out-table: Ef State table Ff ----------- Gf state Hf If --> Jf . Kf Lf (rule Mf ) Nf default action Of : Error Pf : Accept input Qf : reduce using rule Rf : shift and goto state Sf No generated parser available! Tg string? Ug integer? Vg memq Wg lr XWC Yg combine-locations Zg *max-stack-size* [g vector-length \f %Syntax error: unexpected end of input ]f !Syntax error: unexpected token : ^f Syntax error: invalid token: _g take-right `g drop ag filenameC 5 hL ]4 $5 4' > " G ()R4,0 > " G 4, > " G .i1R2i3R4678;>AD h P ] C H g filenamef system/base/lalr.upstream.scm S C h r ] 4 5 L 4?6j g args g v g filenamef system/base/lalr.upstream.scm S CGH h( p ] 4 5 $ O @ 6 h g y ' g tmp ' g filenamef system/base/lalr.upstream.scm S ' C57R46I8;>ADJ h x - 1 3 C p g x g y g filenamef system/base/lalr.upstream.scm T T # C h r ] 4 5 L 4?6j g args g v g filenamef system/base/lalr.upstream.scm T CGH h( p ] 4 5 $ O @ 6 h g y ' g tmp ' g filenamef system/base/lalr.upstream.scm T ' C5IR46K8;>ADL h { ] C s g msg g obj g filenamef system/base/lalr.upstream.scm U U % C h r ] 4 5 L 4?6j g args g v g filenamef system/base/lalr.upstream.scm U CGH h( p ] 4 5 $ O @ 6 h g y ' g tmp ' g filenamef system/base/lalr.upstream.scm U ' C5KRMNOPQT hp ]4 5$ ^4 5$ " $ " $ 24 & " 45> " G " " C g lvalue n g tok n g filenamef system/base/lalr.upstream.scm V W W X X * X W " Y 5 W 6 Z < Z % ? Z * [ Z n g nameg note-source-location CURP h ] C g category g source g value g filenamef system/base/lalr.upstream.scm x g nameg %make-lexical-token-procedure CVR468;W h n ] C f g t-1e9d51c93-32 g t-1e9d51c93-33 g t-1e9d51c93-34 C h ` ]L 6 X g a g filenamef system/base/lalr.upstream.scm x C< h P ] L 6H g filenamef system/base/lalr.upstream.scm x C h ] C CGH hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x n g tmp n g tmp " n g tmp > n g filenamef system/base/lalr.upstream.scm x n C5RP 4 P> " G Vi PRP h ] $ CC g obj g filenamef system/base/lalr.upstream.scm x g nameg %lexical-token?-procedure CR468;a h 6 ] C . g t-1e9d51c93-45 C h ` ]L 6 X g a g filenamef system/base/lalr.upstream.scm x C< h P ] L 6H g filenamef system/base/lalr.upstream.scm x Cc h ] C CGH hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x n g tmp n g tmp " n g tmp > n g filenamef system/base/lalr.upstream.scm x n C5RPT h ] & C 6 g s g filenamef system/base/lalr.upstream.scm x g nameg !%lexical-token-category-procedure CdR468; h : ]C 2 g err g s C h : ]C 2 g err g s C h : ]C 2 g err g s C h 6 ] C . g t-1e9d51c93-51 C h ` ]L 6 X g a g filenamef system/base/lalr.upstream.scm x C< h P ] L 6H g filenamef system/base/lalr.upstream.scm x C h ] C CGH h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef system/base/lalr.upstream.scm x C5RPT h ] & C 6 g s g filenamef system/base/lalr.upstream.scm x g nameg %lexical-token-source-procedure CR468; h : ]C 2 g err g s C h : ]C 2 g err g s C h : ]C 2 g err g s C: h 6 ] C . g t-1e9d51c93-6c C h ` ]L 6 X g a g filenamef system/base/lalr.upstream.scm x C< h P ] L 6H g filenamef system/base/lalr.upstream.scm x C< h ] C CGH h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef system/base/lalr.upstream.scm x C5RPT h ] & C 6 g s g filenamef system/base/lalr.upstream.scm x g nameg %lexical-token-value-procedure C=R468;KRW h : ]C 2 g err g s CZ`e h : ]C 2 g err g s Chns h : ]C 2 g err g s C h 6 ] C . g t-1e9d51c93-87 C h ` ]L 6 X g a g filenamef system/base/lalr.upstream.scm x C< h P ] L 6H g filenamef system/base/lalr.upstream.scm x C h ] C CGH h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef system/base/lalr.upstream.scm x C5R468; h v ]45C n g dummy g check? g s g getter g expr CGH h( ] 4 5 $ @ 6 g x " g tmp " g filenamef system/base/lalr.upstream.scm x " g macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5R h ] C g input g line g column g offset g length g filenamef system/base/lalr.upstream.scm g nameg %make-source-location-procedure CR468; h ] C g t-1e9d51c93-b7 g t-1e9d51c93-b8 g t-1e9d51c93-b9 g t-1e9d51c93-ba g t-1e9d51c93-bb C h a ]L 6 Y g a g filenamef system/base/lalr.upstream.scm C< h Q ] L 6I g filenamef system/base/lalr.upstream.scm C h ] C CGH hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x n g tmp n g tmp " n g tmp > n g filenamef system/base/lalr.upstream.scm n C5R 4 > " G i R h ] $ CC g obj g filenamef system/base/lalr.upstream.scm g nameg %source-location?-procedure CR468; h 6 ] C . g t-1e9d51c93-d0 C h a ]L 6 Y g a g filenamef system/base/lalr.upstream.scm C< h Q ] L 6I g filenamef system/base/lalr.upstream.scm C h ] C CGH hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x n g tmp n g tmp " n g tmp > n g filenamef system/base/lalr.upstream.scm n C5RT h ] & C 6 g s g filenamef system/base/lalr.upstream.scm g nameg %source-location-input-procedure CR46 8;%,1 h : ]C 2 g err g s C4:? h : ]C 2 g err g s CBHN h : ]C 2 g err g s Cj h 6 ] C . g t-1e9d51c93-dc C h a ]L 6 Y g a g filenamef system/base/lalr.upstream.scm C< h Q ] L 6I g filenamef system/base/lalr.upstream.scm Cl h ] C CGH h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef system/base/lalr.upstream.scm C5 RT h ] & C 6 g s g filenamef system/base/lalr.upstream.scm g nameg %source-location-line-procedure CmR46 8;{ h : ]C 2 g err g s C h : ]C 2 g err g s C h : ]C 2 g err g s C h 6 ] C . g t-1e9d51c93-f7 C h a ]L 6 Y g a g filenamef system/base/lalr.upstream.scm C< h Q ] L 6I g filenamef system/base/lalr.upstream.scm C h ] C CGH h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef system/base/lalr.upstream.scm C5 RT h ] & C 6 g s g filenamef system/base/lalr.upstream.scm g nameg !%source-location-column-procedure CR46 8; h : ]C 2 g err g s C h : ]C 2 g err g s C h : ]C 2 g err g s C h 7 ] C / g t-1e9d51c93-112 C h a ]L 6 Y g a g filenamef system/base/lalr.upstream.scm C< h Q ] L 6I g filenamef system/base/lalr.upstream.scm C h ] C CGH h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef system/base/lalr.upstream.scm C5 RT h ] & C 6 g s g filenamef system/base/lalr.upstream.scm g nameg !%source-location-offset-procedure CR46 8;%,1 h : ]C 2 g err g s C4:? h : ]C 2 g err g s CBHM h : ]C 2 g err g s Ci h 7 ] C / g t-1e9d51c93-12d C h a ]L 6 Y g a g filenamef system/base/lalr.upstream.scm C< h Q ] L 6I g filenamef system/base/lalr.upstream.scm Ck h ] C CGH h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef system/base/lalr.upstream.scm C5 RT h ] & C 6 g s g filenamef system/base/lalr.upstream.scm g nameg !%source-location-length-procedure ClR46 8;z h : ]C 2 g err g s C h : ]C 2 g err g s C h : ]C 2 g err g s C h 7 ] C / g t-1e9d51c93-148 C h a ]L 6 Y g a g filenamef system/base/lalr.upstream.scm C< h Q ] L 6I g filenamef system/base/lalr.upstream.scm C h ] C CGH h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef system/base/lalr.upstream.scm C5 R46J8; h v ]45C n g dummy g check? g s g getter g expr CGH h( ] 4 5 $ @ 6 g x " g tmp " g filenamef system/base/lalr.upstream.scm " g macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5JR468;>AD h8 ] " $$ C " " g v1 1 g v2 1 g n 1 g i * g filenamef system/base/lalr.upstream.scm $ $ ! $ * 1 g nameg bit-union Ch ]" $ L L L $ tM $ IM$ 4L> " G " #ML4L> " G " 4L> " G " 4L> " G " L L6 g p g s4 g x g ruleno g y g symbol 0 g filenamef system/base/lalr.upstream.scm $ ) ' $ # ' + 0 . 0 6 + : " ? 0 C & D & I - P & b ( i ( j ( o / r 7 w ( & - & ' $ g nameg loop2 C h@ ] $ 0O L LL LLLQ LL 6C g s1 = g s3 = g loop2 ; g filenamef system/base/lalr.upstream.scm 6 5 7 # ; = g nameg loop C h ]45N4 5N45N4 5N 45N M M N 45" #( " "45 " " 4L > " G 4L> " G 4M 5N4M 54M 54M 54MM 5 " RM $ $ DM $ ,M$ " ,M "" " M $ $ " M "$ "a " PM $ - " " " "GO LL Q 4 > " G " " 4L> " G 4L> " G 4L > " G 4L > " G C g terms g terms/prec g vars g gram g gram/actions g l A d g count A d g no-of-rules o g no-of-items o g squeue @ g rcount @ g rsets @ g relts @ g r ' g s2 ' g p ' g *r ' g symbol . g r1 2 g any-tokens 2 g symbol 7 g ruleno x g r2 ~ g p2 ~ g symbol g loop $ g filenamef system/base/lalr.upstream.scm & ' / 4 6 7 A G P & S 7 X ? [ 7 \ . d d o t | | } ~ ~ ~ } 1 " ( ' 2 7 # 7 = A D ! J * U 9 ] c f $ t u , x ~ 0 " ( $ : 7 * = 7 * * 1 : * . ( ' A Q a q _ C h ]N4N3N2N1N0N/N.N-N,N+N*4 5N)N(N'N&N%N$N#N"N!N N N N N NNNNNNNNNNNNNL LLL1LLL2L3LLLLL L L L L LO 6 g tokens g gram g filenamef system/base/lalr.upstream.scm ! " # $ # % $ ' * ' 5 , ' . ' 1 ( 4 ) 7 * : + = , @ - C . F / I 0 L 1 O 2 R 3 U 4 X 5 [ 6 ^ 7 a 8 d 9 g : j ; m < p = s > v @ y A z B | B - g nameg gen-tables! C h ]K NN4M5N4M5N4M5N " ( C " n( "M M " 8 ( M "M " " " "` g no-of-rules g no-of-items g gram g p . g item-no . g rule-no . g nt : g prods @ g it-no2 @ g rl-no2 @ g rhs i g it-no3 i g filenamef system/base/lalr.upstream.scm E F F G H H I I J % J ( J * J . L 4 M 9 N : N @ O F P I Q W Q ^ S e T i U o V t X 6 x X { Y # ~ Y / Y < Y [ 6 [ \ # \ - \ U U % U O O O L + g nameg pack-grammar C h ]0HH 4M 5K 4M 5K" NM$ AM $ "J JJ " " " "4M 5N " XM$ M" ) $ " )J " J " M "C " g delts g dset g i " p g j " p g lhs 0 l g i g j g s g x g q g filenamef system/base/lalr.upstream.scm _ ` ` ` a " c ' d + d 0 e 0 e 6 f : f E h / F h ' G h N i Q j T j \ j _ k i k p c { m m o p p q r r t " t u " u 0 u * u q q " q : q q v w w o . g nameg set-derives C hX ]04M5N" m M$ `" Q( "MM $ "M$ M 4LM 5" " " M "" "" $ " }M$ "M " $( " $4L M5 " " $ "M " "y" "d" % M$ M 4L M 5 "C " g i } g sp n g sym 5 n g continue g i g cont g x g l g z g y g i ( M g filenamef system/base/lalr.upstream.scm $ # & , 3 > 4 - 5 5 < @ E N , W 9 Y , Z e k n s y } ' ' B / ' ( - 1 6 " ? - A " B E K M C T g nameg set-firsts C h u ]4M5N4L> " G " S M$ H" $( " &4L M5 "M " M "C " m g i s g l - Q g fd - Q g x _ q g filenamef system/base/lalr.upstream.scm % ) - 3 < = D < E ( I Q Q V " W = _ _ h k q s z g nameg set-fderives C h@ ]9H4M5K" a( " _M $ :M$ -" ( " J "M "" " " "" M$ {J$ aM " J$ /$ " " " " "|" $ "6 " "@ g core @ g ruleset @ g csp t g sym # t g dsp ; U g ruleno 2 g csp 2 g itemsetv 2 g itemno g c g itemsetv2 g c & g itemsetv2 & g filenamef system/base/lalr.upstream.scm " ' # # * . 3 ; A J - L O U U Z ! ` k q t + % + + % & & 2 6 / @ = @ g nameg closure C h8 ](4M 5N4M5N 4M > " G 4L > " G 4 5 NMN N " $ 4L 5 4L > " G 4L> " G 4L> " G M $ ]4 5 M M M$ M MN" NMN " "DCM ": g p B l g this-state p . g x z , g is , g p g x g x g x g filenamef system/base/lalr.upstream.scm ' " + ) ; " B I " N " T " Z [ " ` ! b ! f " i # p + s , w , z - z - } . " . - / 0 1 2 2 # " # # # ! & 4 , 4 . + 7 6 g nameg generate-states C h < ]!N" M$ M "" "" w$ l M $ I4LM5NM ( MMM" M " " " "4M5N C 4 g itemset g i % g isp 0 g i : g sym A g x [ g filenamef system/base/lalr.upstream.scm 7 9 9 : ; ; = & = > ! > % : 0 @ 3 A 7 A : B : B A C A B G D K D L F % V F [ G [ G c H j J = m J 7 n J w K 6 x K M , M & M N 6 N O O @ Q Q ) g nameg new-itemsets C h0 ]9M 45 " !( " " " M ( 4L 5 M C" $ }" .$ $ "" " "$ C( 4L 5 C "o( 4L 5 C "I "A g sym , g isp , g n , g isp1 7 g k 7 g key B , g sp I , g x X i g sp1 m $ g c r | g i1 g t g c g c g x g x g filenamef system/base/lalr.upstream.scm U V V W V X Y " Z ) [ . [ - / [ ( 7 [ 7 X B V I \ I V Q ] R ^ X ^ c _ ) d _ h " m a r b ' r b y " } b b c d d e # f # e d g " g + g h c c 9 c - " c b i i " j j k k l $ l " n n j j k k l $ l " n $ n $ a D , g nameg get-state C hh j ]!M 45 4 5 M M$ MN" M MNMNC b g sym c g isp c g n c g p c g n ) g filenamef system/base/lalr.upstream.scm q r r s r " r u & " / " 4 w 8 w < w G " N " U z V z Y { [ { ^ | ` | c g nameg new-state C h ] ( C4L 54L 5C g l g filenamef system/base/lalr.upstream.scm ! * 0 * g nameg loop C h( ]O L Q 4 4M55 N C g loop ! g filenamef system/base/lalr.upstream.scm # % g nameg append-states C h8 ] ( CM $ 4L 5C " g l 1 g item 1 g filenamef system/base/lalr.upstream.scm 2 ) $ / & ) ' + 1 1 g nameg loop C h ]O L Q 45 $ T4 5 45 M$ M MNC NMNCC g core { g itemset { g loop g rs { g p - y g x 3 > g x E P g filenamef system/base/lalr.upstream.scm ! % & # - 3 " 3 ; # ? E M # W # ] d + e h ' j q ( s w { g nameg save-reductions C h ] M N 4L > " G 4L > " G 4L> " G 4L> " G 4L> " G 4L> " G 4L> " G 4L> " G 4LM> " G L 6 g filenamef system/base/lalr.upstream.scm / + ; K [ k { g nameg lalr C h@ ]4M5N" " $ M "CM " g l 2 g x 0 g filenamef system/base/lalr.upstream.scm " " & " ' * 0 2 : g nameg set-accessing-symbol C h8 ]4M5N" $ M "CM " g l 0 g x . g filenamef system/base/lalr.upstream.scm " # % ( . 0 8 g nameg set-shift-table C h8 ]4M5N" $ M "CM " g l 0 g x . g filenamef system/base/lalr.upstream.scm " # % ( . 0 8 g nameg set-reduction-table C hX $ ] " @M $ 1 $ " 45 "C " g p F g curmax F g length F g x F g filenamef system/base/lalr.upstream.scm # % - 0 1 D F S g nameg set-max-rhs C h ] ( C " g l g filenamef system/base/lalr.upstream.scm g nameg last C h X ]@O Q 4M 5N 4M 5N" M $ MMM $ [ $ " $ M4 5M" $ "M "M "nMM 4 5 45N" *$ " $MM 4 5 " "4 5N45N " wM $ lM $ "M $ <" )( "M " " "C " "w P g last g count ( g i ( g rp B g sp B g t R ~ g c " g j g nelem g i & g np & g rp J g j V g np2 V g filenamef system/base/lalr.upstream.scm " " $ ( - 1 8 = B B L P # R R e h 0 o # q 0 r $ u ! v # 1 # > , & + / 4 8 ; E J J R V \ _ ( i " p > q $ t + w 3 $ # " P g nameg initialize-LA C h ]`4M 5N4M 5 " $ k" K$ 7M M$ MM " " "4 5 "" M$ M "" M$ " M " "NMMM MM4M5N4M5N" ( C " R( " S M M$ $ M M " " " "}M "u " M "r g temp-map g ng g sp g i ' r g ng2 ' r g symbol 4 e g s x g k g i g i g sp g x g state1 g i ! s g state2 . j g symbol 5 g g k E ` g filenamef system/base/lalr.upstream.scm ! # ' * . 3 9 4 4 ; ? H , I ' J M ! P ) X [ e j r r s x 2 x $ # " # # # 8 # & ' & ( . ( & & * + , - % - . # . 0 2 2 # 2 ! 4 . 6 ) . 6 5 7 ) 5 6 < 8 @ 8 E 9 ) E 9 N : ? O : " V ; " ] < " m 4 1 s 4 x # ~ 4 0 ) 0 V g nameg set-goto-map C h ]"" t$ +4 > " G 4> " G C M $ C $ " "MM "x g state g symbol g low z g high z g middle B z g s I z g filenamef system/base/lalr.upstream.scm ? @ B B D D D D ) D > ? F # B F B F I G I F P I T H \ K ` H c L m L r N z N z @ @ A - A A @ g nameg map-goto C hX ]`4M 5N" * M $ " $M M 4 5 " "4M 5 " M $ M M M $ " $ M M$ -M$ 4L5 " "M 4 5 "| $ 45" " "P" " " "L 6 g i : g nelem # 0 g reads I V g i O F g rowp O F g rowf ] B g stateno d ? g sp k < g j w g edges w g symbol g b g x g y g filenamef system/base/lalr.upstream.scm Q R R S S S # S 8 & 1 S ' 4 S : S B U I U O W T X X X ] Y ] Y d Z d Y k [ k Y s \ w ] z ^ ~ ^ _ ? _ & _ ` ` a " a b ) b 7 b 1 b " d ) d " f . f " # g ' g h h i 1 i ] # ] ; ' ] . j 1 j 9 j F W V k C V g nameg initialize-F C h ]:4545 " .$ " ( " "" n$ " h $ G" 7$ , " " "" " "" !$ " " "C g r-arg g n g new-end g new-R g i H g x , ? g i S g sp e g sp2 r g x | g y g i g filenamef system/base/lalr.upstream.scm | } ~ } # ) , , 5 < B H S X \ e e j n r u y | | * " - " / g nameg transpose C hP P ]" *( C M $ C "M " H g stateno I g symbol I g j 0 g stno 0 g st2 0 g s 5 ? g filenamef system/base/lalr.upstream.scm & 0 0 5 " 5 < # I I g nameg get-state C h( X ]O LL Q 4M5N" M$ " M MM " $ " M $ "4 5 " M$ " M " $ " $ $M $ " " $ M M " M4> " G 4 > " G 4> " G " M "d " z $ "M $ AM $ %M 4L 5 " " " "q M "k M" M "? " "4LMM5NC P g get-state & g i g state1 : g symbol1 : g rulep B g edges B g *rulep L g rp R g stateno R g states R g *rp W g st j g k ; g found * g i * g done ? g stp ? g rp2 ? g edgp ? g *rp W g filenamef system/base/lalr.upstream.scm % ) 2 9 . : : B E I L L R W W ] a b " j o ! v - # n $ n n o p p p q q q r s s u y * y x v v v w w w w > * o 0 o 8 o ? E H & R W + W ^ & b " g & p 2 q - t - w - x 3 } = 3 - & & + + $ $ [ & g nameg build-relations C hp ~ ](M M " X $ M" >$ .MM 4LM> " G " "M "C " v g n l g i e g sp X g LA-i , O g F-j , O g filenamef system/base/lalr.upstream.scm ! & + , , , 1 I O R X X ] c e l g nameg compute-lookaheads C h ]1MNMM M M L $ " $ y M $ 4L> " G " M M $ M M " M M 4LM> " G " " "t" M $ F" >MM MNM M $ C4LM MM> " G ""C g i g height g rp g rp2 + g j 5 g F-i g F-j g j g filenamef system/base/lalr.upstream.scm # ' + . 2 5 5 = > B C ] b c g p / q z ! ! # # 2 g nameg traverse C h ]1HHHHO LLL Q M K4M 5K4M 5K K" CM$ 8 J$ $ $ 4> " G " " "C " g relation g infinity g INDEX g VERTICES g top g traverse g i W g filenamef system/base/lalr.upstream.scm 8 ; @ C F K " N W \ ` f g k p q u v g nameg digraph C h ] M N C g rule g sym g filenamef system/base/lalr.upstream.scm g nameg add-rule-precedence! Co# hH ]SM 45 $ $ C" MM4M5 $ M " c" QM $ " J M$ M M " " M " $ " - $ " & " & " $ M& CC$ C M M$ MM" M M N M& CC $ u $ i M M$ MM" M M N M& C45C""M C g state C g symbol C g new-action C g state-actions C g actions C g current-action 2 g rule 4 g t N g sym Y f g i n g prec n g item s g i1 g sym g sym-prec g sym-assoc g rule-prec g key g n b g l g n g l g filenamef system/base/lalr.upstream.scm O P P Q P R R S " S & T * T 1 b 7 4 b ; < C D F N Y " Y ` a n " s $ s $ y & } & ( ( ) ) + 4 + + , " " " 7 ; : ; % < : < % = : = % > : > % ? % b - 1 d % 4 e 3 9 e R ; e A < e ) A f 3 D f ) O b S k & W k T X k ` ] l & b l ; b l / i m t " u ~ l M j % D D m % n 3 n R n A n ) o 3 o ) W W W W 3 W [ [ @ [ O [ [ \ \ 0 \ $ " \ B Z D D ] ^ ( ^ G ^ 6 ^ _ ( _ 6 ( _ = q 2 @ q , A q z C g nameg add-action C h8 ] " *M $ C4L > " G " " g state 7 g action 7 g i 0 g filenamef system/base/lalr.upstream.scm t u v u w * u 0 u 7 g nameg add-action-for-all-terminals C# h y ]4 > " G 6 q g message g filenamef system/base/lalr.upstream.scm I J K C hh ]pH O O LLLLLLLL L Q L Q K 4M5N" M$ " M $ L $ >" M " $ M M " t M $ g $ 4 > " G " $ " "" "y "S " sM "> $ WM $ FM& 4 > " G " 4 > " G " "" "" " M $ _" L$ A M M$ 4M> " G " " " "" " "4M > " G 4J 5M$ J 6C g conflict-messages c g add-action c g add-action-for-all-terminals c g i N / g red ` g k | G g j 9 g rule 5 g lav 5 g token g x g y g z g in-la-set? g shiftp & g k g state g symbol g filenamef system/base/lalr.upstream.scm 4 > A A y F y , H y J y N { S | W { ` } ` } h ~ l # n ~ r ~ { 0 | | $ ' $ $ 4 " ( $ ( + & " - = - - & - 9 H & 3 & ) / 9 > D G K # M Q V + Z ^ b c h 4 m # n 7 o 4 t " + # . + ! & # ) { / { 7 > C L G U G Y G a H i c g nameg build-tables C h d ])H" a$ V 4J5 45$ * $ $ " JK" " " " "" <( C $ " "J "\ g acts g accums g l j g x f g y c g l v g max v g sym v g x g filenamef system/base/lalr.upstream.scm # - 1 % 5 ; @ ) A $ B I + M % O Z ` j v | " * ' g nameg most-common-action C h ]4L 5 C g act g filenamef system/base/lalr.upstream.scm # C h ]L O 6 g acts g filenamef system/base/lalr.upstream.scm g nameg translate-terms C h ]4 5 $ L " C g x g filenamef system/base/lalr.upstream.scm / > ; 6 @ ; 1 C h ]4L 5 C g act g filenamef system/base/lalr.upstream.scm # C h ]) O Q " zM $ CM M$ <45 M$ " 44LO 55 " M4 O 5 " " g terms g most-common-action g translate-terms g i g acts ' g act : k g filenamef system/base/lalr.upstream.scm ' ' . / 3 4 : B ! H . P : S ! T ! W " f ! g h u v g nameg compact-action-table CL L h | ] 4 5C t g x g filenamef system/base/lalr.upstream.scm 3 ( 3 : 3 D 3 4 C h ]{ $ $ " $ c $ & " & " $ ( 6 45 " ( "{ $ )4 5$ 4 > " G " " 4 > " G "~ "m6$ )45$ 4 > " G " " 4 > " G "" 1$ e $ R $ >4 5 $ " 4 5 $ 6 " 6645 45 45 4 5 4 5 $ 6" Z $ 0 4L 5 45 "45 454?6 " " "E 6 6 g tokens g grammar g k g lst g rev-terms g rev-terms/prec g prec-level g term ~ g t * N g prec g v g prec v g optype v g l ~ g rev-terms ~ g rev-terms/prec ~ g term g lst g rev-nonterm-defs g def g nonterm g t g terms g terms/prec g nonterm-defs g nonterms ! g defs ; g ruleno ; g comp-defs ; g nonterm-def E r g compiled-def T r g compiled-nonterm-defs y g filenamef system/base/lalr.upstream.scm # ' * * R U % Y ] a d # g / g # j p r s v ~ # ( % 5 ! - . 2 9 J N U ` e i ( m p ~ ' % ! % - ! ( ( ! - ! $ V B R < ' - B R < ' ' - 6 ! ' ! $ , 0 4 $ 5 T 7 ; ! > % B % E & 3 E & H ' 3 T & Y + + \ , 5 c , + h - + r + s / ; y / 3 # 5 # 0 ! ! 9 ! E ! 9 ! 3 $ 3 ! 8 " " Q g nameg rewrite-grammar CL h8 ] 4L L 5 $ C4L L5 $ MC 6 g x 5 g PosInNT 5 g PosInT 5 g filenamef system/base/lalr.upstream.scm < = = > @ @ ' A , B 1 C 5 C 5 g nameg encode C L h F ] ( C 4L5 $ " 4L 5 $ 4L5C$ {& j$ Z( J4L5$ 3( %4LL4LL5> " G "cL666666 > g l g first g rest g t 6 g filenamef system/base/lalr.upstream.scm F G H I J I L L + L ) : K = M D M H N L K O O Q O & U N X P Y P ] P ` Q e P f R k R ! p R t P z S { U U 7 U D U 7 U V W $ W X X X X X X Z Z Z Z . g nameg loop C h( ] O LLLL Q 6 g rhs ' g ruleno ' g loop ' g filenamef system/base/lalr.upstream.scm E F ' g nameg process-prec-directive C L h8 ] 4 L 5 $ " 4 L5 $ C 6 g x 2 g t $ g filenamef system/base/lalr.upstream.scm t u + u ' u < ( u . v . 2 v " 2 CL L ! "! h0 ] L$ C444 5554L 5C g j * g filenamef system/base/lalr.upstream.scm * 0 , 0 6 7 8 8 7 6 ! 6 & > ( 6 ) 0 * g nameg loop-j C# h ]lHO O LQ L LQ 45K $ 4 5 " i$ \4 5 4 5 4O > " G " s$ h& V $ " "4 5 $ " $ 4 > " G " " "" "" Y4 5 444 555 O Q 4 5 " $ 4 & ' $ ""p"l"h 6 " 6 g nonterm-def g ruleno g terms g nonterms g No-NT g encode g process-prec-directive g name J g lst P g i P g rev-productions-and-actions P g rhs g g rest l g prod { g rhs g t g t g rhs-length " t g loop-j I Y g action [ t g filenamef system/base/lalr.upstream.scm 8 2 : = h > h B h C j H j $ J j J j P k S n W n X p ] p 5 b p ? g p g p l q l p o r v r / y r ) { r { p ~ t ] ^ ^ ` ` & ` a " a a b b ( b b a c ' c c ` d d d e e ] ) " & $ ( 0 ) 7 , 8 2 9 3 9 ; 8 = 7 @ * I * Z $ [ [ b g % j t t { w { { { ~ | | + { } " } { ~ . # ~ o k k m 3 k i i F i \ g nameg rewrite-nonterm-def C h8 ]" $$ $ C "C " g x 5 g lst 5 g lst * g i * g filenamef system/base/lalr.upstream.scm ( 2 ( " * 5 g nameg pos-in-list C h` C ] ( C( C $ 4L 5C$ 4L 5C " ; g L1 Y g L2 Y g x Y g y Y g filenamef system/base/lalr.upstream.scm # # ' * 1 " 3 4 : > A F J K O Y Y g nameg loop C h ] O Q 6 g lst1 g lst2 g loop g filenamef system/base/lalr.upstream.scm g nameg sunion C h@ ] ( L C L$ L CL$ 4L 5C C g l1 : g x : g filenamef system/base/lalr.upstream.scm ! ' + . 3 ! 5 6 : g nameg loop C h ] O Q 6 g elem g lst g loop g filenamef system/base/lalr.upstream.scm g nameg sinsert C h8 ] ( C 4L 5$ 4L5C " g l 2 g x 2 g y 2 g filenamef system/base/lalr.upstream.scm " ) 2 2 g nameg loop C h ] O Q 6 g p g lst g loop g filenamef system/base/lalr.upstream.scm g nameg lalr-filter C h8 ] ( C M M $ 4L 5C " g l 7 g state 7 g symbol 7 g filenamef system/base/lalr.upstream.scm 3 4 5 6 , 6 7 , 6 8 # 8 $ 9 ) % : ) * : / , : ) - 9 # 1 ; ) 7 ; # 7 g nameg loop C h8 ] $ $O L LQ 4 5 " C g shifts 3 g loop * g filenamef system/base/lalr.upstream.scm 0 1 2 3 % # ' 3 / < 2 1 3 C$ h ] 4LLO 4M 55C g filenamef system/base/lalr.upstream.scm - . / = / . g nameg build-goto-table C %Y"+,-!."/&0' "458 h ]$ u4L 5 M & " 4 4 55 4 4 554L 5CC g i g l g rest ~ g ns ~ g filenamef system/base/lalr.upstream.scm L # M ) M % N 5 O 3 O F O C O 3 N ) Q , ! Q H % Q 3 ' R 7 2 R Z 3 R W 6 R 7 ? S 7 D S O G S L H S I K S 7 N Q , O U 0 R U @ V U O Z U @ \ U 0 ^ U - ` X 1 c X A g X P k X A m X 1 o X . q Z . v Z 4 z Z . { W - | T , } P + [ ) * g nameg loop C):;/&0' h ]) M & " 45 $ "O L Q 4 5 " $ " S 4 M & " M & 45 " 45 5 C g p g act g nt g rhs # g n , g loop @ T g filenamef system/base/lalr.upstream.scm E F F G G . G H I J J " J - # J & J : , J 0 K 6 K @ L # Y \ # ] ] a ] c ^ i _ p _ / q _ w _ N { _ 9 | _ Z _ ^ ` = ` ( a , a L a , b , b > b , _ K G ( C h ]4L O 5C g gram/actions g filenamef system/base/lalr.upstream.scm A B D B g nameg build-reduction-table C<=1> h u ] 4LL > " G 6 m g filenamef system/base/lalr.upstream.scm C h8 ) ]4 5 $ O 6C ! g options 1 g code 1 g option 1 g parser-name / g file-name / g filenamef system/base/lalr.upstream.scm / 1 g nameg output-parser! C3L?L@ h0 ] 4 M 5 $ 4 5" $ 6C g option 0 g p 0 g filenamef system/base/lalr.upstream.scm " & * . 0 CABC#"D=EFGHIJKLM h0 ]14> " G " M $ " M 4M> " G 4> " G " M $ 4> " G " $ E4M$ MM" M> " G 4> " G "4> " G 4 > " G 4> " G 6 M "F " g x * g i " g v " g rlno 4 " g nt ; " g i h g v m g filenamef system/base/lalr.upstream.scm ! ! ( ! 1 ! ( # ' * 0 1 4 ; ; > E J S 9 W B \ 9 h m m t x y } " ! ! ! ! " " : * CHNOPQRS h b ]HM$ j4> " G 4> " G 4> " G 4> " G 4> " G " ( C M 4> " G 4> " G 4> " G 4> " G 4LLLLLLO > " G 4> " G " M( " K 4> " G & 4 > " G " U4 5$ 84M M$ MM" M > " G " 4> " G & 4 > " G " t& 4> " G " V $ *4> " G 4 > " G " $4> " G 4> " G 4> " G " "4> " G "M "4> " G 4> " G C Z g l ` j g core k j g i q j g items x j g actions j g l I g sym I g act I g n V u g filenamef system/base/lalr.upstream.scm " + / 4 = " M , ` f k k q " q x " x % 1 ! # ) - . 2 7 D N O V ) V ] a h " i r z + = C I R % d & j & j s w | Y g nameg print-states C h ]#4LO > " G 4 5 $ " N 4 5 $ & " N " 4L 5 M M 4L 5 4L 5 4 5 $ 4 4 LLLLLLLL O > " G " 4L > " G C g options g tokens g rules g option $ : g option C m g driver-type O f g gram/actions v g code g option g file-name g filenamef system/base/lalr.upstream.scm $ $ , / * 7 ; ? C C K N O U 3 Y [ 9 a E c n v | 8 L & g nameg build-driver C"DT h( ] $ 4 5 $ 6CC g option # g filenamef system/base/lalr.upstream.scm m n n o o n p p # C<T h0 ] $ $4 5 $ $ 6CCC g option / g filenamef system/base/lalr.upstream.scm r s s t t s u u s % v ) v / CAU h8 ] $ &4 5 $ 4 5$ CCCC g option 1 g filenamef system/base/lalr.upstream.scm x y y z z y { { { $ y ' | * | 1 CBVX h0 ] $ %4 5 $ $ 6CCC g option 0 g filenamef system/base/lalr.upstream.scm % * 0 C 5 h - 1 3 `H1H0H/H.H-H,H+H*H)H(H'H&H%H$H#H"H!H H H H H HHHHHHHHHHHHHHH H H H H HHHHHHHH 2O 5 3O 4O 5O 6O 7O 8O 9 O : O ; O < O = O >O ?O @O AO BO CO DO EO FO G HO IO JO KO L O M O N O O O P Q! R" S# T$O U%O V& W" " n^$ _^ __$ H4'_5$ 14(_J15$ _[\]^ ^ ] \ ["Z[_^6Z[_^6Z[_^6)*^6Y ^ ] \ ["+O XO45 9?MN 0/,-*)('&%$#"! Q 3 Q 4 Q 5RS Q 6R6 Q 7 Q 8>:= $%(8!" 7 Q 9(S Q : <Q ;" # Q < ; Q =&'Q >JKIGEDCBA@* Q ?! Q @$ Q A& Q BQ C* Q D$) Q EQ F F K*)Q GH F )Q I *2Q J2*)Q K-Q L/0,-.#+ Q M TQ NPQ OLQQ P Q U+Q V0 /!WVU3+.1Q XKKKKKKKKK K K K K KKKKKKKKKKKKKKK K K K K K!K"K#K$K%K&K'K(K)K*,K+K,K- K.K/K0-./01234 K1 X Z Y"g g arguments g rrhs : g rlhs : g ritem : g nullable : g derives : g fderives : g firsts : g kernel-base : g kernel-end : g shift-symbol : g shift-set : g state-table : g acces-symbol : g reduction-table : g shift-table : g consistent : g lookaheads : g LA : g LAruleno : g lookback : g goto-map : g from-state : g to-state : g includes : g F : g action-table : g nitems : g nrules : g nvars : g nterms : g nsyms : g nstates : g first-state ! : g last-state " : g final-state # : g first-shift $ : g last-shift % : g first-reduction & : g last-reduction ' : g nshifts ( : g ngotos ) : g token-set-size * : g driver-name + : g the-terminals/prec , : g rule-precedences - : g expected-conflicts . : g the-terminals / : g the-nonterminals 0 : g *valid-options* 1 : g lst Y { g proc Z { g options [ g tokens \ g rules ] g lst ^ g p _ g bit-union 2 g gen-tables! 3 g pack-grammar 4 g set-derives 5 g set-firsts 6 g set-fderives 7 g closure 8 g generate-states 9 g new-itemsets : g get-state ; g new-state < g append-states = g save-reductions > g lalr ? g set-accessing-symbol @ g set-shift-table A g set-reduction-table B g set-max-rhs C g initialize-LA D g set-goto-map E g map-goto F g initialize-F G g transpose H g build-relations I g compute-lookaheads J g digraph K g add-rule-precedence! L g build-tables M g compact-action-table N g rewrite-grammar O g rewrite-nonterm-def P g pos-in-list Q g sunion R g sinsert S g lalr-filter T g build-goto-table U g build-reduction-table V g output-parser! W g build-driver X `g filenamef system/base/lalr.upstream.scm { " 2 l l q q w w ~ ~ k . C h r ] 4 5 L 4?6j g args g v g filenamef system/base/lalr.upstream.scm CGH h( p ] 4 5 $ O @ 6 h g y ' g tmp ' g filenamef system/base/lalr.upstream.scm ' C5RT h ]B & " 4 5& " 45 & " 4 5& " 45 & " 4 5& " 45$ 45$ t45$ d45$ T45$ D $ " , $ " $ " " " " " $ e & " 4 5 & " 4 5 & " 4 5 C$ o & " 4 5 & " 4 5 & " 4 5 C & " 4 5 & " 4 5 & " 4 5 CC g src-location-1 g src-location-2 g offset-1 n g offset-2 n g length-1 n g length-2 n g t g t g t g input g line g column g input g line g column g length g input g g line g g column g g length g g filenamef system/base/lalr.upstream.scm ; V n y - - ( % * ( / 3 6 ! P ! j ! ! ! ! $ ! ! - ! G ! d $ g ! g 1 g nameg combine-locations CYR ZR[ hP ) ]4 4M 5 5 " $ M "" 4M 5 " N C ! g new-stack K g i 7 g filenamef system/base/lalr.upstream.scm - . . ' . " . . / 0 0 ) 2 ' * 2 - 3 3 3 7 / 8 / ? / E / I 4 K g nameg ___growstack C[ h ] M4M5$ L 6 C g filenamef system/base/lalr.upstream.scm 6 7 7 7 8 g nameg ___checkstack CU hX { ]M NMM 4L5 M N4L > " G MMMM45C s g delta Q g new-category Q g lvalue Q g tok Q g state Q g new-state Q g filenamef system/base/lalr.upstream.scm : ; ; ; < < = = / = = < ' > ) > * ? @ @ E A F A ( O A Q g nameg ___push C h r ] N C j g filenamef system/base/lalr.upstream.scm & ' g nameg ___pushback C h ]L MMLLL O 6 g st g filenamef system/base/lalr.upstream.scm C D D g nameg ___reduce C h0 ]M N4L> " G M MM M C g token * g attribute * g filenamef system/base/lalr.upstream.scm F G G H I ! I ( J * g nameg ___shift CL hP O ]" B $ NCM 4L5 $ NL 6 "M "G g tok P g sp H g state H g act ' H g filenamef system/base/lalr.upstream.scm P Q R R S T T U U % U & ' U ' T / V 3 X 8 Y = Y B Z H Z H Q P g nameg ___recover C PV h G ]4L 5 M N4L> " G MM MM " M $ & " " & NC45$ 4L 5 MMMMCM$ M" 4M5 NNMN"~"z ? g state g tok g sync-set g tok A f g i f g act g filenamef system/base/lalr.upstream.scm \ ] ] " ] ] ] ^ ^ _ / ` 1 ` 8 a ; a ? b A c F o J o M o W p f c l d p d t e w f f g g & g g h * h i 0 i " " 4 " # $ l b ) g nameg ___sync CP\]^ h 7 ] " M $ 4MM M $ & " " L 45 $ " $ & M C& \& 4M> " G C4MM > " G 4L> " G M $ N " NN "% $ )4LM > " G & " N "4L > " G "4MM > " G CMM L $ " 4 5$ > $ 4L > " G " M $ M " 4M5 N N M N " M $ M " 4M5 N N M N "<"8 / g state @ g tok : g i : @ g l A g g y L d g act g @ g state E g acts L g defact _ g filenamef system/base/lalr.upstream.scm s t u v v w o o ! o + p : v A x % A x D M L M T N W N _ N g v l z p z t x z | z $ $ . z - " 5 * + { / { 6 { E E L L Q U X * _ c j n r ) v w z " " 4 " # $ " " 4 " # $ t V g nameg ___run CZ h ]N N4 5N NL 6 g lexerp g errorp g filenamef system/base/lalr.upstream.scm * * + C h % ]{H HHHHHHO O O O O O O O Q Q Q Q Q Q Q Q KKK KKKK O C g action-table g goto-table g reduction-table g ___lexerp g ___errorp g ___stack g ___sp g ___curr-input g ___reuse-input g ___input g ___growstack w g ___checkstack w g ___push w g ___reduce w g ___shift w g ___recover w g ___sync w g ___run w g filenamef system/base/lalr.upstream.scm g nameg lr-driver C"RP_`U h8 ] 4 5 4L 5 45C { g delta 4 g new-category 4 g lvalue 4 g stack 4 g tok 4 g stack 4 g state 4 g new-state " 4 g filenamef system/base/lalr.upstream.scm " . ! " " ' 2 3 4 g nameg push C h0 ]I" $ " $ & "& "4 5 M N " $ 'M MN " 4L LLO 5 "U "3L 4L5 $ " "$ 45 "C " g process - g stacks g active-stacks g stack g state g actions g active-stacks g action ( g other-actions ( g parse R ^ g symbol t g new-stack g state g new-stack g action-list g pair g filenamef system/base/lalr.upstream.scm $ $ " % 1 ( 1 ( 0 1 4 @ % D 1 H I 5 R 0 R % Y [ j % n % r t 6 } ~ % % > 6 % B & " K 7 2 $ % = - ? - C h ] NNNNMN" {4M5 NM $ & " " 4M5 N4LL LLLLO > " G 4M5$ "" "MC g lexerp g errorp g tok # H g symbol H g processes Q ~ g filenamef system/base/lalr.upstream.scm # ! # ( , / 9 H K Q T V W C h0 $ ]#HHHHKKKK O C g action-table . g goto-table . g reduction-table . g ___lexerp . g *input* . g *processes* . g *parses* . g filenamef system/base/lalr.upstream.scm . g nameg glr-driver C#R` h( ] $ $ 6 C C g l ! g n ! g filenamef system/base/lalr.upstream.scm ( ) ) ) ) * * * ! g nameg drop C`R` h ] 4 56 g l g n g filenamef system/base/lalr.upstream.scm . / / / g nameg take-right C_RaT h` ] & " 4 5 & " 4 5 & " 4 5 C g loc ^ g filenamef system/base/lalr.scm / 0 0 0 $ 1 < 0 A 2 Z 0 ^ g nameg "source-location->source-properties C!RC ~ g m , g rtd { g rtd $g $ g filenamef system/base/lalr.scm g filenamef system/base/lalr.upstream.scm . 1 2 N G O b Q i R V x !* ( ( > I J ( K} . g filenamef system/base/lalr.scm L / L C6 PK \;m language.gonu [ GOOF----LE-8-2.0 ] l 4 h$ ] g guile g define-module* g system g base g language g filenameS f system/base/language.scm g importsS g syntax g exportsS g define-language g language? g lookup-language g make-language g language-name g language-title g language-reader g language-printer g language-parser g language-compilers g language-decompilers g language-evaluator g language-joiner g language-for-humans? g !language-make-default-environment !g lookup-compilation-order "g lookup-decompilation-order #g invalidate-compilation-cache! $g default-environment %g *current-language* & !"#$% 'g re-exportsS (g current-language )( *g set-current-module +* ,* -g make-record-type .f <language> /g name 0g title 1g reader 2g printer 3g parser 4g compilers 5g decompilers 6g evaluator 7g joiner 8g for-humans? 9g make-default-environment :/0123456789 ;g <language> <g make-fresh-user-module =g record-constructor >g %compute-initargs ?g record-predicate @g make-procedure-with-setter Ag record-accessor Bg record-modifier Cg make-syntax-transformer DC EC Fg macro Gg $sc-dispatch HG IG Jg _ Kg any LJK Mg syntax->datum NM OM Pg datum->syntax QP RP Sg begin T# Ug define Vg nameS Wg quote Xg syntax-violation YX ZX [f -source expression failed to match any pattern \g resolve-module ]g spec ^] _g module-bound? `g module-ref ag error bf no such language cg *compilation-cache* dg *decompilation-cache* eg reverse! fg memq gg or-map hg compute-translation-order ig assoc-ref jg and=> kg parameter-fluidC 5 h ]4 &')5 4, > " G 4-i.:5;R/01234 5 6789<i 4=i;i5 > h . - 1 3 L4 L 5@ & g args C O R4?i;i5R4@i4Ai;i/54Bi;i/55R4@i4Ai;i054Bi;i055R4@i4Ai;i154Bi;i155R4@i4Ai;i254Bi;i255R4@i4Ai;i354Bi;i355R4@i4Ai;i454Bi;i455R4@i4Ai;i554Bi;i555 R4@i4Ai;i654Bi;i655 R4@i4Ai;i754Bi;i755 R4@i4Ai;i854Bi;i855 R4@i4Ai;i954Bi;i955 R4EFILORSTUVW h( x - 1 3 Cp g name ( g spec ( g filenamef system/base/language.scm 7 8 ( C h l ] 4 5 L 4?6d g args g v g filenamef system/base/language.scm 7 CZ[ h( j ] 4 5 $ O @ 6 b g y ' g tmp ' g filenamef system/base/language.scm 7 ' C5R\^_`ab h0 ] 4 5 4 5$ 6 6 g name . g m . g filenamef system/base/language.scm < = = = = > > & ? * @ . @ . g nameg lookup-language CRcRdRdc h ] C g filenamef system/base/language.scm E F F G G g nameg invalidate-compilation-cache! C#Refg h ~ ]L L L6 v g pair g filenamef system/base/language.scm T U U 2 U & U C hX ]4 5$ 3 L & 64 5$ C LO 4L 564 5 " g from Q g seen Q g filenamef system/base/language.scm N P O R S ( O 8 V @ T A Q Q Q Q g nameg lp Ch h8 ] 45$ O Q 6 456 g from 6 g to 6 g language-translators 6 g lp ' g filenamef system/base/language.scm I K J N % N ' N , L $ 6 L 6 g nameg compute-translation-order ChRich h8 ] 45 $ C4 5 C g from 7 g to 7 g key 7 g t 7 g order ( 7 g filenamef system/base/language.scm X Y Y Z Z [ ( [ / ] 4 \ 7 g nameg lookup-compilation-order C!Ridjh e h@ ] 45 $ C44 55 C g from > g to > g key > g t > g order / > g filenamef system/base/language.scm ` a a b b d ! e / d / d 6 g & ; g > g nameg lookup-decompilation-order C"R h( ]44 5$ " 4 556 g lang ! g filenamef system/base/language.scm j l m m m l ! l ! g nameg default-environmentg documentationf DReturn the default compilation environment for source language LANG. C$R4ki(i5%RC g m 0 g slots u g constructor u g filenamef system/base/language.scm > * O 0 T 1 * < B B C C o E I X j ` j v v C6 PK \N A8 A8 compile.gonu [ GOOF----LE-8-2.0)8 ] 4 h ] g guile g define-module* g system g base g compile g filenameS f system/base/compile.scm g importsS g syntax g language g message g vm g ice-9 g regex g optargs g receive ! "! # " $g exportsS %g compiled-file-name &g compile-file 'g compile-and-load (g read-and-compile )g decompile *%&'() +g set-current-module ,+ -+ .g error /f "thunk may only be entered once: ~a 0g call-once 1g string-append 2f .XXXXXX 3g mkstemp! 4f wb 5g with-throw-handler 6g catch 76 86 9g stat:perms :g stat ;g lognot <g umask =g chmod >g close-port ?g rename-file @g delete-file Ag call-with-output-file/atomic Bg language? Cg lookup-language Dg ensure-language Eg system-error Fg mkdir Gg EEXIST Hg ENOENT Ig ensure-directory Jg dirname Kg throw Lg %compile-fallback-path Mg canonicalize-path Ng string-prefix? Of / Pg string-length Qg string-ref Rg substring Sg %load-compiled-extensions Tg string-null? Ug warn Vf !invalid %load-compiled-extensions Wf .go Xg output-fileS YX Zg fromS [Z \g toS ]\ ^g envS _^ `g optsS a` bg canonicalizationS cb dY[]_ac eg current-language fg objcode gg default-environment hg relative ig %file-port-name-canonicalization jf ,failed to create path for auto-compiled file kg open-input-file lg file-encoding mg set-port-encoding! nf UTF-8 og language-printer pZ q\ r^ s` tb upqrst vg value wg current-module xg map yg cdr zg lookup-compilation-order {f no way to compile |f to }g compile-passes ~g compile-fold g language-joiner g reverse g find-language-joint f BMultiple expressions read and compiled, but language has no joiner g default-language-joiner g language-reader g eof-object? g language-parser g read-and-parse pqrs g parameter? g scm-error g wrong-type-arg f parameterize f Not a parameter: ~S g memq g warningsS g for-each g lookup-warning-type g warning g unsupported-warning g lookup-decompilation-order f no way to decompile g decompile-passes g decompile-fold ^ []s g assemblyC 5 hp+ ]4 #$*5 4- > " G ./ h( r ] M$ 4L > " G " NC j g filenamef system/base/compile.scm + , - - - # . % C h J ] C B g filenamef system/base/compile.scm 0 C./ h( r ] M$ 4L > " G " NC j g filenamef system/base/compile.scm + , - - - # . % C hX ] H O 4 O > " G V4 > X4> " G CX4> " G F g thunk T g entered T g filenamef system/base/compile.scm ( ) * T g nameg call-once C0R12340589: h Z ] 4L 56 R g filenamef system/base/compile.scm = = < = 0 C h _ - 1 3 C W g args g filenamef system/base/compile.scm = C;<=>? hx ]4LL> " G 4LO 5 $ " 445 5 4L > " G 4L> " G LL 6 g t # > g perms > [ g filenamef system/base/compile.scm 9 : = # = 2 > 5 > $ ; > > = A ? K ? P ? \ @ u A u C>@ h( o - 1 3 4L> " G L 6 g g args ! g filenamef system/base/compile.scm B C ! D ! C h R ] L LLLLO LLO 6 J g filenamef system/base/compile.scm 7 8 C h@ " - . , 3 # 4 5 45 O 6 g filename > g proc > g reference > g template > g tmp ) > g filenamef system/base/compile.scm 3 4 4 + 4 4 ! 5 ' 5 ! ) 5 ) 4 > 6 > g nameg call-with-output-file/atomic CARBC h ]4 5$ C 6 g x g filenamef system/base/compile.scm F G G I g nameg ensure-language CDR6EF h R ] L 6J g filenamef system/base/compile.scm Q R CGHIJK hX ] $ " $ C$ 44L 5> " G L 6 6 g k R g subr R g fmt R g args R g rest R g errno R g filenamef system/base/compile.scm S T T T % T V U # Z ' U ( [ + [ 6 [ D \ R ^ R C h ] O O 6 g dir g filenamef system/base/compile.scm O P P g nameg ensure-directory CIRL1MNOPQRSTUVW8IJ h ] ] 4L 56 U g filenamef system/base/compile.scm 4 " C h ` - 1 3 C X g args g filenamef system/base/compile.scm C h ] $ 44 5 45$ " B45 $ 24 5:$ 44 54 55" " $ " 4 5 $ 4 > " G " 5 4O 5$ CCC g file g canon n g t q g f g filenamef system/base/compile.scm l ~ $ q q q # p * r 3 r 7 p 8 s B s F r G u K u L u U u / _ u q x q x y y y x z z z | } $ g nameg compiled-file-name C%Rdefghi%.jklmnIJAoD(^Z\` h0 ]44L554L LLLL5 6 g port ) g filenamef system/base/compile.scm ) ) C h - / 0 3 # # 45 # # 45 # # Y$ " !4 5 $ " 4 5 4 5 4 5 4 $ " > " G 445> " G 4O > " G ZCZF ~ g file g output-file g from g to g env g opts g canonicalization g t n g comp g in g enc g filenamef system/base/compile.scm # 1 : I S ) a h ! n } % g output-fileS g fromS g toS g envS g optsS g canonicalizationS g nameg compile-file C&Ruevwhi(kZ\`^ hx n - / 0 3 # 45 # # 45 # # Y44 5 > ZCZF f g file s g from s g to s g env s g opts s g canonicalization s g filenamef system/base/compile.scm , ( D 1 > 8 H - Q T o s g fromS g toS g envS g optsS g canonicalizationS g nameg compile-and-load C'Rxyz.{| h0 ] 4 5 $ " 4 5 6 g from / g to / g opts / g t - g filenamef system/base/compile.scm " & + * / / g nameg compile-passes C}R hP 8 ] ( D4 L > G $ " " 0 g passes M g x M g e M g cenv M g first? M g x M g e M g new-cenv M g filenamef system/base/compile.scm ! # , 6 M M g nameg lp C h ] O Q 6 g passes g exp g env g opts g lp g filenamef system/base/compile.scm g nameg compile-fold C~Rz.{| hh W ]" &( C45$ C "44 5 $ " 4 5 5 " O g from b g to b g in , g lang , g t 8 V g filenamef system/base/compile.scm # , , - 0 8 G K # O < S X b b g nameg find-language-joint CR. h( ]" L 6 $ ( C""ޯ g exps ( g env ( g filenamef system/base/compile.scm ! ( C h ] O C y g lang g filenamef system/base/compile.scm g nameg default-language-joiner CR h8 ]44 55 45$ C4 5 $ 6C g lang 8 g port 8 g cenv 8 g exp 8 g t ' 8 g filenamef system/base/compile.scm ! ' 5 0 8 g nameg read-and-parse CRefgDe>Z\^g`~} h ]#445 L5 45$ b4L> " G 44L5 $ " 4L5 4 55 L L $ " 4 L5 L6 4445 LL5L> G "J g exps g env g cenv g x g t 9 Q g jexp g jenv g jcenv g filenamef system/base/compile.scm # 2 3 9 H R \ l s % 0 g nameg lp C h - / 0 3 # 45 # # 45 # 4545 45 45$ " 4 > " G 4 5Y O Q 4 > ZCZF g port g from g to g env g opts g from P g to P g joint ] g t-3ee4cd0d75-1ff a g lp g filenamef system/base/compile.scm ! ( 1 @ ! C J P U ] a g fromS g toS g envS g optsS g nameg read-and-compile C(Revg h ] 4 5 $ C 6 g w g t g filenamef system/base/compile.scm # C~} h - / 0 3 # 45 # # 45 # 45 $ ! 4> " G " 4 4 5 > G C g x g from g to g env g opts g warnings K x g warnings X q g exp g env g cenv g filenamef system/base/compile.scm ( 1 @ C K P T W X [ y | g fromS g toS g envS g optsS g nameg compile CRxy.| h0 ] 4 5 $ " 4 5 6 g from / g to / g opts / g t - g filenamef system/base/compile.scm " & - * / / g nameg decompile-passes CR h8 ] ( D4 > G 6 g passes 2 g exp 2 g env 2 g opts 2 g exp 2 g env 2 g filenamef system/base/compile.scm ! * 2 2 g nameg decompile-fold CRv hP - / 0 3 # # # # 45 6 g x N g env N g from N g to N g opts N g filenamef system/base/compile.scm $ . 7 < N N g envS g fromS g toS g optsS g nameg decompile C)RC g m , g filenamef system/base/compile.scm ( 3 F c O ) l r h # 'L ( ) +n +p C6 PK \ types.gonu [ GOOF----LE-8-2.0 ] 4 h ] g guile g define-module* g system g base g types g filenameS f system/base/types.scm g importsS g rnrs g bytevectors g io g ports g srfi g srfi-1 g srfi-9 g gnu g srfi-11 ! "g srfi-26 #" $# %g srfi-60 &% '& (g ice-9 )g match *() +* ,g iconv -(, .- /g format 0(/ 10 2g vlist 3(2 43 5g foreign 65 76 8 !$'+.147 9g exportsS :g %word-size ;g memory-backend <g memory-backend? =g %ffi-memory-backend >g dereference-word ?g memory-port @g type-number->name Ag inferior-object? Bg inferior-object-kind Cg inferior-object-sub-kind Dg inferior-object-address Eg inferior-fluid? Fg inferior-fluid-number Gg inferior-struct? Hg inferior-struct-name Ig inferior-struct-fields Jg scm->object K:;<=>?@ABCDEFGHIJ Lg set-current-module ML NL Og sizeof Pg * Qg <memory-backend> Rg %memory-backend-procedure Sg make-syntax-transformer TS US Vg macro Wg $sc-dispatch XW YW Zg _ [g any \Z[[[ ]g syntax-object ^g lambda _g m-1f6d4c535-6 `g top a_` bg ribcage cg t-1f6d4c535-3 dg t-1f6d4c535-4 eg t-1f6d4c535-5 fcde gaaa hf l-1f6d4c535-b if l-1f6d4c535-c jf l-1f6d4c535-d khij lbfgk mb ng x on pa qf l-1f6d4c535-8 rq sbopr tg shift ug proc-name vg args wuv x` yxx zf l-1e8ba8b5a-60 {f l-1e8ba8b5a-61 |z{ }bwy| ~g key g value g name g formals g body ~ xxxxx f l-1e8ba8b5a-53 f l-1e8ba8b5a-54 f l-1e8ba8b5a-55 f l-1e8ba8b5a-56 f l-1e8ba8b5a-57 b g make-procedure-name x f l-1e8ba8b5a-43 b x f l-1e8ba8b5a-42 bo almstmmmm} g hygiene ]^ g peek xlms ] g open ] g type-name ] g make-struct g m-1f6d4c535-1 ` g t-1e8ba8b5a-133 g t-1e8ba8b5a-132 g t-1e8ba8b5a-131 g m-1e8ba8b5a-134 ` f l-1e8ba8b5a-138 f l-1e8ba8b5a-139 f l-1e8ba8b5a-13a b g ctor-args f l-1e8ba8b5a-120 b g ctor g field f l-1e8ba8b5a-11c f l-1e8ba8b5a-11d by g form g constructor-spec g field-names xxxx f l-1e8ba8b5a-111 f l-1e8ba8b5a-112 f l-1e8ba8b5a-113 f l-1e8ba8b5a-114 b g record-layout g functional-setters g setters g copier g getters g constructor g getter-identifiers g field-identifiers xxxxxxxx f l-1e8ba8b5a-e9 f l-1e8ba8b5a-e7 f l-1e8ba8b5a-e5 f l-1e8ba8b5a-e3 f l-1e8ba8b5a-e1 f l-1e8ba8b5a-df f l-1e8ba8b5a-dd f l-1e8ba8b5a-db b f l-1e8ba8b5a-da bo lmstmmmmm ] ]Q ] g each-any Z挤 g syntax-violation f Wrong number of arguments g identifier? xms ]R f -source expression failed to match any pattern g record-type-vtable g pwpwpw g default-record-printer g set-struct-vtable-name! g vtable-offset-user g %memory-backend?-procedure Z[ g m-1f6d4c535-17 ` g t-1f6d4c535-16 f l-1f6d4c535-1c b f l-1f6d4c535-19 bo mtmmmm} ]^ g obj g t-1e8ba8b5a-224 g t-1e8ba8b5a-21e g t-1e8ba8b5a-21f g t-1e8ba8b5a-220 g t-1e8ba8b5a-223 g t-1e8ba8b5a-222 g t-1e8ba8b5a-221 g m-1e8ba8b5a-225 ` f l-1e8ba8b5a-229 f l-1e8ba8b5a-22a f l-1e8ba8b5a-22b f l-1e8ba8b5a-22c !f l-1e8ba8b5a-22d "f l-1e8ba8b5a-22e #f l-1e8ba8b5a-22f $ !"# %b $ &g copier-id '& (f l-1e8ba8b5a-21c )( *b') +g ctor-name ,+ -f l-1e8ba8b5a-214 .- /b,. 0 1f l-1e8ba8b5a-212 21 3b02 4g layout 54 6f l-1e8ba8b5a-210 76 8b57 9g immutable? :9 ;f l-1e8ba8b5a-20e <; =b:< >g field-count ?> @f l-1e8ba8b5a-20c A@ Bb?A Cg getter-ids DC Ef l-1e8ba8b5a-209 FE GbDF Hg field-ids IH Jf l-1e8ba8b5a-206 KJ LbIK Mg predicate-name Ng field-spec O9MN Pxxxxxx Qf l-1e8ba8b5a-1f9 Rf l-1e8ba8b5a-1fa Sf l-1e8ba8b5a-1fb Tf l-1e8ba8b5a-1fc Uf l-1e8ba8b5a-1fd Vf l-1e8ba8b5a-1fe WQRSTUV XbOPW Y mtm%mmmm*m/m3m8m=mBmGmLX Z]Y [Z \g and ]]\Y ^g struct? _]^Y `_Z ag eq? b]aY cg struct-vtable d]cY edZ fx m g]Qf hbeg i]`h j[i kxm l]k mg throw-bad-struct nm om pg memory-backend-peek qg %memory-backend-peek-procedure rg free-id sg %%on-error tg m-1f6d4c535-23 ut` vu wf l-1f6d4c535-25 xw ybovx zumytmmmm} {]sz |r{ }|[ ~g %%type g t-1e8ba8b5a-14b g t-1e8ba8b5a-14c g t-1e8ba8b5a-14d g t-1e8ba8b5a-14e g t-1e8ba8b5a-14f g t-1e8ba8b5a-150 g t-1e8ba8b5a-151 g m-1e8ba8b5a-152 ` f l-1e8ba8b5a-156 f l-1e8ba8b5a-157 f l-1e8ba8b5a-158 f l-1e8ba8b5a-159 f l-1e8ba8b5a-15a f l-1e8ba8b5a-15b f l-1e8ba8b5a-15c b g getter g index f l-1e8ba8b5a-149 f l-1e8ba8b5a-14a by C& xxx f l-1e8ba8b5a-144 f l-1e8ba8b5a-145 f l-1e8ba8b5a-146 b mytmmmmm ]~ r Z}[ g ck g err g s uu f l-1f6d4c535-28 f l-1f6d4c535-29 b umytmmmm} ] g quote ] xmy ]Q g %%index ] r Z}[ f l-1f6d4c535-2d f l-1f6d4c535-2e b umytmmmm} ] ] my ] g %%copier ] r Z}[ f l-1f6d4c535-32 f l-1f6d4c535-33 b umytmmmm} ] ] g %%<memory-backend>-set-fields xmy ] g t-1f6d4c535-22 f l-1f6d4c535-37 bv umytmmmm} ]^ mytmmmmm ] g if ] ]a ]c xmy ]Q g struct-ref ] my ] ]m ] ]p xmy ]q g memory-backend-open g %memory-backend-open-procedure g m-1f6d4c535-3e ` f l-1f6d4c535-40 bo mtmmmm} ]s r [ mtmmmmm ]~ r Z [ f l-1f6d4c535-43 f l-1f6d4c535-44 b mtmmmm} ] ] x m ]Q ] r Z [ f l-1f6d4c535-48 f l-1f6d4c535-49 b mtmmmm} ] ] m ] ] r !Z [ "f l-1f6d4c535-4d #f l-1f6d4c535-4e $"# %b$ &%mtmmmm} ']& (]& )x%m *]) +(* ,+ -g t-1f6d4c535-3d .- /f l-1f6d4c535-52 0/ 1b.0 21mtmmmm} 3]^2 41mtmmmmm 5]4 65 7]4 8]a4 9]c4 :95 ;x1m <]Q; =8:< >]4 ?1m @] ? A>5@ B]m4 C]4 D]; ECD FB5E G7=AF H36G Ixm J]I Kg memory-backend-type-name Lg #%memory-backend-type-name-procedure Mg m-1f6d4c535-59 NM` ON Pf l-1f6d4c535-5b QP RboOQ SNmRtmmmm} T]sS UrT VU[ WmRtmmmmm X]~W YrX ZZVY[ [NN \f l-1f6d4c535-5e ]f l-1f6d4c535-5f ^\] _b[^ `N_mRtmmmm} a]` b]` cx_mR d]Qc ebd fe g]W hrg iZVh[ jf l-1f6d4c535-63 kf l-1f6d4c535-64 ljk mb[l nNmmRtmmmm} o]n p]n qmmR r] q spr ts u]W vru wZVv[ xf l-1f6d4c535-68 yf l-1f6d4c535-69 zxy {b[z |N{mRtmmmm} }]| ~]| x{mR ] ~ g t-1f6d4c535-58 f l-1f6d4c535-6d bO NmRtmmmm} ]^ mRtmmmmm ] ] ]a ]c xmR ]Q ] mR ] ]m ] ]K xmR ]L g each [[ [ [ [ g %%set-fields g dummy g check? g expr g m-1f6d4c535-74 ` f l-1f6d4c535-79 f l-1f6d4c535-7a f l-1f6d4c535-7b f l-1f6d4c535-7c f l-1f6d4c535-7d b f l-1f6d4c535-76 bo g t-1e8ba8b5a-16a g t-1e8ba8b5a-16c g t-1e8ba8b5a-16b g m-1e8ba8b5a-16d ` f l-1e8ba8b5a-171 f l-1e8ba8b5a-172 f l-1e8ba8b5a-173 b f l-1e8ba8b5a-167 f l-1e8ba8b5a-168 f l-1e8ba8b5a-169 b mtmmmm ] xm ]Q ]p ] ]K g map g list g make-pointer g pointer->bytevector g bytevector-uint-ref g native-endianness g open-bytevector-input-port g make-custom-binary-input-port f ffi-memory g bytevector-copy! g setvbuf g _IONBF g % dereference-word-procedure Z[[ g syntax-parameterize g m-1f6d4c535-c6 ` g t-1f6d4c535-c4 g t-1f6d4c535-c5 f l-1f6d4c535-cb f l-1f6d4c535-cc b f l-1f6d4c535-c8 bo f l-bde397a-1eaf f l-bde397a-1eb0 bwy f l-bde397a-1ea6 f l-bde397a-1ea7 f l-bde397a-1ea8 b g prefix xx f l-bde397a-1e9a f l-bde397a-1e98 b f l-bde397a-1e97 bo mtmmmm ] xm ]> g identifier-syntax ] ] ]^ g backend ] g address ] f *Return the word at ADDRESS, using BACKEND. ] g let ] ] ]p ! "! #" $ % &xm ']& ([[[ ) *g m-1f6d4c535-e9 +*` ,+xx -f l-1f6d4c535-ee .f l-1f6d4c535-ef /f l-1f6d4c535-f0 0-./ 1b),0 2+ 3f l-1f6d4c535-eb 43 5bo24 6x1m5 7]6 8]6 9]6 :]6 ;: <[[[[ =g size >= ?+xxx @f l-1f6d4c535-f5 Af l-1f6d4c535-f6 Bf l-1f6d4c535-f7 Cf l-1f6d4c535-f8 D@ABC Eb>?D FxEm5 G]F Hg zero? I]HF J]F K]F Lg vu8 j M]LF NKM OJN P]F Q]F R]F Sg get-bytevector-n Tg get-word Ug % type-number->name-procedure Vg m-1f6d4c535-104 WV` Xg t-1f6d4c535-101 Yg t-1f6d4c535-102 Zg t-1f6d4c535-103 [XYZ \WWW ]f l-1f6d4c535-109 ^f l-1f6d4c535-10a _f l-1f6d4c535-10b `]^_ ab[\` bW cf l-1f6d4c535-106 dc ebobd fWametmmmm g]f hxame i]@h j] f k]Uh ljk mil nm o]^f p]h qg kind r]qh sg number t]sh uprt vf yReturn the name of the type NUMBER of KIND, where KIND is one of 'smob or 'port, or #f if the information is unavailable. w]vh x]h yg proc z]yh {]Kh |{p }z| ~} ]\h zrt z x~ ouw gn xme ]U g match-cell-words g bytevector g m-1f6d4c535-12d ` f l-1f6d4c535-12f bo xm ] r [[ 挤 [[[ g port g len g rest xxxxx f l-1f6d4c535-132 f l-1f6d4c535-133 f l-1f6d4c535-134 f l-1f6d4c535-135 f l-1f6d4c535-136 f l-1f6d4c535-137 b xm ] ]S g remainder ] g modulo ] ]: g unless ] ]H g - ] ] [挤 [[[ xxxx f l-1f6d4c535-140 f l-1f6d4c535-141 f l-1f6d4c535-142 f l-1f6d4c535-143 f l-1f6d4c535-144 b xm ] ]T ] [[[ g match-bit-pattern g || g m-1f6d4c535-152 ` f l-1f6d4c535-154 bo xm ] r [[ g & ] r g = ] r [[ [[[[ g bits g a g b g n g c g consequent g alternate xxxxxxx f l-1f6d4c535-157 f l-1f6d4c535-158 f l-1f6d4c535-159 f l-1f6d4c535-15a f l-1f6d4c535-15b f l-1f6d4c535-15c f l-1f6d4c535-15d f l-1f6d4c535-15e b xm ] g tag ] g logand ] ] ] g bitwise-not ] [[[ [[[[ n xxxxxx f l-1f6d4c535-168 f l-1f6d4c535-169 f l-1f6d4c535-16a f l-1f6d4c535-16b f l-1f6d4c535-16c f l-1f6d4c535-16d f l-1f6d4c535-16e b xm ] ] ] ] ] ]Z r [[ [[ [[ xxxxx f l-1f6d4c535-177 f l-1f6d4c535-178 f l-1f6d4c535-179 f l-1f6d4c535-17a f l-1f6d4c535-17b f l-1f6d4c535-17c b xm ] ] ] ] ] ([ [[ [[ g << !f l-1f6d4c535-184 "f l-1f6d4c535-185 #f l-1f6d4c535-186 $f l-1f6d4c535-187 %f l-1f6d4c535-188 &f l-1f6d4c535-189 'f l-1f6d4c535-18a (f l-1f6d4c535-18b )!"#$%&'( *b ) +x*m ,]+ -]+ .g bitwise-and /].+ 0]+ 1g expt 2]1+ 3] + 4] + 54 6]+ 7]+ 8g arithmetic-shift 9]8+ :g match-cell-clauses ;[ <;挤 =[[[< >g tag-pattern ?g thing @>? Ag m-1f6d4c535-194 BA` CBxxxxxx Df l-1f6d4c535-199 Ef l-1f6d4c535-19a Ff l-1f6d4c535-19b Gf l-1f6d4c535-19c Hf l-1f6d4c535-19d If l-1f6d4c535-19e Jf l-1f6d4c535-19f KDEFGHIJ Lb@CK MB Nf l-1f6d4c535-196 ON PboMO QxLmP R]Q S]Q T]:Q U[[[ Vg inferior-object W XBxx Yf l-1f6d4c535-1aa Zf l-1f6d4c535-1ab [f l-1f6d4c535-1ac \YZ[ ]bWX\ ^x]mP _]V^ `]^ ag unmatched-tag b]a^ c`b dg match-cell e f[e g[f hg pattern ih jg m-1f6d4c535-1b0 kj` lkxxx mf l-1f6d4c535-1b5 nf l-1f6d4c535-1b6 of l-1f6d4c535-1b7 pf l-1f6d4c535-1b8 qmnop rbilq sk tf l-1f6d4c535-1b2 ut vbosu wxrmv x]w yg port* z]yw {]w |]Tw }]:w ~g begin ]~w g match-scm-clauses 挤 [ [ g bit-pattern g m-1f6d4c535-1c0 ` xxxx f l-1f6d4c535-1c5 f l-1f6d4c535-1c6 f l-1f6d4c535-1c7 f l-1f6d4c535-1c8 f l-1f6d4c535-1c9 b f l-1f6d4c535-1c2 bo xm ] ]~ ] x f l-1f6d4c535-1d2 f l-1f6d4c535-1d3 b xm ] g unmatched-scm ] g match-scm [ g clauses g m-1f6d4c535-1d6 ` xx f l-1f6d4c535-1db f l-1f6d4c535-1dc f l-1f6d4c535-1dd b f l-1f6d4c535-1d8 bo xm ] g bits* ] ] g %tc2-int g %tc3-imm24 g %tc3-cons g %tc3-int1 g %tc3-int2 g %tc8-char g %tc8-flag g %tc3-struct g %tc7-symbol g %tc7-variable g %tc7-vector g %tc7-wvect g %tc7-string g %tc7-number g %tc7-hashtable g %tc7-pointer g %tc7-fluid g %tc7-stringbuf g %tc7-dynamic-state g %tc7-frame g %tc7-objcode g %tc7-vm g %tc7-vm-continuation g %tc7-bytevector g %tc7-program g %tc7-array g %tc7-bitvector g %tc7-port g %tc7-smob g %tc16-bignum g %tc16-real g %tc16-complex g %tc16-fraction g <stringbuf> g %stringbuf-procedure g stringbuf g m-1f6d4c535-1e6 ` g t-1f6d4c535-1e5 f l-1f6d4c535-1eb b f l-1f6d4c535-1e8 bo mtmmmm} ]^ g string xm ] g m-1f6d4c535-1e3 ` mtmmmmm ] ] ] xm ] g pw g %stringbuf?-procedure g stringbuf? g m-1f6d4c535-1f3 ` g t-1f6d4c535-1f2 f l-1f6d4c535-1f8 b f l-1f6d4c535-1f5 bo mtmmmm} ]^ mtm%mmmm*m/m3m8m=mBmGmLX ] ]\ ]^ ]a ]c xm ] xm ] g stringbuf-contents g %stringbuf-contents-procedure g m-1f6d4c535-1ff ` f l-1f6d4c535-201 bo m tmmmm} !]s "r! #"[ $m tmmmmm %]~$ &r% 'Z#&[ ( )f l-1f6d4c535-204 *f l-1f6d4c535-205 +)* ,b(+ -,m tmmmm} .]- /]- 0x,m 1]0 2/1 32 4]$ 5r4 6Z#5[ 7f l-1f6d4c535-209 8f l-1f6d4c535-20a 978 :b(9 ;:m tmmmm} <]; =]; >:m ?] > @=? A@ B]$ CrB DZ#C[ Ef l-1f6d4c535-20e Ff l-1f6d4c535-20f GEF Hb(G IHm tmmmm} J]I K]I Lg %%<stringbuf>-set-fields MxHm N]LM OKN PO Qg t-1f6d4c535-1fe RQ Sf l-1f6d4c535-213 TS UbR T VUm tmmmm} W]^V XUm tmmmmm Y]X ZY []X \]aX ]]cX ^]Y _xUm `]_ a\^` b]X cUm d] c ebYd f]mX g]X h]_ igh jfYi k[aej lWZk mxm n]m og m-1f6d4c535-21a po` qp rf l-1f6d4c535-21f sf l-1f6d4c535-220 tf l-1f6d4c535-221 uf l-1f6d4c535-222 vf l-1f6d4c535-223 wrstuv xbqw yp zf l-1f6d4c535-21c {z |boy{ }xm|tmmmm ~]} xxm| ] ] g set-record-type-printer! g display f #<stringbuf g write f #> g <inferior-struct> g %inferior-struct-procedure g inferior-struct g m-1f6d4c535-242 ` g t-1f6d4c535-240 g t-1f6d4c535-241 f l-1f6d4c535-247 f l-1f6d4c535-248 b f l-1f6d4c535-244 bo mtmmmm} ]^ xm ] g fields ] g m-1f6d4c535-23e ` mtmmmmm ] ] ] xm ] g pwpw g %inferior-struct?-procedure g m-1f6d4c535-251 ` g t-1f6d4c535-250 f l-1f6d4c535-256 b f l-1f6d4c535-253 bo mtmmmm} ]^ mtm%mmmm*m/m3m8m=mBmGmLX ] ]\ ]^ ]a ]c xm ] xm ] g %inferior-struct-name-procedure g m-1f6d4c535-25d ` f l-1f6d4c535-25f bo mtmmmm} ]s r [ mtmmmmm ]~ r Z[ f l-1f6d4c535-262 f l-1f6d4c535-263 b mtmmmm} ] ] xm ] ] r Z[ f l-1f6d4c535-267 f l-1f6d4c535-268 b mtmmmm} ] ] m ] ] r Z[ f l-1f6d4c535-26c f l-1f6d4c535-26d b mtmmmm} ] ] g %%<inferior-struct>-set-fields xm ] g t-1f6d4c535-25c f l-1f6d4c535-271 b mtmmmm} ]^ mtmmmmm ] ] ]a ]c xm ] ] m ] ]m ] ]H xm ] g !%inferior-struct-fields-procedure !g m-1f6d4c535-278 "!` #" $f l-1f6d4c535-27a %$ &bo#% '"m&tmmmm} (]s' )r( *)[ +m&tmmmmm ,]~+ -r, .Z*-[ /"" 0f l-1f6d4c535-27d 1f l-1f6d4c535-27e 201 3b/2 4"3m&tmmmm} 5]4 6]4 7x3m& 8]7 968 :9 ;]+ <r; =Z*<[ >f l-1f6d4c535-282 ?f l-1f6d4c535-283 @>? Ab/@ B"Am&tmmmm} C]B D]B EAm& F] E GDF HG I]+ JrI KZ*J[ Lf l-1f6d4c535-287 Mf l-1f6d4c535-288 NLM Ob/N P"Om&tmmmm} Q]P R]P SxOm& T]S URT VU Wg t-1f6d4c535-277 XW Yf l-1f6d4c535-28c ZY [bX#Z \"[m&tmmmm} ]]^\ ^[m&tmmmmm _]^ `_ a]^ b]a^ c]c^ dc_ ex[m& f]e gbdf h]^ i[m& j] i kh_j l]m^ m]^ n]Ie omn pl_o qagkp r]`q sxm& t] s ug m-1f6d4c535-293 vu` wv xf l-1f6d4c535-298 yf l-1f6d4c535-299 zf l-1f6d4c535-29a {f l-1f6d4c535-29b |f l-1f6d4c535-29c }xyz{| ~bw} v f l-1f6d4c535-295 bo ~mtmmmm ] x~m ] ]H ]I g set-inferior-struct-fields! g &%set-inferior-struct-fields!-procedure g m-1f6d4c535-2a7 ` g t-1f6d4c535-2a5 g t-1f6d4c535-2a6 f l-1f6d4c535-2ac f l-1f6d4c535-2ad b f l-1f6d4c535-2a9 bo mtmmmm} ]^ g t-1e8ba8b5a-18c g t-1e8ba8b5a-18d g m-1e8ba8b5a-18e ` f l-1e8ba8b5a-192 f l-1e8ba8b5a-193 b g setter f l-1e8ba8b5a-186 f l-1e8ba8b5a-187 f l-1e8ba8b5a-188 b N f l-1e8ba8b5a-17d f l-1e8ba8b5a-17e by g field-specs f l-1e8ba8b5a-179 f l-1e8ba8b5a-17a by mtmmm ] g val ] ] ]a ]c xm ] g struct-set! ] m ] ]m ] ] xm ] g make-parameter g vlist-null g vhash-assq f #-1# f #<struct ~a g parameter? g scm-error g wrong-type-arg f parameterize f Not a parameter: ~S g vhash-consq g for-each f #0# f ~s f ~x> g object-address g print-inferior-struct g <inferior-fluid> g %inferior-fluid-procedure g inferior-fluid g m-1f6d4c535-2de ` g t-1f6d4c535-2dc g t-1f6d4c535-2dd f l-1f6d4c535-2e3 f l-1f6d4c535-2e4 b f l-1f6d4c535-2e0 bo mtmmmm} ]^ xm ]s ] g m-1f6d4c535-2da ` mtmmmmm ] ] ] xm ] s g %inferior-fluid?-procedure g m-1f6d4c535-2ed ` g t-1f6d4c535-2ec f l-1f6d4c535-2f2 b f l-1f6d4c535-2ef bo mtmmmm} ]^ mtm%mmmm*m/m3m8m=mBmGmLX ] ]\ ]^ ]a ]c xm ] ! "! #xm $]# %g %inferior-fluid-number-procedure &g m-1f6d4c535-2f9 '&` (' )f l-1f6d4c535-2fb *) +bo(* ,'m+tmmmm} -]s, .r- /.[ 0m+tmmmmm 1]~0 2r1 3Z/2[ 4'' 5f l-1f6d4c535-2fe 6f l-1f6d4c535-2ff 756 8b47 9'8m+tmmmm} :]9 ;]9 <x8m+ =]< >;= ?> @]0 Ar@ BZ/A[ Cf l-1f6d4c535-303 Df l-1f6d4c535-304 ECD Fb4E G'Fm+tmmmm} H]G I]G JFm+ K] J LIK ML N]0 OrN PZ/O[ Qf l-1f6d4c535-308 Rf l-1f6d4c535-309 SQR Tb4S U'Tm+tmmmm} V]U W]U Xg %%<inferior-fluid>-set-fields YxTm+ Z]XY [WZ \[ ]g t-1f6d4c535-2f8 ^] _f l-1f6d4c535-30d `_ ab^(` b'am+tmmmm} c]^b dam+tmmmmm e]d fe g]d h]ad i]cd jie kxam+ l]k mhjl n]d oam+ p] o qnep r]md s]d t]Fk ust vreu wgmqv xcfw yxm+ z]%y {g inferior-fluid-value |g %inferior-fluid-value-procedure }g m-1f6d4c535-314 ~}` ~ f l-1f6d4c535-316 bo ~mtmmmm} ]s r [ mtmmmmm ]~ r Z[ ~~ f l-1f6d4c535-319 f l-1f6d4c535-31a b ~mtmmmm} ] ] xm ] ] r Z[ f l-1f6d4c535-31e f l-1f6d4c535-31f b ~mtmmmm} ] ] m ] ] r Z[ f l-1f6d4c535-323 f l-1f6d4c535-324 b ~mtmmmm} ] ] xm ]X g t-1f6d4c535-313 f l-1f6d4c535-328 b ~mtmmmm} ]^ mtmmmmm ] ] ]a ]c xm ] ] m ] ]m ] ]{ xm ]| g m-1f6d4c535-32f ` f l-1f6d4c535-334 f l-1f6d4c535-335 f l-1f6d4c535-336 f l-1f6d4c535-337 f l-1f6d4c535-338 b f l-1f6d4c535-331 bo mtmmmm ] xm ] ]F ]{ f #<fluid ~a ~x> g error * * f no matching pattern g <inferior-object> g %%inferior-object-procedure g %inferior-object g m-1f6d4c535-3a3 ` g t-1f6d4c535-3a0 g t-1f6d4c535-3a1 g t-1f6d4c535-3a2 f l-1f6d4c535-3a8 f l-1f6d4c535-3a9 f l-1f6d4c535-3aa b f l-1f6d4c535-3a5 bo mtmmmm} ]^ xm ]q g sub-kind ] ] g m-1f6d4c535-39e ` mtmmmmm ] ] ] xm ] q g %inferior-object?-procedure g m-1f6d4c535-3b4 ` g t-1f6d4c535-3b3 f l-1f6d4c535-3b9 b f l-1f6d4c535-3b6 bo m tmmmm} ]^ m tm%mmmm*m/m3m8m=mBmGmLX ] ! "]\ #]^ $# %]a &]c '& (xm )]( *%') +"$* , !+ -xm .]- /g %inferior-object-kind-procedure 0g m-1f6d4c535-3c0 10` 21 3f l-1f6d4c535-3c2 43 5bo24 61m5tmmmm} 7]s6 8r7 98[ :m5tmmmmm ;]~: <r; =Z9<[ >11 ?f l-1f6d4c535-3c5 @f l-1f6d4c535-3c6 A?@ Bb>A C1Bm5tmmmm} D]C E]C FxBm5 G]F HEG IH J]: KrJ LZ9K[ Mf l-1f6d4c535-3ca Nf l-1f6d4c535-3cb OMN Pb>O Q1Pm5tmmmm} R]Q S]Q TPm5 U] T VSU WV X]: YrX ZZ9Y[ [f l-1f6d4c535-3cf \f l-1f6d4c535-3d0 ][\ ^b>] _1^m5tmmmm} `]_ a]_ bg %%<inferior-object>-set-fields cx^m5 d]bc ead fe gg t-1f6d4c535-3bf hg if l-1f6d4c535-3d4 ji kbh2j l1km5tmmmm} m]^l nkm5tmmmmm o]n po q]n r]an s]cn tso uxkm5 v]u wrtv x]n ykm5 z] y {xoz |]mn }]n ~]Bu }~ |o qw{ mp xm5 ]/ g #%inferior-object-sub-kind-procedure g m-1f6d4c535-3db ` f l-1f6d4c535-3dd bo mtmmmm} ]s r [ mtmmmmm ]~ r Z[ f l-1f6d4c535-3e0 f l-1f6d4c535-3e1 b mtmmmm} ] ] xm ] ] r Z[ f l-1f6d4c535-3e5 f l-1f6d4c535-3e6 b mtmmmm} ] ] m ] ] r Z[ f l-1f6d4c535-3ea f l-1f6d4c535-3eb b mtmmmm} ] ] xm ]b g t-1f6d4c535-3da f l-1f6d4c535-3ef b mtmmmm} ]^ mtmmmmm ] ] ]a ]c xm ] ] m ] ]m ] ]C xm ] g "%inferior-object-address-procedure g m-1f6d4c535-3f6 ` f l-1f6d4c535-3f8 bo mtmmmm} ]s r [ mtmmmmm ]~ r Z[ f l-1f6d4c535-3fb f l-1f6d4c535-3fc b mtmmmm} ] ] xm ] ] r Z[ f l-1f6d4c535-400 f l-1f6d4c535-401 b mtmmmm} ] ] m ] ] r Z [ f l-1f6d4c535-405 f l-1f6d4c535-406 b mtmmmm} ] ] x m ]b g t-1f6d4c535-3f5 f l-1f6d4c535-40a b mtmmmm} ]^ mtmmmmm ] ] ]a ]c x m ] ! "] # m $] # % " $ &]m '] (]D ) ' ( * & ) + ! % * , + -xm .] - /g m-1f6d4c535-411 0 /` 1 0 2f l-1f6d4c535-416 3f l-1f6d4c535-417 4f l-1f6d4c535-418 5f l-1f6d4c535-419 6f l-1f6d4c535-41a 7 2 3 4 5 6 8b 1 7 9 0 :f l-1f6d4c535-413 ; : <bo 9 ; = 8m <tmmmm >] = ?x 8m < @] ? A]B ? B]C ? C]D ? D A B C Ef #<~a ~:[~*~;~a ~]~x> Fg smob Gg inferior-smob Hg inferior-port Ig %visited-cells Jg visited Kg -> Lg m-1f6d4c535-525 M L` N M Of l-1f6d4c535-527 P O Qbo N P Rxm Q S] K R Tr S U[ T[ V U挤 W[ V Xg parameterize Yg object Z Y [ Mxxx \f l-1f6d4c535-52a ]f l-1f6d4c535-52b ^f l-1f6d4c535-52c _f l-1f6d4c535-52d ` \ ] ^ _ ab Z [ ` bx am Q c] X b d] I b eg vhash-consv f] e b g d h g ig symbol->string jg string-length kg bytevector->uint-list lg invalid-struct mg address->inferior-struct ng and=> og vhash-assv pg cdr qg cell->object rg string->symbol sg variable tg substring ug bytevector->string vf ISO-8859-1 wg bitwise-ior xg little yf UTF-32LE zg big {f UTF-32BE |g make-vector }g fold ~g weak-vector g dynamic-state g program g bignum g double g hash-table g objcode g vm g vm-continuation g array g bitvector g bit-set? g integer->char g undefined g eof-object g unboundC 5h ]4 89K5 4N > " G 4OiP5:RQ h ] C g peek g open g type-name g filenamef system/base/types.scm D g nameg %memory-backend-procedure CRR4U;VY\ h k ] C c g t-1f6d4c535-3 g t-1f6d4c535-4 g t-1f6d4c535-5 C; h X ]L 6 P g a g filenamef system/base/types.scm D CZ h H ] L 6@ g filenamef system/base/types.scm D C h ] C C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x n g tmp n g tmp " n g tmp > n g filenamef system/base/types.scm D n C5;RQ 4 Q> " G Ri QRQ h ] $ CC x g obj g filenamef system/base/types.scm D g nameg %memory-backend?-procedure CR4U<VYj h 6 ] C . g t-1f6d4c535-16 C< h X ]L 6 P g a g filenamef system/base/types.scm D CZ h H ] L 6@ g filenamef system/base/types.scm D Cl h ] C C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x n g tmp n g tmp " n g tmp > n g filenamef system/base/types.scm D n C5<RQop h ] & C 6z g s g filenamef system/base/types.scm D g nameg %memory-backend-peek-procedure CqR4UpVY h : ]C 2 g err g s C h : ]C 2 g err g s C h : ]C 2 g err g s C h 6 ] C . g t-1f6d4c535-22 Cp h X ]L 6 P g a g filenamef system/base/types.scm D CZ h H ] L 6@ g filenamef system/base/types.scm D C h ] C C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef system/base/types.scm D C5pRQo h ] & C 6z g s g filenamef system/base/types.scm D g nameg %memory-backend-open-procedure CR4UVY h : ]C 2 g err g s C h : ]C 2 g err g s C!', h : ]C 2 g err g s CH h 6 ] C . g t-1f6d4c535-3d C h X ]L 6 P g a g filenamef system/base/types.scm D CZ h H ] L 6@ g filenamef system/base/types.scm D CJ h ] C C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef system/base/types.scm D C5RQoK h ] & C 6 g s g filenamef system/base/types.scm D g nameg #%memory-backend-type-name-procedure CLR4UKVYZaf h : ]C 2 g err g s Ciot h : ]C 2 g err g s Cw} h : ]C 2 g err g s C h 6 ] C . g t-1f6d4c535-58 CK h X ]L 6 P g a g filenamef system/base/types.scm D CZ h H ] L 6@ g filenamef system/base/types.scm D C h ] C C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef system/base/types.scm D C5KR4UVY h v ]45C n g dummy g check? g s g getter g expr C h( ] 4 5 $ @ 6 g x " g tmp " g filenamef system/base/types.scm D " g macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5RQi: h( ]4 5 45 45 6 g address $ g ptr $ g bv $ g filenamef system/base/types.scm O P P Q P R " $ R $ g nameg dereference-word C h@ ]4M 5 45 4 > " G M N C g bv 9 g index 9 g count 9 g ptr 9 g mem 9 g filenamef system/base/types.scm W X X Y X Z 4 [ 6 [ 9 g nameg read-memory! C hX ) ]H K$ 4 5 45 64O 5 4> " G C ! g address S g size S g current-address S g ptr ) g bv ! ) g port : S g filenamef system/base/types.scm T ^ _ _ ` ! _ ) a * b . b 5 : b : b = e S g nameg open C =RQop h( ] & " 4 5 6 g backend $ g address $ g peek $ g filenamef system/base/types.scm j l l $ m $ g nameg % dereference-word-procedure CR4U>VY# h R ] C J g t-1f6d4c535-c4 g t-1f6d4c535-c5 C> h X ]L 6 P g a g filenamef system/base/types.scm j CZ% h H ] L 6@ g filenamef system/base/types.scm j C' h ] C C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x n g tmp n g tmp " n g tmp > n g filenamef system/base/types.scm j n C5>R4U?VY(789; h W ] C O g dummy g backend g address C<GIOPQR h0 i ] C a g dummy . g backend . g address . g size . . C h@ ]4 5 $ @4 5 $ @ 6 z g x 9 g tmp 9 g tmp " 9 g filenamef system/base/types.scm p 9 g documentationf Return an input port to the SIZE bytes at ADDRESS, using BACKEND. When SIZE is omitted, return an unbounded port to the memory at ADDRESS.g macro-typeg syntax-rulesg patternsg backendg address g backendg addressg size C5?RS: h ] 4 5 45 6 g port g bv g filenamef system/base/types.scm ~ g nameg get-wordg documentationf 2Read a word from PORT and return it as an integer. CTRQoK h0 ] & " 4 5 $ 6C g backend / g kind / g number / g proc / g filenamef system/base/types.scm % - / g nameg % type-number->name-procedure CUR4U@VY\ h q ] C i g t-1f6d4c535-101 g t-1f6d4c535-102 g t-1f6d4c535-103 C@ h Y ]L 6 Q g a g filenamef system/base/types.scm CZ% h I ] L 6A g filenamef system/base/types.scm C h ] C C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x n g tmp n g tmp " n g tmp > n g filenamef system/base/types.scm n C5@R4UVY h@ ] C~ g dummy @ g port @ g name @ g len @ g rest @ g body @ @ C h( u ] C m g dummy " g port " g name " g rest " g body " " C h Q ]C I g dummy g port g body C hP ? ]4 5 $ @4 5 $ @4 5 $ @ 67 g x P g tmp P g tmp " P g tmp 9 P g filenamef system/base/types.scm P g macro-typeg syntax-rulesg patternsg portg bytevectorg nameg len g restg ... g body g portg nameg restg ... g body g portg body C5R4UVY hP , 3 C g dummy O g bits O g a O g b O g n O g c O g consequent O g alternate O O C h@ ] C g dummy : g bits : g x : g n : g c : g consequent : g alternate : : C h0 ] C g dummy + g bits + g n + g c + g consequent + g alternate + + C ,-/0235679 hX , 3 C g dummy W g bits W g a W g << W g n W g c W g consequent W g alternate W W C hh ]!4 5 $ @4 5 $ @4 5 $ @4 5 $ @ 6 g x g g tmp g g tmp " g g tmp 9 g g tmp P g g filenamef system/base/types.scm g g macro-typeg syntax-rulesg patternsg bitsg ag ||g b g &g ng =g c g consequentg alternate g bitsg xg &g ng =g c g consequentg alternate g bitsg _g &g ng =g c g consequentg alternate g bitsg ag <<g n g ||g c g consequentg alternate C5R4U:VY=RST h( ] C g dummy " g port " g tag " g tag-pattern " g thing " g body " g rest " " CU_c h P ] C H g dummy g port g tag C h@ ]4 5 $ @4 5 $ @ 6 g x 9 g tmp 9 g tmp " 9 g filenamef system/base/types.scm 9 g macro-typeg syntax-rulesg patternsg portg tagg tag-patterng thingg ... g body g restg ... g portg tag C5:R4UdVYgxz{|} h X ] C P g tmp-1f6d4c535-1be g tmp-1f6d4c535-1bd C h8 f ] 45 C ^ g dummy 2 g port 2 g pattern 2 g body 2 2 C h( B ] 4 5 $ @ 6 : g x " g tmp " g filenamef system/base/types.scm " g documentationf fMatch a cell---i.e., a non-immediate value other than a pair. The cell's contents are read from PORT.g macro-typeg syntax-rulesg patternsg portg patterng bodyg ... g ... C5dR4UVY h | ] C t g dummy g bits g bit-pattern g body g rest C h ? ]C 7 g dummy g bits C h@ ]4 5 $ @4 5 $ @ 6 g x 9 g tmp 9 g tmp " 9 g filenamef system/base/types.scm 9 g macro-typeg syntax-rulesg patternsg bitsg bit-patterng bodyg ... g restg ... g bits C5R4UVY h T ] C L g dummy g bits g clauses C h( , ] 4 5 $ @ 6 $ g x " g tmp " g filenamef system/base/types.scm " g documentationf bMatch BITS, an integer representation of an 'SCM' value, against CLAUSES. Each clause must have the form: (PATTERN BODY ...) PATTERN is a bit pattern that may specify bitwise operations on BITS to determine if it matches. TEMPLATE specify the name of the variable to bind the matching bits, possibly with bitwise operations to extract it from BITS.g macro-typeg syntax-rulesg patternsg bitsg clausesg ... C5R R R RiRi R iRi R R R R R R R R R R %R 'R -R /R 5R 7R GR MR OR UR WR }R Ri Ri Ri Ri R h ~ ] C v g string g filenamef system/base/types.scm g nameg %stringbuf-procedure CR4UVY h 7 ] C / g t-1f6d4c535-1e5 C h Y ]L 6 Q g a g filenamef system/base/types.scm CZ h I ] L 6A g filenamef system/base/types.scm C h ] C C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x n g tmp n g tmp " n g tmp > n g filenamef system/base/types.scm n C5R 4 > " G i R h | ] $ CC t g obj g filenamef system/base/types.scm g nameg %stringbuf?-procedure CR4UVY h 7 ] C / g t-1f6d4c535-1f2 C h Y ]L 6 Q g a g filenamef system/base/types.scm CZ h I ] L 6A g filenamef system/base/types.scm C h ] C C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x n g tmp n g tmp " n g tmp > n g filenamef system/base/types.scm n C5Ro h ] & C 6z g s g filenamef system/base/types.scm g nameg %stringbuf-contents-procedure CR4UVY'.3 h : ]C 2 g err g s C6<A h : ]C 2 g err g s CDJP h : ]C 2 g err g s Cl h 7 ] C / g t-1f6d4c535-1fe C h Y ]L 6 Q g a g filenamef system/base/types.scm CZ h I ] L 6A g filenamef system/base/types.scm Cn h ] C C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef system/base/types.scm C5R4ULVY~ h v ]45C n g dummy g check? g s g getter g expr C h( ] 4 5 $ @ 6 g x " g tmp " g filenamef system/base/types.scm " g macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5LR4iio hP ]4> " G 4 & " 4 5> " G 6 g stringbuf J g port J g filenamef system/base/types.scm % # : F % J J C> " G h ] C g name g fields g filenamef system/base/types.scm g nameg %inferior-struct-procedure CR4UVY h T ] C L g t-1f6d4c535-240 g t-1f6d4c535-241 C h Y ]L 6 Q g a g filenamef system/base/types.scm CZ h I ] L 6A g filenamef system/base/types.scm C h ] C C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x n g tmp n g tmp " n g tmp > n g filenamef system/base/types.scm n C5R 4 > " G i R h ] $ CC z g obj g filenamef system/base/types.scm g nameg %inferior-struct?-procedure CR4UGVY h 7 ] C / g t-1f6d4c535-250 CG h Y ]L 6 Q g a g filenamef system/base/types.scm CZ h I ] L 6A g filenamef system/base/types.scm C h ] C C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x n g tmp n g tmp " n g tmp > n g filenamef system/base/types.scm n C5GRoH h ] & C 6| g s g filenamef system/base/types.scm g nameg %inferior-struct-name-procedure CR4UHVY h : ]C 2 g err g s C h : ]C 2 g err g s C h : ]C 2 g err g s C h 7 ] C / g t-1f6d4c535-25c CH h Y ]L 6 Q g a g filenamef system/base/types.scm CZ h I ] L 6A g filenamef system/base/types.scm C h ] C C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef system/base/types.scm C5HRoI h ] & C 6~ g s g filenamef system/base/types.scm g nameg !%inferior-struct-fields-procedure C R4UIVY.5: h : ]C 2 g err g s C=CH h : ]C 2 g err g s CKQV h : ]C 2 g err g s Cr h 7 ] C / g t-1f6d4c535-277 CI h Y ]L 6 Q g a g filenamef system/base/types.scm CZ h I ] L 6A g filenamef system/base/types.scm Ct h ] C C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef system/base/types.scm C5IR4UVY h v ]45C n g dummy g check? g s g getter g expr C h( ] 4 5 $ @ 6 g x " g tmp " g filenamef system/base/types.scm " g macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5Ro h ] & C 6 g s g val g filenamef system/base/types.scm g nameg &%set-inferior-struct-fields!-procedure CR4UVY h T ] C L g t-1f6d4c535-2a5 g t-1f6d4c535-2a6 C h Y ]L 6 Q g a g filenamef system/base/types.scm CZ h I ] L 6A g filenamef system/base/types.scm C h ] C C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x n g tmp n g tmp " n g tmp > n g filenamef system/base/types.scm n C5R4ii5 /oH/ h ] L& L 6L 6 g field g filenamef system/base/types.scm / 0 1 ' 1 2 + 2 CI h 9 ]4 4L 5 5$ 64 & " 4 5> " G 4L 5$ " 4 L > " G L 4L 4 4L 5 55Y4 O & " 4 5> " G Z4 56 1 g struct g port g filenamef system/base/types.scm ' ( ( ( ( ) ) + ! + $ , @ + I - ~ . . 3 . - / 3 / 4 4 4 C O R4iii> " G h ] C g number g value g filenamef system/base/types.scm 9 g nameg %inferior-fluid-procedure CR4UVY h T ] C L g t-1f6d4c535-2dc g t-1f6d4c535-2dd C h Y ]L 6 Q g a g filenamef system/base/types.scm 9 CZ h I ] L 6A g filenamef system/base/types.scm 9 C h ] C C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x n g tmp n g tmp " n g tmp > n g filenamef system/base/types.scm 9 n C5R 4 > " G i R h ] $ CC y g obj g filenamef system/base/types.scm 9 g nameg %inferior-fluid?-procedure CR4UEVY" h 7 ] C / g t-1f6d4c535-2ec CE h Y ]L 6 Q g a g filenamef system/base/types.scm 9 CZ h I ] L 6A g filenamef system/base/types.scm 9 C$ h ] C C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x n g tmp n g tmp " n g tmp > n g filenamef system/base/types.scm 9 n C5ERoF h ] & C 6} g s g filenamef system/base/types.scm 9 g nameg %inferior-fluid-number-procedure C%R4UFVY3:? h : ]C 2 g err g s CBHM h : ]C 2 g err g s CPV\ h : ]C 2 g err g s Cx h 7 ] C / g t-1f6d4c535-2f8 CF h Y ]L 6 Q g a g filenamef system/base/types.scm 9 CZ h I ] L 6A g filenamef system/base/types.scm 9 Cz h ] C C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef system/base/types.scm 9 C5FRo{ h ] & C 6| g s g filenamef system/base/types.scm 9 g nameg %inferior-fluid-value-procedure C|R4U{VY h : ]C 2 g err g s C h : ]C 2 g err g s C h : ]C 2 g err g s C h 7 ] C / g t-1f6d4c535-313 C{ h Y ]L 6 Q g a g filenamef system/base/types.scm 9 CZ h I ] L 6A g filenamef system/base/types.scm 9 C h ] C C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef system/base/types.scm 9 C5{R4UXVY h v ]45C n g dummy g check? g s g getter g expr C h( ] 4 5 $ @ 6 g x " g tmp " g filenamef system/base/types.scm 9 " g macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5XR4ii/) hH ] $ - & 4 564 56 4 56 g fluid C g port C g w ) g filenamef system/base/types.scm @ A C , ! E ' ) C * A C C> " G h ] C g kind g sub-kind g address g filenamef system/base/types.scm J g nameg %%inferior-object-procedure CR4UVY\ h q ] C i g t-1f6d4c535-3a0 g t-1f6d4c535-3a1 g t-1f6d4c535-3a2 C h Y ]L 6 Q g a g filenamef system/base/types.scm J CZ h I ] L 6A g filenamef system/base/types.scm J C h ] C C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x n g tmp n g tmp " n g tmp > n g filenamef system/base/types.scm J n C5R 4 > " G i R h ] $ CC z g obj g filenamef system/base/types.scm J g nameg %inferior-object?-procedure CR4UAVY, h 7 ] C / g t-1f6d4c535-3b3 CA h Y ]L 6 Q g a g filenamef system/base/types.scm J CZ h I ] L 6A g filenamef system/base/types.scm J C. h ] C C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x n g tmp n g tmp " n g tmp > n g filenamef system/base/types.scm J n C5ARoB h ] & C 6| g s g filenamef system/base/types.scm J g nameg %inferior-object-kind-procedure C/R4UBVY=DI h : ]C 2 g err g s CLRW h : ]C 2 g err g s CZ`f h : ]C 2 g err g s C h 7 ] C / g t-1f6d4c535-3bf CB h Y ]L 6 Q g a g filenamef system/base/types.scm J CZ h I ] L 6A g filenamef system/base/types.scm J C h ] C C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef system/base/types.scm J C5BRoC h ] & C 6 g s g filenamef system/base/types.scm J g nameg #%inferior-object-sub-kind-procedure CR4UCVY h : ]C 2 g err g s C h : ]C 2 g err g s C h : ]C 2 g err g s C h 7 ] C / g t-1f6d4c535-3da CC h Y ]L 6 Q g a g filenamef system/base/types.scm J CZ h I ] L 6A g filenamef system/base/types.scm J C h ] C C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef system/base/types.scm J C5CRoD h ] & C 6 g s g filenamef system/base/types.scm J g nameg "%inferior-object-address-procedure CR4UDVY h : ]C 2 g err g s C h : ]C 2 g err g s C h : ]C 2 g err g s C , h 7 ] C / g t-1f6d4c535-3f5 CD h Y ]L 6 Q g a g filenamef system/base/types.scm J CZ h I ] L 6A g filenamef system/base/types.scm J C . h ] C C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef system/base/types.scm J C5DR4UbVY > @ D h v ]45C n g dummy g check? g s g getter g expr C h( ] 4 5 $ @ 6 g x " g tmp " g filenamef system/base/types.scm J " g macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5bR h( U ) 3 C] C M g kind g address g kind " g sub-kind " g address " g filenamef system/base/types.scm R V R ! X " g nameg inferior-objectg documentationf SReturn an object representing an inferior object at ADDRESS, of type KIND/SUB-KIND. CVR4ii/ E) hP ] $ 9 & # 64 56 4 56 g io O g port O g w 5 g w 5 g w # 5 g filenamef system/base/types.scm [ \ + ^ , 5 ^ 6 \ O C> " G V FQoK hX _ ] & " 4 5 $ 45" $ " 6 W g backend Q g type-number Q g address Q g proc ! : g t : M g filenamef system/base/types.scm b e f . f 2 2 f : f Q e Q g nameg inferior-smobg documentationf LReturn an object representing the SMOB at ADDRESS whose type is TYPE-NUMBER. C GRVQoK hX _ ] & " 4 5 $ 45" $ " 6 W g backend Q g type-number Q g address Q g proc ! : g t : M g filenamef system/base/types.scm j m n . n 2 2 n : n Q m Q g nameg inferior-portg documentationf LReturn an object representing the port at ADDRESS whose type is TYPE-NUMBER. C HR4ii5 IR4U JVY W c d f h h h ] C ` g dummy g address g object g body C h( ] 4 5 $ @ 6 g x " g tmp " g filenamef system/base/types.scm y " g macro-typeg syntax-rulesg patternsg addressg ->g object g bodyg ... C5 JR:QopJ i jLS I eJ h g ] L 6 _ g t-1f6d4c535-5af g filenamef system/base/types.scm C kV l h ]s & " 45 45 45 & " 45 45 45 $ 745 4 5 & " 45 4 5 $ 4 5" +& " 4 5 4 5 4 5 45$ " 4 > " G 4 4 4 5 55Y4O 4 45 55 & " 4> " G ZCZF 6 g address g vtable-data-address g backend g layout-address g peek % 1 g layout-bits 1 g layout < g name-address F g peek b n g name-bits n g name y g layout g len g address g peek g slots g open g port g fields g result " g t-1f6d4c535-5a8 & g values g filenamef system/base/types.scm 1 4 < E F F K n q y ~ 1 2 2 . " " & p z 6 / g nameg address->inferior-structg documentationf ^Read the struct at ADDRESS using BACKEND. Return an 'inferior-struct' object representing it. C mR= n o I pQoT m q r)V s tS: u v w x y z {L.18 | e } h ]L C | g element g index g filenamef system/base/types.scm CJ h g ] L 6 _ g t-1f6d4c535-732 g filenamef system/base/types.scm C k ~ H O s Ga X h - . , 3 # 44 45 55 $ C& " 45 4 5 4 5 $ 6 $ n4 5 4 > " G 4 > " G 4 5 $ "& 6456 456 $ 4 > " G 6 $ c4 5 4 5 4 5 4 5 $ ) & 64 56 4 56 $ Q4 5 4 5 $ " 4 > " G 4 5 C 4 5$ 4 5 4 5 $ " 4 > " G 4 4 5 & " ! & "" 44 55 5 C #$ W4 5 4 5 $ 4$%5" (& " 45 4 5 64&4' 55 ($ 4) 5 4 > " G 4) 5 4 5 4* 5 4+5$ " 4,-./ > " G 4 40 45 55Y412O 434O 454 5 55> " G ZCZF 6$ 7 64&4' 55 8$ &4) 5 4 > " G 9 C :$ ; 64&4' 55 <$ 4) 5 = 6 >$ ? 6 @$ A 6 B$ }4 > " G 4CD5 $ 4$%5" -& " 45 44CD55 44CD55 4 5 C E$ 4 > " G F 6 G$ >4 > " G 4 > " G 4 > " G H 6 I$ 4 5 J6 K$ L 6 M$ N 6 O$ P 6 Q$ R 6 S$ T 64&4' 55 U$ '4) 5 4 > " G V 6W6 } g address g backend g t ) g open N [ g port [ g tag d g tag k g tag g buf g v g w g tag g tag * g buf < g start E g len N g v Y g w o ~ g tag g len g buf g remainder g string g tag g len g buf , g remainder , g v ] g string g tag g len g address g open g bv-port g tag g len $ g len A g words O g vector X g t-1f6d4c535-729 \ g tag g tag g n 7 g tag < g tag ` g flags+type t g tag g tag g tag g address E g open ) g port ) E g words 9 E g tag G g tag n g tag g address g tag g tag g tag g tag g tag ) g tag M g smob-type a @g filenamef system/base/types.scm ! % ) ) 7 [ ^ % $ ( * Q | & ~ . " $ ) , T Y . i 9 o . w 6 | . 9 A D M 1 O O R X \ 7 6 < K O P " & 8 8 & ) , 1 2 9 9 ? 1 D G h l n # ' ) 8 < = | g nameg cell->objectg documentationf WReturn an object representing the object at ADDRESS, reading from memory using BACKEND. C qR=.18Qop n o I p: eJ q V h | - . , 3 # 4 4 55 $ 6 $ & " 4 5 4 5 4 5 $ 4 4 4 5 55 $ C 45$ " 4 > " G 4 4 4 5 55Y454& " 4 5 4 5 5ZCZF 64 4 55 $ 4 5 64 4 55 $ q4 5 $ C $ C $ C $ C $ C $ 6 $ 6 $ 6C C t g bits g backend g tag ' g tag ? g peek d p g type p B g pair? { B g t : g cdrloc : g pair : g t-1f6d4c535-80f : g peek # / g tag S g char g o g tag g flag g filenamef system/base/types.scm M p s { { * " * 3 4 B C o p ( g nameg scm->objectg documentationf LReturn the Scheme object corresponding to BITS, the bits of an 'SCM' object. CJRC g m , g rtd g rtd A B g rtd P Q g %printed-struct c f g rtd j j g rtd ~ g filenamef system/base/types.scm - B 3 B 5 B 8 @ D h K j $ ~ %P = = = = = = = = = = = = = = = > > > > > > >& >, >2 >8 >> >D >J >P >V >\ >b >j $ >k >o >w " >x >| > % > > > & > > ?: L# N" c & c & f % f 6 g 9 y ? { J Q Z b j v r K C6 PK \vfs s message.gonu [ GOOF----LE-8-2.0s ] 4 h; ] g guile g define-module* g system g base g message g filenameS f system/base/message.scm g importsS g srfi g srfi-1 g srfi-9 g ice-9 g match g exportsS g *current-warning-port* g *current-warning-prefix* g warning g warning-type? g warning-type-name g warning-type-description g warning-type-printer !g lookup-warning-type "g %warning-types # !" $g set-current-module %$ &$ 'g format (f ~a:~a:~a )g assoc-ref *g filename +f <stdin> ,g line -g column .f <unknown-location> /g location-string 0g parameter-fluid 1g current-warning-port 2g make-fluid 3f ;;; 4g <warning-type> 5g %make-warning-type-procedure 6g make-syntax-transformer 76 86 9g make-warning-type :g macro ;g $sc-dispatch <; =; >g _ ?g any @>??? Ag syntax-object Bg lambda Cg m-44b57084b9-69a Dg top ECD Fg ribcage Gg t-44b57084b9-697 Hg t-44b57084b9-698 Ig t-44b57084b9-699 JGHI KEEE Lf l-44b57084b9-69f Mf l-44b57084b9-6a0 Nf l-44b57084b9-6a1 OLMN PFJKO QF Rg x SR TE Uf l-44b57084b9-69c VU WFSTV Xg shift Yg proc-name Zg args [YZ \D ]\\ ^f l-1e8ba8b5a-60 _f l-1e8ba8b5a-61 `^_ aF[]` bg key cg value dg name eg formals fg body gbcdef h\\\\\ if l-1e8ba8b5a-53 jf l-1e8ba8b5a-54 kf l-1e8ba8b5a-55 lf l-1e8ba8b5a-56 mf l-1e8ba8b5a-57 nijklm oFghn pg make-procedure-name qp r\ sf l-1e8ba8b5a-43 ts uFqrt v\ wf l-1e8ba8b5a-42 xw yFSvx zEPQWXQQQQaouy {g hygiene |{ }ABz| ~\PQW { Ad~ g description A~ g printer A~ g make-struct g m-44b57084b9-695 D g t-1e8ba8b5a-133 g t-1e8ba8b5a-132 g t-1e8ba8b5a-131 g m-1e8ba8b5a-134 D f l-1e8ba8b5a-138 f l-1e8ba8b5a-139 f l-1e8ba8b5a-13a F g ctor-args f l-1e8ba8b5a-120 Fv g ctor g field f l-1e8ba8b5a-11c f l-1e8ba8b5a-11d F] g form g type-name g constructor-spec g field-names \\\\ f l-1e8ba8b5a-111 f l-1e8ba8b5a-112 f l-1e8ba8b5a-113 f l-1e8ba8b5a-114 F g record-layout g functional-setters g setters g copier g getters g constructor g getter-identifiers g field-identifiers \\\\\\\\ f l-1e8ba8b5a-e9 f l-1e8ba8b5a-e7 f l-1e8ba8b5a-e5 f l-1e8ba8b5a-e3 f l-1e8ba8b5a-e1 f l-1e8ba8b5a-df f l-1e8ba8b5a-dd f l-1e8ba8b5a-db F f l-1e8ba8b5a-da FSv PQWXQQQQQ A| A4~ A | } g each-any >ʌ g syntax-violation f Wrong number of arguments g identifier? \QW A5 f -source expression failed to match any pattern g record-type-vtable g pwpwpw g default-record-printer d g set-struct-vtable-name! g vtable-offset-user g %warning-type?-procedure >? g m-44b57084b9-6ab D g t-44b57084b9-6aa f l-44b57084b9-6b0 F f l-44b57084b9-6ad FS QXQQQQaouy AB| g obj g t-1e8ba8b5a-224 g t-1e8ba8b5a-21e g t-1e8ba8b5a-21f g t-1e8ba8b5a-220 g t-1e8ba8b5a-223 g t-1e8ba8b5a-222 g t-1e8ba8b5a-221 g m-1e8ba8b5a-225 D f l-1e8ba8b5a-229 f l-1e8ba8b5a-22a f l-1e8ba8b5a-22b f l-1e8ba8b5a-22c f l-1e8ba8b5a-22d f l-1e8ba8b5a-22e f l-1e8ba8b5a-22f F g copier-id f l-1e8ba8b5a-21c F v g ctor-name f l-1e8ba8b5a-214 Fv f l-1e8ba8b5a-212 Fv g layout f l-1e8ba8b5a-210 Fv g immutable? f l-1e8ba8b5a-20e !F v "g field-count #" $f l-1e8ba8b5a-20c %$ &F#v% 'g getter-ids (' )f l-1e8ba8b5a-209 *) +F(v* ,g field-ids -, .f l-1e8ba8b5a-206 /. 0F-v/ 1g predicate-name 2g field-spec 3 12 4\\\\\\ 5f l-1e8ba8b5a-1f9 6f l-1e8ba8b5a-1fa 7f l-1e8ba8b5a-1fb 8f l-1e8ba8b5a-1fc 9f l-1e8ba8b5a-1fd :f l-1e8ba8b5a-1fe ;56789: <F34; =QXQ QQQQQQQ Q!Q&Q+Q0< >A=| ?> @g and AA@=| Bg struct? CAB=| DC> Eg eq? FAE=| Gg struct-vtable HAG=| IH> J\Q KA4J LFIK MADL N?M O\Q PAO Qg throw-bad-struct RQ SQ Tg %warning-type-name-procedure Ug free-id Vg %%on-error Wg m-44b57084b9-6b7 XWD YX Zf l-44b57084b9-6b9 [Z \FSY[ ]XQ\XQQQQaouy ^AV]| _U^ `_? ag %%type bg t-1e8ba8b5a-14b cg t-1e8ba8b5a-14c dg t-1e8ba8b5a-14d eg t-1e8ba8b5a-14e fg t-1e8ba8b5a-14f gg t-1e8ba8b5a-150 hg t-1e8ba8b5a-151 ibcdefgh jg m-1e8ba8b5a-152 kjD lkkkkkkk mf l-1e8ba8b5a-156 nf l-1e8ba8b5a-157 of l-1e8ba8b5a-158 pf l-1e8ba8b5a-159 qf l-1e8ba8b5a-15a rf l-1e8ba8b5a-15b sf l-1e8ba8b5a-15c tmnopqrs uFilt vg getter wg index xvw yf l-1e8ba8b5a-149 zf l-1e8ba8b5a-14a {yz |Fx]{ }' ~\\\ f l-1e8ba8b5a-144 f l-1e8ba8b5a-145 f l-1e8ba8b5a-146 F}~ Q\XQuQQQ|Q Aa| U >`? g ck g err g s XX f l-44b57084b9-6bc f l-44b57084b9-6bd F XQ\XQQQQaouy A| g quote A| \Q\ A4 g %%index A| U >`? f l-44b57084b9-6c1 f l-44b57084b9-6c2 F XQ\XQQQQaouy A| A| Q\ A g %%copier A| U >`? f l-44b57084b9-6c6 f l-44b57084b9-6c7 F XQ\XQQQQaouy A| A| g %%<warning-type>-set-fields \Q\ A g t-44b57084b9-6b6 f l-44b57084b9-6cb FY XQ\XQQQQaouy AB| Q\XQuQQQ|Q A| g if A| AE| AG| \Q\ A4 g struct-ref A| Q\ A AQ| A| A \Q\ AT g #%warning-type-description-procedure g m-44b57084b9-6d2 D f l-44b57084b9-6d4 FS QXQQQQaouy AV| U ? QXQuQQQ|Q Aa| U >? f l-44b57084b9-6d7 f l-44b57084b9-6d8 F QXQQQQaouy A| A| \Q A4 A| U >? f l-44b57084b9-6dc f l-44b57084b9-6dd F QXQQQQaouy A| A| Q A A| U >? f l-44b57084b9-6e1 f l-44b57084b9-6e2 F QXQQQQaouy A| A| \Q A g t-44b57084b9-6d1 f l-44b57084b9-6e6 F QXQQQQaouy AB| QXQuQQQ|Q A| A| AE| AG| \Q A4 A| !Q "A ! # " $AQ| %A| &A '%& ($' ) #( *) +\Q ,A+ -g %warning-type-printer-procedure .g m-44b57084b9-6ed /.D 0/ 1f l-44b57084b9-6ef 21 3FS02 4/Q3XQQQQaouy 5AV4| 6U5 76? 8Q3XQuQQQ|Q 9Aa8| :U9 ;>7:? <// =f l-44b57084b9-6f2 >f l-44b57084b9-6f3 ?=> @F<? A/@Q3XQQQQaouy BAA| CAA| D\@Q3 EA4D FCE GF HA8| IUH J>7I? Kf l-44b57084b9-6f7 Lf l-44b57084b9-6f8 MKL NF<M O/NQ3XQQQQaouy PAO| QAO| RNQ3 SA R TQS UT VA8| WUV X>7W? Yf l-44b57084b9-6fc Zf l-44b57084b9-6fd [YZ \F<[ ]/\Q3XQQQQaouy ^A]| _A]| `\\Q3 aA` b_a cb dg t-44b57084b9-6ec ed ff l-44b57084b9-701 gf hFe0g i/hQ3XQQQQaouy jABi| khQ3XQuQQQ|Q lAk| ml nAk| oAEk| pAGk| qpl r\hQ3 sA4r toqs uAk| vhQ3 wA v xulw yAQk| zAk| {A r |z{ }yl| ~ntx} jm~ \Q3 A- g each ?? ? ? ? g %%set-fields g dummy g check? g expr v g m-44b57084b9-708 D f l-44b57084b9-70d f l-44b57084b9-70e f l-44b57084b9-70f f l-44b57084b9-710 f l-44b57084b9-711 F f l-44b57084b9-70a FS g t-1e8ba8b5a-16a g t-1e8ba8b5a-16c g t-1e8ba8b5a-16b g m-1e8ba8b5a-16d D f l-1e8ba8b5a-171 f l-1e8ba8b5a-172 f l-1e8ba8b5a-173 F f l-1e8ba8b5a-167 f l-1e8ba8b5a-168 f l-1e8ba8b5a-169 F}~ QXQQQQ A| \Q A4 A A A g map g list g unsupported-warning f warn about unknown warning types f &~awarning: unknown warning type `~A'~% g unused-variable f report unused variables f %~a~A: warning: unused variable `~A'~% g unused-toplevel f 'report unused local top-level variables f >~a~A: warning: possibly unused local top-level variable `~A'~% g unbound-variable f !report possibly unbound variables f /~a~A: warning: possibly unbound variable `~A'~% g arity-mismatch f =report procedure arity mismatches (wrong number of arguments) f 2~a~A: warning: wrong number of arguments to `~A'~% f ;~a~A: warning: possibly wrong number of arguments to `~A'~% g duplicate-case-datum f -report a duplicate datum in a case expression f F~a~A: warning: duplicate datum ~S in clause ~S of case expression ~S~% g bad-case-datum f Ereport a case datum that cannot be meaningfully compared using `eqv?' f i~a~A: warning: datum ~S cannot be meaningfully compared using `eqv?' in clause ~S of case expression ~S~% f ,report wrong number of arguments to `format' g wrong-num-args f ~a~A: `format' warning~% f 6~a~A: warning: wrong number of arguments to `format'~% g non-literal-format-string f *~a~A: warning: non-literal format string~% g wrong-format-string f (~a~A: warning: ~S: wrong format string~% g wrong-port f (~a~A: warning: ~S: wrong port argument~% g syntax-error g "unexpected-conditional-termination f %~a~A: warning: ~S: unexpected `~~]'~% g list->string g string-fold-right g append \n g unexpected-semicolon f %~a~A: warning: ~S: unexpected `~~;'~% g unterminated-conditional f -~a~A: warning: ~S: unterminated conditional~% g unterminated-iteration f +~a~A: warning: ~S: unterminated iteration~% g wrong-format-arg-count f L~a~A: warning: ~S: wrong number of `format' arguments: expected ~A, got ~A~% f any number f ~aup to ~a f ~aat least ~a g number->string f ~a~a to ~a g simple-format f O~a~A: warning: ~S: unsupported format option ~~~A, use (ice-9 format) instead~% g find f #~A: unknown warning type `~A': ~A~%C 5 h3 ]4 #5 4& > " G '()*+,-. hH ] $ 64 5 $ " 4 54 56C g loc B g t * g filenamef system/base/message.scm + , , - . . ! . . ' . , + / 1 / ! 3 / 4 / 5 0 ; 0 = 0 ? - A 1 B g nameg location-string C/R40i1i5R42i35R4 h ] C g name g description g printer g filenamef system/base/message.scm E g nameg %make-warning-type-procedure C5R489:=@ h t ] C l g t-44b57084b9-697 g t-44b57084b9-698 g t-44b57084b9-699 C9 h Z ]L 6 R g a g filenamef system/base/message.scm E C> h J ] L 6B g filenamef system/base/message.scm E C h ] C C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x n g tmp n g tmp " n g tmp > n g filenamef system/base/message.scm E n C59R4ߨ 4 4> " G 5i 4R4 h ] $ CC x g obj g filenamef system/base/message.scm E g nameg %warning-type?-procedure CR48 :=N h 8 ] C 0 g t-44b57084b9-6aa C h Z ]L 6 R g a g filenamef system/base/message.scm E C> h J ] L 6B g filenamef system/base/message.scm E CP h ] C C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x n g tmp n g tmp " n g tmp > n g filenamef system/base/message.scm E n C5 R4S h ] & C 6z g s g filenamef system/base/message.scm E g nameg %warning-type-name-procedure CTR48 := h : ]C 2 g err g s C h : ]C 2 g err g s C h : ]C 2 g err g s C h 8 ] C 0 g t-44b57084b9-6b6 C h Z ]L 6 R g a g filenamef system/base/message.scm E C> h J ] L 6B g filenamef system/base/message.scm E C h ] C C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef system/base/message.scm E C5 R4S h ] & C 6 g s g filenamef system/base/message.scm E g nameg #%warning-type-description-procedure CR48 := h : ]C 2 g err g s C h : ]C 2 g err g s C h : ]C 2 g err g s C* h 8 ] C 0 g t-44b57084b9-6d1 C h Z ]L 6 R g a g filenamef system/base/message.scm E C> h J ] L 6B g filenamef system/base/message.scm E C, h ] C C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef system/base/message.scm E C5 R4S h ] & C 6 } g s g filenamef system/base/message.scm E g nameg %warning-type-printer-procedure C-R48 :=;BG h : ]C 2 g err g s CJPU h : ]C 2 g err g s CX^c h : ]C 2 g err g s C h 8 ] C 0 g t-44b57084b9-6ec C h Z ]L 6 R g a g filenamef system/base/message.scm E C> h J ] L 6B g filenamef system/base/message.scm E C h ] C C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @ 6 6 g x g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef system/base/message.scm E C5 R48:= h v ]45C n g dummy g check? g s g getter g expr C h( ] 4 5 $ @ 6 g x " g tmp " g filenamef system/base/message.scm E " g macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5R4i5 h e ] @] g args g filenamef system/base/message.scm N O C' h ] [6 g port g unused g name g filenamef system/base/message.scm _ ` C ' h ] [6 g port g loc g name g filenamef system/base/message.scm e f C ' h ] [6 g port g loc g name g filenamef system/base/message.scm k l C ' h ] [6 g port g loc g name g filenamef system/base/message.scm q r C ' h( ]$ [6 [6 g port & g loc & g name & g certain? & g filenamef system/base/message.scm w x y | & C ' h ] [6 g port g loc g datum g clause g case-expr g filenamef system/base/message.scm C ' h ] [6 g port g loc g datum g clause g case-expr g filenamef system/base/message.scm C '' h ] & 6 C g c g r g filenamef system/base/message.scm % ' 3 + + C h ] & 6 C g c g r g filenamef system/base/message.scm % ' 3 + + C h ] & 6 C g c g r g filenamef system/base/message.scm % ' 3 + + C h ] & 6 C g c g r g filenamef system/base/message.scm % ' 3 + + C h ] & 6 C g c g r g filenamef system/base/message.scm % ' 3 + + C? h ] & 6 C g c g r g filenamef system/base/message.scm % ' 3 + + C ' h 7 - 1 3 " 5" 5" " ;" " A" " " k$ W & 8" [6$ ( [6"" [6 [6$ )( & [6"i"e"a$ @ & *$ ( [6" """$ @ & *$ ( [6""""$ n & X$ M & 7$ ,( ! [44556"Z"V"R"N"J"F$ n & X$ M & 7$ ,( ! [44556""""""$ n & X$ M & 7$ ,( ! [44556"`"\"X"T"P"L$ n & X$ M & 7$ ,( ! [44556""""""$ & $ $ $ $ ( [44 55 & & " 4 [ 5" < & 4![5" # $ 4"5" 4#[ 5 6"""""""$ d $& N$ C $ .( # %[44&556"l"h"d"`"\ / g port g loc g rest g w : g x : g w g w g x g w g w $ ^ g x $ ^ g w A R g w o g x o g w g x g w g w P g x P g w H g x H g w < g w a g x a g w z g x z g w g w B g x B g w : g x : g w . g w S > g x S > g w l 6 g x l 6 g w } 2 g x } 2 g w . g x . g w & g w O g x O g w h g x h g w } .g filenamef system/base/message.scm P W o I V % & , / 4 % 8 : < @ % ! & % * , . 2 % ! % ! $ & * % K C 5"R4S h n ]L & " 4 5Cf g wt g filenamef system/base/message.scm C" h ] O 6 g name g filenamef system/base/message.scm g nameg lookup-warning-typeg documentationf 2Return the warning type NAME or `#f' if not found. C!R!1'/4 h` - 1 3 4 545 " 45 6$ & 45@"" g type Z g location Z g args Z g wt Z g port Z g filenamef system/base/message.scm # $ 0 0 3 7 : E H R Z g nameg warningg documentationf jEmit a warning of type TYPE for source location LOCATION (a source property alist) using the data in ARGS. C RC g m , g rtd g filenamef system/base/message.scm + > : B B B @ E N P ] / N / L 1 3 3 C6 PK \Wl` ` ck.gonu [ GOOF----LE-8-2.0H ] 4 h ] g guile g define-module* g system g base g ck g filenameS f system/base/ck.scm g exportsS g set-current-module g make-syntax-transformer g macro g $sc-dispatch g any g free-id g syntax-object g quote g top g ribcage g x ! "g m-1e97f9b4a-48 #" $# %f l-1e97f9b4a-4a &% ' !$& ( ' )g hygiene *) +(* ,+ -, .- /g each-any 0// 10 21- 3g ck-arg 4g dummy 5g op 6g ea 7g s 8g v 945678 :# ;f l-1e97f9b4a-52 <f l-1e97f9b4a-53 =f l-1e97f9b4a-54 >f l-1e97f9b4a-55 ?f l-1e97f9b4a-56 @;<=>? A 9:@ B A ' C3B* Dg append ED FD GB* H/ IH J4756 K# Lf l-1e97f9b4a-5f Mf l-1e97f9b4a-60 Nf l-1e97f9b4a-61 Of l-1e97f9b4a-62 PLMNO Q JKP R Q ' S3R* Tg syntax-violation UT VT Wf -source expression failed to match any pattern Xg m-1e97f9b4a-68 YX ZY [f l-1e97f9b4a-6a \[ ] !Z\ ^ ] _^* `_ a` ba/ c/b dc ed fg ea1 g4758f hY if l-1e97f9b4a-77 jf l-1e97f9b4a-78 kf l-1e97f9b4a-79 lf l-1e97f9b4a-7a mf l-1e97f9b4a-7b nijklm o ghn p o ] q3p* rp* s/H ts ut v4756f wf l-1e97f9b4a-84 xf l-1e97f9b4a-85 yf l-1e97f9b4a-86 zf l-1e97f9b4a-87 {f l-1e97f9b4a-88 |wxyz{ } vh| ~ } ] ~* C 5 h V ]4 5 4 > " G 4. h < ]C 4 g dummy g v C2CFG h k ]4 5C c g dummy g op g ea g s g v CIS h \ ] C T g dummy g s g op g ea CVW hP " ]4 5 $ @4 5 $ @4 5 $ @ 6 g x P g tmp P g tmp " P g tmp 9 P g filenamef system/base/ck.scm $ P g macro-typeg syntax-rulesg patternsg quoteg v g opg ... g eag ... g sg quoteg v g sg opg eag ... C5R43I h \ ]C T g dummy g s g op g va CeqFr h l ]4 5C d g dummy g s g op g v g ea1 Cu h m ] C e g dummy g s g op g ea g ea1 CVW hP 6 ]4 5 $ @4 5 $ @4 5 $ @ 6. g x P g tmp P g tmp " P g tmp 9 P g filenamef system/base/ck.scm . P g macro-typeg syntax-rulesg patternsg sg opg vag ... g sg opg ... g quoteg v g ea1g ... g sg opg ... g eag ea1g ... C53RC N g m ( g filenamef system/base/ck.scm C6 PK J\7@/ base-carousel-trait.phpnu [ <?php namespace ElementorPro\Base; use Elementor\Group_Control_Background; use Elementor\Group_Control_Border; use Elementor\Group_Control_Box_Shadow; use ElementorPro\Plugin; use Elementor\Controls_Manager; use Elementor\Icons_Manager; use Elementor\Group_Control_Typography; if ( ! defined( 'ABSPATH' ) ) { exit; // Exit if accessed directly } trait Base_Carousel_Trait { public $num_of_carousel_items; public function add_carousel_layout_controls( $params ) { $slides_on_display = range( 1, $params['slides_on_display'] ); $slides_on_display = array_combine( $slides_on_display, $slides_on_display ); $slides_to_show_shared_settings = [ 'label' => esc_html__( 'Slides on display', 'elementor-pro' ), 'type' => Controls_Manager::SELECT, 'options' => [ '' => esc_html__( 'Default', 'elementor-pro' ), ] + $slides_on_display, 'inherit_placeholders' => false, 'frontend_available' => true, 'render_type' => 'template', 'content_classes' => 'elementor-control-field-select-small', ]; $this->add_responsive_control( 'slides_to_show', $params['slides_to_show_custom_settings'] + $slides_to_show_shared_settings ); $slides_to_scroll_shared_settings = [ 'label' => esc_html__( 'Slides on scroll', 'elementor-pro' ), 'type' => Controls_Manager::SELECT, 'options' => [ '' => esc_html__( 'Default', 'elementor-pro' ), ] + $slides_on_display, 'inherit_placeholders' => false, 'frontend_available' => true, 'content_classes' => 'elementor-control-field-select-small', ]; $this->add_responsive_control( 'slides_to_scroll', $params['slides_to_scroll_custom_settings'] + $slides_to_scroll_shared_settings ); $equal_height_shared_settings = [ 'label' => esc_html__( 'Equal Height', 'elementor-pro' ), 'type' => Controls_Manager::SWITCHER, 'label_off' => esc_html__( 'Off', 'elementor-pro' ), 'label_on' => esc_html__( 'On', 'elementor-pro' ), 'default' => 'yes', ]; $this->add_control( 'equal_height', $params['equal_height_custom_settings'] + $equal_height_shared_settings ); } public function add_carousel_settings_controls( $params = [] ) { $this->start_controls_section( 'section_carousel_settings', [ 'label' => esc_html__( 'Settings', 'elementor-pro' ), ] ); $autoplay_shared_settings = [ 'label' => esc_html__( 'Autoplay', 'elementor-pro' ), 'type' => Controls_Manager::SWITCHER, 'default' => 'yes', 'options' => [ 'yes' => esc_html__( 'On', 'elementor-pro' ), 'no' => esc_html__( 'Off', 'elementor-pro' ), ], 'frontend_available' => true, ]; $this->add_control( 'autoplay', array_key_exists( 'autoplay_custom_settings', $params ) ? $params['autoplay_custom_settings'] + $autoplay_shared_settings : $autoplay_shared_settings ); $this->add_control( 'autoplay_speed', [ 'label' => esc_html__( 'Scroll Speed', 'elementor-pro' ) . ' (ms)', 'type' => Controls_Manager::NUMBER, 'default' => 5000, 'condition' => [ 'autoplay' => 'yes', ], 'render_type' => 'none', 'frontend_available' => true, ] ); $this->add_control( 'pause_on_hover', [ 'label' => esc_html__( 'Pause on hover', 'elementor-pro' ), 'type' => Controls_Manager::SWITCHER, 'default' => 'yes', 'options' => [ 'yes' => esc_html__( 'On', 'elementor-pro' ), 'no' => esc_html__( 'Off', 'elementor-pro' ), ], 'condition' => [ 'autoplay' => 'yes', ], 'render_type' => 'none', 'frontend_available' => true, ] ); $this->add_control( 'pause_on_interaction', [ 'label' => esc_html__( 'Pause on interaction', 'elementor-pro' ), 'type' => Controls_Manager::SWITCHER, 'default' => 'yes', 'options' => [ 'yes' => esc_html__( 'On', 'elementor-pro' ), 'no' => esc_html__( 'Off', 'elementor-pro' ), ], 'condition' => [ 'autoplay' => 'yes', ], 'frontend_available' => true, ] ); $infinite_shared_settings = [ 'label' => esc_html__( 'Infinite scroll', 'elementor-pro' ), 'type' => Controls_Manager::SWITCHER, 'default' => 'yes', 'options' => [ 'yes' => esc_html__( 'On', 'elementor-pro' ), 'no' => esc_html__( 'Off', 'elementor-pro' ), ], 'frontend_available' => true, ]; $this->add_control( 'infinite', array_key_exists( 'infinite_custom_settings', $params ) ? $params['infinite_custom_settings'] + $infinite_shared_settings : $infinite_shared_settings ); $this->add_control( 'speed', [ 'label' => esc_html__( 'Transition Duration', 'elementor-pro' ) . ' (ms)', 'type' => Controls_Manager::NUMBER, 'default' => 500, 'render_type' => 'none', 'frontend_available' => true, ] ); $this->add_control( 'direction', [ 'label' => esc_html__( 'Direction', 'elementor-pro' ), 'type' => Controls_Manager::SELECT, 'default' => is_rtl() ? 'rtl' : 'ltr', 'options' => [ 'ltr' => esc_html__( 'Left', 'elementor-pro' ), 'rtl' => esc_html__( 'Right', 'elementor-pro' ), ], ] ); $offset_sides_shared_settings = [ 'label' => esc_html__( 'Offset Sides', 'elementor-pro' ), 'type' => Controls_Manager::SELECT, 'default' => 'none', 'separator' => 'before', 'frontend_available' => true, 'condition' => [ 'infinite' => 'yes', ], 'options' => [ 'none' => esc_html__( 'None', 'elementor-pro' ), 'both' => esc_html__( 'Both', 'elementor-pro' ), 'left' => esc_html__( 'Left', 'elementor-pro' ), 'right' => esc_html__( 'Right', 'elementor-pro' ), ], ]; $this->add_control( 'offset_sides', array_key_exists( 'offset_sides_custom_settings', $params ) ? $params['offset_sides_custom_settings'] + $offset_sides_shared_settings : $offset_sides_shared_settings ); $this->add_responsive_control( 'offset_width', [ 'label' => esc_html__( 'Offset Width', 'elementor-pro' ), 'type' => Controls_Manager::SLIDER, 'size_units' => [ 'px' ], 'frontend_available' => true, 'condition' => [ 'offset_sides!' => 'none', 'infinite' => 'yes', ], 'default' => [ 'size' => 80, ], 'selectors' => [ '{{WRAPPER}}' => '--' . $params['css_prefix'] . 'swiper-offset-size: {{SIZE}}px', ], ] ); $this->end_controls_section(); } public function add_carousel_navigation_controls( $params = [] ) { $navigation_shared_settings = [ 'label' => esc_html__( 'Navigation', 'elementor-pro' ), ]; $this->start_controls_section( 'section_navigation_settings', array_key_exists( 'navigation_custom_settings', $params ) ? $params['navigation_custom_settings'] + $navigation_shared_settings : $navigation_shared_settings ); $this->add_control( 'arrows', [ 'label' => esc_html__( 'Arrows', 'elementor-pro' ), 'type' => Controls_Manager::SWITCHER, 'label_off' => esc_html__( 'Hide', 'elementor-pro' ), 'label_on' => esc_html__( 'Show', 'elementor-pro' ), 'default' => 'yes', 'frontend_available' => true, ] ); $this->add_control( 'heading_previous_arrow', [ 'type' => Controls_Manager::HEADING, 'label' => esc_html__( 'Previous Arrow', 'elementor-pro' ), 'condition' => [ 'arrows' => 'yes', ], 'separator' => 'before', ] ); $this->add_control( 'navigation_previous_icon', [ 'label' => esc_html__( 'Icon', 'elementor-pro' ), 'type' => Controls_Manager::ICONS, 'fa4compatibility' => 'icon', 'skin' => 'inline', 'label_block' => false, 'skin_settings' => [ 'inline' => [ 'icon' => [ 'icon' => 'eicon-star', ], ], ], 'recommended' => [ 'fa-regular' => [ 'arrow-alt-circle-left', 'caret-square-left', ], 'fa-solid' => [ 'angle-double-left', 'angle-left', 'arrow-alt-circle-left', 'arrow-circle-left', 'arrow-left', 'caret-left', 'caret-square-left', 'chevron-circle-left', 'chevron-left', 'long-arrow-alt-left', ], ], 'condition' => [ 'arrows' => 'yes', ], 'default' => [ 'value' => 'eicon-chevron-left', 'library' => 'eicons', ], ] ); $this->add_control( 'heading_previous_arrow_horizontal', [ 'type' => Controls_Manager::HEADING, 'label' => esc_html__( 'Horizontal', 'elementor-pro' ), 'condition' => [ 'arrows' => 'yes', ], ] ); $this->add_responsive_control( 'navigation_previous_icon_horizontal_orientation', [ 'label' => esc_html__( 'Orientation', 'elementor-pro' ), 'type' => Controls_Manager::CHOOSE, 'options' => $this->get_arrows_horizontal_navigation_controls(), 'default' => 'start', 'selectors' => [ '{{WRAPPER}}' => '{{VALUE}}', ], 'selectors_dictionary' => [ 'start' => '--' . $params['css_prefix'] . 'arrow-prev-left-align: 0%;--' . $params['css_prefix'] . 'arrow-prev-translate-x: 0px;', 'center' => '--' . $params['css_prefix'] . 'arrow-prev-left-align: 50%;--' . $params['css_prefix'] . 'arrow-prev-translate-x: -50%;', 'end' => '--' . $params['css_prefix'] . 'arrow-prev-left-align: 100%;--' . $params['css_prefix'] . 'arrow-prev-translate-x: -100%;', ], 'condition' => [ 'arrows' => 'yes', ], ] ); $this->add_responsive_control( 'navigation_previous_icon_horizontal_position', array_merge( $this->get_position_slider_initial_configuration(), [ 'selectors' => [ '{{WRAPPER}}' => '--' . $params['css_prefix'] . 'arrow-prev-left-position: {{SIZE}}{{UNIT}};', ], 'default' => [ 'size' => 0, ], 'condition' => [ 'arrows' => 'yes', ], ] ) ); $this->add_control( 'heading_previous_arrow_vertical', [ 'type' => Controls_Manager::HEADING, 'label' => esc_html__( 'Vertical', 'elementor-pro' ), 'condition' => [ 'arrows' => 'yes', ], ] ); $this->add_responsive_control( 'navigation_previous_icon_vertical_orientation', [ 'label' => esc_html__( 'Orientation', 'elementor-pro' ), 'type' => Controls_Manager::CHOOSE, 'options' => [ 'start' => [ 'title' => esc_html__( 'Start', 'elementor-pro' ), 'icon' => 'eicon-v-align-top', ], 'center' => [ 'title' => esc_html__( 'Center', 'elementor-pro' ), 'icon' => 'eicon-v-align-middle', ], 'end' => [ 'title' => esc_html__( 'End', 'elementor-pro' ), 'icon' => 'eicon-v-align-bottom', ], ], 'default' => 'center', 'selectors' => [ '{{WRAPPER}}' => '{{VALUE}}', ], 'selectors_dictionary' => [ 'start' => '--' . $params['css_prefix'] . 'arrow-prev-top-align: 0%; --' . $params['css_prefix'] . 'arrow-prev-caption-spacing: 0px;--' . $params['css_prefix'] . 'arrow-prev-translate-y: 0px;', 'center' => '--' . $params['css_prefix'] . 'arrow-prev-top-align: 50%;--' . $params['css_prefix'] . 'arrow-prev-translate-y: -50%;', 'end' => '--' . $params['css_prefix'] . 'arrow-prev-top-align: 100%;--' . $params['css_prefix'] . 'arrow-prev-translate-y: -100%;', ], 'condition' => [ 'arrows' => 'yes', ], ] ); $this->add_responsive_control( 'navigation_previous_icon_vertical_position', array_merge( $this->get_position_slider_initial_configuration(), [ 'selectors' => [ '{{WRAPPER}}' => '--' . $params['css_prefix'] . 'arrow-prev-top-position: {{SIZE}}{{UNIT}};', ], 'default' => [ 'size' => 0, ], 'condition' => [ 'arrows' => 'yes', ], 'separator' => 'after', ] ) ); $this->add_control( 'heading_next_arrow', [ 'type' => Controls_Manager::HEADING, 'label' => esc_html__( 'Next Arrow', 'elementor-pro' ), 'condition' => [ 'arrows' => 'yes', ], ] ); $this->add_control( 'navigation_next_icon', [ 'label' => esc_html__( 'Icon', 'elementor-pro' ), 'type' => Controls_Manager::ICONS, 'fa4compatibility' => 'icon', 'skin' => 'inline', 'label_block' => false, 'skin_settings' => [ 'inline' => [ 'icon' => [ 'icon' => 'eicon-star', ], ], ], 'recommended' => [ 'fa-regular' => [ 'arrow-alt-circle-right', 'caret-square-right', ], 'fa-solid' => [ 'angle-double-right', 'angle-right', 'arrow-alt-circle-right', 'arrow-circle-right', 'arrow-right', 'caret-right', 'caret-square-right', 'chevron-circle-right', 'chevron-right', 'long-arrow-alt-right', ], ], 'condition' => [ 'arrows' => 'yes', ], 'default' => [ 'value' => 'eicon-chevron-right', 'library' => 'eicons', ], ] ); $this->add_control( 'heading_next_arrow_horizontal', [ 'type' => Controls_Manager::HEADING, 'label' => esc_html__( 'Horizontal', 'elementor-pro' ), 'condition' => [ 'arrows' => 'yes', ], ] ); $this->add_responsive_control( 'navigation_next_icon_horizontal_orientation', [ 'label' => esc_html__( 'Orientation', 'elementor-pro' ), 'type' => Controls_Manager::CHOOSE, 'options' => $this->get_arrows_horizontal_navigation_controls(), 'default' => 'end', 'selectors' => [ '{{WRAPPER}}' => '{{VALUE}}', ], 'selectors_dictionary' => [ 'start' => '--' . $params['css_prefix'] . 'arrow-next-right-align: 100%;--' . $params['css_prefix'] . 'arrow-next-translate-x: 100%;', 'center' => '--' . $params['css_prefix'] . 'arrow-next-right-align: 50%;--' . $params['css_prefix'] . 'arrow-next-translate-x: 50%;', 'end' => '--' . $params['css_prefix'] . 'arrow-next-right-align: 0%;--' . $params['css_prefix'] . 'arrow-next-translate-x: 0%;', ], 'condition' => [ 'arrows' => 'yes', ], ] ); $this->add_responsive_control( 'navigation_next_icon_horizontal_position', array_merge( $this->get_position_slider_initial_configuration(), [ 'selectors' => [ '{{WRAPPER}}' => '--' . $params['css_prefix'] . 'arrow-next-right-position: {{SIZE}}{{UNIT}};', ], 'default' => [ 'size' => 0, ], 'condition' => [ 'arrows' => 'yes', ], ] ) ); $this->add_control( 'heading_next_arrow_vertical', [ 'type' => Controls_Manager::HEADING, 'label' => esc_html__( 'Vertical', 'elementor-pro' ), 'condition' => [ 'arrows' => 'yes', ], ] ); $this->add_responsive_control( 'navigation_next_icon_vertical_orientation', [ 'label' => esc_html__( 'Orientation', 'elementor-pro' ), 'type' => Controls_Manager::CHOOSE, 'options' => [ 'start' => [ 'title' => esc_html__( 'Start', 'elementor-pro' ), 'icon' => 'eicon-v-align-top', ], 'center' => [ 'title' => esc_html__( 'Center', 'elementor-pro' ), 'icon' => 'eicon-v-align-middle', ], 'end' => [ 'title' => esc_html__( 'End', 'elementor-pro' ), 'icon' => 'eicon-v-align-bottom', ], ], 'default' => 'center', 'selectors' => [ '{{WRAPPER}}' => '{{VALUE}}', ], 'selectors_dictionary' => [ 'start' => '--' . $params['css_prefix'] . 'arrow-next-top-align: 0%; --' . $params['css_prefix'] . 'arrow-next-caption-spacing: 0px;--' . $params['css_prefix'] . 'arrow-next-translate-y: 0px;', 'center' => '--' . $params['css_prefix'] . 'arrow-next-top-align: 50%;--' . $params['css_prefix'] . 'arrow-next-translate-y: -50%;', 'end' => '--' . $params['css_prefix'] . 'arrow-next-top-align: 100%;--' . $params['css_prefix'] . 'arrow-next-translate-y: -100%;', ], 'condition' => [ 'arrows' => 'yes', ], ] ); $this->add_responsive_control( 'navigation_next_icon_vertical_position', array_merge( $this->get_position_slider_initial_configuration(), [ 'selectors' => [ '{{WRAPPER}}' => '--' . $params['css_prefix'] . 'arrow-next-top-position: {{SIZE}}{{UNIT}};', ], 'default' => [ 'size' => 0, ], 'condition' => [ 'arrows' => 'yes', ], ] ) ); $this->end_controls_section(); } public function add_carousel_navigation_styling_controls( $params = [] ) { $navigation_styling_shared_settings = [ 'label' => esc_html__( 'Navigation', 'elementor-pro' ), 'tab' => Controls_Manager::TAB_STYLE, ]; $this->start_controls_section( 'section_design_navigation', array_key_exists( 'navigation_styling_custom_settings', $params ) ? $params['navigation_styling_custom_settings'] + $navigation_styling_shared_settings : $navigation_styling_shared_settings ); $this->add_control( 'heading_icons', [ 'type' => Controls_Manager::HEADING, 'label' => esc_html__( 'Icons', 'elementor-pro' ), ] ); $this->add_responsive_control( 'arrows_size', [ 'label' => esc_html__( 'Size', 'elementor-pro' ), 'type' => Controls_Manager::SLIDER, 'size_units' => [ 'px', '%', 'em', 'rem', 'custom' ], 'range' => [ 'px' => [ 'min' => 5, 'max' => 400, ], 'em' => [ 'min' => 0.1, 'max' => 10, ], 'rem' => [ 'min' => 0.1, 'max' => 10, ], ], 'selectors' => [ '{{WRAPPER}}' => '--' . $params['css_prefix'] . 'arrow-size: {{SIZE}}{{UNIT}};', ], ] ); $this->start_controls_tabs( 'arrows_colors_border_shadow' ); foreach ( [ 'normal', 'hover' ] as $state ) { $this->add_navigation_state_based_style_controls( $state, $params['css_prefix'] ); } $this->end_controls_tab(); $this->end_controls_tabs(); $this->add_responsive_control( 'arrows_border_radius', [ 'label' => esc_html__( 'Border Radius', 'elementor-pro' ), 'type' => Controls_Manager::DIMENSIONS, 'size_units' => [ 'px', '%', 'em', 'rem', 'custom' ], 'selectors' => [ '{{WRAPPER}} :is(.elementor-swiper-button-prev, .elementor-swiper-button-next) ' => 'border-radius: {{TOP}}{{UNIT}} {{RIGHT}}{{UNIT}} {{BOTTOM}}{{UNIT}} {{LEFT}}{{UNIT}};', ], 'range' => [ 'em' => [ 'min' => 0, 'max' => 5, ], 'rem' => [ 'min' => 0, 'max' => 5, ], 'px' => [ 'max' => 50, ], ], 'separator' => 'before', ] ); $this->add_responsive_control( 'arrows_padding', [ 'label' => esc_html__( 'Padding', 'elementor-pro' ), 'type' => Controls_Manager::DIMENSIONS, 'size_units' => [ 'px', '%', 'em', 'rem', 'vw', 'custom' ], 'selectors' => [ '{{WRAPPER}} :is(.elementor-swiper-button-prev, .elementor-swiper-button-next) ' => 'padding: {{TOP}}{{UNIT}} {{RIGHT}}{{UNIT}} {{BOTTOM}}{{UNIT}} {{LEFT}}{{UNIT}};', ], ] ); $this->add_control( 'arrows_position', [ 'label' => esc_html__( 'Position', 'elementor-pro' ), 'type' => Controls_Manager::SELECT, 'default' => 'inside', 'options' => [ 'inside' => esc_html__( 'Inside', 'elementor-pro' ), 'outside' => esc_html__( 'Outside', 'elementor-pro' ), ], 'prefix_class' => 'elementor-arrows-position-', 'condition' => [ 'arrows' => 'yes', ], 'separator' => 'before', ] ); $this->end_controls_section(); } public function add_carousel_pagination_controls( $params = [] ) { $pagination_shared_settings = [ 'label' => esc_html__( 'Pagination', 'elementor-pro' ), ]; $this->start_controls_section( 'section_carousel_pagination', array_key_exists( 'section_carousel_pagination', $params ) ? $params['section_carousel_pagination'] + $pagination_shared_settings : $pagination_shared_settings ); $this->add_control( 'pagination', [ 'label' => esc_html__( 'Pagination', 'elementor-pro' ), 'type' => Controls_Manager::SELECT, 'default' => 'bullets', 'options' => [ '' => esc_html__( 'None', 'elementor-pro' ), 'bullets' => esc_html__( 'Dots', 'elementor-pro' ), 'fraction' => esc_html__( 'Fraction', 'elementor-pro' ), 'progressbar' => esc_html__( 'Progress', 'elementor-pro' ), ], 'prefix_class' => 'elementor-pagination-type-', 'render_type' => 'template', 'frontend_available' => true, ] ); $this->end_controls_section(); } public function add_carousel_pagination_style_controls( $params ) { $this->start_controls_section( 'section_pagination_design', [ 'label' => esc_html__( 'Pagination', 'elementor-pro' ), 'tab' => Controls_Manager::TAB_STYLE, 'condition' => [ 'pagination!' => '', ], ] ); $this->add_control( 'heading_pagination_dots', [ 'type' => Controls_Manager::HEADING, 'label' => esc_html__( 'Dots', 'elementor-pro' ), 'condition' => [ 'pagination' => 'bullets', ], ] ); $this->add_responsive_control( 'dots_gap', [ 'label' => esc_html__( 'Space Between Dots', 'elementor-pro' ), 'type' => Controls_Manager::SLIDER, 'size_units' => [ 'px', 'em', 'rem', 'custom' ], 'range' => [ 'px' => [ 'max' => 50, ], ], 'selectors' => [ '{{WRAPPER}} .swiper-pagination-bullet' => '--swiper-pagination-bullet-horizontal-gap: {{SIZE}}{{UNIT}}; --swiper-pagination-bullet-vertical-gap: {{SIZE}}{{UNIT}};', ], 'condition' => [ 'pagination' => 'bullets', ], ] ); $this->add_responsive_control( 'dots_size', [ 'label' => esc_html__( 'Size', 'elementor-pro' ), 'type' => Controls_Manager::SLIDER, 'size_units' => [ 'px', 'em', 'rem', 'custom' ], 'range' => [ 'px' => [ 'min' => 5, 'max' => 200, ], 'em' => [ 'min' => 0.5, 'max' => 20, ], 'rem' => [ 'min' => 0.5, 'max' => 20, ], ], 'selectors' => [ '{{WRAPPER}}' => '--' . $params['css_prefix'] . 'swiper-pagination-size: {{SIZE}}{{UNIT}}', ], 'condition' => [ 'pagination' => 'bullets', ], ] ); $this->start_controls_tabs( 'dots_colors' ); $this->start_controls_tab( 'dots_normal_colors', [ 'label' => esc_html__( 'Normal', 'elementor-pro' ), 'condition' => [ 'pagination' => 'bullets', ], ] ); $this->add_control( 'dots_normal_color', [ 'label' => esc_html__( 'Color', 'elementor-pro' ), 'type' => Controls_Manager::COLOR, 'selectors' => [ '{{WRAPPER}}' => '--' . $params['css_prefix'] . 'dots-normal-color: {{VALUE}};', ], 'condition' => [ 'pagination' => 'bullets', ], ] ); $this->end_controls_tab(); $this->start_controls_tab( 'dots_hover_colors', [ 'label' => esc_html__( 'Hover', 'elementor-pro' ), 'condition' => [ 'pagination' => 'bullets', ], ] ); $this->add_control( 'dots_hover_color', [ 'label' => esc_html__( 'Color', 'elementor-pro' ), 'type' => Controls_Manager::COLOR, 'selectors' => [ '{{WRAPPER}}' => '--' . $params['css_prefix'] . 'dots-hover-color: {{VALUE}};', ], 'condition' => [ 'pagination' => 'bullets', ], ] ); $this->end_controls_tab(); $this->end_controls_tabs(); $this->add_custom_pagination( $params['css_prefix'], 'dots' ); $this->add_control( 'dots_position', [ 'label' => esc_html__( 'Space From slides', 'elementor-pro' ), 'type' => Controls_Manager::SELECT, 'default' => 'outside', 'options' => [ 'inside' => esc_html__( 'None', 'elementor-pro' ), 'outside' => esc_html__( 'Custom', 'elementor-pro' ), ], 'prefix_class' => 'elementor-pagination-position-', 'condition' => [ 'pagination' => 'bullets', ], 'separator' => 'before', ] ); $this->add_responsive_control( 'dots_pagination_spacing', [ 'label' => esc_html__( 'Spacing', 'elementor-pro' ), 'type' => Controls_Manager::SLIDER, 'size_units' => [ 'px', 'em', 'rem', 'custom' ], 'range' => [ 'px' => [ 'max' => 100, ], 'em' => [ 'max' => 10, ], 'rem' => [ 'max' => 10, ], ], 'conditions' => [ 'relation' => 'and', 'terms' => [ [ 'name' => 'pagination', 'operator' => '==', 'value' => 'bullets', ], [ 'name' => 'dots_position', 'operator' => '==', 'value' => 'outside', ], ], ], 'selectors' => [ '{{WRAPPER}}' => '--' . $params['css_prefix'] . 'swiper-pagination-spacing: {{SIZE}}{{UNIT}};', ], ] ); $this->add_control( 'heading_pagination_fraction', [ 'type' => Controls_Manager::HEADING, 'label' => esc_html__( 'Fraction', 'elementor-pro' ), 'condition' => [ 'pagination' => 'fraction', ], ] ); $this->add_group_control( Group_Control_Typography::get_type(), [ 'name' => 'typography_fraction', 'selector' => '{{WRAPPER}} .swiper-pagination', 'condition' => [ 'pagination' => 'fraction', ], 'fields_options' => [ 'font_size' => [ 'selectors' => [ '{{WRAPPER}}' => '--' . $params['css_prefix'] . 'swiper-pagination-size: {{SIZE}}{{UNIT}};', '{{WRAPPER}} .swiper-pagination' => 'font-size: {{SIZE}}{{UNIT}};', ], ], 'line_height' => [ 'selectors' => [ '{{WRAPPER}}' => '--' . $params['css_prefix'] . 'swiper-pagination-size: {{SIZE}}{{UNIT}};', '{{WRAPPER}} .swiper-pagination' => 'line-height: {{SIZE}}{{UNIT}};', ], ], ], ] ); $this->add_control( 'fraction_color', [ 'label' => esc_html__( 'Color', 'elementor-pro' ), 'type' => Controls_Manager::COLOR, 'selectors' => [ '{{WRAPPER}}' => '--' . $params['css_prefix'] . 'fraction-color: {{VALUE}};', ], 'condition' => [ 'pagination' => 'fraction', ], ] ); $this->add_custom_pagination( $params['css_prefix'], 'fraction' ); $this->add_control( 'fraction_position', [ 'label' => esc_html__( 'Space From slides', 'elementor-pro' ), 'type' => Controls_Manager::SELECT, 'default' => 'outside', 'options' => [ 'inside' => esc_html__( 'None', 'elementor-pro' ), 'outside' => esc_html__( 'Custom', 'elementor-pro' ), ], 'prefix_class' => 'elementor-pagination-position-', 'condition' => [ 'pagination' => 'fraction', ], 'separator' => 'before', ] ); $this->add_responsive_control( 'fraction_pagination_spacing', [ 'label' => esc_html__( 'Spacing', 'elementor-pro' ), 'type' => Controls_Manager::SLIDER, 'size_units' => [ 'px', 'em', 'rem', 'custom' ], 'range' => [ 'px' => [ 'max' => 100, ], 'em' => [ 'max' => 10, ], 'rem' => [ 'max' => 10, ], ], 'conditions' => [ 'relation' => 'and', 'terms' => [ [ 'name' => 'pagination', 'operator' => '==', 'value' => 'fraction', ], [ 'name' => 'fraction_position', 'operator' => '==', 'value' => 'outside', ], ], ], 'selectors' => [ '{{WRAPPER}}' => '--' . $params['css_prefix'] . 'swiper-pagination-spacing: {{SIZE}}{{UNIT}};', ], ] ); $this->add_control( 'heading_pagination_progress', [ 'type' => Controls_Manager::HEADING, 'label' => esc_html__( 'Progress Bar', 'elementor-pro' ), 'condition' => [ 'pagination' => 'progressbar', ], ] ); $this->add_responsive_control( 'progressbar_height', [ 'label' => esc_html__( 'Height', 'elementor-pro' ), 'type' => Controls_Manager::SLIDER, 'size_units' => [ 'px', 'em', 'rem', 'vh', 'custom' ], 'range' => [ 'px' => [ 'max' => 200, ], 'em' => [ 'max' => 20, ], 'rem' => [ 'max' => 20, ], ], 'selectors' => [ '{{WRAPPER}}' => '--' . $params['css_prefix'] . 'swiper-pagination-size: {{SIZE}}{{UNIT}};', ], 'condition' => [ 'pagination' => 'progressbar', ], ] ); $this->start_controls_tabs( 'progressbar_colors' ); $this->start_controls_tab( 'progressbar_normal_colors', [ 'label' => esc_html__( 'Normal', 'elementor-pro' ), 'condition' => [ 'pagination' => 'progressbar', ], ] ); $this->add_control( 'progressbar_normal_color', [ 'label' => esc_html__( 'Color', 'elementor-pro' ), 'type' => Controls_Manager::COLOR, 'selectors' => [ '{{WRAPPER}}' => '--' . $params['css_prefix'] . 'progressbar-normal-color: {{VALUE}};', ], 'condition' => [ 'pagination' => 'progressbar', ], ] ); $this->end_controls_tab(); $this->start_controls_tab( 'progressbar_hover_colors', [ 'label' => esc_html__( 'Hover', 'elementor-pro' ), 'condition' => [ 'pagination' => 'progressbar', ], ] ); $this->add_control( 'progressbar_hover_color', [ 'label' => esc_html__( 'Color', 'elementor-pro' ), 'type' => Controls_Manager::COLOR, 'selectors' => [ '{{WRAPPER}}' => '--' . $params['css_prefix'] . 'progressbar-hover-color: {{VALUE}};', ], 'condition' => [ 'pagination' => 'progressbar', ], ] ); $this->end_controls_tab(); $this->end_controls_tabs(); $this->end_controls_section(); } public function render_carousel_footer( $settings ) { $should_render_pagination_and_arrows = $this->should_render_pagination_and_arrows( $settings ); if ( 'yes' === $settings['arrows'] && $should_render_pagination_and_arrows ) : ?> <div class="elementor-swiper-button elementor-swiper-button-prev" role="button" tabindex="0" aria-label="<?php echo esc_attr__( 'Previous', 'elementor-pro' ); ?>"> <?php $this->render_swiper_button( 'previous' ); ?> </div> <div class="elementor-swiper-button elementor-swiper-button-next" role="button" tabindex="0" aria-label="<?php echo esc_attr__( 'Next', 'elementor-pro' ); ?>"> <?php $this->render_swiper_button( 'next' ); ?> </div> <?php endif; if ( $settings['pagination'] && $should_render_pagination_and_arrows ) : ?> <div class="swiper-pagination"></div> <?php endif; } private function render_swiper_button( $type ) { $icon_settings = $this->get_settings_for_display( 'navigation_' . $type . '_icon' ); if ( empty( $icon_settings['value'] ) ) { return; } Icons_Manager::render_icon( $icon_settings, [ 'aria-hidden' => 'true' ] ); } /** * @param string $state * @param $css_prefix * @return void */ private function add_navigation_state_based_style_controls( string $state, $css_prefix ) { $label = esc_html__( 'Normal', 'elementor-pro' ); $selector = '{{WRAPPER}} :is(.elementor-swiper-button-prev, .elementor-swiper-button-next) '; if ( 'hover' === $state ) { $label = esc_html__( 'Hover', 'elementor-pro' ); $selector = '{{WRAPPER}} :is(.elementor-swiper-button-prev:hover, .elementor-swiper-button-next:hover) '; } $this->start_controls_tab('arrows_' . $state . '_colors_border_shadow_tab', [ 'label' => $label, ]); $this->add_control( 'arrow_' . $state . '_color', [ 'label' => esc_html__( 'Color', 'elementor-pro' ), 'type' => Controls_Manager::COLOR, 'selectors' => [ '{{WRAPPER}}' => '--' . $css_prefix . 'arrow-' . $state . '-color: {{VALUE}};', ], ] ); $this->add_group_control( Group_Control_Background::get_type(), [ 'name' => 'arrows_' . $state . '_background', 'types' => [ 'classic', 'gradient' ], 'exclude' => [ 'image' ], 'selector' => $selector, ] ); $this->add_group_control( Group_Control_Border::get_type(), [ 'name' => 'arrows_' . $state . '_border_type', 'selector' => $selector, 'fields_options' => [ 'color' => [ 'label' => esc_html__( 'Border Color', 'elementor-pro' ), ], 'width' => [ 'label' => esc_html__( 'Border Width', 'elementor-pro' ), ], ], ] ); $this->add_group_control( Group_Control_Box_Shadow::get_type(), [ 'name' => 'arrows_' . $state . '_box_shadow', 'selector' => $selector, ] ); $this->end_controls_tab(); } /** * @param string $css_prefix * @param string $pagination_type * * @return void */ private function add_custom_pagination( string $css_prefix, string $pagination_type ) { $start_logical = is_rtl() ? 'right' : 'left'; $end_logical = is_rtl() ? 'left' : 'right'; $condition = 'dots' === $pagination_type ? 'bullets' : $pagination_type; $pagination_type_custom_position_switcher = $pagination_type . '_custom_position'; $this->add_control( $pagination_type_custom_position_switcher, [ 'label' => esc_html__( 'Custom Position', 'elementor-pro' ), 'type' => Controls_Manager::SWITCHER, 'label_off' => esc_html__( 'Hide', 'elementor-pro' ), 'label_on' => esc_html__( 'Show', 'elementor-pro' ), 'condition' => [ 'pagination' => $condition, ], 'separator' => 'before', ] ); $this->add_control( 'heading_' . $pagination_type . '_pagination_horizontal', [ 'type' => Controls_Manager::HEADING, 'label' => esc_html__( 'Horizontal', 'elementor-pro' ), 'condition' => [ $pagination_type_custom_position_switcher => 'yes', ], ] ); $this->add_responsive_control( $pagination_type . '_horizontal_position', [ 'label' => esc_html__( 'Orientation', 'elementor-pro' ), 'type' => Controls_Manager::CHOOSE, 'options' => [ 'start' => [ 'title' => esc_html__( 'Start', 'elementor-pro' ), 'icon' => 'eicon-h-align-' . $start_logical, ], 'center' => [ 'title' => esc_html__( 'Center', 'elementor-pro' ), 'icon' => 'eicon-h-align-center', ], 'end' => [ 'title' => esc_html__( 'End', 'elementor-pro' ), 'icon' => 'eicon-h-align-' . $end_logical, ], ], 'default' => 'center', 'selectors' => [ '{{WRAPPER}}' => '{{VALUE}}', ], 'selectors_dictionary' => [ 'start' => '--' . $css_prefix . $pagination_type . '-horizontal-position:0px;--' . $css_prefix . $pagination_type . '-horizontal-transform:0%;', 'center' => '--' . $css_prefix . $pagination_type . '-horizontal-position:50%;--' . $css_prefix . $pagination_type . '-horizontal-transform:-50%;', 'end' => '--' . $css_prefix . $pagination_type . '-horizontal-position:100%;--' . $css_prefix . $pagination_type . '-horizontal-transform:-100%;', ], 'condition' => [ $pagination_type_custom_position_switcher => 'yes', 'pagination' => $condition, ], ] ); $this->add_responsive_control( $pagination_type . '_horizontal_offset', array_merge( $this->get_position_slider_initial_configuration(), [ 'selectors' => [ '{{WRAPPER}}' => '--' . $css_prefix . $pagination_type . '-horizontal-offset: {{SIZE}}{{UNIT}};', ], 'default' => [ 'size' => 0, ], 'condition' => [ $pagination_type_custom_position_switcher => 'yes', 'pagination' => $condition, ], ] ) ); $this->add_control( 'heading_' . $pagination_type . 'pagination_vertical', [ 'type' => Controls_Manager::HEADING, 'label' => esc_html__( 'Vertical', 'elementor-pro' ), 'condition' => [ $pagination_type_custom_position_switcher => 'yes', 'pagination' => $condition, ], ] ); $this->add_responsive_control( $pagination_type . '_vertical_position', [ 'label' => esc_html__( 'Orientation', 'elementor-pro' ), 'type' => Controls_Manager::CHOOSE, 'options' => [ 'start' => [ 'title' => esc_html__( 'Start', 'elementor-pro' ), 'icon' => 'eicon-v-align-top', ], 'center' => [ 'title' => esc_html__( 'Center', 'elementor-pro' ), 'icon' => 'eicon-v-align-middle', ], 'end' => [ 'title' => esc_html__( 'End', 'elementor-pro' ), 'icon' => 'eicon-v-align-bottom', ], ], 'default' => 'end', 'selectors' => [ '{{WRAPPER}}' => '{{VALUE}}', ], 'selectors_dictionary' => [ 'start' => '--' . $css_prefix . $pagination_type . '-vertical-position: 0%;--' . $css_prefix . $pagination_type . '-vertical-transform: 0%;', 'center' => '--' . $css_prefix . $pagination_type . '-vertical-position: 50%;--' . $css_prefix . $pagination_type . '-vertical-transform: -50%;', 'end' => '--' . $css_prefix . $pagination_type . '-vertical-position: 100%;--' . $css_prefix . $pagination_type . '-vertical-transform: -100%;', ], 'condition' => [ $pagination_type_custom_position_switcher => 'yes', 'pagination' => $condition, ], ] ); $this->add_responsive_control( $pagination_type . '_vertical_offset', array_merge( $this->get_position_slider_initial_configuration(), [ 'selectors' => [ '{{WRAPPER}}' => '--' . $css_prefix . $pagination_type . '-vertical-offset: {{SIZE}}{{UNIT}};', ], 'default' => [ 'size' => 0, ], 'condition' => [ $pagination_type_custom_position_switcher => 'yes', 'pagination' => $condition, ], 'separator' => 'after', ] ) ); } /** * @return array */ private function get_position_slider_initial_configuration(): array { return [ 'label' => esc_html__( 'Position', 'elementor-pro' ), 'type' => Controls_Manager::SLIDER, 'size_units' => [ 'px', '%', 'em', 'rem', 'vw', 'vh', 'custom' ], 'range' => [ 'px' => [ 'min' => -1000, 'max' => 1000, ], '%' => [ 'min' => -200, 'max' => 200, ], 'em' => [ 'min' => -50, 'max' => 50, ], 'rem' => [ 'min' => -50, 'max' => 50, ], 'vw' => [ 'min' => -200, 'max' => 200, ], 'vh' => [ 'min' => -200, 'max' => 200, ], ], ]; } /** * @return array[] */ private function get_arrows_horizontal_navigation_controls(): array { $navigation_controls = [ 'start' => [ 'title' => is_rtl() ? esc_html__( 'End', 'elementor-pro' ) : esc_html__( 'Start', 'elementor-pro' ), 'icon' => 'eicon-h-align-left', ], 'center' => [ 'title' => esc_html__( 'Center', 'elementor-pro' ), 'icon' => 'eicon-h-align-center', ], 'end' => [ 'title' => is_rtl() ? esc_html__( 'Start', 'elementor-pro' ) : esc_html__( 'End', 'elementor-pro' ), 'icon' => 'eicon-h-align-right', ], ]; return is_rtl() ? array_reverse( $navigation_controls ) : $navigation_controls; } /** * @param array $settings * @return boolean */ private function should_render_pagination_and_arrows( array $settings ) { // Check for override of control that specifies the number of items to show in the carousel. Nested Carousel overrides this. $num_of_carousel_items = $this->num_of_carousel_items ?? $settings['posts_per_page']; return ( isset( $num_of_carousel_items ) && 1 < $num_of_carousel_items || '' == $num_of_carousel_items ); } } PK J\WI I base-widget-trait.phpnu [ <?php namespace ElementorPro\Base; use ElementorPro\License\API as License_API; if ( ! defined( 'ABSPATH' ) ) { exit; // Exit if accessed directly } trait Base_Widget_Trait { public function is_editable() { return License_API::is_license_active(); } public function get_categories() { return [ 'pro-elements' ]; } } PK J\b+& on-import-trait.phpnu [ <?php namespace ElementorPro\Base; use Elementor\Element_Base; use ElementorPro\Modules\QueryControl\Controls\Query; use ElementorPro\Plugin; if ( ! defined( 'ABSPATH' ) ) { exit; // Exit if accessed directly } trait On_Import_Trait { /** * On import update dynamic content (e.g. post and term IDs). * * @since 3.8.0 * * @param array $element_config The config of the passed element. * @param array $data The data that requires updating/replacement when imported. * @param array|Element_Base $controls The available controls. * * @return array */ public static function on_import_update_dynamic_content( array $element_config, array $data, $controls = null ) : array { if ( $controls instanceof Element_Base ) { $element_config = $controls->on_import_update_dynamic_content( $element_config, $data ); $controls = $controls->get_controls(); } if ( ! is_array( $controls ) ) { return $element_config; } $available_control_types = Plugin::elementor()->controls_manager->get_controls(); foreach ( $controls as $control ) { $element_config = static::on_import_update_control( $element_config, $data, $control, $available_control_types ); } return $element_config; } /** * Check if a control requires updating, and do so if needed. * * @param array $element_config * @param array $data * @param array $control * @param array $available_control_types * * @return array */ private static function on_import_update_control( array $element_config, array $data, array $control, array $available_control_types ) : array { $control_value = $element_config['settings'][ $control['name'] ] ?? null; if ( empty( $control_value ) || ! $available_control_types[ $control['type'] ] instanceof Query ) { return $element_config; } $required_data = static::on_import_get_required_data( $data, $control['name'] ); if ( empty( $required_data ) ) { return $element_config; } if ( is_array( $control_value ) ) { foreach ( $control_value as $value ) { $element_config = static::on_import_update_control_value( $element_config, $required_data, $control['name'], $value ); } } else { $element_config = static::on_import_update_control_value( $element_config, $required_data, $control['name'], $control_value ); } return $element_config; } /** * Returns the data type that is required for updating. * * @param array $data * @param string $control_name * * @return array */ private static function on_import_get_required_data( array $data, string $control_name ) : array { if ( strpos( $control_name, 'term_ids' ) !== false ) { return $data['term_ids']; } if ( static::on_import_check_post_type( $control_name ) ) { return $data['post_ids']; } return []; } /** * Are the control values post IDs? * * @param string $control_name * * @return bool */ private static function on_import_check_post_type( string $control_name ) : bool { return strpos( $control_name, 'post_ids' ) !== false || in_array( $control_name, [ 'post_id', 'template_id', 'popup' ] ); } /** * Update the value for the dynamic control. * * @param array $element_config * @param array $data * @param string $control_name * @param $current_value * * @return array */ private static function on_import_update_control_value( array $element_config, array $data, string $control_name, $current_value ) : array { if ( ! isset( $data[ $current_value ] ) ) { return $element_config; } if ( is_array( $element_config['settings'][ $control_name ] ) ) { $element_config['settings'][ $control_name ] = array_map( function( $item ) use ( $data, $current_value ) { return $item === $current_value ? $data[ $current_value ] : $item; }, $element_config['settings'][ $control_name ] ); } else { $element_config['settings'][ $control_name ] = $data[ $current_value ]; } return $element_config; } } PK J\'/ editor-one-trait.phpnu [ <?php namespace ElementorPro\Base; use ElementorPro\Plugin; if ( ! defined( 'ABSPATH' ) ) { exit; } trait Editor_One_Trait { protected function is_editor_one_active(): bool { return (bool) Plugin::elementor()->modules_manager->get_modules( 'editor-one' ); } } PK J\ dKL L module-base.phpnu [ <?php namespace ElementorPro\Base; use Elementor\Core\Base\Module; if ( ! defined( 'ABSPATH' ) ) { exit; // Exit if accessed directly } abstract class Module_Base extends Module { // This class was needed in the past and not being removed for future functionalities that might be needed for all classes that still extend it. } PK J\ base-widget.phpnu [ <?php namespace ElementorPro\Base; use Elementor\Widget_Base; use ElementorPro\Plugin; if ( ! defined( 'ABSPATH' ) ) { exit; // Exit if accessed directly } abstract class Base_Widget extends Widget_Base { use Base_Widget_Trait; use On_Import_Trait; } PK \^}D D pmatch.gonu [ PK \A5M } target.gonu [ PK \3L L 8 syntax.gonu [ PK \y lalr.gonu [ PK \;m FA language.gonu [ PK \N A8 A8 %Y compile.gonu [ PK \ types.gonu [ PK \vfs s message.gonu [ PK \Wl` ` ׅ ck.gonu [ PK J\7@/ l base-carousel-trait.phpnu [ PK J\WI I , base-widget-trait.phpnu [ PK J\b+& 9. on-import-trait.phpnu [ PK J\'/ > editor-one-trait.phpnu [ PK J\ dKL L c? module-base.phpnu [ PK J\ @ base-widget.phpnu [ PK 0B