OwlCyberSecurity - MANAGER
Edit File: foreign.go
GOOF----LE-8-2.0�&������]���4���h�������]�g��guile� �� g��define-module*� �� �� g��system� g��foreign� �� g��filenameS� f��system/foreign.scm� g��importsS� g��rnrs� g��bytevectors� �� �� g��srfi� g��srfi-1� �� �� g��srfi-9� �� �� g��gnu� �� �� �� g��exportsS� g��void� g��float� g��double� g��short� g��unsigned-short� !g��int� "g��unsigned-int� #g��long� $g�� unsigned-long� %g��size_t� &g��ssize_t� 'g�� ptrdiff_t� (g��int8� )g��uint8� *g��uint16� +g��int16� ,g��uint32� -g��int32� .g��uint64� /g��int64� 0g��sizeof� 1g��alignof� 2g�� %null-pointer� 3g�� null-pointer?� 4g��pointer?� 5g��make-pointer� 6g��pointer->scm� 7g��scm->pointer� 8g��pointer-address� 9g��pointer->bytevector� :g��bytevector->pointer� ;g��set-pointer-finalizer!� <g��dereference-pointer� =g��string->pointer� >g��pointer->string� ?g��pointer->procedure� @g�� make-c-struct� Ag��parse-c-struct� Bg��define-wrapped-pointer-type� C !"#$%&'()*+,-./0123456789:;<=>?@AB�'� Dg��set-current-module� ED�� FD�� Gg��load-extension� Hg�� string-append� If�� libguile-� Jg��effective-version� Kf��scm_init_foreign� Lg��defined?� Mg��procedure->pointer� Ng��call-with-deferred-observers� ON�� PN�� Qg��module-export!� RQ�� SQ�� Tg��current-module� UT�� VT�� WM�� Xg��*� Yg��error� Zf��what machine is this?� [g��bytevector-pointer-ref� \g��bytevector-pointer-set!� ]g��"bytevector-ieee-single-native-set!� ^]�� _]�� `g��"bytevector-ieee-double-native-set!� a`�� b`�� cg��bytevector-s8-set!� dc�� ec�� fg��bytevector-u8-set!� gf�� hf�� ig��bytevector-s16-native-set!� ji�� ki�� lg��bytevector-u16-native-set!� ml�� nl�� og��bytevector-s32-native-set!� po�� qo�� rg��bytevector-u32-native-set!� sr�� tr�� ug��bytevector-s64-native-set!� vu�� wu�� xg��bytevector-u64-native-set!� yx�� zx�� {g�� *writers*� |g��!bytevector-ieee-single-native-ref� }|�� ~|�� g��!bytevector-ieee-double-native-ref�����������g��bytevector-s8-ref�������������g��bytevector-u8-ref�������������g��bytevector-s16-native-ref�������������g��bytevector-u16-native-ref�������������g��bytevector-s32-native-ref�������������g��bytevector-u32-native-ref�������������g��bytevector-s64-native-ref�������������g��bytevector-u64-native-ref�������������g�� *readers*���g��align���g��write-c-struct���g��assv-ref���f��too few values���f��too many values���g�� read-c-struct���g��reverse���g��make-bytevector���g��fold���g��make-syntax-transformer�������������g��macro���g��$sc-dispatch�������������g��_���g��any�������������g�� datum->syntax���g��gensym���f��wrap���g�� syntax-object���g��begin���g��top��������g��ribcage��������g��%wrap�������������f��l-40afcf54ff-e4����������������g�� type-name���g��pred���g��wrap���g��unwrap���g��print���������������������f��l-40afcf54ff-d8���f��l-40afcf54ff-d9���f��l-40afcf54ff-da���f��l-40afcf54ff-db���f��l-40afcf54ff-dc��������������������g��stx��������f��l-40afcf54ff-d5��������������������������g��hygiene����������������g��define-record-type�����������g��pointer����������������g��define�����������g��let�����������g��ptr->obj�����������g��make-weak-value-hash-table������������������������������������g��lambda�����������g��ptr����������������g��or�����������g��hash-ref������������������g��o�����������g�� hash-set!�������������������������g��set-record-type-printer!�����������g��syntax-violation�������������f��-source expression failed to match any pattern�C�5���h0�����]4 C5�4F�>��"��G���4Gi4HiI4Ji5�5K>��"��G��8��h�������]4�5 �C������������g��pointer ��g��filenamef��system/foreign.scm� B �� D �� D ��� ��g��nameg�� null-pointer?�g�� documentationf��+Return true if POINTER is the null pointer.��C3R4LiM5$���4PSVW������h���E���]�45�6���=�������g��filenamef��system/foreign.scm� G ��� ���C>��"��G��"���40iX5�� �$���5��������h���z���]��6�����r�������g��bv �g��offset ��g��filenamef��system/foreign.scm� P �� Q �� Q ��� ���C"���� �$���5���h���z���]��6�����r�������g��bv �g��offset ��g��filenamef��system/foreign.scm� R �� S �� S ��� ���C"�� 4YiZ5�[R40iX5�� �$���8�h�������]�45�C��������g��bv �g��offset �g��ptr ��g��filenamef��system/foreign.scm� X �� Y 1�� Y ��� ���C"���� �$���8��h�������]�45�C��������g��bv �g��offset �g��ptr ��g��filenamef��system/foreign.scm� Z �� [ 1�� [ ��� ���C"�� 4YiZ5�\Ri_�ib�(ie�)ih�+ik�*in�-iq�,it�/iw�.iz�X\i��{Ri~�i��(i��)i��+i��*i��-i��,i��/i��.i��X[i���R��h�������]�����C�������������g��off �g�� alignment ��g��filenamef��system/foreign.scm� y �� z �� z �� z �� z ��� ��g��nameg��align��C�R�1��{0Y��� �������h����>��],"����$����$��r�4455�$��4���>��"��G��"��445��>��"��G��45���"���6(��C 6"��X��6������g��bv ���g��offset ���g��types ���g��vals ���g��offset ���g��types ���g��vals ���g��type ���g��offset '���� g��filenamef��system/foreign.scm� | �� } �� �� ~ �� �� �� ~ �� �� �� �� �� �� �� �� #�� '�� �� '�� �� ,�� �� 0�� �� 1�� �� :�� &�� =�� 2�� B�� �� O�� �� P�� �� _�� 1�� d�� �� o�� �� v�� �� y�� %�� |�� 1������ ������ ������ ������ ������ ������ ������ ���� } ���# �� ��g��nameg��write-c-struct��C�R�10���������hx������]+"��c�$��V�445545���$��4��5"��445�5�"���6"����������g��bv x�g��offset x�g��types x�g��offset i�g��types i�g��vals i�g��type c�g��offset c��g��filenamef��system/foreign.scm� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� #�� �� �� �� �� %�� �� ,�� �� /�� %�� 2�� �� 6�� �� 7�� �� @�� /�� B�� �� G�� �� H�� �� V�� �� Y�� �� c�� �� i�� �� i�� �� n�� /�� x�� ��� x ��g��nameg�� read-c-struct��C�R�0�:�h0�������] 44�5 54 �>��"��G��6����������g��types .�g��vals .�g��bv .��g��filenamef��system/foreign.scm� �� �� �� �� �� �� �� �� �� �� �� �� .�� ��� . ��g��nameg�� make-c-struct��C@R�0�1�����h �������]4�544�55�C���������������g��type �g��total ��g��filenamef��system/foreign.scm� �� �� �� �� �� �� �� &�� �� �� �� ��� ���C�9��������h �������] 4 54�5 6����������g��foreign �g��types �g��size ��g��filenamef��system/foreign.scm� �� �� �� �� �� �� �� �� �� ��� ��g��nameg��parse-c-struct��CAR4�B������������������������hh�������] 4455���� ������������C�����������g�� type-name e�g��pred e�g��wrap e�g��unwrap e�g��print e�g��tmp e��g��filenamef��system/foreign.scm� �� �� �� 2�� �� :�� �� 2�� �� �� �� ��� e ���C���h(������] 4�5$��@�6�������������g��stx "�g��tmp "��g��filenamef��system/foreign.scm� �� ��� "��g�� documentationf�SDefine helper procedures to wrap pointer objects into Scheme objects with a disjoint type. Specifically, this macro defines PRED, a predicate for the new Scheme type, WRAP, a procedure that takes a pointer object and returns an object that satisfies PRED, and UNWRAP which does the reverse. PRINT must name a user-defined object printer.��C5BRC�������g��m ,�g��key �2�g��key >���g��filenamef��system/foreign.scm� �� - : �� 2 : �� 8 : !�� 9 : -�� A : �� C ; �� H : ��8 B ��9 F ��? F ��A F ��E F ��F G ��� O ��� O ��� O ��� O ��' T ��- T ��/ T ��5 N ��6 W ��< W ��> W ��> W ��� \ ��� \ ��� \ ��� V ��� _ �� ^ �� l ��d k ��" y �� 9 | ����� ����� ����� ���( 0 ���C6