LISTING FOR  >spec>install>1035>e_defpl1_
COMPILED BY Multics LISP Compiler, Version 2.13c, July 11, 1983
ON 04/24/89  1341.5 mst Mon
IN BEHALF OF Hirneisen.SysMaint.a



;;; ***********************************************************
;;; *                                                         *
;;; * Copyright, (C) Honeywell Bull Inc., 1988                *
;;; *                                                         *
;;; * Copyright, (C) Honeywell Information Systems Inc., 1982 *
;;; *                                                         *
;;; * Copyright (c) 1978 by Massachusetts Institute of        *
;;; * Technology and Honeywell Information Systems, Inc.      *
;;; *                                                         *
;;; ***********************************************************

;;;
;;;
;;;	PL/1 Entries Used by EMACS
;;;


;;; HISTORY COMMENTS:
;;;  1) change(84-01-23,Margolin), approve(), audit(), install():
;;;     Pre-hcom journalization:
;;;     Modified: 26 November 1983 B. Margolin to remove network entrypoints.
;;;     Modified: 23 January 1984 B. Margolin to add terminate_file_.
;;;  2) change(84-12-25,Margolin), approve(86-02-24,MCR7186),
;;;     audit(86-08-12,Harvey), install(86-08-20,MR12.0-1136):
;;;     add e_pl1_$object_check and iox_$control.
;;;  3) change(86-02-24,Margolin), approve(86-02-24,MCR7325),
;;;     audit(86-08-12,Harvey), install(86-08-20,MR12.0-1136):
;;;     Changed default input base to 10.  Added new e_multics_files_
;;;     entrypoints, corrected declaration of expand_pathname_$component,
;;;     added hcs_$get_max_length_seg, hcs_$get_uid_file,
;;;     initiate_file_$component, mlr_, several msf_manager_ entrypoints,
;;;     pathname_ and pathname_$component.
;;;  4) change(86-03-12,LJAdams), approve(86-03-12,MCR7361),
;;;     audit(86-04-17,Margolin), install(86-08-20,MR12.0-1136):
;;;     Added requote_string_.
;;;  5) change(88-01-05,Schroth), approve(88-02-29,MCR7851),
;;;     audit(88-06-08,RBarstad), install(88-08-01,MR12.2-1071):
;;;     For 8-bit I/O:  added e_pl1_$set_extended_ascii, and
;;;     e_pl1_$get_output_conv_table and changed e_pl1_$set_break_sequence.
;;;     Removed e_pl1_$get_network_flag, e_pl1_$set_dbo_sw,
;;;     e_pl1_$set_ignore_lf, and e_tasking_$get_death_flag: unused and
;;;     undocumented (also avoids lcp link limit).
;;;  6) change(89-02-08,Flegel), approve(89-02-28,MCR8065),
;;;     audit(89-03-06,Lee), install(89-04-24,MR12.3-1035):
;;;     phx21199 - added cv_dec_check_ defpl1
;;;                                                      END HISTORY COMMENTS



(eval-when (compile)
	 (setq ibase 10.))			;so numbers read in decimal

