MMCT TEAM
Server IP : 128.199.20.84  /  Your IP : 108.162.216.90
Web Server : Apache/2.4.41 (Ubuntu)
System : Linux competent-maruti 5.4.0-128-generic #144-Ubuntu SMP Tue Sep 20 11:00:04 UTC 2022 x86_64
User : www-data ( 33)
PHP Version : 8.0.20
Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare,
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF
Directory (0755) :  /usr/share/doc/python3-requests-unixsocket/../mawk/examples/

[  Home  ][  C0mmand  ][  Upload File  ]

Current File : //usr/share/doc/python3-requests-unixsocket/../mawk/examples/eatc.awk
#!/usr/bin/mawk -f

#  eatc.awk
#  another program to remove comments
#


{  while( t = index($0 , "/*") )
   {
     printf "%s" , substr($0,1,t-1)
     $0 = eat_comment( substr($0, t+2) )
   }

   print 
}


function eat_comment(s,		t)
{
  #replace comment by one space
  printf " "

  while ( (t = index(s, "*/")) == 0 )
	if ( getline s == 0 )
	{ # input error -- unterminated comment
          system("/bin/sh -c 'echo unterminated comment' 1>&2")
	  exit 1
	}

  return  substr(s,t+2)
}


MMCT - 2023