C:\>.\McUnwrap -h

McUnwrap Utility by Michel Cadot: Version 2018.11.27 on 27-NOV.-2018 10:22:05

Copyright (c) Michel Cadot, 2016-2018. All rights reserved.

Usage: McUnwrap.exe { -h | [{ -c | -r }] [-o <outfile>] [<infile>] }

with
  -c            Compress mode: removes all blanks lines and all spaces at the end
                of the lines
  -o <outfile>  Gives the name of the result file
  -r            Raw mode: returns the unwrapped text as it is without any cleaning
  <infile>      Gives the name of the file containing the wrappped code

If input file is not given, standard input is used.
If output file is not given, standard output is used.

By default (no "-c" or "-r" option), the program removes ending blank lines,
replaces consecutive blank lines by a single empty one; the reason is that before
wrapping the code Oracle replaces the comments by blank lines and the wrapping
process adds some junk characters at the end. In addition, the code is converted
in upper case but, of course, constant strings and quoted idenfitiers.

Note: the program skips all lines before the one containing the object type, its
      name and the keyword "wrapped". It ends its analysis at the first subsequent
      blank line.

The program is provided as it is without any guarantees or warranty. Although the
author has attempted to find and correct any bugs in this free program, the author
is not responsible for any damage or losses of any kind caused by the use or misuse
of the program. The author is under no obligation to provide support, service,
corrections, or upgrades to this program.

You can freely use, copy and distribute this program but you can't modify it without
the permission of the author you can contact on http://www.orafaq.com
You can post your comments, ask for improvements, report bugs... on the program at
http://www.orafaq.com/forum/t/201028/
I encourage you to subscribe to this topic (link at top of the page) if you want to
be informed when a new version is released.

set pagesize 0 feedback off linesize 120
select regexp_replace(text,'^'||chr(10),'') text 
from all_source 
where owner = '...' 
  and name = '...' 
  and type = '...' 
order by line;