tyler.durden/kernel
1
0
Fork 0
mirror of https://github.com/FDOS/kernel.git synced 2025-07-22 21:34:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

See history.txt

Browse Source 
git-svn-id: https://svn.code.sf.net/p/freedos/svn/kernel/trunk@57 6ac86273-5f31-0410-b378-82cca8765d1b
This commit is contained in:
Jim Tabor 2000-08-06 04:18:21 +00:00
parent c0df6767f2
commit 214dfed06b
7 changed files with 419 additions and 156 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hdr/fat.h
View File

@ -36,8 +36,8 @@ static BYTE *fat_hRcsId = "$Id$";
/* /*
* $Log$ * $Log$
* Revision 1.4 2000/06/21 18:16:46 jimtabor * Revision 1.5 2000/08/06 04:18:21 jimtabor
* Add UMB code, patch, and code fixes * See history.txt
* *
* Revision 1.3 2000/05/25 20:56:19 jimtabor * Revision 1.3 2000/05/25 20:56:19 jimtabor
* Fixed project history * Fixed project history
@ -95,6 +95,8 @@ static BYTE *fat_hRcsId = "$Id$";
#define D_VOLID 0x08 /* volume id */ #define D_VOLID 0x08 /* volume id */
#define D_DIR 0x10 /* subdir */ #define D_DIR 0x10 /* subdir */
#define D_ARCHIVE 0x20 /* archive bit */ #define D_ARCHIVE 0x20 /* archive bit */
/* /// Added D_DEVICE bit. - Ron Cemer */
#define D_DEVICE 0x40 /* device bit */
/* FAT file name constants */ /* FAT file name constants */
#define FNAME_SIZE 8 #define FNAME_SIZE 8

4
hdr/mcb.h
View File

