Rev 7623 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 7623 | Rev 7693 | ||
|---|---|---|---|
| Line 15... | Line 15... | ||
| 15 | "gui" - Windows GUI |
15 | "gui" - Windows GUI |
| 16 | "dll" - Windows DLL |
16 | "dll" - Windows DLL |
| 17 | "kos" - KolibriOS |
17 | "kos" - KolibriOS |
| 18 | "obj" - KolibriOS DLL |
18 | "obj" - KolibriOS DLL |
| 19 | "elfexe" - Linux ELF-EXEC |
19 | "elfexe" - Linux ELF-EXEC |
| - | 20 | "elfso" - Linux ELF-SO |
|
| 20 | 4) ¥®¡ï§ ⥫ìë¥ ¯ à ¬¥âàë-ª«îç¨ |
21 | 4) ¥®¡ï§ ⥫ìë¥ ¯ à ¬¥âàë-ª«îç¨ |
| 21 | -stk |
22 | -stk |
| 22 | -base ¤à¥á § £à㧪¨ ¨á¯®«ï¥¬®£® ä ©« ¢ ª¨«®¡ ©â å |
23 | -base ¤à¥á § £à㧪¨ ¨á¯®«ï¥¬®£® ä ©« ¢ ª¨«®¡ ©â å |
| 23 | -ver |
24 | -ver |
| 24 | -nochk <"ptibcwra"> ®âª«îç¨âì ¯à®¢¥àª¨ ¯à¨ ¢ë¯®«¥¨¨ (á¬. ¨¦¥) |
25 | -nochk <"ptibcwra"> ®âª«îç¨âì ¯à®¢¥àª¨ ¯à¨ ¢ë¯®«¥¨¨ (á¬. ¨¦¥) |
| Line 142... | Line 143... | ||
| 142 | ¬ïâì[a] := x; |
143 | ¬ïâì[a] := x; |
| 143 | ᫨ x: BYTE ¨«¨ x: WCHAR, â® § 票¥ x ¡ã¤¥â à áè¨à¥® |
144 | ᫨ x: BYTE ¨«¨ x: WCHAR, â® § 票¥ x ¡ã¤¥â à áè¨à¥® |
| 144 | ¤® 32 ¡¨â, ¤«ï § ¯¨á¨ ¡ ©â®¢ ¨á¯®«ì§®¢ âì SYSTEM.PUT8, |
145 | ¤® 32 ¡¨â, ¤«ï § ¯¨á¨ ¡ ©â®¢ ¨á¯®«ì§®¢ âì SYSTEM.PUT8, |
| 145 | ¤«ï WCHAR -- SYSTEM.PUT16 |
146 | ¤«ï WCHAR -- SYSTEM.PUT16 |
| Line 146... | Line 147... | ||
| 146 | 147 | ||
| 147 | PROCEDURE PUT8(a: INTEGER; x: INTEGER, BYTE, CHAR, WCHAR) |
148 | PROCEDURE PUT8(a: INTEGER; x: INTEGER, SET, BYTE, CHAR, WCHAR) |
| Line 148... | Line 149... | ||
| 148 | ¬ïâì[a] := ¬« ¤è¨¥ 8 ¡¨â (x) |
149 | ¬ïâì[a] := ¬« ¤è¨¥ 8 ¡¨â (x) |
| 149 | 150 | ||
| Line 150... | Line 151... | ||
| 150 | PROCEDURE PUT16(a: INTEGER; x: INTEGER, BYTE, CHAR, WCHAR) |
151 | PROCEDURE PUT16(a: INTEGER; x: INTEGER, SET, BYTE, CHAR, WCHAR) |
| 151 | ¬ïâì[a] := ¬« ¤è¨¥ 16 ¡¨â (x) |
152 | ¬ïâì[a] := ¬« ¤è¨¥ 16 ¡¨â (x) |
| 152 | 153 | ||
| Line 356... | Line 357... | ||
| 356 | ®¤ã«ì RTL |
357 | ®¤ã«ì RTL |
| Line 357... | Line 358... | ||
| 357 | 358 | ||
| 358 | ᥠ¯à®£à ¬¬ë ¥ï¢® ¨á¯®«ì§ãîâ ¬®¤ã«ì RTL. ®¬¯¨«ïâ®à âà ᫨àã¥â |
359 | ᥠ¯à®£à ¬¬ë ¥ï¢® ¨á¯®«ì§ãîâ ¬®¤ã«ì RTL. ®¬¯¨«ïâ®à âà ᫨àã¥â |
| 359 | ¥ª®â®àë¥ ®¯¥à 樨 (¯à®¢¥àª ¨ ®åà ⨯ , áà ¢¥¨¥ áâப, á®®¡é¥¨ï ®¡ |
360 | ¥ª®â®àë¥ ®¯¥à 樨 (¯à®¢¥àª ¨ ®åà ⨯ , áà ¢¥¨¥ áâப, á®®¡é¥¨ï ®¡ |
| 360 | ®è¨¡ª å ¢à¥¬¥¨ ¢ë¯®«¥¨ï ¨ ¤à.) ª ª ¢ë§®¢ë ¯à®æ¥¤ãà í⮣® ¬®¤ã«ï. ¥ |
361 | ®è¨¡ª å ¢à¥¬¥¨ ¢ë¯®«¥¨ï ¨ ¤à.) ª ª ¢ë§®¢ë ¯à®æ¥¤ãà í⮣® ¬®¤ã«ï. ¥ |
| 361 | á«¥¤ã¥â  ¢ë§ë¢ âì í⨠¯à®æ¥¤ãàë, § ¨áª«î票¥¬ ¯à®æ¥¤ãàë SetDll, |
362 | á«¥¤ã¥â  ¢ë§ë¢ âì í⨠¯à®æ¥¤ãàë, § ¨áª«î票¥¬ ¯à®æ¥¤ãà SetDll ¨ SetFini |
| Line 362... | Line 363... | ||
| 362 | ¥á«¨ ¯à¨«®¦¥¨¥ ª®¬¯¨«¨àã¥âáï ª ª Windows DLL: |
363 | ¥á«¨ ¯à¨«®¦¥¨¥ ª®¬¯¨«¨àã¥âáï ª ª Windows DLL ¨«¨ Linux SO, ᮮ⢥âá⢥®: |
| 363 | 364 | ||
| 364 | PROCEDURE SetDll |
365 | PROCEDURE SetDll |
| 365 | (process_detach, thread_detach, thread_attach: DLL_ENTRY); |
366 | (process_detach, thread_detach, thread_attach: DLL_ENTRY); |
| Line 370... | Line 371... | ||
| 370 | ¢ë§ë¢ ¥¬ë¬¨ ¯à¨ |
371 | ¢ë§ë¢ ¥¬ë¬¨ ¯à¨ |
| 371 | - ¢ë£à㧪¥ dll-¡¨¡«¨®â¥ª¨ (process_detach) |
372 | - ¢ë£à㧪¥ dll-¡¨¡«¨®â¥ª¨ (process_detach) |
| 372 | - ᮧ¤ ¨¨ ®¢®£® ¯®â®ª (thread_attach) |
373 | - ᮧ¤ ¨¨ ®¢®£® ¯®â®ª (thread_attach) |
| 373 | - ã¨ç⮦¥¨¨ ¯®â®ª (thread_detach) |
374 | - ã¨ç⮦¥¨¨ ¯®â®ª (thread_detach) |
| Line -... | Line 375... | ||
| - | 375 | ||
| - | 376 | ||
| - | 377 | PROCEDURE SetFini (ProcFini: PROC); |
|
| - | 378 | £¤¥ TYPE PROC = PROCEDURE (* ¡¥§ ¯ à ¬¥â஢ *) |
|
| - | 379 | ||
| - | 380 | SetFini § ç ¥â ¯à®æ¥¤ãàã ProcFini ¢ë§ë¢ ¥¬®© ¯à¨ ¢ë£à㧪¥ so-¡¨¡«¨®â¥ª¨. |
|
| 374 | 381 | ||
| 375 | «ï ¯à®ç¨å ⨯®¢ ¯à¨«®¦¥¨©, ¢ë§®¢ ¯à®æ¥¤ãàë SetDll ¥ ¢«¨ï¥â |
382 | «ï ¯à®ç¨å ⨯®¢ ¯à¨«®¦¥¨©, ¢ë§®¢ ¯à®æ¥¤ãà SetDll ¨ SetFini ¥ ¢«¨ï¥â |
| - | 383 | ¯®¢¥¤¥¨¥ ¯à®£à ¬¬ë. |
|
| 376 | ¯®¢¥¤¥¨¥ ¯à®£à ¬¬ë. |
384 | |
| 377 | ®®¡é¥¨ï ®¡ ®è¨¡ª å ¢à¥¬¥¨ ¢ë¯®«¥¨ï ¢ë¢®¤ïâáï ¢ ¤¨ «®£®¢ëå ®ª å |
385 | ®®¡é¥¨ï ®¡ ®è¨¡ª å ¢à¥¬¥¨ ¢ë¯®«¥¨ï ¢ë¢®¤ïâáï ¢ ¤¨ «®£®¢ëå ®ª å |
| Line 378... | Line 386... | ||
| 378 | (Windows), ¢ â¥à¬¨ « (Linux), ¤®áªã ®â« ¤ª¨ (KolibriOS). |
386 | (Windows), ¢ â¥à¬¨ « (Linux), ¤®áªã ®â« ¤ª¨ (KolibriOS). |
| 379 | 387 | ||
| Line 394... | Line 402... | ||
| 394 | 402 | ||
| Line 395... | Line 403... | ||
| 395 | PROCEDURE [stdcall] lib_init (): INTEGER |
403 | PROCEDURE [stdcall] lib_init (): INTEGER |
| 396 | 404 | ||
| 397 | â ¯à®æ¥¤ãà ¤®«¦ ¡ëâì ¢ë§¢ ¯¥à¥¤ ¨á¯®«ì§®¢ ¨¥¬ DLL. |
- | |
| 398 | à®æ¥¤ãà ¢á¥£¤ ¢®§¢à é ¥â 1. |
- | |
| 399 | 405 | â ¯à®æ¥¤ãà ¤®«¦ ¡ëâì ¢ë§¢ ¯¥à¥¤ ¨á¯®«ì§®¢ ¨¥¬ DLL. |
|