forked from Imagelibrary/rtems
2003-03-12 Ralf Corsepius <corsepiu@faw.uni-ulm.de>
* 310_to_320_list: Delete (Obsolete). * acpolish: Delete (Obsolete). * ampolish: Delete (Obsolete). * cipolish: Delete (Obsolete). * rtems-polish.sh: Delete (Obsolete). * update.in: Delete (Unused). * word-replace.in: Delete (Unused). * README: Delete (Obsolete). * Makefile.am: Reflect changes above. * configure.ac: Reflect changes above.
This commit is contained in:
Ralf Corsepius
@@ -1,545 +0,0 @@
|
||||
#
|
||||
# External API name
|
||||
#
|
||||
# $Id$
|
||||
#
|
||||
initialize_executive rtems_initialize_executive
|
||||
initialize_executive_early rtems_initialize_executive_early
|
||||
initialize_executive_late rtems_initialize_executive_late
|
||||
shutdown_executive rtems_shutdown_executive
|
||||
task_create rtems_task_create
|
||||
task_ident rtems_task_ident
|
||||
task_start rtems_task_start
|
||||
task_restart rtems_task_restart
|
||||
task_delete rtems_task_delete
|
||||
task_suspend rtems_task_suspend
|
||||
task_resume rtems_task_resume
|
||||
task_set_priority rtems_task_set_priority
|
||||
task_mode rtems_task_mode
|
||||
task_get_note rtems_task_get_note
|
||||
task_set_note rtems_task_set_note
|
||||
task_wake_after rtems_task_wake_after
|
||||
task_wake_when rtems_task_wake_when
|
||||
interrupt_catch rtems_interrupt_catch
|
||||
clock_set rtems_clock_set
|
||||
clock_get rtems_clock_get
|
||||
clock_tick rtems_clock_tick
|
||||
extension_create rtems_extension_create
|
||||
extension_ident rtems_extension_ident
|
||||
extension_delete rtems_extension_delete
|
||||
timer_create rtems_timer_create
|
||||
timer_ident rtems_timer_ident
|
||||
timer_cancel rtems_timer_cancel
|
||||
timer_delete rtems_timer_delete
|
||||
timer_fire_after rtems_timer_fire_after
|
||||
timer_fire_when rtems_timer_fire_when
|
||||
timer_reset rtems_timer_reset
|
||||
semaphore_create rtems_semaphore_create
|
||||
semaphore_ident rtems_semaphore_ident
|
||||
semaphore_delete rtems_semaphore_delete
|
||||
semaphore_obtain rtems_semaphore_obtain
|
||||
semaphore_release rtems_semaphore_release
|
||||
message_queue_create rtems_message_queue_create
|
||||
message_queue_ident rtems_message_queue_ident
|
||||
message_queue_delete rtems_message_queue_delete
|
||||
message_queue_send rtems_message_queue_send
|
||||
message_queue_urgent rtems_message_queue_urgent
|
||||
message_queue_broadcast rtems_message_queue_broadcast
|
||||
message_queue_receive rtems_message_queue_receive
|
||||
message_queue_flush rtems_message_queue_flush
|
||||
event_send rtems_event_send
|
||||
event_receive rtems_event_receive
|
||||
signal_catch rtems_signal_catch
|
||||
signal_send rtems_signal_send
|
||||
partition_create rtems_partition_create
|
||||
partition_ident rtems_partition_ident
|
||||
partition_delete rtems_partition_delete
|
||||
partition_get_buffer rtems_partition_get_buffer
|
||||
partition_return_buffer rtems_partition_return_buffer
|
||||
region_create rtems_region_create
|
||||
region_extend rtems_region_extend
|
||||
region_ident rtems_region_ident
|
||||
region_delete rtems_region_delete
|
||||
region_get_segment rtems_region_get_segment
|
||||
region_get_segment_size rtems_region_get_segment_size
|
||||
region_return_segment rtems_region_return_segment
|
||||
port_create rtems_port_create
|
||||
port_ident rtems_port_ident
|
||||
port_delete rtems_port_delete
|
||||
port_external_to_internal rtems_port_external_to_internal
|
||||
port_internal_to_external rtems_port_internal_to_external
|
||||
io_initialize rtems_io_initialize
|
||||
io_open rtems_io_open
|
||||
io_close rtems_io_close
|
||||
io_read rtems_io_read
|
||||
io_write rtems_io_write
|
||||
io_control rtems_io_control
|
||||
fatal_error_occurred rtems_fatal_error_occurred
|
||||
rate_monotonic_create rtems_rate_monotonic_create
|
||||
rate_monotonic_ident rtems_rate_monotonic_ident
|
||||
rate_monotonic_delete rtems_rate_monotonic_delete
|
||||
rate_monotonic_cancel rtems_rate_monotonic_cancel
|
||||
rate_monotonic_period rtems_rate_monotonic_period
|
||||
multiprocessing_announce rtems_multiprocessing_announce
|
||||
#
|
||||
# Internal Names for API
|
||||
#
|
||||
_Initialize_Executive rtems_initialize_executive
|
||||
_Initialize_Executive_early rtems_initialize_executive_early
|
||||
_Initialize_Executive_late rtems_initialize_executive_late
|
||||
_Shutdown_Executive rtems_shutdown_executive
|
||||
_RTEMS_tasks_Create rtems_task_create
|
||||
_RTEMS_tasks_Name_to_id rtems_task_ident
|
||||
_RTEMS_tasks_Start rtems_task_start
|
||||
_RTEMS_tasks_Restart rtems_task_restart
|
||||
_RTEMS_tasks_Delete rtems_task_delete
|
||||
_RTEMS_tasks_Suspend rtems_task_suspend
|
||||
_RTEMS_tasks_Resume rtems_task_resume
|
||||
_RTEMS_tasks_Set_priority rtems_task_set_priority
|
||||
_RTEMS_tasks_Mode rtems_task_mode
|
||||
_RTEMS_tasks_Get_note rtems_task_get_note
|
||||
_RTEMS_tasks_Set_note rtems_task_set_note
|
||||
_RTEMS_tasks_Wake_after rtems_task_wake_after
|
||||
_RTEMS_tasks_Wake_when rtems_task_wake_when
|
||||
_Interrupt_Catch rtems_interrupt_catch
|
||||
_Clock_Set rtems_clock_set
|
||||
_Clock_Get rtems_clock_get
|
||||
_Clock_Tick rtems_clock_tick
|
||||
_Extension_Create rtems_extension_create
|
||||
_Extension_Name_to_id rtems_extension_ident
|
||||
_Extension_Delete rtems_extension_delete
|
||||
_Timer_Create rtems_timer_create
|
||||
_Timer_Name_to_id rtems_timer_ident
|
||||
_Timer_Cancel rtems_timer_cancel
|
||||
_Timer_Delete rtems_timer_delete
|
||||
_Timer_Fire_after rtems_timer_fire_after
|
||||
_Timer_Fire_when rtems_timer_fire_when
|
||||
_Timer_Reset rtems_timer_reset
|
||||
_Semaphore_Create rtems_semaphore_create
|
||||
_Semaphore_Name_to_id rtems_semaphore_ident
|
||||
_Semaphore_Delete rtems_semaphore_delete
|
||||
_Semaphore_Obtain rtems_semaphore_obtain
|
||||
_Semaphore_Release rtems_semaphore_release
|
||||
_Message_queue_Create rtems_message_queue_create
|
||||
_Message_queue_Name_to_id rtems_message_queue_ident
|
||||
_Message_queue_Delete rtems_message_queue_delete
|
||||
_Message_queue_Send rtems_message_queue_send
|
||||
_Message_queue_Urgent rtems_message_queue_urgent
|
||||
_Message_queue_Broadcast rtems_message_queue_broadcast
|
||||
_Message_queue_Receive rtems_message_queue_receive
|
||||
_Message_queue_Flush rtems_message_queue_flush
|
||||
_Event_Send rtems_event_send
|
||||
_Event_Receive rtems_event_receive
|
||||
_Signal_Catch rtems_signal_catch
|
||||
_Signal_Send rtems_signal_send
|
||||
_Partition_Create rtems_partition_create
|
||||
_Partition_Name_to_id rtems_partition_ident
|
||||
_Partition_Delete rtems_partition_delete
|
||||
_Partition_Get_buffer rtems_partition_get_buffer
|
||||
_Partition_Return_buffer rtems_partition_return_buffer
|
||||
_Region_Create rtems_region_create
|
||||
_Region_Extend rtems_region_extend
|
||||
_Region_Name_to_id rtems_region_ident
|
||||
_Region_Delete rtems_region_delete
|
||||
_Region_Get_segment rtems_region_get_segment
|
||||
_Region_Get_segment_size rtems_region_get_segment_size
|
||||
_Region_Return_segment rtems_region_return_segment
|
||||
_Dual_ported_memory_Create rtems_port_create
|
||||
_Dual_ported_memory_Name_to_id rtems_port_ident
|
||||
_Dual_ported_memory_Delete rtems_port_delete
|
||||
_Dual_ported_memory_External_to_internal rtems_port_external_to_internal
|
||||
_Dual_ported_memory_Internal_to_external rtems_port_internal_to_external
|
||||
_IO_Initialize rtems_io_initialize
|
||||
_IO_Open rtems_io_open
|
||||
_IO_Close rtems_io_close
|
||||
_IO_Read rtems_io_read
|
||||
_IO_Write rtems_io_write
|
||||
_IO_Control rtems_io_control
|
||||
_Fatal_Error_occurred rtems_fatal_error_occurred
|
||||
_Rate_monotonic_Create rtems_rate_monotonic_create
|
||||
_Rate_monotonic_Name_to_id rtems_rate_monotonic_ident
|
||||
_Rate_monotonic_Delete rtems_rate_monotonic_delete
|
||||
_Rate_monotonic_Cancel rtems_rate_monotonic_cancel
|
||||
_Rate_monotonic_Period rtems_rate_monotonic_period
|
||||
_Multiprocessing_Announce rtems_multiprocessing_announce
|
||||
#
|
||||
# Status (API names)
|
||||
#
|
||||
SUCCESSFUL RTEMS_SUCCESSFUL
|
||||
TASK_EXITTED RTEMS_TASK_EXITTED
|
||||
MP_NOT_CONFIGURED RTEMS_MP_NOT_CONFIGURED
|
||||
INVALID_NAME RTEMS_INVALID_NAME
|
||||
INVALID_ID RTEMS_INVALID_ID
|
||||
TOO_MANY RTEMS_TOO_MANY
|
||||
TIMEOUT RTEMS_TIMEOUT
|
||||
OBJECT_WAS_DELETED RTEMS_OBJECT_WAS_DELETED
|
||||
INVALID_SIZE RTEMS_INVALID_SIZE
|
||||
INVALID_ADDRESS RTEMS_INVALID_ADDRESS
|
||||
INVALID_NUMBER RTEMS_INVALID_NUMBER
|
||||
NOT_DEFINED RTEMS_NOT_DEFINED
|
||||
RESOURCE_IN_USE RTEMS_RESOURCE_IN_USE
|
||||
UNSATISFIED RTEMS_UNSATISFIED
|
||||
INCORRECT_STATE RTEMS_INCORRECT_STATE
|
||||
ALREADY_SUSPENDED RTEMS_ALREADY_SUSPENDED
|
||||
ILLEGAL_ON_SELF RTEMS_ILLEGAL_ON_SELF
|
||||
ILLEGAL_ON_REMOTE_OBJECT RTEMS_ILLEGAL_ON_REMOTE_OBJECT
|
||||
CALLED_FROM_ISR RTEMS_CALLED_FROM_ISR
|
||||
INVALID_PRIORITY RTEMS_INVALID_PRIORITY
|
||||
INVALID_CLOCK RTEMS_INVALID_CLOCK
|
||||
INVALID_NODE RTEMS_INVALID_NODE
|
||||
NOT_CONFIGURED RTEMS_NOT_CONFIGURED
|
||||
NOT_OWNER_OF_RESOURCE RTEMS_NOT_OWNER_OF_RESOURCE
|
||||
NOT_IMPLEMENTED RTEMS_NOT_IMPLEMENTED
|
||||
INTERNAL_ERROR RTEMS_INTERNAL_ERROR
|
||||
PROXY_BLOCKING RTEMS_PROXY_BLOCKING
|
||||
NO_MEMORY RTEMS_NO_MEMORY
|
||||
STATUS_CODES_FIRST RTEMS_STATUS_CODES_FIRST
|
||||
STATUS_CODES_LAST RTEMS_STATUS_CODES_LAST
|
||||
#
|
||||
# Status (Internal names)
|
||||
#
|
||||
STATUS_SUCCESSFUL RTEMS_SUCCESSFUL
|
||||
STATUS_TASK_EXITTED RTEMS_TASK_EXITTED
|
||||
STATUS_MP_NOT_CONFIGURED RTEMS_MP_NOT_CONFIGURED
|
||||
STATUS_INVALID_NAME RTEMS_INVALID_NAME
|
||||
STATUS_INVALID_ID RTEMS_INVALID_ID
|
||||
STATUS_TOO_MANY RTEMS_TOO_MANY
|
||||
STATUS_TIMEOUT RTEMS_TIMEOUT
|
||||
STATUS_OBJECT_WAS_DELETED RTEMS_OBJECT_WAS_DELETED
|
||||
STATUS_INVALID_SIZE RTEMS_INVALID_SIZE
|
||||
STATUS_INVALID_ADDRESS RTEMS_INVALID_ADDRESS
|
||||
STATUS_INVALID_NUMBER RTEMS_INVALID_NUMBER
|
||||
STATUS_NOT_DEFINED RTEMS_NOT_DEFINED
|
||||
STATUS_RESOURCE_IN_USE RTEMS_RESOURCE_IN_USE
|
||||
STATUS_UNSATISFIED RTEMS_UNSATISFIED
|
||||
STATUS_INCORRECT_STATE RTEMS_INCORRECT_STATE
|
||||
STATUS_ALREADY_SUSPENDED RTEMS_ALREADY_SUSPENDED
|
||||
STATUS_ILLEGAL_ON_SELF RTEMS_ILLEGAL_ON_SELF
|
||||
STATUS_ILLEGAL_ON_REMOTE_OBJECT RTEMS_ILLEGAL_ON_REMOTE_OBJECT
|
||||
STATUS_CALLED_FROM_ISR RTEMS_CALLED_FROM_ISR
|
||||
STATUS_INVALID_PRIORITY RTEMS_INVALID_PRIORITY
|
||||
STATUS_INVALID_CLOCK RTEMS_INVALID_CLOCK
|
||||
STATUS_INVALID_NODE RTEMS_INVALID_NODE
|
||||
STATUS_NOT_CONFIGURED RTEMS_NOT_CONFIGURED
|
||||
STATUS_NOT_OWNER_OF_RESOURCE RTEMS_NOT_OWNER_OF_RESOURCE
|
||||
STATUS_NOT_IMPLEMENTED RTEMS_NOT_IMPLEMENTED
|
||||
STATUS_INTERNAL_ERROR RTEMS_INTERNAL_ERROR
|
||||
STATUS_PROXY_BLOCKING RTEMS_PROXY_BLOCKING
|
||||
STATUS_NO_MEMORY RTEMS_NO_MEMORY
|
||||
#
|
||||
# Attributes (External)
|
||||
#
|
||||
DEFAULT_ATTRIBUTES RTEMS_DEFAULT_ATTRIBUTES
|
||||
NO_FLOATING_POINT RTEMS_NO_FLOATING_POINT
|
||||
FLOATING_POINT RTEMS_FLOATING_POINT
|
||||
LOCAL RTEMS_LOCAL
|
||||
GLOBAL RTEMS_GLOBAL
|
||||
FIFO RTEMS_FIFO
|
||||
PRIORITY RTEMS_PRIORITY
|
||||
NO_LIMIT RTEMS_NO_LIMIT
|
||||
LIMIT RTEMS_LIMIT
|
||||
COUNTING_SEMAPHORE RTEMS_COUNTING_SEMAPHORE
|
||||
BINARY_SEMAPHORE RTEMS_BINARY_SEMAPHORE
|
||||
NO_INHERIT_PRIORITY RTEMS_NO_INHERIT_PRIORITY
|
||||
INHERIT_PRIORITY RTEMS_INHERIT_PRIORITY
|
||||
#
|
||||
# Attributes (Internal)
|
||||
#
|
||||
ATTRIBUTES_DEFAULTS RTEMS_DEFAULT_ATTRIBUTES
|
||||
ATTRIBUTES_NO_FLOATING_POINT RTEMS_NO_FLOATING_POINT
|
||||
ATTRIBUTES_FLOATING_POINT RTEMS_FLOATING_POINT
|
||||
ATTRIBUTES_LOCAL RTEMS_LOCAL
|
||||
ATTRIBUTES_GLOBAL RTEMS_GLOBAL
|
||||
ATTRIBUTES_FIFO RTEMS_FIFO
|
||||
ATTRIBUTES_PRIORITY RTEMS_PRIORITY
|
||||
ATTRIBUTES_NO_LIMIT RTEMS_NO_LIMIT
|
||||
ATTRIBUTES_LIMIT RTEMS_LIMIT
|
||||
ATTRIBUTES_COUNTING_SEMAPHORE RTEMS_COUNTING_SEMAPHORE
|
||||
ATTRIBUTES_BINARY_SEMAPHORE RTEMS_BINARY_SEMAPHORE
|
||||
ATTRIBUTES_NO_INHERIT_PRIORITY RTEMS_NO_INHERIT_PRIORITY
|
||||
ATTRIBUTES_INHERIT_PRIORITY RTEMS_INHERIT_PRIORITY
|
||||
#
|
||||
# Options (External)
|
||||
#
|
||||
DEFAULT_OPTIONS RTEMS_DEFAULT_OPTIONS
|
||||
WAIT RTEMS_WAIT
|
||||
NO_WAIT RTEMS_NO_WAIT
|
||||
EVENT_ALL RTEMS_EVENT_ALL
|
||||
EVENT_ANY RTEMS_EVENT_ANY
|
||||
#
|
||||
# Options (Internal)
|
||||
#
|
||||
OPTIONS_DEFAULT RTEMS_DEFAULT_OPTIONS
|
||||
OPTIONS_WAIT RTEMS_WAIT
|
||||
OPTIONS_NO_WAIT RTEMS_NO_WAIT
|
||||
OPTIONS_EVENT_ALL RTEMS_EVENT_ALL
|
||||
OPTIONS_EVENT_ANY RTEMS_EVENT_ANY
|
||||
#
|
||||
# Masks (External)
|
||||
#
|
||||
ALL_MODE_MASKS RTEMS_ALL_MODE_MASKS
|
||||
PREEMPT_MASK RTEMS_PREEMPT_MASK
|
||||
TIMESLICE_MASK RTEMS_TIMESLICE_MASK
|
||||
ASR_MASK RTEMS_ASR_MASK
|
||||
INTERRUPT_MASK RTEMS_INTERRUPT_MASK
|
||||
#
|
||||
# Masks (Internal)
|
||||
#
|
||||
MODES_ALL_MASK RTEMS_ALL_MODE_MASKS
|
||||
MODES_PREEMPT_MASK RTEMS_PREEMPT_MASK
|
||||
MODES_TIMESLICE_MASK RTEMS_TIMESLICE_MASK
|
||||
MODES_ASR_MASK RTEMS_ASR_MASK
|
||||
MODES_INTERRUPT_MASK RTEMS_INTERRUPT_MASK
|
||||
#
|
||||
# Modes (Internal)
|
||||
#
|
||||
MODES_DEFAULTS RTEMS_DEFAULT_MODES
|
||||
MODES_PREEMPT RTEMS_PREEMPT
|
||||
MODES_NO_PREEMPT RTEMS_NO_PREEMPT
|
||||
MODES_NO_TIMESLICE RTEMS_NO_TIMESLICE
|
||||
MODES_TIMESLICE RTEMS_TIMESLICE
|
||||
MODES_ASR RTEMS_ASR
|
||||
MODES_NO_ASR RTEMS_NO_ASR
|
||||
_Modes_Interrupt_level RTEMS_INTERRUPT_LEVEL
|
||||
#
|
||||
# Modes (External)
|
||||
#
|
||||
DEFAULT_MODES RTEMS_DEFAULT_MODES
|
||||
PREEMPT RTEMS_PREEMPT
|
||||
NO_PREEMPT RTEMS_NO_PREEMPT
|
||||
NO_TIMESLICE RTEMS_NO_TIMESLICE
|
||||
TIMESLICE RTEMS_TIMESLICE
|
||||
ASR RTEMS_ASR
|
||||
NO_ASR RTEMS_NO_ASR
|
||||
INTERRUPT_LEVEL RTEMS_INTERRUPT_LEVEL
|
||||
#
|
||||
# Identification (External)
|
||||
#
|
||||
SEARCH_ALL_NODES RTEMS_SEARCH_ALL_NODES
|
||||
SEARCH_OTHER_NODES RTEMS_SEARCH_OTHER_NODES
|
||||
SEARCH_LOCAL_NODE RTEMS_SEARCH_LOCAL_NODE
|
||||
WHO_AM_I RTEMS_WHO_AM_I
|
||||
#
|
||||
# Identification (Internal)
|
||||
#
|
||||
OBJECTS_SEARCH_ALL_NODES RTEMS_SEARCH_ALL_NODES
|
||||
OBJECTS_SEARCH_OTHER_NODES RTEMS_SEARCH_OTHER_NODES
|
||||
OBJECTS_SEARCH_LOCAL_NODE RTEMS_SEARCH_LOCAL_NODE
|
||||
OBJECTS_WHO_AM_I RTEMS_WHO_AM_I
|
||||
#
|
||||
# Miscellaneous (External API)
|
||||
#
|
||||
CURRENT_MODE RTEMS_CURRENT_MODE
|
||||
CURRENT_PRIORITY RTEMS_CURRENT_PRIORITY
|
||||
PENDING_EVENTS RTEMS_PENDING_EVENTS
|
||||
NO_TIMEOUT RTEMS_NO_TIMEOUT
|
||||
SELF RTEMS_SELF
|
||||
PERIOD_STATUS RTEMS_PERIOD_STATUS
|
||||
YIELD_PROCESSOR RTEMS_YIELD_PROCESSOR
|
||||
MINIMUM_PRIORITY RTEMS_MINIMUM_PRIORITY
|
||||
MAXIMUM_PRIORITY RTEMS_MAXIMUM_PRIORITY
|
||||
MINIMUM_STACK_SIZE RTEMS_MINIMUM_STACK_SIZE
|
||||
#
|
||||
# Miscellaneous (External API)
|
||||
#
|
||||
MODES_CURRENT RTEMS_CURRENT_MODE
|
||||
PRIORITY_CURRENT RTEMS_CURRENT_PRIORITY
|
||||
#
|
||||
# Events
|
||||
#
|
||||
ALL_EVENTS RTEMS_ALL_EVENTS
|
||||
EVENT_0 RTEMS_EVENT_0
|
||||
EVENT_1 RTEMS_EVENT_1
|
||||
EVENT_2 RTEMS_EVENT_2
|
||||
EVENT_3 RTEMS_EVENT_3
|
||||
EVENT_4 RTEMS_EVENT_4
|
||||
EVENT_5 RTEMS_EVENT_5
|
||||
EVENT_6 RTEMS_EVENT_6
|
||||
EVENT_7 RTEMS_EVENT_7
|
||||
EVENT_8 RTEMS_EVENT_8
|
||||
EVENT_9 RTEMS_EVENT_9
|
||||
EVENT_10 RTEMS_EVENT_10
|
||||
EVENT_11 RTEMS_EVENT_11
|
||||
EVENT_12 RTEMS_EVENT_12
|
||||
EVENT_13 RTEMS_EVENT_13
|
||||
EVENT_14 RTEMS_EVENT_14
|
||||
EVENT_15 RTEMS_EVENT_15
|
||||
EVENT_16 RTEMS_EVENT_16
|
||||
EVENT_17 RTEMS_EVENT_17
|
||||
EVENT_18 RTEMS_EVENT_18
|
||||
EVENT_19 RTEMS_EVENT_19
|
||||
EVENT_20 RTEMS_EVENT_20
|
||||
EVENT_21 RTEMS_EVENT_21
|
||||
EVENT_22 RTEMS_EVENT_22
|
||||
EVENT_23 RTEMS_EVENT_23
|
||||
EVENT_24 RTEMS_EVENT_24
|
||||
EVENT_25 RTEMS_EVENT_25
|
||||
EVENT_26 RTEMS_EVENT_26
|
||||
EVENT_27 RTEMS_EVENT_27
|
||||
EVENT_28 RTEMS_EVENT_28
|
||||
EVENT_29 RTEMS_EVENT_29
|
||||
EVENT_30 RTEMS_EVENT_30
|
||||
EVENT_31 RTEMS_EVENT_31
|
||||
#
|
||||
# Signals
|
||||
#
|
||||
SIGNAL_0 RTEMS_SIGNAL_0
|
||||
SIGNAL_1 RTEMS_SIGNAL_1
|
||||
SIGNAL_2 RTEMS_SIGNAL_2
|
||||
SIGNAL_3 RTEMS_SIGNAL_3
|
||||
SIGNAL_4 RTEMS_SIGNAL_4
|
||||
SIGNAL_5 RTEMS_SIGNAL_5
|
||||
SIGNAL_6 RTEMS_SIGNAL_6
|
||||
SIGNAL_7 RTEMS_SIGNAL_7
|
||||
SIGNAL_8 RTEMS_SIGNAL_8
|
||||
SIGNAL_9 RTEMS_SIGNAL_9
|
||||
SIGNAL_10 RTEMS_SIGNAL_10
|
||||
SIGNAL_11 RTEMS_SIGNAL_11
|
||||
SIGNAL_12 RTEMS_SIGNAL_12
|
||||
SIGNAL_13 RTEMS_SIGNAL_13
|
||||
SIGNAL_14 RTEMS_SIGNAL_14
|
||||
SIGNAL_15 RTEMS_SIGNAL_15
|
||||
SIGNAL_16 RTEMS_SIGNAL_16
|
||||
SIGNAL_17 RTEMS_SIGNAL_17
|
||||
SIGNAL_18 RTEMS_SIGNAL_18
|
||||
SIGNAL_19 RTEMS_SIGNAL_19
|
||||
SIGNAL_20 RTEMS_SIGNAL_20
|
||||
SIGNAL_21 RTEMS_SIGNAL_21
|
||||
SIGNAL_22 RTEMS_SIGNAL_22
|
||||
SIGNAL_23 RTEMS_SIGNAL_23
|
||||
SIGNAL_24 RTEMS_SIGNAL_24
|
||||
SIGNAL_25 RTEMS_SIGNAL_25
|
||||
SIGNAL_26 RTEMS_SIGNAL_26
|
||||
SIGNAL_27 RTEMS_SIGNAL_27
|
||||
SIGNAL_28 RTEMS_SIGNAL_28
|
||||
SIGNAL_29 RTEMS_SIGNAL_29
|
||||
SIGNAL_30 RTEMS_SIGNAL_30
|
||||
SIGNAL_31 RTEMS_SIGNAL_31
|
||||
#
|
||||
# Notepads
|
||||
#
|
||||
NOTEPAD_FIRST RTEMS_NOTEPAD_FIRST
|
||||
NOTEPAD_0 RTEMS_NOTEPAD_0
|
||||
NOTEPAD_1 RTEMS_NOTEPAD_1
|
||||
NOTEPAD_2 RTEMS_NOTEPAD_2
|
||||
NOTEPAD_3 RTEMS_NOTEPAD_3
|
||||
NOTEPAD_4 RTEMS_NOTEPAD_4
|
||||
NOTEPAD_5 RTEMS_NOTEPAD_5
|
||||
NOTEPAD_6 RTEMS_NOTEPAD_6
|
||||
NOTEPAD_7 RTEMS_NOTEPAD_7
|
||||
NOTEPAD_8 RTEMS_NOTEPAD_8
|
||||
NOTEPAD_9 RTEMS_NOTEPAD_9
|
||||
NOTEPAD_10 RTEMS_NOTEPAD_10
|
||||
NOTEPAD_11 RTEMS_NOTEPAD_11
|
||||
NOTEPAD_12 RTEMS_NOTEPAD_12
|
||||
NOTEPAD_13 RTEMS_NOTEPAD_13
|
||||
NOTEPAD_14 RTEMS_NOTEPAD_14
|
||||
NOTEPAD_15 RTEMS_NOTEPAD_15
|
||||
NOTEPAD_LAST RTEMS_NOTEPAD_LAST
|
||||
#
|
||||
# Multiprocessing
|
||||
#
|
||||
MIN_PKTSIZE RTEMS_MINIMUM_PACKET_SIZE
|
||||
MIN_HETERO_CONV RTEMS_MINIMUN_HETERO_CONVERSION
|
||||
#
|
||||
# Name and ID External
|
||||
#
|
||||
get_node rtems_get_node
|
||||
get_index rtems_get_index
|
||||
build_name rtems_build_name
|
||||
name_to_characters rtems_name_to_characters
|
||||
#
|
||||
# Name and ID Internal
|
||||
#
|
||||
_Objects_Get_node rtems_get_node
|
||||
_Objects_Get_index rtems_get_index
|
||||
_Objects_Build_name rtems_build_name
|
||||
_Objects_Name_to_characters rtems_name_to_characters
|
||||
#
|
||||
# clock_get
|
||||
#
|
||||
CLOCK_GET_TOD RTEMS_CLOCK_GET_TOD
|
||||
CLOCK_GET_SECONDS_SINCE_EPOCH RTEMS_CLOCK_GET_SECONDS_SINCE_EPOCH
|
||||
CLOCK_GET_TICKS_SINCE_BOOT RTEMS_CLOCK_GET_TICKS_SINCE_BOOT
|
||||
CLOCK_GET_TICKS_PER_SECOND RTEMS_CLOCK_GET_TICKS_PER_SECOND
|
||||
CLOCK_GET_TIME_VALUE RTEMS_CLOCK_GET_TIME_VALUE
|
||||
#
|
||||
# Status Code Support Routines (External) -- NO CHANGES
|
||||
#
|
||||
#
|
||||
# Status Code Support Routines (Internal)
|
||||
#
|
||||
_Status_Is_successful rtems_is_status_successful
|
||||
_Status_Is_equal rtems_are_statuses_equal
|
||||
#
|
||||
# Time Conversion Support Routines (External) -- NO CHANGES
|
||||
#
|
||||
#
|
||||
# Time Conversion Support Routines (Internal)
|
||||
#
|
||||
_TOD_Milliseconds_to_microseconds RTEMS_MILLISECONDS_TO_MICROSECONDS
|
||||
_TOD_Milliseconds_to_ticks RTEMS_MILLISECONDS_TO_MICROSECONDS
|
||||
#
|
||||
# MP packet
|
||||
#
|
||||
MP_PACKET_INTERNAL_THREADS RTEMS_MP_PACKET_INTERNAL_THREADS
|
||||
MP_PACKET_RTEMS_TASKS RTEMS_MP_PACKET_TASKS
|
||||
MP_PACKET_MESSAGE_QUEUE RTEMS_MP_PACKET_MESSAGE_QUEUE
|
||||
MP_PACKET_SEMAPHORE RTEMS_MP_PACKET_SEMAPHORE
|
||||
MP_PACKET_PARTITION RTEMS_MP_PACKET_PARTITION
|
||||
MP_PACKET_REGION RTEMS_MP_PACKET_REGION
|
||||
MP_PACKET_EVENT RTEMS_MP_PACKET_EVENT
|
||||
MP_PACKET_SIGNAL RTEMS_MP_PACKET_SIGNAL
|
||||
#
|
||||
#
|
||||
#
|
||||
IO_Major_control rtems_device_major_number
|
||||
IO_Minor_control rtems_device_minor_number
|
||||
#
|
||||
# Configuration Info
|
||||
#
|
||||
Configuration_Table rtems_configuration_table
|
||||
Configuration_Initialization_tasks_table rtems_initialization_tasks_table
|
||||
Configuration_Driver_address_table rtems_driver_address_table
|
||||
Configuration_Extension_table rtems_extensions_table
|
||||
rtems_tasks_create_extension rtems_task_create_extension
|
||||
rtems_tasks_start_extension rtems_task_start_extension
|
||||
rtems_tasks_restart_extension rtems_task_restart_extension
|
||||
rtems_tasks_delete_extension rtems_task_delete_extension
|
||||
rtems_tasks_switch_extension rtems_task_switch_extension
|
||||
rtems_tasks_begin_extension rtems_task_begin_extension
|
||||
rtems_tasks_exitted_extension rtems_task_exitted_extension
|
||||
rtems_fatal_extension rtems_fatal_extension
|
||||
Configuration_MPCI_table rtems_mpci_table
|
||||
Configuration_Multiprocessing_table rtems_multiprocessing_table
|
||||
CPU_Table rtems_cpu_table
|
||||
#
|
||||
Clock_Get_options rtems_clock_get_options
|
||||
Clock_Time_value rtems_clock_time_value
|
||||
MP_packet_Prefix rtems_packet_prefix
|
||||
MP_packet_Classes rtems_mp_packet_classes
|
||||
TOD_Control rtems_time_of_day
|
||||
ISR_Vector rtems_vector_number
|
||||
Watchdog_Interval rtems_interval
|
||||
Watchdog_Service rtems_timer_service_routine_entry
|
||||
Attributes_Control rtems_attribute
|
||||
Modes_Control rtems_mode
|
||||
Options_Control rtems_option
|
||||
Priority_Control rtems_task_priority
|
||||
PRIORITY_MINIMUM RTEMS_MINIMUM_PRIORITY
|
||||
PRIORITY_MAXIMUM RTEMS_MAXIMUM_PRIORITY
|
||||
Event_sets_Control rtems_event_set
|
||||
ASR_Signal_set_control rtems_signal_set
|
||||
Status_Codes rtems_status_code
|
||||
RTEMS_TASKS_YIELD_PROCESSOR RTEMS_YIELD_PROCESSOR
|
||||
RATE_MONOTONIC_PERIOD_STATUS RTEMS_PERIOD_STATUS
|
||||
WATCHDOG_FOREVER RTEMS_NO_TIMEOUT
|
||||
STACK_MINIMUM_SIZE RTEMS_MINIMUM_STACK_SIZE
|
||||
#
|
||||
ASR_Handler rtems_asr_entry
|
||||
Thread_Entry rtems_task_entry
|
||||
#
|
||||
disable_intr rtems_interrupt_disable
|
||||
enable_intr rtems_interrupt_enable
|
||||
flash_intr rtems_interrupt_flash
|
||||
|
||||
@@ -1,3 +1,16 @@
|
||||
2003-03-12 Ralf Corsepius <corsepiu@faw.uni-ulm.de>
|
||||
|
||||
* 310_to_320_list: Delete (Obsolete).
|
||||
* acpolish: Delete (Obsolete).
|
||||
* ampolish: Delete (Obsolete).
|
||||
* cipolish: Delete (Obsolete).
|
||||
* rtems-polish.sh: Delete (Obsolete).
|
||||
* update.in: Delete (Unused).
|
||||
* word-replace.in: Delete (Unused).
|
||||
* README: Delete (Obsolete).
|
||||
* Makefile.am: Reflect changes above.
|
||||
* configure.ac: Reflect changes above.
|
||||
|
||||
2003-03-06 Ralf Corsepius <corsepiu@faw.uni-ulm.de>
|
||||
|
||||
* configure.ac: Remove AC_CONFIG_AUX_DIR.
|
||||
|
||||
@@ -4,32 +4,4 @@
|
||||
|
||||
ACLOCAL_AMFLAGS = -I ../../aclocal
|
||||
|
||||
## NOTE: It doesn't make much sense to install these files
|
||||
|
||||
CLEANFILES = update word-replace
|
||||
|
||||
if PERL
|
||||
# All files in this directory depend on having perl.
|
||||
# Do not handle them if perl is missing.
|
||||
|
||||
noinst_SCRIPTS = acpolish ampolish cipolish rtems-polish.sh word-replace \
|
||||
update
|
||||
|
||||
noinst_DATA = 310_to_320_list
|
||||
|
||||
update: $(srcdir)/update.in $(top_builddir)/config.status
|
||||
@cd $(top_builddir) \
|
||||
&& CONFIG_FILES=$@ CONFIG_HEADERS= $(SHELL) ./config.status; \
|
||||
chmod 755 $@
|
||||
|
||||
word-replace: $(srcdir)/word-replace.in $(top_builddir)/config.status
|
||||
@cd $(top_builddir) \
|
||||
&& CONFIG_FILES=$@ CONFIG_HEADERS= $(SHELL) ./config.status; \
|
||||
chmod 755 $@
|
||||
|
||||
endif
|
||||
|
||||
EXTRA_DIST = 310_to_320_list update.in word-replace.in acpolish ampolish \
|
||||
cipolish rtems-polish.sh
|
||||
|
||||
include $(top_srcdir)/../../automake/host.am
|
||||
|
||||
@@ -1,7 +0,0 @@
|
||||
#
|
||||
# $Id$
|
||||
#
|
||||
|
||||
This directory contains tools which aid in upgrading from RTEMS 3.1.0
|
||||
to RTEMS 3.2.0.
|
||||
|
||||
@@ -1,679 +0,0 @@
|
||||
#!/usr/bin/perl
|
||||
|
||||
use strict ;
|
||||
|
||||
sub print_macro($$);
|
||||
|
||||
#
|
||||
# Perl script to beautify and enhance RTEMS autoconf Makefile.ins
|
||||
#
|
||||
# Reads from stdin and writes to stdout
|
||||
#
|
||||
# usage:
|
||||
# acpolish <Makefile.in >Makefile.in~
|
||||
# mv Makefile.in~ Makefile.in
|
||||
#
|
||||
# Note: This tool is not indented to be exported from the source-tree
|
||||
#
|
||||
|
||||
if ( -f "Makefile.am" )
|
||||
{
|
||||
# Refuse to work on Makefile.ins generated from automake;
|
||||
# redirecting STDOUT to Makefile.in will trash the Makefile.in ;-
|
||||
|
||||
die "acpolish must not be run in automake directories" ;
|
||||
}
|
||||
|
||||
my $experimental = 0 ; # enable experimental/unsafe features
|
||||
my $verbose = 0 ;
|
||||
my $build_pgms_seen = "" ;
|
||||
my $make_exe_seen = 0 ;
|
||||
my $install_seen = 0 ;
|
||||
my $top_builddir = "";
|
||||
my $subdir = "";
|
||||
my @installdirs = () ;
|
||||
|
||||
my @pieces = () ;
|
||||
my @files = () ;
|
||||
my @variants = () ;
|
||||
my @vars = () ;
|
||||
|
||||
# Strip off duplicate entries from a list
|
||||
sub purge($)
|
||||
{
|
||||
my $list = $_[0] ; # Reference to list !
|
||||
my (@tmp) = () ;
|
||||
|
||||
foreach my $l ( @{$list} )
|
||||
{
|
||||
my $i = 1 ;
|
||||
foreach my $t (@tmp)
|
||||
{
|
||||
if ( $t eq $l )
|
||||
{
|
||||
$i = 0 ;
|
||||
last ;
|
||||
}
|
||||
}
|
||||
push @tmp,$l if ($i) ;
|
||||
}
|
||||
|
||||
@{$list} = @tmp ;
|
||||
}
|
||||
|
||||
sub find_root
|
||||
{
|
||||
$top_builddir = "." ;
|
||||
$subdir="";
|
||||
my $pwd = `pwd`; chomp $pwd;
|
||||
$pwd .= "/" ;
|
||||
my $len ;
|
||||
|
||||
if ( -f "configure.in" ) { return $top_builddir ; }
|
||||
my $i = rindex($pwd,'/');
|
||||
|
||||
$len = $i;
|
||||
$pwd = substr($pwd,0,$len);
|
||||
$i = rindex($pwd,'/');
|
||||
$subdir = substr($pwd,$i+1,$len - 1);
|
||||
$top_builddir = ".." ;
|
||||
|
||||
while( -d "$top_builddir" )
|
||||
{
|
||||
if ( -f "${top_builddir}/configure.in" )
|
||||
{
|
||||
return $top_builddir ;
|
||||
}
|
||||
$len=$i;
|
||||
$pwd = substr($pwd,0,$len);
|
||||
$i = rindex($pwd,'/');
|
||||
$subdir = substr($pwd,$i+1,$len - 1) . "/$subdir";
|
||||
$top_builddir .= "/.." ;
|
||||
} ;
|
||||
die "Can't find configure.in\n" ;
|
||||
}
|
||||
|
||||
find_root();
|
||||
|
||||
my @buffer = () ;
|
||||
|
||||
sub subst_line
|
||||
{
|
||||
# substitute obsolete variables
|
||||
if ( /^([^\s]*)[\s]+$/o )
|
||||
{ # strip trailing spaces
|
||||
$_ = "$1\n";
|
||||
}
|
||||
if ( /^(.*)MKLIB(.*)$/o )
|
||||
{
|
||||
s/MKLIB/RANLIB/g ;
|
||||
}
|
||||
if ( /^(.*)\$\(INSTINCFLAGS\)(.*)$/o )
|
||||
{
|
||||
s/\$\(INSTINCFLAGS\)/-m 644/g ;
|
||||
}
|
||||
if ( /^(.*)ASM(_FILES|_PIECES|_O_FILES)(.*)$/o )
|
||||
{
|
||||
s/ASM_FILES/S_FILES/g ;
|
||||
s/ASM_PIECES/S_PIECES/g ;
|
||||
s/ASM_O_FILES/S_O_FILES/g ;
|
||||
print STDERR "ASM: $_" if ( $verbose > 0) ;
|
||||
}
|
||||
if ( /^(.*)MP_PIECES(.*)$/o )
|
||||
{ # HACK: this is not always correct
|
||||
s/MP_PIECES/MP_C_PIECES/g ;
|
||||
print STDERR "MP_PIECES: $_" if ( $verbose > 0 );
|
||||
}
|
||||
if ( /^(.*)\$\(RTEMS_BSP\)(.*)$/o )
|
||||
{
|
||||
s/\$\(RTEMS_BSP\)/\@RTEMS_BSP\@/g ;
|
||||
}
|
||||
if ( /^(.*)\$\(RTEMS_ROOT\)\/mkinstalldirs(.*)$/o )
|
||||
{
|
||||
$_ = "$1\$\(mkinstalldirs\)$2\n" ;
|
||||
}
|
||||
if ( /^(.*)\$\{(.*)_FILES\}(.*)$/o )
|
||||
{
|
||||
$_ = "$1\$\($2_FILES\)$3\n" ;
|
||||
}
|
||||
if ( /^(.*)\$\{(.*)_PIECES\}(.*)$/o )
|
||||
{
|
||||
$_ = "$1\$\($2_PIECES\)$3\n" ;
|
||||
}
|
||||
if ( /^(.*)\$\(PROJECT_ROOT\)\/\@RTEMS_BSP\@\/lib\/include(.*)$/o )
|
||||
{
|
||||
$_ = "$1\$\(PROJECT_INCLUDE\)$2\n" ;
|
||||
}
|
||||
if ( /^(.*)\$\{PROJECT_RELEASE\}(.*)$/o )
|
||||
{
|
||||
$_ = "$1\$\(PROJECT_RELEASE\)$2\n" ;
|
||||
}
|
||||
if ( /^(.*\$\(INSTALL_[A-Z]+\))[\s]+-m[\s]+([54])([0-9][0-9].*)$/o )
|
||||
{
|
||||
my $v = $2 + 2 ;
|
||||
$_ = "$1 -m $v$3\n" ;
|
||||
}
|
||||
if ( /^H_FILES[\s]*=[\s]*\$\(wildcard[\s]+\$\(srcdir\)\/\*\.h\)[\s]*$/o )
|
||||
{
|
||||
my $files =`ls *.h 2>/dev/null`;
|
||||
print STDERR "WARNING: Replacing \"\(wildcard... in $_\n" ;
|
||||
my $line = "H_FILES =";
|
||||
my @l = split(' ',$files) ;
|
||||
foreach(@l) { $line .= " \$\(srcdir\)/$_"; }
|
||||
$line .= "\n" ;
|
||||
$_ = "$line" ;
|
||||
}
|
||||
if ( /^(.*)RTEMS_HAS_([A-Z]+)(.*)$/o )
|
||||
{
|
||||
print STDERR "WARNING: Replacing RTEMS_HAS_$2 with HAS_$2\n" ;
|
||||
$_ = "$1HAS_$2$3\n" ;
|
||||
}
|
||||
if ( /^[\s]*\$[({]PGM[)}]:[\s]*(.*)\$([({]SRCS[)}])(.*)$/o )
|
||||
{
|
||||
$_ = "\$(PGM):$1$3\n" ;
|
||||
}
|
||||
if ( /^.*\$\(make\-exe\).*$/o )
|
||||
{
|
||||
$make_exe_seen = 1 ;
|
||||
}
|
||||
if ( /^.*\$\(INSTALL_(DATA|SCRIPT|PROGRAM)\)(.*)$/o )
|
||||
{
|
||||
$install_seen = 1 ;
|
||||
}
|
||||
}
|
||||
|
||||
{
|
||||
# 1st PASS:
|
||||
# * Read input file
|
||||
# * concatenate multiple lines
|
||||
# * Remove obsolete variables
|
||||
|
||||
my @ibuf = () ;
|
||||
my $line = "" ;
|
||||
|
||||
while ( <STDIN> )
|
||||
{
|
||||
&subst_line ;
|
||||
if ( /^(#.*)$/o )
|
||||
{ # preserve comments
|
||||
$line = "$_" ;
|
||||
push @ibuf, $line ;
|
||||
$line = "" ;
|
||||
}
|
||||
elsif ( /^.*\\$/o )
|
||||
{ # multilines
|
||||
chop ;
|
||||
$line .= "$_\\" ;
|
||||
}
|
||||
else
|
||||
{
|
||||
$line .= "$_" ;
|
||||
push @ibuf, $line ;
|
||||
$line = "" ;
|
||||
}
|
||||
}
|
||||
@buffer = @ibuf;
|
||||
}
|
||||
|
||||
{
|
||||
# 2nd PASS:
|
||||
# * remove automatically generated lines
|
||||
# * process some selected make rules
|
||||
my $line = "" ;
|
||||
my @tbuf = () ;
|
||||
foreach (@buffer)
|
||||
{
|
||||
if ( /^[\t](.*)$/o )
|
||||
{ # make rule production
|
||||
my $line = $1 ;
|
||||
tr/\\/ / ;
|
||||
my @l = split(/;/,$_);
|
||||
foreach (@l)
|
||||
{ # try to get installation directories
|
||||
if ( /^.*\$\(mkinstalldirs\).*\s\$\(INSTALLDIRS\)$/o )
|
||||
{
|
||||
}
|
||||
elsif ( /^.*\$\(mkinstalldirs\).*\s([^\s]+)$/o )
|
||||
{
|
||||
push @installdirs, "$1" ;
|
||||
}
|
||||
elsif ( /^.*\$\(INSTALL_CHANGE\).*\s([^\s]+)(\/[^\.\s]+\.[^\s\/]+)$/o )
|
||||
{
|
||||
# print STDERR "WARNING - DIR1: $1 <$2> " ;
|
||||
push @installdirs, "$1" ;
|
||||
}
|
||||
elsif ( /^.*\$\(INSTALL_CHANGE\).*\s([^\s]+)$/o )
|
||||
{
|
||||
# print STDERR "DIR2 $1\n" ;
|
||||
push @installdirs, "$1" ;
|
||||
}
|
||||
}
|
||||
push @tbuf, "<22>3$line"
|
||||
}
|
||||
elsif ( /^[\s]*\#.*$/o )
|
||||
{ # comment
|
||||
push @tbuf, "$_" ;
|
||||
}
|
||||
elsif ( /^[\s]*([A-Z_]*)_FILES[\s]*\=[\s]*(.*)$/o )
|
||||
{ # *_FILES = ... Macros
|
||||
if ( /^[\s]*([A-Z_]*_|)(CC|C|EQ|H|I|O|S|X)_FILES[\s]*\=[\s]*(.*)$/o )
|
||||
{
|
||||
# print STDERR "FILES: <$1>--<$2>--<$3>\n" ;
|
||||
my $f = "$1$2_FILES" ;
|
||||
${"var_$f"}="$3" ;
|
||||
if ( ( $experimental > 0 )
|
||||
and ( ( "$2" eq "C" ) or ( "$2" eq "CC" ) or ( "$2" eq "S" )
|
||||
or ( "$2" eq "I" ) or ( "$2" eq "H" ) ) )
|
||||
{
|
||||
my $p = "$1$2_PIECES" ;
|
||||
if ( not defined ${"var_$p"} )
|
||||
{
|
||||
print STDERR "ADDING $p\n" ;
|
||||
${"var_$p"} = "" ;
|
||||
push @tbuf, "<22>4$p\n" ;
|
||||
push @pieces, "$p" ;
|
||||
}
|
||||
}
|
||||
# place a marker
|
||||
push @tbuf, "<22>4$f\n" ;
|
||||
push @files, "$f" ;
|
||||
}
|
||||
else
|
||||
{ # found a bug
|
||||
print STDERR "UNKNOWN _FILES: $_\n" ;
|
||||
my $f = "$1_FILES" ;
|
||||
${"var_$f"}="$2" ;
|
||||
# place a marker
|
||||
push @tbuf, "<22>4$f\n" ;
|
||||
push @files, "$f" ;
|
||||
}
|
||||
}
|
||||
elsif ( /^[\s]*([A-Z_]*)_PIECES[\s]*\=[\s]*(.*)$/o )
|
||||
{ # *_PIECES = ... Macros
|
||||
if ( /^[\s]*([A-Z][A-Z0-9_]*_|)(CC|C|EQ|H|I|O|S|X|REL)_PIECES[\s]*\=[\s]*(.*)$/o )
|
||||
{
|
||||
my $p = "$1$2_PIECES" ;
|
||||
|
||||
if ( not defined ${"var_$p"} )
|
||||
{
|
||||
${"var_$p"} = "$3" ;
|
||||
push @tbuf, "<22>4$p\n" ;
|
||||
push @pieces, "$p" ;
|
||||
}
|
||||
else
|
||||
{
|
||||
${"var_$p"} .= " $3" ;
|
||||
}
|
||||
}
|
||||
elsif ( /^[\s]*(BSP|CPU|GENERIC)_PIECES[\s]*\=[\s]*(.*)$/o )
|
||||
{ # Explicit exceptions from the *_PIECES naming conventions
|
||||
# They should better be replaced in future
|
||||
my $p = "$1_PIECES" ;
|
||||
${"var_$p"}="$2" ;
|
||||
# place a marker
|
||||
push @tbuf, "<22>4$p\n" ;
|
||||
push @pieces, "$p" ;
|
||||
}
|
||||
else
|
||||
{ # found a bug
|
||||
print STDERR "UNKNOWN _PIECES: $_\n" ;
|
||||
my $p = "$1_PIECES" ;
|
||||
${"var_$p"}="$2" ;
|
||||
# place a marker
|
||||
push @tbuf, "<22>4$p\n" ;
|
||||
push @pieces, "$p" ;
|
||||
}
|
||||
}
|
||||
elsif ( /^[\s]*([A-Z_]+)_PIECES_([^\s]+)_V[\s]*\=[\s]*(.*)$/o )
|
||||
{ # *_PIECES_.._V = ... Macros
|
||||
if ( /^[\s]*([A-Z][A-Z0-9_]*_|)(CC|C|EQ|H|I|O|S|X|REL)_PIECES_([^\s]+)_V[\s]*\=[\s]*(.*)$/o )
|
||||
{
|
||||
my @l = split(/_/,$3);
|
||||
my $v = "$1$2-$#l" ;
|
||||
if ( not defined @{"variants_$v"} ) { push @variants, "$v" ; }
|
||||
|
||||
my $p = "$1$2_PIECES_$3_V" ;
|
||||
push @{"variants_${v}"}, "$p" ;
|
||||
|
||||
${"var_$p"}="$4" ;
|
||||
# place a marker
|
||||
push @tbuf, "<22>4$p\n" ;
|
||||
push @pieces, "$p" ;
|
||||
}
|
||||
else
|
||||
{ # found a bug
|
||||
print STDERR "UNKNOWN _PIECES: $_\n" ;
|
||||
my $p = "$1_PIECES" ;
|
||||
${"var_$p"}="$2" ;
|
||||
# place a marker
|
||||
push @tbuf, "<22>4$p\n" ;
|
||||
push @pieces, "$p" ;
|
||||
}
|
||||
}
|
||||
elsif ( /^[\s]*([^\s+=]+)[\s]*\=[\s]*(.*)$/o )
|
||||
{ # makefile variables
|
||||
if ( ( "$1" eq "subdir" )
|
||||
or ( "$1" eq "top_srcdir" )
|
||||
or ( "$1" eq "top_builddir" )
|
||||
or ( "$1" eq "RTEMS_ROOT" )
|
||||
or ( "$1" eq "PROJECT_ROOT" )
|
||||
or ( "$1" eq "INSTALL" )
|
||||
or ( "$1" eq "PACKHEX" )
|
||||
or ( "$1" eq "INSTALL_CHANGE" )
|
||||
or ( "$1" eq "mkinstalldirs" )
|
||||
or ( "$1" eq "ACLOCAL" )
|
||||
or ( "$1" eq "AUTOCONF" )
|
||||
or ( "$1" eq "ACLOCAL_M4" )
|
||||
or ( "$1" eq "ACLOCAL_AMFLAGS" )
|
||||
)
|
||||
{
|
||||
print STDERR "REMOVE: $1\n" if $verbose ;
|
||||
}
|
||||
elsif ( "$1" eq "srcdir" )
|
||||
{ # place marker
|
||||
push @tbuf, "<22>0\n";
|
||||
}
|
||||
elsif ( "$1" eq "INSTALLDIRS" )
|
||||
{ # process the block
|
||||
my $input = $2 ;
|
||||
$input =~ s/\\\\/ /g ;
|
||||
my @l = split(' ',$input);
|
||||
foreach (@l)
|
||||
{
|
||||
if ( /[\s]*([^\s]+)[\s]*$/o )
|
||||
{
|
||||
push @installdirs, "$1" ;
|
||||
}
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
# print STDERR "MACRO: <$1> = <$2>\n";
|
||||
my $p = "$1" ;
|
||||
${"var_$p"}="$2" ;
|
||||
# place a marker
|
||||
push @tbuf, "<22>4$p\n" ;
|
||||
push @vars, "$p" ;
|
||||
}
|
||||
}
|
||||
elsif ( /^[\s]*([^\s+=]+)[\s]*\+\=[\s]*(.*)$/o )
|
||||
{ # makefile variable addition
|
||||
# print STDERR "MACRO: <$1> += <$2>\n";
|
||||
my $p = "$1" ;
|
||||
if ( not defined ${"var_$p+"} )
|
||||
{
|
||||
# place a marker
|
||||
push @tbuf, "<22>5$p\n" ;
|
||||
push @vars, "$p+" ;
|
||||
}
|
||||
else
|
||||
{
|
||||
print STDERR "WARNING += $_" ;
|
||||
}
|
||||
${"var_$p+"} .=" $2" ;
|
||||
}
|
||||
elsif ( /^[\s]*(\@[^\s]+\@)$/o )
|
||||
{ # autoconf variable
|
||||
if ( "$1" eq "\@SET_MAKE\@" )
|
||||
{
|
||||
}
|
||||
else
|
||||
{
|
||||
push @tbuf, "$1\n" ;
|
||||
}
|
||||
}
|
||||
elsif ( /^[\s]*include[\s]+(.*)$/o )
|
||||
{ # include line
|
||||
push @tbuf, "$_" ;
|
||||
if ( /^include[\s\t]*.*(directory|leaf|lib)\.cfg.*$/o )
|
||||
{
|
||||
push @tbuf, "<22>1\n" ;
|
||||
push @tbuf, "PACKHEX = \@PACKHEX\@\n" if ( $make_exe_seen == 1 ) ;
|
||||
push @tbuf, "<22>2\n" ;
|
||||
}
|
||||
}
|
||||
elsif ( /^[\s]*(ifeq|ifneq|else|endif)[\s]+(.*)$/o )
|
||||
{ # gmake conditionals
|
||||
# Most of them are removed, but we still have some :-
|
||||
push @tbuf, "$1 $2\n" ;
|
||||
}
|
||||
elsif ( /^\@.*_(TRUE|FALSE)\@.*$/o )
|
||||
{ # automake conditionals
|
||||
# HACK: Don't know how to handle them, so let's pass them through
|
||||
push @tbuf, "$_" ;
|
||||
}
|
||||
elsif ( /^[\s]*([^:]+)[\s]*(:[:]*)[\s]*(.*)$/o )
|
||||
{
|
||||
if ( "$2" eq "::" )
|
||||
{
|
||||
# Warn about "::"-rules
|
||||
# Will be silently removed below.
|
||||
print STDERR "WARNING: Removing \"::\" in RULE $_\n" ;
|
||||
}
|
||||
|
||||
if ( ( "$1" eq "Makefile" )
|
||||
or ( "$1" eq "\$\(INSTALLDIRS\)" )
|
||||
or ( "$1" eq "\$\(ACLOCAL_M4\)" )
|
||||
or ( "$1" eq "config\.status" )
|
||||
or ( "$1" eq "\$\(srcdir\)/configure" )
|
||||
)
|
||||
{ # delete entry
|
||||
shift @buffer ;
|
||||
}
|
||||
elsif ( ( "$1" eq "all" )
|
||||
or ( "$1" eq "preinstall" ) )
|
||||
{
|
||||
# Note the dependencies
|
||||
# Not yet exploited, but could be useful for dependency
|
||||
# tracking in future
|
||||
if ( defined ${"var_$1"} )
|
||||
{ ${"var_$1"} .= " $3" ; }
|
||||
else
|
||||
{ ${"var_$1"} = "$3" ; }
|
||||
push @tbuf, "$1: $3\n" ;
|
||||
}
|
||||
else
|
||||
{ # make rule
|
||||
push @tbuf, "$1: $3\n" ;
|
||||
}
|
||||
}
|
||||
elsif ( /^[\s]*$/o )
|
||||
{ # empty line
|
||||
push @tbuf, "\n" ;
|
||||
}
|
||||
else
|
||||
{
|
||||
die "PASS 2: Unhandled $_" ;
|
||||
}
|
||||
}
|
||||
@buffer = @tbuf ;
|
||||
@tbuf = @installdirs ;
|
||||
@installdirs = () ;
|
||||
foreach ( @tbuf )
|
||||
{
|
||||
if ( /^([^\s]+)(\/[^\.\s]+\.[^\s\/]+)$/o )
|
||||
{
|
||||
print STDERR "WARNING - stripping of file: $1 <$2> " if ( $verbose > 1 );
|
||||
push @installdirs, "$1" ;
|
||||
}
|
||||
else
|
||||
{
|
||||
push @installdirs, "$_" ;
|
||||
}
|
||||
}
|
||||
purge \@installdirs ;
|
||||
purge \@pieces ;
|
||||
}
|
||||
|
||||
# A fragment to debug conditionals
|
||||
#foreach( @variants )
|
||||
#{
|
||||
# my $v = $_ ;
|
||||
# print STDERR "VARIANT: $v\n";
|
||||
# foreach (@{"variants_${v}"})
|
||||
# {
|
||||
# print STDERR "* $_\n;" ;
|
||||
# }
|
||||
#}
|
||||
|
||||
# sanity check on *_FILES macros
|
||||
# too fragile for the time being,
|
||||
# therefore disabled by default
|
||||
if ( $experimental > 1 )
|
||||
{
|
||||
foreach( @files )
|
||||
{
|
||||
my $file = "$_" ;
|
||||
my $line = ${"var_$_"} ;
|
||||
$line =~ tr /\\/ /;
|
||||
my @l = split(' ',$line);
|
||||
my @o = () ;
|
||||
foreach (@l)
|
||||
{
|
||||
if ( /^([^\.]+)\.([a-z]+)$/o )
|
||||
{
|
||||
print STDERR "$file: *.$2 in $_\n" ;
|
||||
}
|
||||
elsif ( /^\$\(.*\)$/o )
|
||||
{
|
||||
print STDERR "$file: REF: $_\n" ;
|
||||
}
|
||||
else
|
||||
{
|
||||
print STDERR "$file: UNHANDLED: $_\n" ;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
# print STDERR "PASS 2: @buffer" ;
|
||||
|
||||
{
|
||||
# PASS 3:
|
||||
# * output to new Makefile
|
||||
# * prettyprint newlines
|
||||
|
||||
my $nl_seen = 0 ;
|
||||
foreach ( @buffer )
|
||||
{
|
||||
if ( /^$/o )
|
||||
{
|
||||
$nl_seen++ ;
|
||||
print "\n" if ( $nl_seen < 2 );
|
||||
}
|
||||
elsif ( /^\<5C>0$/o )
|
||||
{
|
||||
print "\@SET_MAKE\@\n" ;
|
||||
print "srcdir = \@srcdir\@\n" ;
|
||||
print "top_srcdir = \@top_srcdir\@\n" ;
|
||||
print "top_builddir = $top_builddir\n" ;
|
||||
if ( "$subdir" )
|
||||
{
|
||||
print "subdir = $subdir\n";
|
||||
}
|
||||
else
|
||||
{
|
||||
print "\nACLOCAL = aclocal\n" ;
|
||||
print "AUTOCONF = autoconf\n" ;
|
||||
print "ACLOCAL_M4 = \$(top_srcdir)/aclocal.m4\n" ;
|
||||
print "ACLOCAL_AMFLAGS = -I \@RTEMS_TOPdir\@/aclocal\n" ;
|
||||
}
|
||||
print "\nRTEMS_ROOT = \@RTEMS_ROOT\@\n" ;
|
||||
print "PROJECT_ROOT = \@PROJECT_ROOT\@\n\n" ;
|
||||
$nl_seen = 1 ;
|
||||
}
|
||||
elsif ( /^\<5C>1$/o )
|
||||
{
|
||||
print "\n" ;
|
||||
print "INSTALL = \@INSTALL\@\n" if ( $install_seen > 0 );
|
||||
print "INSTALL_CHANGE = \@INSTALL_CHANGE\@\n" ;
|
||||
$nl_seen = 0 ;
|
||||
}
|
||||
elsif ( /^\<5C>2$/o )
|
||||
{ # Handle installdirs related items
|
||||
if ( $#installdirs >= 0 )
|
||||
{
|
||||
print "mkinstalldirs = \$(SHELL) \$(top_srcdir)/\@RTEMS_TOPdir\@/mkinstalldirs\n\n" ;
|
||||
my $line = join( ' ',@installdirs );
|
||||
&print_macro( "INSTALLDIRS =", $line );
|
||||
print "\n\$(INSTALLDIRS):\n\t\@\$(mkinstalldirs) \$(INSTALLDIRS)\n\n" ;
|
||||
$nl_seen = 1 ;
|
||||
}
|
||||
}
|
||||
elsif ( /^\<5C>3(.*)$/o )
|
||||
{ # pretty print a shell script fragment/make production
|
||||
my @l = split(/\\\\/,$1);
|
||||
if ( $#l >= 0 ) { my $i = shift @l ; print "\t$i"; }
|
||||
foreach( @l ) { print "\\\n$_"; }
|
||||
print "\n" ;
|
||||
$nl_seen = 0 ;
|
||||
}
|
||||
elsif ( /^\<5C>4(.*)$/o )
|
||||
{ # pretty print a make variable
|
||||
&print_macro( "$1 =", ${"var_$1"} );
|
||||
$nl_seen = 0 ;
|
||||
}
|
||||
elsif ( /^\<5C>5(.*)$/o )
|
||||
{ # pretty print an addition to a make variable
|
||||
&print_macro( "$1 +=", ${"var_$1+"}) ;
|
||||
$nl_seen = 0 ;
|
||||
}
|
||||
else
|
||||
{
|
||||
$nl_seen = 0 ;
|
||||
print "$_" ;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
# Add rules for config.status generated files
|
||||
if ( "$build_pgms_seen" )
|
||||
{
|
||||
print "%: \$(srcdir)/%.in \$(top_builddir)/config.status\n" ;
|
||||
print " cd \$(top_builddir) \\\n" ;
|
||||
print " && CONFIG_FILES=" ;
|
||||
print "\$(subdir)/" if ( "$subdir" );
|
||||
print "\$@ CONFIG_HEADERS= \$(SHELL) ./config.status\n";
|
||||
}
|
||||
else
|
||||
{
|
||||
print "Makefile: \$(srcdir)/Makefile.in \$(top_builddir)/config.status\n" ;
|
||||
print "\tcd \$(top_builddir) \\\n" ;
|
||||
print "\t && CONFIG_FILES=" ;
|
||||
print "\$(subdir)/" if ( "$subdir" );
|
||||
print "\$@ CONFIG_HEADERS= \$(SHELL) ./config.status\n";
|
||||
}
|
||||
|
||||
if ( ! "$subdir" )
|
||||
{
|
||||
print "\n\$(ACLOCAL_M4): \@MAINTAINER_MODE_TRUE\@ configure.in\n" ;
|
||||
print "\tcd \$(srcdir) && \$(ACLOCAL) \$(ACLOCAL_AMFLAGS)\n" ;
|
||||
print "\nconfig.status: \$(srcdir)/configure \$(CONFIG_STATUS_DEPENDENCIES)\n" ;
|
||||
print "\t\$(SHELL) ./config.status --recheck\n" ;
|
||||
print "\$(srcdir)/configure: \@MAINTAINER_MODE_TRUE\@\$(srcdir)/configure.in";
|
||||
print " \$(ACLOCAL_M4)\n" ;
|
||||
print "\tcd \$(srcdir) && \$(AUTOCONF)\n"
|
||||
}
|
||||
|
||||
exit 0 ;
|
||||
|
||||
sub print_macro($$)
|
||||
{
|
||||
my ($line,$input) = @_ ;
|
||||
$input =~ s/\\\\/ /g;
|
||||
my @l = split(' ',$input);
|
||||
|
||||
foreach (@l) {
|
||||
if ( ( length($line) + length($_) ) < 76 )
|
||||
{
|
||||
$line .= " $_";
|
||||
}
|
||||
else
|
||||
{
|
||||
print "$line \\\n";
|
||||
$line = " $_" ;
|
||||
}
|
||||
}
|
||||
print "$line\n" ;
|
||||
}
|
||||
|
||||
@@ -1,544 +0,0 @@
|
||||
#!/usr/bin/perl
|
||||
|
||||
package main ;
|
||||
|
||||
use strict ;
|
||||
|
||||
#
|
||||
# Perl script to beautify and enhance RTEMS automake Makefile.ams
|
||||
#
|
||||
# Reads from stdin and writes to stdout
|
||||
#
|
||||
# usage:
|
||||
# <path-to>/ampolish <Makefile.am >Makefile.am~
|
||||
# mv Makefile.am~ Makefile.am
|
||||
#
|
||||
|
||||
my @vars ;
|
||||
my @conditions = ( "" ) ;
|
||||
my @buffer = ();
|
||||
my %var_ ;
|
||||
|
||||
define_variable( "\$(AUTOMAKE_OPTIONS)", ( "foreign", "1.4" ) );
|
||||
define_variable( "\$(VPATH)", ( "\@srcdir\@" ) );
|
||||
|
||||
# find relative up-path to configure.in
|
||||
my $rtems_cfg = find_file(".","configure.in");
|
||||
|
||||
# find relative up-path from configure.in to VERSION
|
||||
my $rtems_top = find_file("$rtems_cfg","VERSION");
|
||||
|
||||
if ( "$rtems_top" eq "." ) { $rtems_top = "" ; }
|
||||
else { $rtems_top .= "/" ; }
|
||||
|
||||
{
|
||||
# PASS1:
|
||||
# read input file and concatenate multiple lines into single lines.
|
||||
|
||||
my @ibuf = () ;
|
||||
|
||||
while( <STDIN> )
|
||||
{ # consume header
|
||||
last if ( /^[^#].*$/ ) ;
|
||||
push @ibuf, "$_" ;
|
||||
}
|
||||
|
||||
push @ibuf, "<22>header\n" ;
|
||||
|
||||
do
|
||||
{
|
||||
if ( /^(#.*)$/o )
|
||||
{ # preserve comments
|
||||
push @ibuf, "$_" ;
|
||||
}
|
||||
elsif ( /^(\t.*)\\[\s]*$/o )
|
||||
{ # multilines for scripts
|
||||
my $line = "$1<>" ;
|
||||
while( <STDIN> )
|
||||
{
|
||||
if ( /^(.*)\\[\s]*$/o )
|
||||
{
|
||||
$line .= "$1<>" ;
|
||||
}
|
||||
else
|
||||
{
|
||||
$line .= "$_" ;
|
||||
push @ibuf, $line ;
|
||||
last ;
|
||||
}
|
||||
}
|
||||
}
|
||||
elsif ( /^(.*)\\[\s]*$/o )
|
||||
{ # multilines
|
||||
my $line = "$1" ;
|
||||
while( <STDIN> )
|
||||
{
|
||||
if ( /^(.*)\\[\s]*$/o )
|
||||
{
|
||||
$line .= "$1" ;
|
||||
}
|
||||
else
|
||||
{
|
||||
$line .= "$_" ;
|
||||
$line =~ s%[\s]+% %g ;
|
||||
push @ibuf, "$line\n" ;
|
||||
last ;
|
||||
}
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
push @ibuf, "$_" ;
|
||||
}
|
||||
} while ( <STDIN> ) ;
|
||||
@buffer = @ibuf ;
|
||||
}
|
||||
|
||||
{
|
||||
# PASS2:
|
||||
# fix obsolete constructs
|
||||
my @ibuf = () ;
|
||||
|
||||
foreach ( @buffer )
|
||||
{
|
||||
if ( /^(TMP|PRE)INSTALL_FILES[\s]*=(.*)$/o )
|
||||
{ # force "+="
|
||||
push @ibuf, "$1INSTALL_FILES +=$2\n" ;
|
||||
}
|
||||
elsif ( /^(VPATH|EXTRA_DIST)[\s]*\+=(.*)$/o )
|
||||
{ # force "="
|
||||
push @ibuf, "$1 = $2\n" ;
|
||||
}
|
||||
elsif ( /^[\s]*ACLOCAL[\s]*=[\s]*\@ACLOCAL\@.*$/o )
|
||||
{ # remove the line
|
||||
}
|
||||
elsif ( /^[\s]*(ACLOCAL_AMFLAGS)[\s\t]*[\+]*=[\s]*(.*)[\s]*$/o )
|
||||
{ # remove the line
|
||||
}
|
||||
elsif ( /^[\s]*(AM_CFLAGS)[\s\t]*[\+]*=[\s]*\$\(CFLAGS_OS_V\)[\s]*$/o )
|
||||
{ # remove the line
|
||||
}
|
||||
elsif ( /^[\s]*debug-am:.*$/o )
|
||||
{ # remove the line
|
||||
}
|
||||
elsif ( /^[\s]*all(\-am):(.*)$/o )
|
||||
{ # replace the line
|
||||
push @ibuf, "all-local:$2\n" ;
|
||||
}
|
||||
elsif ( /^[\s]*profile-am:.*$/o )
|
||||
{ # remove the line
|
||||
}
|
||||
elsif ( /^[\s]*include[\s\t]*\$\(RTEMS_ROOT\)\/make\/lib.cfg[\s]*$/o )
|
||||
{
|
||||
push @ibuf, "include \$(top_srcdir)/${rtems_top}automake/lib.am\n" ;
|
||||
}
|
||||
elsif ( /^[\s]*include[\s\t]*.*compile.am[\s]*$/o )
|
||||
{
|
||||
# remove the line
|
||||
}
|
||||
elsif ( /^(.*[^\s])[\s]*$/o )
|
||||
{ # remove trailing spaces
|
||||
push @ibuf, "$1\n" ;
|
||||
}
|
||||
else
|
||||
{
|
||||
push @ibuf, "$_" ;
|
||||
}
|
||||
}
|
||||
@buffer = @ibuf ;
|
||||
}
|
||||
|
||||
{
|
||||
my @ibuf = () ;
|
||||
foreach ( @buffer )
|
||||
{
|
||||
if ( /^#(.*)$/o )
|
||||
{
|
||||
push @ibuf, "#$1\n" ;
|
||||
}
|
||||
elsif ( /^[\s]*if[\s\t]+([a-zA-Z0-9_]+)[\s\t]*$/o )
|
||||
{
|
||||
push @conditions, "\@" . $1 . "_TRUE\@" ;
|
||||
push @ibuf, "if $1\n" ;
|
||||
}
|
||||
elsif ( /^[\s]*else[\s\t]*$/o )
|
||||
{
|
||||
@conditions[$#conditions] =~ s/_TRUE\@$/_FALSE\@/;
|
||||
push @ibuf, "else\n" ;
|
||||
}
|
||||
elsif ( /^[\s]*endif[\s\t]*$/o )
|
||||
{
|
||||
pop @conditions ;
|
||||
push @ibuf, "endif\n" ;
|
||||
}
|
||||
elsif ( /^<5E>.*$/o )
|
||||
{
|
||||
push @ibuf, "$_" ;
|
||||
}
|
||||
elsif ( /^[\s]*(VPATH)[\s\t]*([\+]*)=[\s]*(.*)[\s]*$/o )
|
||||
{
|
||||
my $lh = "\$($1)" ;
|
||||
my @rh = split( /:/,"$3");
|
||||
if ( $#conditions > 0 )
|
||||
{
|
||||
print STDERR "WARNING: $1 must not be set inside of conditionals!\n"
|
||||
}
|
||||
define_variable( "$lh", @rh );
|
||||
|
||||
}
|
||||
elsif ( /^[\s]*(AUTOMAKE_OPTIONS)[\s\t]*([\+]*)=[\s]*(.*)$/o )
|
||||
{
|
||||
my $lh = "\$($1)" ;
|
||||
my @rh = &split_vars("$3");
|
||||
|
||||
if ( $#conditions > 0 )
|
||||
{
|
||||
print STDERR "WARNING: $1 must not be set inside of conditionals!\n"
|
||||
}
|
||||
|
||||
define_variable( "$lh", @rh );
|
||||
}
|
||||
elsif ( /^[\s]*([a-zA-Z0-9_]+)[\s\t]*([\+]*)=[\s]*(.*)$/o )
|
||||
{
|
||||
my $lh = join ('',@conditions) . "\$($1)" ;
|
||||
my @rh = &split_vars("$3");
|
||||
my $seen = variable_seen( "$lh" ) ;
|
||||
|
||||
if ( $#conditions > 0 )
|
||||
{
|
||||
define_variable( "\$($1)", () );
|
||||
}
|
||||
|
||||
define_variable( "$lh", @rh );
|
||||
|
||||
if ( not $seen )
|
||||
{
|
||||
push @ibuf, "<22>$2var_$lh\n" ;
|
||||
}
|
||||
}
|
||||
elsif ( /^[\s]*include[\s\t]*\$\(top_srcdir\)[\.\/]*automake\/(.*)\.am$/o )
|
||||
{
|
||||
if ( "$1" eq "lib" )
|
||||
{
|
||||
push @ibuf, "include \$(top_srcdir)/${rtems_top}automake/compile.am\n" ;
|
||||
push @ibuf, "include \$(top_srcdir)/${rtems_top}automake/$1.am\n" ;
|
||||
}
|
||||
elsif ( "$1" eq "local" )
|
||||
{
|
||||
$main::seen_local = 1 ;
|
||||
}
|
||||
elsif ( "$1" eq "host" )
|
||||
{
|
||||
$main::seen_host = 1 ;
|
||||
}
|
||||
}
|
||||
elsif ( /^[\s]*include[\s\t]*\$\(RTEMS_ROOT\)\/make\/(.*)\.cfg$/o )
|
||||
{
|
||||
if ( "$1" eq "leaf" )
|
||||
{
|
||||
push @ibuf, "include \$(top_srcdir)/${rtems_top}automake/compile.am\n" ;
|
||||
push @ibuf, "include \$(RTEMS_ROOT)/make/$1.cfg\n" ;
|
||||
}
|
||||
else
|
||||
{
|
||||
push @ibuf, "include \$(RTEMS_ROOT)/make/$1.cfg\n" ;
|
||||
}
|
||||
}
|
||||
elsif ( /^[\s]*include[\s\t]*(.*)$/o )
|
||||
{
|
||||
push @ibuf, "include $1\n" ;
|
||||
}
|
||||
elsif ( /^\t(.*)$/o )
|
||||
{
|
||||
push @ibuf, "\t$1\n" ;
|
||||
}
|
||||
elsif ( /^(.*)\:(.*)$/o )
|
||||
{
|
||||
push @ibuf, "$1:$2\n" ;
|
||||
}
|
||||
elsif ( /^[\s]*$/o )
|
||||
{
|
||||
push @ibuf, "\n" ;
|
||||
}
|
||||
else
|
||||
{
|
||||
die "ERROR: Don't know how to handle <$_>" ;
|
||||
}
|
||||
} # for
|
||||
@buffer = @ibuf ;
|
||||
} # while
|
||||
|
||||
die "Conditional stack corrupted" if ( $#conditions != 0 );
|
||||
|
||||
foreach( @vars )
|
||||
{
|
||||
purge( \@{$var_{"$_"}} );
|
||||
}
|
||||
|
||||
# print STDERR "<tmp>\n", @buffer, "</tmp>\n" ;
|
||||
|
||||
|
||||
{
|
||||
my @ibuf = () ;
|
||||
foreach( @buffer )
|
||||
{
|
||||
if ( /^#.*$/o )
|
||||
{
|
||||
push @ibuf, "$_" ;
|
||||
}
|
||||
elsif( /^<5E>header$/o )
|
||||
{
|
||||
my $l = $var_{"\$(AUTOMAKE_OPTIONS)"} ;
|
||||
push @ibuf, "\nAUTOMAKE_OPTIONS = @{$l}\n" ;
|
||||
if ( "$rtems_cfg" eq "." )
|
||||
{
|
||||
push @ibuf, "ACLOCAL_AMFLAGS = -I ${rtems_top}aclocal\n" ;
|
||||
}
|
||||
if ( defined( @{$var_{"\$(VPATH)"}} ) )
|
||||
{
|
||||
if ( $#{$var_{"\$(VPATH)"}} > 0 )
|
||||
{
|
||||
my $l = join (':',@{$var_{"\$(VPATH)"}}) ;
|
||||
push @ibuf, "\nVPATH = $l\n" ;
|
||||
}
|
||||
}
|
||||
push @ibuf, "\n" ;
|
||||
}
|
||||
elsif ( /^<5E>(\+|)var_(.*)\$\((.*)\)$/o )
|
||||
{
|
||||
print_var(\@ibuf, "$3 $1=", $var_{"$2\$($3)"}) ;
|
||||
}
|
||||
elsif ( /^\t.*$/o )
|
||||
{
|
||||
&print_script(\@ibuf, "$_");
|
||||
}
|
||||
elsif ( /^[\s]*if[\s]+([a-zA-Z0-9_]+)[\s\t]*$/o )
|
||||
{
|
||||
push @conditions, "\@$1_TRUE\@" ;
|
||||
push @ibuf, "if $1\n" ;
|
||||
}
|
||||
elsif ( /^[\s]*else[\s]*$/o )
|
||||
{
|
||||
@conditions[$#conditions] =~ s/_TRUE\@$/_FALSE\@/;
|
||||
push @ibuf, "else\n" ;
|
||||
}
|
||||
elsif ( /^[\s]*endif[\s]*$/o )
|
||||
{
|
||||
pop @conditions ;
|
||||
push @ibuf, "endif\n" ;
|
||||
}
|
||||
else
|
||||
{
|
||||
print_line(\@ibuf,$_);
|
||||
}
|
||||
}
|
||||
|
||||
if ( variable_seen("\$(SUBDIRS)") )
|
||||
{
|
||||
push @ibuf, "include \$(top_srcdir)/${rtems_top}automake/subdirs.am\n" ;
|
||||
}
|
||||
|
||||
if ( defined( $main::seen_host ) )
|
||||
{
|
||||
push @ibuf, "include \$(top_srcdir)/${rtems_top}automake/host.am\n" ;
|
||||
}
|
||||
else
|
||||
{
|
||||
push @ibuf, "include \$(top_srcdir)/${rtems_top}automake/local.am\n" ;
|
||||
}
|
||||
|
||||
@buffer = @ibuf ;
|
||||
}
|
||||
|
||||
#print STDERR "<tmp>\n", @buffer, "</tmp>\n" ;
|
||||
|
||||
{ ## pretty print
|
||||
my $out = join ('',@buffer) ;
|
||||
$out =~ s/\s\#\n(\#\n)+/\n/g ;
|
||||
$out =~ s/\n\n\#\n\n/\n/g ;
|
||||
$out =~ s/\n\n[\n]*/\n\n/g ;
|
||||
print $out ;
|
||||
}
|
||||
|
||||
exit 0;
|
||||
|
||||
# find a relative up-path to a file $file, starting at directory $pre
|
||||
sub find_file($$)
|
||||
{
|
||||
my $pre = $_[0] ;
|
||||
my $file= $_[1] ;
|
||||
|
||||
my $top = "." ;
|
||||
if (not "$pre") { $pre = "." ; }
|
||||
|
||||
for ( my $str = "$pre" . "/" . "$top" ;
|
||||
( -d "$str" ) ;
|
||||
$str = "$pre" . "/" . "$top" )
|
||||
{
|
||||
if ( -f "${str}/${file}" )
|
||||
{
|
||||
return $top ;
|
||||
}
|
||||
if ( "$top" eq "." )
|
||||
{
|
||||
$top = ".." ;
|
||||
}
|
||||
else
|
||||
{
|
||||
$top .= "/.." ;
|
||||
}
|
||||
} ;
|
||||
die "Can't find file ${file}\n" ;
|
||||
}
|
||||
|
||||
sub variable_seen($)
|
||||
{
|
||||
my $label = "$_[0]" ;
|
||||
my $res = defined $var_{"$label"};
|
||||
#print STDERR "SEEN: $label ->$res<\n" ;
|
||||
return $res ;
|
||||
}
|
||||
|
||||
sub define_variable($$)
|
||||
{
|
||||
my ($label,@value) = @_ ;
|
||||
|
||||
if ( not variable_seen("$label") )
|
||||
{
|
||||
#print STDERR "DEFINING: $label\n" ;
|
||||
push @vars, "$label" ;
|
||||
}
|
||||
|
||||
foreach my $i ( @{value} )
|
||||
{
|
||||
push @{$var_{"$label"}}, $i ;
|
||||
}
|
||||
}
|
||||
|
||||
# Strip off duplicate entries from a list
|
||||
sub purge($)
|
||||
{
|
||||
my $list = $_[0] ; # Reference to list !
|
||||
my (@tmp) = () ;
|
||||
|
||||
foreach my $l ( @{$list} )
|
||||
{
|
||||
my $i = 1 ;
|
||||
foreach my $t (@tmp)
|
||||
{
|
||||
if ( $t eq $l )
|
||||
{
|
||||
$i = 0 ;
|
||||
last ;
|
||||
}
|
||||
}
|
||||
push @tmp,$l if ($i) ;
|
||||
}
|
||||
|
||||
@{$list} = @tmp ;
|
||||
}
|
||||
|
||||
#
|
||||
# Break the right hand side of a variable assignment into separate chunks
|
||||
#
|
||||
sub split_vars($)
|
||||
{
|
||||
my $line = $_[0] ;
|
||||
my (@buf) = split(//,"$line") ;
|
||||
|
||||
my $begin = 0 ;
|
||||
my @res = () ;
|
||||
|
||||
my $depth = 0 ;
|
||||
my $state = 0 ;
|
||||
|
||||
my $len = $#buf + 1 ;
|
||||
for ( my $i = 0 ; $i < $len ; $i++ )
|
||||
{
|
||||
my $c = @buf[$i] ;
|
||||
if ( $state == 0 )
|
||||
{
|
||||
if ( "$c" ne " " )
|
||||
{ # token
|
||||
$begin = $i ;
|
||||
$state++ ;
|
||||
}
|
||||
if ( "$c" eq "\$" )
|
||||
{ # variable
|
||||
$depth++ ;
|
||||
}
|
||||
}
|
||||
elsif ( $state == 1 )
|
||||
{
|
||||
if ( ( "$c" eq "\)" ) or ( "$c" eq "\}" ) )
|
||||
{ # variable
|
||||
$depth-- ;
|
||||
}
|
||||
elsif ( ("$c" eq " " ) and ( $depth == 0 ) )
|
||||
{
|
||||
push @res, substr($line,$begin,$i-$begin);
|
||||
$state-- ;
|
||||
}
|
||||
elsif ( "$c" eq "\$" )
|
||||
{ # variable
|
||||
$depth++ ;
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
die "split_vars: unknown mode\n" ;
|
||||
}
|
||||
}
|
||||
|
||||
if ( $state > 0 )
|
||||
{
|
||||
push @res, substr($line,$begin,$len-$begin);
|
||||
$state = 0
|
||||
}
|
||||
return @res ;
|
||||
}
|
||||
|
||||
sub print_var($$$)
|
||||
{
|
||||
my ($ibuf,$line,$l) = @_ ; # $l .. reference to list
|
||||
|
||||
foreach (@{$l}) {
|
||||
if ( ( length($line) + length($_) ) < 76 )
|
||||
{
|
||||
$line .= " $_";
|
||||
}
|
||||
else
|
||||
{
|
||||
push @{$ibuf}, "$line \\\n";
|
||||
$line = " $_" ;
|
||||
}
|
||||
}
|
||||
push @{$ibuf}, "$line\n" ;
|
||||
}
|
||||
|
||||
sub print_line($$)
|
||||
{
|
||||
my ($ibuf,$input) = @_ ;
|
||||
my @l = split( / /, $input );
|
||||
my $line = shift @l ;
|
||||
|
||||
foreach my $i (@l) {
|
||||
if ( ( length($line) + length($i) ) < 76 )
|
||||
{
|
||||
$line .= " $i";
|
||||
}
|
||||
else
|
||||
{
|
||||
push @{$ibuf}, "$line \\\n";
|
||||
$line = " $i" ;
|
||||
}
|
||||
}
|
||||
push @{$ibuf}, "$line" ;
|
||||
}
|
||||
|
||||
sub print_script($$)
|
||||
{
|
||||
my ($ibuf,$input) = @_ ;
|
||||
$input =~ s%<25>%\\\n%g ;
|
||||
push @{$ibuf}, $input ;
|
||||
}
|
||||
@@ -1,247 +0,0 @@
|
||||
#!/usr/bin/perl
|
||||
|
||||
#
|
||||
# Perl script to beautify and enhance RTEMS configure.in
|
||||
#
|
||||
# Reads from stdin and writes to stdout
|
||||
#
|
||||
# usage:
|
||||
# acpolish <configure.in >configure.in~
|
||||
# mv configure.in~ configure.in
|
||||
#
|
||||
|
||||
# $Id$
|
||||
|
||||
use strict ;
|
||||
|
||||
my @vars = () ;
|
||||
my @buffer = () ;
|
||||
my %var_ ;
|
||||
|
||||
# find relative up-path to VERSION
|
||||
my $rtems_cfg = &find_file(".","VERSION");
|
||||
my $rtems_root = &find_root() ;
|
||||
$rtems_root =~ tr/\//\-/ ;
|
||||
my $rtems_name = "rtems" ;
|
||||
$rtems_name .= "-" . "$rtems_root" if (length($rtems_root) > 0 ) ;
|
||||
|
||||
while ( <> )
|
||||
{
|
||||
push @buffer, "$_" ;
|
||||
}
|
||||
|
||||
{
|
||||
my @tbuf = () ;
|
||||
|
||||
foreach ( @buffer )
|
||||
{
|
||||
if ( /^#.*list.*Makefile.*$/o ) {}
|
||||
elsif ( /^dnl[\s]+check.*target.*cc.*$/o ) {}
|
||||
elsif ( /^[\s]*AC_CONFIG_AUX_DIR\(.*\)[\s]*$/o )
|
||||
{
|
||||
push @tbuf, "AC_CONFIG_AUX_DIR($rtems_cfg)\n" ;
|
||||
}
|
||||
elsif ( /^[\s]*RTEMS_TOP\(.*\)[\s]*$/o )
|
||||
{
|
||||
push @tbuf, "RTEMS_TOP($rtems_cfg)\n" ;
|
||||
}
|
||||
elsif ( /^[\s]*AM_INIT_AUTOMAKE\(.*\)[\s]*$/o )
|
||||
{
|
||||
push @tbuf, "AM_INIT_AUTOMAKE($rtems_name,\$RTEMS_VERSION,no)\n" ;
|
||||
}
|
||||
elsif ( /^[\s]*AC_SUBST\(RTEMS_HAS_POSIX_API\)[\s]*$/o )
|
||||
{
|
||||
#remove the line
|
||||
}
|
||||
elsif ( /^[\s]*AC_SUBST\(RTEMS_HAS_ITRON_API\)[\s]*$/o )
|
||||
{
|
||||
#remove the line
|
||||
}
|
||||
elsif ( /^[\s]*AC_SUBST\(RTEMS_HAS_HWAPI\)[\s]*$/o )
|
||||
{
|
||||
#remove the line
|
||||
}
|
||||
elsif ( /^[\s]*AC_SUBST\(RTEMS_USE_MACROS\)[\s]*$/o )
|
||||
{
|
||||
#remove the line
|
||||
}
|
||||
elsif ( /^[\s]*AC_SUBST\(RTEMS_HAS_MULTIPROCESSING\)[\s]*$/o )
|
||||
{
|
||||
#remove the line
|
||||
}
|
||||
elsif ( /^[\s]*AC_SUBST\(RTEMS_HAS_RDBG\)[\s]*$/o )
|
||||
{
|
||||
#remove the line
|
||||
}
|
||||
elsif ( /^[\s\t]*AC_SUBST\(RTEMS_USE_OWN_PDIR\)[\s]*$/o )
|
||||
{ # obsolete option
|
||||
#remove the line
|
||||
}
|
||||
elsif ( /^[\s\t]*RTEMS_ENABLE_GMAKE_PRINT[ ]*$/o )
|
||||
{ # obsolete macro
|
||||
#remove the line
|
||||
}
|
||||
elsif ( /^[\s]*AC_SUBST\(RTEMS_HAS_NETWORKING\)[\s]*$/o )
|
||||
{
|
||||
#remove the line
|
||||
}
|
||||
elsif ( /^[\s]*AC_SUBST\(RTEMS_LIBC_DIR\)[\s]*$/o )
|
||||
{
|
||||
#remove the line
|
||||
}
|
||||
elsif ( /^[\s]*AC_SUBST\(PROJECT_ROOT\)[\s]*$/o )
|
||||
{
|
||||
#remove the line
|
||||
}
|
||||
elsif ( /^[\s]*AC_SUBST\(RTEMS_GAS_CODE16\)[\s]*$/o )
|
||||
{
|
||||
#remove the line
|
||||
}
|
||||
elsif ( /^[\s]*PROJECT_ROOT[\s]*=.*$/o )
|
||||
{
|
||||
#remove the line
|
||||
}
|
||||
elsif ( /^[\s]*(RTEMS_ENABLE_LIBCDIR).*$/o )
|
||||
{ #remove the line
|
||||
&define_variable("$1","");
|
||||
push @tbuf, "$_" ;
|
||||
}
|
||||
elsif ( /^[\s]*(RTEMS_PROG_CC_FOR_TARGET).*$/o )
|
||||
{
|
||||
&define_variable("$1","");
|
||||
push @tbuf, "$_" ;
|
||||
}
|
||||
elsif ( /^[\s]*(RTEMS_PROG_CXX_FOR_TARGET).*$/o )
|
||||
{
|
||||
&define_variable("$1","");
|
||||
push @tbuf, "$_" ;
|
||||
}
|
||||
else
|
||||
{
|
||||
push @tbuf, "$_" ;
|
||||
}
|
||||
} # foreach
|
||||
@buffer = @tbuf ;
|
||||
}
|
||||
|
||||
{
|
||||
my @tbuf = () ;
|
||||
foreach ( @buffer )
|
||||
{
|
||||
if ( /^[\s]*(RTEMS_ENABLE_LIBCDIR).*$/o )
|
||||
{
|
||||
if ( ( not variable_seen( "RTEMS_PROG_CC_FOR_TARGET" ) )
|
||||
and ( not variable_seen( "RTEMS_PROG_CXX_FOR_TARGET" ) )
|
||||
)
|
||||
{
|
||||
push @tbuf, "$_" ;
|
||||
}
|
||||
}
|
||||
elsif ( /^AC_OUTPUT.*$/o )
|
||||
{
|
||||
push @tbuf, "# Explicitly list all Makefiles here\n" ;
|
||||
push @tbuf, "$_" ;
|
||||
}
|
||||
else
|
||||
{
|
||||
push @tbuf, "$_" ;
|
||||
}
|
||||
}
|
||||
@buffer = @tbuf ;
|
||||
}
|
||||
|
||||
{ ## pretty print
|
||||
my $out = join ('',@buffer) ;
|
||||
$out =~ s/\s\#\n(\#\n)+/\n/g ;
|
||||
$out =~ s/\n\n\#\n\n/\n/g ;
|
||||
$out =~ s/\n\n[\n]*/\n\n/g ;
|
||||
print $out ;
|
||||
}
|
||||
|
||||
exit 1 ;
|
||||
|
||||
# find a relative up-path to a file $file, starting at directory $pre
|
||||
sub find_file($$)
|
||||
{
|
||||
my $pre = $_[0] ;
|
||||
my $file= $_[1] ;
|
||||
|
||||
my $top = "." ;
|
||||
if (not "$pre") { $pre = "." ; }
|
||||
|
||||
for ( my $str = "$pre" . "/" . "$top" ;
|
||||
( -d "$str" ) ;
|
||||
$str = "$pre" . "/" . "$top" )
|
||||
{
|
||||
if ( -f "${str}/${file}" )
|
||||
{
|
||||
return $top ;
|
||||
}
|
||||
if ( "$top" eq "." )
|
||||
{
|
||||
$top = ".." ;
|
||||
}
|
||||
else
|
||||
{
|
||||
$top .= "/.." ;
|
||||
}
|
||||
} ;
|
||||
die "Can't find file ${file}\n" ;
|
||||
}
|
||||
|
||||
sub find_root()
|
||||
{
|
||||
my $top_builddir = "." ;
|
||||
my $subdir="";
|
||||
my $pwd = `pwd`; chomp $pwd;
|
||||
$pwd .= "/" ;
|
||||
my $len ;
|
||||
|
||||
if ( -f "VERSION" ) { return $subdir ; }
|
||||
my $i = rindex($pwd,'/');
|
||||
|
||||
$len = $i;
|
||||
$pwd = substr($pwd,0,$len);
|
||||
$i = rindex($pwd,'/');
|
||||
$subdir = substr($pwd,$i+1,$len - 1);
|
||||
$top_builddir = ".." ;
|
||||
|
||||
while( -d "$top_builddir" )
|
||||
{
|
||||
if ( -f "${top_builddir}/VERSION" )
|
||||
{
|
||||
return $subdir ;
|
||||
}
|
||||
$len=$i;
|
||||
$pwd = substr($pwd,0,$len);
|
||||
$i = rindex($pwd,'/');
|
||||
$subdir = substr($pwd,$i+1,$len - 1) . "/$subdir";
|
||||
$top_builddir .= "/.." ;
|
||||
} ;
|
||||
die "Can't find VERSION\n" ;
|
||||
}
|
||||
|
||||
sub variable_seen($)
|
||||
{
|
||||
my $label = "$_[0]" ;
|
||||
my $res = defined $var_{"$label"};
|
||||
#print STDERR "SEEN: $label ->$res<\n" ;
|
||||
return $res ;
|
||||
}
|
||||
|
||||
sub define_variable($$)
|
||||
{
|
||||
my ($label,@value) = @_ ;
|
||||
|
||||
if ( not variable_seen("$label") )
|
||||
{
|
||||
# print STDERR "DEFINING $label\n" ;
|
||||
push @vars, "$label" ;
|
||||
}
|
||||
|
||||
foreach my $i ( @{value} )
|
||||
{
|
||||
push @{$var_{"$label"}}, $i ;
|
||||
}
|
||||
}
|
||||
|
||||
@@ -4,7 +4,7 @@
|
||||
|
||||
AC_PREREQ(2.57)
|
||||
AC_INIT([rtems-tools-update],[_RTEMS_VERSION],[rtems-bugs@OARcorp.com])
|
||||
AC_CONFIG_SRCDIR([rtems-polish.sh])
|
||||
AC_CONFIG_SRCDIR([configure.ac])
|
||||
RTEMS_TOP(../..)
|
||||
|
||||
AC_CANONICAL_HOST
|
||||
@@ -12,13 +12,6 @@ AC_CANONICAL_HOST
|
||||
AM_INIT_AUTOMAKE([no-define foreign 1.7.2])
|
||||
AM_MAINTAINER_MODE
|
||||
|
||||
RTEMS_PATH_KSH
|
||||
RTEMS_PATH_PERL
|
||||
|
||||
AM_CONDITIONAL(PERL,test -n "$PERL")
|
||||
|
||||
RTEMS_TOOLPATHS
|
||||
# Explicitly list all Makefiles here
|
||||
AC_CONFIG_FILES([Makefile
|
||||
])
|
||||
AC_CONFIG_FILES([Makefile])
|
||||
AC_OUTPUT
|
||||
|
||||
@@ -1,118 +0,0 @@
|
||||
#!/bin/sh
|
||||
|
||||
# $Id$
|
||||
|
||||
#
|
||||
# Search RTEMS source tree for autoconf Makefile.ins and automake
|
||||
# Makefile.ams and run c/update-tools/acpolish rsp. c/update-tool/ampolish
|
||||
# on them.
|
||||
#
|
||||
# To be run from the toplevel directory of the source-tree
|
||||
#
|
||||
|
||||
progname=`basename $0`
|
||||
rootdir=`dirname $0`
|
||||
|
||||
# Get the absolute path to the perltools
|
||||
pwd=`pwd`
|
||||
cd $rootdir
|
||||
perltools=`pwd`
|
||||
cd $pwd
|
||||
|
||||
ac_do=""
|
||||
am_do=""
|
||||
ci_do=""
|
||||
|
||||
usage()
|
||||
{
|
||||
echo
|
||||
echo "usage: ./${perltools}/${progname} [-h][-ac|-am|-ci]";
|
||||
echo
|
||||
echo "options:"
|
||||
echo " -h .. display this message and exit";
|
||||
echo " -ac .. run acpolish on all autoconf Makefile.ins"
|
||||
echo " -am .. run ampolish on all automake Makefile.ams"
|
||||
echo " -ci .. run cipolish on all configure.in scripts"
|
||||
echo
|
||||
exit 1;
|
||||
}
|
||||
|
||||
# Check for auxiliary files
|
||||
aux_files="../../VERSION ampolish acpolish cipolish"
|
||||
for i in ${aux_files}; do
|
||||
if test ! -f ${perltools}/$i; then
|
||||
echo "${progname}:"
|
||||
echo " Missing $perltools/$i"
|
||||
exit 1;
|
||||
fi
|
||||
done
|
||||
|
||||
while test $# -gt 0; do
|
||||
case $1 in
|
||||
-h|--he|--hel|--help)
|
||||
usage ;;
|
||||
-ac)
|
||||
ac_do="yes";
|
||||
shift ;;
|
||||
-am)
|
||||
am_do="yes";
|
||||
shift ;;
|
||||
-ci)
|
||||
ci_do="yes";
|
||||
shift ;;
|
||||
-*) echo "unknown option $1" ;
|
||||
usage ;;
|
||||
*) echo "invalid parameter $1" ;
|
||||
usage ;;
|
||||
esac
|
||||
done
|
||||
|
||||
if test -z "$ac_do" && test -z "$am_do" && test -z "$ci_do"; then
|
||||
usage
|
||||
fi
|
||||
|
||||
pwd=`pwd`;
|
||||
|
||||
if test -n "$ac_do"; then
|
||||
ac_files=`find . -name 'Makefile.in' -print`;
|
||||
for f in $ac_files; do
|
||||
i=`dirname $f`
|
||||
dest="$i"
|
||||
if test ! -f $dest/Makefile.am; then
|
||||
echo "polishing : $dest/Makefile.in"
|
||||
( cd $dest;
|
||||
mv Makefile.in Makefile.in~;
|
||||
${perltools}/acpolish <Makefile.in~ >Makefile.in
|
||||
rm Makefile.in~
|
||||
)
|
||||
fi
|
||||
done
|
||||
fi
|
||||
|
||||
if test -n "$am_do"; then
|
||||
am_files=`find . -name 'Makefile.am' -print`;
|
||||
for f in $am_files; do
|
||||
i=`dirname $f`
|
||||
dest="$i"
|
||||
echo "polishing : $dest/Makefile.am"
|
||||
( cd $dest;
|
||||
mv Makefile.am Makefile.am~;
|
||||
${perltools}/ampolish <Makefile.am~ >Makefile.am
|
||||
rm Makefile.am~
|
||||
)
|
||||
done
|
||||
fi
|
||||
|
||||
if test -n "$ci_do"; then
|
||||
ci_files=`find . -name 'configure.in' -print`;
|
||||
for f in $ci_files; do
|
||||
i=`dirname $f`
|
||||
dest="$i"
|
||||
echo "polishing : $dest/configure.in"
|
||||
( cd $dest;
|
||||
mv configure.in configure.in~;
|
||||
${perltools}/cipolish <configure.in~ >configure.in
|
||||
rm configure.in~
|
||||
)
|
||||
done
|
||||
fi
|
||||
@@ -1,216 +0,0 @@
|
||||
#!@KSH@ -p
|
||||
#
|
||||
# $Id$
|
||||
#
|
||||
# Either bash or ksh will be ok for this; requires 'test -ot'
|
||||
# (-p above just says to not parse $ENV file; makes it faster for
|
||||
# those of us who set $ENV)
|
||||
#
|
||||
# Update RTEMS applications for the API changes from 3.1.0 to 3.2.0
|
||||
#
|
||||
# NOTE
|
||||
#
|
||||
# This is potentially a very dangerous program.
|
||||
|
||||
# progname=`basename $0`
|
||||
progname=${0##*/} # fast basename hack for ksh, bash
|
||||
|
||||
USAGE=\
|
||||
"
|
||||
usage: $progname [ -vs ] [ -b base_directory ] [-p file] [-f] [files...]
|
||||
-v -- verbose
|
||||
-p -- file with replacement instructions
|
||||
-s -- skip prompt for backup verification
|
||||
-f -- do files at end of line
|
||||
|
||||
base_directory is the root directory of the source code to update. It
|
||||
defaults to the current directory.
|
||||
|
||||
This program updates C, H, and .inl files.
|
||||
"
|
||||
|
||||
fatal() {
|
||||
if [ "$1" ]
|
||||
then
|
||||
echo >&2
|
||||
echo $* >&2
|
||||
echo >&2
|
||||
fi
|
||||
echo "$USAGE" 1>&2
|
||||
exit 1
|
||||
}
|
||||
|
||||
#
|
||||
# KLUDGE to figure out at runtime how to echo a line without a
|
||||
# newline.
|
||||
#
|
||||
count=`echo "\\c" | wc -c`
|
||||
if [ ${count} -ne 0 ] ; then
|
||||
EARG="-n"
|
||||
EOL=""
|
||||
else
|
||||
EARG=""
|
||||
EOL="\\c"
|
||||
fi
|
||||
|
||||
#
|
||||
# Function to make sure they do a backup
|
||||
#
|
||||
|
||||
WARNING=\
|
||||
"
|
||||
|
||||
*******************************************************************************
|
||||
*******************************************************************************
|
||||
*******************************************************************************
|
||||
**** ****
|
||||
**** WARNING!!! WARNING!!! WARNING!!! ****
|
||||
**** ****
|
||||
**** ALL SOURCE CODE SHOULD BE BACKED UP BEFORE RUNNING THIS PROGRAM!! ****
|
||||
**** ****
|
||||
**** WARNING!!! WARNING!!! WARNING!!! ****
|
||||
**** ****
|
||||
*******************************************************************************
|
||||
*******************************************************************************
|
||||
*******************************************************************************
|
||||
|
||||
"
|
||||
|
||||
verify_backup()
|
||||
{
|
||||
echo "$WARNING"
|
||||
continue="yes"
|
||||
while [ $continue = "yes" ]
|
||||
do
|
||||
echo ${EARG} "Do you wish to update the source tree at this time [y|n]? " ${EOL}
|
||||
read answer
|
||||
case $answer in
|
||||
[yY]*)
|
||||
continue="no"
|
||||
;;
|
||||
[nN]*)
|
||||
echo
|
||||
echo "Exitting at user request"
|
||||
echo
|
||||
exit 0
|
||||
;;
|
||||
esac
|
||||
done
|
||||
}
|
||||
|
||||
#
|
||||
# Default tools to use...
|
||||
#
|
||||
# NOTE: The GNU versions of both of these are faster.
|
||||
#
|
||||
find_prog=find
|
||||
xargs_prog=xargs
|
||||
|
||||
#
|
||||
# process the options
|
||||
#
|
||||
|
||||
verbose=""
|
||||
suffix=""
|
||||
mode=""
|
||||
base_directory=.
|
||||
do_files="no"
|
||||
do_prompt="yes"
|
||||
replacement_file="${RTEMS_ROOT}/update-tools/310_to_320_list"
|
||||
|
||||
while getopts sfp:b:v OPT
|
||||
do
|
||||
case "$OPT" in
|
||||
v)
|
||||
verbose="yes";;
|
||||
s)
|
||||
do_prompt="no";;
|
||||
b)
|
||||
base_directory=${OPTARG};;
|
||||
p)
|
||||
replacement_file=${OPTARG};;
|
||||
f)
|
||||
do_files="yes";;
|
||||
*)
|
||||
fatal
|
||||
esac
|
||||
done
|
||||
|
||||
let $((shiftcount = $OPTIND - 1))
|
||||
shift $shiftcount
|
||||
|
||||
args=$*
|
||||
|
||||
#
|
||||
# Make sure they have done a backup
|
||||
#
|
||||
|
||||
if [ ${do_prompt} = "yes" ]
|
||||
then
|
||||
verify_backup
|
||||
fi
|
||||
|
||||
#
|
||||
# Validate the base directory
|
||||
#
|
||||
|
||||
if [ ! -d $base_directory ]
|
||||
then
|
||||
fatal "${base_directory} does not exist"
|
||||
fi
|
||||
|
||||
#
|
||||
# Validate the replacement file
|
||||
#
|
||||
|
||||
if [ ! -r $replacement_file ]
|
||||
then
|
||||
fatal "${replacement_file} does not exist or is not readable"
|
||||
fi
|
||||
|
||||
|
||||
#
|
||||
# Verify enough of the RTEMS environment variables are set
|
||||
#
|
||||
|
||||
if [ ! -d "${RTEMS_ROOT}" ]
|
||||
then
|
||||
fatal "RTEMS_ROOT environment variable is not initialized"
|
||||
fi
|
||||
|
||||
#
|
||||
# Update the files
|
||||
#
|
||||
|
||||
generate_list()
|
||||
{
|
||||
if [ ${do_files} = "yes" ]
|
||||
then
|
||||
for i in $args
|
||||
do
|
||||
echo $i
|
||||
done
|
||||
else
|
||||
${find_prog} ${base_directory} \( -name "*.[ch]" -o -name "*.inl" \) -print
|
||||
fi
|
||||
}
|
||||
|
||||
generate_list | ${xargs_prog} |
|
||||
while read line
|
||||
do
|
||||
${RTEMS_ROOT}/update-tools/word-replace -p ${replacement_file} ${line}
|
||||
if [ $? -ne 0 ]
|
||||
then
|
||||
exit 1
|
||||
fi
|
||||
for file in ${line}
|
||||
do
|
||||
mv ${file}.fixed ${file}
|
||||
done
|
||||
done
|
||||
|
||||
exit 0
|
||||
|
||||
# Local Variables: ***
|
||||
# mode:ksh ***
|
||||
# End: ***
|
||||
@@ -1,89 +0,0 @@
|
||||
#!@PERL@
|
||||
#
|
||||
# $Id$
|
||||
#
|
||||
|
||||
eval "exec @PERL@ -S $0 $*"
|
||||
if $running_under_some_shell;
|
||||
|
||||
require 'getopts.pl';
|
||||
&Getopts("p:vh"); # help, pattern file, verbose,
|
||||
|
||||
if ($opt_h || ! $opt_p) {
|
||||
print STDERR <<NO_MORE_HELP;
|
||||
word-replace
|
||||
|
||||
Replace *words* with patterns. Pattern file specifies which patterns
|
||||
to replace on each line. All patterns are wrapped with perl \\b regexp
|
||||
specifiers.
|
||||
|
||||
Usage: $0 [-v] -p pattern-file files to replace
|
||||
|
||||
-v -- possibly more verbose
|
||||
-p file -- pattern file
|
||||
-h -- help
|
||||
|
||||
anything else == this help message
|
||||
|
||||
Pattern file looks like this:
|
||||
|
||||
# Example:
|
||||
# ignores all lines with beginning with # or not exactly 2 fields
|
||||
_Dorky_Name rtems_dorky_name # comments, and blank lines are cool
|
||||
_Dorky_Name2 rtems_dorky_name2 # comments, and blank lines are cool
|
||||
NO_MORE_HELP
|
||||
exit 0;
|
||||
}
|
||||
|
||||
$verbose = $opt_v;
|
||||
$pattern_file = $opt_p;
|
||||
|
||||
# make standard outputs unbuffered (so the '.'s come out ok)
|
||||
$oldfh = select(STDERR); $| = 1; select($oldfh);
|
||||
$oldfh = select(STDOUT); $| = 1; select($oldfh);
|
||||
|
||||
# pull in the patterns
|
||||
open(PATTERNS, "<$pattern_file") ||
|
||||
die "could not open $pattern_file: $!, crapped out at";
|
||||
|
||||
foreach (<PATTERNS>)
|
||||
{
|
||||
chop;
|
||||
s/#.*//;
|
||||
next if /^$/;
|
||||
($orig, $new, $junk, @rest) = split;
|
||||
next if ( ! $orig || ! $new || $junk); # <2 or >2 patterns
|
||||
die "pattern appears 2x: '$orig' in '$pattern_file'--" if defined($patterns{$orig});
|
||||
$patterns{$orig} = $new;
|
||||
}
|
||||
close PATTERNS;
|
||||
|
||||
# walk thru each line in each file
|
||||
foreach $file (@ARGV)
|
||||
{
|
||||
print "$file\t";
|
||||
|
||||
open (INFILE, "<$file") ||
|
||||
die "could not open input file $file: $!";
|
||||
|
||||
$outfile = $file . ".fixed";;
|
||||
open (OUTFILE, ">$outfile") ||
|
||||
die "could not open output file $outfile: $!";
|
||||
|
||||
while (<INFILE>)
|
||||
{
|
||||
study; # maybe make s/// faster
|
||||
foreach $key (keys %patterns)
|
||||
{
|
||||
if ( s/\b$key\b/$patterns{$key}/ge )
|
||||
{
|
||||
print ".";
|
||||
}
|
||||
}
|
||||
print OUTFILE $_;
|
||||
}
|
||||
print "\n";
|
||||
close INFILE;
|
||||
close OUTFILE;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user