From 7f10b4ed6a557b7a1fd1083939156a3dcf8b377e Mon Sep 17 00:00:00 2001
From: Flavio Cruz <flaviocruz@gmail.com>
Date: Tue, 15 Mar 2016 05:31:41 -0400
Subject: Remove functions, procedures and simple procedures.

This has been tested by cross-compiling a base Hurd system to make sure
these kinds of routines are no longer used.

* lexxer.l: Remove tokens.
* parser.y: Remove token types and production rules.
* routine.c: Remove rtMakeProcedure, rtMakeSimpleProcedure,
rtMakeFunction.
* routine.h: Remove enum values rkSimpleProcedure, rkProcedure,
rkFunction. Remove dead fields from struct routine.
* user.c: Simplify and remove dead code.
---
 parser.y | 19 -------------------
 1 file changed, 19 deletions(-)

(limited to 'parser.y')

diff --git a/parser.y b/parser.y
index e88fd22..b05bcc9 100644
--- a/parser.y
+++ b/parser.y
@@ -27,9 +27,6 @@
 %token	sySkip
 %token	syRoutine
 %token	sySimpleRoutine
-%token	sySimpleProcedure
-%token	syProcedure
-%token	syFunction
 
 %token	sySubsystem
 %token	syKernelUser
@@ -111,7 +108,6 @@
 %type	<type> BasicTypeSpec PrevTypeSpec ArgumentType
 %type	<symtype> PrimIPCType IPCType
 %type	<routine> RoutineDecl Routine SimpleRoutine
-%type	<routine> Procedure SimpleProcedure Function
 %type	<direction> Direction
 %type	<argument> Argument Arguments ArgumentList
 %type	<flag> IPCFlags
@@ -582,9 +578,6 @@ IntExp			: 	IntExp	syPlus	IntExp
  
 RoutineDecl		:	Routine			{ $$ = $1; }
 			|	SimpleRoutine		{ $$ = $1; }
-			|	Procedure		{ $$ = $1; }
-			|	SimpleProcedure		{ $$ = $1; }
-			|	Function		{ $$ = $1; }
 			;
 
 Routine			:	syRoutine syIdentifier Arguments
@@ -595,18 +588,6 @@ SimpleRoutine		:	sySimpleRoutine syIdentifier Arguments
 				{ $$ = rtMakeSimpleRoutine($2, $3); }
 			;
 
-Procedure		:	syProcedure syIdentifier Arguments
-				{ $$ = rtMakeProcedure($2, $3); }
-			;
-
-SimpleProcedure		:	sySimpleProcedure syIdentifier Arguments
-				{ $$ = rtMakeSimpleProcedure($2, $3); }
-			;
-
-Function		:	syFunction syIdentifier Arguments ArgumentType
-				{ $$ = rtMakeFunction($2, $3, $4); }
-			;
-
 Arguments		:	syLParen syRParen
 				{ $$ = argNULL; }
 			|	syLParen ArgumentList syRParen
-- 
cgit v1.2.3