@ -36,8 +36,8 @@ static BYTE *mcb_hRcsId = "$Id$";
/* /*
* $Log$ * $Log$
* Revision 1.4 2000/06/21 18:16:46 jimtabor * Revision 1.5 2000/08/06 04:18:21 jimtabor
* Add UMB code, patch, and code fixes * See history.txt
* *
* Revision 1.3 2000/05/25 20:56:19 jimtabor * Revision 1.3 2000/05/25 20:56:19 jimtabor
* Fixed project history * Fixed project history

480
hdr/nls.h
View File

@ -5,7 +5,7 @@
/* */ /* */
/* National Language Support data structures */ /* National Language Support data structures */
/* */ /* */
/* Copyright (c) 1995, 1996, 2000 */ /* Copyright (c) 2000 */
/* Steffen Kaiser */ /* Steffen Kaiser */
/* All Rights Reserved */ /* All Rights Reserved */
/* */ /* */
@ -28,17 +28,7 @@
/****************************************************************/ /****************************************************************/
/* one byte alignment */ /* one byte alignment */
#include <algnbyte.h>
#if defined(_MSC_VER)
#define asm __asm
#pragma pack(1)
#elif defined(_QC) || defined(__WATCOM__)
#pragma pack(1)
#elif defined(__ZTC__)
#pragma ZTC align 1
#elif defined(__TURBOC__) && (__TURBOC__ > 0x202)
#pragma option -a-
#endif
/* /*
* Description of the organization of NLS information -- 2000/02/13 ska * Description of the organization of NLS information -- 2000/02/13 ska
@ -52,11 +42,11 @@
* *
* The code included into the kernel does "only" support NLS packages * The code included into the kernel does "only" support NLS packages
* structurally compatible with the one of the U.S.A. / CP437. * structurally compatible with the one of the U.S.A. / CP437.
* I guess that most NLS packages has been tweaked to be compatible * I guess that most NLS packages has been tweaked to be compatible,
* so that this is not a real limitation, but for all other packages * so that this is not a real limitation, but for all other packages
* the external NLSFUNC can supply every piece of code necessary. * the external NLSFUNC can supply every piece of code necessary.
* To allow this the interface between the kernel and NLSFUNC has been * To allow this the interface between the kernel and NLSFUNC has been
* extended; at same time the interface has been reduced, because some * extended; at the same time the interface has been reduced, because some
* of the API functions do not seem to offer any functionality required * of the API functions do not seem to offer any functionality required
* for now. This, however, may be a misinterpretation because of * for now. This, however, may be a misinterpretation because of
* lack of understanding. * lack of understanding.
@ -64,7 +54,7 @@
* The supported structure consists of the following assumptions: * The supported structure consists of the following assumptions:
* 1) The pkg must contain the tables 2 (Upcase character), 4 * 1) The pkg must contain the tables 2 (Upcase character), 4
* (Upcase filename character) and 5 (filename termination * (Upcase filename character) and 5 (filename termination
* characters); because they are internally used. * characters); because they are used internally.
* 2) The tables 2 and 4 must contain exactly 128 (0x80) characters. * 2) The tables 2 and 4 must contain exactly 128 (0x80) characters.
* The character at index 0 corresponses to character 128 (0x80). * The character at index 0 corresponses to character 128 (0x80).
* The characters in the range of 0..0x7f are constructed out of * The characters in the range of 0..0x7f are constructed out of
@ -72,6 +62,12 @@
* upcased not through the table, but by the expression: * upcased not through the table, but by the expression:
* (ch >= 'a' && ch <= 'z')? ch - 'a' + 'A': ch * (ch >= 'a' && ch <= 'z')? ch - 'a' + 'A': ch
* with: 'a' == 97; 'z' == 122; 'A' == 65 * with: 'a' == 97; 'z' == 122; 'A' == 65
* 3) The data to be returned by DOS-65 is enlisted in the
* nlsPointer[] array of the nlsPackage structure, including
* the DOS-65-01 data, which always must be last entry of the
* array.
* 4) DOS-38 returns the 34 bytes beginning with the byte at offset
* 4 behind the size field of DOS-65-01.
* *
* It seems that pure DOS can internally maintain two NLS pkgs: * It seems that pure DOS can internally maintain two NLS pkgs:
* NLS#1: The hardcoded pkg of U.S.A. on CP437, and * NLS#1: The hardcoded pkg of U.S.A. on CP437, and
@ -79,18 +75,18 @@
* I do interprete this behaviour as follows: * I do interprete this behaviour as follows:
* CONFIG.SYS is read in more passes; before COUTRY= can be evaluated, * CONFIG.SYS is read in more passes; before COUTRY= can be evaluated,
* many actions must be performed, e.g. to load kernel at all, open * many actions must be performed, e.g. to load kernel at all, open
* CONFIG.SYS and begin reading. The kernel requires at least one * CONFIG.SYS and begin reading. The kernel requires at least two
* NLS information _before_ COUNTRY= has been evaluated - the upcase * NLS information _before_ COUNTRY= has been evaluated - both upcase
* table. To not implement the same function multiple times, e.g. * tables. To not implement the same function multiple times, e.g.
* to upcase with and without table, the kernel uses the default * to upcase with and without table, the kernel uses the default
* NLS pkg until a more appropriate can be loaded and hopes that * NLS pkg until a more appropriate one can be loaded and hopes that
* the BIOS (and the user) can live with its outcome. * the BIOS (and the user) can live with its outcome.
* Though, theoretically, the hardcoded NLS pkg could be purged * Though, theoretically, the hardcoded NLS pkg could be purged
* or overwritten once the COUNTRY= statement has been evaluated. * or overwritten once the COUNTRY= statement has been evaluated.
* It would be possible that this NLS pkg internally performs different * It would be possible that this NLS pkg internally performs different
* purposes, for now this behaviour will be kept. * purposes, for now this behaviour will be kept.
* *
* The current implementation extendeds the above "two maintained * The current implementation extends the above "two maintained
* NLS pkgs" into that the kernel chains all NLS pkgs loaded in * NLS pkgs" into that the kernel chains all NLS pkgs loaded in
* memory into one single linked list. When the user does neither * memory into one single linked list. When the user does neither
* wants to load other NLS pkgs without executing NLSFUNC and the * wants to load other NLS pkgs without executing NLSFUNC and the
@ -103,20 +99,151 @@
* to add any code and residently install the MUX handler for NLSFUNC. * to add any code and residently install the MUX handler for NLSFUNC.
* This technique reduces the overhead calling the MUX handler, when * This technique reduces the overhead calling the MUX handler, when
* it is not needed. * it is not needed.
* However, NLSFUNC is always required if the user wants to return
* information about NLS pkgs _not_ loaded into memory.
* *
* The kernel can be instructed to pass any subfunction of DOS-65 to *=== Attention: Because the nlsInfoBlock structure differs from the
* MUX-14-02, including the character upcase subfunctions 0x20-0x22 and *=== the "traditional" (aka MS) implementation, the MUX-14 interface
* 0xA0-0xA2 as well as 0x23 (yes/no response). That way upcase table can *=== is _not_ MS-compatible, although all the registers etc.
* be supported (by reducing performance) that do not contain exactly 128 *=== do conform. -- 2000/02/26 ska
* characters or where the lower portion is not constructed from the 7-bit *
* US-ASCII character set. * Previous failed attempts to implement NLS handling and a full-
* To do so, each NLS pkg contains some flags specifying if to pass a * featured MUX-14 supporting any-structured NLS pkgs suggest
* set of subfunctions to MUX-14-02, the sets include: * to keep the implement as simple as possible and keep the
* set#1: filename character upcase 0xA0-0xA2 * optimization direction off balance and to tend toward either
* set#2: character upcase 0x20-0x22 * an optimization for speed or size.
* set#3: yes/no response 0x23 *
* set#4: Extended Country Information (Includes DOS-38) * The most problem is that the MUX interrupt chain is considered
* set#5: Anything else (usually picks a pointer from an array) * highly overcrowded, so if the kernels invokes it itself, the
* performance might decrease dramatically; on the other side, the
* more complex the interface between kernel and a _probably_ installed
* external NLSFUNC becomes the more difficult all the stuff is becoming
* and, most importantly, the size grows unnecessarily, because many
* people don't use NLSFUNC at all.
*
* The kernel uses the NLS pkg itself for two operations:
* 1) DOS-65-2x and DOS-65-Ax: Upcase character, string, memory area, &
* 2) whenever a filename is passed into the kernel, its components
* must be identified, invalid characters must be detected
* and, finally, all letters must be uppercased.
* I do not consider operation 1) an action critical for performance,
* because traditional DOS programming praxis says: Do it Yourself; so
* one can consider oneself lucky that a program aquires the upcase
* table once in its life time (I mean: lucky the program calls NLS at all).
* Operation 2), in opposite, might dramatically reduce performance, if
* it lacks proper implementations.
*
* Straight forward implementation:
* The basic implementation of the NLS channels all requests of DOS-65,
* DOS-66, and DOS-38 through MUX-14. Hereby, any external program, such
* as NLSFUNC, may (or may not) install a piece of code to filter
* one, few, or all requests in order to perform them itself, by default
* all requests will end within the root of the MUX interrupt, which is
* located within the kernel itself. An access path could look like this:
* 1. Call to DOS-65-XX, DOS-66-XX, or DOS-38.
* 2. The kernel is enterred through the usual INT-21 API handler.
* 3. The request is decoded and one of the NLS.C function is called.
* 4. This function packs a new request and calls MUX-14.
* 5. Every TSR/driver hooking INT-2F will check, if the request is
* directed for itself;
* 5.1. If not, the request is passed on to the next item of the MUX
* interrupt chain;
* 5.2. If so, the TSR, e.g. NLSFUNC, tests if the request is to be
* performed internally;
* 5.2.1. If so, the request is performed and the MUX-14 call is
* terminated (goto step 8.)
* 5.2.2. If not, the request is passed on (see step 5.1.)
* 6. If all TSRs had their chance to filter requests, but none decided
* to perform the request itself, the kernel is (re-)enterred
* through its INT-2F (MUX) API handler.
* 7. Here the request is decoded again and performed with the kernel-
* internal code; then the MUX-14 call is terminated.
* 8. When the MUX-14 call returns, it has setup all return parameters
* already, so the INT-21 call is terminated as well.
*
* Note: The traditional MUX-14 is NOT supported to offer functionality
* to the kernel at the first place, but to let the kernel access and
* return any values they must be loaded into memory, but the user may
* request information through the DOS-65 interface of NLS pkgs _not_
* already loaded. Theoretically, NLSFUNC needs not allocate any internal
* buffer to load the data into, because the user already supplied one;
* also if the kernel would instruct NLSFUNC to load the requested
* NLS pkg, more memory than necessary would be allocated. However, all
* except subfunction 1 return a _pointer_ to the data rather than the
* data itself; that means that NLSFUNC must cache the requested data
* somewhere, but how long?
*
* Performance tweaks:
* When the system -- This word applies to the combination of kernel and
* any loaded MUX-14 extension   la NLSFUNC here. -- uppercases
* _filenames_, it must perform a DOS-65-A2 internally. In the basic
* implementation this request would be channeled through MUX-14, even
* if there is no external NLSFUNC at all. Also, when a NLS pkg had
* been loaded by the kernel itself, it complies to above mentioned
* rules and it is very unlikely that it is necessary to probe if
* a MUX-14 TSR might want to perform the request itself. Therefore
* each NLS pkg contains some flags that allow the kernel to bypass
* the MUX-14 request and invoke the proper function directly. Both
* default NLS pkgs will have those flags enabled, because they are
* already loaded into memory and must comply to the rules.
*
* Note: Those flags do not alter the way the request is actually
* performed, but the MUX-14 call is omitted only (steps 4. through 6.).
*
* ======= Description of the API
*
* There are three APIs to be supported by NLS:
* 1) DOS API: DOS-38, DOS-65, DOS-66;
* 2) MUX-14, and
* 3) internal: upcasing filenames.
*
* 1) and 2) address the used NLS pkg by the country code / codepage pair.
* 3) uses the currently active NLS pkg only; furthermore, these functions
* more or less match DOS-64-A*. Therefore, the NLS system merges the
* interfaces 1) and 3) and offers function suitable for both ones.
*
* Both 1) and 3) must channel the request through the MUX chain, if
* appropriate, whereas 2) is the back-end and does natively process the
* request totally on its own.
*
* The API of 1) and 3) consists of:
* + DosUpChar(), DosUpString(), and DosUpMem(): to upcase an object
* (DOS-65-2[0-2]);
* + DosYesNo(): to check a character, if it is the yes or no prompt
* (DOS-65-23);
* + DosUpFChar(), DosUpFString(), and DosUpFMem(): to upcase an object
* for filenames (DOS-65-A[0-2]);
* + DosGetData(): to retreive certain information (DOS-38, all the
* other DOS-65-** subfunctions);
* + DosSetCountry(): to change the currently active country code
* (DOS-38);
* + DosSetCodepage(): to change the currently active codepage (DOS-66).
*
* The API of 2) consists of:
* + syscall_MUX14().
* This function is invoked for all MUX-14 requests and recieves the
* registers of the particular INT-2F call, it will then decode the
* registers and pass the request forth to a NLS-internal interface
* consisting of the following "static" functions:
* + nlsUpMem(): called for DosUp*(),
* + nlsUpFMem(): called for DosUpF*(),
* + nlsYesNo(): called for DosYesNo(),
* + nlsGetData(): called for DosGetData(),&
* + nlsSetPackage(): called for DosSetCountry() and DosSetCodepage().
* In opposite of the APIs 1) through 3) the NLS-internal functions address
* the NLS pkg to operate upon by a (struct nlsInfoBlock *) pointer.
*
* This designs supports to easily implement to bypass the MUX chain to
* speed up especially the internal API to upcase filenames, because
* the Dos*() functions can decide do not pass the request through MUX,
* but directly call the nls*() function instead. This way it is ensured
* that the performed actions are the same in both cases and, with repect
* to the functions that operate with the currently active NLS pkg, the
* performance is rather high, because one can use the globally available
* pointer to the current NLS pkg and need not search for a country code/
* codepage pair.
*
* ======== Compile-time options
* *
* Win9x supports to change the individual portions of a NLS pkg * Win9x supports to change the individual portions of a NLS pkg
* through DOS-65-00; also there are no references what happens when * through DOS-65-00; also there are no references what happens when
@ -128,29 +255,20 @@
* enables the appropriate code. * enables the appropriate code.
* NLS_MODIFYABLE_DATA is *disabled* by default. * NLS_MODIFYABLE_DATA is *disabled* by default.
* *
* The tables 2 and 4 (upcase tables) are relatively accessed often, * The tables 2 and 4 (upcase tables) are accessed relatively often,
* but theoretically these tables could be loacted at any position * but theoretically these tables could be located at any position
* of the pointer array. If the macro NLS_REORDER_POINTERS is enabled, * of the pointer array. If the macro NLS_REORDER_POINTERS is enabled,
* both NLSFUNC and the internal loader will reorder the pointers * both NLSFUNC and the internal loader will reorder the pointers
* array so that mandatory tables are located at predictable indexes. * array so that mandatory tables are located at predictable indexes.
* This removes that the kernel must search for the table when * This removes that the kernel must search for the table when
* one of the DOS-65-[2A]x function is called or a filename has been * one of the DOS-65-[2A]x functions is called or a filename has been
* passed in (which must be uppercased to be suitable for internal * passed in (which must be uppercased to be suitable for internal
* purpose). However, when some program try to tweak the internal * purpose). However, when some program try to tweak the internal
* tables this assumption could be wrong. * tables this assumption could be wrong.
* This setting has any effect only, if the kernel tries to access
* information itself; it is ignored when the user calls DOS-65-0x
* to return such pointer.
* NLS_REORDER_POINTERS is *enabled* by default. * NLS_REORDER_POINTERS is *enabled* by default.
*
* A second performance boost can be achieved, if the kernel shall
* support *only* NLS pkgs that apply to the structure mentioned above,
* thus, contain only characters 0x80-0xFF and the range 0x00-0x7F
* is upcased as 7-bit US-ASCII. In this case when upcasing the
* NLS pkg is bypassed at all, but cached pointers are used, which
* point directly to the upcased characters. Because I don't know
* existing NLS pkgs, this feature may be not very trustworthy; also
* when the NLS pkg is switched bypassing DOS, the cached pointers
* won't be updated, also by enabling this macro the MUX-flags are
* ignored for the sub-functions DOS-65-[2A][0-2], therefore:
* NLS_CACHE_POINTERS is *disabled* by default.
*/ */
/* Define if some user program possibly modifies the value of the internal /* Define if some user program possibly modifies the value of the internal
@ -163,70 +281,62 @@
access to often used and mandatoryly present tables. */ access to often used and mandatoryly present tables. */
#define NLS_REORDER_POINTERS #define NLS_REORDER_POINTERS
/* Define if the kernel is to cache the time-consuming search results.
Doing so could lead to imporper functionality, if the active
codepage or country ID is changed bypassing the DOS API. */
/* #define NLS_CACHE_POINTERS */
/* /*
* How the kernel and NLSFUNC communicate with each other * How the kernel and NLSFUNC communicate with each other
*/ */
/* Must be returned by NLSFUNC upon MUX-14-00 */ /* Must be returned by NLSFUNC upon MUX-14-00 */
#define NLS_FREEDOS_NLSFUNC_ID 0x534b #define NLS_FREEDOS_NLSFUNC_ID 0x534b
/* MUX-14 subfunction called by the kernel to load a specific /* Represents a call to DOS-38 within DOS-65 handlers.
NLS package */ Current implementation relys on 0x101! */
#define NLS_NLSFUNC_LOAD_PKG 0x4b #define NLS_DOS_38 0x101
/* MUX-14 subfunction called when to externally upcase */ /* NLSFUNC may return NLS_REDO to instruct the kernel to
#define NLS_NLSFUNC_UP 0x61 try to perform the same action another time. This is most
/* MUX-14 subfunction called when to externally upcase filenames */ useful if the kernel only loads the NLS pkg into memory so
#define NLS_NLSFUNC_FUP 0x69 the kernel will find it and will process the request internally
/* Internally used to represent DOS-38 */ now. */
#define NLS_DOS_38 0x7365 #define NLS_REDO 353
/* MUX-14 subfunction called when to check yes/nochar */
#define NLS_NLSFUNC_YESNO 0x72
/* Flags for the communication with NLSFUNC */ /* Codes of the subfunctions of external NLSFUNC */
#define NLS_FLAG_INFO 0x001 #define NLSFUNC_INSTALL_CHECK 0
#define NLS_FLAG_POINTERS 0x002 #define NLSFUNC_DOS38 4
#define NLS_FLAG_YESNO 0x004 #define NLSFUNC_GETDATA 2
#define NLS_FLAG_UP 0x008 #define NLSFUNC_DRDOS_GETDATA 0xfe
#define NLS_FLAG_FUP 0x010 #define NLSFUNC_LOAD_PKG 3
#define NLSFUNC_LOAD_PKG2 1
#define NLSFUNC_UPMEM 0x22
#define NLSFUNC_YESNO 0x23
#define NLSFUNC_FILE_UPMEM 0xa2
/* To ease the maintainance this header file is included to /* The NLS implementation flags encode what feature is in effect;
a) define the "normal" structures, where all the non-fixed size a "1" in the bitfield means that the feature is active.
arrays are noted with length "1", and All currently non-defined bits are to be zero to allow future
b) define the hardcoded NLS package for U.S.A. -- CP437 useage. */
If the macro NLS_HARDCODED is defined, the structures are modifed #define NLS_CODE_MODIFYABLE_DATA 0x0001
to result into structures with the correct length. #define NLS_CODE_REORDER_POINTERS 0x0002
When NLS_NO_VARS is defined, no prototypes of the global /* NLS package useage flags encode what feature is in effect for this
variables are included, useful in sources defining the hardcoded particular package:
information, but require the normal types, too. a "1" in the bitfield means that the feature is active/enabled.
*/ All currently non-defined bits are to be zero to allow future
#ifndef NLS_HARDCODED useage. */
/* Use the default of length == 1 */ #define NLS_FLAG_DIRECT_UPCASE 0x0001 /* DOS-65-2[012], */
#define NLS_POINTERS 1 #define NLS_FLAG_DIRECT_FUPCASE 0x0002 /* DOS-65-A[012], internal */
#define NLS_FNAMSEPS 1 #define NLS_FLAG_DIRECT_YESNO 0x0004 /* DOS-65-23 */
#define NLS_DBCSENTR 1 #define NLS_FLAG_DIRECT_GETDATA 0x0008 /* DOS-65-XX, DOS-38 */
#define __join(a,b) a
#define mkName(a) a
#else #define NLS_FLAG_HARDCODED NLS_FLAG_DIRECT_UPCASE \
| NLS_FLAG_DIRECT_FUPCASE \
#define __join(a,b) a##b | NLS_FLAG_DIRECT_YESNO \
#define mkName(a) __join(a,NLS_HARDCODED) | NLS_FLAG_DIRECT_GETDATA
#endif
/* No codepage / country code given */ /* No codepage / country code given */
#define NLS_DEFAULT ((UWORD)-1) #define NLS_DEFAULT ((UWORD)-1)
#ifndef NLS_HARDCODED
/* /*
* This is the data in the exact order returned by DOS-65-01 * This is the data in the exact order returned by DOS-65-01
*/ */
struct nlsExtCtryInfo struct nlsExtCntryInfo
{ {
UBYTE subfct; /* always 1 */ UBYTE subfct; /* always 1 */
WORD size; /* size of this structure WORD size; /* size of this structure
@ -269,12 +379,12 @@ struct nlsExtCtryInfo
0: 12 hours (append AM/PM) 0: 12 hours (append AM/PM)
1: 24 houres 1: 24 houres
*/ */
VOID(FAR * upCaseFct) (VOID); /* far call to a function mapping the VOID(FAR * upCaseFct) (VOID); /* far call to a function upcasing the
character in register AL */ character in register AL */
char dataSep[2]; /* ASCIZ of separator in data records */ char dataSep[2]; /* ASCIZ of separator in data records */
}; };
struct nlsPointerInf { /* Information of DOS-65-0X is usually addressed struct nlsPointer { /* Information of DOS-65-0X is addressed
by a pointer */ by a pointer */
UBYTE subfct; /* number of the subfunction */ UBYTE subfct; /* number of the subfunction */
VOID FAR *pointer; /* the pointer to be returned when the subfunction VOID FAR *pointer; /* the pointer to be returned when the subfunction
@ -282,43 +392,45 @@ struct nlsPointerInf { /* Information of DOS-65-0X is usually addressed
subfunctions 0, 1, 0x20, 0x21, 0x22, 0x23, subfunctions 0, 1, 0x20, 0x21, 0x22, 0x23,
0xA0, 0xA1,& 0xA2 */ 0xA0, 0xA1,& 0xA2 */
}; };
#endif
struct mkName(nlsPackage) { /* the contents of one chain item of the
struct nlsPackage { /* the contents of one chain item of the
list of NLS packages */ list of NLS packages */
struct nlsPackage FAR *nxt; /* next item in chain */ struct nlsPackage FAR *nxt; /* next item in chain */
unsigned muxCallingFlags; /* combination of NLS_FLAGS-* */ UWORD cntry, cp; /* country ID / codepage of this NLS pkg */
struct nlsExtCtryInfo cntryInfo; int flags; /* direct access and other flags */
char yeschar, nochar; /* yes / no character DOS-65-23 */ /* Note: Depending on the flags above all remaining
portions may be omitted, if the external NLSFUNC-like
MUX-14 processor does not require them and performs
all actions itself, so that the kernel never tries to
fetch this information itself. */
UBYTE yeschar; /* yes / no character DOS-65-23 */
UBYTE nochar;
unsigned numSubfct; /* number of supported sub-functions */ unsigned numSubfct; /* number of supported sub-functions */
struct nlsPointerInf nlsPointer[NLS_POINTERS]; /* grows dynamically */ struct nlsPointer nlsPointers[1]; /* grows dynamically */
}; };
struct mkName(nlsDBCS) { struct nlsDBCS { /* The internal structure is unknown to me */
UWORD numEntries; UWORD numEntries;
UWORD dbcsTbl[NLS_DBCSENTR]; UWORD dbcsTbl[1];
}; };
#ifndef NLS_HARDCODED
struct nlsCharTbl { struct nlsCharTbl {
/* table containing a list of characters */ /* table containing a list of characters */
WORD numEntries; /* number of entries of this table. UWORD numEntries; /* number of entries of this table.
If <= 0x80, the first element of If <= 0x80, the first element of
the table corresponse to character 0x80 */ the table corresponse to character 0x80 */
unsigned char tbl[1]; /* grows dynamically */ unsigned char tbl[1]; /* grows dynamically */
}; };
struct nlsCharTbl128{ #define nlsChBuf(len) struct nlsCharTbl##len { \
WORD numEntries; UWORD numEntries; \
unsigned char tbl[128]; unsigned char tbl[len]; \
}; }
struct nlsCharTbl256{ nlsChBuf(128);
WORD numEntries; nlsChBuf(256);
unsigned char tbl[256];
};
#endif
/* in file names permittable characters for DOS-65-05 */ /* in file names permittable characters for DOS-65-05 */
struct mkName(nlsFnamTerm) { struct nlsFnamTerm {
WORD size; /* size of this structure */ WORD size; /* size of this structure */
BYTE dummy1; BYTE dummy1;
char firstCh, char firstCh,
@ -328,43 +440,117 @@ struct mkName(nlsFnamTerm) {
lastExcl; /* first, last excluded character */ lastExcl; /* first, last excluded character */
BYTE dummy3; BYTE dummy3;
BYTE numSep; /* number of file name separators */ BYTE numSep; /* number of file name separators */
char separators[NLS_FNAMSEPS]; /* grows dynamically */ char separators[1]; /* grows dynamically */
}; };
#ifndef NLS_NO_VARS struct nlsInfoBlock { /* This block contains all information
struct mkName(nlsInfoBlock) { /* This block contains all information
shared by the kernel and the external NLSFUNC program */ shared by the kernel and the external NLSFUNC program */
char FAR *fname; /* filename from COUNTRY= */ char FAR *fname; /* filename from COUNTRY=;
maybe tweaked by NLSFUNC */
UWORD sysCodePage; /* system code page */ UWORD sysCodePage; /* system code page */
unsigned flags; /* implementation flags */
struct nlsPackage FAR *actPkg; /* current NLS package */ struct nlsPackage FAR *actPkg; /* current NLS package */
#ifdef NLS_CACHE_POINTERS struct nlsPackage FAR *chain; /* first item of info chain --
unsigned char FAR *fnamUpTable; /* upcase table for filenames */ hardcoded U.S.A./CP437 */
unsigned char FAR *upTable; /* normal upcase table */
#endif
struct mkName(nlsPackage) chain; /* first item of info chain --
hardcoded U.S.A. */
}; };
extern struct mkName(nlsInfoBlock) nlsInfo; extern struct nlsInfoBlock nlsInfo;
extern struct mkName(nlsFnamTerm) nlsFnameTermHardcodedTable; extern struct nlsPackage nlsPackageHardcoded;
extern struct mkName(nlsDBCS) nlsDBCSHardcodedTable; /* These are the "must have" tables within the hard coded NLS pkg */
extern struct __join(nlsCharTbl,128) nlsUpHardcodedTable; extern struct nlsFnamTerm nlsFnameTermHardcoded;
extern struct __join(nlsCharTbl,128) nlsFnameUpHardcodedTable; extern struct nlsDBCS nlsDBCSHardcoded;
extern struct __join(nlsCharTbl,256) nlsCollHardcodedTable; extern struct nlsCharTbl nlsUpcaseHardcoded;
#endif extern struct nlsCharTbl nlsFUpcaseHardcoded;
extern struct nlsCharTbl nlsCollHardcoded;
extern struct nlsExtCntryInfo nlsCntryInfoHardcoded;
extern BYTE FAR hcTablesStart[], hcTablesEnd[];
/***********************************************************************
***** Definitions & Declarations for COUNTRY.SYS **********************
***********************************************************************/
/* Note: These definitions are shared among all tools accessing the
COUNTRY.SYS file as well -- 2000/06/11 ska*/
/* File structure:
S0: Base (Primary) structure -- file header
Offset Size Meaning
0 array ID string "FreeDOS COUNTRY.SYS v1.0\r\n"
26 array Copyright etc. (plain 7bit ASCII text)
26+N 2byte \x1a\0
26+N+2 array padded with \0 upto next offset
128 word number of country/codepage pairs (N1)
130 8byte country code / codepage entries (S1)
130+8*N1 end of array
===
S1: structure of country/codepage pair
Offset Size Meaning
0 dword relative position of table definition (S2)
4 word codepage ID
6 word country code
8 end of structure
===
S2: table definition of one country/codepage pair
Offset Size Meaning
0 word number of function entries (N2)
2 8byte function definition (S3)
2+8*N2 end of array
===
S3: function definition
Offset Size Meaning
0 dword relative position of function data (see S4)
4 word number of bytes of data
6 byte function ID (same as passed to DOS-65-XX)
7 byte reserved for future use (currently 0 (zero))
8 end of structure
===
S4: function data
In opposite of the structures and arrays, the function data
is just a structure-less stream of bytes, which is used as it is.
Currently no validation check is performed over this data.
That means, for instance, that a definition of function 2 (upcase
table) has length 130 and the data consists of a word value with
the length (128) and 128 bytes individual information.
That way the DBCS is implemented exactly the same way as all the
other tables; the only exception is pseudo-table 0x23.
===
"relative position" means this DWord specifies the amount of bytes
between end of the current structure and the data the pointer is
referring to. This shall enable future implementations to embed
COUNTRY.SYS into other files.
*/
#define CSYS_FD_IDSTRING "FreeDOS COUNTRY.SYS v1.0\r\n"
struct nlsCSys_function { /* S3: function definition */
UDWORD csys_rpos; /* relative position to actual data */
UWORD csys_length;
UBYTE csys_fctID; /* As passed to DOS-65-XX */
UBYTE csys_reserved1; /* always 0, reserved for future use */
};
struct nlsCSys_ccDefinition { /* S1: country/codepage reference */
UDWORD csys_rpos; /* moving the 4byte value to the front
can increase performance */
UWORD csys_cp;
UWORD csys_cntry;
};
struct nlsCSys_numEntries { /* helper structure for "number of entries" */
UWORD csys_numEntries;
};
/* Actually, this structure is never really used */
struct nlsCSys_fileHeader { /* S0: primary structure */
unsigned char csys_idstring[sizeof(CSYS_FD_IDSTRING) - 1];
/* decrement by 1 to cut off \0 from IDString -- ska*/
};
struct nlsCSys_completeFileHeader { /* as S0, but full 128 bytes */
unsigned char csys_idstring[sizeof(CSYS_FD_IDSTRING) - 1];
unsigned char csys_padbytes[128 - (sizeof(CSYS_FD_IDSTRING) - 1)];
};
#undef NLS_POINTERS
#undef NLS_FNAMSEPS
#undef NLS_DBCSENTR
#undef __join(a,b)
#undef mkName(a)
/* standard alignment */ /* standard alignment */
#include <algndflt.h>
#if defined (_MSC_VER) || defined(_QC) || defined(__WATCOMC__)
#pragma pack()
#elif defined (__ZTC__)
#pragma ZTC align
#elif defined(__TURBOC__) && (__TURBOC__ > 0x202)
#pragma option -a.
#endif

