Anonymous user
Take notes on the command line: Difference between revisions
no edit summary
Not a robot (talk | contribs) (Add CLU) |
No edit summary |
||
Line 1,270:
note</lang>
=={{header|Fortran}}==
<lang fortran>
program notes
implicit none
integer :: i, length, iargs, lun, ios
integer,dimension(8) :: values
character(len=:),allocatable :: arg
character(len=256) :: line
character(len=1),parameter :: tab=char(9)
iargs = command_argument_count()
open(file='notes.txt',newunit=lun,action='readwrite',position='append',status='unknown')
if(iargs.eq.0)then
rewind(lun)
do
read(lun,'(a)',iostat=ios)line
if(ios.ne.0)exit
write(*,'(a)')trim(line)
enddo
else
call date_and_time(VALUES=values)
write(lun,'(*(g0))')values(1),"-",values(2),"-",values(3),"T",values(5),":",values(6),":",values(7)
write(lun,'(a)',advance='no')tab
do i=1,iargs
call get_command_argument(number=i,length=length)
arg=repeat(' ',length)
call get_command_argument(i, arg)
write(lun,'(a,1x)',advance='no')arg
enddo
write(lun,*)
endif
end program notes
</lang>
{{out}}<pre>
2022-2-20T18:40:13
this is an initial note
2022-2-20T18:40:38
the note of the day
</pre>
=={{header|FreeBASIC}}==
| |||