(declare

;;;	Entries in e_pl1_

(defpl1 e_pl1_$get_terminal_type "" (return char (256.) varying))

(defpl1 e_pl1_$get_real_terminal_type "" (return char (32.) varying))

(defpl1 e_pl1_$get_editing_chars "" (return char (1)) (return char (1))
        (return char (1)))

(defpl1 e_pl1_$get_iocb "" (return pointer))

(defpl1 e_pl1_$set_terminal_type "" (char (*)))

(defpl1 e_pl1_$set_line_speed_ "" (fixed bin))

(defpl1 e_pl1_$init "")

(defpl1 e_pl1_$get_char "" (return fixed bin))

(defpl1 e_pl1_$echo_negotiate_get_char "" (lisp)(lisp)(fixed bin)
        (return fixed bin))

(defpl1 e_pl1_$set_break_char "" (fixed bin)(fixed bin))

(defpl1 e_pl1_$set_break_sequence "" (fixed bin (32.)) (fixed bin (32.))
        (fixed bin (32.)) (fixed bin (32.)) (fixed bin (32.)) (fixed bin (32.))
        (fixed bin (32.)) (fixed bin (32.)))

(defpl1 e_pl1_$real_have_chars "" (return fixed bin))

(defpl1 Rtyo "e_pl1_$tyo" (fixed bin))

(defpl1 Rprinc "e_pl1_$princ" (char (*)))

(defpl1 e_pl1_$dump_output_buffer "")

(defpl1 e_pl1_$get_line_speed "" (return fixed bin))

(defpl1 e_pl1_$resetwrite "")

(defpl1 e_pl1_$will_supdup_output "" (return fixed bin (1)))

(defpl1 e_pl1_$set_line_speed_ "" (fixed bin))

(defpl1 e_pl1_$set_emacs_tty_modes "")

(defpl1 e_pl1_$set_multics_tty_modes "")

(defpl1 e_cline_ "e_pl1_$cline_executor" (char (*)))

(defpl1 e_pl1_$get_emacs_interrupt_array "" (return ptr))

(defpl1 e_pl1_$assign_channel "" (fixed binary) (return fixed binary))

(defpl1 e_pl1_$get_emacs_interrupt "" (return fixed bin)(return fixed bin))

(defpl1 e_pl1_$object_check "" (fixed bin (24.)) (pointer) (return fixed bin))

(defpl1 e_pl1_$set_extended_ascii "" (fixed bin (1)))

(defpl1 e_pl1_$get_output_conv_table "" (array (64.) fixed bin (35.)))

;;; Entries in e_terminal_io_

(defpl1 e_terminal_io_$check_printing "" (char (*)) (return fixed bin))

;;; Entries in e_info_vfilesman_

(defpl1 e_info_vfilesman_$open "" (char (*))(fixed bin (1))
        (return fixed bin (35.)))

(defpl1 e_info_vfilesman_$seek "" (char (*))(return fixed bin (35.)))

(defpl1 e_info_vfilesman_$get_recp "" (return ptr)(return fixed bin (21.))
        (return fixed bin (35.)))

(defpl1 e_info_vfilesman_$update "" (char (*))(fixed bin (1))
        (return fixed bin (35.)))

(defpl1 e_info_vfilesman_$close "")

;;;	Entries in multics_emacs

(defpl1 emacs$set_emacs_return_code "multics_emacs$set_emacs_return_code"
        (fixed bin (35.)))

(defpl1 emacs$get_my_name "multics_emacs$get_my_name" (return char (32.)))

(defpl1 emacs$get_version "" (return char (10.)))

(defpl1 emacs$get_info_ptr "" (return pointer))

(defpl1 e$get_temporary_seg "multics_emacs$get_temporary_seg" (return ptr))

(defpl1 e$release_temporary_seg "multics_emacs$release_temporary_seg" (ptr))

(defpl1 emacs$set_lisp_rdis_meters "multics_emacs$set_lisp_rdis_meters"
        (fixed bin) (fixed bin) (fixed bin) (fixed bin) (fixed bin) 
        (fixed bin) (fixed bin) (fixed bin) (fixed bin) (fixed bin))

;;; Entries in e_tasking_

(defpl1 e_tasking_$destroy_me "")

(defpl1 e_tasking_$get_tasking_flag "" (return fixed bin))

(defpl1 e_tasking_$quit "" (return fixed bin (35.)))

;;; Entries in e_multics_files_util_

(defpl1 e_multics_files_util_$force_access "" (char (*)) (return ptr)
        (return fixed bin (35.)))

(defpl1 e_multics_files_util_$force_msf_access "" (ptr) (return ptr)
        (return fixed bin (35.)))

(defpl1 e_multics_files_util_$get_dtcm "" (ptr)
        (return fixed bin (35)) (return fixed bin (35)))

(defpl1 e_multics_files_util_$get_dtcm_file "" (char (*)) (char (*))
        (return fixed bin (35)) (return fixed bin (35)))

(defpl1 e_multics_files_util_$nth_star_match "" (ptr) (fixed bin)
        (return char (32)) (return char (32)))

(defpl1 e_multics_files_util_$restore_access "" (ptr))

(defpl1 e_multics_files_util_$restore_msf_access "" (ptr) (ptr))

(defpl1 e_multics_files_util_$star_list_cleanup "" (ptr))

(defpl1 e_multics_files_util_$star_list_init "" (char (*)) (char (*))
        (char (*)) (return ptr) (return fixed bin) (return fixed bin (35)))

;;; Entries in e_argument_parse_

(defpl1 e_argument_parse_$get_ttp_info "" (return fixed bin)
        (return char (168.)))

(defpl1 e_argument_parse_$get_startup_info "" (return fixed bin)
        (return fixed bin) (return fixed bin) (return fixed bin)
        (return fixed bin) (return fixed bin) (return fixed bin))

(defpl1 e_argument_parse_$get_one_path "" (return char (168.))
        (return fixed bin))

(defpl1 e_argument_parse_$new_arguments "" (return fixed bin))

;;; Entry in emacs_search_file_caller_

(defpl1 emacs_search_file_caller_ "" (char (*)) (fixed bin) (ptr)
        (fixed bin) (char (*)) (return bit (36.)))

;;; Entries in list_emacs_ctls

(defpl1 list_emacs_ctls$list_emacs_ctls "" (char (*)))

(defpl1 list_emacs_ctls$find_ctl "" (char (*)) (return char (168.)))

;;;	Multics supplied routines

(defpl1 absolute_pathname_ "" (char (*)) (return char (168.))
        (return fixed bin (35.)))

(defpl1 absolute_pathname_$add_suffix "" (char (*)) (char (*))
        (return char (168.)) (return fixed bin (35.)))

(defpl1 archive_util_$disected_element "" (update ptr) (return ptr)
        (return char (32.)) (return fixed bin (24.))
        (return fixed bin (35.)))

(defpl1 archive_util_$first_disected "" (update ptr) (return ptr)
        (return char (32.)) (return fixed bin (24.))
        (return fixed bin (35.)))

(defpl1 check_entryname_ "" (char (*)) (return fixed bin (35.)))

(defpl1 check_star_name_$entry "" (char (*))(return fixed bin))

(defpl1 check_star_name_$path "" (char (*))(return fixed bin))

(defpl1 convert_status_code_ "" (fixed bin (35.))
        (return char (8.)) (return char (100.)))

(defpl1 delete_$path "" (char (*))(char (*))(bit (6))(char (*))
        (return fixed bin (35.)))

(defpl1 expand_pathname_ "" (char (*)) (return char (168.))
        (return char (32.)) (return fixed bin (35.)))

(defpl1 expand_pathname_$add_suffix "" (char (*)) (char (*))
        (return char (168.)) (return char (32.))
        (return fixed bin (35.)))

(defpl1 expand_pathname_$component "" (char (*))(return char (168.))
        (return char (32.))(return char (32.)) (return fixed bin (35)))

(defpl1 get_pdir_ "" (return char (168.)))

(defpl1 hcs_$get_max_length_seg "" (ptr) (return fixed bin (19))
        (return fixed bin (19)))

(defpl1 hcs_$fs_get_mode "" (ptr) (return fixed bin (5))
        (return fixed bin (35.)))

(defpl1 hcs_$get_uid_file "" (char (*)) (char (*)) (return fixed bin (35))
        (return fixed bin (35)))

(defpl1 hcs_$get_uid_seg "" (ptr) (return fixed bin (35.))
        (return fixed bin (35.)))

(defpl1 hcs_$initiate_count "" (char (*)) (char (*)) (char (*))
        (return fixed bin (24.)) (fixed bin (2)) (return ptr)
        (return fixed bin (35.)))

(defpl1 hcs_$make_ptr "" (ptr)(char (*))(char (*))(return ptr)
        (return fixed bin (35.)))

(defpl1 hcs_$make_seg "" (char (*)) (char (*)) (char (*))
        (fixed bin (5)) (return ptr) (return fixed bin (35.)))

(defpl1 hcs_$set_bc "" (char (*))(char (*))(fixed bin)(return fixed bin (35.)))

(defpl1 hcs_$set_bc_seg "" (ptr) (fixed bin (24.)) (return fixed bin (35.)))

(defpl1 hcs_$terminate_noname "" (ptr) (return fixed bin (35.)))

(defpl1 hcs_$truncate_file "" (char (*))(char (*))(fixed bin)
        (return fixed bin (35.)))

(defpl1 hcs_$truncate_seg "" (ptr) (fixed bin (18.)) (return fixed bin (35.)))

(defpl1 initiate_file_$component "" (char (*)) (char (*)) (char (*))
        (bit (3)) (return ptr) (return fixed bin (21))
        (return fixed bin (35)))

(defpl1 iox_$control "" (ptr) (char (*)) (ptr) (return fixed bin (35.)))

(defpl1 match_star_name_ "" (char (*))(char (*))(return fixed bin))

(defpl1 msf_manager_$adjust "" (ptr) (fixed bin) (fixed bin (24)) (bit (3))
        (return fixed bin (35)))

(defpl1 msf_manager_$close "" (ptr))

(defpl1 msf_manager_$get_ptr "" (ptr) (fixed bin) (bit (1)) (return ptr)
        (return fixed bin (24)) (return fixed bin (35)))

(defpl1 msf_manager_$open "" (char (*)) (char (*)) (return ptr)
        (return fixed bin (35)))

(defpl1 pathname_ "" (char (*)) (char (*)) (return char (168.)))

(defpl1 pathname_$component "" (char (*)) (char (*)) (char (*))
        (return char (194.)))

(defpl1 requote_string_ "" (char (*)) (return char(*)))

(defpl1 terminate_file_ "" (ptr) (fixed bin (24.)) (bit (4)) (return fixed bin (35)))

(defpl1 user_info_$homedir "" (return char (168.)))

(defpl1 user_info_$whoami "" (return char (32.)) (return char (32.))
        (return char (32.)))

(defpl1 cv_dec_check_ "" (char(*)) (return fixed bin(35.))
        (return fixed bin(35.)))

)	; End of big declare.

			Functions Defined