58
hdr/pcb.h
View File

@ -28,6 +28,27 @@
/* Cambridge, MA 02139, USA. */ /* Cambridge, MA 02139, USA. */
/****************************************************************/ /****************************************************************/
/***************************************************************
2000/03/22 ska
There is a newly documented (though used previously) side effect
of the definitions and assumptions made herein:
The assembly sources may use a macro named "PUSH$ALL" to push
all processor registers onto the stack, see example below:
PUSH$ALL
mov ax, sp
...
push ax
call _c_function
pop cx
The stack pointer immediately after the PUSH$ALL macro shall point to
a structure used as an "iregs" structure within the C language.
Therefore the internal of the structure "iregs" _must_ always
match the implementation of the macro "PUSH$ALL".
*/
#ifndef __PCB_H
#define __PCB_H
#ifdef MAIN #ifdef MAIN
#ifdef VERSION_STRINGS #ifdef VERSION_STRINGS
static BYTE *pcb_hRcsId = "$Id$"; static BYTE *pcb_hRcsId = "$Id$";
@ -36,6 +57,9 @@ static BYTE *pcb_hRcsId = "$Id$";
/* /*
* $Log$ * $Log$
* Revision 1.4 2000/08/06 04:18:21 jimtabor
* See history.txt
*
* Revision 1.3 2000/05/25 20:56:19 jimtabor * Revision 1.3 2000/05/25 20:56:19 jimtabor
* Fixed project history * Fixed project history
* *
@ -81,6 +105,8 @@ static BYTE *pcb_hRcsId = "$Id$";
* Initial revision. * Initial revision.
*/ */
/* Force one-byte alignment for all the internal structures, see above */
#include <algnbyte.h>
/* */ /* */
/* interrupt handler structure definition */ /* interrupt handler structure definition */
/* */ /* */
@ -96,6 +122,11 @@ typedef union
} }
xreg; xreg;
/* The structure assumes that:
1) An interrupt was invoked, &
2) the PUSH$ALL macro was invoked immediately after that.
Furthermore, the PUSH$ALL macro must push ES first and AX last.
-- 2000/03/22 ska*/
/* maps MS-DOS unique stacking order */ /* maps MS-DOS unique stacking order */
typedef struct typedef struct
{ {
@ -114,6 +145,16 @@ typedef struct
} }
iregs; iregs;
/* Registers directly passed to syscall;
must be the same order as iregs!
Is used to define parameters. */
#define DIRECT_IREGS \
xreg a, xreg b, xreg c, xreg d, \
UWORD si, UWORD di, UWORD bp, UWORD ds, UWORD es, \
UWORD ip, UWORD cs, UWORD flags
/* Process control block for task switching */ /* Process control block for task switching */
typedef struct typedef struct
{ {
@ -123,6 +164,9 @@ typedef struct
} }
pcb; pcb;
/* Note: The following figure is not made by myself and I assume that
the order of "ES" through "AX" are misinterpreted?! -- 2000/03/22 ska*/
/* For MSC, the following offsets must match the assembly process */ /* For MSC, the following offsets must match the assembly process */
/* support offsets */ /* support offsets */
/* NOTE: Alignemnts must be set to 1 (-Zp1) */ /* NOTE: Alignemnts must be set to 1 (-Zp1) */
@ -182,3 +226,17 @@ pcb;
#define FLG_ZERO 0x0040 #define FLG_ZERO 0x0040
#define FLG_CARRY 0x0001 #define FLG_CARRY 0x0001
/* Allow default alignment from now on */
#include <algndflt.h>
/*
* Invoke interrupt "intnr" with all registers from *pr loaded
* into the processor registers (except: SS, SP,& flags)
* On return, all processor registers are stored into *pr (including
* flags).
*/
void intr(int intnr, iregs * const pr);
#endif

