son, p, i: CARDINAL ;
needComma: BOOLEAN ;
BEGIN
- fprintf0(f, '/* parameter: ') ;
+ fprintf0(f, '/* Parameter: ') ;
p := NoOfParam(sym) ;
i := 1 ;
needComma := FALSE ;
THEN
IF needComma
THEN
- fprintf0(f, ', ')
+ fprintf0(f, ',\n ')
END ;
CalculateVarDirective(sym, son, TRUE) ;
needComma := TRUE
END ;
INC(i)
END ;
- fprintf0(f, ' */\n\n')
+ fprintf0(f, '. */\n\n')
END AnnotateProcedure ;
IF NOT includedArray
THEN
includedArray := TRUE ;
- fprintf0(f, '%include "carrays.i"\n')
+ fprintf0(f, '%%include "carrays.i"\n')
END ;
- fprintf0(f, '%') ;
+ fprintf0(f, '%%') ;
fprintf0(f, 'apply (char *STRING, int LENGTH) { (') ;
DoUnbounded(sym) ;
fprintf0(f, ') };\n') ;
BEGIN
mainModule := sym ;
n := GetSymName(sym) ;
- fprintf0(f, '/* automatically generated by gm2 -fswig */\n') ;
- fprintf0(f, '%') ;
+ fprintf0(f, '/* Automatically generated by gm2 -fswig. */\n') ;
+ fprintf0(f, '%%') ;
fprintf1(f, 'module %a\n\n', n) ;
- fprintf0(f, '%') ;
+ fprintf0(f, '%%') ;
fprintf1(f, 'include exception.i\n\n', n) ;
- fprintf0(f, '%') ;
+ fprintf0(f, '%%') ;
fprintf0(f, 'exception {\n') ;
fprintf0(f, ' try {\n') ;
fprintf0(f, ' $action\n') ;
fprintf0(f, ' }\n') ;
fprintf0(f, '}\n\n') ;
ForeachItemInListDo(Done, DoCheckUnbounded) ;
- fprintf0(f, '\n%{\n') ;
+ fprintf0(f, '\n%%{\n') ;
ForeachItemInListDo(Done, DoCheckExported) ;
- fprintf0(f, '%}\n\n') ;
+ fprintf0(f, '%%}\n\n') ;
ForeachItemInListDo(Done, DoCheckExported)
END DoWriteFile ;