home *** CD-ROM | disk | FTP | other *** search
view JSON data
|
view as text
|
open on a Mac
|
open on a PC
This file was processed as: SHell self-extracting ARchive
(archive/shar).
You can browse this item here: part06
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| SHell self-extracting ARchive (archive/shar)
| magic
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| ASCII text
| default
| |
| 100%
| checkBytes
| Printable ASCII
| default
| |
| 100%
| perlTextCheck
| Likely Text (Perl)
| default
| |
| 100%
| siegfried
| fmt/329 Shell Archive Format
| default
| |
| 100%
| detectItEasy
| Format: plain text[LF]
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 4e 65 77 73 67 72 6f 75 | 70 73 3a 20 63 6f 6d 70 |Newsgrou|ps: comp|
|00000010| 2e 73 6f 75 72 63 65 73 | 2e 6d 69 73 63 0a 46 72 |.sources|.misc.Fr|
|00000020| 6f 6d 3a 20 6a 70 65 67 | 2d 69 6e 66 6f 40 75 75 |om: jpeg|-info@uu|
|00000030| 6e 65 74 2e 75 75 2e 6e | 65 74 20 28 49 6e 64 65 |net.uu.n|et (Inde|
|00000040| 70 65 6e 64 65 6e 74 20 | 4a 50 45 47 20 47 72 6f |pendent |JPEG Gro|
|00000050| 75 70 29 0a 53 75 62 6a | 65 63 74 3a 20 20 76 33 |up).Subj|ect: v3|
|00000060| 34 69 30 36 30 3a 20 20 | 6a 70 65 67 20 2d 20 4a |4i060: |jpeg - J|
|00000070| 50 45 47 20 69 6d 61 67 | 65 20 63 6f 6d 70 72 65 |PEG imag|e compre|
|00000080| 73 73 69 6f 6e 2c 20 50 | 61 72 74 30 36 2f 31 38 |ssion, P|art06/18|
|00000090| 0a 4d 65 73 73 61 67 65 | 2d 49 44 3a 20 3c 31 39 |.Message|-ID: <19|
|000000a0| 39 32 44 65 63 31 37 2e | 30 34 31 37 32 39 2e 32 |92Dec17.|041729.2|
|000000b0| 33 34 36 33 40 73 70 61 | 72 6b 79 2e 69 6d 64 2e |3463@spa|rky.imd.|
|000000c0| 73 74 65 72 6c 69 6e 67 | 2e 63 6f 6d 3e 0a 58 2d |sterling|.com>.X-|
|000000d0| 4d 64 34 2d 53 69 67 6e | 61 74 75 72 65 3a 20 32 |Md4-Sign|ature: 2|
|000000e0| 38 31 33 31 34 31 34 37 | 31 39 61 66 62 61 30 32 |81314147|19afba02|
|000000f0| 30 39 65 39 65 36 36 63 | 33 35 33 32 61 35 64 0a |09e9e66c|3532a5d.|
|00000100| 44 61 74 65 3a 20 54 68 | 75 2c 20 31 37 20 44 65 |Date: Th|u, 17 De|
|00000110| 63 20 31 39 39 32 20 30 | 34 3a 31 37 3a 32 39 20 |c 1992 0|4:17:29 |
|00000120| 47 4d 54 0a 41 70 70 72 | 6f 76 65 64 3a 20 6b 65 |GMT.Appr|oved: ke|
|00000130| 6e 74 40 73 70 61 72 6b | 79 2e 69 6d 64 2e 73 74 |nt@spark|y.imd.st|
|00000140| 65 72 6c 69 6e 67 2e 63 | 6f 6d 0a 0a 53 75 62 6d |erling.c|om..Subm|
|00000150| 69 74 74 65 64 2d 62 79 | 3a 20 6a 70 65 67 2d 69 |itted-by|: jpeg-i|
|00000160| 6e 66 6f 40 75 75 6e 65 | 74 2e 75 75 2e 6e 65 74 |nfo@uune|t.uu.net|
|00000170| 20 28 49 6e 64 65 70 65 | 6e 64 65 6e 74 20 4a 50 | (Indepe|ndent JP|
|00000180| 45 47 20 47 72 6f 75 70 | 29 0a 50 6f 73 74 69 6e |EG Group|).Postin|
|00000190| 67 2d 6e 75 6d 62 65 72 | 3a 20 56 6f 6c 75 6d 65 |g-number|: Volume|
|000001a0| 20 33 34 2c 20 49 73 73 | 75 65 20 36 30 0a 41 72 | 34, Iss|ue 60.Ar|
|000001b0| 63 68 69 76 65 2d 6e 61 | 6d 65 3a 20 6a 70 65 67 |chive-na|me: jpeg|
|000001c0| 2f 70 61 72 74 30 36 0a | 45 6e 76 69 72 6f 6e 6d |/part06.|Environm|
|000001d0| 65 6e 74 3a 20 55 4e 49 | 58 2c 20 56 4d 53 2c 20 |ent: UNI|X, VMS, |
|000001e0| 4d 53 2d 44 4f 53 2c 20 | 4d 61 63 2c 20 41 6d 69 |MS-DOS, |Mac, Ami|
|000001f0| 67 61 2c 20 41 74 61 72 | 69 2c 20 43 72 61 79 0a |ga, Atar|i, Cray.|
|00000200| 53 75 70 65 72 73 65 64 | 65 73 3a 20 6a 70 65 67 |Supersed|es: jpeg|
|00000210| 3a 20 56 6f 6c 75 6d 65 | 20 32 39 2c 20 49 73 73 |: Volume| 29, Iss|
|00000220| 75 65 20 31 2d 31 38 0a | 0a 23 21 20 2f 62 69 6e |ue 1-18.|.#! /bin|
|00000230| 2f 73 68 0a 23 20 54 68 | 69 73 20 69 73 20 61 20 |/sh.# Th|is is a |
|00000240| 73 68 65 6c 6c 20 61 72 | 63 68 69 76 65 2e 20 20 |shell ar|chive. |
|00000250| 52 65 6d 6f 76 65 20 61 | 6e 79 74 68 69 6e 67 20 |Remove a|nything |
|00000260| 62 65 66 6f 72 65 20 74 | 68 69 73 20 6c 69 6e 65 |before t|his line|
|00000270| 2c 20 74 68 65 6e 20 66 | 65 65 64 20 69 74 0a 23 |, then f|eed it.#|
|00000280| 20 69 6e 74 6f 20 61 20 | 73 68 65 6c 6c 20 76 69 | into a |shell vi|
|00000290| 61 20 22 73 68 20 66 69 | 6c 65 22 20 6f 72 20 73 |a "sh fi|le" or s|
|000002a0| 69 6d 69 6c 61 72 2e 20 | 20 54 6f 20 6f 76 65 72 |imilar. | To over|
|000002b0| 77 72 69 74 65 20 65 78 | 69 73 74 69 6e 67 20 66 |write ex|isting f|
|000002c0| 69 6c 65 73 2c 0a 23 20 | 74 79 70 65 20 22 73 68 |iles,.# |type "sh|
|000002d0| 20 66 69 6c 65 20 2d 63 | 22 2e 0a 23 20 43 6f 6e | file -c|"..# Con|
|000002e0| 74 65 6e 74 73 3a 20 20 | 6a 6d 65 6d 64 6f 73 2e |tents: |jmemdos.|
|000002f0| 63 20 6a 6d 65 6d 6d 67 | 72 2e 63 0a 23 20 57 72 |c jmemmg|r.c.# Wr|
|00000300| 61 70 70 65 64 20 62 79 | 20 6b 65 6e 74 40 73 70 |apped by| kent@sp|
|00000310| 61 72 6b 79 20 6f 6e 20 | 57 65 64 20 44 65 63 20 |arky on |Wed Dec |
|00000320| 31 36 20 32 30 3a 35 32 | 3a 32 36 20 31 39 39 32 |16 20:52|:26 1992|
|00000330| 0a 50 41 54 48 3d 2f 62 | 69 6e 3a 2f 75 73 72 2f |.PATH=/b|in:/usr/|
|00000340| 62 69 6e 3a 2f 75 73 72 | 2f 75 63 62 3a 2f 75 73 |bin:/usr|/ucb:/us|
|00000350| 72 2f 6c 6f 63 61 6c 2f | 62 69 6e 3a 2f 75 73 72 |r/local/|bin:/usr|
|00000360| 2f 6c 62 69 6e 20 3b 20 | 65 78 70 6f 72 74 20 50 |/lbin ; |export P|
|00000370| 41 54 48 0a 65 63 68 6f | 20 49 66 20 74 68 69 73 |ATH.echo| If this|
|00000380| 20 61 72 63 68 69 76 65 | 20 69 73 20 63 6f 6d 70 | archive| is comp|
|00000390| 6c 65 74 65 2c 20 79 6f | 75 20 77 69 6c 6c 20 73 |lete, yo|u will s|
|000003a0| 65 65 20 74 68 65 20 66 | 6f 6c 6c 6f 77 69 6e 67 |ee the f|ollowing|
|000003b0| 20 6d 65 73 73 61 67 65 | 3a 0a 65 63 68 6f 20 27 | message|:.echo '|
|000003c0| 20 20 20 20 20 20 20 20 | 20 20 22 73 68 61 72 3a | | "shar:|
|000003d0| 20 45 6e 64 20 6f 66 20 | 61 72 63 68 69 76 65 20 | End of |archive |
|000003e0| 36 20 28 6f 66 20 31 38 | 29 2e 22 27 0a 69 66 20 |6 (of 18|)."'.if |
|000003f0| 74 65 73 74 20 2d 66 20 | 27 6a 6d 65 6d 64 6f 73 |test -f |'jmemdos|
|00000400| 2e 63 27 20 2d 61 20 22 | 24 7b 31 7d 22 20 21 3d |.c' -a "|${1}" !=|
|00000410| 20 22 2d 63 22 20 3b 20 | 74 68 65 6e 20 0a 20 20 | "-c" ; |then . |
|00000420| 65 63 68 6f 20 73 68 61 | 72 3a 20 57 69 6c 6c 20 |echo sha|r: Will |
|00000430| 6e 6f 74 20 63 6c 6f 62 | 62 65 72 20 65 78 69 73 |not clob|ber exis|
|00000440| 74 69 6e 67 20 66 69 6c | 65 20 5c 22 27 6a 6d 65 |ting fil|e \"'jme|
|00000450| 6d 64 6f 73 2e 63 27 5c | 22 0a 65 6c 73 65 0a 20 |mdos.c'\|".else. |
|00000460| 20 65 63 68 6f 20 73 68 | 61 72 3a 20 45 78 74 72 | echo sh|ar: Extr|
|00000470| 61 63 74 69 6e 67 20 5c | 22 27 6a 6d 65 6d 64 6f |acting \|"'jmemdo|
|00000480| 73 2e 63 27 5c 22 20 5c | 28 31 37 35 35 37 20 63 |s.c'\" \|(17557 c|
|00000490| 68 61 72 61 63 74 65 72 | 73 5c 29 0a 20 20 73 65 |haracter|s\). se|
|000004a0| 64 20 22 73 2f 5e 58 2f | 2f 22 20 3e 27 6a 6d 65 |d "s/^X/|/" >'jme|
|000004b0| 6d 64 6f 73 2e 63 27 20 | 3c 3c 27 45 4e 44 5f 4f |mdos.c' |<<'END_O|
|000004c0| 46 5f 46 49 4c 45 27 0a | 58 2f 2a 0a 58 20 2a 20 |F_FILE'.|X/*.X * |
|000004d0| 6a 6d 65 6d 64 6f 73 2e | 63 20 20 28 6a 6d 65 6d |jmemdos.|c (jmem|
|000004e0| 73 79 73 2e 63 29 0a 58 | 20 2a 0a 58 20 2a 20 43 |sys.c).X| *.X * C|
|000004f0| 6f 70 79 72 69 67 68 74 | 20 28 43 29 20 31 39 39 |opyright| (C) 199|
|00000500| 32 2c 20 54 68 6f 6d 61 | 73 20 47 2e 20 4c 61 6e |2, Thoma|s G. Lan|
|00000510| 65 2e 0a 58 20 2a 20 54 | 68 69 73 20 66 69 6c 65 |e..X * T|his file|
|00000520| 20 69 73 20 70 61 72 74 | 20 6f 66 20 74 68 65 20 | is part| of the |
|00000530| 49 6e 64 65 70 65 6e 64 | 65 6e 74 20 4a 50 45 47 |Independ|ent JPEG|
|00000540| 20 47 72 6f 75 70 27 73 | 20 73 6f 66 74 77 61 72 | Group's| softwar|
|00000550| 65 2e 0a 58 20 2a 20 46 | 6f 72 20 63 6f 6e 64 69 |e..X * F|or condi|
|00000560| 74 69 6f 6e 73 20 6f 66 | 20 64 69 73 74 72 69 62 |tions of| distrib|
|00000570| 75 74 69 6f 6e 20 61 6e | 64 20 75 73 65 2c 20 73 |ution an|d use, s|
|00000580| 65 65 20 74 68 65 20 61 | 63 63 6f 6d 70 61 6e 79 |ee the a|ccompany|
|00000590| 69 6e 67 20 52 45 41 44 | 4d 45 20 66 69 6c 65 2e |ing READ|ME file.|
|000005a0| 0a 58 20 2a 0a 58 20 2a | 20 54 68 69 73 20 66 69 |.X *.X *| This fi|
|000005b0| 6c 65 20 70 72 6f 76 69 | 64 65 73 20 61 6e 20 4d |le provi|des an M|
|000005c0| 53 2d 44 4f 53 2d 63 6f | 6d 70 61 74 69 62 6c 65 |S-DOS-co|mpatible|
|000005d0| 20 69 6d 70 6c 65 6d 65 | 6e 74 61 74 69 6f 6e 20 | impleme|ntation |
|000005e0| 6f 66 20 74 68 65 20 73 | 79 73 74 65 6d 2d 0a 58 |of the s|ystem-.X|
|000005f0| 20 2a 20 64 65 70 65 6e | 64 65 6e 74 20 70 6f 72 | * depen|dent por|
|00000600| 74 69 6f 6e 20 6f 66 20 | 74 68 65 20 4a 50 45 47 |tion of |the JPEG|
|00000610| 20 6d 65 6d 6f 72 79 20 | 6d 61 6e 61 67 65 72 2e | memory |manager.|
|00000620| 20 20 54 65 6d 70 6f 72 | 61 72 79 20 64 61 74 61 | Tempor|ary data|
|00000630| 20 63 61 6e 20 62 65 0a | 58 20 2a 20 73 74 6f 72 | can be.|X * stor|
|00000640| 65 64 20 69 6e 20 65 78 | 74 65 6e 64 65 64 20 6f |ed in ex|tended o|
|00000650| 72 20 65 78 70 61 6e 64 | 65 64 20 6d 65 6d 6f 72 |r expand|ed memor|
|00000660| 79 20 61 73 20 77 65 6c | 6c 20 61 73 20 69 6e 20 |y as wel|l as in |
|00000670| 72 65 67 75 6c 61 72 20 | 44 4f 53 20 66 69 6c 65 |regular |DOS file|
|00000680| 73 2e 0a 58 20 2a 0a 58 | 20 2a 20 49 66 20 79 6f |s..X *.X| * If yo|
|00000690| 75 20 75 73 65 20 74 68 | 69 73 20 66 69 6c 65 2c |u use th|is file,|
|000006a0| 20 79 6f 75 20 6d 75 73 | 74 20 62 65 20 73 75 72 | you mus|t be sur|
|000006b0| 65 20 74 68 61 74 20 4e | 45 45 44 5f 46 41 52 5f |e that N|EED_FAR_|
|000006c0| 50 4f 49 4e 54 45 52 53 | 20 69 73 20 64 65 66 69 |POINTERS| is defi|
|000006d0| 6e 65 64 0a 58 20 2a 20 | 69 66 20 79 6f 75 20 63 |ned.X * |if you c|
|000006e0| 6f 6d 70 69 6c 65 20 69 | 6e 20 61 20 73 6d 61 6c |ompile i|n a smal|
|000006f0| 6c 2d 64 61 74 61 20 6d | 65 6d 6f 72 79 20 6d 6f |l-data m|emory mo|
|00000700| 64 65 6c 3b 20 69 74 20 | 73 68 6f 75 6c 64 20 4e |del; it |should N|
|00000710| 4f 54 20 62 65 20 64 65 | 66 69 6e 65 64 20 69 66 |OT be de|fined if|
|00000720| 0a 58 20 2a 20 79 6f 75 | 20 75 73 65 20 61 20 6c |.X * you| use a l|
|00000730| 61 72 67 65 2d 64 61 74 | 61 20 6d 65 6d 6f 72 79 |arge-dat|a memory|
|00000740| 20 6d 6f 64 65 6c 2e 20 | 20 54 68 69 73 20 66 69 | model. | This fi|
|00000750| 6c 65 20 69 73 20 6e 6f | 74 20 72 65 63 6f 6d 6d |le is no|t recomm|
|00000760| 65 6e 64 65 64 20 69 66 | 20 79 6f 75 0a 58 20 2a |ended if| you.X *|
|00000770| 20 61 72 65 20 75 73 69 | 6e 67 20 61 20 66 6c 61 | are usi|ng a fla|
|00000780| 74 2d 6d 65 6d 6f 72 79 | 2d 73 70 61 63 65 20 33 |t-memory|-space 3|
|00000790| 38 36 20 65 6e 76 69 72 | 6f 6e 6d 65 6e 74 20 73 |86 envir|onment s|
|000007a0| 75 63 68 20 61 73 20 44 | 4a 47 43 43 20 6f 72 20 |uch as D|JGCC or |
|000007b0| 57 61 74 63 6f 6d 20 43 | 2e 0a 58 20 2a 0a 58 20 |Watcom C|..X *.X |
|000007c0| 2a 20 42 61 73 65 64 20 | 6f 6e 20 63 6f 64 65 20 |* Based |on code |
|000007d0| 63 6f 6e 74 72 69 62 75 | 74 65 64 20 62 79 20 47 |contribu|ted by G|
|000007e0| 65 27 20 57 65 69 6a 65 | 72 73 2e 0a 58 20 2a 2f |e' Weije|rs..X */|
|000007f0| 0a 58 0a 58 2f 2a 0a 58 | 20 2a 20 49 66 20 79 6f |.X.X/*.X| * If yo|
|00000800| 75 20 68 61 76 65 20 62 | 6f 74 68 20 65 78 74 65 |u have b|oth exte|
|00000810| 6e 64 65 64 20 61 6e 64 | 20 65 78 70 61 6e 64 65 |nded and| expande|
|00000820| 64 20 6d 65 6d 6f 72 79 | 2c 20 79 6f 75 20 6d 61 |d memory|, you ma|
|00000830| 79 20 77 61 6e 74 20 74 | 6f 20 63 68 61 6e 67 65 |y want t|o change|
|00000840| 20 74 68 65 0a 58 20 2a | 20 6f 72 64 65 72 20 69 | the.X *| order i|
|00000850| 6e 20 77 68 69 63 68 20 | 74 68 65 79 20 61 72 65 |n which |they are|
|00000860| 20 74 72 69 65 64 20 69 | 6e 20 6a 6f 70 65 6e 5f | tried i|n jopen_|
|00000870| 62 61 63 6b 69 6e 67 5f | 73 74 6f 72 65 2e 20 20 |backing_|store. |
|00000880| 4f 6e 20 61 20 32 38 36 | 20 6d 61 63 68 69 6e 65 |On a 286| machine|
|00000890| 0a 58 20 2a 20 65 78 70 | 61 6e 64 65 64 20 6d 65 |.X * exp|anded me|
|000008a0| 6d 6f 72 79 20 69 73 20 | 75 73 75 61 6c 6c 79 20 |mory is |usually |
|000008b0| 66 61 73 74 65 72 2c 20 | 73 69 6e 63 65 20 65 78 |faster, |since ex|
|000008c0| 74 65 6e 64 65 64 20 6d | 65 6d 6f 72 79 20 61 63 |tended m|emory ac|
|000008d0| 63 65 73 73 20 69 6e 76 | 6f 6c 76 65 73 0a 58 20 |cess inv|olves.X |
|000008e0| 2a 20 61 6e 20 65 78 70 | 65 6e 73 69 76 65 20 70 |* an exp|ensive p|
|000008f0| 72 6f 74 65 63 74 65 64 | 2d 6d 6f 64 65 2d 61 6e |rotected|-mode-an|
|00000900| 64 2d 62 61 63 6b 20 73 | 77 69 74 63 68 2e 20 20 |d-back s|witch. |
|00000910| 4f 6e 20 33 38 36 20 61 | 6e 64 20 62 65 74 74 65 |On 386 a|nd bette|
|00000920| 72 2c 20 65 78 74 65 6e | 64 65 64 0a 58 20 2a 20 |r, exten|ded.X * |
|00000930| 6d 65 6d 6f 72 79 20 69 | 73 20 75 73 75 61 6c 6c |memory i|s usuall|
|00000940| 79 20 66 61 73 74 65 72 | 2e 20 20 41 73 20 64 69 |y faster|. As di|
|00000950| 73 74 72 69 62 75 74 65 | 64 2c 20 74 68 65 20 63 |stribute|d, the c|
|00000960| 6f 64 65 20 74 72 69 65 | 73 20 65 78 74 65 6e 64 |ode trie|s extend|
|00000970| 65 64 20 6d 65 6d 6f 72 | 79 0a 58 20 2a 20 66 69 |ed memor|y.X * fi|
|00000980| 72 73 74 20 28 77 68 61 | 74 3f 20 6e 6f 74 20 65 |rst (wha|t? not e|
|00000990| 76 65 72 79 6f 6e 65 20 | 68 61 73 20 61 20 33 38 |veryone |has a 38|
|000009a0| 36 3f 20 3a 2d 29 2e 0a | 58 20 2a 0a 58 20 2a 20 |6? :-)..|X *.X * |
|000009b0| 59 6f 75 20 63 61 6e 20 | 64 69 73 61 62 6c 65 20 |You can |disable |
|000009c0| 75 73 65 20 6f 66 20 65 | 78 74 65 6e 64 65 64 2f |use of e|xtended/|
|000009d0| 65 78 70 61 6e 64 65 64 | 20 6d 65 6d 6f 72 79 20 |expanded| memory |
|000009e0| 65 6e 74 69 72 65 6c 79 | 20 62 79 20 61 6c 74 65 |entirely| by alte|
|000009f0| 72 69 6e 67 20 74 68 65 | 73 65 0a 58 20 2a 20 64 |ring the|se.X * d|
|00000a00| 65 66 69 6e 69 74 69 6f | 6e 73 20 6f 72 20 6f 76 |efinitio|ns or ov|
|00000a10| 65 72 72 69 64 69 6e 67 | 20 74 68 65 6d 20 66 72 |erriding| them fr|
|00000a20| 6f 6d 20 74 68 65 20 4d | 61 6b 65 66 69 6c 65 20 |om the M|akefile |
|00000a30| 28 65 67 2c 20 2d 44 45 | 4d 53 5f 53 55 50 50 4f |(eg, -DE|MS_SUPPO|
|00000a40| 52 54 45 44 3d 30 29 2e | 0a 58 20 2a 2f 0a 58 0a |RTED=0).|.X */.X.|
|00000a50| 58 23 69 66 6e 64 65 66 | 20 58 4d 53 5f 53 55 50 |X#ifndef| XMS_SUP|
|00000a60| 50 4f 52 54 45 44 0a 58 | 23 64 65 66 69 6e 65 20 |PORTED.X|#define |
|00000a70| 58 4d 53 5f 53 55 50 50 | 4f 52 54 45 44 20 20 31 |XMS_SUPP|ORTED 1|
|00000a80| 0a 58 23 65 6e 64 69 66 | 0a 58 23 69 66 6e 64 65 |.X#endif|.X#ifnde|
|00000a90| 66 20 45 4d 53 5f 53 55 | 50 50 4f 52 54 45 44 0a |f EMS_SU|PPORTED.|
|00000aa0| 58 23 64 65 66 69 6e 65 | 20 45 4d 53 5f 53 55 50 |X#define| EMS_SUP|
|00000ab0| 50 4f 52 54 45 44 20 20 | 31 0a 58 23 65 6e 64 69 |PORTED |1.X#endi|
|00000ac0| 66 0a 58 0a 58 0a 58 23 | 69 6e 63 6c 75 64 65 20 |f.X.X.X#|include |
|00000ad0| 22 6a 69 6e 63 6c 75 64 | 65 2e 68 22 0a 58 23 69 |"jinclud|e.h".X#i|
|00000ae0| 6e 63 6c 75 64 65 20 22 | 6a 6d 65 6d 73 79 73 2e |nclude "|jmemsys.|
|00000af0| 68 22 0a 58 0a 58 23 69 | 66 64 65 66 20 49 4e 43 |h".X.X#i|fdef INC|
|00000b00| 4c 55 44 45 53 5f 41 52 | 45 5f 41 4e 53 49 0a 58 |LUDES_AR|E_ANSI.X|
|00000b10| 23 69 6e 63 6c 75 64 65 | 20 3c 73 74 64 6c 69 62 |#include| <stdlib|
|00000b20| 2e 68 3e 09 09 2f 2a 20 | 74 6f 20 64 65 63 6c 61 |.h>../* |to decla|
|00000b30| 72 65 20 6d 61 6c 6c 6f | 63 28 29 2c 20 66 72 65 |re mallo|c(), fre|
|00000b40| 65 28 29 2c 20 67 65 74 | 65 6e 76 28 29 20 2a 2f |e(), get|env() */|
|00000b50| 0a 58 23 65 6c 73 65 0a | 58 65 78 74 65 72 6e 20 |.X#else.|Xextern |
|00000b60| 76 6f 69 64 20 2a 20 6d | 61 6c 6c 6f 63 20 50 50 |void * m|alloc PP|
|00000b70| 28 28 73 69 7a 65 5f 74 | 20 73 69 7a 65 29 29 3b |((size_t| size));|
|00000b80| 0a 58 65 78 74 65 72 6e | 20 76 6f 69 64 20 66 72 |.Xextern| void fr|
|00000b90| 65 65 20 50 50 28 28 76 | 6f 69 64 20 2a 70 74 72 |ee PP((v|oid *ptr|
|00000ba0| 29 29 3b 0a 58 65 78 74 | 65 72 6e 20 63 68 61 72 |));.Xext|ern char|
|00000bb0| 20 2a 20 67 65 74 65 6e | 76 20 50 50 28 28 63 6f | * geten|v PP((co|
|00000bc0| 6e 73 74 20 63 68 61 72 | 20 2a 20 6e 61 6d 65 29 |nst char| * name)|
|00000bd0| 29 3b 0a 58 23 65 6e 64 | 69 66 0a 58 0a 58 23 69 |);.X#end|if.X.X#i|
|00000be0| 66 64 65 66 20 4e 45 45 | 44 5f 46 41 52 5f 50 4f |fdef NEE|D_FAR_PO|
|00000bf0| 49 4e 54 45 52 53 0a 58 | 0a 58 23 69 66 64 65 66 |INTERS.X|.X#ifdef|
|00000c00| 20 5f 5f 54 55 52 42 4f | 43 5f 5f 0a 58 2f 2a 20 | __TURBO|C__.X/* |
|00000c10| 54 68 65 73 65 20 64 65 | 66 69 6e 69 74 69 6f 6e |These de|finition|
|00000c20| 73 20 77 6f 72 6b 20 66 | 6f 72 20 42 6f 72 6c 61 |s work f|or Borla|
|00000c30| 6e 64 20 43 20 28 54 75 | 72 62 6f 20 43 29 20 2a |nd C (Tu|rbo C) *|
|00000c40| 2f 0a 58 23 69 6e 63 6c | 75 64 65 20 3c 61 6c 6c |/.X#incl|ude <all|
|00000c50| 6f 63 2e 68 3e 09 09 2f | 2a 20 6e 65 65 64 20 66 |oc.h>../|* need f|
|00000c60| 61 72 6d 61 6c 6c 6f 63 | 28 29 2c 20 66 61 72 66 |armalloc|(), farf|
|00000c70| 72 65 65 28 29 20 2a 2f | 0a 58 23 64 65 66 69 6e |ree() */|.X#defin|
|00000c80| 65 20 66 61 72 5f 6d 61 | 6c 6c 6f 63 28 78 29 09 |e far_ma|lloc(x).|
|00000c90| 66 61 72 6d 61 6c 6c 6f | 63 28 78 29 0a 58 23 64 |farmallo|c(x).X#d|
|00000ca0| 65 66 69 6e 65 20 66 61 | 72 5f 66 72 65 65 28 78 |efine fa|r_free(x|
|00000cb0| 29 09 66 61 72 66 72 65 | 65 28 78 29 0a 58 23 65 |).farfre|e(x).X#e|
|00000cc0| 6c 73 65 0a 58 2f 2a 20 | 54 68 65 73 65 20 64 65 |lse.X/* |These de|
|00000cd0| 66 69 6e 69 74 69 6f 6e | 73 20 77 6f 72 6b 20 66 |finition|s work f|
|00000ce0| 6f 72 20 4d 69 63 72 6f | 73 6f 66 74 20 43 20 61 |or Micro|soft C a|
|00000cf0| 6e 64 20 63 6f 6d 70 61 | 74 69 62 6c 65 20 63 6f |nd compa|tible co|
|00000d00| 6d 70 69 6c 65 72 73 20 | 2a 2f 0a 58 23 69 6e 63 |mpilers |*/.X#inc|
|00000d10| 6c 75 64 65 20 3c 6d 61 | 6c 6c 6f 63 2e 68 3e 09 |lude <ma|lloc.h>.|
|00000d20| 09 2f 2a 20 6e 65 65 64 | 20 5f 66 6d 61 6c 6c 6f |./* need| _fmallo|
|00000d30| 63 28 29 2c 20 5f 66 66 | 72 65 65 28 29 20 2a 2f |c(), _ff|ree() */|
|00000d40| 0a 58 23 64 65 66 69 6e | 65 20 66 61 72 5f 6d 61 |.X#defin|e far_ma|
|00000d50| 6c 6c 6f 63 28 78 29 09 | 5f 66 6d 61 6c 6c 6f 63 |lloc(x).|_fmalloc|
|00000d60| 28 78 29 0a 58 23 64 65 | 66 69 6e 65 20 66 61 72 |(x).X#de|fine far|
|00000d70| 5f 66 72 65 65 28 78 29 | 09 5f 66 66 72 65 65 28 |_free(x)|._ffree(|
|00000d80| 78 29 0a 58 23 65 6e 64 | 69 66 0a 58 0a 58 23 65 |x).X#end|if.X.X#e|
|00000d90| 6e 64 69 66 0a 58 0a 58 | 23 69 66 64 65 66 20 44 |ndif.X.X|#ifdef D|
|00000da0| 4f 4e 54 5f 55 53 45 5f | 42 5f 4d 4f 44 45 09 09 |ONT_USE_|B_MODE..|
|00000db0| 2f 2a 20 64 65 66 69 6e | 65 20 6d 6f 64 65 20 70 |/* defin|e mode p|
|00000dc0| 61 72 61 6d 65 74 65 72 | 73 20 66 6f 72 20 66 6f |arameter|s for fo|
|00000dd0| 70 65 6e 28 29 20 2a 2f | 0a 58 23 64 65 66 69 6e |pen() */|.X#defin|
|00000de0| 65 20 52 45 41 44 5f 42 | 49 4e 41 52 59 09 22 72 |e READ_B|INARY."r|
|00000df0| 22 0a 58 23 65 6c 73 65 | 0a 58 23 64 65 66 69 6e |".X#else|.X#defin|
|00000e00| 65 20 52 45 41 44 5f 42 | 49 4e 41 52 59 09 22 72 |e READ_B|INARY."r|
|00000e10| 62 22 0a 58 23 65 6e 64 | 69 66 0a 58 0a 58 0a 58 |b".X#end|if.X.X.X|
|00000e20| 2f 2a 0a 58 20 2a 20 44 | 65 63 6c 61 72 61 74 69 |/*.X * D|eclarati|
|00000e30| 6f 6e 73 20 66 6f 72 20 | 61 73 73 65 6d 62 6c 79 |ons for |assembly|
|00000e40| 2d 6c 61 6e 67 75 61 67 | 65 20 73 75 70 70 6f 72 |-languag|e suppor|
|00000e50| 74 20 72 6f 75 74 69 6e | 65 73 20 28 73 65 65 20 |t routin|es (see |
|00000e60| 6a 6d 65 6d 64 6f 73 61 | 2e 61 73 6d 29 2e 0a 58 |jmemdosa|.asm)..X|
|00000e70| 20 2a 0a 58 20 2a 20 54 | 68 65 20 66 75 6e 63 74 | *.X * T|he funct|
|00000e80| 69 6f 6e 73 20 61 72 65 | 20 64 65 63 6c 61 72 65 |ions are| declare|
|00000e90| 64 20 22 66 61 72 22 20 | 61 73 20 61 72 65 20 61 |d "far" |as are a|
|00000ea0| 6c 6c 20 70 6f 69 6e 74 | 65 72 20 61 72 67 75 6d |ll point|er argum|
|00000eb0| 65 6e 74 73 3b 0a 58 20 | 2a 20 74 68 69 73 20 65 |ents;.X |* this e|
|00000ec0| 6e 73 75 72 65 73 20 74 | 68 65 20 61 73 73 65 6d |nsures t|he assem|
|00000ed0| 62 6c 79 20 73 6f 75 72 | 63 65 20 63 6f 64 65 20 |bly sour|ce code |
|00000ee0| 77 69 6c 6c 20 77 6f 72 | 6b 20 72 65 67 61 72 64 |will wor|k regard|
|00000ef0| 6c 65 73 73 20 6f 66 20 | 74 68 65 0a 58 20 2a 20 |less of |the.X * |
|00000f00| 63 6f 6d 70 69 6c 65 72 | 20 6d 65 6d 6f 72 79 20 |compiler| memory |
|00000f10| 6d 6f 64 65 6c 2e 20 20 | 57 65 20 61 73 73 75 6d |model. |We assum|
|00000f20| 65 20 22 73 68 6f 72 74 | 22 20 69 73 20 31 36 20 |e "short|" is 16 |
|00000f30| 62 69 74 73 2c 20 22 6c | 6f 6e 67 22 20 69 73 20 |bits, "l|ong" is |
|00000f40| 33 32 2e 0a 58 20 2a 2f | 0a 58 0a 58 74 79 70 65 |32..X */|.X.Xtype|
|00000f50| 64 65 66 20 76 6f 69 64 | 20 66 61 72 20 2a 20 58 |def void| far * X|
|00000f60| 4d 53 44 52 49 56 45 52 | 3b 09 2f 2a 20 61 63 74 |MSDRIVER|;./* act|
|00000f70| 75 61 6c 6c 79 20 61 20 | 70 6f 69 6e 74 65 72 20 |ually a |pointer |
|00000f80| 74 6f 20 63 6f 64 65 20 | 2a 2f 0a 58 74 79 70 65 |to code |*/.Xtype|
|00000f90| 64 65 66 20 73 74 72 75 | 63 74 20 7b 09 09 2f 2a |def stru|ct {../*|
|00000fa0| 20 72 65 67 69 73 74 65 | 72 73 20 66 6f 72 20 63 | registe|rs for c|
|00000fb0| 61 6c 6c 69 6e 67 20 58 | 4d 53 20 64 72 69 76 65 |alling X|MS drive|
|00000fc0| 72 20 2a 2f 0a 58 09 75 | 6e 73 69 67 6e 65 64 20 |r */.X.u|nsigned |
|00000fd0| 73 68 6f 72 74 20 61 78 | 2c 20 64 78 2c 20 62 78 |short ax|, dx, bx|
|00000fe0| 3b 0a 58 09 76 6f 69 64 | 20 66 61 72 20 2a 20 64 |;.X.void| far * d|
|00000ff0| 73 5f 73 69 3b 0a 58 20 | 20 20 20 20 20 7d 20 58 |s_si;.X | } X|
|00001000| 4d 53 63 6f 6e 74 65 78 | 74 3b 0a 58 74 79 70 65 |MScontex|t;.Xtype|
|00001010| 64 65 66 20 73 74 72 75 | 63 74 20 7b 09 09 2f 2a |def stru|ct {../*|
|00001020| 20 72 65 67 69 73 74 65 | 72 73 20 66 6f 72 20 63 | registe|rs for c|
|00001030| 61 6c 6c 69 6e 67 20 45 | 4d 53 20 64 72 69 76 65 |alling E|MS drive|
|00001040| 72 20 2a 2f 0a 58 09 75 | 6e 73 69 67 6e 65 64 20 |r */.X.u|nsigned |
|00001050| 73 68 6f 72 74 20 61 78 | 2c 20 64 78 2c 20 62 78 |short ax|, dx, bx|
|00001060| 3b 0a 58 09 76 6f 69 64 | 20 66 61 72 20 2a 20 64 |;.X.void| far * d|
|00001070| 73 5f 73 69 3b 0a 58 20 | 20 20 20 20 20 7d 20 45 |s_si;.X | } E|
|00001080| 4d 53 63 6f 6e 74 65 78 | 74 3b 0a 58 0a 58 45 58 |MScontex|t;.X.XEX|
|00001090| 54 45 52 4e 20 73 68 6f | 72 74 20 66 61 72 20 6a |TERN sho|rt far j|
|000010a0| 64 6f 73 5f 6f 70 65 6e | 20 50 50 28 28 73 68 6f |dos_open| PP((sho|
|000010b0| 72 74 20 66 61 72 20 2a | 20 68 61 6e 64 6c 65 2c |rt far *| handle,|
|000010c0| 20 63 68 61 72 20 66 61 | 72 20 2a 20 66 69 6c 65 | char fa|r * file|
|000010d0| 6e 61 6d 65 29 29 3b 0a | 58 45 58 54 45 52 4e 20 |name));.|XEXTERN |
|000010e0| 73 68 6f 72 74 20 66 61 | 72 20 6a 64 6f 73 5f 63 |short fa|r jdos_c|
|000010f0| 6c 6f 73 65 20 50 50 28 | 28 73 68 6f 72 74 20 68 |lose PP(|(short h|
|00001100| 61 6e 64 6c 65 29 29 3b | 0a 58 45 58 54 45 52 4e |andle));|.XEXTERN|
|00001110| 20 73 68 6f 72 74 20 66 | 61 72 20 6a 64 6f 73 5f | short f|ar jdos_|
|00001120| 73 65 65 6b 20 50 50 28 | 28 73 68 6f 72 74 20 68 |seek PP(|(short h|
|00001130| 61 6e 64 6c 65 2c 20 6c | 6f 6e 67 20 6f 66 66 73 |andle, l|ong offs|
|00001140| 65 74 29 29 3b 0a 58 45 | 58 54 45 52 4e 20 73 68 |et));.XE|XTERN sh|
|00001150| 6f 72 74 20 66 61 72 20 | 6a 64 6f 73 5f 72 65 61 |ort far |jdos_rea|
|00001160| 64 20 50 50 28 28 73 68 | 6f 72 74 20 68 61 6e 64 |d PP((sh|ort hand|
|00001170| 6c 65 2c 20 76 6f 69 64 | 20 66 61 72 20 2a 20 62 |le, void| far * b|
|00001180| 75 66 66 65 72 2c 0a 58 | 09 09 09 20 20 20 20 20 |uffer,.X|... |
|00001190| 20 20 75 6e 73 69 67 6e | 65 64 20 73 68 6f 72 74 | unsign|ed short|
|000011a0| 20 63 6f 75 6e 74 29 29 | 3b 0a 58 45 58 54 45 52 | count))|;.XEXTER|
|000011b0| 4e 20 73 68 6f 72 74 20 | 66 61 72 20 6a 64 6f 73 |N short |far jdos|
|000011c0| 5f 77 72 69 74 65 20 50 | 50 28 28 73 68 6f 72 74 |_write P|P((short|
|000011d0| 20 68 61 6e 64 6c 65 2c | 20 76 6f 69 64 20 66 61 | handle,| void fa|
|000011e0| 72 20 2a 20 62 75 66 66 | 65 72 2c 0a 58 09 09 09 |r * buff|er,.X...|
|000011f0| 09 75 6e 73 69 67 6e 65 | 64 20 73 68 6f 72 74 20 |.unsigne|d short |
|00001200| 63 6f 75 6e 74 29 29 3b | 0a 58 45 58 54 45 52 4e |count));|.XEXTERN|
|00001210| 20 76 6f 69 64 20 66 61 | 72 20 6a 78 6d 73 5f 67 | void fa|r jxms_g|
|00001220| 65 74 64 72 69 76 65 72 | 20 50 50 28 28 58 4d 53 |etdriver| PP((XMS|
|00001230| 44 52 49 56 45 52 20 66 | 61 72 20 2a 29 29 3b 0a |DRIVER f|ar *));.|
|00001240| 58 45 58 54 45 52 4e 20 | 76 6f 69 64 20 66 61 72 |XEXTERN |void far|
|00001250| 20 6a 78 6d 73 5f 63 61 | 6c 6c 64 72 69 76 65 72 | jxms_ca|lldriver|
|00001260| 20 50 50 28 28 58 4d 53 | 44 52 49 56 45 52 2c 20 | PP((XMS|DRIVER, |
|00001270| 58 4d 53 63 6f 6e 74 65 | 78 74 20 66 61 72 20 2a |XMSconte|xt far *|
|00001280| 29 29 3b 0a 58 45 58 54 | 45 52 4e 20 73 68 6f 72 |));.XEXT|ERN shor|
|00001290| 74 20 66 61 72 20 6a 65 | 6d 73 5f 61 76 61 69 6c |t far je|ms_avail|
|000012a0| 61 62 6c 65 20 50 50 28 | 28 76 6f 69 64 29 29 3b |able PP(|(void));|
|000012b0| 0a 58 45 58 54 45 52 4e | 20 76 6f 69 64 20 66 61 |.XEXTERN| void fa|
|000012c0| 72 20 6a 65 6d 73 5f 63 | 61 6c 6c 64 72 69 76 65 |r jems_c|alldrive|
|000012d0| 72 20 50 50 28 28 45 4d | 53 63 6f 6e 74 65 78 74 |r PP((EM|Scontext|
|000012e0| 20 66 61 72 20 2a 29 29 | 3b 0a 58 0a 58 0a 58 73 | far *))|;.X.X.Xs|
|000012f0| 74 61 74 69 63 20 65 78 | 74 65 72 6e 61 6c 5f 6d |tatic ex|ternal_m|
|00001300| 65 74 68 6f 64 73 5f 70 | 74 72 20 6d 65 74 68 6f |ethods_p|tr metho|
|00001310| 64 73 3b 20 2f 2a 20 73 | 61 76 65 64 20 66 6f 72 |ds; /* s|aved for|
|00001320| 20 61 63 63 65 73 73 20 | 74 6f 20 65 72 72 6f 72 | access |to error|
|00001330| 5f 65 78 69 74 20 2a 2f | 0a 58 0a 58 73 74 61 74 |_exit */|.X.Xstat|
|00001340| 69 63 20 6c 6f 6e 67 20 | 74 6f 74 61 6c 5f 75 73 |ic long |total_us|
|00001350| 65 64 3b 09 09 2f 2a 20 | 74 6f 74 61 6c 20 46 41 |ed;../* |total FA|
|00001360| 52 20 6d 65 6d 6f 72 79 | 20 72 65 71 75 65 73 74 |R memory| request|
|00001370| 65 64 20 73 6f 20 66 61 | 72 20 2a 2f 0a 58 0a 58 |ed so fa|r */.X.X|
|00001380| 0a 58 2f 2a 0a 58 20 2a | 20 53 65 6c 65 63 74 69 |.X/*.X *| Selecti|
|00001390| 6f 6e 20 6f 66 20 61 20 | 66 69 6c 65 20 6e 61 6d |on of a |file nam|
|000013a0| 65 20 66 6f 72 20 61 20 | 74 65 6d 70 6f 72 61 72 |e for a |temporar|
|000013b0| 79 20 66 69 6c 65 2e 0a | 58 20 2a 20 54 68 69 73 |y file..|X * This|
|000013c0| 20 69 73 20 68 69 67 68 | 6c 79 20 73 79 73 74 65 | is high|ly syste|
|000013d0| 6d 2d 64 65 70 65 6e 64 | 65 6e 74 2c 20 61 6e 64 |m-depend|ent, and|
|000013e0| 20 79 6f 75 20 6d 61 79 | 20 77 61 6e 74 20 74 6f | you may| want to|
|000013f0| 20 63 75 73 74 6f 6d 69 | 7a 65 20 69 74 2e 0a 58 | customi|ze it..X|
|00001400| 20 2a 2f 0a 58 0a 58 73 | 74 61 74 69 63 20 69 6e | */.X.Xs|tatic in|
|00001410| 74 20 6e 65 78 74 5f 66 | 69 6c 65 5f 6e 75 6d 3b |t next_f|ile_num;|
|00001420| 09 2f 2a 20 74 6f 20 64 | 69 73 74 69 6e 67 75 69 |./* to d|istingui|
|00001430| 73 68 20 61 6d 6f 6e 67 | 20 73 65 76 65 72 61 6c |sh among| several|
|00001440| 20 74 65 6d 70 20 66 69 | 6c 65 73 20 2a 2f 0a 58 | temp fi|les */.X|
|00001450| 0a 58 4c 4f 43 41 4c 20 | 76 6f 69 64 0a 58 73 65 |.XLOCAL |void.Xse|
|00001460| 6c 65 63 74 5f 66 69 6c | 65 5f 6e 61 6d 65 20 28 |lect_fil|e_name (|
|00001470| 63 68 61 72 20 2a 20 66 | 6e 61 6d 65 29 0a 58 7b |char * f|name).X{|
|00001480| 0a 58 20 20 63 6f 6e 73 | 74 20 63 68 61 72 20 2a |.X cons|t char *|
|00001490| 20 65 6e 76 3b 0a 58 20 | 20 63 68 61 72 20 2a 20 | env;.X | char * |
|000014a0| 70 74 72 3b 0a 58 20 20 | 46 49 4c 45 20 2a 20 74 |ptr;.X |FILE * t|
|000014b0| 66 69 6c 65 3b 0a 58 0a | 58 20 20 2f 2a 20 4b 65 |file;.X.|X /* Ke|
|000014c0| 65 70 20 67 65 6e 65 72 | 61 74 69 6e 67 20 66 69 |ep gener|ating fi|
|000014d0| 6c 65 20 6e 61 6d 65 73 | 20 74 69 6c 6c 20 77 65 |le names| till we|
|000014e0| 20 66 69 6e 64 20 6f 6e | 65 20 74 68 61 74 27 73 | find on|e that's|
|000014f0| 20 6e 6f 74 20 69 6e 20 | 75 73 65 20 2a 2f 0a 58 | not in |use */.X|
|00001500| 20 20 66 6f 72 20 28 3b | 3b 29 20 7b 0a 58 20 20 | for (;|;) {.X |
|00001510| 20 20 2f 2a 20 47 65 74 | 20 74 65 6d 70 20 64 69 | /* Get| temp di|
|00001520| 72 65 63 74 6f 72 79 20 | 6e 61 6d 65 20 66 72 6f |rectory |name fro|
|00001530| 6d 20 65 6e 76 69 72 6f | 6e 6d 65 6e 74 20 54 4d |m enviro|nment TM|
|00001540| 50 20 6f 72 20 54 45 4d | 50 20 76 61 72 69 61 62 |P or TEM|P variab|
|00001550| 6c 65 3b 0a 58 20 20 20 | 20 20 2a 20 69 66 20 6e |le;.X | * if n|
|00001560| 6f 6e 65 2c 20 75 73 65 | 20 22 2e 22 0a 58 20 20 |one, use| ".".X |
|00001570| 20 20 20 2a 2f 0a 58 20 | 20 20 20 69 66 20 28 28 | */.X | if ((|
|00001580| 65 6e 76 20 3d 20 28 63 | 6f 6e 73 74 20 63 68 61 |env = (c|onst cha|
|00001590| 72 20 2a 29 20 67 65 74 | 65 6e 76 28 22 54 4d 50 |r *) get|env("TMP|
|000015a0| 22 29 29 20 3d 3d 20 4e | 55 4c 4c 29 0a 58 20 20 |")) == N|ULL).X |
|000015b0| 20 20 20 20 69 66 20 28 | 28 65 6e 76 20 3d 20 28 | if (|(env = (|
|000015c0| 63 6f 6e 73 74 20 63 68 | 61 72 20 2a 29 20 67 65 |const ch|ar *) ge|
|000015d0| 74 65 6e 76 28 22 54 45 | 4d 50 22 29 29 20 3d 3d |tenv("TE|MP")) ==|
|000015e0| 20 4e 55 4c 4c 29 0a 58 | 09 65 6e 76 20 3d 20 22 | NULL).X|.env = "|
|000015f0| 2e 22 3b 0a 58 20 20 20 | 20 69 66 20 28 2a 65 6e |.";.X | if (*en|
|00001600| 76 20 3d 3d 20 27 5c 30 | 27 29 09 09 2f 2a 20 6e |v == '\0|')../* n|
|00001610| 75 6c 6c 20 73 74 72 69 | 6e 67 20 6d 65 61 6e 73 |ull stri|ng means|
|00001620| 20 22 2e 22 20 2a 2f 0a | 58 20 20 20 20 20 20 65 | "." */.|X e|
|00001630| 6e 76 20 3d 20 22 2e 22 | 3b 0a 58 20 20 20 20 70 |nv = "."|;.X p|
|00001640| 74 72 20 3d 20 66 6e 61 | 6d 65 3b 09 09 2f 2a 20 |tr = fna|me;../* |
|00001650| 63 6f 70 79 20 6e 61 6d | 65 20 74 6f 20 66 6e 61 |copy nam|e to fna|
|00001660| 6d 65 20 2a 2f 0a 58 20 | 20 20 20 77 68 69 6c 65 |me */.X | while|
|00001670| 20 28 2a 65 6e 76 20 21 | 3d 20 27 5c 30 27 29 0a | (*env !|= '\0').|
|00001680| 58 20 20 20 20 20 20 2a | 70 74 72 2b 2b 20 3d 20 |X *|ptr++ = |
|00001690| 2a 65 6e 76 2b 2b 3b 0a | 58 20 20 20 20 69 66 20 |*env++;.|X if |
|000016a0| 28 70 74 72 5b 2d 31 5d | 20 21 3d 20 27 5c 5c 27 |(ptr[-1]| != '\\'|
|000016b0| 20 26 26 20 70 74 72 5b | 2d 31 5d 20 21 3d 20 27 | && ptr[|-1] != '|
|000016c0| 2f 27 29 0a 58 20 20 20 | 20 20 20 2a 70 74 72 2b |/').X | *ptr+|
|000016d0| 2b 20 3d 20 27 5c 5c 27 | 3b 09 09 2f 2a 20 61 70 |+ = '\\'|;../* ap|
|000016e0| 70 65 6e 64 20 62 61 63 | 6b 73 6c 61 73 68 20 69 |pend bac|kslash i|
|000016f0| 66 20 6e 6f 74 20 69 6e | 20 65 6e 76 20 76 61 72 |f not in| env var|
|00001700| 69 61 62 6c 65 20 2a 2f | 0a 58 20 20 20 20 2f 2a |iable */|.X /*|
|00001710| 20 41 70 70 65 6e 64 20 | 61 20 73 75 69 74 61 62 | Append |a suitab|
|00001720| 6c 65 20 66 69 6c 65 20 | 6e 61 6d 65 20 2a 2f 0a |le file |name */.|
|00001730| 58 20 20 20 20 6e 65 78 | 74 5f 66 69 6c 65 5f 6e |X nex|t_file_n|
|00001740| 75 6d 2b 2b 3b 09 09 2f | 2a 20 61 64 76 61 6e 63 |um++;../|* advanc|
|00001750| 65 20 63 6f 75 6e 74 65 | 72 20 2a 2f 0a 58 20 20 |e counte|r */.X |
|00001760| 20 20 73 70 72 69 6e 74 | 66 28 70 74 72 2c 20 22 | sprint|f(ptr, "|
|00001770| 4a 50 47 25 30 33 64 2e | 54 4d 50 22 2c 20 6e 65 |JPG%03d.|TMP", ne|
|00001780| 78 74 5f 66 69 6c 65 5f | 6e 75 6d 29 3b 0a 58 20 |xt_file_|num);.X |
|00001790| 20 20 20 2f 2a 20 50 72 | 6f 62 65 20 74 6f 20 73 | /* Pr|obe to s|
|000017a0| 65 65 20 69 66 20 66 69 | 6c 65 20 6e 61 6d 65 20 |ee if fi|le name |
|000017b0| 69 73 20 61 6c 72 65 61 | 64 79 20 69 6e 20 75 73 |is alrea|dy in us|
|000017c0| 65 20 2a 2f 0a 58 20 20 | 20 20 69 66 20 28 28 74 |e */.X | if ((t|
|000017d0| 66 69 6c 65 20 3d 20 66 | 6f 70 65 6e 28 66 6e 61 |file = f|open(fna|
|000017e0| 6d 65 2c 20 52 45 41 44 | 5f 42 49 4e 41 52 59 29 |me, READ|_BINARY)|
|000017f0| 29 20 3d 3d 20 4e 55 4c | 4c 29 0a 58 20 20 20 20 |) == NUL|L).X |
|00001800| 20 20 62 72 65 61 6b 3b | 0a 58 20 20 20 20 66 63 | break;|.X fc|
|00001810| 6c 6f 73 65 28 74 66 69 | 6c 65 29 3b 09 09 2f 2a |lose(tfi|le);../*|
|00001820| 20 6f 6f 70 73 2c 20 69 | 74 27 73 20 74 68 65 72 | oops, i|t's ther|
|00001830| 65 3b 20 63 6c 6f 73 65 | 20 74 66 69 6c 65 20 26 |e; close| tfile &|
|00001840| 20 74 72 79 20 61 67 61 | 69 6e 20 2a 2f 0a 58 20 | try aga|in */.X |
|00001850| 20 7d 0a 58 7d 0a 58 0a | 58 0a 58 2f 2a 0a 58 20 | }.X}.X.|X.X/*.X |
|00001860| 2a 20 4e 65 61 72 2d 6d | 65 6d 6f 72 79 20 61 6c |* Near-m|emory al|
|00001870| 6c 6f 63 61 74 69 6f 6e | 20 61 6e 64 20 66 72 65 |location| and fre|
|00001880| 65 69 6e 67 20 61 72 65 | 20 63 6f 6e 74 72 6f 6c |eing are| control|
|00001890| 6c 65 64 20 62 79 20 74 | 68 65 20 72 65 67 75 6c |led by t|he regul|
|000018a0| 61 72 20 6c 69 62 72 61 | 72 79 0a 58 20 2a 20 72 |ar libra|ry.X * r|
|000018b0| 6f 75 74 69 6e 65 73 20 | 6d 61 6c 6c 6f 63 28 29 |outines |malloc()|
|000018c0| 20 61 6e 64 20 66 72 65 | 65 28 29 2e 0a 58 20 2a | and fre|e()..X *|
|000018d0| 2f 0a 58 0a 58 47 4c 4f | 42 41 4c 20 76 6f 69 64 |/.X.XGLO|BAL void|
|000018e0| 20 2a 0a 58 6a 67 65 74 | 5f 73 6d 61 6c 6c 20 28 | *.Xjget|_small (|
|000018f0| 73 69 7a 65 5f 74 20 73 | 69 7a 65 6f 66 6f 62 6a |size_t s|izeofobj|
|00001900| 65 63 74 29 0a 58 7b 0a | 58 20 20 2f 2a 20 6e 65 |ect).X{.|X /* ne|
|00001910| 61 72 20 64 61 74 61 20 | 73 70 61 63 65 20 69 73 |ar data |space is|
|00001920| 20 4e 4f 54 20 63 6f 75 | 6e 74 65 64 20 69 6e 20 | NOT cou|nted in |
|00001930| 74 6f 74 61 6c 5f 75 73 | 65 64 20 2a 2f 0a 58 23 |total_us|ed */.X#|
|00001940| 69 66 6e 64 65 66 20 4e | 45 45 44 5f 46 41 52 5f |ifndef N|EED_FAR_|
|00001950| 50 4f 49 4e 54 45 52 53 | 0a 58 20 20 74 6f 74 61 |POINTERS|.X tota|
|00001960| 6c 5f 75 73 65 64 20 2b | 3d 20 73 69 7a 65 6f 66 |l_used +|= sizeof|
|00001970| 6f 62 6a 65 63 74 3b 0a | 58 23 65 6e 64 69 66 0a |object;.|X#endif.|
|00001980| 58 20 20 72 65 74 75 72 | 6e 20 28 76 6f 69 64 20 |X retur|n (void |
|00001990| 2a 29 20 6d 61 6c 6c 6f | 63 28 73 69 7a 65 6f 66 |*) mallo|c(sizeof|
|000019a0| 6f 62 6a 65 63 74 29 3b | 0a 58 7d 0a 58 0a 58 47 |object);|.X}.X.XG|
|000019b0| 4c 4f 42 41 4c 20 76 6f | 69 64 0a 58 6a 66 72 65 |LOBAL vo|id.Xjfre|
|000019c0| 65 5f 73 6d 61 6c 6c 20 | 28 76 6f 69 64 20 2a 20 |e_small |(void * |
|000019d0| 6f 62 6a 65 63 74 29 0a | 58 7b 0a 58 20 20 66 72 |object).|X{.X fr|
|000019e0| 65 65 28 6f 62 6a 65 63 | 74 29 3b 0a 58 7d 0a 58 |ee(objec|t);.X}.X|
|000019f0| 0a 58 0a 58 2f 2a 0a 58 | 20 2a 20 46 61 72 2d 6d |.X.X/*.X| * Far-m|
|00001a00| 65 6d 6f 72 79 20 61 6c | 6c 6f 63 61 74 69 6f 6e |emory al|location|
|00001a10| 20 61 6e 64 20 66 72 65 | 65 69 6e 67 0a 58 20 2a | and fre|eing.X *|
|00001a20| 2f 0a 58 0a 58 23 69 66 | 64 65 66 20 4e 45 45 44 |/.X.X#if|def NEED|
|00001a30| 5f 46 41 52 5f 50 4f 49 | 4e 54 45 52 53 0a 58 0a |_FAR_POI|NTERS.X.|
|00001a40| 58 47 4c 4f 42 41 4c 20 | 76 6f 69 64 20 46 41 52 |XGLOBAL |void FAR|
|00001a50| 20 2a 0a 58 6a 67 65 74 | 5f 6c 61 72 67 65 20 28 | *.Xjget|_large (|
|00001a60| 73 69 7a 65 5f 74 20 73 | 69 7a 65 6f 66 6f 62 6a |size_t s|izeofobj|
|00001a70| 65 63 74 29 0a 58 7b 0a | 58 20 20 74 6f 74 61 6c |ect).X{.|X total|
|00001a80| 5f 75 73 65 64 20 2b 3d | 20 73 69 7a 65 6f 66 6f |_used +=| sizeofo|
|00001a90| 62 6a 65 63 74 3b 0a 58 | 20 20 72 65 74 75 72 6e |bject;.X| return|
|00001aa0| 20 28 76 6f 69 64 20 46 | 41 52 20 2a 29 20 66 61 | (void F|AR *) fa|
|00001ab0| 72 5f 6d 61 6c 6c 6f 63 | 28 73 69 7a 65 6f 66 6f |r_malloc|(sizeofo|
|00001ac0| 62 6a 65 63 74 29 3b 0a | 58 7d 0a 58 0a 58 47 4c |bject);.|X}.X.XGL|
|00001ad0| 4f 42 41 4c 20 76 6f 69 | 64 0a 58 6a 66 72 65 65 |OBAL voi|d.Xjfree|
|00001ae0| 5f 6c 61 72 67 65 20 28 | 76 6f 69 64 20 46 41 52 |_large (|void FAR|
|00001af0| 20 2a 20 6f 62 6a 65 63 | 74 29 0a 58 7b 0a 58 20 | * objec|t).X{.X |
|00001b00| 20 66 61 72 5f 66 72 65 | 65 28 6f 62 6a 65 63 74 | far_fre|e(object|
|00001b10| 29 3b 0a 58 7d 0a 58 0a | 58 23 65 6e 64 69 66 0a |);.X}.X.|X#endif.|
|00001b20| 58 0a 58 0a 58 2f 2a 0a | 58 20 2a 20 54 68 69 73 |X.X.X/*.|X * This|
|00001b30| 20 72 6f 75 74 69 6e 65 | 20 63 6f 6d 70 75 74 65 | routine| compute|
|00001b40| 73 20 74 68 65 20 74 6f | 74 61 6c 20 6d 65 6d 6f |s the to|tal memo|
|00001b50| 72 79 20 73 70 61 63 65 | 20 61 76 61 69 6c 61 62 |ry space| availab|
|00001b60| 6c 65 20 66 6f 72 20 61 | 6c 6c 6f 63 61 74 69 6f |le for a|llocatio|
|00001b70| 6e 2e 0a 58 20 2a 20 49 | 74 27 73 20 69 6d 70 6f |n..X * I|t's impo|
|00001b80| 73 73 69 62 6c 65 20 74 | 6f 20 64 6f 20 74 68 69 |ssible t|o do thi|
|00001b90| 73 20 69 6e 20 61 20 70 | 6f 72 74 61 62 6c 65 20 |s in a p|ortable |
|00001ba0| 77 61 79 3b 20 6f 75 72 | 20 63 75 72 72 65 6e 74 |way; our| current|
|00001bb0| 20 73 6f 6c 75 74 69 6f | 6e 20 69 73 0a 58 20 2a | solutio|n is.X *|
|00001bc0| 20 74 6f 20 6d 61 6b 65 | 20 74 68 65 20 75 73 65 | to make| the use|
|00001bd0| 72 20 74 65 6c 6c 20 75 | 73 20 28 77 69 74 68 20 |r tell u|s (with |
|00001be0| 61 20 64 65 66 61 75 6c | 74 20 76 61 6c 75 65 20 |a defaul|t value |
|00001bf0| 73 65 74 20 61 74 20 63 | 6f 6d 70 69 6c 65 20 74 |set at c|ompile t|
|00001c00| 69 6d 65 29 2e 0a 58 20 | 2a 20 49 66 20 79 6f 75 |ime)..X |* If you|
|00001c10| 20 63 61 6e 20 61 63 74 | 75 61 6c 6c 79 20 67 65 | can act|ually ge|
|00001c20| 74 20 74 68 65 20 61 76 | 61 69 6c 61 62 6c 65 20 |t the av|ailable |
|00001c30| 73 70 61 63 65 2c 20 69 | 74 27 73 20 61 20 67 6f |space, i|t's a go|
|00001c40| 6f 64 20 69 64 65 61 20 | 74 6f 20 73 75 62 74 72 |od idea |to subtr|
|00001c50| 61 63 74 0a 58 20 2a 20 | 61 20 73 6c 6f 70 20 66 |act.X * |a slop f|
|00001c60| 61 63 74 6f 72 20 6f 66 | 20 35 25 20 6f 72 20 73 |actor of| 5% or s|
|00001c70| 6f 2e 0a 58 20 2a 2f 0a | 58 0a 58 23 69 66 6e 64 |o..X */.|X.X#ifnd|
|00001c80| 65 66 20 44 45 46 41 55 | 4c 54 5f 4d 41 58 5f 4d |ef DEFAU|LT_MAX_M|
|00001c90| 45 4d 09 09 2f 2a 20 73 | 6f 20 63 61 6e 20 6f 76 |EM../* s|o can ov|
|00001ca0| 65 72 72 69 64 65 20 66 | 72 6f 6d 20 6d 61 6b 65 |erride f|rom make|
|00001cb0| 66 69 6c 65 20 2a 2f 0a | 58 23 64 65 66 69 6e 65 |file */.|X#define|
|00001cc0| 20 44 45 46 41 55 4c 54 | 5f 4d 41 58 5f 4d 45 4d | DEFAULT|_MAX_MEM|
|00001cd0| 09 09 33 30 30 30 30 30 | 4c 20 2f 2a 20 66 6f 72 |..300000|L /* for|
|00001ce0| 20 74 6f 74 61 6c 20 75 | 73 61 67 65 20 61 62 6f | total u|sage abo|
|00001cf0| 75 74 20 34 35 30 4b 20 | 2a 2f 0a 58 23 65 6e 64 |ut 450K |*/.X#end|
|00001d00| 69 66 0a 58 0a 58 47 4c | 4f 42 41 4c 20 6c 6f 6e |if.X.XGL|OBAL lon|
|00001d10| 67 0a 58 6a 6d 65 6d 5f | 61 76 61 69 6c 61 62 6c |g.Xjmem_|availabl|
|00001d20| 65 20 28 6c 6f 6e 67 20 | 6d 69 6e 5f 62 79 74 65 |e (long |min_byte|
|00001d30| 73 5f 6e 65 65 64 65 64 | 2c 20 6c 6f 6e 67 20 6d |s_needed|, long m|
|00001d40| 61 78 5f 62 79 74 65 73 | 5f 6e 65 65 64 65 64 29 |ax_bytes|_needed)|
|00001d50| 0a 58 7b 0a 58 20 20 72 | 65 74 75 72 6e 20 6d 65 |.X{.X r|eturn me|
|00001d60| 74 68 6f 64 73 2d 3e 6d | 61 78 5f 6d 65 6d 6f 72 |thods->m|ax_memor|
|00001d70| 79 5f 74 6f 5f 75 73 65 | 20 2d 20 74 6f 74 61 6c |y_to_use| - total|
|00001d80| 5f 75 73 65 64 3b 0a 58 | 7d 0a 58 0a 58 0a 58 2f |_used;.X|}.X.X.X/|
|00001d90| 2a 0a 58 20 2a 20 42 61 | 63 6b 69 6e 67 20 73 74 |*.X * Ba|cking st|
|00001da0| 6f 72 65 20 28 74 65 6d | 70 6f 72 61 72 79 20 66 |ore (tem|porary f|
|00001db0| 69 6c 65 29 20 6d 61 6e | 61 67 65 6d 65 6e 74 2e |ile) man|agement.|
|00001dc0| 0a 58 20 2a 20 42 61 63 | 6b 69 6e 67 20 73 74 6f |.X * Bac|king sto|
|00001dd0| 72 65 20 6f 62 6a 65 63 | 74 73 20 61 72 65 20 6f |re objec|ts are o|
|00001de0| 6e 6c 79 20 75 73 65 64 | 20 77 68 65 6e 20 74 68 |nly used| when th|
|00001df0| 65 20 76 61 6c 75 65 20 | 72 65 74 75 72 6e 65 64 |e value |returned|
|00001e00| 20 62 79 0a 58 20 2a 20 | 6a 6d 65 6d 5f 61 76 61 | by.X * |jmem_ava|
|00001e10| 69 6c 61 62 6c 65 20 69 | 73 20 6c 65 73 73 20 74 |ilable i|s less t|
|00001e20| 68 61 6e 20 74 68 65 20 | 74 6f 74 61 6c 20 73 70 |han the |total sp|
|00001e30| 61 63 65 20 6e 65 65 64 | 65 64 2e 20 20 59 6f 75 |ace need|ed. You|
|00001e40| 20 63 61 6e 20 64 69 73 | 70 65 6e 73 65 0a 58 20 | can dis|pense.X |
|00001e50| 2a 20 77 69 74 68 20 74 | 68 65 73 65 20 72 6f 75 |* with t|hese rou|
|00001e60| 74 69 6e 65 73 20 69 66 | 20 79 6f 75 20 68 61 76 |tines if| you hav|
|00001e70| 65 20 70 6c 65 6e 74 79 | 20 6f 66 20 76 69 72 74 |e plenty| of virt|
|00001e80| 75 61 6c 20 6d 65 6d 6f | 72 79 3b 20 73 65 65 20 |ual memo|ry; see |
|00001e90| 6a 6d 65 6d 6e 6f 62 73 | 2e 63 2e 0a 58 20 2a 2f |jmemnobs|.c..X */|
|00001ea0| 0a 58 0a 58 2f 2a 0a 58 | 20 2a 20 46 6f 72 20 4d |.X.X/*.X| * For M|
|00001eb0| 53 2d 44 4f 53 20 77 65 | 20 73 75 70 70 6f 72 74 |S-DOS we| support|
|00001ec0| 20 74 68 72 65 65 20 74 | 79 70 65 73 20 6f 66 20 | three t|ypes of |
|00001ed0| 62 61 63 6b 69 6e 67 20 | 73 74 6f 72 61 67 65 3a |backing |storage:|
|00001ee0| 0a 58 20 2a 20 20 20 31 | 2e 20 43 6f 6e 76 65 6e |.X * 1|. Conven|
|00001ef0| 74 69 6f 6e 61 6c 20 44 | 4f 53 20 66 69 6c 65 73 |tional D|OS files|
|00001f00| 2e 20 20 57 65 20 61 63 | 63 65 73 73 20 74 68 65 |. We ac|cess the|
|00001f10| 73 65 20 62 79 20 64 69 | 72 65 63 74 20 44 4f 53 |se by di|rect DOS|
|00001f20| 20 63 61 6c 6c 73 20 72 | 61 74 68 65 72 0a 58 20 | calls r|ather.X |
|00001f30| 2a 20 20 20 20 20 20 74 | 68 61 6e 20 76 69 61 20 |* t|han via |
|00001f40| 74 68 65 20 73 74 64 69 | 6f 20 70 61 63 6b 61 67 |the stdi|o packag|
|00001f50| 65 2e 20 20 54 68 69 73 | 20 70 72 6f 76 69 64 65 |e. This| provide|
|00001f60| 73 20 61 20 62 69 74 20 | 62 65 74 74 65 72 20 70 |s a bit |better p|
|00001f70| 65 72 66 6f 72 6d 61 6e | 63 65 2c 0a 58 20 2a 20 |erforman|ce,.X * |
|00001f80| 20 20 20 20 20 62 75 74 | 20 74 68 65 20 72 65 61 | but| the rea|
|00001f90| 6c 20 72 65 61 73 6f 6e | 20 69 73 20 74 68 61 74 |l reason| is that|
|00001fa0| 20 74 68 65 20 62 75 66 | 66 65 72 73 20 74 6f 20 | the buf|fers to |
|00001fb0| 62 65 20 72 65 61 64 20 | 6f 72 20 77 72 69 74 74 |be read |or writt|
|00001fc0| 65 6e 20 61 72 65 20 46 | 41 52 2e 0a 58 20 2a 20 |en are F|AR..X * |
|00001fd0| 20 20 20 20 20 54 68 65 | 20 73 74 64 69 6f 20 6c | The| stdio l|
|00001fe0| 69 62 72 61 72 79 20 66 | 6f 72 20 73 6d 61 6c 6c |ibrary f|or small|
|00001ff0| 2d 64 61 74 61 20 6d 65 | 6d 6f 72 79 20 6d 6f 64 |-data me|mory mod|
|00002000| 65 6c 73 20 63 61 6e 27 | 74 20 63 6f 70 65 20 77 |els can'|t cope w|
|00002010| 69 74 68 20 74 68 61 74 | 2e 0a 58 20 2a 20 20 20 |ith that|..X * |
|00002020| 32 2e 20 45 78 74 65 6e | 64 65 64 20 6d 65 6d 6f |2. Exten|ded memo|
|00002030| 72 79 2c 20 61 63 63 65 | 73 73 65 64 20 70 65 72 |ry, acce|ssed per|
|00002040| 20 74 68 65 20 58 4d 53 | 20 56 32 2e 30 20 73 70 | the XMS| V2.0 sp|
|00002050| 65 63 69 66 69 63 61 74 | 69 6f 6e 2e 0a 58 20 2a |ecificat|ion..X *|
|00002060| 20 20 20 33 2e 20 45 78 | 70 61 6e 64 65 64 20 6d | 3. Ex|panded m|
|00002070| 65 6d 6f 72 79 2c 20 61 | 63 63 65 73 73 65 64 20 |emory, a|ccessed |
|00002080| 70 65 72 20 74 68 65 20 | 4c 49 4d 2f 45 4d 53 20 |per the |LIM/EMS |
|00002090| 34 2e 30 20 73 70 65 63 | 69 66 69 63 61 74 69 6f |4.0 spec|ificatio|
|000020a0| 6e 2e 0a 58 20 2a 20 59 | 6f 75 27 6c 6c 20 6e 65 |n..X * Y|ou'll ne|
|000020b0| 65 64 20 63 6f 70 69 65 | 73 20 6f 66 20 74 68 6f |ed copie|s of tho|
|000020c0| 73 65 20 73 70 65 63 73 | 20 74 6f 20 6d 61 6b 65 |se specs| to make|
|000020d0| 20 73 65 6e 73 65 20 6f | 66 20 74 68 65 20 72 65 | sense o|f the re|
|000020e0| 6c 61 74 65 64 20 63 6f | 64 65 2e 0a 58 20 2a 20 |lated co|de..X * |
|000020f0| 54 68 65 20 73 70 65 63 | 73 20 61 72 65 20 61 76 |The spec|s are av|
|00002100| 61 69 6c 61 62 6c 65 20 | 62 79 20 49 6e 74 65 72 |ailable |by Inter|
|00002110| 6e 65 74 20 46 54 50 20 | 66 72 6f 6d 20 53 49 4d |net FTP |from SIM|
|00002120| 54 45 4c 32 30 20 61 6e | 64 20 69 74 73 20 76 61 |TEL20 an|d its va|
|00002130| 72 69 6f 75 73 0a 58 20 | 2a 20 6d 69 72 72 6f 72 |rious.X |* mirror|
|00002140| 20 73 69 74 65 73 3b 20 | 73 65 65 20 6d 69 63 72 | sites; |see micr|
|00002150| 6f 73 6f 66 74 2f 78 6d | 73 32 30 2e 61 72 63 20 |osoft/xm|s20.arc |
|00002160| 61 6e 64 20 69 6e 66 6f | 2f 6c 69 6d 65 6d 73 34 |and info|/limems4|
|00002170| 31 2e 7a 69 70 2e 0a 58 | 20 2a 2f 0a 58 0a 58 0a |1.zip..X| */.X.X.|
|00002180| 58 2f 2a 0a 58 20 2a 20 | 41 63 63 65 73 73 20 6d |X/*.X * |Access m|
|00002190| 65 74 68 6f 64 73 20 66 | 6f 72 20 61 20 44 4f 53 |ethods f|or a DOS|
|000021a0| 20 66 69 6c 65 2e 0a 58 | 20 2a 2f 0a 58 0a 58 0a | file..X| */.X.X.|
|000021b0| 58 4d 45 54 48 4f 44 44 | 45 46 20 76 6f 69 64 0a |XMETHODD|EF void.|
|000021c0| 58 72 65 61 64 5f 66 69 | 6c 65 5f 73 74 6f 72 65 |Xread_fi|le_store|
|000021d0| 20 28 62 61 63 6b 69 6e | 67 5f 73 74 6f 72 65 5f | (backin|g_store_|
|000021e0| 70 74 72 20 69 6e 66 6f | 2c 20 76 6f 69 64 20 46 |ptr info|, void F|
|000021f0| 41 52 20 2a 20 62 75 66 | 66 65 72 5f 61 64 64 72 |AR * buf|fer_addr|
|00002200| 65 73 73 2c 0a 58 09 09 | 20 6c 6f 6e 67 20 66 69 |ess,.X..| long fi|
|00002210| 6c 65 5f 6f 66 66 73 65 | 74 2c 20 6c 6f 6e 67 20 |le_offse|t, long |
|00002220| 62 79 74 65 5f 63 6f 75 | 6e 74 29 0a 58 7b 0a 58 |byte_cou|nt).X{.X|
|00002230| 20 20 69 66 20 28 6a 64 | 6f 73 5f 73 65 65 6b 28 | if (jd|os_seek(|
|00002240| 69 6e 66 6f 2d 3e 68 61 | 6e 64 6c 65 2e 66 69 6c |info->ha|ndle.fil|
|00002250| 65 5f 68 61 6e 64 6c 65 | 2c 20 66 69 6c 65 5f 6f |e_handle|, file_o|
|00002260| 66 66 73 65 74 29 29 0a | 58 20 20 20 20 45 52 52 |ffset)).|X ERR|
|00002270| 45 58 49 54 28 6d 65 74 | 68 6f 64 73 2c 20 22 73 |EXIT(met|hods, "s|
|00002280| 65 65 6b 20 66 61 69 6c | 65 64 20 6f 6e 20 74 65 |eek fail|ed on te|
|00002290| 6d 70 6f 72 61 72 79 20 | 66 69 6c 65 22 29 3b 0a |mporary |file");.|
|000022a0| 58 20 20 2f 2a 20 53 69 | 6e 63 65 20 4d 41 58 5f |X /* Si|nce MAX_|
|000022b0| 41 4c 4c 4f 43 5f 43 48 | 55 4e 4b 20 69 73 20 6c |ALLOC_CH|UNK is l|
|000022c0| 65 73 73 20 74 68 61 6e | 20 36 34 4b 2c 20 62 79 |ess than| 64K, by|
|000022d0| 74 65 5f 63 6f 75 6e 74 | 20 77 69 6c 6c 20 62 65 |te_count| will be|
|000022e0| 20 74 6f 6f 2e 20 2a 2f | 0a 58 20 20 69 66 20 28 | too. */|.X if (|
|000022f0| 62 79 74 65 5f 63 6f 75 | 6e 74 20 3e 20 36 35 35 |byte_cou|nt > 655|
|00002300| 33 35 4c 29 09 2f 2a 20 | 73 61 66 65 74 79 20 63 |35L)./* |safety c|
|00002310| 68 65 63 6b 20 2a 2f 0a | 58 20 20 20 20 45 52 52 |heck */.|X ERR|
|00002320| 45 58 49 54 28 6d 65 74 | 68 6f 64 73 2c 20 22 4d |EXIT(met|hods, "M|
|00002330| 41 58 5f 41 4c 4c 4f 43 | 5f 43 48 55 4e 4b 20 73 |AX_ALLOC|_CHUNK s|
|00002340| 68 6f 75 6c 64 20 62 65 | 20 6c 65 73 73 20 74 68 |hould be| less th|
|00002350| 61 6e 20 36 34 4b 22 29 | 3b 0a 58 20 20 69 66 20 |an 64K")|;.X if |
|00002360| 28 6a 64 6f 73 5f 72 65 | 61 64 28 69 6e 66 6f 2d |(jdos_re|ad(info-|
|00002370| 3e 68 61 6e 64 6c 65 2e | 66 69 6c 65 5f 68 61 6e |>handle.|file_han|
|00002380| 64 6c 65 2c 20 62 75 66 | 66 65 72 5f 61 64 64 72 |dle, buf|fer_addr|
|00002390| 65 73 73 2c 0a 58 09 09 | 28 75 6e 73 69 67 6e 65 |ess,.X..|(unsigne|
|000023a0| 64 20 73 68 6f 72 74 29 | 20 62 79 74 65 5f 63 6f |d short)| byte_co|
|000023b0| 75 6e 74 29 29 0a 58 20 | 20 20 20 45 52 52 45 58 |unt)).X | ERREX|
|000023c0| 49 54 28 6d 65 74 68 6f | 64 73 2c 20 22 72 65 61 |IT(metho|ds, "rea|
|000023d0| 64 20 66 61 69 6c 65 64 | 20 6f 6e 20 74 65 6d 70 |d failed| on temp|
|000023e0| 6f 72 61 72 79 20 66 69 | 6c 65 22 29 3b 0a 58 7d |orary fi|le");.X}|
|000023f0| 0a 58 0a 58 0a 58 4d 45 | 54 48 4f 44 44 45 46 20 |.X.X.XME|THODDEF |
|00002400| 76 6f 69 64 0a 58 77 72 | 69 74 65 5f 66 69 6c 65 |void.Xwr|ite_file|
|00002410| 5f 73 74 6f 72 65 20 28 | 62 61 63 6b 69 6e 67 5f |_store (|backing_|
|00002420| 73 74 6f 72 65 5f 70 74 | 72 20 69 6e 66 6f 2c 20 |store_pt|r info, |
|00002430| 76 6f 69 64 20 46 41 52 | 20 2a 20 62 75 66 66 65 |void FAR| * buffe|
|00002440| 72 5f 61 64 64 72 65 73 | 73 2c 0a 58 09 09 20 20 |r_addres|s,.X.. |
|00002450| 6c 6f 6e 67 20 66 69 6c | 65 5f 6f 66 66 73 65 74 |long fil|e_offset|
|00002460| 2c 20 6c 6f 6e 67 20 62 | 79 74 65 5f 63 6f 75 6e |, long b|yte_coun|
|00002470| 74 29 0a 58 7b 0a 58 20 | 20 69 66 20 28 6a 64 6f |t).X{.X | if (jdo|
|00002480| 73 5f 73 65 65 6b 28 69 | 6e 66 6f 2d 3e 68 61 6e |s_seek(i|nfo->han|
|00002490| 64 6c 65 2e 66 69 6c 65 | 5f 68 61 6e 64 6c 65 2c |dle.file|_handle,|
|000024a0| 20 66 69 6c 65 5f 6f 66 | 66 73 65 74 29 29 0a 58 | file_of|fset)).X|
|000024b0| 20 20 20 20 45 52 52 45 | 58 49 54 28 6d 65 74 68 | ERRE|XIT(meth|
|000024c0| 6f 64 73 2c 20 22 73 65 | 65 6b 20 66 61 69 6c 65 |ods, "se|ek faile|
|000024d0| 64 20 6f 6e 20 74 65 6d | 70 6f 72 61 72 79 20 66 |d on tem|porary f|
|000024e0| 69 6c 65 22 29 3b 0a 58 | 20 20 2f 2a 20 53 69 6e |ile");.X| /* Sin|
|000024f0| 63 65 20 4d 41 58 5f 41 | 4c 4c 4f 43 5f 43 48 55 |ce MAX_A|LLOC_CHU|
|00002500| 4e 4b 20 69 73 20 6c 65 | 73 73 20 74 68 61 6e 20 |NK is le|ss than |
|00002510| 36 34 4b 2c 20 62 79 74 | 65 5f 63 6f 75 6e 74 20 |64K, byt|e_count |
|00002520| 77 69 6c 6c 20 62 65 20 | 74 6f 6f 2e 20 2a 2f 0a |will be |too. */.|
|00002530| 58 20 20 69 66 20 28 62 | 79 74 65 5f 63 6f 75 6e |X if (b|yte_coun|
|00002540| 74 20 3e 20 36 35 35 33 | 35 4c 29 09 2f 2a 20 73 |t > 6553|5L)./* s|
|00002550| 61 66 65 74 79 20 63 68 | 65 63 6b 20 2a 2f 0a 58 |afety ch|eck */.X|
|00002560| 20 20 20 20 45 52 52 45 | 58 49 54 28 6d 65 74 68 | ERRE|XIT(meth|
|00002570| 6f 64 73 2c 20 22 4d 41 | 58 5f 41 4c 4c 4f 43 5f |ods, "MA|X_ALLOC_|
|00002580| 43 48 55 4e 4b 20 73 68 | 6f 75 6c 64 20 62 65 20 |CHUNK sh|ould be |
|00002590| 6c 65 73 73 20 74 68 61 | 6e 20 36 34 4b 22 29 3b |less tha|n 64K");|
|000025a0| 0a 58 20 20 69 66 20 28 | 6a 64 6f 73 5f 77 72 69 |.X if (|jdos_wri|
|000025b0| 74 65 28 69 6e 66 6f 2d | 3e 68 61 6e 64 6c 65 2e |te(info-|>handle.|
|000025c0| 66 69 6c 65 5f 68 61 6e | 64 6c 65 2c 20 62 75 66 |file_han|dle, buf|
|000025d0| 66 65 72 5f 61 64 64 72 | 65 73 73 2c 0a 58 09 09 |fer_addr|ess,.X..|
|000025e0| 20 28 75 6e 73 69 67 6e | 65 64 20 73 68 6f 72 74 | (unsign|ed short|
|000025f0| 29 20 62 79 74 65 5f 63 | 6f 75 6e 74 29 29 0a 58 |) byte_c|ount)).X|
|00002600| 20 20 20 20 45 52 52 45 | 58 49 54 28 6d 65 74 68 | ERRE|XIT(meth|
|00002610| 6f 64 73 2c 20 22 77 72 | 69 74 65 20 66 61 69 6c |ods, "wr|ite fail|
|00002620| 65 64 20 6f 6e 20 74 65 | 6d 70 6f 72 61 72 79 20 |ed on te|mporary |
|00002630| 66 69 6c 65 20 2d 2d 2d | 20 6f 75 74 20 6f 66 20 |file ---| out of |
|00002640| 64 69 73 6b 20 73 70 61 | 63 65 3f 22 29 3b 0a 58 |disk spa|ce?");.X|
|00002650| 7d 0a 58 0a 58 0a 58 4d | 45 54 48 4f 44 44 45 46 |}.X.X.XM|ETHODDEF|
|00002660| 20 76 6f 69 64 0a 58 63 | 6c 6f 73 65 5f 66 69 6c | void.Xc|lose_fil|
|00002670| 65 5f 73 74 6f 72 65 20 | 28 62 61 63 6b 69 6e 67 |e_store |(backing|
|00002680| 5f 73 74 6f 72 65 5f 70 | 74 72 20 69 6e 66 6f 29 |_store_p|tr info)|
|00002690| 0a 58 7b 0a 58 20 20 6a | 64 6f 73 5f 63 6c 6f 73 |.X{.X j|dos_clos|
|000026a0| 65 28 69 6e 66 6f 2d 3e | 68 61 6e 64 6c 65 2e 66 |e(info->|handle.f|
|000026b0| 69 6c 65 5f 68 61 6e 64 | 6c 65 29 3b 09 2f 2a 20 |ile_hand|le);./* |
|000026c0| 63 6c 6f 73 65 20 74 68 | 65 20 66 69 6c 65 20 2a |close th|e file *|
|000026d0| 2f 0a 58 20 20 72 65 6d | 6f 76 65 28 69 6e 66 6f |/.X rem|ove(info|
|000026e0| 2d 3e 74 65 6d 70 5f 6e | 61 6d 65 29 3b 09 2f 2a |->temp_n|ame);./*|
|000026f0| 20 64 65 6c 65 74 65 20 | 74 68 65 20 66 69 6c 65 | delete |the file|
|00002700| 20 2a 2f 0a 58 2f 2a 20 | 49 66 20 79 6f 75 72 20 | */.X/* |If your |
|00002710| 73 79 73 74 65 6d 20 64 | 6f 65 73 6e 27 74 20 68 |system d|oesn't h|
|00002720| 61 76 65 20 72 65 6d 6f | 76 65 28 29 2c 20 74 72 |ave remo|ve(), tr|
|00002730| 79 20 75 6e 6c 69 6e 6b | 28 29 20 69 6e 73 74 65 |y unlink|() inste|
|00002740| 61 64 2e 0a 58 20 2a 20 | 72 65 6d 6f 76 65 28 29 |ad..X * |remove()|
|00002750| 20 69 73 20 74 68 65 20 | 41 4e 53 49 2d 73 74 61 | is the |ANSI-sta|
|00002760| 6e 64 61 72 64 20 6e 61 | 6d 65 20 66 6f 72 20 74 |ndard na|me for t|
|00002770| 68 69 73 20 66 75 6e 63 | 74 69 6f 6e 2c 20 62 75 |his func|tion, bu|
|00002780| 74 0a 58 20 2a 20 75 6e | 6c 69 6e 6b 28 29 20 77 |t.X * un|link() w|
|00002790| 61 73 20 6d 6f 72 65 20 | 63 6f 6d 6d 6f 6e 20 69 |as more |common i|
|000027a0| 6e 20 70 72 65 2d 41 4e | 53 49 20 73 79 73 74 65 |n pre-AN|SI syste|
|000027b0| 6d 73 2e 0a 58 20 2a 2f | 0a 58 20 20 54 52 41 43 |ms..X */|.X TRAC|
|000027c0| 45 4d 53 31 28 6d 65 74 | 68 6f 64 73 2c 20 31 2c |EMS1(met|hods, 1,|
|000027d0| 20 22 43 6c 6f 73 65 64 | 20 44 4f 53 20 66 69 6c | "Closed| DOS fil|
|000027e0| 65 20 25 64 22 2c 20 69 | 6e 66 6f 2d 3e 68 61 6e |e %d", i|nfo->han|
|000027f0| 64 6c 65 2e 66 69 6c 65 | 5f 68 61 6e 64 6c 65 29 |dle.file|_handle)|
|00002800| 3b 0a 58 7d 0a 58 0a 58 | 0a 58 4c 4f 43 41 4c 20 |;.X}.X.X|.XLOCAL |
|00002810| 62 6f 6f 6c 65 61 6e 0a | 58 6f 70 65 6e 5f 66 69 |boolean.|Xopen_fi|
|00002820| 6c 65 5f 73 74 6f 72 65 | 20 28 62 61 63 6b 69 6e |le_store| (backin|
|00002830| 67 5f 73 74 6f 72 65 5f | 70 74 72 20 69 6e 66 6f |g_store_|ptr info|
|00002840| 2c 20 6c 6f 6e 67 20 74 | 6f 74 61 6c 5f 62 79 74 |, long t|otal_byt|
|00002850| 65 73 5f 6e 65 65 64 65 | 64 29 0a 58 7b 0a 58 20 |es_neede|d).X{.X |
|00002860| 20 73 68 6f 72 74 20 68 | 61 6e 64 6c 65 3b 0a 58 | short h|andle;.X|
|00002870| 20 20 63 68 61 72 20 74 | 72 61 63 65 6d 73 67 5b | char t|racemsg[|
|00002880| 54 45 4d 50 5f 4e 41 4d | 45 5f 4c 45 4e 47 54 48 |TEMP_NAM|E_LENGTH|
|00002890| 2b 34 30 5d 3b 0a 58 0a | 58 20 20 73 65 6c 65 63 |+40];.X.|X selec|
|000028a0| 74 5f 66 69 6c 65 5f 6e | 61 6d 65 28 69 6e 66 6f |t_file_n|ame(info|
|000028b0| 2d 3e 74 65 6d 70 5f 6e | 61 6d 65 29 3b 0a 58 20 |->temp_n|ame);.X |
|000028c0| 20 69 66 20 28 6a 64 6f | 73 5f 6f 70 65 6e 28 28 | if (jdo|s_open((|
|000028d0| 73 68 6f 72 74 20 66 61 | 72 20 2a 29 20 26 20 68 |short fa|r *) & h|
|000028e0| 61 6e 64 6c 65 2c 20 28 | 63 68 61 72 20 66 61 72 |andle, (|char far|
|000028f0| 20 2a 29 20 69 6e 66 6f | 2d 3e 74 65 6d 70 5f 6e | *) info|->temp_n|
|00002900| 61 6d 65 29 29 20 7b 0a | 58 20 20 20 20 2f 2a 20 |ame)) {.|X /* |
|00002910| 68 61 63 6b 20 74 6f 20 | 67 65 74 20 61 72 6f 75 |hack to |get arou|
|00002920| 6e 64 20 54 52 41 43 45 | 4d 53 27 20 69 6e 61 62 |nd TRACE|MS' inab|
|00002930| 69 6c 69 74 79 20 74 6f | 20 68 61 6e 64 6c 65 20 |ility to| handle |
|00002940| 73 74 72 69 6e 67 20 70 | 61 72 61 6d 65 74 65 72 |string p|arameter|
|00002950| 73 20 2a 2f 0a 58 20 20 | 20 20 73 70 72 69 6e 74 |s */.X | sprint|
|00002960| 66 28 74 72 61 63 65 6d | 73 67 2c 20 22 46 61 69 |f(tracem|sg, "Fai|
|00002970| 6c 65 64 20 74 6f 20 63 | 72 65 61 74 65 20 74 65 |led to c|reate te|
|00002980| 6d 70 6f 72 61 72 79 20 | 66 69 6c 65 20 25 73 22 |mporary |file %s"|
|00002990| 2c 20 69 6e 66 6f 2d 3e | 74 65 6d 70 5f 6e 61 6d |, info->|temp_nam|
|000029a0| 65 29 3b 0a 58 20 20 20 | 20 45 52 52 45 58 49 54 |e);.X | ERREXIT|
|000029b0| 28 6d 65 74 68 6f 64 73 | 2c 20 74 72 61 63 65 6d |(methods|, tracem|
|000029c0| 73 67 29 3b 09 2f 2a 20 | 6a 6f 70 65 6e 5f 62 61 |sg);./* |jopen_ba|
|000029d0| 63 6b 69 6e 67 5f 73 74 | 6f 72 65 20 77 69 6c 6c |cking_st|ore will|
|000029e0| 20 66 61 69 6c 20 61 6e | 79 77 61 79 20 2a 2f 0a | fail an|yway */.|
|000029f0| 58 20 20 20 20 72 65 74 | 75 72 6e 20 46 41 4c 53 |X ret|urn FALS|
|00002a00| 45 3b 0a 58 20 20 7d 0a | 58 20 20 69 6e 66 6f 2d |E;.X }.|X info-|
|00002a10| 3e 68 61 6e 64 6c 65 2e | 66 69 6c 65 5f 68 61 6e |>handle.|file_han|
|00002a20| 64 6c 65 20 3d 20 68 61 | 6e 64 6c 65 3b 0a 58 20 |dle = ha|ndle;.X |
|00002a30| 20 69 6e 66 6f 2d 3e 72 | 65 61 64 5f 62 61 63 6b | info->r|ead_back|
|00002a40| 69 6e 67 5f 73 74 6f 72 | 65 20 3d 20 72 65 61 64 |ing_stor|e = read|
|00002a50| 5f 66 69 6c 65 5f 73 74 | 6f 72 65 3b 0a 58 20 20 |_file_st|ore;.X |
|00002a60| 69 6e 66 6f 2d 3e 77 72 | 69 74 65 5f 62 61 63 6b |info->wr|ite_back|
|00002a70| 69 6e 67 5f 73 74 6f 72 | 65 20 3d 20 77 72 69 74 |ing_stor|e = writ|
|00002a80| 65 5f 66 69 6c 65 5f 73 | 74 6f 72 65 3b 0a 58 20 |e_file_s|tore;.X |
|00002a90| 20 69 6e 66 6f 2d 3e 63 | 6c 6f 73 65 5f 62 61 63 | info->c|lose_bac|
|00002aa0| 6b 69 6e 67 5f 73 74 6f | 72 65 20 3d 20 63 6c 6f |king_sto|re = clo|
|00002ab0| 73 65 5f 66 69 6c 65 5f | 73 74 6f 72 65 3b 0a 58 |se_file_|store;.X|
|00002ac0| 20 20 2f 2a 20 68 61 63 | 6b 20 74 6f 20 67 65 74 | /* hac|k to get|
|00002ad0| 20 61 72 6f 75 6e 64 20 | 54 52 41 43 45 4d 53 27 | around |TRACEMS'|
|00002ae0| 20 69 6e 61 62 69 6c 69 | 74 79 20 74 6f 20 68 61 | inabili|ty to ha|
|00002af0| 6e 64 6c 65 20 73 74 72 | 69 6e 67 20 70 61 72 61 |ndle str|ing para|
|00002b00| 6d 65 74 65 72 73 20 2a | 2f 0a 58 20 20 73 70 72 |meters *|/.X spr|
|00002b10| 69 6e 74 66 28 74 72 61 | 63 65 6d 73 67 2c 20 22 |intf(tra|cemsg, "|
|00002b20| 4f 70 65 6e 65 64 20 44 | 4f 53 20 66 69 6c 65 20 |Opened D|OS file |
|00002b30| 25 64 20 20 25 73 22 2c | 20 68 61 6e 64 6c 65 2c |%d %s",| handle,|
|00002b40| 20 69 6e 66 6f 2d 3e 74 | 65 6d 70 5f 6e 61 6d 65 | info->t|emp_name|
|00002b50| 29 3b 0a 58 20 20 54 52 | 41 43 45 4d 53 28 6d 65 |);.X TR|ACEMS(me|
|00002b60| 74 68 6f 64 73 2c 20 31 | 2c 20 74 72 61 63 65 6d |thods, 1|, tracem|
|00002b70| 73 67 29 3b 0a 58 20 20 | 72 65 74 75 72 6e 20 54 |sg);.X |return T|
|00002b80| 52 55 45 3b 09 09 09 2f | 2a 20 73 75 63 63 65 65 |RUE;.../|* succee|
|00002b90| 64 65 64 20 2a 2f 0a 58 | 7d 0a 58 0a 58 0a 58 2f |ded */.X|}.X.X.X/|
|00002ba0| 2a 0a 58 20 2a 20 41 63 | 63 65 73 73 20 6d 65 74 |*.X * Ac|cess met|
|00002bb0| 68 6f 64 73 20 66 6f 72 | 20 65 78 74 65 6e 64 65 |hods for| extende|
|00002bc0| 64 20 6d 65 6d 6f 72 79 | 2e 0a 58 20 2a 2f 0a 58 |d memory|..X */.X|
|00002bd0| 0a 58 23 69 66 20 58 4d | 53 5f 53 55 50 50 4f 52 |.X#if XM|S_SUPPOR|
|00002be0| 54 45 44 0a 58 0a 58 73 | 74 61 74 69 63 20 58 4d |TED.X.Xs|tatic XM|
|00002bf0| 53 44 52 49 56 45 52 20 | 78 6d 73 5f 64 72 69 76 |SDRIVER |xms_driv|
|00002c00| 65 72 3b 09 2f 2a 20 73 | 61 76 65 64 20 61 64 64 |er;./* s|aved add|
|00002c10| 72 65 73 73 20 6f 66 20 | 58 4d 53 20 64 72 69 76 |ress of |XMS driv|
|00002c20| 65 72 20 2a 2f 0a 58 0a | 58 74 79 70 65 64 65 66 |er */.X.|Xtypedef|
|00002c30| 20 75 6e 69 6f 6e 20 7b | 09 09 09 2f 2a 20 65 69 | union {|.../* ei|
|00002c40| 74 68 65 72 20 6c 6f 6e | 67 20 6f 66 66 73 65 74 |ther lon|g offset|
|00002c50| 20 6f 72 20 72 65 61 6c | 2d 6d 6f 64 65 20 70 6f | or real|-mode po|
|00002c60| 69 6e 74 65 72 20 2a 2f | 0a 58 09 6c 6f 6e 67 20 |inter */|.X.long |
|00002c70| 6f 66 66 73 65 74 3b 0a | 58 09 76 6f 69 64 20 66 |offset;.|X.void f|
|00002c80| 61 72 20 2a 20 70 74 72 | 3b 0a 58 20 20 20 20 20 |ar * ptr|;.X |
|00002c90| 20 7d 20 58 4d 53 50 54 | 52 3b 0a 58 0a 58 74 79 | } XMSPT|R;.X.Xty|
|00002ca0| 70 65 64 65 66 20 73 74 | 72 75 63 74 20 7b 09 09 |pedef st|ruct {..|
|00002cb0| 2f 2a 20 58 4d 53 20 6d | 6f 76 65 20 73 70 65 63 |/* XMS m|ove spec|
|00002cc0| 69 66 69 63 61 74 69 6f | 6e 20 73 74 72 75 63 74 |ificatio|n struct|
|00002cd0| 75 72 65 20 2a 2f 0a 58 | 09 6c 6f 6e 67 20 6c 65 |ure */.X|.long le|
|00002ce0| 6e 67 74 68 3b 0a 58 09 | 58 4d 53 48 20 73 72 63 |ngth;.X.|XMSH src|
|00002cf0| 5f 68 61 6e 64 6c 65 3b | 0a 58 09 58 4d 53 50 54 |_handle;|.X.XMSPT|
|00002d00| 52 20 73 72 63 3b 0a 58 | 09 58 4d 53 48 20 64 73 |R src;.X|.XMSH ds|
|00002d10| 74 5f 68 61 6e 64 6c 65 | 3b 0a 58 09 58 4d 53 50 |t_handle|;.X.XMSP|
|00002d20| 54 52 20 64 73 74 3b 0a | 58 20 20 20 20 20 20 7d |TR dst;.|X }|
|00002d30| 20 58 4d 53 73 70 65 63 | 3b 0a 58 0a 58 23 64 65 | XMSspec|;.X.X#de|
|00002d40| 66 69 6e 65 20 4f 44 44 | 28 58 29 09 28 28 28 58 |fine ODD|(X).(((X|
|00002d50| 29 20 26 20 31 4c 29 20 | 21 3d 20 30 29 0a 58 0a |) & 1L) |!= 0).X.|
|00002d60| 58 0a 58 4d 45 54 48 4f | 44 44 45 46 20 76 6f 69 |X.XMETHO|DDEF voi|
|00002d70| 64 0a 58 72 65 61 64 5f | 78 6d 73 5f 73 74 6f 72 |d.Xread_|xms_stor|
|00002d80| 65 20 28 62 61 63 6b 69 | 6e 67 5f 73 74 6f 72 65 |e (backi|ng_store|
|00002d90| 5f 70 74 72 20 69 6e 66 | 6f 2c 20 76 6f 69 64 20 |_ptr inf|o, void |
|00002da0| 46 41 52 20 2a 20 62 75 | 66 66 65 72 5f 61 64 64 |FAR * bu|ffer_add|
|00002db0| 72 65 73 73 2c 0a 58 09 | 09 6c 6f 6e 67 20 66 69 |ress,.X.|.long fi|
|00002dc0| 6c 65 5f 6f 66 66 73 65 | 74 2c 20 6c 6f 6e 67 20 |le_offse|t, long |
|00002dd0| 62 79 74 65 5f 63 6f 75 | 6e 74 29 0a 58 7b 0a 58 |byte_cou|nt).X{.X|
|00002de0| 20 20 58 4d 53 63 6f 6e | 74 65 78 74 20 63 74 78 | XMScon|text ctx|
|00002df0| 3b 0a 58 20 20 58 4d 53 | 73 70 65 63 20 73 70 65 |;.X XMS|spec spe|
|00002e00| 63 3b 0a 58 20 20 63 68 | 61 72 20 65 6e 64 62 75 |c;.X ch|ar endbu|
|00002e10| 66 66 65 72 5b 32 5d 3b | 0a 58 0a 58 20 20 2f 2a |ffer[2];|.X.X /*|
|00002e20| 20 54 68 65 20 58 4d 53 | 20 64 72 69 76 65 72 20 | The XMS| driver |
|00002e30| 63 61 6e 27 74 20 63 6f | 70 65 20 77 69 74 68 20 |can't co|pe with |
|00002e40| 61 6e 20 6f 64 64 20 6c | 65 6e 67 74 68 2c 20 73 |an odd l|ength, s|
|00002e50| 6f 20 68 61 6e 64 6c 65 | 20 74 68 65 20 6c 61 73 |o handle| the las|
|00002e60| 74 20 62 79 74 65 0a 58 | 20 20 20 2a 20 73 70 65 |t byte.X| * spe|
|00002e70| 63 69 61 6c 6c 79 20 69 | 66 20 62 79 74 65 5f 63 |cially i|f byte_c|
|00002e80| 6f 75 6e 74 20 69 73 20 | 6f 64 64 2e 20 20 57 65 |ount is |odd. We|
|00002e90| 20 64 6f 6e 27 74 20 65 | 78 70 65 63 74 20 74 68 | don't e|xpect th|
|00002ea0| 69 73 20 74 6f 20 62 65 | 20 63 6f 6d 6d 6f 6e 2e |is to be| common.|
|00002eb0| 0a 58 20 20 20 2a 2f 0a | 58 0a 58 20 20 73 70 65 |.X */.|X.X spe|
|00002ec0| 63 2e 6c 65 6e 67 74 68 | 20 3d 20 62 79 74 65 5f |c.length| = byte_|
|00002ed0| 63 6f 75 6e 74 20 26 20 | 28 7e 20 31 4c 29 3b 0a |count & |(~ 1L);.|
|00002ee0| 58 20 20 73 70 65 63 2e | 73 72 63 5f 68 61 6e 64 |X spec.|src_hand|
|00002ef0| 6c 65 20 3d 20 69 6e 66 | 6f 2d 3e 68 61 6e 64 6c |le = inf|o->handl|
|00002f00| 65 2e 78 6d 73 5f 68 61 | 6e 64 6c 65 3b 0a 58 20 |e.xms_ha|ndle;.X |
|00002f10| 20 73 70 65 63 2e 73 72 | 63 2e 6f 66 66 73 65 74 | spec.sr|c.offset|
|00002f20| 20 3d 20 66 69 6c 65 5f | 6f 66 66 73 65 74 3b 0a | = file_|offset;.|
|00002f30| 58 20 20 73 70 65 63 2e | 64 73 74 5f 68 61 6e 64 |X spec.|dst_hand|
|00002f40| 6c 65 20 3d 20 30 3b 0a | 58 20 20 73 70 65 63 2e |le = 0;.|X spec.|
|00002f50| 64 73 74 2e 70 74 72 20 | 3d 20 62 75 66 66 65 72 |dst.ptr |= buffer|
|00002f60| 5f 61 64 64 72 65 73 73 | 3b 0a 58 20 20 0a 58 20 |_address|;.X .X |
|00002f70| 20 63 74 78 2e 64 73 5f | 73 69 20 3d 20 28 76 6f | ctx.ds_|si = (vo|
|00002f80| 69 64 20 66 61 72 20 2a | 29 20 26 20 73 70 65 63 |id far *|) & spec|
|00002f90| 3b 0a 58 20 20 63 74 78 | 2e 61 78 20 3d 20 30 78 |;.X ctx|.ax = 0x|
|00002fa0| 30 62 30 30 3b 09 09 2f | 2a 20 45 4d 42 20 6d 6f |0b00;../|* EMB mo|
|00002fb0| 76 65 20 2a 2f 0a 58 20 | 20 6a 78 6d 73 5f 63 61 |ve */.X | jxms_ca|
|00002fc0| 6c 6c 64 72 69 76 65 72 | 28 78 6d 73 5f 64 72 69 |lldriver|(xms_dri|
|00002fd0| 76 65 72 2c 20 28 58 4d | 53 63 6f 6e 74 65 78 74 |ver, (XM|Scontext|
|00002fe0| 20 66 61 72 20 2a 29 20 | 26 20 63 74 78 29 3b 0a | far *) |& ctx);.|
|00002ff0| 58 20 20 69 66 20 28 63 | 74 78 2e 61 78 20 21 3d |X if (c|tx.ax !=|
|00003000| 20 31 29 0a 58 20 20 20 | 20 45 52 52 45 58 49 54 | 1).X | ERREXIT|
|00003010| 28 6d 65 74 68 6f 64 73 | 2c 20 22 72 65 61 64 20 |(methods|, "read |
|00003020| 66 72 6f 6d 20 65 78 74 | 65 6e 64 65 64 20 6d 65 |from ext|ended me|
|00003030| 6d 6f 72 79 20 66 61 69 | 6c 65 64 22 29 3b 0a 58 |mory fai|led");.X|
|00003040| 0a 58 20 20 69 66 20 28 | 4f 44 44 28 62 79 74 65 |.X if (|ODD(byte|
|00003050| 5f 63 6f 75 6e 74 29 29 | 20 7b 0a 58 20 20 20 20 |_count))| {.X |
|00003060| 72 65 61 64 5f 78 6d 73 | 5f 73 74 6f 72 65 28 69 |read_xms|_store(i|
|00003070| 6e 66 6f 2c 20 28 76 6f | 69 64 20 46 41 52 20 2a |nfo, (vo|id FAR *|
|00003080| 29 20 65 6e 64 62 75 66 | 66 65 72 2c 0a 58 09 09 |) endbuf|fer,.X..|
|00003090| 20 20 20 66 69 6c 65 5f | 6f 66 66 73 65 74 20 2b | file_|offset +|
|000030a0| 20 62 79 74 65 5f 63 6f | 75 6e 74 20 2d 20 31 4c | byte_co|unt - 1L|
|000030b0| 2c 20 32 4c 29 3b 0a 58 | 20 20 20 20 28 28 63 68 |, 2L);.X| ((ch|
|000030c0| 61 72 20 46 41 52 20 2a | 29 20 62 75 66 66 65 72 |ar FAR *|) buffer|
|000030d0| 5f 61 64 64 72 65 73 73 | 29 5b 62 79 74 65 5f 63 |_address|)[byte_c|
|000030e0| 6f 75 6e 74 20 2d 20 31 | 4c 5d 20 3d 20 65 6e 64 |ount - 1|L] = end|
|000030f0| 62 75 66 66 65 72 5b 30 | 5d 3b 0a 58 20 20 7d 0a |buffer[0|];.X }.|
|00003100| 58 7d 0a 58 0a 58 0a 58 | 4d 45 54 48 4f 44 44 45 |X}.X.X.X|METHODDE|
|00003110| 46 20 76 6f 69 64 0a 58 | 77 72 69 74 65 5f 78 6d |F void.X|write_xm|
|00003120| 73 5f 73 74 6f 72 65 20 | 28 62 61 63 6b 69 6e 67 |s_store |(backing|
|00003130| 5f 73 74 6f 72 65 5f 70 | 74 72 20 69 6e 66 6f 2c |_store_p|tr info,|
|00003140| 20 76 6f 69 64 20 46 41 | 52 20 2a 20 62 75 66 66 | void FA|R * buff|
|00003150| 65 72 5f 61 64 64 72 65 | 73 73 2c 0a 58 09 09 20 |er_addre|ss,.X.. |
|00003160| 6c 6f 6e 67 20 66 69 6c | 65 5f 6f 66 66 73 65 74 |long fil|e_offset|
|00003170| 2c 20 6c 6f 6e 67 20 62 | 79 74 65 5f 63 6f 75 6e |, long b|yte_coun|
|00003180| 74 29 0a 58 7b 0a 58 20 | 20 58 4d 53 63 6f 6e 74 |t).X{.X | XMScont|
|00003190| 65 78 74 20 63 74 78 3b | 0a 58 20 20 58 4d 53 73 |ext ctx;|.X XMSs|
|000031a0| 70 65 63 20 73 70 65 63 | 3b 0a 58 20 20 63 68 61 |pec spec|;.X cha|
|000031b0| 72 20 65 6e 64 62 75 66 | 66 65 72 5b 32 5d 3b 0a |r endbuf|fer[2];.|
|000031c0| 58 0a 58 20 20 2f 2a 20 | 54 68 65 20 58 4d 53 20 |X.X /* |The XMS |
|000031d0| 64 72 69 76 65 72 20 63 | 61 6e 27 74 20 63 6f 70 |driver c|an't cop|
|000031e0| 65 20 77 69 74 68 20 61 | 6e 20 6f 64 64 20 6c 65 |e with a|n odd le|
|000031f0| 6e 67 74 68 2c 20 73 6f | 20 68 61 6e 64 6c 65 20 |ngth, so| handle |
|00003200| 74 68 65 20 6c 61 73 74 | 20 62 79 74 65 0a 58 20 |the last| byte.X |
|00003210| 20 20 2a 20 73 70 65 63 | 69 61 6c 6c 79 20 69 66 | * spec|ially if|
|00003220| 20 62 79 74 65 5f 63 6f | 75 6e 74 20 69 73 20 6f | byte_co|unt is o|
|00003230| 64 64 2e 20 20 57 65 20 | 64 6f 6e 27 74 20 65 78 |dd. We |don't ex|
|00003240| 70 65 63 74 20 74 68 69 | 73 20 74 6f 20 62 65 20 |pect thi|s to be |
|00003250| 63 6f 6d 6d 6f 6e 2e 0a | 58 20 20 20 2a 2f 0a 58 |common..|X */.X|
|00003260| 0a 58 20 20 73 70 65 63 | 2e 6c 65 6e 67 74 68 20 |.X spec|.length |
|00003270| 3d 20 62 79 74 65 5f 63 | 6f 75 6e 74 20 26 20 28 |= byte_c|ount & (|
|00003280| 7e 20 31 4c 29 3b 0a 58 | 20 20 73 70 65 63 2e 73 |~ 1L);.X| spec.s|
|00003290| 72 63 5f 68 61 6e 64 6c | 65 20 3d 20 30 3b 0a 58 |rc_handl|e = 0;.X|
|000032a0| 20 20 73 70 65 63 2e 73 | 72 63 2e 70 74 72 20 3d | spec.s|rc.ptr =|
|000032b0| 20 62 75 66 66 65 72 5f | 61 64 64 72 65 73 73 3b | buffer_|address;|
|000032c0| 0a 58 20 20 73 70 65 63 | 2e 64 73 74 5f 68 61 6e |.X spec|.dst_han|
|000032d0| 64 6c 65 20 3d 20 69 6e | 66 6f 2d 3e 68 61 6e 64 |dle = in|fo->hand|
|000032e0| 6c 65 2e 78 6d 73 5f 68 | 61 6e 64 6c 65 3b 0a 58 |le.xms_h|andle;.X|
|000032f0| 20 20 73 70 65 63 2e 64 | 73 74 2e 6f 66 66 73 65 | spec.d|st.offse|
|00003300| 74 20 3d 20 66 69 6c 65 | 5f 6f 66 66 73 65 74 3b |t = file|_offset;|
|00003310| 0a 58 0a 58 20 20 63 74 | 78 2e 64 73 5f 73 69 20 |.X.X ct|x.ds_si |
|00003320| 3d 20 28 76 6f 69 64 20 | 66 61 72 20 2a 29 20 26 |= (void |far *) &|
|00003330| 20 73 70 65 63 3b 0a 58 | 20 20 63 74 78 2e 61 78 | spec;.X| ctx.ax|
|00003340| 20 3d 20 30 78 30 62 30 | 30 3b 09 09 2f 2a 20 45 | = 0x0b0|0;../* E|
|00003350| 4d 42 20 6d 6f 76 65 20 | 2a 2f 0a 58 20 20 6a 78 |MB move |*/.X jx|
|00003360| 6d 73 5f 63 61 6c 6c 64 | 72 69 76 65 72 28 78 6d |ms_calld|river(xm|
|00003370| 73 5f 64 72 69 76 65 72 | 2c 20 28 58 4d 53 63 6f |s_driver|, (XMSco|
|00003380| 6e 74 65 78 74 20 66 61 | 72 20 2a 29 20 26 20 63 |ntext fa|r *) & c|
|00003390| 74 78 29 3b 0a 58 20 20 | 69 66 20 28 63 74 78 2e |tx);.X |if (ctx.|
|000033a0| 61 78 20 21 3d 20 31 29 | 0a 58 20 20 20 20 45 52 |ax != 1)|.X ER|
|000033b0| 52 45 58 49 54 28 6d 65 | 74 68 6f 64 73 2c 20 22 |REXIT(me|thods, "|
|000033c0| 77 72 69 74 65 20 74 6f | 20 65 78 74 65 6e 64 65 |write to| extende|
|000033d0| 64 20 6d 65 6d 6f 72 79 | 20 66 61 69 6c 65 64 22 |d memory| failed"|
|000033e0| 29 3b 0a 58 0a 58 20 20 | 69 66 20 28 4f 44 44 28 |);.X.X |if (ODD(|
|000033f0| 62 79 74 65 5f 63 6f 75 | 6e 74 29 29 20 7b 0a 58 |byte_cou|nt)) {.X|
|00003400| 20 20 20 20 72 65 61 64 | 5f 78 6d 73 5f 73 74 6f | read|_xms_sto|
|00003410| 72 65 28 69 6e 66 6f 2c | 20 28 76 6f 69 64 20 46 |re(info,| (void F|
|00003420| 41 52 20 2a 29 20 65 6e | 64 62 75 66 66 65 72 2c |AR *) en|dbuffer,|
|00003430| 0a 58 09 09 20 20 20 66 | 69 6c 65 5f 6f 66 66 73 |.X.. f|ile_offs|
|00003440| 65 74 20 2b 20 62 79 74 | 65 5f 63 6f 75 6e 74 20 |et + byt|e_count |
|00003450| 2d 20 31 4c 2c 20 32 4c | 29 3b 0a 58 20 20 20 20 |- 1L, 2L|);.X |
|00003460| 65 6e 64 62 75 66 66 65 | 72 5b 30 5d 20 3d 20 28 |endbuffe|r[0] = (|
|00003470| 28 63 68 61 72 20 46 41 | 52 20 2a 29 20 62 75 66 |(char FA|R *) buf|
|00003480| 66 65 72 5f 61 64 64 72 | 65 73 73 29 5b 62 79 74 |fer_addr|ess)[byt|
|00003490| 65 5f 63 6f 75 6e 74 20 | 2d 20 31 4c 5d 3b 0a 58 |e_count |- 1L];.X|
|000034a0| 20 20 20 20 77 72 69 74 | 65 5f 78 6d 73 5f 73 74 | writ|e_xms_st|
|000034b0| 6f 72 65 28 69 6e 66 6f | 2c 20 28 76 6f 69 64 20 |ore(info|, (void |
|000034c0| 46 41 52 20 2a 29 20 65 | 6e 64 62 75 66 66 65 72 |FAR *) e|ndbuffer|
|000034d0| 2c 0a 58 09 09 20 20 20 | 20 66 69 6c 65 5f 6f 66 |,.X.. | file_of|
|000034e0| 66 73 65 74 20 2b 20 62 | 79 74 65 5f 63 6f 75 6e |fset + b|yte_coun|
|000034f0| 74 20 2d 20 31 4c 2c 20 | 32 4c 29 3b 0a 58 20 20 |t - 1L, |2L);.X |
|00003500| 7d 0a 58 7d 0a 58 0a 58 | 0a 58 4d 45 54 48 4f 44 |}.X}.X.X|.XMETHOD|
|00003510| 44 45 46 20 76 6f 69 64 | 0a 58 63 6c 6f 73 65 5f |DEF void|.Xclose_|
|00003520| 78 6d 73 5f 73 74 6f 72 | 65 20 28 62 61 63 6b 69 |xms_stor|e (backi|
|00003530| 6e 67 5f 73 74 6f 72 65 | 5f 70 74 72 20 69 6e 66 |ng_store|_ptr inf|
|00003540| 6f 29 0a 58 7b 0a 58 20 | 20 58 4d 53 63 6f 6e 74 |o).X{.X | XMScont|
|00003550| 65 78 74 20 63 74 78 3b | 0a 58 0a 58 20 20 63 74 |ext ctx;|.X.X ct|
|00003560| 78 2e 64 78 20 3d 20 69 | 6e 66 6f 2d 3e 68 61 6e |x.dx = i|nfo->han|
|00003570| 64 6c 65 2e 78 6d 73 5f | 68 61 6e 64 6c 65 3b 0a |dle.xms_|handle;.|
|00003580| 58 20 20 63 74 78 2e 61 | 78 20 3d 20 30 78 30 61 |X ctx.a|x = 0x0a|
|00003590| 30 30 3b 0a 58 20 20 6a | 78 6d 73 5f 63 61 6c 6c |00;.X j|xms_call|
|000035a0| 64 72 69 76 65 72 28 78 | 6d 73 5f 64 72 69 76 65 |driver(x|ms_drive|
|000035b0| 72 2c 20 28 58 4d 53 63 | 6f 6e 74 65 78 74 20 66 |r, (XMSc|ontext f|
|000035c0| 61 72 20 2a 29 20 26 20 | 63 74 78 29 3b 0a 58 20 |ar *) & |ctx);.X |
|000035d0| 20 54 52 41 43 45 4d 53 | 31 28 6d 65 74 68 6f 64 | TRACEMS|1(method|
|000035e0| 73 2c 20 31 2c 20 22 46 | 72 65 65 64 20 58 4d 53 |s, 1, "F|reed XMS|
|000035f0| 20 68 61 6e 64 6c 65 20 | 25 75 22 2c 20 69 6e 66 | handle |%u", inf|
|00003600| 6f 2d 3e 68 61 6e 64 6c | 65 2e 78 6d 73 5f 68 61 |o->handl|e.xms_ha|
|00003610| 6e 64 6c 65 29 3b 0a 58 | 20 20 2f 2a 20 77 65 20 |ndle);.X| /* we |
|00003620| 69 67 6e 6f 72 65 20 61 | 6e 79 20 65 72 72 6f 72 |ignore a|ny error|
|00003630| 20 72 65 74 75 72 6e 20 | 66 72 6f 6d 20 74 68 65 | return |from the|
|00003640| 20 64 72 69 76 65 72 20 | 2a 2f 0a 58 7d 0a 58 0a | driver |*/.X}.X.|
|00003650| 58 0a 58 4c 4f 43 41 4c | 20 62 6f 6f 6c 65 61 6e |X.XLOCAL| boolean|
|00003660| 0a 58 6f 70 65 6e 5f 78 | 6d 73 5f 73 74 6f 72 65 |.Xopen_x|ms_store|
|00003670| 20 28 62 61 63 6b 69 6e | 67 5f 73 74 6f 72 65 5f | (backin|g_store_|
|00003680| 70 74 72 20 69 6e 66 6f | 2c 20 6c 6f 6e 67 20 74 |ptr info|, long t|
|00003690| 6f 74 61 6c 5f 62 79 74 | 65 73 5f 6e 65 65 64 65 |otal_byt|es_neede|
|000036a0| 64 29 0a 58 7b 0a 58 20 | 20 58 4d 53 63 6f 6e 74 |d).X{.X | XMScont|
|000036b0| 65 78 74 20 63 74 78 3b | 0a 58 0a 58 20 20 2f 2a |ext ctx;|.X.X /*|
|000036c0| 20 47 65 74 20 61 64 64 | 72 65 73 73 20 6f 66 20 | Get add|ress of |
|000036d0| 58 4d 53 20 64 72 69 76 | 65 72 20 2a 2f 0a 58 20 |XMS driv|er */.X |
|000036e0| 20 6a 78 6d 73 5f 67 65 | 74 64 72 69 76 65 72 28 | jxms_ge|tdriver(|
|000036f0| 28 58 4d 53 44 52 49 56 | 45 52 20 66 61 72 20 2a |(XMSDRIV|ER far *|
|00003700| 29 20 26 20 78 6d 73 5f | 64 72 69 76 65 72 29 3b |) & xms_|driver);|
|00003710| 0a 58 20 20 69 66 20 28 | 78 6d 73 5f 64 72 69 76 |.X if (|xms_driv|
|00003720| 65 72 20 3d 3d 20 4e 55 | 4c 4c 29 0a 58 20 20 20 |er == NU|LL).X |
|00003730| 20 72 65 74 75 72 6e 20 | 46 41 4c 53 45 3b 09 09 | return |FALSE;..|
|00003740| 2f 2a 20 6e 6f 20 64 72 | 69 76 65 72 20 74 6f 20 |/* no dr|iver to |
|00003750| 62 65 20 68 61 64 20 2a | 2f 0a 58 0a 58 20 20 2f |be had *|/.X.X /|
|00003760| 2a 20 47 65 74 20 76 65 | 72 73 69 6f 6e 20 6e 75 |* Get ve|rsion nu|
|00003770| 6d 62 65 72 2c 20 6d 75 | 73 74 20 62 65 20 3e 3d |mber, mu|st be >=|
|00003780| 20 32 2e 30 30 20 2a 2f | 0a 58 20 20 63 74 78 2e | 2.00 */|.X ctx.|
|00003790| 61 78 20 3d 20 30 78 30 | 30 30 30 3b 0a 58 20 20 |ax = 0x0|000;.X |
|000037a0| 6a 78 6d 73 5f 63 61 6c | 6c 64 72 69 76 65 72 28 |jxms_cal|ldriver(|
|000037b0| 78 6d 73 5f 64 72 69 76 | 65 72 2c 20 28 58 4d 53 |xms_driv|er, (XMS|
|000037c0| 63 6f 6e 74 65 78 74 20 | 66 61 72 20 2a 29 20 26 |context |far *) &|
|000037d0| 20 63 74 78 29 3b 0a 58 | 20 20 69 66 20 28 63 74 | ctx);.X| if (ct|
|000037e0| 78 2e 61 78 20 3c 20 28 | 75 6e 73 69 67 6e 65 64 |x.ax < (|unsigned|
|000037f0| 20 73 68 6f 72 74 29 20 | 30 78 30 32 30 30 29 0a | short) |0x0200).|
|00003800| 58 20 20 20 20 72 65 74 | 75 72 6e 20 46 41 4c 53 |X ret|urn FALS|
|00003810| 45 3b 0a 58 0a 58 20 20 | 2f 2a 20 54 72 79 20 74 |E;.X.X |/* Try t|
|00003820| 6f 20 67 65 74 20 73 70 | 61 63 65 20 28 65 78 70 |o get sp|ace (exp|
|00003830| 72 65 73 73 65 64 20 69 | 6e 20 6b 69 6c 6f 62 79 |ressed i|n kiloby|
|00003840| 74 65 73 29 20 2a 2f 0a | 58 20 20 63 74 78 2e 64 |tes) */.|X ctx.d|
|00003850| 78 20 3d 20 28 75 6e 73 | 69 67 6e 65 64 20 73 68 |x = (uns|igned sh|
|00003860| 6f 72 74 29 20 28 28 74 | 6f 74 61 6c 5f 62 79 74 |ort) ((t|otal_byt|
|00003870| 65 73 5f 6e 65 65 64 65 | 64 20 2b 20 31 30 32 33 |es_neede|d + 1023|
|00003880| 4c 29 20 3e 3e 20 31 30 | 29 3b 0a 58 20 20 63 74 |L) >> 10|);.X ct|
|00003890| 78 2e 61 78 20 3d 20 30 | 78 30 39 30 30 3b 0a 58 |x.ax = 0|x0900;.X|
|000038a0| 20 20 6a 78 6d 73 5f 63 | 61 6c 6c 64 72 69 76 65 | jxms_c|alldrive|
|000038b0| 72 28 78 6d 73 5f 64 72 | 69 76 65 72 2c 20 28 58 |r(xms_dr|iver, (X|
|000038c0| 4d 53 63 6f 6e 74 65 78 | 74 20 66 61 72 20 2a 29 |MScontex|t far *)|
|000038d0| 20 26 20 63 74 78 29 3b | 0a 58 20 20 69 66 20 28 | & ctx);|.X if (|
|000038e0| 63 74 78 2e 61 78 20 21 | 3d 20 31 29 0a 58 20 20 |ctx.ax !|= 1).X |
|000038f0| 20 20 72 65 74 75 72 6e | 20 46 41 4c 53 45 3b 0a | return| FALSE;.|
|00003900| 58 0a 58 20 20 2f 2a 20 | 53 75 63 63 65 65 64 65 |X.X /* |Succeede|
|00003910| 64 2c 20 73 61 76 65 20 | 74 68 65 20 68 61 6e 64 |d, save |the hand|
|00003920| 6c 65 20 61 6e 64 20 61 | 77 61 79 20 77 65 20 67 |le and a|way we g|
|00003930| 6f 20 2a 2f 0a 58 20 20 | 69 6e 66 6f 2d 3e 68 61 |o */.X |info->ha|
|00003940| 6e 64 6c 65 2e 78 6d 73 | 5f 68 61 6e 64 6c 65 20 |ndle.xms|_handle |
|00003950| 3d 20 63 74 78 2e 64 78 | 3b 0a 58 20 20 69 6e 66 |= ctx.dx|;.X inf|
|00003960| 6f 2d 3e 72 65 61 64 5f | 62 61 63 6b 69 6e 67 5f |o->read_|backing_|
|00003970| 73 74 6f 72 65 20 3d 20 | 72 65 61 64 5f 78 6d 73 |store = |read_xms|
|00003980| 5f 73 74 6f 72 65 3b 0a | 58 20 20 69 6e 66 6f 2d |_store;.|X info-|
|00003990| 3e 77 72 69 74 65 5f 62 | 61 63 6b 69 6e 67 5f 73 |>write_b|acking_s|
|000039a0| 74 6f 72 65 20 3d 20 77 | 72 69 74 65 5f 78 6d 73 |tore = w|rite_xms|
|000039b0| 5f 73 74 6f 72 65 3b 0a | 58 20 20 69 6e 66 6f 2d |_store;.|X info-|
|000039c0| 3e 63 6c 6f 73 65 5f 62 | 61 63 6b 69 6e 67 5f 73 |>close_b|acking_s|
|000039d0| 74 6f 72 65 20 3d 20 63 | 6c 6f 73 65 5f 78 6d 73 |tore = c|lose_xms|
|000039e0| 5f 73 74 6f 72 65 3b 0a | 58 20 20 54 52 41 43 45 |_store;.|X TRACE|
|000039f0| 4d 53 31 28 6d 65 74 68 | 6f 64 73 2c 20 31 2c 20 |MS1(meth|ods, 1, |
|00003a00| 22 4f 62 74 61 69 6e 65 | 64 20 58 4d 53 20 68 61 |"Obtaine|d XMS ha|
|00003a10| 6e 64 6c 65 20 25 75 22 | 2c 20 63 74 78 2e 64 78 |ndle %u"|, ctx.dx|
|00003a20| 29 3b 0a 58 20 20 72 65 | 74 75 72 6e 20 54 52 55 |);.X re|turn TRU|
|00003a30| 45 3b 09 09 09 2f 2a 20 | 73 75 63 63 65 65 64 65 |E;.../* |succeede|
|00003a40| 64 20 2a 2f 0a 58 7d 0a | 58 0a 58 23 65 6e 64 69 |d */.X}.|X.X#endi|
|00003a50| 66 20 2f 2a 20 58 4d 53 | 5f 53 55 50 50 4f 52 54 |f /* XMS|_SUPPORT|
|00003a60| 45 44 20 2a 2f 0a 58 0a | 58 0a 58 2f 2a 0a 58 20 |ED */.X.|X.X/*.X |
|00003a70| 2a 20 41 63 63 65 73 73 | 20 6d 65 74 68 6f 64 73 |* Access| methods|
|00003a80| 20 66 6f 72 20 65 78 70 | 61 6e 64 65 64 20 6d 65 | for exp|anded me|
|00003a90| 6d 6f 72 79 2e 0a 58 20 | 2a 2f 0a 58 0a 58 23 69 |mory..X |*/.X.X#i|
|00003aa0| 66 20 45 4d 53 5f 53 55 | 50 50 4f 52 54 45 44 0a |f EMS_SU|PPORTED.|
|00003ab0| 58 0a 58 74 79 70 65 64 | 65 66 20 75 6e 69 6f 6e |X.Xtyped|ef union|
|00003ac0| 20 7b 09 09 09 2f 2a 20 | 65 69 74 68 65 72 20 6f | {.../* |either o|
|00003ad0| 66 66 73 65 74 2f 70 61 | 67 65 20 6f 72 20 72 65 |ffset/pa|ge or re|
|00003ae0| 61 6c 2d 6d 6f 64 65 20 | 70 6f 69 6e 74 65 72 20 |al-mode |pointer |
|00003af0| 2a 2f 0a 58 09 73 74 72 | 75 63 74 20 7b 20 75 6e |*/.X.str|uct { un|
|00003b00| 73 69 67 6e 65 64 20 73 | 68 6f 72 74 20 6f 66 66 |signed s|hort off|
|00003b10| 73 65 74 2c 20 70 61 67 | 65 3b 20 7d 20 65 6d 73 |set, pag|e; } ems|
|00003b20| 3b 0a 58 09 76 6f 69 64 | 20 66 61 72 20 2a 20 70 |;.X.void| far * p|
|00003b30| 74 72 3b 0a 58 20 20 20 | 20 20 20 7d 20 45 4d 53 |tr;.X | } EMS|
|00003b40| 50 54 52 3b 0a 58 0a 58 | 74 79 70 65 64 65 66 20 |PTR;.X.X|typedef |
|00003b50| 73 74 72 75 63 74 20 7b | 09 09 2f 2a 20 45 4d 53 |struct {|../* EMS|
|00003b60| 20 6d 6f 76 65 20 73 70 | 65 63 69 66 69 63 61 74 | move sp|ecificat|
|00003b70| 69 6f 6e 20 73 74 72 75 | 63 74 75 72 65 20 2a 2f |ion stru|cture */|
|00003b80| 0a 58 09 6c 6f 6e 67 20 | 6c 65 6e 67 74 68 3b 0a |.X.long |length;.|
|00003b90| 58 09 63 68 61 72 20 73 | 72 63 5f 74 79 70 65 3b |X.char s|rc_type;|
|00003ba0| 09 09 2f 2a 20 31 20 3d | 20 45 4d 53 2c 20 30 20 |../* 1 =| EMS, 0 |
|00003bb0| 3d 20 63 6f 6e 76 65 6e | 74 69 6f 6e 61 6c 20 6d |= conven|tional m|
|00003bc0| 65 6d 6f 72 79 20 2a 2f | 0a 58 09 45 4d 53 48 20 |emory */|.X.EMSH |
|00003bd0| 73 72 63 5f 68 61 6e 64 | 6c 65 3b 09 2f 2a 20 75 |src_hand|le;./* u|
|00003be0| 73 65 20 30 20 69 66 20 | 63 6f 6e 76 65 6e 74 69 |se 0 if |conventi|
|00003bf0| 6f 6e 61 6c 20 6d 65 6d | 6f 72 79 20 2a 2f 0a 58 |onal mem|ory */.X|
|00003c00| 09 45 4d 53 50 54 52 20 | 73 72 63 3b 0a 58 09 63 |.EMSPTR |src;.X.c|
|00003c10| 68 61 72 20 64 73 74 5f | 74 79 70 65 3b 0a 58 09 |har dst_|type;.X.|
|00003c20| 45 4d 53 48 20 64 73 74 | 5f 68 61 6e 64 6c 65 3b |EMSH dst|_handle;|
|00003c30| 0a 58 09 45 4d 53 50 54 | 52 20 64 73 74 3b 0a 58 |.X.EMSPT|R dst;.X|
|00003c40| 20 20 20 20 20 20 7d 20 | 45 4d 53 73 70 65 63 3b | } |EMSspec;|
|00003c50| 0a 58 0a 58 23 64 65 66 | 69 6e 65 20 45 4d 53 50 |.X.X#def|ine EMSP|
|00003c60| 41 47 45 53 49 5a 45 09 | 31 36 33 38 34 4c 09 2f |AGESIZE.|16384L./|
|00003c70| 2a 20 67 6f 73 70 65 6c | 2c 20 73 65 65 20 74 68 |* gospel|, see th|
|00003c80| 65 20 45 4d 53 20 73 70 | 65 63 73 20 2a 2f 0a 58 |e EMS sp|ecs */.X|
|00003c90| 0a 58 23 64 65 66 69 6e | 65 20 48 49 42 59 54 45 |.X#defin|e HIBYTE|
|00003ca0| 28 57 29 20 20 28 28 28 | 57 29 20 3e 3e 20 38 29 |(W) (((|W) >> 8)|
|00003cb0| 20 26 20 30 78 46 46 29 | 0a 58 23 64 65 66 69 6e | & 0xFF)|.X#defin|
|00003cc0| 65 20 4c 4f 42 59 54 45 | 28 57 29 20 20 28 28 57 |e LOBYTE|(W) ((W|
|00003cd0| 29 20 26 20 30 78 46 46 | 29 0a 58 0a 58 0a 58 4d |) & 0xFF|).X.X.XM|
|00003ce0| 45 54 48 4f 44 44 45 46 | 20 76 6f 69 64 0a 58 72 |ETHODDEF| void.Xr|
|00003cf0| 65 61 64 5f 65 6d 73 5f | 73 74 6f 72 65 20 28 62 |ead_ems_|store (b|
|00003d00| 61 63 6b 69 6e 67 5f 73 | 74 6f 72 65 5f 70 74 72 |acking_s|tore_ptr|
|00003d10| 20 69 6e 66 6f 2c 20 76 | 6f 69 64 20 46 41 52 20 | info, v|oid FAR |
|00003d20| 2a 20 62 75 66 66 65 72 | 5f 61 64 64 72 65 73 73 |* buffer|_address|
|00003d30| 2c 0a 58 09 09 6c 6f 6e | 67 20 66 69 6c 65 5f 6f |,.X..lon|g file_o|
|00003d40| 66 66 73 65 74 2c 20 6c | 6f 6e 67 20 62 79 74 65 |ffset, l|ong byte|
|00003d50| 5f 63 6f 75 6e 74 29 0a | 58 7b 0a 58 20 20 45 4d |_count).|X{.X EM|
|00003d60| 53 63 6f 6e 74 65 78 74 | 20 63 74 78 3b 0a 58 20 |Scontext| ctx;.X |
|00003d70| 20 45 4d 53 73 70 65 63 | 20 73 70 65 63 3b 0a 58 | EMSspec| spec;.X|
|00003d80| 0a 58 20 20 73 70 65 63 | 2e 6c 65 6e 67 74 68 20 |.X spec|.length |
|00003d90| 3d 20 62 79 74 65 5f 63 | 6f 75 6e 74 3b 0a 58 20 |= byte_c|ount;.X |
|00003da0| 20 73 70 65 63 2e 73 72 | 63 5f 74 79 70 65 20 3d | spec.sr|c_type =|
|00003db0| 20 31 3b 0a 58 20 20 73 | 70 65 63 2e 73 72 63 5f | 1;.X s|pec.src_|
|00003dc0| 68 61 6e 64 6c 65 20 3d | 20 69 6e 66 6f 2d 3e 68 |handle =| info->h|
|00003dd0| 61 6e 64 6c 65 2e 65 6d | 73 5f 68 61 6e 64 6c 65 |andle.em|s_handle|
|00003de0| 3b 0a 58 20 20 73 70 65 | 63 2e 73 72 63 2e 65 6d |;.X spe|c.src.em|
|00003df0| 73 2e 70 61 67 65 20 3d | 20 28 75 6e 73 69 67 6e |s.page =| (unsign|
|00003e00| 65 64 20 73 68 6f 72 74 | 29 20 28 66 69 6c 65 5f |ed short|) (file_|
|00003e10| 6f 66 66 73 65 74 20 2f | 20 45 4d 53 50 41 47 45 |offset /| EMSPAGE|
|00003e20| 53 49 5a 45 29 3b 0a 58 | 20 20 73 70 65 63 2e 73 |SIZE);.X| spec.s|
|00003e30| 72 63 2e 65 6d 73 2e 6f | 66 66 73 65 74 20 3d 20 |rc.ems.o|ffset = |
|00003e40| 28 75 6e 73 69 67 6e 65 | 64 20 73 68 6f 72 74 29 |(unsigne|d short)|
|00003e50| 20 28 66 69 6c 65 5f 6f | 66 66 73 65 74 20 25 20 | (file_o|ffset % |
|00003e60| 45 4d 53 50 41 47 45 53 | 49 5a 45 29 3b 0a 58 20 |EMSPAGES|IZE);.X |
|00003e70| 20 73 70 65 63 2e 64 73 | 74 5f 74 79 70 65 20 3d | spec.ds|t_type =|
|00003e80| 20 30 3b 0a 58 20 20 73 | 70 65 63 2e 64 73 74 5f | 0;.X s|pec.dst_|
|00003e90| 68 61 6e 64 6c 65 20 3d | 20 30 3b 0a 58 20 20 73 |handle =| 0;.X s|
|00003ea0| 70 65 63 2e 64 73 74 2e | 70 74 72 20 3d 20 62 75 |pec.dst.|ptr = bu|
|00003eb0| 66 66 65 72 5f 61 64 64 | 72 65 73 73 3b 0a 58 20 |ffer_add|ress;.X |
|00003ec0| 20 0a 58 20 20 63 74 78 | 2e 64 73 5f 73 69 20 3d | .X ctx|.ds_si =|
|00003ed0| 20 28 76 6f 69 64 20 66 | 61 72 20 2a 29 20 26 20 | (void f|ar *) & |
|00003ee0| 73 70 65 63 3b 0a 58 20 | 20 63 74 78 2e 61 78 20 |spec;.X | ctx.ax |
|00003ef0| 3d 20 30 78 35 37 30 30 | 3b 09 09 2f 2a 20 6d 6f |= 0x5700|;../* mo|
|00003f00| 76 65 20 6d 65 6d 6f 72 | 79 20 72 65 67 69 6f 6e |ve memor|y region|
|00003f10| 20 2a 2f 0a 58 20 20 6a | 65 6d 73 5f 63 61 6c 6c | */.X j|ems_call|
|00003f20| 64 72 69 76 65 72 28 28 | 45 4d 53 63 6f 6e 74 65 |driver((|EMSconte|
|00003f30| 78 74 20 66 61 72 20 2a | 29 20 26 20 63 74 78 29 |xt far *|) & ctx)|
|00003f40| 3b 0a 58 20 20 69 66 20 | 28 48 49 42 59 54 45 28 |;.X if |(HIBYTE(|
|00003f50| 63 74 78 2e 61 78 29 20 | 21 3d 20 30 29 0a 58 20 |ctx.ax) |!= 0).X |
|00003f60| 20 20 20 45 52 52 45 58 | 49 54 28 6d 65 74 68 6f | ERREX|IT(metho|
|00003f70| 64 73 2c 20 22 72 65 61 | 64 20 66 72 6f 6d 20 65 |ds, "rea|d from e|
|00003f80| 78 70 61 6e 64 65 64 20 | 6d 65 6d 6f 72 79 20 66 |xpanded |memory f|
|00003f90| 61 69 6c 65 64 22 29 3b | 0a 58 7d 0a 58 0a 58 0a |ailed");|.X}.X.X.|
|00003fa0| 58 4d 45 54 48 4f 44 44 | 45 46 20 76 6f 69 64 0a |XMETHODD|EF void.|
|00003fb0| 58 77 72 69 74 65 5f 65 | 6d 73 5f 73 74 6f 72 65 |Xwrite_e|ms_store|
|00003fc0| 20 28 62 61 63 6b 69 6e | 67 5f 73 74 6f 72 65 5f | (backin|g_store_|
|00003fd0| 70 74 72 20 69 6e 66 6f | 2c 20 76 6f 69 64 20 46 |ptr info|, void F|
|00003fe0| 41 52 20 2a 20 62 75 66 | 66 65 72 5f 61 64 64 72 |AR * buf|fer_addr|
|00003ff0| 65 73 73 2c 0a 58 09 09 | 20 6c 6f 6e 67 20 66 69 |ess,.X..| long fi|
|00004000| 6c 65 5f 6f 66 66 73 65 | 74 2c 20 6c 6f 6e 67 20 |le_offse|t, long |
|00004010| 62 79 74 65 5f 63 6f 75 | 6e 74 29 0a 58 7b 0a 58 |byte_cou|nt).X{.X|
|00004020| 20 20 45 4d 53 63 6f 6e | 74 65 78 74 20 63 74 78 | EMScon|text ctx|
|00004030| 3b 0a 58 20 20 45 4d 53 | 73 70 65 63 20 73 70 65 |;.X EMS|spec spe|
|00004040| 63 3b 0a 58 0a 58 20 20 | 73 70 65 63 2e 6c 65 6e |c;.X.X |spec.len|
|00004050| 67 74 68 20 3d 20 62 79 | 74 65 5f 63 6f 75 6e 74 |gth = by|te_count|
|00004060| 3b 0a 58 20 20 73 70 65 | 63 2e 73 72 63 5f 74 79 |;.X spe|c.src_ty|
|00004070| 70 65 20 3d 20 30 3b 0a | 58 20 20 73 70 65 63 2e |pe = 0;.|X spec.|
|00004080| 73 72 63 5f 68 61 6e 64 | 6c 65 20 3d 20 30 3b 0a |src_hand|le = 0;.|
|00004090| 58 20 20 73 70 65 63 2e | 73 72 63 2e 70 74 72 20 |X spec.|src.ptr |
|000040a0| 3d 20 62 75 66 66 65 72 | 5f 61 64 64 72 65 73 73 |= buffer|_address|
|000040b0| 3b 0a 58 20 20 73 70 65 | 63 2e 64 73 74 5f 74 79 |;.X spe|c.dst_ty|
|000040c0| 70 65 20 3d 20 31 3b 0a | 58 20 20 73 70 65 63 2e |pe = 1;.|X spec.|
|000040d0| 64 73 74 5f 68 61 6e 64 | 6c 65 20 3d 20 69 6e 66 |dst_hand|le = inf|
|000040e0| 6f 2d 3e 68 61 6e 64 6c | 65 2e 65 6d 73 5f 68 61 |o->handl|e.ems_ha|
|000040f0| 6e 64 6c 65 3b 0a 58 20 | 20 73 70 65 63 2e 64 73 |ndle;.X | spec.ds|
|00004100| 74 2e 65 6d 73 2e 70 61 | 67 65 20 3d 20 28 75 6e |t.ems.pa|ge = (un|
|00004110| 73 69 67 6e 65 64 20 73 | 68 6f 72 74 29 20 28 66 |signed s|hort) (f|
|00004120| 69 6c 65 5f 6f 66 66 73 | 65 74 20 2f 20 45 4d 53 |ile_offs|et / EMS|
|00004130| 50 41 47 45 53 49 5a 45 | 29 3b 0a 58 20 20 73 70 |PAGESIZE|);.X sp|
|00004140| 65 63 2e 64 73 74 2e 65 | 6d 73 2e 6f 66 66 73 65 |ec.dst.e|ms.offse|
|00004150| 74 20 3d 20 28 75 6e 73 | 69 67 6e 65 64 20 73 68 |t = (uns|igned sh|
|00004160| 6f 72 74 29 20 28 66 69 | 6c 65 5f 6f 66 66 73 65 |ort) (fi|le_offse|
|00004170| 74 20 25 20 45 4d 53 50 | 41 47 45 53 49 5a 45 29 |t % EMSP|AGESIZE)|
|00004180| 3b 0a 58 20 20 0a 58 20 | 20 63 74 78 2e 64 73 5f |;.X .X | ctx.ds_|
|00004190| 73 69 20 3d 20 28 76 6f | 69 64 20 66 61 72 20 2a |si = (vo|id far *|
|000041a0| 29 20 26 20 73 70 65 63 | 3b 0a 58 20 20 63 74 78 |) & spec|;.X ctx|
|000041b0| 2e 61 78 20 3d 20 30 78 | 35 37 30 30 3b 09 09 2f |.ax = 0x|5700;../|
|000041c0| 2a 20 6d 6f 76 65 20 6d | 65 6d 6f 72 79 20 72 65 |* move m|emory re|
|000041d0| 67 69 6f 6e 20 2a 2f 0a | 58 20 20 6a 65 6d 73 5f |gion */.|X jems_|
|000041e0| 63 61 6c 6c 64 72 69 76 | 65 72 28 28 45 4d 53 63 |calldriv|er((EMSc|
|000041f0| 6f 6e 74 65 78 74 20 66 | 61 72 20 2a 29 20 26 20 |ontext f|ar *) & |
|00004200| 63 74 78 29 3b 0a 58 20 | 20 69 66 20 28 48 49 42 |ctx);.X | if (HIB|
|00004210| 59 54 45 28 63 74 78 2e | 61 78 29 20 21 3d 20 30 |YTE(ctx.|ax) != 0|
|00004220| 29 0a 58 20 20 20 20 45 | 52 52 45 58 49 54 28 6d |).X E|RREXIT(m|
|00004230| 65 74 68 6f 64 73 2c 20 | 22 77 72 69 74 65 20 74 |ethods, |"write t|
|00004240| 6f 20 65 78 70 61 6e 64 | 65 64 20 6d 65 6d 6f 72 |o expand|ed memor|
|00004250| 79 20 66 61 69 6c 65 64 | 22 29 3b 0a 58 7d 0a 58 |y failed|");.X}.X|
|00004260| 0a 58 0a 58 4d 45 54 48 | 4f 44 44 45 46 20 76 6f |.X.XMETH|ODDEF vo|
|00004270| 69 64 0a 58 63 6c 6f 73 | 65 5f 65 6d 73 5f 73 74 |id.Xclos|e_ems_st|
|00004280| 6f 72 65 20 28 62 61 63 | 6b 69 6e 67 5f 73 74 6f |ore (bac|king_sto|
|00004290| 72 65 5f 70 74 72 20 69 | 6e 66 6f 29 0a 58 7b 0a |re_ptr i|nfo).X{.|
|000042a0| 58 20 20 45 4d 53 63 6f | 6e 74 65 78 74 20 63 74 |X EMSco|ntext ct|
|000042b0| 78 3b 0a 58 0a 58 20 20 | 63 74 78 2e 61 78 20 3d |x;.X.X |ctx.ax =|
|000042c0| 20 30 78 34 35 30 30 3b | 0a 58 20 20 63 74 78 2e | 0x4500;|.X ctx.|
|000042d0| 64 78 20 3d 20 69 6e 66 | 6f 2d 3e 68 61 6e 64 6c |dx = inf|o->handl|
|000042e0| 65 2e 65 6d 73 5f 68 61 | 6e 64 6c 65 3b 0a 58 20 |e.ems_ha|ndle;.X |
|000042f0| 20 6a 65 6d 73 5f 63 61 | 6c 6c 64 72 69 76 65 72 | jems_ca|lldriver|
|00004300| 28 28 45 4d 53 63 6f 6e | 74 65 78 74 20 66 61 72 |((EMScon|text far|
|00004310| 20 2a 29 20 26 20 63 74 | 78 29 3b 0a 58 20 20 54 | *) & ct|x);.X T|
|00004320| 52 41 43 45 4d 53 31 28 | 6d 65 74 68 6f 64 73 2c |RACEMS1(|methods,|
|00004330| 20 31 2c 20 22 46 72 65 | 65 64 20 45 4d 53 20 68 | 1, "Fre|ed EMS h|
|00004340| 61 6e 64 6c 65 20 25 75 | 22 2c 20 69 6e 66 6f 2d |andle %u|", info-|
|00004350| 3e 68 61 6e 64 6c 65 2e | 65 6d 73 5f 68 61 6e 64 |>handle.|ems_hand|
|00004360| 6c 65 29 3b 0a 58 20 20 | 2f 2a 20 77 65 20 69 67 |le);.X |/* we ig|
|00004370| 6e 6f 72 65 20 61 6e 79 | 20 65 72 72 6f 72 20 72 |nore any| error r|
|00004380| 65 74 75 72 6e 20 66 72 | 6f 6d 20 74 68 65 20 64 |eturn fr|om the d|
|00004390| 72 69 76 65 72 20 2a 2f | 0a 58 7d 0a 58 0a 58 0a |river */|.X}.X.X.|
|000043a0| 58 4c 4f 43 41 4c 20 62 | 6f 6f 6c 65 61 6e 0a 58 |XLOCAL b|oolean.X|
|000043b0| 6f 70 65 6e 5f 65 6d 73 | 5f 73 74 6f 72 65 20 28 |open_ems|_store (|
|000043c0| 62 61 63 6b 69 6e 67 5f | 73 74 6f 72 65 5f 70 74 |backing_|store_pt|
|000043d0| 72 20 69 6e 66 6f 2c 20 | 6c 6f 6e 67 20 74 6f 74 |r info, |long tot|
|000043e0| 61 6c 5f 62 79 74 65 73 | 5f 6e 65 65 64 65 64 29 |al_bytes|_needed)|
|000043f0| 0a 58 7b 0a 58 20 20 45 | 4d 53 63 6f 6e 74 65 78 |.X{.X E|MScontex|
|00004400| 74 20 63 74 78 3b 0a 58 | 0a 58 20 20 2f 2a 20 49 |t ctx;.X|.X /* I|
|00004410| 73 20 45 4d 53 20 64 72 | 69 76 65 72 20 74 68 65 |s EMS dr|iver the|
|00004420| 72 65 3f 20 2a 2f 0a 58 | 20 20 69 66 20 28 21 20 |re? */.X| if (! |
|00004430| 6a 65 6d 73 5f 61 76 61 | 69 6c 61 62 6c 65 28 29 |jems_ava|ilable()|
|00004440| 29 0a 58 20 20 20 20 72 | 65 74 75 72 6e 20 46 41 |).X r|eturn FA|
|00004450| 4c 53 45 3b 0a 58 0a 58 | 20 20 2f 2a 20 47 65 74 |LSE;.X.X| /* Get|
|00004460| 20 73 74 61 74 75 73 2c | 20 6d 61 6b 65 20 73 75 | status,| make su|
|00004470| 72 65 20 45 4d 53 20 69 | 73 20 4f 4b 20 2a 2f 0a |re EMS i|s OK */.|
|00004480| 58 20 20 63 74 78 2e 61 | 78 20 3d 20 30 78 34 30 |X ctx.a|x = 0x40|
|00004490| 30 30 3b 0a 58 20 20 6a | 65 6d 73 5f 63 61 6c 6c |00;.X j|ems_call|
|000044a0| 64 72 69 76 65 72 28 28 | 45 4d 53 63 6f 6e 74 65 |driver((|EMSconte|
|000044b0| 78 74 20 66 61 72 20 2a | 29 20 26 20 63 74 78 29 |xt far *|) & ctx)|
|000044c0| 3b 0a 58 20 20 69 66 20 | 28 48 49 42 59 54 45 28 |;.X if |(HIBYTE(|
|000044d0| 63 74 78 2e 61 78 29 20 | 21 3d 20 30 29 0a 58 20 |ctx.ax) |!= 0).X |
|000044e0| 20 20 20 72 65 74 75 72 | 6e 20 46 41 4c 53 45 3b | retur|n FALSE;|
|000044f0| 0a 58 0a 58 20 20 2f 2a | 20 47 65 74 20 76 65 72 |.X.X /*| Get ver|
|00004500| 73 69 6f 6e 2c 20 6d 75 | 73 74 20 62 65 20 3e 3d |sion, mu|st be >=|
|00004510| 20 34 2e 30 20 2a 2f 0a | 58 20 20 63 74 78 2e 61 | 4.0 */.|X ctx.a|
|00004520| 78 20 3d 20 30 78 34 36 | 30 30 3b 0a 58 20 20 6a |x = 0x46|00;.X j|
|00004530| 65 6d 73 5f 63 61 6c 6c | 64 72 69 76 65 72 28 28 |ems_call|driver((|
|00004540| 45 4d 53 63 6f 6e 74 65 | 78 74 20 66 61 72 20 2a |EMSconte|xt far *|
|00004550| 29 20 26 20 63 74 78 29 | 3b 0a 58 20 20 69 66 20 |) & ctx)|;.X if |
|00004560| 28 48 49 42 59 54 45 28 | 63 74 78 2e 61 78 29 20 |(HIBYTE(|ctx.ax) |
|00004570| 21 3d 20 30 20 7c 7c 20 | 4c 4f 42 59 54 45 28 63 |!= 0 || |LOBYTE(c|
|00004580| 74 78 2e 61 78 29 20 3c | 20 30 78 34 30 29 0a 58 |tx.ax) <| 0x40).X|
|00004590| 20 20 20 20 72 65 74 75 | 72 6e 20 46 41 4c 53 45 | retu|rn FALSE|
|000045a0| 3b 0a 58 0a 58 20 20 2f | 2a 20 54 72 79 20 74 6f |;.X.X /|* Try to|
|000045b0| 20 61 6c 6c 6f 63 61 74 | 65 20 72 65 71 75 65 73 | allocat|e reques|
|000045c0| 74 65 64 20 73 70 61 63 | 65 20 2a 2f 0a 58 20 20 |ted spac|e */.X |
|000045d0| 63 74 78 2e 61 78 20 3d | 20 30 78 34 33 30 30 3b |ctx.ax =| 0x4300;|
|000045e0| 0a 58 20 20 63 74 78 2e | 62 78 20 3d 20 28 75 6e |.X ctx.|bx = (un|
|000045f0| 73 69 67 6e 65 64 20 73 | 68 6f 72 74 29 20 28 28 |signed s|hort) ((|
|00004600| 74 6f 74 61 6c 5f 62 79 | 74 65 73 5f 6e 65 65 64 |total_by|tes_need|
|00004610| 65 64 20 2b 20 45 4d 53 | 50 41 47 45 53 49 5a 45 |ed + EMS|PAGESIZE|
|00004620| 2d 31 4c 29 20 2f 20 45 | 4d 53 50 41 47 45 53 49 |-1L) / E|MSPAGESI|
|00004630| 5a 45 29 3b 0a 58 20 20 | 6a 65 6d 73 5f 63 61 6c |ZE);.X |jems_cal|
|00004640| 6c 64 72 69 76 65 72 28 | 28 45 4d 53 63 6f 6e 74 |ldriver(|(EMScont|
|00004650| 65 78 74 20 66 61 72 20 | 2a 29 20 26 20 63 74 78 |ext far |*) & ctx|
|00004660| 29 3b 0a 58 20 20 69 66 | 20 28 48 49 42 59 54 45 |);.X if| (HIBYTE|
|00004670| 28 63 74 78 2e 61 78 29 | 20 21 3d 20 30 29 0a 58 |(ctx.ax)| != 0).X|
|00004680| 20 20 20 20 72 65 74 75 | 72 6e 20 46 41 4c 53 45 | retu|rn FALSE|
|00004690| 3b 0a 58 0a 58 20 20 2f | 2a 20 53 75 63 63 65 65 |;.X.X /|* Succee|
|000046a0| 64 65 64 2c 20 73 61 76 | 65 20 74 68 65 20 68 61 |ded, sav|e the ha|
|000046b0| 6e 64 6c 65 20 61 6e 64 | 20 61 77 61 79 20 77 65 |ndle and| away we|
|000046c0| 20 67 6f 20 2a 2f 0a 58 | 20 20 69 6e 66 6f 2d 3e | go */.X| info->|
|000046d0| 68 61 6e 64 6c 65 2e 65 | 6d 73 5f 68 61 6e 64 6c |handle.e|ms_handl|
|000046e0| 65 20 3d 20 63 74 78 2e | 64 78 3b 0a 58 20 20 69 |e = ctx.|dx;.X i|
|000046f0| 6e 66 6f 2d 3e 72 65 61 | 64 5f 62 61 63 6b 69 6e |nfo->rea|d_backin|
|00004700| 67 5f 73 74 6f 72 65 20 | 3d 20 72 65 61 64 5f 65 |g_store |= read_e|
|00004710| 6d 73 5f 73 74 6f 72 65 | 3b 0a 58 20 20 69 6e 66 |ms_store|;.X inf|
|00004720| 6f 2d 3e 77 72 69 74 65 | 5f 62 61 63 6b 69 6e 67 |o->write|_backing|
|00004730| 5f 73 74 6f 72 65 20 3d | 20 77 72 69 74 65 5f 65 |_store =| write_e|
|00004740| 6d 73 5f 73 74 6f 72 65 | 3b 0a 58 20 20 69 6e 66 |ms_store|;.X inf|
|00004750| 6f 2d 3e 63 6c 6f 73 65 | 5f 62 61 63 6b 69 6e 67 |o->close|_backing|
|00004760| 5f 73 74 6f 72 65 20 3d | 20 63 6c 6f 73 65 5f 65 |_store =| close_e|
|00004770| 6d 73 5f 73 74 6f 72 65 | 3b 0a 58 20 20 54 52 41 |ms_store|;.X TRA|
|00004780| 43 45 4d 53 31 28 6d 65 | 74 68 6f 64 73 2c 20 31 |CEMS1(me|thods, 1|
|00004790| 2c 20 22 4f 62 74 61 69 | 6e 65 64 20 45 4d 53 20 |, "Obtai|ned EMS |
|000047a0| 68 61 6e 64 6c 65 20 25 | 75 22 2c 20 63 74 78 2e |handle %|u", ctx.|
|000047b0| 64 78 29 3b 0a 58 20 20 | 72 65 74 75 72 6e 20 54 |dx);.X |return T|
|000047c0| 52 55 45 3b 09 09 09 2f | 2a 20 73 75 63 63 65 65 |RUE;.../|* succee|
|000047d0| 64 65 64 20 2a 2f 0a 58 | 7d 0a 58 0a 58 23 65 6e |ded */.X|}.X.X#en|
|000047e0| 64 69 66 20 2f 2a 20 45 | 4d 53 5f 53 55 50 50 4f |dif /* E|MS_SUPPO|
|000047f0| 52 54 45 44 20 2a 2f 0a | 58 0a 58 0a 58 2f 2a 0a |RTED */.|X.X.X/*.|
|00004800| 58 20 2a 20 49 6e 69 74 | 69 61 6c 20 6f 70 65 6e |X * Init|ial open|
|00004810| 69 6e 67 20 6f 66 20 61 | 20 62 61 63 6b 69 6e 67 |ing of a| backing|
|00004820| 2d 73 74 6f 72 65 20 6f | 62 6a 65 63 74 2e 0a 58 |-store o|bject..X|
|00004830| 20 2a 2f 0a 58 0a 58 47 | 4c 4f 42 41 4c 20 76 6f | */.X.XG|LOBAL vo|
|00004840| 69 64 0a 58 6a 6f 70 65 | 6e 5f 62 61 63 6b 69 6e |id.Xjope|n_backin|
|00004850| 67 5f 73 74 6f 72 65 20 | 28 62 61 63 6b 69 6e 67 |g_store |(backing|
|00004860| 5f 73 74 6f 72 65 5f 70 | 74 72 20 69 6e 66 6f 2c |_store_p|tr info,|
|00004870| 20 6c 6f 6e 67 20 74 6f | 74 61 6c 5f 62 79 74 65 | long to|tal_byte|
|00004880| 73 5f 6e 65 65 64 65 64 | 29 0a 58 7b 0a 58 20 20 |s_needed|).X{.X |
|00004890| 2f 2a 20 54 72 79 20 65 | 78 74 65 6e 64 65 64 20 |/* Try e|xtended |
|000048a0| 6d 65 6d 6f 72 79 2c 20 | 74 68 65 6e 20 65 78 70 |memory, |then exp|
|000048b0| 61 6e 64 65 64 20 6d 65 | 6d 6f 72 79 2c 20 74 68 |anded me|mory, th|
|000048c0| 65 6e 20 72 65 67 75 6c | 61 72 20 66 69 6c 65 2e |en regul|ar file.|
|000048d0| 20 2a 2f 0a 58 23 69 66 | 20 58 4d 53 5f 53 55 50 | */.X#if| XMS_SUP|
|000048e0| 50 4f 52 54 45 44 0a 58 | 20 20 69 66 20 28 6f 70 |PORTED.X| if (op|
|000048f0| 65 6e 5f 78 6d 73 5f 73 | 74 6f 72 65 28 69 6e 66 |en_xms_s|tore(inf|
|00004900| 6f 2c 20 74 6f 74 61 6c | 5f 62 79 74 65 73 5f 6e |o, total|_bytes_n|
|00004910| 65 65 64 65 64 29 29 0a | 58 20 20 20 20 72 65 74 |eeded)).|X ret|
|00004920| 75 72 6e 3b 0a 58 23 65 | 6e 64 69 66 0a 58 23 69 |urn;.X#e|ndif.X#i|
|00004930| 66 20 45 4d 53 5f 53 55 | 50 50 4f 52 54 45 44 0a |f EMS_SU|PPORTED.|
|00004940| 58 20 20 69 66 20 28 6f | 70 65 6e 5f 65 6d 73 5f |X if (o|pen_ems_|
|00004950| 73 74 6f 72 65 28 69 6e | 66 6f 2c 20 74 6f 74 61 |store(in|fo, tota|
|00004960| 6c 5f 62 79 74 65 73 5f | 6e 65 65 64 65 64 29 29 |l_bytes_|needed))|
|00004970| 0a 58 20 20 20 20 72 65 | 74 75 72 6e 3b 0a 58 23 |.X re|turn;.X#|
|00004980| 65 6e 64 69 66 0a 58 20 | 20 69 66 20 28 6f 70 65 |endif.X | if (ope|
|00004990| 6e 5f 66 69 6c 65 5f 73 | 74 6f 72 65 28 69 6e 66 |n_file_s|tore(inf|
|000049a0| 6f 2c 20 74 6f 74 61 6c | 5f 62 79 74 65 73 5f 6e |o, total|_bytes_n|
|000049b0| 65 65 64 65 64 29 29 0a | 58 20 20 20 20 72 65 74 |eeded)).|X ret|
|000049c0| 75 72 6e 3b 0a 58 20 20 | 45 52 52 45 58 49 54 28 |urn;.X |ERREXIT(|
|000049d0| 6d 65 74 68 6f 64 73 2c | 20 22 46 61 69 6c 65 64 |methods,| "Failed|
|000049e0| 20 74 6f 20 63 72 65 61 | 74 65 20 74 65 6d 70 6f | to crea|te tempo|
|000049f0| 72 61 72 79 20 66 69 6c | 65 22 29 3b 0a 58 7d 0a |rary fil|e");.X}.|
|00004a00| 58 0a 58 0a 58 2f 2a 0a | 58 20 2a 20 54 68 65 73 |X.X.X/*.|X * Thes|
|00004a10| 65 20 72 6f 75 74 69 6e | 65 73 20 74 61 6b 65 20 |e routin|es take |
|00004a20| 63 61 72 65 20 6f 66 20 | 61 6e 79 20 73 79 73 74 |care of |any syst|
|00004a30| 65 6d 2d 64 65 70 65 6e | 64 65 6e 74 20 69 6e 69 |em-depen|dent ini|
|00004a40| 74 69 61 6c 69 7a 61 74 | 69 6f 6e 20 61 6e 64 0a |tializat|ion and.|
|00004a50| 58 20 2a 20 63 6c 65 61 | 6e 75 70 20 72 65 71 75 |X * clea|nup requ|
|00004a60| 69 72 65 64 2e 20 20 4b | 65 65 70 20 69 6e 20 6d |ired. K|eep in m|
|00004a70| 69 6e 64 20 74 68 61 74 | 20 6a 6d 65 6d 5f 74 65 |ind that| jmem_te|
|00004a80| 72 6d 20 6d 61 79 20 62 | 65 20 63 61 6c 6c 65 64 |rm may b|e called|
|00004a90| 20 6d 6f 72 65 20 74 68 | 61 6e 0a 58 20 2a 20 6f | more th|an.X * o|
|00004aa0| 6e 63 65 2e 0a 58 20 2a | 2f 0a 58 0a 58 47 4c 4f |nce..X *|/.X.XGLO|
|00004ab0| 42 41 4c 20 76 6f 69 64 | 0a 58 6a 6d 65 6d 5f 69 |BAL void|.Xjmem_i|
|00004ac0| 6e 69 74 20 28 65 78 74 | 65 72 6e 61 6c 5f 6d 65 |nit (ext|ernal_me|
|00004ad0| 74 68 6f 64 73 5f 70 74 | 72 20 65 6d 65 74 68 6f |thods_pt|r emetho|
|00004ae0| 64 73 29 0a 58 7b 0a 58 | 20 20 6d 65 74 68 6f 64 |ds).X{.X| method|
|00004af0| 73 20 3d 20 65 6d 65 74 | 68 6f 64 73 3b 09 09 2f |s = emet|hods;../|
|00004b00| 2a 20 73 61 76 65 20 73 | 74 72 75 63 74 20 61 64 |* save s|truct ad|
|00004b10| 64 72 20 66 6f 72 20 65 | 72 72 6f 72 20 65 78 69 |dr for e|rror exi|
|00004b20| 74 20 61 63 63 65 73 73 | 20 2a 2f 0a 58 20 20 65 |t access| */.X e|
|00004b30| 6d 65 74 68 6f 64 73 2d | 3e 6d 61 78 5f 6d 65 6d |methods-|>max_mem|
|00004b40| 6f 72 79 5f 74 6f 5f 75 | 73 65 20 3d 20 44 45 46 |ory_to_u|se = DEF|
|00004b50| 41 55 4c 54 5f 4d 41 58 | 5f 4d 45 4d 3b 0a 58 20 |AULT_MAX|_MEM;.X |
|00004b60| 20 74 6f 74 61 6c 5f 75 | 73 65 64 20 3d 20 30 3b | total_u|sed = 0;|
|00004b70| 0a 58 20 20 6e 65 78 74 | 5f 66 69 6c 65 5f 6e 75 |.X next|_file_nu|
|00004b80| 6d 20 3d 20 30 3b 0a 58 | 7d 0a 58 0a 58 47 4c 4f |m = 0;.X|}.X.XGLO|
|00004b90| 42 41 4c 20 76 6f 69 64 | 0a 58 6a 6d 65 6d 5f 74 |BAL void|.Xjmem_t|
|00004ba0| 65 72 6d 20 28 76 6f 69 | 64 29 0a 58 7b 0a 58 20 |erm (voi|d).X{.X |
|00004bb0| 20 2f 2a 20 6e 6f 20 77 | 6f 72 6b 20 2a 2f 0a 58 | /* no w|ork */.X|
|00004bc0| 7d 0a 45 4e 44 5f 4f 46 | 5f 46 49 4c 45 0a 20 20 |}.END_OF|_FILE. |
|00004bd0| 69 66 20 74 65 73 74 20 | 31 37 35 35 37 20 2d 6e |if test |17557 -n|
|00004be0| 65 20 60 77 63 20 2d 63 | 20 3c 27 6a 6d 65 6d 64 |e `wc -c| <'jmemd|
|00004bf0| 6f 73 2e 63 27 60 3b 20 | 74 68 65 6e 0a 20 20 20 |os.c'`; |then. |
|00004c00| 20 65 63 68 6f 20 73 68 | 61 72 3a 20 5c 22 27 6a | echo sh|ar: \"'j|
|00004c10| 6d 65 6d 64 6f 73 2e 63 | 27 5c 22 20 75 6e 70 61 |memdos.c|'\" unpa|
|00004c20| 63 6b 65 64 20 77 69 74 | 68 20 77 72 6f 6e 67 20 |cked wit|h wrong |
|00004c30| 73 69 7a 65 21 0a 20 20 | 66 69 0a 20 20 23 20 65 |size!. |fi. # e|
|00004c40| 6e 64 20 6f 66 20 27 6a | 6d 65 6d 64 6f 73 2e 63 |nd of 'j|memdos.c|
|00004c50| 27 0a 66 69 0a 69 66 20 | 74 65 73 74 20 2d 66 20 |'.fi.if |test -f |
|00004c60| 27 6a 6d 65 6d 6d 67 72 | 2e 63 27 20 2d 61 20 22 |'jmemmgr|.c' -a "|
|00004c70| 24 7b 31 7d 22 20 21 3d | 20 22 2d 63 22 20 3b 20 |${1}" !=| "-c" ; |
|00004c80| 74 68 65 6e 20 0a 20 20 | 65 63 68 6f 20 73 68 61 |then . |echo sha|
|00004c90| 72 3a 20 57 69 6c 6c 20 | 6e 6f 74 20 63 6c 6f 62 |r: Will |not clob|
|00004ca0| 62 65 72 20 65 78 69 73 | 74 69 6e 67 20 66 69 6c |ber exis|ting fil|
|00004cb0| 65 20 5c 22 27 6a 6d 65 | 6d 6d 67 72 2e 63 27 5c |e \"'jme|mmgr.c'\|
|00004cc0| 22 0a 65 6c 73 65 0a 20 | 20 65 63 68 6f 20 73 68 |".else. | echo sh|
|00004cd0| 61 72 3a 20 45 78 74 72 | 61 63 74 69 6e 67 20 5c |ar: Extr|acting \|
|00004ce0| 22 27 6a 6d 65 6d 6d 67 | 72 2e 63 27 5c 22 20 5c |"'jmemmg|r.c'\" \|
|00004cf0| 28 33 37 37 31 39 20 63 | 68 61 72 61 63 74 65 72 |(37719 c|haracter|
|00004d00| 73 5c 29 0a 20 20 73 65 | 64 20 22 73 2f 5e 58 2f |s\). se|d "s/^X/|
|00004d10| 2f 22 20 3e 27 6a 6d 65 | 6d 6d 67 72 2e 63 27 20 |/" >'jme|mmgr.c' |
|00004d20| 3c 3c 27 45 4e 44 5f 4f | 46 5f 46 49 4c 45 27 0a |<<'END_O|F_FILE'.|
|00004d30| 58 2f 2a 0a 58 20 2a 20 | 6a 6d 65 6d 6d 67 72 2e |X/*.X * |jmemmgr.|
|00004d40| 63 0a 58 20 2a 0a 58 20 | 2a 20 43 6f 70 79 72 69 |c.X *.X |* Copyri|
|00004d50| 67 68 74 20 28 43 29 20 | 31 39 39 31 2c 20 31 39 |ght (C) |1991, 19|
|00004d60| 39 32 2c 20 54 68 6f 6d | 61 73 20 47 2e 20 4c 61 |92, Thom|as G. La|
|00004d70| 6e 65 2e 0a 58 20 2a 20 | 54 68 69 73 20 66 69 6c |ne..X * |This fil|
|00004d80| 65 20 69 73 20 70 61 72 | 74 20 6f 66 20 74 68 65 |e is par|t of the|
|00004d90| 20 49 6e 64 65 70 65 6e | 64 65 6e 74 20 4a 50 45 | Indepen|dent JPE|
|00004da0| 47 20 47 72 6f 75 70 27 | 73 20 73 6f 66 74 77 61 |G Group'|s softwa|
|00004db0| 72 65 2e 0a 58 20 2a 20 | 46 6f 72 20 63 6f 6e 64 |re..X * |For cond|
|00004dc0| 69 74 69 6f 6e 73 20 6f | 66 20 64 69 73 74 72 69 |itions o|f distri|
|00004dd0| 62 75 74 69 6f 6e 20 61 | 6e 64 20 75 73 65 2c 20 |bution a|nd use, |
|00004de0| 73 65 65 20 74 68 65 20 | 61 63 63 6f 6d 70 61 6e |see the |accompan|
|00004df0| 79 69 6e 67 20 52 45 41 | 44 4d 45 20 66 69 6c 65 |ying REA|DME file|
|00004e00| 2e 0a 58 20 2a 0a 58 20 | 2a 20 54 68 69 73 20 66 |..X *.X |* This f|
|00004e10| 69 6c 65 20 70 72 6f 76 | 69 64 65 73 20 74 68 65 |ile prov|ides the|
|00004e20| 20 73 74 61 6e 64 61 72 | 64 20 73 79 73 74 65 6d | standar|d system|
|00004e30| 2d 69 6e 64 65 70 65 6e | 64 65 6e 74 20 6d 65 6d |-indepen|dent mem|
|00004e40| 6f 72 79 20 6d 61 6e 61 | 67 65 6d 65 6e 74 0a 58 |ory mana|gement.X|
|00004e50| 20 2a 20 72 6f 75 74 69 | 6e 65 73 2e 20 20 54 68 | * routi|nes. Th|
|00004e60| 69 73 20 63 6f 64 65 20 | 69 73 20 75 73 61 62 6c |is code |is usabl|
|00004e70| 65 20 61 63 72 6f 73 73 | 20 61 20 77 69 64 65 20 |e across| a wide |
|00004e80| 76 61 72 69 65 74 79 20 | 6f 66 20 6d 61 63 68 69 |variety |of machi|
|00004e90| 6e 65 73 3b 20 6d 6f 73 | 74 0a 58 20 2a 20 6f 66 |nes; mos|t.X * of|
|00004ea0| 20 74 68 65 20 73 79 73 | 74 65 6d 20 64 65 70 65 | the sys|tem depe|
|00004eb0| 6e 64 65 6e 63 69 65 73 | 20 68 61 76 65 20 62 65 |ndencies| have be|
|00004ec0| 65 6e 20 69 73 6f 6c 61 | 74 65 64 20 69 6e 20 61 |en isola|ted in a|
|00004ed0| 20 73 65 70 61 72 61 74 | 65 20 66 69 6c 65 2e 0a | separat|e file..|
|00004ee0| 58 20 2a 20 54 68 65 20 | 6d 61 6a 6f 72 20 66 75 |X * The |major fu|
|00004ef0| 6e 63 74 69 6f 6e 73 20 | 70 72 6f 76 69 64 65 64 |nctions |provided|
|00004f00| 20 68 65 72 65 20 61 72 | 65 3a 0a 58 20 2a 20 20 | here ar|e:.X * |
|00004f10| 20 2a 20 62 6f 6f 6b 6b | 65 65 70 69 6e 67 20 74 | * bookk|eeping t|
|00004f20| 6f 20 61 6c 6c 6f 77 20 | 61 6c 6c 20 61 6c 6c 6f |o allow |all allo|
|00004f30| 63 61 74 65 64 20 6d 65 | 6d 6f 72 79 20 74 6f 20 |cated me|mory to |
|00004f40| 62 65 20 66 72 65 65 64 | 20 75 70 6f 6e 20 65 78 |be freed| upon ex|
|00004f50| 69 74 3b 0a 58 20 2a 20 | 20 20 2a 20 70 6f 6c 69 |it;.X * | * poli|
|00004f60| 63 79 20 64 65 63 69 73 | 69 6f 6e 73 20 61 62 6f |cy decis|ions abo|
|00004f70| 75 74 20 68 6f 77 20 74 | 6f 20 64 69 76 69 64 65 |ut how t|o divide|
|00004f80| 20 61 76 61 69 6c 61 62 | 6c 65 20 6d 65 6d 6f 72 | availab|le memor|
|00004f90| 79 20 61 6d 6f 6e 67 20 | 74 68 65 0a 58 20 2a 20 |y among |the.X * |
|00004fa0| 20 20 20 20 76 61 72 69 | 6f 75 73 20 6c 61 72 67 | vari|ous larg|
|00004fb0| 65 20 61 72 72 61 79 73 | 3b 0a 58 20 2a 20 20 20 |e arrays|;.X * |
|00004fc0| 2a 20 63 6f 6e 74 72 6f | 6c 20 6c 6f 67 69 63 20 |* contro|l logic |
|00004fd0| 66 6f 72 20 73 77 61 70 | 70 69 6e 67 20 76 69 72 |for swap|ping vir|
|00004fe0| 74 75 61 6c 20 61 72 72 | 61 79 73 20 62 65 74 77 |tual arr|ays betw|
|00004ff0| 65 65 6e 20 6d 61 69 6e | 20 6d 65 6d 6f 72 79 20 |een main| memory |
|00005000| 61 6e 64 0a 58 20 2a 20 | 20 20 20 20 62 61 63 6b |and.X * | back|
|00005010| 69 6e 67 20 73 74 6f 72 | 61 67 65 2e 0a 58 20 2a |ing stor|age..X *|
|00005020| 20 54 68 65 20 73 65 70 | 61 72 61 74 65 20 73 79 | The sep|arate sy|
|00005030| 73 74 65 6d 2d 64 65 70 | 65 6e 64 65 6e 74 20 66 |stem-dep|endent f|
|00005040| 69 6c 65 20 70 72 6f 76 | 69 64 65 73 20 74 68 65 |ile prov|ides the|
|00005050| 20 61 63 74 75 61 6c 20 | 62 61 63 6b 69 6e 67 2d | actual |backing-|
|00005060| 73 74 6f 72 61 67 65 0a | 58 20 2a 20 61 63 63 65 |storage.|X * acce|
|00005070| 73 73 20 63 6f 64 65 2c | 20 61 6e 64 20 69 74 20 |ss code,| and it |
|00005080| 63 6f 6e 74 61 69 6e 73 | 20 74 68 65 20 70 6f 6c |contains| the pol|
|00005090| 69 63 79 20 64 65 63 69 | 73 69 6f 6e 20 61 62 6f |icy deci|sion abo|
|000050a0| 75 74 20 68 6f 77 20 6d | 75 63 68 20 74 6f 74 61 |ut how m|uch tota|
|000050b0| 6c 0a 58 20 2a 20 6d 61 | 69 6e 20 6d 65 6d 6f 72 |l.X * ma|in memor|
|000050c0| 79 20 74 6f 20 75 73 65 | 2e 0a 58 20 2a 20 54 68 |y to use|..X * Th|
|000050d0| 69 73 20 66 69 6c 65 20 | 69 73 20 73 79 73 74 65 |is file |is syste|
|000050e0| 6d 2d 64 65 70 65 6e 64 | 65 6e 74 20 69 6e 20 74 |m-depend|ent in t|
|000050f0| 68 65 20 73 65 6e 73 65 | 20 74 68 61 74 20 73 6f |he sense| that so|
|00005100| 6d 65 20 6f 66 20 69 74 | 73 20 66 75 6e 63 74 69 |me of it|s functi|
|00005110| 6f 6e 73 0a 58 20 2a 20 | 61 72 65 20 75 6e 6e 65 |ons.X * |are unne|
|00005120| 63 65 73 73 61 72 79 20 | 69 6e 20 73 6f 6d 65 20 |cessary |in some |
|00005130| 73 79 73 74 65 6d 73 2e | 20 20 46 6f 72 20 65 78 |systems.| For ex|
|00005140| 61 6d 70 6c 65 2c 20 69 | 66 20 74 68 65 72 65 20 |ample, i|f there |
|00005150| 69 73 20 65 6e 6f 75 67 | 68 20 76 69 72 74 75 61 |is enoug|h virtua|
|00005160| 6c 0a 58 20 2a 20 6d 65 | 6d 6f 72 79 20 73 6f 20 |l.X * me|mory so |
|00005170| 74 68 61 74 20 62 61 63 | 6b 69 6e 67 20 73 74 6f |that bac|king sto|
|00005180| 72 61 67 65 20 77 69 6c | 6c 20 6e 65 76 65 72 20 |rage wil|l never |
|00005190| 62 65 20 75 73 65 64 2c | 20 6d 75 63 68 20 6f 66 |be used,| much of|
|000051a0| 20 74 68 65 20 62 69 67 | 2d 61 72 72 61 79 0a 58 | the big|-array.X|
|000051b0| 20 2a 20 63 6f 6e 74 72 | 6f 6c 20 6c 6f 67 69 63 | * contr|ol logic|
|000051c0| 20 63 6f 75 6c 64 20 62 | 65 20 72 65 6d 6f 76 65 | could b|e remove|
|000051d0| 64 2e 20 20 28 4f 66 20 | 63 6f 75 72 73 65 2c 20 |d. (Of |course, |
|000051e0| 69 66 20 79 6f 75 20 68 | 61 76 65 20 74 68 61 74 |if you h|ave that|
|000051f0| 20 6d 75 63 68 20 6d 65 | 6d 6f 72 79 0a 58 20 2a | much me|mory.X *|
|00005200| 20 74 68 65 6e 20 79 6f | 75 20 73 68 6f 75 6c 64 | then yo|u should|
|00005210| 6e 27 74 20 63 61 72 65 | 20 61 62 6f 75 74 20 61 |n't care| about a|
|00005220| 20 6c 69 74 74 6c 65 20 | 62 69 74 20 6f 66 20 75 | little |bit of u|
|00005230| 6e 75 73 65 64 20 63 6f | 64 65 2e 2e 2e 29 0a 58 |nused co|de...).X|
|00005240| 20 2a 0a 58 20 2a 20 54 | 68 65 73 65 20 72 6f 75 | *.X * T|hese rou|
|00005250| 74 69 6e 65 73 20 61 72 | 65 20 69 6e 76 6f 6b 65 |tines ar|e invoke|
|00005260| 64 20 76 69 61 20 74 68 | 65 20 6d 65 74 68 6f 64 |d via th|e method|
|00005270| 73 20 61 6c 6c 6f 63 5f | 73 6d 61 6c 6c 2c 20 66 |s alloc_|small, f|
|00005280| 72 65 65 5f 73 6d 61 6c | 6c 2c 0a 58 20 2a 20 61 |ree_smal|l,.X * a|
|00005290| 6c 6c 6f 63 5f 6d 65 64 | 69 75 6d 2c 20 66 72 65 |lloc_med|ium, fre|
|000052a0| 65 5f 6d 65 64 69 75 6d | 2c 20 61 6c 6c 6f 63 5f |e_medium|, alloc_|
|000052b0| 73 6d 61 6c 6c 5f 73 61 | 72 72 61 79 2c 20 66 72 |small_sa|rray, fr|
|000052c0| 65 65 5f 73 6d 61 6c 6c | 5f 73 61 72 72 61 79 2c |ee_small|_sarray,|
|000052d0| 0a 58 20 2a 20 61 6c 6c | 6f 63 5f 73 6d 61 6c 6c |.X * all|oc_small|
|000052e0| 5f 62 61 72 72 61 79 2c | 20 66 72 65 65 5f 73 6d |_barray,| free_sm|
|000052f0| 61 6c 6c 5f 62 61 72 72 | 61 79 2c 20 72 65 71 75 |all_barr|ay, requ|
|00005300| 65 73 74 5f 62 69 67 5f | 73 61 72 72 61 79 2c 0a |est_big_|sarray,.|
|00005310| 58 20 2a 20 72 65 71 75 | 65 73 74 5f 62 69 67 5f |X * requ|est_big_|
|00005320| 62 61 72 72 61 79 2c 20 | 61 6c 6c 6f 63 5f 62 69 |barray, |alloc_bi|
|00005330| 67 5f 61 72 72 61 79 73 | 2c 20 61 63 63 65 73 73 |g_arrays|, access|
|00005340| 5f 62 69 67 5f 73 61 72 | 72 61 79 2c 20 61 63 63 |_big_sar|ray, acc|
|00005350| 65 73 73 5f 62 69 67 5f | 62 61 72 72 61 79 2c 0a |ess_big_|barray,.|
|00005360| 58 20 2a 20 66 72 65 65 | 5f 62 69 67 5f 73 61 72 |X * free|_big_sar|
|00005370| 72 61 79 2c 20 66 72 65 | 65 5f 62 69 67 5f 62 61 |ray, fre|e_big_ba|
|00005380| 72 72 61 79 2c 20 61 6e | 64 20 66 72 65 65 5f 61 |rray, an|d free_a|
|00005390| 6c 6c 2e 0a 58 20 2a 2f | 0a 58 0a 58 23 64 65 66 |ll..X */|.X.X#def|
|000053a0| 69 6e 65 20 41 4d 5f 4d | 45 4d 4f 52 59 5f 4d 41 |ine AM_M|EMORY_MA|
|000053b0| 4e 41 47 45 52 09 2f 2a | 20 77 65 20 64 65 66 69 |NAGER./*| we defi|
|000053c0| 6e 65 20 62 69 67 5f 58 | 61 72 72 61 79 5f 63 6f |ne big_X|array_co|
|000053d0| 6e 74 72 6f 6c 20 73 74 | 72 75 63 74 73 20 2a 2f |ntrol st|ructs */|
|000053e0| 0a 58 0a 58 23 69 6e 63 | 6c 75 64 65 20 22 6a 69 |.X.X#inc|lude "ji|
|000053f0| 6e 63 6c 75 64 65 2e 68 | 22 0a 58 23 69 6e 63 6c |nclude.h|".X#incl|
|00005400| 75 64 65 20 22 6a 6d 65 | 6d 73 79 73 2e 68 22 09 |ude "jme|msys.h".|
|00005410| 09 2f 2a 20 69 6d 70 6f | 72 74 20 74 68 65 20 73 |./* impo|rt the s|
|00005420| 79 73 74 65 6d 2d 64 65 | 70 65 6e 64 65 6e 74 20 |ystem-de|pendent |
|00005430| 64 65 63 6c 61 72 61 74 | 69 6f 6e 73 20 2a 2f 0a |declarat|ions */.|
|00005440| 58 0a 58 23 69 66 6e 64 | 65 66 20 4e 4f 5f 47 45 |X.X#ifnd|ef NO_GE|
|00005450| 54 45 4e 56 0a 58 23 69 | 66 64 65 66 20 49 4e 43 |TENV.X#i|fdef INC|
|00005460| 4c 55 44 45 53 5f 41 52 | 45 5f 41 4e 53 49 0a 58 |LUDES_AR|E_ANSI.X|
|00005470| 23 69 6e 63 6c 75 64 65 | 20 3c 73 74 64 6c 69 62 |#include| <stdlib|
|00005480| 2e 68 3e 09 09 2f 2a 20 | 74 6f 20 64 65 63 6c 61 |.h>../* |to decla|
|00005490| 72 65 20 67 65 74 65 6e | 76 28 29 20 2a 2f 0a 58 |re geten|v() */.X|
|000054a0| 23 65 6c 73 65 0a 58 65 | 78 74 65 72 6e 20 63 68 |#else.Xe|xtern ch|
|000054b0| 61 72 20 2a 20 67 65 74 | 65 6e 76 20 50 50 28 28 |ar * get|env PP((|
|000054c0| 63 6f 6e 73 74 20 63 68 | 61 72 20 2a 20 6e 61 6d |const ch|ar * nam|
|000054d0| 65 29 29 3b 0a 58 23 65 | 6e 64 69 66 0a 58 23 65 |e));.X#e|ndif.X#e|
|000054e0| 6e 64 69 66 0a 58 0a 58 | 0a 58 2f 2a 0a 58 20 2a |ndif.X.X|.X/*.X *|
|000054f0| 20 4f 6e 20 6d 61 6e 79 | 20 73 79 73 74 65 6d 73 | On many| systems|
|00005500| 20 69 74 20 69 73 20 6e | 6f 74 20 6e 65 63 65 73 | it is n|ot neces|
|00005510| 73 61 72 79 20 74 6f 20 | 64 69 73 74 69 6e 67 75 |sary to |distingu|
|00005520| 69 73 68 20 61 6c 6c 6f | 63 5f 73 6d 61 6c 6c 20 |ish allo|c_small |
|00005530| 66 72 6f 6d 0a 58 20 2a | 20 61 6c 6c 6f 63 5f 6d |from.X *| alloc_m|
|00005540| 65 64 69 75 6d 3b 20 74 | 68 65 20 6d 61 69 6e 20 |edium; t|he main |
|00005550| 63 61 73 65 20 77 68 65 | 72 65 20 74 68 65 79 20 |case whe|re they |
|00005560| 6d 75 73 74 20 62 65 20 | 64 69 73 74 69 6e 67 75 |must be |distingu|
|00005570| 69 73 68 65 64 20 69 73 | 20 77 68 65 6e 0a 58 20 |ished is| when.X |
|00005580| 2a 20 46 41 52 20 70 6f | 69 6e 74 65 72 73 20 61 |* FAR po|inters a|
|00005590| 72 65 20 64 69 73 74 69 | 6e 63 74 20 66 72 6f 6d |re disti|nct from|
|000055a0| 20 72 65 67 75 6c 61 72 | 20 70 6f 69 6e 74 65 72 | regular| pointer|
|000055b0| 73 2e 20 20 48 6f 77 65 | 76 65 72 2c 20 79 6f 75 |s. Howe|ver, you|
|000055c0| 20 6d 69 67 68 74 0a 58 | 20 2a 20 77 61 6e 74 20 | might.X| * want |
|000055d0| 74 6f 20 6b 65 65 70 20 | 74 68 65 6d 20 73 65 70 |to keep |them sep|
|000055e0| 61 72 61 74 65 20 69 66 | 20 79 6f 75 20 68 61 76 |arate if| you hav|
|000055f0| 65 20 64 69 66 66 65 72 | 65 6e 74 20 73 79 73 74 |e differ|ent syst|
|00005600| 65 6d 2d 64 65 70 65 6e | 64 65 6e 74 20 6c 6f 67 |em-depen|dent log|
|00005610| 69 63 0a 58 20 2a 20 66 | 6f 72 20 73 6d 61 6c 6c |ic.X * f|or small|
|00005620| 20 61 6e 64 20 6c 61 72 | 67 65 20 6d 65 6d 6f 72 | and lar|ge memor|
|00005630| 79 20 72 65 71 75 65 73 | 74 73 20 28 69 2e 65 2e |y reques|ts (i.e.|
|00005640| 2c 20 6a 67 65 74 5f 73 | 6d 61 6c 6c 20 61 6e 64 |, jget_s|mall and|
|00005650| 20 6a 67 65 74 5f 6c 61 | 72 67 65 0a 58 20 2a 20 | jget_la|rge.X * |
|00005660| 64 6f 20 64 69 66 66 65 | 72 65 6e 74 20 74 68 69 |do diffe|rent thi|
|00005670| 6e 67 73 29 2e 0a 58 20 | 2a 2f 0a 58 0a 58 23 69 |ngs)..X |*/.X.X#i|
|00005680| 66 64 65 66 20 4e 45 45 | 44 5f 46 41 52 5f 50 4f |fdef NEE|D_FAR_PO|
|00005690| 49 4e 54 45 52 53 0a 58 | 23 64 65 66 69 6e 65 20 |INTERS.X|#define |
|000056a0| 4e 45 45 44 5f 41 4c 4c | 4f 43 5f 4d 45 44 49 55 |NEED_ALL|OC_MEDIU|
|000056b0| 4d 09 2f 2a 20 66 6c 61 | 67 73 20 61 6c 6c 6f 63 |M./* fla|gs alloc|
|000056c0| 5f 6d 65 64 69 75 6d 20 | 72 65 61 6c 6c 79 20 65 |_medium |really e|
|000056d0| 78 69 73 74 73 20 2a 2f | 0a 58 23 65 6e 64 69 66 |xists */|.X#endif|
|000056e0| 0a 58 0a 58 0a 58 2f 2a | 0a 58 20 2a 20 4d 61 6e |.X.X.X/*|.X * Man|
|000056f0| 79 20 6d 61 63 68 69 6e | 65 73 20 72 65 71 75 69 |y machin|es requi|
|00005700| 72 65 20 73 74 6f 72 61 | 67 65 20 61 6c 69 67 6e |re stora|ge align|
|00005710| 6d 65 6e 74 3a 20 6c 6f | 6e 67 73 20 6d 75 73 74 |ment: lo|ngs must|
|00005720| 20 73 74 61 72 74 20 6f | 6e 20 34 2d 62 79 74 65 | start o|n 4-byte|
|00005730| 0a 58 20 2a 20 62 6f 75 | 6e 64 61 72 69 65 73 2c |.X * bou|ndaries,|
|00005740| 20 64 6f 75 62 6c 65 73 | 20 6f 6e 20 38 2d 62 79 | doubles| on 8-by|
|00005750| 74 65 20 62 6f 75 6e 64 | 61 72 69 65 73 2c 20 65 |te bound|aries, e|
|00005760| 74 63 2e 20 20 4f 6e 20 | 73 75 63 68 20 6d 61 63 |tc. On |such mac|
|00005770| 68 69 6e 65 73 2c 20 6d | 61 6c 6c 6f 63 28 29 0a |hines, m|alloc().|
|00005780| 58 20 2a 20 61 6c 77 61 | 79 73 20 72 65 74 75 72 |X * alwa|ys retur|
|00005790| 6e 73 20 70 6f 69 6e 74 | 65 72 73 20 74 68 61 74 |ns point|ers that|
|000057a0| 20 61 72 65 20 6d 75 6c | 74 69 70 6c 65 73 20 6f | are mul|tiples o|
|000057b0| 66 20 74 68 65 20 77 6f | 72 73 74 2d 63 61 73 65 |f the wo|rst-case|
|000057c0| 20 61 6c 69 67 6e 6d 65 | 6e 74 0a 58 20 2a 20 72 | alignme|nt.X * r|
|000057d0| 65 71 75 69 72 65 6d 65 | 6e 74 2c 20 61 6e 64 20 |equireme|nt, and |
|000057e0| 77 65 20 68 61 64 20 62 | 65 74 74 65 72 20 64 6f |we had b|etter do|
|000057f0| 20 73 6f 20 74 6f 6f 2e | 20 20 54 68 69 73 20 6d | so too.| This m|
|00005800| 65 61 6e 73 20 74 68 65 | 20 68 65 61 64 65 72 73 |eans the| headers|
|00005810| 20 74 68 61 74 0a 58 20 | 2a 20 77 65 20 74 61 63 | that.X |* we tac|
|00005820| 6b 20 6f 6e 74 6f 20 61 | 6c 6c 6f 63 61 74 65 64 |k onto a|llocated|
|00005830| 20 73 74 72 75 63 74 75 | 72 65 73 20 68 61 64 20 | structu|res had |
|00005840| 62 65 74 74 65 72 20 68 | 61 76 65 20 6c 65 6e 67 |better h|ave leng|
|00005850| 74 68 20 61 20 6d 75 6c | 74 69 70 6c 65 20 6f 66 |th a mul|tiple of|
|00005860| 0a 58 20 2a 20 74 68 65 | 20 61 6c 69 67 6e 6d 65 |.X * the| alignme|
|00005870| 6e 74 20 72 65 71 75 69 | 72 65 6d 65 6e 74 2e 0a |nt requi|rement..|
|00005880| 58 20 2a 20 54 68 65 72 | 65 20 69 73 6e 27 74 20 |X * Ther|e isn't |
|00005890| 61 6e 79 20 72 65 61 6c | 6c 79 20 70 6f 72 74 61 |any real|ly porta|
|000058a0| 62 6c 65 20 77 61 79 20 | 74 6f 20 64 65 74 65 72 |ble way |to deter|
|000058b0| 6d 69 6e 65 20 74 68 65 | 20 77 6f 72 73 74 2d 63 |mine the| worst-c|
|000058c0| 61 73 65 20 61 6c 69 67 | 6e 6d 65 6e 74 0a 58 20 |ase alig|nment.X |
|000058d0| 2a 20 72 65 71 75 69 72 | 65 6d 65 6e 74 2e 20 20 |* requir|ement. |
|000058e0| 49 6e 20 74 68 69 73 20 | 63 6f 64 65 20 77 65 20 |In this |code we |
|000058f0| 61 73 73 75 6d 65 20 74 | 68 61 74 20 74 68 65 20 |assume t|hat the |
|00005900| 61 6c 69 67 6e 6d 65 6e | 74 20 72 65 71 75 69 72 |alignmen|t requir|
|00005910| 65 6d 65 6e 74 20 69 73 | 0a 58 20 2a 20 6d 75 6c |ement is|.X * mul|
|00005920| 74 69 70 6c 65 73 20 6f | 66 20 73 69 7a 65 6f 66 |tiples o|f sizeof|
|00005930| 28 61 6c 69 67 6e 5f 74 | 79 70 65 29 2e 20 20 48 |(align_t|ype). H|
|00005940| 65 72 65 20 77 65 20 64 | 65 66 69 6e 65 20 61 6c |ere we d|efine al|
|00005950| 69 67 6e 5f 74 79 70 65 | 20 61 73 20 64 6f 75 62 |ign_type| as doub|
|00005960| 6c 65 3b 0a 58 20 2a 20 | 77 69 74 68 20 74 68 69 |le;.X * |with thi|
|00005970| 73 20 64 65 66 69 6e 69 | 74 69 6f 6e 2c 20 74 68 |s defini|tion, th|
|00005980| 65 20 63 6f 64 65 20 77 | 69 6c 6c 20 72 75 6e 20 |e code w|ill run |
|00005990| 6f 6e 20 61 6c 6c 20 6d | 61 63 68 69 6e 65 73 20 |on all m|achines |
|000059a0| 6b 6e 6f 77 6e 20 74 6f | 20 6d 65 2e 0a 58 20 2a |known to| me..X *|
|000059b0| 20 49 66 20 79 6f 75 72 | 20 6d 61 63 68 69 6e 65 | If your| machine|
|000059c0| 20 68 61 73 20 6c 65 73 | 73 65 72 20 61 6c 69 67 | has les|ser alig|
|000059d0| 6e 6d 65 6e 74 20 6e 65 | 65 64 73 2c 20 79 6f 75 |nment ne|eds, you|
|000059e0| 20 63 61 6e 20 73 61 76 | 65 20 61 20 66 65 77 20 | can sav|e a few |
|000059f0| 62 79 74 65 73 0a 58 20 | 2a 20 62 79 20 6d 61 6b |bytes.X |* by mak|
|00005a00| 69 6e 67 20 61 6c 69 67 | 6e 5f 74 79 70 65 20 73 |ing alig|n_type s|
|00005a10| 6d 61 6c 6c 65 72 2e 0a | 58 20 2a 2f 0a 58 0a 58 |maller..|X */.X.X|
|00005a20| 74 79 70 65 64 65 66 20 | 64 6f 75 62 6c 65 20 61 |typedef |double a|
|00005a30| 6c 69 67 6e 5f 74 79 70 | 65 3b 0a 58 0a 58 0a 58 |lign_typ|e;.X.X.X|
|00005a40| 2f 2a 0a 58 20 2a 20 53 | 6f 6d 65 20 69 6d 70 6f |/*.X * S|ome impo|
|00005a50| 72 74 61 6e 74 20 6e 6f | 74 65 73 3a 0a 58 20 2a |rtant no|tes:.X *|
|00005a60| 20 20 20 54 68 65 20 61 | 6c 6c 6f 63 61 74 69 6f | The a|llocatio|
|00005a70| 6e 20 72 6f 75 74 69 6e | 65 73 20 70 72 6f 76 69 |n routin|es provi|
|00005a80| 64 65 64 20 68 65 72 65 | 20 6d 75 73 74 20 6e 65 |ded here| must ne|
|00005a90| 76 65 72 20 72 65 74 75 | 72 6e 20 4e 55 4c 4c 2e |ver retu|rn NULL.|
|00005aa0| 0a 58 20 2a 20 20 20 54 | 68 65 79 20 73 68 6f 75 |.X * T|hey shou|
|00005ab0| 6c 64 20 65 78 69 74 20 | 74 6f 20 65 72 72 6f 72 |ld exit |to error|
|00005ac0| 5f 65 78 69 74 20 69 66 | 20 75 6e 73 75 63 63 65 |_exit if| unsucce|
|00005ad0| 73 73 66 75 6c 2e 0a 58 | 20 2a 0a 58 20 2a 20 20 |ssful..X| *.X * |
|00005ae0| 20 49 74 27 73 20 6e 6f | 74 20 61 20 67 6f 6f 64 | It's no|t a good|
|00005af0| 20 69 64 65 61 20 74 6f | 20 74 72 79 20 74 6f 20 | idea to| try to |
|00005b00| 6d 65 72 67 65 20 74 68 | 65 20 73 61 72 72 61 79 |merge th|e sarray|
|00005b10| 20 61 6e 64 20 62 61 72 | 72 61 79 20 72 6f 75 74 | and bar|ray rout|
|00005b20| 69 6e 65 73 2c 0a 58 20 | 2a 20 20 20 65 76 65 6e |ines,.X |* even|
|00005b30| 20 74 68 6f 75 67 68 20 | 74 68 65 79 20 61 72 65 | though |they are|
|00005b40| 20 74 65 78 74 75 61 6c | 6c 79 20 61 6c 6d 6f 73 | textual|ly almos|
|00005b50| 74 20 74 68 65 20 73 61 | 6d 65 2c 20 62 65 63 61 |t the sa|me, beca|
|00005b60| 75 73 65 20 73 61 6d 70 | 6c 65 73 20 61 72 65 0a |use samp|les are.|
|00005b70| 58 20 2a 20 20 20 75 73 | 75 61 6c 6c 79 20 73 74 |X * us|ually st|
|00005b80| 6f 72 65 64 20 61 73 20 | 62 79 74 65 73 20 77 68 |ored as |bytes wh|
|00005b90| 69 6c 65 20 63 6f 65 66 | 66 69 63 69 65 6e 74 73 |ile coef|ficients|
|00005ba0| 20 61 72 65 20 73 68 6f | 72 74 73 2e 20 20 54 68 | are sho|rts. Th|
|00005bb0| 75 73 2c 20 69 6e 20 6d | 61 63 68 69 6e 65 73 0a |us, in m|achines.|
|00005bc0| 58 20 2a 20 20 20 77 68 | 65 72 65 20 62 79 74 65 |X * wh|ere byte|
|00005bd0| 20 70 6f 69 6e 74 65 72 | 73 20 68 61 76 65 20 61 | pointer|s have a|
|00005be0| 20 64 69 66 66 65 72 65 | 6e 74 20 72 65 70 72 65 | differe|nt repre|
|00005bf0| 73 65 6e 74 61 74 69 6f | 6e 20 66 72 6f 6d 20 77 |sentatio|n from w|
|00005c00| 6f 72 64 20 70 6f 69 6e | 74 65 72 73 2c 0a 58 20 |ord poin|ters,.X |
|00005c10| 2a 20 20 20 74 68 65 20 | 72 65 73 75 6c 74 69 6e |* the |resultin|
|00005c20| 67 20 6d 61 63 68 69 6e | 65 20 63 6f 64 65 20 63 |g machin|e code c|
|00005c30| 6f 75 6c 64 20 6e 6f 74 | 20 62 65 20 74 68 65 20 |ould not| be the |
|00005c40| 73 61 6d 65 2e 0a 58 20 | 2a 2f 0a 58 0a 58 0a 58 |same..X |*/.X.X.X|
|00005c50| 73 74 61 74 69 63 20 65 | 78 74 65 72 6e 61 6c 5f |static e|xternal_|
|00005c60| 6d 65 74 68 6f 64 73 5f | 70 74 72 20 6d 65 74 68 |methods_|ptr meth|
|00005c70| 6f 64 73 3b 20 2f 2a 20 | 73 61 76 65 64 20 66 6f |ods; /* |saved fo|
|00005c80| 72 20 61 63 63 65 73 73 | 20 74 6f 20 65 72 72 6f |r access| to erro|
|00005c90| 72 5f 65 78 69 74 20 2a | 2f 0a 58 0a 58 0a 58 23 |r_exit *|/.X.X.X#|
|00005ca0| 69 66 64 65 66 20 4d 45 | 4d 5f 53 54 41 54 53 09 |ifdef ME|M_STATS.|
|00005cb0| 09 2f 2a 20 6f 70 74 69 | 6f 6e 61 6c 20 65 78 74 |./* opti|onal ext|
|00005cc0| 72 61 20 73 74 75 66 66 | 20 66 6f 72 20 73 74 61 |ra stuff| for sta|
|00005cd0| 74 69 73 74 69 63 73 20 | 2a 2f 0a 58 0a 58 2f 2a |tistics |*/.X.X/*|
|00005ce0| 20 54 68 65 73 65 20 6d | 61 63 72 6f 73 20 61 72 | These m|acros ar|
|00005cf0| 65 20 74 68 65 20 61 73 | 73 75 6d 65 64 20 6f 76 |e the as|sumed ov|
|00005d00| 65 72 68 65 61 64 20 70 | 65 72 20 62 6c 6f 63 6b |erhead p|er block|
|00005d10| 20 66 6f 72 20 6d 61 6c | 6c 6f 63 28 29 2e 0a 58 | for mal|loc()..X|
|00005d20| 20 2a 20 54 68 65 79 20 | 64 6f 6e 27 74 20 68 61 | * They |don't ha|
|00005d30| 76 65 20 74 6f 20 62 65 | 20 61 63 63 75 72 61 74 |ve to be| accurat|
|00005d40| 65 2c 20 62 75 74 20 74 | 68 65 20 70 72 69 6e 74 |e, but t|he print|
|00005d50| 65 64 20 73 74 61 74 69 | 73 74 69 63 73 20 77 69 |ed stati|stics wi|
|00005d60| 6c 6c 20 62 65 0a 58 20 | 2a 20 6f 66 66 20 61 20 |ll be.X |* off a |
|00005d70| 6c 69 74 74 6c 65 20 62 | 69 74 20 69 66 20 74 68 |little b|it if th|
|00005d80| 65 79 20 61 72 65 20 6e | 6f 74 2e 0a 58 20 2a 2f |ey are n|ot..X */|
|00005d90| 0a 58 23 64 65 66 69 6e | 65 20 4d 41 4c 4c 4f 43 |.X#defin|e MALLOC|
|00005da0| 5f 4f 56 45 52 48 45 41 | 44 20 20 28 53 49 5a 45 |_OVERHEA|D (SIZE|
|00005db0| 4f 46 28 76 6f 69 64 20 | 2a 29 29 20 2f 2a 20 6f |OF(void |*)) /* o|
|00005dc0| 76 65 72 68 65 61 64 20 | 66 6f 72 20 6a 67 65 74 |verhead |for jget|
|00005dd0| 5f 73 6d 61 6c 6c 28 29 | 20 2a 2f 0a 58 23 64 65 |_small()| */.X#de|
|00005de0| 66 69 6e 65 20 4d 41 4c | 4c 4f 43 5f 46 41 52 5f |fine MAL|LOC_FAR_|
|00005df0| 4f 56 45 52 48 45 41 44 | 20 20 28 53 49 5a 45 4f |OVERHEAD| (SIZEO|
|00005e00| 46 28 76 6f 69 64 20 46 | 41 52 20 2a 29 29 20 2f |F(void F|AR *)) /|
|00005e10| 2a 20 66 6f 72 20 6a 67 | 65 74 5f 6c 61 72 67 65 |* for jg|et_large|
|00005e20| 28 29 20 2a 2f 0a 58 0a | 58 73 74 61 74 69 63 20 |() */.X.|Xstatic |
|00005e30| 6c 6f 6e 67 20 74 6f 74 | 61 6c 5f 6e 75 6d 5f 73 |long tot|al_num_s|
|00005e40| 6d 61 6c 6c 20 3d 20 30 | 3b 09 2f 2a 20 74 6f 74 |mall = 0|;./* tot|
|00005e50| 61 6c 20 23 20 6f 66 20 | 73 6d 61 6c 6c 20 6f 62 |al # of |small ob|
|00005e60| 6a 65 63 74 73 20 61 6c | 6c 6f 63 65 64 20 2a 2f |jects al|loced */|
|00005e70| 0a 58 73 74 61 74 69 63 | 20 6c 6f 6e 67 20 74 6f |.Xstatic| long to|
|00005e80| 74 61 6c 5f 62 79 74 65 | 73 5f 73 6d 61 6c 6c 20 |tal_byte|s_small |
|00005e90| 3d 20 30 3b 09 2f 2a 20 | 74 6f 74 61 6c 20 62 79 |= 0;./* |total by|
|00005ea0| 74 65 73 20 72 65 71 75 | 65 73 74 65 64 20 2a 2f |tes requ|ested */|
|00005eb0| 0a 58 73 74 61 74 69 63 | 20 6c 6f 6e 67 20 63 75 |.Xstatic| long cu|
|00005ec0| 72 5f 6e 75 6d 5f 73 6d | 61 6c 6c 20 3d 20 30 3b |r_num_sm|all = 0;|
|00005ed0| 09 09 2f 2a 20 23 20 63 | 75 72 72 65 6e 74 6c 79 |../* # c|urrently|
|00005ee0| 20 61 6c 6c 6f 63 65 64 | 20 2a 2f 0a 58 73 74 61 | alloced| */.Xsta|
|00005ef0| 74 69 63 20 6c 6f 6e 67 | 20 6d 61 78 5f 6e 75 6d |tic long| max_num|
|00005f00| 5f 73 6d 61 6c 6c 20 3d | 20 30 3b 09 09 2f 2a 20 |_small =| 0;../* |
|00005f10| 6d 61 78 20 73 69 6d 75 | 6c 74 61 6e 65 6f 75 73 |max simu|ltaneous|
|00005f20| 6c 79 20 61 6c 6c 6f 63 | 65 64 20 2a 2f 0a 58 0a |ly alloc|ed */.X.|
|00005f30| 58 23 69 66 64 65 66 20 | 4e 45 45 44 5f 41 4c 4c |X#ifdef |NEED_ALL|
|00005f40| 4f 43 5f 4d 45 44 49 55 | 4d 0a 58 73 74 61 74 69 |OC_MEDIU|M.Xstati|
|00005f50| 63 20 6c 6f 6e 67 20 74 | 6f 74 61 6c 5f 6e 75 6d |c long t|otal_num|
|00005f60| 5f 6d 65 64 69 75 6d 20 | 3d 20 30 3b 09 2f 2a 20 |_medium |= 0;./* |
|00005f70| 74 6f 74 61 6c 20 23 20 | 6f 66 20 6d 65 64 69 75 |total # |of mediu|
|00005f80| 6d 20 6f 62 6a 65 63 74 | 73 20 61 6c 6c 6f 63 65 |m object|s alloce|
|00005f90| 64 20 2a 2f 0a 58 73 74 | 61 74 69 63 20 6c 6f 6e |d */.Xst|atic lon|
|00005fa0| 67 20 74 6f 74 61 6c 5f | 62 79 74 65 73 5f 6d 65 |g total_|bytes_me|
|00005fb0| 64 69 75 6d 20 3d 20 30 | 3b 09 2f 2a 20 74 6f 74 |dium = 0|;./* tot|
|00005fc0| 61 6c 20 62 79 74 65 73 | 20 72 65 71 75 65 73 74 |al bytes| request|
|00005fd0| 65 64 20 2a 2f 0a 58 73 | 74 61 74 69 63 20 6c 6f |ed */.Xs|tatic lo|
|00005fe0| 6e 67 20 63 75 72 5f 6e | 75 6d 5f 6d 65 64 69 75 |ng cur_n|um_mediu|
|00005ff0| 6d 20 3d 20 30 3b 09 09 | 2f 2a 20 23 20 63 75 72 |m = 0;..|/* # cur|
|00006000| 72 65 6e 74 6c 79 20 61 | 6c 6c 6f 63 65 64 20 2a |rently a|lloced *|
|00006010| 2f 0a 58 73 74 61 74 69 | 63 20 6c 6f 6e 67 20 6d |/.Xstati|c long m|
|00006020| 61 78 5f 6e 75 6d 5f 6d | 65 64 69 75 6d 20 3d 20 |ax_num_m|edium = |
|00006030| 30 3b 09 09 2f 2a 20 6d | 61 78 20 73 69 6d 75 6c |0;../* m|ax simul|
|00006040| 74 61 6e 65 6f 75 73 6c | 79 20 61 6c 6c 6f 63 65 |taneousl|y alloce|
|00006050| 64 20 2a 2f 0a 58 23 65 | 6e 64 69 66 0a 58 0a 58 |d */.X#e|ndif.X.X|
|00006060| 73 74 61 74 69 63 20 6c | 6f 6e 67 20 74 6f 74 61 |static l|ong tota|
|00006070| 6c 5f 6e 75 6d 5f 73 61 | 72 72 61 79 20 3d 20 30 |l_num_sa|rray = 0|
|00006080| 3b 09 2f 2a 20 74 6f 74 | 61 6c 20 23 20 6f 66 20 |;./* tot|al # of |
|00006090| 73 61 72 72 61 79 20 6f | 62 6a 65 63 74 73 20 61 |sarray o|bjects a|
|000060a0| 6c 6c 6f 63 65 64 20 2a | 2f 0a 58 73 74 61 74 69 |lloced *|/.Xstati|
|000060b0| 63 20 6c 6f 6e 67 20 74 | 6f 74 61 6c 5f 62 79 74 |c long t|otal_byt|
|000060c0| 65 73 5f 73 61 72 72 61 | 79 20 3d 20 30 3b 09 2f |es_sarra|y = 0;./|
|000060d0| 2a 20 74 6f 74 61 6c 20 | 62 79 74 65 73 20 72 65 |* total |bytes re|
|000060e0| 71 75 65 73 74 65 64 20 | 2a 2f 0a 58 73 74 61 74 |quested |*/.Xstat|
|000060f0| 69 63 20 6c 6f 6e 67 20 | 63 75 72 5f 6e 75 6d 5f |ic long |cur_num_|
|00006100| 73 61 72 72 61 79 20 3d | 20 30 3b 09 09 2f 2a 20 |sarray =| 0;../* |
|00006110| 23 20 63 75 72 72 65 6e | 74 6c 79 20 61 6c 6c 6f |# curren|tly allo|
|00006120| 63 65 64 20 2a 2f 0a 58 | 73 74 61 74 69 63 20 6c |ced */.X|static l|
|00006130| 6f 6e 67 20 6d 61 78 5f | 6e 75 6d 5f 73 61 72 72 |ong max_|num_sarr|
|00006140| 61 79 20 3d 20 30 3b 09 | 09 2f 2a 20 6d 61 78 20 |ay = 0;.|./* max |
|00006150| 73 69 6d 75 6c 74 61 6e | 65 6f 75 73 6c 79 20 61 |simultan|eously a|
|00006160| 6c 6c 6f 63 65 64 20 2a | 2f 0a 58 0a 58 73 74 61 |lloced *|/.X.Xsta|
|00006170| 74 69 63 20 6c 6f 6e 67 | 20 74 6f 74 61 6c 5f 6e |tic long| total_n|
|00006180| 75 6d 5f 62 61 72 72 61 | 79 20 3d 20 30 3b 09 2f |um_barra|y = 0;./|
|00006190| 2a 20 74 6f 74 61 6c 20 | 23 20 6f 66 20 62 61 72 |* total |# of bar|
|000061a0| 72 61 79 20 6f 62 6a 65 | 63 74 73 20 61 6c 6c 6f |ray obje|cts allo|
|000061b0| 63 65 64 20 2a 2f 0a 58 | 73 74 61 74 69 63 20 6c |ced */.X|static l|
|000061c0| 6f 6e 67 20 74 6f 74 61 | 6c 5f 62 79 74 65 73 5f |ong tota|l_bytes_|
|000061d0| 62 61 72 72 61 79 20 3d | 20 30 3b 09 2f 2a 20 74 |barray =| 0;./* t|
|000061e0| 6f 74 61 6c 20 62 79 74 | 65 73 20 72 65 71 75 65 |otal byt|es reque|
|000061f0| 73 74 65 64 20 2a 2f 0a | 58 73 74 61 74 69 63 20 |sted */.|Xstatic |
|00006200| 6c 6f 6e 67 20 63 75 72 | 5f 6e 75 6d 5f 62 61 72 |long cur|_num_bar|
|00006210| 72 61 79 20 3d 20 30 3b | 09 09 2f 2a 20 23 20 63 |ray = 0;|../* # c|
|00006220| 75 72 72 65 6e 74 6c 79 | 20 61 6c 6c 6f 63 65 64 |urrently| alloced|
|00006230| 20 2a 2f 0a 58 73 74 61 | 74 69 63 20 6c 6f 6e 67 | */.Xsta|tic long|
|00006240| 20 6d 61 78 5f 6e 75 6d | 5f 62 61 72 72 61 79 20 | max_num|_barray |
|00006250| 3d 20 30 3b 09 09 2f 2a | 20 6d 61 78 20 73 69 6d |= 0;../*| max sim|
|00006260| 75 6c 74 61 6e 65 6f 75 | 73 6c 79 20 61 6c 6c 6f |ultaneou|sly allo|
|00006270| 63 65 64 20 2a 2f 0a 58 | 0a 58 0a 58 4c 4f 43 41 |ced */.X|.X.XLOCA|
|00006280| 4c 20 76 6f 69 64 0a 58 | 70 72 69 6e 74 5f 6d 65 |L void.X|print_me|
|00006290| 6d 5f 73 74 61 74 73 20 | 28 76 6f 69 64 29 0a 58 |m_stats |(void).X|
|000062a0| 7b 0a 58 20 20 2f 2a 20 | 73 69 6e 63 65 20 74 68 |{.X /* |since th|
|000062b0| 69 73 20 69 73 20 6f 6e | 6c 79 20 61 20 64 65 62 |is is on|ly a deb|
|000062c0| 75 67 67 69 6e 67 20 73 | 74 75 62 2c 20 77 65 20 |ugging s|tub, we |
|000062d0| 63 61 6e 20 63 68 65 61 | 74 20 61 20 6c 69 74 74 |can chea|t a litt|
|000062e0| 6c 65 20 6f 6e 20 74 68 | 65 0a 58 20 20 20 2a 20 |le on th|e.X * |
|000062f0| 74 72 61 63 65 20 6d 65 | 73 73 61 67 65 20 6d 65 |trace me|ssage me|
|00006300| 63 68 61 6e 69 73 6d 2e | 2e 2e 20 68 65 6c 70 66 |chanism.|.. helpf|
|00006310| 75 6c 20 27 63 75 7a 20 | 74 72 61 63 65 5f 6d 65 |ul 'cuz |trace_me|
|00006320| 73 73 61 67 65 20 63 61 | 6e 27 74 20 68 61 6e 64 |ssage ca|n't hand|
|00006330| 6c 65 20 6c 6f 6e 67 73 | 2e 0a 58 20 20 20 2a 2f |le longs|..X */|
|00006340| 0a 58 20 20 66 70 72 69 | 6e 74 66 28 73 74 64 65 |.X fpri|ntf(stde|
|00006350| 72 72 2c 20 22 74 6f 74 | 61 6c 5f 6e 75 6d 5f 73 |rr, "tot|al_num_s|
|00006360| 6d 61 6c 6c 20 3d 20 25 | 6c 64 5c 6e 22 2c 20 74 |mall = %|ld\n", t|
|00006370| 6f 74 61 6c 5f 6e 75 6d | 5f 73 6d 61 6c 6c 29 3b |otal_num|_small);|
|00006380| 0a 58 20 20 66 70 72 69 | 6e 74 66 28 73 74 64 65 |.X fpri|ntf(stde|
|00006390| 72 72 2c 20 22 74 6f 74 | 61 6c 5f 62 79 74 65 73 |rr, "tot|al_bytes|
|000063a0| 5f 73 6d 61 6c 6c 20 3d | 20 25 6c 64 5c 6e 22 2c |_small =| %ld\n",|
|000063b0| 20 74 6f 74 61 6c 5f 62 | 79 74 65 73 5f 73 6d 61 | total_b|ytes_sma|
|000063c0| 6c 6c 29 3b 0a 58 20 20 | 69 66 20 28 63 75 72 5f |ll);.X |if (cur_|
|000063d0| 6e 75 6d 5f 73 6d 61 6c | 6c 29 0a 58 20 20 20 20 |num_smal|l).X |
|000063e0| 66 70 72 69 6e 74 66 28 | 73 74 64 65 72 72 2c 20 |fprintf(|stderr, |
|000063f0| 22 63 75 72 5f 6e 75 6d | 5f 73 6d 61 6c 6c 20 3d |"cur_num|_small =|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