6
hdr/portab.h
View File

@ -36,6 +36,9 @@ static char *portab_hRcsId = "$Id$";
/* /*
* $Log$ * $Log$
* Revision 1.4 2000/08/06 04:18:21 jimtabor
* See history.txt
*
* Revision 1.3 2000/05/25 20:56:19 jimtabor * Revision 1.3 2000/05/25 20:56:19 jimtabor
* Fixed project history * Fixed project history
* *
@ -173,6 +176,7 @@ typedef long DWORD;
typedef unsigned char UBYTE; typedef unsigned char UBYTE;
typedef unsigned short UWORD; typedef unsigned short UWORD;
typedef unsigned long UDWORD;
typedef short SHORT; typedef short SHORT;
@ -196,10 +200,12 @@ typedef signed long LONG;
/* General far pointer macros */ /* General far pointer macros */
#ifdef I86 #ifdef I86
#ifndef MK_FP
#define MK_FP(seg,ofs) ((VOID far *)(((LONG)(seg)<<16)|(UWORD)(ofs))) #define MK_FP(seg,ofs) ((VOID far *)(((LONG)(seg)<<16)|(UWORD)(ofs)))
#define FP_SEG(fp) ((UWORD)((LONG)(VOID FAR *)(fp)>>16)) #define FP_SEG(fp) ((UWORD)((LONG)(VOID FAR *)(fp)>>16))
#define FP_OFF(fp) ((UWORD)(fp)) #define FP_OFF(fp) ((UWORD)(fp))
#endif #endif
#endif
#ifdef MC68K #ifdef MC68K
#define MK_FP(seg,ofs) ((VOID *)(&(((BYTE *)(seg))[(ofs)]))) #define MK_FP(seg,ofs) ((VOID *)(&(((BYTE *)(seg))[(ofs)])))