Name			Offset		Offset		Name


Rprinc                           452		   0		e_pl1_$get_terminal_type
Rtyo                             432		   24		e_pl1_$get_real_terminal_type
absolute_pathname_               3022		   50		e_pl1_$get_editing_chars
absolute_pathname_$add_suffix    3074		   124		e_pl1_$get_iocb
archive_util_$disected_element    3154		   152		e_pl1_$set_terminal_type
archive_util_$first_disected     3256		   171		e_pl1_$set_line_speed_
check_entryname_                 3360		   210		e_pl1_$init
check_star_name_$entry           3412		   220		e_pl1_$get_char
check_star_name_$path            3444		   244		e_pl1_$echo_negotiate_get_char
convert_status_code_             3476		   306		e_pl1_$set_break_char
cv_dec_check_                    6161		   332		e_pl1_$set_break_sequence
delete_$path                     3550		   406		e_pl1_$real_have_chars
e$get_temporary_seg              1452		   432		Rtyo
e$release_temporary_seg          1500		   452		Rprinc
e_argument_parse_$get_one_path    2600		   471		e_pl1_$dump_output_buffer
e_argument_parse_$get_startup_info    2470		   501		e_pl1_$get_line_speed
e_argument_parse_$get_ttp_info    2424		   526		e_pl1_$resetwrite
e_argument_parse_$new_arguments    2644		   536		e_pl1_$will_supdup_output
e_cline_                         622		   562		e_pl1_$set_line_speed_
e_info_vfilesman_$close          1326		   602		e_pl1_$set_emacs_tty_modes
e_info_vfilesman_$get_recp       1210		   612		e_pl1_$set_multics_tty_modes
e_info_vfilesman_$open           1116		   622		e_cline_
e_info_vfilesman_$seek           1156		   641		e_pl1_$get_emacs_interrupt_array
e_info_vfilesman_$update         1266		   670		e_pl1_$assign_channel
e_multics_files_util_$force_access    1666		   720		e_pl1_$get_emacs_interrupt
e_multics_files_util_$force_msf_access    1742		   762		e_pl1_$object_check
e_multics_files_util_$get_dtcm    2016		   1024		e_pl1_$set_extended_ascii
e_multics_files_util_$get_dtcm_file    2070		   1044		e_pl1_$get_output_conv_table
e_multics_files_util_$nth_star_match    2146		   1064		e_terminal_io_$check_printing
e_multics_files_util_$restore_access    2230		   1116		e_info_vfilesman_$open
e_multics_files_util_$restore_msf_access    2252		   1156		e_info_vfilesman_$seek
e_multics_files_util_$star_list_cleanup    2302		   1210		e_info_vfilesman_$get_recp
e_multics_files_util_$star_list_init    2324		   1266		e_info_vfilesman_$update
e_pl1_$assign_channel            670		   1326		e_info_vfilesman_$close
e_pl1_$dump_output_buffer        471		   1336		emacs$set_emacs_return_code
e_pl1_$echo_negotiate_get_char    244		   1356		emacs$get_my_name
e_pl1_$get_char                  220		   1401		emacs$get_version
e_pl1_$get_editing_chars         50		   1424		emacs$get_info_ptr
e_pl1_$get_emacs_interrupt       720		   1452		e$get_temporary_seg
e_pl1_$get_emacs_interrupt_array    641		   1500		e$release_temporary_seg
e_pl1_$get_iocb                  124		   1522		emacs$set_lisp_rdis_meters
e_pl1_$get_line_speed            501		   1606		e_tasking_$destroy_me
e_pl1_$get_output_conv_table     1044		   1616		e_tasking_$get_tasking_flag
e_pl1_$get_real_terminal_type    24		   1642		e_tasking_$quit
e_pl1_$get_terminal_type         0		   1666		e_multics_files_util_$force_access
e_pl1_$init                      210		   1742		e_multics_files_util_$force_msf_access
e_pl1_$object_check              762		   2016		e_multics_files_util_$get_dtcm
e_pl1_$real_have_chars           406		   2070		e_multics_files_util_$get_dtcm_file
e_pl1_$resetwrite                526		   2146		e_multics_files_util_$nth_star_match
e_pl1_$set_break_char            306		   2230		e_multics_files_util_$restore_access
e_pl1_$set_break_sequence        332		   2252		e_multics_files_util_$restore_msf_access
e_pl1_$set_emacs_tty_modes       602		   2302		e_multics_files_util_$star_list_cleanup
e_pl1_$set_extended_ascii        1024		   2324		e_multics_files_util_$star_list_init
e_pl1_$set_line_speed_           562		   2424		e_argument_parse_$get_ttp_info
e_pl1_$set_line_speed_           171		   2470		e_argument_parse_$get_startup_info
e_pl1_$set_multics_tty_modes     612		   2600		e_argument_parse_$get_one_path
e_pl1_$set_terminal_type         152		   2644		e_argument_parse_$new_arguments
e_pl1_$will_supdup_output        536		   2670		emacs_search_file_caller_
e_tasking_$destroy_me            1606		   2752		list_emacs_ctls$list_emacs_ctls
e_tasking_$get_tasking_flag      1616		   2771		list_emacs_ctls$find_ctl
e_tasking_$quit                  1642		   3022		absolute_pathname_
e_terminal_io_$check_printing    1064		   3074		absolute_pathname_$add_suffix
emacs$get_info_ptr               1424		   3154		archive_util_$disected_element
emacs$get_my_name                1356		   3256		archive_util_$first_disected
emacs$get_version                1401		   3360		check_entryname_
emacs$set_emacs_return_code      1336		   3412		check_star_name_$entry
emacs$set_lisp_rdis_meters       1522		   3444		check_star_name_$path
emacs_search_file_caller_        2670		   3476		convert_status_code_
expand_pathname_                 3624		   3550		delete_$path
expand_pathname_$add_suffix      3710		   3624		expand_pathname_
expand_pathname_$component       4002		   3710		expand_pathname_$add_suffix
get_pdir_                        4100		   4002		expand_pathname_$component
hcs_$fs_get_mode                 4174		   4100		get_pdir_
hcs_$get_max_length_seg          4123		   4123		hcs_$get_max_length_seg
hcs_$get_uid_file                4250		   4174		hcs_$fs_get_mode
hcs_$get_uid_seg                 4326		   4250		hcs_$get_uid_file
hcs_$initiate_count              4400		   4326		hcs_$get_uid_seg
hcs_$make_ptr                    4506		   4400		hcs_$initiate_count
hcs_$make_seg                    4576		   4506		hcs_$make_ptr
hcs_$set_bc                      4674		   4576		hcs_$make_seg
hcs_$set_bc_seg                  4742		   4674		hcs_$set_bc
hcs_$terminate_noname            5004		   4742		hcs_$set_bc_seg
hcs_$truncate_file               5040		   5004		hcs_$terminate_noname
hcs_$truncate_seg                5106		   5040		hcs_$truncate_file
initiate_file_$component         5150		   5106		hcs_$truncate_seg
iox_$control                     5256		   5150		initiate_file_$component
list_emacs_ctls$find_ctl         2771		   5256		iox_$control
list_emacs_ctls$list_emacs_ctls    2752		   5326		match_star_name_
match_star_name_                 5326		   5366		msf_manager_$adjust
msf_manager_$adjust              5366		   5444		msf_manager_$close
msf_manager_$close               5444		   5466		msf_manager_$get_ptr
msf_manager_$get_ptr             5466		   5566		msf_manager_$open
msf_manager_$open                5566		   5650		pathname_
pathname_                        5650		   5707		pathname_$component
pathname_$component              5707		   5754		requote_string_
requote_string_                  5754		   6012		terminate_file_
terminate_file_                  6012		   6062		user_info_$homedir
user_info_$homedir               6062		   6105		user_info_$whoami
user_info_$whoami                6105		   6161		cv_dec_check_





			Functions Referenced



                                          -----------------------------------------------------------


