sptests/sp22/task1.c

0001 /* SPDX-License-Identifier: BSD-2-Clause */
0002
0003 /*  Task_1
0004  *
0005  *  This routine serves as a test task.  It verifies the basic task
0006  *  switching capabilities of the executive.
0007  *
0008  *  Input parameters:
0009  *    argument - task argument
0010  *
0011  *  Output parameters:  NONE
0012  *
0013  *  COPYRIGHT (c) 1989-2009.
0014  *  On-Line Applications Research Corporation (OAR).
0015  *
0016  * Redistribution and use in source and binary forms, with or without
0017  * modification, are permitted provided that the following conditions
0018  * are met:
0019  * 1. Redistributions of source code must retain the above copyright
0020  *    notice, this list of conditions and the following disclaimer.
0021  * 2. Redistributions in binary form must reproduce the above copyright
0022  *    notice, this list of conditions and the following disclaimer in the
0023  *    documentation and/or other materials provided with the distribution.
0024  *
0025  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
0026  * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
0027  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
0028  * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
0029  * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
0030  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
0031  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
0032  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
0033  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
0034  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
0035  * POSSIBILITY OF SUCH DAMAGE.
0036  */
0037
0038 #ifdef HAVE_CONFIG_H
0039 #include "config.h"
0040 #endif
0041
0042 #include "system.h"
0043
0044 rtems_task Task_1(
0045   rtems_task_argument argument
0046 )
0047 {
0048   rtems_id          tmid;
0049   rtems_time_of_day time;
0050   rtems_status_code status;
0051
0052 /* Get id */
0053
0054   puts( "TA1 - rtems_timer_ident - identing timer 1" );
0055   status = rtems_timer_ident( Timer_name[ 1 ], &tmid );
0056   directive_failed( status, "rtems_timer_ident" );
0057   printf( "TA1 - timer 1 has id (0x%" PRIxrtems_id ")\n", tmid );
0058
0059 /* after which is allowed to fire */
0060
0061   Print_time();
0062
0063   puts( "TA1 - rtems_timer_fire_after - timer 1 in 3 seconds" );
0064   status = rtems_timer_fire_after(
0065     tmid,
0066     3 * rtems_clock_get_ticks_per_second(),
0067     Delayed_resume,
0068     NULL
0069   );
0070   directive_failed( status, "rtems_timer_fire_after" );
0071
0072   puts( "TA1 - rtems_task_suspend( RTEMS_SELF )" );
0073   status = rtems_task_suspend( RTEMS_SELF );
0074   directive_failed( status, "rtems_task_suspend" );
0075
0076   Print_time();
0077
0078 /* after which is reset and allowed to fire */
0079
0080   puts( "TA1 - rtems_timer_fire_after - timer 1 in 3 seconds" );
0081   status = rtems_timer_fire_after(
0082     tmid,
0083     3 * rtems_clock_get_ticks_per_second(),
0084     Delayed_resume,
0085     NULL
0086   );
0087   directive_failed( status, "rtems_timer_fire_after" );
0088
0089   puts( "TA1 - rtems_task_wake_after - 1 second" );
0090   status = rtems_task_wake_after( rtems_clock_get_ticks_per_second() );
0091   directive_failed( status, "rtems_task_wake_after" );
0092
0093   Print_time();
0094
0095   puts( "TA1 - rtems_timer_reset - timer 1" );
0096   status = rtems_timer_reset( tmid );
0097   directive_failed( status, "rtems_timer_reset" );
0098
0099   puts( "TA1 - rtems_task_suspend( RTEMS_SELF )" );
0100   status = rtems_task_suspend( RTEMS_SELF );
0101   directive_failed( status, "rtems_task_suspend" );
0102
0103   Print_time();
0104
0105   /*
0106    *  Reset the time since we do not know how long the user waited
0107    *  before pressing <cr> at the pause.  This insures that the
0108    *  actual output matches the screen.
0109    */
0110
0111   build_time( &time, 12, 31, 1988, 9, 0, 7, 0 );
0112
0113   status = rtems_clock_set( &time );
0114   directive_failed( status, "rtems_clock_set" );
0115
0116 /* after which is canceled */
0117
0118   puts( "TA1 - rtems_timer_fire_after - timer 1 in 3 seconds" );
0119   status = rtems_timer_fire_after(
0120     tmid,
0121     3 * rtems_clock_get_ticks_per_second(),
0122     Delayed_resume,
0123     NULL
0124   );
0125   directive_failed( status, "rtems_timer_fire_after" );
0126
0127   puts( "TA1 - rtems_timer_cancel - timer 1" );
0128   status = rtems_timer_cancel( tmid );
0129   directive_failed( status, "rtems_timer_cancel" );
0130
0131 /* when which is allowed to fire */
0132
0133   Print_time();
0134
0135   status = rtems_clock_get_tod( &time );
0136   directive_failed( status, "rtems_clock_get_tod" );
0137
0138   time.second += 3;
0139
0140   puts( "TA1 - rtems_timer_fire_when - timer 1 in 3 seconds" );
0141   status = rtems_timer_fire_when( tmid, &time, Delayed_resume, NULL );
0142   directive_failed( status, "rtems_timer_fire_when" );
0143
0144   puts( "TA1 - rtems_task_suspend( RTEMS_SELF )" );
0145   status = rtems_task_suspend( RTEMS_SELF );
0146   directive_failed( status, "rtems_task_suspend" );
0147
0148   Print_time();
0149
0150 /* when which is canceled */
0151
0152   status = rtems_clock_get_tod( &time );
0153   directive_failed( status, "rtems_clock_get_tod" );
0154
0155   time.second += 3;
0156
0157   puts( "TA1 - rtems_timer_fire_when - timer 1 in 3 seconds" );
0158   status = rtems_timer_fire_when( tmid, &time, Delayed_resume, NULL );
0159   directive_failed( status, "rtems_timer_fire_when" );
0160
0161   puts( "TA1 - rtems_task_wake_after - 1 second" );
0162   status = rtems_task_wake_after( rtems_clock_get_ticks_per_second() );
0163   directive_failed( status, "rtems_task_wake_after" );
0164
0165   Print_time();
0166
0167   puts( "TA1 - rtems_timer_cancel - timer 1" );
0168   status = rtems_timer_cancel( tmid );
0169   directive_failed( status, "rtems_timer_cancel" );
0170
0171 /* delete */
0172   puts( "TA1 - rtems_task_wake_after - YIELD (only task at priority)" );
0173   status = rtems_task_wake_after( RTEMS_YIELD_PROCESSOR );
0174   directive_failed( status, "rtems_task_wake_after" );
0175
0176   puts( "TA1 - timer_deleting - timer 1" );
0177   status = rtems_timer_delete( tmid );
0178   directive_failed( status, "rtems_timer_delete" );
0179
0180   TEST_END();
0181   rtems_test_exit( 0 );
0182 }