7
hdr/process.h
View File

@ -36,6 +36,9 @@ static BYTE *process_hRcsId = "$Id$";
/* /*
* $Log$ * $Log$
* Revision 1.4 2000/08/06 04:18:21 jimtabor
* See history.txt
*
* Revision 1.3 2000/05/25 20:56:19 jimtabor * Revision 1.3 2000/05/25 20:56:19 jimtabor
* Fixed project history * Fixed project history
* *
@ -104,8 +107,8 @@ typedef struct
{ {
UWORD env_seg; UWORD env_seg;
CommandTail FAR *cmd_line; CommandTail FAR *cmd_line;
BYTE FAR *fcb_1; fcb FAR *fcb_1;
BYTE FAR *fcb_2; fcb FAR *fcb_2;
BYTE FAR *stack; BYTE FAR *stack;
BYTE FAR *start_addr; BYTE FAR *start_addr;
} }

8
hdr/stacks.inc
View File

@ -30,6 +30,9 @@
; $Id$ ; $Id$
; ;
; $Log$ ; $Log$
; Revision 1.5 2000/08/06 04:18:21 jimtabor
; See history.txt
;
; Revision 1.4 2000/05/26 19:46:52 jimtabor ; Revision 1.4 2000/05/26 19:46:52 jimtabor
; Read History file for Change info ; Read History file for Change info
; ;
@ -103,6 +106,11 @@
; +---------------+ ; +---------------+
; ;
;; Note: The order of the pushed registers _must_ match with the definition
;; of the "iregs" structure within PCB.H, because a pointer to the last
;; pushed register is used as a pointer to a "iregs" structure within the
;; called C sources! -- 2000/03/22 ska
; Don't use `struc RegFrame' etc. here because it interferes with segment ; Don't use `struc RegFrame' etc. here because it interferes with segment
; definitions. ; definitions.
reg_ax equ 0 reg_ax equ 0