Historical Background

This edition of the Multics software materials and documentation is provided and donated
to Massachusetts Institute of Technology by Group BULL including BULL HN Information Systems Inc. 
as a contribution to computer science knowledge.  
This donation is made also to give evidence of the common contributions of Massachusetts Institute of Technology,
Bell Laboratories, General Electric, Honeywell Information Systems Inc., Honeywell BULL Inc., Groupe BULL
and BULL HN Information Systems Inc. to the development of this operating system. 
Multics development was initiated by Massachusetts Institute of Technology Project MAC (1963-1970),
renamed the MIT Laboratory for Computer Science and Artificial Intelligence in the mid 1970s, under the leadership
of Professor Fernando Jose Corbato. Users consider that Multics provided the best software architecture 
for managing computer hardware properly and for executing programs. Many subsequent operating systems 
incorporated Multics principles.
Multics was distributed in 1975 to 2000 by Group Bull in Europe , and in the U.S. by Bull HN Information Systems Inc., 
as successor in interest by change in name only to Honeywell Bull Inc. and Honeywell Information Systems Inc. .

                                          -----------------------------------------------------------

Permission to use, copy, modify, and distribute these programs and their documentation for any purpose and without
fee is hereby granted,provided that the below copyright notice and historical background appear in all copies
and that both the copyright notice and historical background and this permission notice appear in supporting
documentation, and that the names of MIT, HIS, BULL or BULL HN not be used in advertising or publicity pertaining
to distribution of the programs without specific prior written permission.
    Copyright 1972 by Massachusetts Institute of Technology and Honeywell Information Systems Inc.
    Copyright 2006 by BULL HN Information Systems Inc.
    Copyright 2006 by Bull SAS
    All Rights Reserved