⚝
One Hat Cyber Team
⚝
Your IP:
216.73.216.19
Server IP:
178.33.27.10
Server:
Linux cpanel.dev-unit.com 3.10.0-1160.108.1.el7.x86_64 #1 SMP Thu Jan 25 16:17:31 UTC 2024 x86_64
Server Software:
Apache/2.4.57 (Unix) OpenSSL/1.0.2k-fips
PHP Version:
8.2.11
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
lib64
/
guile
/
2.0
/
ccache
/
language
/
tree-il
/
View File Name :
primitives.go
GOOF----LE-8-2.0� ]\ 4 h� ] g guile� � g define-module*� � � g language� g tree-il� g primitives� � g filenameS� f language/tree-il/primitives.scm� g importsS� g system� g base� g pmatch� � � g rnrs� g bytevectors� � � g syntax� � � � � g srfi� g srfi-4� � � g srfi-16� � ! � "! � #g exportsS� $g resolve-primitives!� %g add-interesting-primitive!� &g expand-primitives!� 'g effect-free-primitive?� (g effect+exception-free-primitive?� )g constructor-primitive?� *g accessor-primitive?� +g singly-valued-primitive?� ,g bailout-primitive?� -g negate-primitive� .$%&'()*+,- � /g set-current-module� 0/ � 1/ � 2g apply� 3g @apply� 4g call-with-values� 5g @call-with-values� 6g call-with-current-continuation� 7g @call-with-current-continuation� 8g call/cc� 9g dynamic-wind� :g @dynamic-wind� ;g values� <g eq?� =g eqv?� >g equal?� ?g memq� @g memv� Ag =� Bg <� Cg >� Dg <=� Eg >=� Fg zero?� Gg +� Hg *� Ig -� Jg /� Kg 1-� Lg 1+� Mg quotient� Ng remainder� Og modulo� Pg ash� Qg logand� Rg logior� Sg logxor� Tg lognot� Ug not� Vg pair?� Wg null?� Xg list?� Yg symbol?� Zg vector?� [g string?� \g struct?� ]g number?� ^g char?� _g complex?� `g real?� ag rational?� bg inf?� cg nan?� dg integer?� eg exact?� fg inexact?� gg even?� hg odd?� ig char<?� jg char<=?� kg char>=?� lg char>?� mg integer->char� ng char->integer� og number->string� pg string->number� qg acons� rg cons� sg cons*� tg list� ug vector� vg car� wg cdr� xg set-car!� yg set-cdr!� zg caar� {g cadr� |g cdar� }g cddr� ~g caaar� g caadr� �g cadar� �g caddr� �g cdaar� �g cdadr� �g cddar� �g cdddr� �g caaaar� �g caaadr� �g caadar� �g caaddr� �g cadaar� �g cadadr� �g caddar� �g cadddr� �g cdaaar� �g cdaadr� �g cdadar� �g cdaddr� �g cddaar� �g cddadr� �g cdddar� �g cddddr� �g vector-ref� �g vector-set!� �g variable-ref� �g variable-set!� �g variable-bound?� �g fluid-ref� �g fluid-set!� �g @prompt� �g call-with-prompt� �g @abort� �g abort-to-prompt� �g make-prompt-tag� �g throw� �g error� �g scm-error� �g string-length� �g string-ref� �g string-set!� �g struct-vtable� �g make-struct� �g struct-ref� �g struct-set!� �g bytevector-u8-ref� �g bytevector-u8-set!� �g bytevector-s8-ref� �g bytevector-s8-set!� �g u8vector-ref� �g u8vector-set!� �g s8vector-ref� �g s8vector-set!� �g bytevector-u16-ref� �g bytevector-u16-set!� �g bytevector-u16-native-ref� �g bytevector-u16-native-set!� �g bytevector-s16-ref� �g bytevector-s16-set!� �g bytevector-s16-native-ref� �g bytevector-s16-native-set!� �g u16vector-ref� �g u16vector-set!� �g s16vector-ref� �g s16vector-set!� �g bytevector-u32-ref� �g bytevector-u32-set!� �g bytevector-u32-native-ref� �g bytevector-u32-native-set!� �g bytevector-s32-ref� �g bytevector-s32-set!� �g bytevector-s32-native-ref� �g bytevector-s32-native-set!� �g u32vector-ref� �g u32vector-set!� �g s32vector-ref� �g s32vector-set!� �g bytevector-u64-ref� �g bytevector-u64-set!� �g bytevector-u64-native-ref� �g bytevector-u64-native-set!� �g bytevector-s64-ref� �g bytevector-s64-set!� �g bytevector-s64-native-ref� �g bytevector-s64-native-set!� �g u64vector-ref� �g u64vector-set!� �g s64vector-ref� �g s64vector-set!� �g bytevector-ieee-single-ref� �g bytevector-ieee-single-set!� �g !bytevector-ieee-single-native-ref� �g "bytevector-ieee-single-native-set!� �g bytevector-ieee-double-ref� �g bytevector-ieee-double-set!� �g !bytevector-ieee-double-native-ref� �g "bytevector-ieee-double-native-set!� �g f32vector-ref� �g f32vector-set!� �g f64vector-ref� �g f64vector-set!� �23456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~���������������������������������������������������������������������������������������������������� �� �g *interesting-primitive-names*� �g hashq-set!� �g *interesting-primitive-vars*� �g module-variable� �g current-module� �f unbound interesting primitive� �g make-hash-table� �g for-each� �g make-struct/no-tail� �qrstu��� � �g *primitive-constructors*� ��vw?@�������������������� � �g *primitive-accessors*� �g append� �� � �� � �g *effect-free-primitives*� �;<=>UVWXYZ\[]^qrstu � �g "*effect+exception-free-primitives*� �23456789:;���� � �g *multiply-valued-primitives*� ���� � �g *bailout-primitives*� �gh�� �ef�� �BE�� �CD�� ik��lj������ �g *negatable-primitives*�g *effect-free-primitive-table*�g (*effect+exceptions-free-primitive-table*�g !*multiply-valued-primitive-table*�g *bailout-primitive-table*�g *negatable-primitive-table*� g hashq-ref� g post-order!�g <toplevel-ref>�g toplevel-ref-src� g toplevel-ref-name�g and=>�g make-primitive-ref�g <module-ref>�g module-ref-src�g module-ref-mod�g module-ref-name�g module-ref-public?�g resolve-module�g module-public-interface�g identity�g *primitive-expand-table*�g pre-order!�g <application>�g application-src�g application-proc�g application-args�g primitive-ref?�g primitive-ref-name� g make-syntax-transformer�! �" �#g define-primitive-expander�$g macro�%g $sc-dispatch�&% �'% �(g _�)g any�*()��+g syntax->datum�,+ �-+ �.g datum->syntax�/. �0. �1g reverse�2g quote�3g make-const�4g src�5g make-application�6g self-evaluating?�7f what what�8g if�9f bad consequent yall�:g case-lambda�;g else�<; �=g syntax-violation�>= �?= �@f -source expression failed to match any pattern�Ag const?�Bg const-exp�C �Dg most-negative-fixnum�Eg most-positive-fixnum�Fg maybe-simplify-to-eq�Gg gensym�Hf pre-�If thunk-�Jf post-�Kg make-let�Lg pre�Mg thunk�Ng post�OLMN �Pg make-dynwind�Qg make-lexical-ref�RLN �Sg make-dynref�Tg make-dynset�Ug make-prompt�Vg make-lambda-case�Wg tree-il-src�Xg args�Yg handler�ZY �[g make-abort�C 5 hps p ]4 "#.5 41 > "